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/cql779v2scm5rryjahzv7j8bgxm9hnyk-sbcl-2.1.4/bin:/gnu/store/5flllap3kwmibw6sp1rg0m3sb8ks701m-mariadb-10.5.8-lib/bin:/gnu/store/gww59gv5qxbfijg3vk5y182im7923s06-tar-1.32/bin:/gnu/store/2ayciqwxddkzq183dac82ijljc14j4zj-gzip-1.10/bin:/gnu/store/n1jk0w2wa4vpwmixaqn2y3la1l2sizzi-bzip2-1.0.8/bin:/gnu/store/7p36raqgk6vn47bflxc9bsclqiib3phi-xz-5.2.4/bin:/gnu/store/lpkf3ydcdvxn8gcrzaq9cp3ri05h8qhs-file-5.38/bin:/gnu/store/6gqaw09zqw8w0vcax6simlq71bq7l5r0-diffutils-3.7/bin:/gnu/store/qw20chpgkgbcqmzhs60c8hjl1hmblyc8-patch-2.7.6/bin:/gnu/store/b5y5scfmh2d8kxcpl9p84294z2198cgf-findutils-4.7.0/bin:/gnu/store/9iwlsj7d6ffqhshy8qshf7p4fqwfwrvn-gawk-5.0.1/bin:/gnu/store/q1nfjb24vqjs1cgi8mlnskw34h16y09r-sed-4.8/bin:/gnu/store/4qr6mcvsxyzknxa7x1wny8x30f5i0r3n-grep-3.4/bin:/gnu/store/2v61vg0bizgrhybkqbrki2k7kr094waz-coreutils-8.32/bin:/gnu/store/b7jbh7kzzig0bxfswdj8nfj9bkljyyya-make-4.3/bin:/gnu/store/v1g7f3p4f0851mywrla8qmr9hb8jgfjr-bash-minimal-5.0.16/bin:/gnu/store/dyqxnydqk1810afjfbqzfvh0n83xyl62-ld-wrapper-0/bin:/gnu/store/50lyzn9bz6x4da66648kry29wn8afird-binutils-2.34/bin:/gnu/store/afpgzln8860m6yfhxy6i8n9rywbp85cy-gcc-7.5.0/bin:/gnu/store/z4li262il798hbl0l1h1k3a5g7r6bffa-glibc-2.31/bin:/gnu/store/z4li262il798hbl0l1h1k3a5g7r6bffa-glibc-2.31/sbin'
environment variable `XDG_DATA_DIRS' set to `/gnu/store/cql779v2scm5rryjahzv7j8bgxm9hnyk-sbcl-2.1.4/share:/gnu/store/yb54j8nk7i5pd7q418mz76qvvcjw8p19-sbcl-stefil-0.1-0.0398548/share:/gnu/store/4477vp5rh71ys6s8xg4s1hrinaly6nay-sbcl-cffi-0.23.0/share:/gnu/store/5flllap3kwmibw6sp1rg0m3sb8ks701m-mariadb-10.5.8-lib/share:/gnu/store/gww59gv5qxbfijg3vk5y182im7923s06-tar-1.32/share:/gnu/store/2ayciqwxddkzq183dac82ijljc14j4zj-gzip-1.10/share:/gnu/store/n1jk0w2wa4vpwmixaqn2y3la1l2sizzi-bzip2-1.0.8/share:/gnu/store/7p36raqgk6vn47bflxc9bsclqiib3phi-xz-5.2.4/share:/gnu/store/lpkf3ydcdvxn8gcrzaq9cp3ri05h8qhs-file-5.38/share:/gnu/store/6gqaw09zqw8w0vcax6simlq71bq7l5r0-diffutils-3.7/share:/gnu/store/qw20chpgkgbcqmzhs60c8hjl1hmblyc8-patch-2.7.6/share:/gnu/store/b5y5scfmh2d8kxcpl9p84294z2198cgf-findutils-4.7.0/share:/gnu/store/9iwlsj7d6ffqhshy8qshf7p4fqwfwrvn-gawk-5.0.1/share:/gnu/store/q1nfjb24vqjs1cgi8mlnskw34h16y09r-sed-4.8/share:/gnu/store/4qr6mcvsxyzknxa7x1wny8x30f5i0r3n-grep-3.4/share:/gnu/store/2v61vg0bizgrhybkqbrki2k7kr094waz-coreutils-8.32/share:/gnu/store/b7jbh7kzzig0bxfswdj8nfj9bkljyyya-make-4.3/share:/gnu/store/v1g7f3p4f0851mywrla8qmr9hb8jgfjr-bash-minimal-5.0.16/share:/gnu/store/50lyzn9bz6x4da66648kry29wn8afird-binutils-2.34/share:/gnu/store/afpgzln8860m6yfhxy6i8n9rywbp85cy-gcc-7.5.0/share:/gnu/store/z4li262il798hbl0l1h1k3a5g7r6bffa-glibc-2.31/share:/gnu/store/rzk3v28mhi4m7sh0qippp9a5rzy03rkg-glibc-2.31-static/share:/gnu/store/hk7l42fwxmnrnlhyiixvaqf1i1crcckp-linux-libre-headers-5.4.20/share'
environment variable `XDG_CONFIG_DIRS' set to `/gnu/store/yb54j8nk7i5pd7q418mz76qvvcjw8p19-sbcl-stefil-0.1-0.0398548/etc:/gnu/store/4477vp5rh71ys6s8xg4s1hrinaly6nay-sbcl-cffi-0.23.0/etc:/gnu/store/9iwlsj7d6ffqhshy8qshf7p4fqwfwrvn-gawk-5.0.1/etc:/gnu/store/z4li262il798hbl0l1h1k3a5g7r6bffa-glibc-2.31/etc'
environment variable `BASH_LOADABLES_PATH' unset
environment variable `C_INCLUDE_PATH' set to `/gnu/store/4477vp5rh71ys6s8xg4s1hrinaly6nay-sbcl-cffi-0.23.0/include:/gnu/store/n1jk0w2wa4vpwmixaqn2y3la1l2sizzi-bzip2-1.0.8/include:/gnu/store/7p36raqgk6vn47bflxc9bsclqiib3phi-xz-5.2.4/include:/gnu/store/lpkf3ydcdvxn8gcrzaq9cp3ri05h8qhs-file-5.38/include:/gnu/store/9iwlsj7d6ffqhshy8qshf7p4fqwfwrvn-gawk-5.0.1/include:/gnu/store/b7jbh7kzzig0bxfswdj8nfj9bkljyyya-make-4.3/include:/gnu/store/50lyzn9bz6x4da66648kry29wn8afird-binutils-2.34/include:/gnu/store/afpgzln8860m6yfhxy6i8n9rywbp85cy-gcc-7.5.0/include:/gnu/store/z4li262il798hbl0l1h1k3a5g7r6bffa-glibc-2.31/include:/gnu/store/hk7l42fwxmnrnlhyiixvaqf1i1crcckp-linux-libre-headers-5.4.20/include'
environment variable `CPLUS_INCLUDE_PATH' set to `/gnu/store/4477vp5rh71ys6s8xg4s1hrinaly6nay-sbcl-cffi-0.23.0/include:/gnu/store/n1jk0w2wa4vpwmixaqn2y3la1l2sizzi-bzip2-1.0.8/include:/gnu/store/7p36raqgk6vn47bflxc9bsclqiib3phi-xz-5.2.4/include:/gnu/store/lpkf3ydcdvxn8gcrzaq9cp3ri05h8qhs-file-5.38/include:/gnu/store/9iwlsj7d6ffqhshy8qshf7p4fqwfwrvn-gawk-5.0.1/include:/gnu/store/b7jbh7kzzig0bxfswdj8nfj9bkljyyya-make-4.3/include:/gnu/store/50lyzn9bz6x4da66648kry29wn8afird-binutils-2.34/include:/gnu/store/afpgzln8860m6yfhxy6i8n9rywbp85cy-gcc-7.5.0/include/c++:/gnu/store/afpgzln8860m6yfhxy6i8n9rywbp85cy-gcc-7.5.0/include:/gnu/store/z4li262il798hbl0l1h1k3a5g7r6bffa-glibc-2.31/include:/gnu/store/hk7l42fwxmnrnlhyiixvaqf1i1crcckp-linux-libre-headers-5.4.20/include'
environment variable `LIBRARY_PATH' set to `/gnu/store/cql779v2scm5rryjahzv7j8bgxm9hnyk-sbcl-2.1.4/lib:/gnu/store/yb54j8nk7i5pd7q418mz76qvvcjw8p19-sbcl-stefil-0.1-0.0398548/lib:/gnu/store/4477vp5rh71ys6s8xg4s1hrinaly6nay-sbcl-cffi-0.23.0/lib:/gnu/store/5flllap3kwmibw6sp1rg0m3sb8ks701m-mariadb-10.5.8-lib/lib:/gnu/store/n1jk0w2wa4vpwmixaqn2y3la1l2sizzi-bzip2-1.0.8/lib:/gnu/store/7p36raqgk6vn47bflxc9bsclqiib3phi-xz-5.2.4/lib:/gnu/store/lpkf3ydcdvxn8gcrzaq9cp3ri05h8qhs-file-5.38/lib:/gnu/store/9iwlsj7d6ffqhshy8qshf7p4fqwfwrvn-gawk-5.0.1/lib:/gnu/store/50lyzn9bz6x4da66648kry29wn8afird-binutils-2.34/lib:/gnu/store/z4li262il798hbl0l1h1k3a5g7r6bffa-glibc-2.31/lib:/gnu/store/rzk3v28mhi4m7sh0qippp9a5rzy03rkg-glibc-2.31-static/lib:/gnu/store/x6i3vfg4gaqd42cqb6mzk52v4lds1467-glibc-utf8-locales-2.31/lib'
environment variable `GUIX_LOCPATH' set to `/gnu/store/x6i3vfg4gaqd42cqb6mzk52v4lds1467-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/8fy1n75z6i1qq75n1vln1j9c432g6sa4-sbcl-cl-mysql-0.1-1.ab56c27-checkout/package.sh' -> `./package.sh'
`/gnu/store/8fy1n75z6i1qq75n1vln1j9c432g6sa4-sbcl-cl-mysql-0.1-1.ab56c27-checkout/system.lisp' -> `./system.lisp'
`/gnu/store/8fy1n75z6i1qq75n1vln1j9c432g6sa4-sbcl-cl-mysql-0.1-1.ab56c27-checkout/.gitattributes' -> `./.gitattributes'
`/gnu/store/8fy1n75z6i1qq75n1vln1j9c432g6sa4-sbcl-cl-mysql-0.1-1.ab56c27-checkout/.gitignore' -> `./.gitignore'
`/gnu/store/8fy1n75z6i1qq75n1vln1j9c432g6sa4-sbcl-cl-mysql-0.1-1.ab56c27-checkout/cl-mysql-test.asd' -> `./cl-mysql-test.asd'
`/gnu/store/8fy1n75z6i1qq75n1vln1j9c432g6sa4-sbcl-cl-mysql-0.1-1.ab56c27-checkout/cl-mysql.asd' -> `./cl-mysql.asd'
`/gnu/store/8fy1n75z6i1qq75n1vln1j9c432g6sa4-sbcl-cl-mysql-0.1-1.ab56c27-checkout/cl-mysql.mbd' -> `./cl-mysql.mbd'
`/gnu/store/8fy1n75z6i1qq75n1vln1j9c432g6sa4-sbcl-cl-mysql-0.1-1.ab56c27-checkout/connection.lisp' -> `./connection.lisp'
`/gnu/store/8fy1n75z6i1qq75n1vln1j9c432g6sa4-sbcl-cl-mysql-0.1-1.ab56c27-checkout/integration-test.lisp' -> `./integration-test.lisp'
`/gnu/store/8fy1n75z6i1qq75n1vln1j9c432g6sa4-sbcl-cl-mysql-0.1-1.ab56c27-checkout/mysql.lisp' -> `./mysql.lisp'
`/gnu/store/8fy1n75z6i1qq75n1vln1j9c432g6sa4-sbcl-cl-mysql-0.1-1.ab56c27-checkout/package.lisp' -> `./package.lisp'
`/gnu/store/8fy1n75z6i1qq75n1vln1j9c432g6sa4-sbcl-cl-mysql-0.1-1.ab56c27-checkout/pool.lisp' -> `./pool.lisp'
`/gnu/store/8fy1n75z6i1qq75n1vln1j9c432g6sa4-sbcl-cl-mysql-0.1-1.ab56c27-checkout/prepare.lisp' -> `./prepare.lisp'
`/gnu/store/8fy1n75z6i1qq75n1vln1j9c432g6sa4-sbcl-cl-mysql-0.1-1.ab56c27-checkout/test-pool.lisp' -> `./test-pool.lisp'
`/gnu/store/8fy1n75z6i1qq75n1vln1j9c432g6sa4-sbcl-cl-mysql-0.1-1.ab56c27-checkout/test-prepare.lisp' -> `./test-prepare.lisp'
`/gnu/store/8fy1n75z6i1qq75n1vln1j9c432g6sa4-sbcl-cl-mysql-0.1-1.ab56c27-checkout/test.lisp' -> `./test.lisp'
`/gnu/store/8fy1n75z6i1qq75n1vln1j9c432g6sa4-sbcl-cl-mysql-0.1-1.ab56c27-checkout/thread.lisp' -> `./thread.lisp'
phase `unpack' succeeded after 0.0 seconds
starting phase `fix-paths'
phase `fix-paths' succeeded after 0.1 seconds
starting phase `patch-usr-bin-file'
phase `patch-usr-bin-file' succeeded after 0.0 seconds
starting phase `patch-source-shebangs'
patch-shebang: ./package.sh: changing `/bin/bash' to `/gnu/store/v1g7f3p4f0851mywrla8qmr9hb8jgfjr-bash-minimal-5.0.16/bin/bash'
phase `patch-source-shebangs' succeeded after 0.0 seconds
starting phase `copy-source'
`/tmp/guix-build-sbcl-cl-mysql-0.1-1.ab56c27.drv-0/source/package.sh' -> `/gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/share/common-lisp/source/cl-mysql/package.sh'
`/tmp/guix-build-sbcl-cl-mysql-0.1-1.ab56c27.drv-0/source/system.lisp' -> `/gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/share/common-lisp/source/cl-mysql/system.lisp'
`/tmp/guix-build-sbcl-cl-mysql-0.1-1.ab56c27.drv-0/source/thread.lisp' -> `/gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/share/common-lisp/source/cl-mysql/thread.lisp'
`/tmp/guix-build-sbcl-cl-mysql-0.1-1.ab56c27.drv-0/source/test.lisp' -> `/gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/share/common-lisp/source/cl-mysql/test.lisp'
`/tmp/guix-build-sbcl-cl-mysql-0.1-1.ab56c27.drv-0/source/test-prepare.lisp' -> `/gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/share/common-lisp/source/cl-mysql/test-prepare.lisp'
`/tmp/guix-build-sbcl-cl-mysql-0.1-1.ab56c27.drv-0/source/test-pool.lisp' -> `/gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/share/common-lisp/source/cl-mysql/test-pool.lisp'
`/tmp/guix-build-sbcl-cl-mysql-0.1-1.ab56c27.drv-0/source/prepare.lisp' -> `/gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/share/common-lisp/source/cl-mysql/prepare.lisp'
`/tmp/guix-build-sbcl-cl-mysql-0.1-1.ab56c27.drv-0/source/pool.lisp' -> `/gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/share/common-lisp/source/cl-mysql/pool.lisp'
`/tmp/guix-build-sbcl-cl-mysql-0.1-1.ab56c27.drv-0/source/package.lisp' -> `/gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/share/common-lisp/source/cl-mysql/package.lisp'
`/tmp/guix-build-sbcl-cl-mysql-0.1-1.ab56c27.drv-0/source/mysql.lisp' -> `/gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/share/common-lisp/source/cl-mysql/mysql.lisp'
`/tmp/guix-build-sbcl-cl-mysql-0.1-1.ab56c27.drv-0/source/integration-test.lisp' -> `/gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/share/common-lisp/source/cl-mysql/integration-test.lisp'
`/tmp/guix-build-sbcl-cl-mysql-0.1-1.ab56c27.drv-0/source/connection.lisp' -> `/gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/share/common-lisp/source/cl-mysql/connection.lisp'
`/tmp/guix-build-sbcl-cl-mysql-0.1-1.ab56c27.drv-0/source/cl-mysql.mbd' -> `/gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/share/common-lisp/source/cl-mysql/cl-mysql.mbd'
`/tmp/guix-build-sbcl-cl-mysql-0.1-1.ab56c27.drv-0/source/cl-mysql.asd' -> `/gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/share/common-lisp/source/cl-mysql/cl-mysql.asd'
`/tmp/guix-build-sbcl-cl-mysql-0.1-1.ab56c27.drv-0/source/cl-mysql-test.asd' -> `/gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/share/common-lisp/source/cl-mysql/cl-mysql-test.asd'
`/tmp/guix-build-sbcl-cl-mysql-0.1-1.ab56c27.drv-0/source/.gitignore' -> `/gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/share/common-lisp/source/cl-mysql/.gitignore'
`/tmp/guix-build-sbcl-cl-mysql-0.1-1.ab56c27.drv-0/source/.gitattributes' -> `/gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/share/common-lisp/source/cl-mysql/.gitattributes'
phase `copy-source' succeeded after 0.0 seconds
starting phase `configure'
warning: collision encountered:
/gnu/store/dyqxnydqk1810afjfbqzfvh0n83xyl62-ld-wrapper-0/bin/ld
/gnu/store/50lyzn9bz6x4da66648kry29wn8afird-binutils-2.34/bin/ld
warning: choosing /gnu/store/dyqxnydqk1810afjfbqzfvh0n83xyl62-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/cql779v2scm5rryjahzv7j8bgxm9hnyk-sbcl-2.1.4/bin/sbcl" "--non-interactive" "--eval" "(require :asdf)" "--eval" "(asdf:load-asd (truename \"/gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/share/common-lisp/sbcl/cl-mysql/cl-mysql-test.asd\"))" "--eval" "(asdf:load-asd (truename \"/gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/share/common-lisp/sbcl/cl-mysql/cl-mysql.asd\"))" "--eval" "(asdf:compile-system \"cl-mysql\")"
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.
; compiling file "/gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/share/common-lisp/sbcl/cl-mysql/system.lisp" (written 09 JUN 2021 02:50:59 PM):
; processing (DEFPACKAGE COM.HACKINGHAT.CL-MYSQL-SYSTEM ...)
; processing (IN-PACKAGE "CL-MYSQL-SYSTEM")
; processing (DEFINE-FOREIGN-LIBRARY LIBMYSQLCLIENT ...)
; processing (USE-FOREIGN-LIBRARY LIBMYSQLCLIENT)
; processing (DEFCONSTANT +CLIENT-COMPRESS+ ...)
; processing (DEFCONSTANT +CLIENT-FOUND-ROWS+ ...)
; processing (DEFCONSTANT +CLIENT-IGNORE-SIGPIPE+ ...)
; processing (DEFCONSTANT +CLIENT-IGNORE-SPACE+ ...)
; processing (DEFCONSTANT +CLIENT-INTERACTIVE+ ...)
; processing (DEFCONSTANT +CLIENT-LOCAL-FILES+ ...)
; processing (DEFCONSTANT +CLIENT-MULTI-STATEMENTS+ ...)
; processing (DEFCONSTANT +CLIENT-MULTI-RESULTS+ ...)
; processing (DEFCONSTANT +CLIENT-NO-SCHEMA+ ...)
; processing (DEFCONSTANT +CLIENT-SSL+ ...)
; processing (DEFCONSTANT +CLIENT-REMEMBER-OPTIONS+ ...)
; processing (DEFCONSTANT +FIELD-NOT-NULL+ ...)
; processing (DEFCONSTANT +FIELD-PRIMARY-KEY+ ...)
; processing (DEFCONSTANT +FIELD-UNIQUE-KEY+ ...)
; processing (DEFCONSTANT +FIELD-MULTIPLE-KEY+ ...)
; processing (DEFCONSTANT +FIELD-BLOB+ ...)
; processing (DEFCONSTANT +FIELD-UNSIGNED+ ...)
; processing (DEFCONSTANT +FIELD-ZEROFILL+ ...)
; processing (DEFCONSTANT +FIELD-BINARY+ ...)
; processing (DEFCONSTANT +FIELD-ENUM+ ...)
; processing (DEFCONSTANT +FIELD-AUTO-INCREMENT+ ...)
; processing (DEFCONSTANT +FIELD-TIMESTAMP+ ...)
; processing (DEFCONSTANT +FIELD-SET+ ...)
; processing (DEFCONSTANT +FIELD-NO-DEFAULT+ ...)
; processing (DEFCONSTANT +FIELD-NUM+ ...)
; processing (DEFCONSTANT +ERROR-FIRST+ ...)
; processing (DEFCONSTANT +UNKNOWN-ERROR+ ...)
; processing (DEFCONSTANT +SOCKET-CREATE-ERROR+ ...)
; processing (DEFCONSTANT +CONNECTION-ERROR+ ...)
; processing (DEFCONSTANT +CONN-HOST-ERROR+ ...)
; processing (DEFCONSTANT +IPSOCK-ERROR+ ...)
; processing (DEFCONSTANT +UNKNOWN-HOST+ ...)
; processing (DEFCONSTANT +SERVER-GONE-ERROR+ ...)
; processing (DEFCONSTANT +VERSION-ERROR+ ...)
; processing (DEFCONSTANT +OUT-OF-MEMORY+ ...)
; processing (DEFCONSTANT +WRONG-HOST-INFO+ ...)
; processing (DEFCONSTANT +LOCALHOST-CONNECTION+ ...)
; processing (DEFCONSTANT +TCP-CONNECTION+ ...)
; processing (DEFCONSTANT +SERVER-HANDSHAKE-ERR+ ...)
; processing (DEFCONSTANT +SERVER-LOST+ ...)
; processing (DEFCONSTANT +COMMANDS-OUT-OF-SYNC+ ...)
; processing (DEFCONSTANT +NAMEDPIPE-CONNECTION+ ...)
; processing (DEFCONSTANT +NAMEDPIPEWAIT-ERROR+ ...)
; processing (DEFCONSTANT +NAMEDPIPEOPEN-ERROR+ ...)
; processing (DEFCONSTANT +NAMEDPIPESETSTATE-ERROR+ ...)
; processing (DEFCONSTANT +CANT-READ-CHARSET+ ...)
; processing (DEFCONSTANT +NET-PACKET-TOO-LARGE+ ...)
; processing (DEFCONSTANT +EMBEDDED-CONNECTION+ ...)
; processing (DEFCONSTANT +PROBE-SLAVE-STATUS+ ...)
; processing (DEFCONSTANT +PROBE-SLAVE-HOSTS+ ...)
; processing (DEFCONSTANT +PROBE-SLAVE-CONNECT+ ...)
; processing (DEFCONSTANT +PROBE-MASTER-CONNECT+ ...)
; processing (DEFCONSTANT +SSL-CONNECTION-ERROR+ ...)
; processing (DEFCONSTANT +MALFORMED-PACKET+ ...)
; processing (DEFCONSTANT +WRONG-LICENSE+ ...)
; processing (DEFCONSTANT +NULL-POINTER+ ...)
; processing (DEFCONSTANT +NO-PREPARE-STMT+ ...)
; processing (DEFCONSTANT +PARAMS-NOT-BOUND+ ...)
; processing (DEFCONSTANT +DATA-TRUNCATED+ ...)
; processing (DEFCONSTANT +NO-PARAMETERS-EXISTS+ ...)
; processing (DEFCONSTANT +INVALID-PARAMETER-NO+ ...)
; processing (DEFCONSTANT +INVALID-BUFFER-USE+ ...)
; processing (DEFCONSTANT +UNSUPPORTED-PARAM-TYPE+ ...)
; processing (DEFCONSTANT +SHARED-MEMORY-CONNECTION+ ...)
; processing (DEFCONSTANT +SHARED-MEMORY-CONNECT-REQUEST-ERROR+ ...)
; processing (DEFCONSTANT +SHARED-MEMORY-CONNECT-ANSWER-ERROR+ ...)
; processing (DEFCONSTANT +SHARED-MEMORY-CONNECT-FILE-MAP-ERROR+ ...)
; processing (DEFCONSTANT +SHARED-MEMORY-CONNECT-MAP-ERROR+ ...)
; processing (DEFCONSTANT +SHARED-MEMORY-FILE-MAP-ERROR+ ...)
; processing (DEFCONSTANT +SHARED-MEMORY-MAP-ERROR+ ...)
; processing (DEFCONSTANT +SHARED-MEMORY-EVENT-ERROR+ ...)
; processing (DEFCONSTANT +SHARED-MEMORY-CONNECT-ABANDONED-ERROR+ ...)
; processing (DEFCONSTANT +SHARED-MEMORY-CONNECT-SET-ERROR+ ...)
; processing (DEFCONSTANT +CONN-UNKNOW-PROTOCOL+ ...)
; processing (DEFCONSTANT +INVALID-CONN-HANDLE+ ...)
; processing (DEFCONSTANT +SECURE-AUTH+ ...)
; processing (DEFCONSTANT +FETCH-CANCELED+ ...)
; processing (DEFCONSTANT +NO-DATA+ ...)
; processing (DEFCONSTANT +NO-STMT-METADATA+ ...)
; processing (DEFCONSTANT +NO-RESULT-SET+ ...)
; processing (DEFCONSTANT +NOT-IMPLEMENTED+ ...)
; processing (DEFCONSTANT +SERVER-LOST-EXTENDED+ ...)
; processing (DEFMACRO DEFMYSQLFUN ...)
; processing (DEFMYSQLFUN ("mysql_init" MYSQL-INIT) ...)
; processing (DEFMYSQLFUN ("mysql_close" MYSQL-CLOSE) ...)
; processing (DEFMYSQLFUN ("mysql_error" MYSQL-ERROR) ...)
; processing (DEFMYSQLFUN ("mysql_errno" MYSQL-ERRNO) ...)
; processing (DEFMYSQLFUN ("mysql_real_connect" MYSQL-REAL-CONNECT) ...)
; processing (DEFMYSQLFUN ("mysql_affected_rows" MYSQL-AFFECTED-ROWS) ...)
; processing (DEFMYSQLFUN ("mysql_character_set_name" MYSQL-CHARACTER-SET-NAME) ...)
; processing (DEFMYSQLFUN ("mysql_ping" MYSQL-PING) ...)
; processing (DEFMYSQLFUN ("mysql_query" MYSQL-QUERY) ...)
; processing (DEFMYSQLFUN ("mysql_real_escape_string" MYSQL-REAL-ESCAPE-STRING) ...)
; processing (DEFMYSQLFUN ("mysql_escape_string" MYSQL-ESCAPE-STRING) ...)
; processing (DEFMYSQLFUN ("mysql_field_count" MYSQL-FIELD-COUNT) ...)
; processing (DEFMYSQLFUN ("mysql_get_client_version" MYSQL-GET-CLIENT-VERSION) ...)
; processing (DEFMYSQLFUN ("mysql_get_character_set_info" MYSQL-GET-CHARACTER-SET-INFO) ...)
; processing (DEFMYSQLFUN ("mysql_set_character_set" MYSQL-SET-CHARACTER-SET) ...)
; processing (DEFMYSQLFUN ("mysql_get_server_version" MYSQL-GET-SERVER-VERSION) ...)
; processing (DEFMYSQLFUN ("mysql_select_db" MYSQL-SELECT-DB) ...)
; processing (DEFMYSQLFUN ("mysql_store_result" MYSQL-STORE-RESULT) ...)
; processing (DEFMYSQLFUN ("mysql_use_result" MYSQL-USE-RESULT) ...)
; processing (DEFMYSQLFUN ("mysql_num_rows" MYSQL-NUM-ROWS) ...)
; processing (DEFMYSQLFUN ("mysql_list_dbs" MYSQL-LIST-DBS) ...)
; processing (DEFMYSQLFUN ("mysql_list_tables" MYSQL-LIST-TABLES) ...)
; processing (DEFMYSQLFUN ("mysql_list_fields" MYSQL-LIST-FIELDS) ...)
; processing (DEFMYSQLFUN ("mysql_list_processes" MYSQL-LIST-PROCESSES) ...)
; processing (DEFMYSQLFUN ("mysql_fetch_row" MYSQL-FETCH-ROW) ...)
; processing (DEFMYSQLFUN ("mysql_free_result" MYSQL-FREE-RESULT) ...)
; processing (DEFMYSQLFUN ("mysql_fetch_lengths" MYSQL-FETCH-LENGTHS) ...)
; processing (DEFMYSQLFUN ("mysql_num_fields" MYSQL-NUM-FIELDS) ...)
; processing (DEFMYSQLFUN ("mysql_next_result" MYSQL-NEXT-RESULT) ...)
; processing (DEFMYSQLFUN ("mysql_fetch_fields" MYSQL-FETCH-FIELDS) ...)
; processing (DEFMYSQLFUN ("mysql_fetch_field" MYSQL-FETCH-FIELD) ...)
; processing (DEFMYSQLFUN ("mysql_options" MYSQL-OPTIONS) ...)
; processing (DEFMYSQLFUN ("mysql_stmt_init" MYSQL-STMT-INIT) ...)
; processing (DEFMYSQLFUN ("mysql_stmt_prepare" MYSQL-STMT-PREPARE) ...)
; processing (DEFMYSQLFUN ("mysql_stmt_bind_param" MYSQL-STMT-BIND-PARAM) ...)
; processing (DEFMYSQLFUN ("mysql_stmt_sqlstate" MYSQL-STMT-SQLSTATE) ...)
; processing (DEFMYSQLFUN ("mysql_stmt_errno" MYSQL-STMT-ERRNO) ...)
; processing (DEFMYSQLFUN ("mysql_stmt_error" MYSQL-STMT-ERROR) ...)
; processing (DEFMYSQLFUN ("mysql_stmt_execute" MYSQL-STMT-EXECUTE) ...)
; processing (DEFMYSQLFUN ("mysql_stmt_affected_rows" MYSQL-STMT-AFFECTED-ROWS) ...)
; processing (DEFMYSQLFUN ("mysql_stmt_param_count" MYSQL-STMT-PARAM-COUNT) ...)
; processing (DEFMYSQLFUN ("mysql_stmt_close" MYSQL-STMT-CLOSE) ...)
; processing (DEFCENUM ENUM-FIELD-TYPES ...)
; processing (DEFCENUM ENUM-OPTIONS ...)
; processing (DEFCSTRUCT MYSQL-FIELD ...)
; processing (DEFCSTRUCT CHARACTER-SET ...)
; processing (DEFCSTRUCT MYSQL-BIND ...)
; wrote /gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/lib/common-lisp/sbcl/cl-mysql/system-tmp7LQ0A0VI.fasl
; compilation finished in 0:00:00.280
; compiling file "/gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/share/common-lisp/sbcl/cl-mysql/thread.lisp" (written 01 JAN 1970 12:00:01 AM):
; processing (IN-PACKAGE "CL-MYSQL-SYSTEM")
; processing (DEFCONSTANT *SLEEP-PERIOD* ...)
; file: /gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/share/common-lisp/sbcl/cl-mysql/thread.lisp
; in: DEFCONSTANT *SLEEP-PERIOD*
; (DEFCONSTANT COM.HACKINGHAT.CL-MYSQL-SYSTEM::*SLEEP-PERIOD* 0.1)
; --> EVAL-WHEN
; ==>
; (SB-IMPL::%DEFCONSTANT 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::*SLEEP-PERIOD* 0.1
; (SB-C:SOURCE-LOCATION))
;
; caught STYLE-WARNING:
; Defining (*SLEEP-PERIOD*) as a constant, even though the name follows
; the usual naming convention (names like *FOO*) for special variables
; processing (PUSHNEW :THREAD-SUPPORT ...)
; processing (DEFUN MAKE-LOCK ...)
; processing (DEFUN MAKE-WAIT-RESOURCE ...)
; processing (DEFUN THREAD-ALIVE-P ...)
; file: /gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/share/common-lisp/sbcl/cl-mysql/thread.lisp
; in: DEFUN THREAD-ALIVE-P
; (DEFUN COM.HACKINGHAT.CL-MYSQL-SYSTEM::THREAD-ALIVE-P
; (COM.HACKINGHAT.CL-MYSQL-SYSTEM::THREAD))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA COM.HACKINGHAT.CL-MYSQL-SYSTEM::THREAD-ALIVE-P
; (COM.HACKINGHAT.CL-MYSQL-SYSTEM::THREAD)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK COM.HACKINGHAT.CL-MYSQL-SYSTEM::THREAD-ALIVE-P))
;
; caught STYLE-WARNING:
; The variable THREAD is defined but never used.
; processing (DEFUN WAIT-ON-THREADS ...)
; processing (DEFMACRO WITH-LOCK ...)
; processing (DEFUN START-THREAD-IN-NSECS ...)
; processing (DEFUN POOL-WAIT ...)
; processing (DEFUN POOL-NOTIFY ...)
; wrote /gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/lib/common-lisp/sbcl/cl-mysql/thread-tmp74KGUNRZ.fasl
; compilation finished in 0:00:00.020
WARNING:
Lisp compilation had style-warnings while
compiling #
STYLE-WARNING:
Defining (*SLEEP-PERIOD*) as a constant, even though the name follows
the usual naming convention (names like *FOO*) for special variables
; compiling file "/gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/share/common-lisp/sbcl/cl-mysql/connection.lisp" (written 01 JAN 1970 12:00:01 AM):
; processing (IN-PACKAGE "CL-MYSQL-SYSTEM")
; processing (DEFPARAMETER *TYPE-MAP* ...)
; processing (DEFCLASS CONNECTABLE ...)
; processing (DEFGENERIC ACQUIRE ...)
; processing (DEFGENERIC RELEASE ...)
; processing (DEFCLASS CONNECTION ...)
; processing (DEFMETHOD (SETF RESULT-SET) ...)
; processing (DEFMETHOD PROCESS-RESULT-SET ...)
; processing (DEFMETHOD SET-FIELD-NAMES-AND-TYPES ...)
; file: /gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/share/common-lisp/sbcl/cl-mysql/connection.lisp
; in: DEFMETHOD SET-FIELD-NAMES-AND-TYPES (CONNECTION)
; (CFFI:FOREIGN-SLOT-VALUE COM.HACKINGHAT.CL-MYSQL-SYSTEM::MREF
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::MYSQL-FIELD
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::NAME)
;
; caught STYLE-WARNING:
; bare references to struct types are deprecated. Please use (:POINTER
; (:STRUCT
; MYSQL-FIELD)) or (:STRUCT
; MYSQL-FIELD) instead.
; (CFFI:FOREIGN-SLOT-VALUE COM.HACKINGHAT.CL-MYSQL-SYSTEM::MREF
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::MYSQL-FIELD 'TYPE)
;
; caught STYLE-WARNING:
; bare references to struct types are deprecated. Please use (:POINTER
; (:STRUCT
; MYSQL-FIELD)) or (:STRUCT
; MYSQL-FIELD) instead.
; (CFFI:FOREIGN-SLOT-VALUE COM.HACKINGHAT.CL-MYSQL-SYSTEM::MREF
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::MYSQL-FIELD
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::FLAGS)
;
; caught STYLE-WARNING:
; bare references to struct types are deprecated. Please use (:POINTER
; (:STRUCT
; MYSQL-FIELD)) or (:STRUCT
; MYSQL-FIELD) instead.
; (LET* ((COM.HACKINGHAT.CL-MYSQL-SYSTEM::NUM-FIELDS
; (1-
; (COM.HACKINGHAT.CL-MYSQL-SYSTEM::MYSQL-NUM-FIELDS
; COM.HACKINGHAT.CL-MYSQL-SYSTEM::MYSQL-RES)))
; (COM.HACKINGHAT.CL-MYSQL-SYSTEM::FIELDS
; (COM.HACKINGHAT.CL-MYSQL-SYSTEM::MYSQL-FETCH-FIELDS
; COM.HACKINGHAT.CL-MYSQL-SYSTEM::MYSQL-RES))
; (COM.HACKINGHAT.CL-MYSQL-SYSTEM::EXTRACTED-FIELDS
; (LOOP COM.HACKINGHAT.CL-MYSQL-SYSTEM::FOR COM.HACKINGHAT.CL-MYSQL-SYSTEM::I COM.HACKINGHAT.CL-MYSQL-SYSTEM::FROM 0 COM.HACKINGHAT.CL-MYSQL-SYSTEM::TO COM.HACKINGHAT.CL-MYSQL-SYSTEM::NUM-FIELDS
; COM.HACKINGHAT.CL-MYSQL-SYSTEM::COLLECT (LET #
; #))))
; (SETF (COM.HACKINGHAT.CL-MYSQL-SYSTEM:RESULT-SET-FIELDS
; COM.HACKINGHAT.CL-MYSQL-SYSTEM::SELF)
; (APPEND (LIST COM.HACKINGHAT.CL-MYSQL-SYSTEM::EXTRACTED-FIELDS)
; (COM.HACKINGHAT.CL-MYSQL-SYSTEM:RESULT-SET-FIELDS
; COM.HACKINGHAT.CL-MYSQL-SYSTEM::SELF))))
;
; caught STYLE-WARNING:
; The variable FIELDS is defined but never used.
; processing (DEFMETHOD RESULT-DATA ...)
; processing (DEFMETHOD NEXT-RESULT-SET ...)
; processing (DEFMETHOD NEXT-ROW ...)
; processing (DEFMETHOD CONNECTION-EQUAL ...)
; processing (DEFMETHOD CONNECTION-EQUAL ...)
; processing (DEFMETHOD CONNECTED ...)
; processing (DEFMETHOD AVAILABLE ...)
; processing (DEFMETHOD TOGGLE ...)
; wrote /gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/lib/common-lisp/sbcl/cl-mysql/connection-tmpCEL1YIM2.fasl
; compilation finished in 0:00:00.080
WARNING:
Lisp compilation had style-warnings while
compiling #
; compiling file "/gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/share/common-lisp/sbcl/cl-mysql/pool.lisp" (written 01 JAN 1970 12:00:01 AM):
; processing (IN-PACKAGE "CL-MYSQL-SYSTEM")
; processing (DEFPARAMETER *LAST-DATABASE* ...)
; processing (DEFPARAMETER *DEBUG* ...)
; processing (DEFCLASS CONNECTION-POOL ...)
; processing (DEFMETHOD (SETF MAX-CONNECTIONS) ...)
; processing (DEFMETHOD (SETF MIN-CONNECTIONS) ...)
; processing (DEFMETHOD ADD-CONNECTION ...)
; processing (DEFMETHOD REMOVE-CONNECTION-FROM-ARRAY ...)
; processing (DEFMETHOD CONNECT-TO-SERVER ...)
; processing (DEFMETHOD DISCONNECT-FROM-SERVER ...)
; processing (DEFMETHOD DISCONNECT-FROM-SERVER ...)
; processing (DEFMETHOD COUNT-CONNECTIONS ...)
; processing (DEFMETHOD CAN-AQUIRE ...)
; processing (DEFMETHOD CAN-AQUIRE-LOCK ...)
; processing (DEFMETHOD CONNECT-UPTO-MINIMUM ...)
; processing (DEFMETHOD INITIALIZE-INSTANCE ...)
; processing (DEFMETHOD TAKE-FIRST ...)
; processing (DEFMETHOD AQUIRE ...)
; processing (DEFMETHOD AQUIRE ...)
; processing (DEFMETHOD AQUIRE ...)
; processing (DEFMETHOD CONTAINS ...)
; processing (DEFMETHOD RETURN-TO-AVAILABLE ...)
; processing (DEFMETHOD RETURN-TO-AVAILABLE ...)
; processing (DEFMETHOD CLEAN-CONNECTIONS ...)
; processing (DEFMETHOD CONSUME-UNUSED-RESULTS ...)
; processing (DEFMETHOD RETURN-OR-CLOSE ...)
; processing (DEFMETHOD RELEASE ...)
; processing (DEFMETHOD RELEASE ...)
; processing (DEFUN CONNECT ...)
; processing (DEFUN DISCONNECT ...)
; processing (DEFMETHOD DISCONNECT-ALL ...)
; wrote /gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/lib/common-lisp/sbcl/cl-mysql/pool-tmpHAMQABTV.fasl
; compilation finished in 0:00:00.152
; compiling file "/gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/share/common-lisp/sbcl/cl-mysql/mysql.lisp" (written 01 JAN 1970 12:00:01 AM):
; processing (IN-PACKAGE "CL-MYSQL-SYSTEM")
; processing (DEFUN STRING-TO-INTEGER ...)
; processing (DEFUN STRING-TO-FLOAT ...)
; file: /gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/share/common-lisp/sbcl/cl-mysql/mysql.lisp
; in: DEFUN STRING-TO-FLOAT
; (/ COM.HACKINGHAT.CL-MYSQL-SYSTEM::DECIMAL-PART
; COM.HACKINGHAT.CL-MYSQL-SYSTEM::DECIMAL-LENGTH)
;
; 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)).
;
; note: unable to
; convert x/2^k to shift
; due to type uncertainty:
; The second argument is a NUMBER, not a INTEGER.
; (+ COM.HACKINGHAT.CL-MYSQL-SYSTEM::INTEGER-PART
; (/ COM.HACKINGHAT.CL-MYSQL-SYSTEM::DECIMAL-PART
; COM.HACKINGHAT.CL-MYSQL-SYSTEM::DECIMAL-LENGTH))
;
; 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)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; (* COM.HACKINGHAT.CL-MYSQL-SYSTEM::SIGN
; (+ COM.HACKINGHAT.CL-MYSQL-SYSTEM::INTEGER-PART
; (/ COM.HACKINGHAT.CL-MYSQL-SYSTEM::DECIMAL-PART
; COM.HACKINGHAT.CL-MYSQL-SYSTEM::DECIMAL-LENGTH))
; (EXPT 10
; (* COM.HACKINGHAT.CL-MYSQL-SYSTEM::MANTISSA-SIGN
; COM.HACKINGHAT.CL-MYSQL-SYSTEM::MANTISSA-PART)))
;
; 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)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; convert x*2^k to shift
; due to type uncertainty:
; The second argument is a NUMBER, not a INTEGER.
; (EXPT 10
; (* COM.HACKINGHAT.CL-MYSQL-SYSTEM::MANTISSA-SIGN
; COM.HACKINGHAT.CL-MYSQL-SYSTEM::MANTISSA-PART))
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (INTEGER -310 310), not a UNSIGNED-BYTE.
; (* COM.HACKINGHAT.CL-MYSQL-SYSTEM::SIGN
; (+ COM.HACKINGHAT.CL-MYSQL-SYSTEM::INTEGER-PART
; (/ COM.HACKINGHAT.CL-MYSQL-SYSTEM::DECIMAL-PART
; COM.HACKINGHAT.CL-MYSQL-SYSTEM::DECIMAL-LENGTH))
; (EXPT 10
; (* COM.HACKINGHAT.CL-MYSQL-SYSTEM::MANTISSA-SIGN
; COM.HACKINGHAT.CL-MYSQL-SYSTEM::MANTISSA-PART)))
;
; 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
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; convert x*2^k to shift
; due to type uncertainty:
; The first argument is a NUMBER, not a INTEGER.
; The second argument is a (RATIONAL
; 1/10000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
; 10000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000), not a INTEGER.
; (COERCE
; (* COM.HACKINGHAT.CL-MYSQL-SYSTEM::SIGN
; (+ COM.HACKINGHAT.CL-MYSQL-SYSTEM::INTEGER-PART
; (/ COM.HACKINGHAT.CL-MYSQL-SYSTEM::DECIMAL-PART
; COM.HACKINGHAT.CL-MYSQL-SYSTEM::DECIMAL-LENGTH))
; (EXPT 10
; (* COM.HACKINGHAT.CL-MYSQL-SYSTEM::MANTISSA-SIGN
; COM.HACKINGHAT.CL-MYSQL-SYSTEM::MANTISSA-PART)))
; 'DOUBLE-FLOAT)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; (* COM.HACKINGHAT.CL-MYSQL-SYSTEM::DECIMAL-PART 10)
;
; note: unable to
; recode as leas, shifts and adds
; due to type uncertainty:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &REST T).
;
; note: unable to
; recode as leas, shifts and adds
; due to type uncertainty:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; (* 10 COM.HACKINGHAT.CL-MYSQL-SYSTEM::DECIMAL-LENGTH)
;
; note: unable to
; recode as leas, shifts and adds
; due to type uncertainty:
; The first argument is a NUMBER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &REST T).
;
; note: unable to
; recode as leas, shifts and adds
; due to type uncertainty:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;
; 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
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to
; convert x*2^k to shift
; due to type uncertainty:
; The first argument is a NUMBER, not a INTEGER.
;
; note: unable to
; associate */(* /) of constants
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; (* COM.HACKINGHAT.CL-MYSQL-SYSTEM::INTEGER-PART 10)
;
; note: unable to
; recode as leas, shifts and adds
; due to type uncertainty:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &REST T).
;
; note: unable to
; recode as leas, shifts and adds
; due to type uncertainty:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; (* COM.HACKINGHAT.CL-MYSQL-SYSTEM::DECIMAL-PART 10)
;
; note: forced to do GENERIC-* (cost 30)
; unable to do inline fixnum arithmetic (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (+ (* COM.HACKINGHAT.CL-MYSQL-SYSTEM::DECIMAL-PART 10)
; (DIGIT-CHAR-P COM.HACKINGHAT.CL-MYSQL-SYSTEM::C))
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a (OR (MOD 36) NULL), not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 5) because:
; The first argument is a INTEGER, not a (SIGNED-BYTE 32).
; The second argument is a (OR (MOD 36) NULL), not a (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32) &REST
; T).
; etc.
; (* 10 COM.HACKINGHAT.CL-MYSQL-SYSTEM::DECIMAL-LENGTH)
;
; note: forced to do GENERIC-* (cost 30)
; unable to do inline fixnum arithmetic (cost 3) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 4) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (* COM.HACKINGHAT.CL-MYSQL-SYSTEM::INTEGER-PART 10)
;
; note: forced to do GENERIC-* (cost 30)
; unable to do inline fixnum arithmetic (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline fixnum arithmetic (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; etc.
; (+ (* COM.HACKINGHAT.CL-MYSQL-SYSTEM::INTEGER-PART 10)
; (DIGIT-CHAR-P COM.HACKINGHAT.CL-MYSQL-SYSTEM::C))
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a (OR (MOD 36) NULL), not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 5) because:
; The first argument is a INTEGER, not a (SIGNED-BYTE 32).
; The second argument is a (OR (MOD 36) NULL), not a (SIGNED-BYTE 32).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (SIGNED-BYTE 32) &REST
; T).
; etc.
; (+ COM.HACKINGHAT.CL-MYSQL-SYSTEM::INTEGER-PART
; (/ COM.HACKINGHAT.CL-MYSQL-SYSTEM::DECIMAL-PART
; COM.HACKINGHAT.CL-MYSQL-SYSTEM::DECIMAL-LENGTH))
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The second argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 5) because:
; The first argument is a INTEGER, not a (SIGNED-BYTE 32).
; The second argument is a NUMBER, not a (SIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST T).
; etc.
; (* COM.HACKINGHAT.CL-MYSQL-SYSTEM::SIGN
; (+ COM.HACKINGHAT.CL-MYSQL-SYSTEM::INTEGER-PART
; (/ COM.HACKINGHAT.CL-MYSQL-SYSTEM::DECIMAL-PART
; COM.HACKINGHAT.CL-MYSQL-SYSTEM::DECIMAL-LENGTH))
; (EXPT 10
; (* COM.HACKINGHAT.CL-MYSQL-SYSTEM::MANTISSA-SIGN
; COM.HACKINGHAT.CL-MYSQL-SYSTEM::MANTISSA-PART)))
;
; note: forced to do GENERIC-* (cost 30)
; unable to do inline fixnum arithmetic (cost 4) because:
; The second argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 5) because:
; The second argument is a NUMBER, not a (SIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST T).
; etc.
;
; note: forced to do GENERIC-* (cost 30)
; unable to do inline fixnum arithmetic (cost 4) because:
; The first argument is a NUMBER, not a FIXNUM.
; The second argument is a (RATIONAL
; 1/10000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
; 10000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000), not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 5) because:
; The first argument is a NUMBER, not a (SIGNED-BYTE 32).
; The second argument is a (RATIONAL
; 1/10000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
; 10000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000), not a (SIGNED-BYTE
; 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32)
; &REST T).
; etc.
; (COERCE
; (* COM.HACKINGHAT.CL-MYSQL-SYSTEM::SIGN
; (+ COM.HACKINGHAT.CL-MYSQL-SYSTEM::INTEGER-PART
; (/ COM.HACKINGHAT.CL-MYSQL-SYSTEM::DECIMAL-PART
; COM.HACKINGHAT.CL-MYSQL-SYSTEM::DECIMAL-LENGTH))
; (EXPT 10
; (* COM.HACKINGHAT.CL-MYSQL-SYSTEM::MANTISSA-SIGN
; COM.HACKINGHAT.CL-MYSQL-SYSTEM::MANTISSA-PART)))
; 'DOUBLE-FLOAT)
;
; note: forced to do full call
; unable to do inline float coercion (cost 2) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; unable to do inline float coercion (cost 5) because:
; The first argument is a NUMBER, not a (SIGNED-BYTE 32).
; etc.
; processing (DEFUN STRING-TO-RATIO ...)
; processing (DEFUN STRING-TO-DATE ...)
; processing (DEFUN STRING-TO-SECONDS ...)
; processing (DEFUN STRING-TO-UNIVERSAL-TIME ...)
; file: /gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/share/common-lisp/sbcl/cl-mysql/mysql.lisp
; in: DEFUN STRING-TO-UNIVERSAL-TIME
; (+ (COM.HACKINGHAT.CL-MYSQL-SYSTEM:STRING-TO-DATE (SUBSEQ STRING 0 10))
; (COM.HACKINGHAT.CL-MYSQL-SYSTEM:STRING-TO-SECONDS (SUBSEQ STRING 11)))
; --> MULTIPLE-VALUE-BIND LET UNLESS IF OR LET
; ==>
; (TYPEP #:G12 'UNSIGNED-BYTE)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The second argument is a (OR NULL (INTEGER -3023999 3023999)), not a FIXNUM.
; The result is a (VALUES (INTEGER -3023999) &OPTIONAL), not a (VALUES
; FIXNUM
; &REST T).
; unable to do inline (signed-byte 32) arithmetic (cost 5) because:
; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32).
; The second argument is a (OR NULL (INTEGER -3023999 3023999)), not a (SIGNED-BYTE
; 32).
; The result is a (VALUES (INTEGER -3023999) &OPTIONAL), not a (VALUES
; (SIGNED-BYTE
; 32)
; &REST T).
; etc.
; processing (MAPCAR (LAMBDA # ...) ...)
; processing (DEFINE-CONDITION MYSQL-ERROR ...)
; processing (DEFINE-CONDITION CL-MYSQL-ERROR ...)
; processing (DEFUN ERROR-IF-NON-ZERO ...)
; processing (DEFUN ERROR-IF-NULL ...)
; processing (DEFUN ERROR-IF-NULL-WITH-FIELDS ...)
; processing (DEFUN ERROR-IF-SET ...)
; processing (DEFMACRO WITH-CONNECTION ...)
; processing (DEFUN USE ...)
; processing (DEFUN DECODE-VERSION ...)
; processing (DEFUN CLIENT-VERSION ...)
; processing (DEFUN SERVER-VERSION ...)
; processing (DEFUN SINGLE-RESULT-SET ...)
; processing (DEFUN LIST-DBS ...)
; processing (DEFUN LIST-TABLES ...)
; processing (DEFUN LIST-FIELDS ...)
; processing (DEFUN LIST-PROCESSES ...)
; processing (DEFUN ESCAPE-STRING ...)
; processing (DEFUN CFFI-UTF8-LENGTH ...)
; processing (DEFUN GET-CHARACTER-SET-INFO ...)
; file: /gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/share/common-lisp/sbcl/cl-mysql/mysql.lisp
; in: DEFUN GET-CHARACTER-SET-INFO
; (CFFI:WITH-FOREIGN-OBJECT (COM.HACKINGHAT.CL-MYSQL-SYSTEM::CHARSET
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::CHARACTER-SET)
; (COM.HACKINGHAT.CL-MYSQL-SYSTEM::MYSQL-GET-CHARACTER-SET-INFO
; (COM.HACKINGHAT.CL-MYSQL-SYSTEM:POINTER
; COM.HACKINGHAT.CL-MYSQL-SYSTEM::CONN)
; COM.HACKINGHAT.CL-MYSQL-SYSTEM::CHARSET)
; (LIST
; (CFFI:FOREIGN-SLOT-VALUE COM.HACKINGHAT.CL-MYSQL-SYSTEM::CHARSET
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::CHARACTER-SET
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::CSNAME)
; (CFFI:FOREIGN-SLOT-VALUE COM.HACKINGHAT.CL-MYSQL-SYSTEM::CHARSET
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::CHARACTER-SET
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::NAME)
; (CFFI:FOREIGN-SLOT-VALUE COM.HACKINGHAT.CL-MYSQL-SYSTEM::CHARSET
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::CHARACTER-SET
; 'NUMBER)
; (CFFI:FOREIGN-SLOT-VALUE COM.HACKINGHAT.CL-MYSQL-SYSTEM::CHARSET
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::CHARACTER-SET
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::STATE)))
;
; caught STYLE-WARNING:
; bare references to struct types are deprecated. Please use (:POINTER
; (:STRUCT
; CHARACTER-SET)) or (:STRUCT
; CHARACTER-SET) instead.
; (CFFI:FOREIGN-SLOT-VALUE COM.HACKINGHAT.CL-MYSQL-SYSTEM::CHARSET
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::CHARACTER-SET
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::CSNAME)
;
; caught STYLE-WARNING:
; bare references to struct types are deprecated. Please use (:POINTER
; (:STRUCT
; CHARACTER-SET)) or (:STRUCT
; CHARACTER-SET) instead.
; (CFFI:FOREIGN-SLOT-VALUE COM.HACKINGHAT.CL-MYSQL-SYSTEM::CHARSET
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::CHARACTER-SET
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::NAME)
;
; caught STYLE-WARNING:
; bare references to struct types are deprecated. Please use (:POINTER
; (:STRUCT
; CHARACTER-SET)) or (:STRUCT
; CHARACTER-SET) instead.
; (CFFI:FOREIGN-SLOT-VALUE COM.HACKINGHAT.CL-MYSQL-SYSTEM::CHARSET
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::CHARACTER-SET
; 'NUMBER)
;
; caught STYLE-WARNING:
; bare references to struct types are deprecated. Please use (:POINTER
; (:STRUCT
; CHARACTER-SET)) or (:STRUCT
; CHARACTER-SET) instead.
; (CFFI:FOREIGN-SLOT-VALUE COM.HACKINGHAT.CL-MYSQL-SYSTEM::CHARSET
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::CHARACTER-SET
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::STATE)
;
; caught STYLE-WARNING:
; bare references to struct types are deprecated. Please use (:POINTER
; (:STRUCT
; CHARACTER-SET)) or (:STRUCT
; CHARACTER-SET) instead.
; processing (DEFUN SET-CHARACTER-SET ...)
; processing (DEFPARAMETER *BINARY-TYPES* ...)
; processing (DECLAIM (INLINE EXTRACT-FIELD ...))
; file: /gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/share/common-lisp/sbcl/cl-mysql/mysql.lisp
; in: DECLAIM (INLINE EXTRACT-FIELD PROCESS-ROW)
; (DECLAIM
; (INLINE COM.HACKINGHAT.CL-MYSQL-SYSTEM:EXTRACT-FIELD
; COM.HACKINGHAT.CL-MYSQL-SYSTEM::PROCESS-ROW))
; --> EVAL-WHEN
; ==>
; (SB-C::%PROCLAIM
; '(INLINE COM.HACKINGHAT.CL-MYSQL-SYSTEM:EXTRACT-FIELD
; COM.HACKINGHAT.CL-MYSQL-SYSTEM::PROCESS-ROW)
; (SB-C:SOURCE-LOCATION))
;
; caught STYLE-WARNING:
; Proclaiming COM.HACKINGHAT.CL-MYSQL-SYSTEM::PROCESS-ROW to be INLINE, but 2
; calls to it were previously compiled. A declaration of NOTINLINE at the call
; sites will eliminate this warning, as will proclaiming and defining the
; function before its first potential use.
; processing (DEFUN EXTRACT-FIELD ...)
; file: /gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/share/common-lisp/sbcl/cl-mysql/mysql.lisp
; in: DEFUN EXTRACT-FIELD
; (FUNCALL COM.HACKINGHAT.CL-MYSQL-SYSTEM::FN
; (CFFI:MEM-REF COM.HACKINGHAT.CL-MYSQL-SYSTEM::ROW :STRING
; COM.HACKINGHAT.CL-MYSQL-SYSTEM::FIELD-INDEX)
; COM.HACKINGHAT.CL-MYSQL-SYSTEM::FIELD-LENGTH)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; FN is not known to be a function
; (EQL COM.HACKINGHAT.CL-MYSQL-SYSTEM::FIELD-LENGTH 0)
; --> COM.HACKINGHAT.CL-MYSQL-SYSTEM::FIELD-LENGTH MULTIPLE-VALUE-BIND LET
; --> UNLESS IF AND IF LOCALLY AND IF
; ==>
; (>= (TRULY-THE INTEGER #:G77) 0)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; etc.
; (CFFI:MEM-REF COM.HACKINGHAT.CL-MYSQL-SYSTEM::ROW :STRING
; COM.HACKINGHAT.CL-MYSQL-SYSTEM::FIELD-INDEX)
;
; note: doing SAP to pointer coercion (cost 20)
;
; note: doing SAP to pointer coercion (cost 20)
; processing (DEFUN PROCESS-ROW ...)
; file: /gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/share/common-lisp/sbcl/cl-mysql/mysql.lisp
; in: DEFUN PROCESS-ROW
; (CFFI:MEM-AREF COM.HACKINGHAT.CL-MYSQL-SYSTEM::MYSQL-LENS :UNSIGNED-LONG
; (/ COM.HACKINGHAT.CL-MYSQL-SYSTEM::I
; COM.HACKINGHAT.CL-MYSQL-SYSTEM::INT-SIZE))
;
; note: unable to
; recode as leas, shifts and adds
; due to type uncertainty:
; The first argument is a (RATIONAL 0 1048576), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (RATIONAL 0 4194304) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &REST T).
;
; note: unable to
; recode as leas, shifts and adds
; due to type uncertainty:
; The first argument is a (RATIONAL 0 1048576), not a FIXNUM.
; The result is a (VALUES (RATIONAL 0 4194304) &OPTIONAL), not a (VALUES FIXNUM
; &REST
; T).
;
; note: unable to
; convert x*2^k to shift
; due to type uncertainty:
; The first argument is a (RATIONAL 0 1048576), not a INTEGER.
; (COM.HACKINGHAT.CL-MYSQL-SYSTEM:EXTRACT-FIELD
; COM.HACKINGHAT.CL-MYSQL-SYSTEM::ROW COM.HACKINGHAT.CL-MYSQL-SYSTEM::I
; (CFFI:MEM-AREF COM.HACKINGHAT.CL-MYSQL-SYSTEM::MYSQL-LENS :UNSIGNED-LONG
; (/ COM.HACKINGHAT.CL-MYSQL-SYSTEM::I
; COM.HACKINGHAT.CL-MYSQL-SYSTEM::INT-SIZE))
; COM.HACKINGHAT.CL-MYSQL-SYSTEM::TYPE-MAP COM.HACKINGHAT.CL-MYSQL-SYSTEM::F)
; --> BLOCK DESTRUCTURING-BIND SB-INT:BINDING* LET* IF LET
; ==>
; (VALUES
; (IF COM.HACKINGHAT.CL-MYSQL-SYSTEM::FN
; (FUNCALL COM.HACKINGHAT.CL-MYSQL-SYSTEM::FN
; (CFFI:MEM-REF COM.HACKINGHAT.CL-MYSQL-SYSTEM::ROW :STRING
; COM.HACKINGHAT.CL-MYSQL-SYSTEM::FIELD-INDEX)
; COM.HACKINGHAT.CL-MYSQL-SYSTEM::FIELD-LENGTH)
; (CFFI:MEM-REF COM.HACKINGHAT.CL-MYSQL-SYSTEM::ROW :STRING
; COM.HACKINGHAT.CL-MYSQL-SYSTEM::FIELD-INDEX)))
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; FN is not known to be a function
; (CFFI:MEM-AREF COM.HACKINGHAT.CL-MYSQL-SYSTEM::MYSQL-LENS :UNSIGNED-LONG
; (/ COM.HACKINGHAT.CL-MYSQL-SYSTEM::I
; COM.HACKINGHAT.CL-MYSQL-SYSTEM::INT-SIZE))
;
; note: forced to do GENERIC-* (cost 30)
; unable to do inline fixnum arithmetic (cost 3) because:
; The first argument is a (RATIONAL 0 1048576), not a FIXNUM.
; The result is a (VALUES (RATIONAL 0 4194304) &OPTIONAL), not a (VALUES
; FIXNUM
; &REST T).
; unable to do inline fixnum arithmetic (cost 4) because:
; The first argument is a (RATIONAL 0 1048576), not a FIXNUM.
; The result is a (VALUES (RATIONAL 0 4194304) &OPTIONAL), not a (VALUES
; FIXNUM
; &REST T).
; etc.
; (COM.HACKINGHAT.CL-MYSQL-SYSTEM:EXTRACT-FIELD
; COM.HACKINGHAT.CL-MYSQL-SYSTEM::ROW COM.HACKINGHAT.CL-MYSQL-SYSTEM::I
; (CFFI:MEM-AREF COM.HACKINGHAT.CL-MYSQL-SYSTEM::MYSQL-LENS :UNSIGNED-LONG
; (/ COM.HACKINGHAT.CL-MYSQL-SYSTEM::I
; COM.HACKINGHAT.CL-MYSQL-SYSTEM::INT-SIZE))
; COM.HACKINGHAT.CL-MYSQL-SYSTEM::TYPE-MAP COM.HACKINGHAT.CL-MYSQL-SYSTEM::F)
; --> BLOCK DESTRUCTURING-BIND SB-INT:BINDING* LET* IF LET
; ==>
; (VALUES
; (IF COM.HACKINGHAT.CL-MYSQL-SYSTEM::FN
; (FUNCALL COM.HACKINGHAT.CL-MYSQL-SYSTEM::FN
; (CFFI:MEM-REF COM.HACKINGHAT.CL-MYSQL-SYSTEM::ROW :STRING
; COM.HACKINGHAT.CL-MYSQL-SYSTEM::FIELD-INDEX)
; COM.HACKINGHAT.CL-MYSQL-SYSTEM::FIELD-LENGTH)
; (CFFI:MEM-REF COM.HACKINGHAT.CL-MYSQL-SYSTEM::ROW :STRING
; COM.HACKINGHAT.CL-MYSQL-SYSTEM::FIELD-INDEX)))
;
; note: doing SAP to pointer coercion (cost 20)
;
; note: doing SAP to pointer coercion (cost 20)
;
; note: doing unsigned word to integer coercion (cost 20)
; processing (DEFUN QUERY ...)
; processing (DEFUN PING ...)
; processing (DEFUN %SET-STRING-OPTION ...)
; processing (DEFUN %SET-INT-OPTION ...)
; processing (DEFUN OPTION ...)
; processing (DEFUN GET-FIELD ...)
; processing (DEFUN FORCE-KILL ...)
; processing (DEFUN NTH-ROW ...)
; processing (DEFMACRO WITH-ROWS ...)
; wrote /gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/lib/common-lisp/sbcl/cl-mysql/mysql-tmpUPMG0IBO.fasl
; compilation finished in 0:00:00.376
WARNING:
Lisp compilation had style-warnings while
compiling #
; compiling file "/gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/share/common-lisp/sbcl/cl-mysql/prepare.lisp" (written 01 JAN 1970 12:00:01 AM):
; processing (IN-PACKAGE "CL-MYSQL-SYSTEM")
; processing (DEFPARAMETER *DEFAULT-SEQUENCE-LENGTH* ...)
; processing (DEFCLASS STATEMENT ...)
; processing (DEFMETHOD BIND-ARG ...)
; file: /gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/share/common-lisp/sbcl/cl-mysql/prepare.lisp
; in: DEFMETHOD BIND-ARG (STATEMENT T)
; (CFFI:MEM-AREF
; (COM.HACKINGHAT.CL-MYSQL-SYSTEM::ARGS COM.HACKINGHAT.CL-MYSQL-SYSTEM::SELF)
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::MYSQL-BIND
; COM.HACKINGHAT.CL-MYSQL-SYSTEM::INDEX)
;
; caught STYLE-WARNING:
; bare references to struct types are deprecated. Please use (:POINTER
; (:STRUCT
; MYSQL-BIND)) or (:STRUCT
; MYSQL-BIND) instead.
; ==>
; (CFFI:MEM-REF
; (COM.HACKINGHAT.CL-MYSQL-SYSTEM::ARGS COM.HACKINGHAT.CL-MYSQL-SYSTEM::SELF)
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::MYSQL-BIND
; (* COM.HACKINGHAT.CL-MYSQL-SYSTEM::INDEX 60))
;
; caught STYLE-WARNING:
; bare references to struct types are deprecated. Please use (:POINTER
; (:STRUCT
; MYSQL-BIND)) or (:STRUCT
; MYSQL-BIND) instead.
; processing (DEFMETHOD CONFIGURE-BINDINGS ...)
; file: /gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/share/common-lisp/sbcl/cl-mysql/prepare.lisp
; in: DEFMETHOD CONFIGURE-BINDINGS (STATEMENT T)
; (CFFI:FOREIGN-ALLOC 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::MYSQL-BIND :COUNT
; COM.HACKINGHAT.CL-MYSQL-SYSTEM::NARGS)
;
; caught STYLE-WARNING:
; bare references to struct types are deprecated. Please use (:POINTER
; (:STRUCT
; MYSQL-BIND)) or (:STRUCT
; MYSQL-BIND) instead.
; processing (DEFUN PREPARE ...)
; processing (DEFMETHOD SQLSTATE ...)
; processing (DEFMETHOD PARAM-COUNT ...)
; processing (DEFPARAMETER *STMT-CTYPE-MAP* ...)
; processing (MAPCAR (LAMBDA # ...) ...)
; processing (DEFMETHOD NEXT-INDEX ...)
; processing (DEFMETHOD RELEASE-BINDING ...)
; processing (DEFMETHOD CLOSE-STATEMENT ...)
; processing (DEFUN REPEAT-CHAR ...)
; processing (DEFMETHOD BIND ...)
; file: /gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/share/common-lisp/sbcl/cl-mysql/prepare.lisp
; in: DEFMETHOD BIND (STATEMENT T)
; (SETF (CFFI:FOREIGN-SLOT-VALUE COM.HACKINGHAT.CL-MYSQL-SYSTEM::ARG
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::MYSQL-BIND
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::BUFFER)
; (COND
; ((EQ :STRING COM.HACKINGHAT.CL-MYSQL-SYSTEM::C-TYPE)
; (CFFI:FOREIGN-ALLOC :CHAR :COUNT
; COM.HACKINGHAT.CL-MYSQL-SYSTEM::MAX-LEN))
; (T (CFFI:FOREIGN-ALLOC COM.HACKINGHAT.CL-MYSQL-SYSTEM::C-TYPE))))
; --> LET*
; ==>
; (CFFI::FOREIGN-SLOT-SET #:STORE9 COM.HACKINGHAT.CL-MYSQL-SYSTEM::ARG
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::MYSQL-BIND
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::BUFFER)
;
; caught STYLE-WARNING:
; bare references to struct types are deprecated. Please use (:POINTER
; (:STRUCT
; MYSQL-BIND)) or (:STRUCT
; MYSQL-BIND) instead.
; (SETF (CFFI:FOREIGN-SLOT-VALUE COM.HACKINGHAT.CL-MYSQL-SYSTEM::ARG
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::MYSQL-BIND
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::BUFFER-TYPE)
; (CFFI:FOREIGN-ENUM-VALUE
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::ENUM-FIELD-TYPES
; COM.HACKINGHAT.CL-MYSQL-SYSTEM::SQL-TYPE)
; (CFFI:FOREIGN-SLOT-VALUE COM.HACKINGHAT.CL-MYSQL-SYSTEM::ARG
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::MYSQL-BIND
; 'LENGTH)
; (CFFI:FOREIGN-ALLOC :INT)
; (CFFI:FOREIGN-SLOT-VALUE COM.HACKINGHAT.CL-MYSQL-SYSTEM::ARG
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::MYSQL-BIND
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::IS-NULL)
; (CFFI:FOREIGN-ALLOC :CHAR)
; (CFFI:FOREIGN-SLOT-VALUE COM.HACKINGHAT.CL-MYSQL-SYSTEM::ARG
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::MYSQL-BIND
; 'ERROR)
; (CFFI:FOREIGN-ALLOC :CHAR)
; (ELT
; (COM.HACKINGHAT.CL-MYSQL-SYSTEM:BOUND-MAP
; COM.HACKINGHAT.CL-MYSQL-SYSTEM::SELF)
; COM.HACKINGHAT.CL-MYSQL-SYSTEM::INDEX)
; T)
; --> PROGN SETF LET*
; ==>
; (CFFI::FOREIGN-SLOT-SET #:STORE22 COM.HACKINGHAT.CL-MYSQL-SYSTEM::ARG
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::MYSQL-BIND
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::BUFFER-TYPE)
;
; caught STYLE-WARNING:
; bare references to struct types are deprecated. Please use (:POINTER
; (:STRUCT
; MYSQL-BIND)) or (:STRUCT
; MYSQL-BIND) instead.
; ==>
; (CFFI::FOREIGN-SLOT-SET #:STORE27 COM.HACKINGHAT.CL-MYSQL-SYSTEM::ARG
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::MYSQL-BIND 'LENGTH)
;
; caught STYLE-WARNING:
; bare references to struct types are deprecated. Please use (:POINTER
; (:STRUCT
; MYSQL-BIND)) or (:STRUCT
; MYSQL-BIND) instead.
; ==>
; (CFFI::FOREIGN-SLOT-SET #:STORE32 COM.HACKINGHAT.CL-MYSQL-SYSTEM::ARG
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::MYSQL-BIND
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::IS-NULL)
;
; caught STYLE-WARNING:
; bare references to struct types are deprecated. Please use (:POINTER
; (:STRUCT
; MYSQL-BIND)) or (:STRUCT
; MYSQL-BIND) instead.
; ==>
; (CFFI::FOREIGN-SLOT-SET #:STORE37 COM.HACKINGHAT.CL-MYSQL-SYSTEM::ARG
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::MYSQL-BIND 'ERROR)
;
; caught STYLE-WARNING:
; bare references to struct types are deprecated. Please use (:POINTER
; (:STRUCT
; MYSQL-BIND)) or (:STRUCT
; MYSQL-BIND) instead.
; processing (DEFMETHOD BOUND-UNBOUND-TO-STRING ...)
; processing (DEFMETHOD BOUND-PARAMETER-P ...)
; processing (DEFMETHOD ASSIGN-BOUND-ARGUMENT ...)
; file: /gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/share/common-lisp/sbcl/cl-mysql/prepare.lisp
; in: DEFMETHOD ASSIGN-BOUND-ARGUMENT (STATEMENT T T)
; (CFFI:FOREIGN-SLOT-VALUE COM.HACKINGHAT.CL-MYSQL-SYSTEM::ARG
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::MYSQL-BIND
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::BUFFER)
;
; caught STYLE-WARNING:
; bare references to struct types are deprecated. Please use (:POINTER
; (:STRUCT
; MYSQL-BIND)) or (:STRUCT
; MYSQL-BIND) instead.
; (SETF (CFFI:MEM-REF
; (CFFI:FOREIGN-SLOT-VALUE COM.HACKINGHAT.CL-MYSQL-SYSTEM::ARG
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::MYSQL-BIND
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::BUFFER)
; COM.HACKINGHAT.CL-MYSQL-SYSTEM::BUFFER-C-TYPE)
; COM.HACKINGHAT.CL-MYSQL-SYSTEM::TYPE-ADJUSTED-VALUE)
; --> LET* CFFI::MEM-SET
; ==>
; (CFFI:FOREIGN-SLOT-VALUE COM.HACKINGHAT.CL-MYSQL-SYSTEM::ARG
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::MYSQL-BIND
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::BUFFER)
;
; caught STYLE-WARNING:
; bare references to struct types are deprecated. Please use (:POINTER
; (:STRUCT
; MYSQL-BIND)) or (:STRUCT
; MYSQL-BIND) instead.
; (SETF (CFFI:MEM-REF
; (CFFI:FOREIGN-SLOT-VALUE COM.HACKINGHAT.CL-MYSQL-SYSTEM::ARG
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::MYSQL-BIND
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::IS-NULL)
; :CHAR)
; COM.HACKINGHAT.CL-MYSQL-SYSTEM::IS-NULL
; (CFFI:MEM-REF
; (CFFI:FOREIGN-SLOT-VALUE COM.HACKINGHAT.CL-MYSQL-SYSTEM::ARG
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::MYSQL-BIND
; 'LENGTH)
; :INT)
; (COM.HACKINGHAT.CL-MYSQL-SYSTEM:CFFI-UTF8-LENGTH
; (CFFI:FOREIGN-SLOT-VALUE COM.HACKINGHAT.CL-MYSQL-SYSTEM::ARG
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::MYSQL-BIND
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::BUFFER))
; (CFFI:FOREIGN-SLOT-VALUE COM.HACKINGHAT.CL-MYSQL-SYSTEM::ARG
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::MYSQL-BIND
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::BUFFER-LENGTH)
; (COM.HACKINGHAT.CL-MYSQL-SYSTEM:CFFI-UTF8-LENGTH
; (CFFI:FOREIGN-SLOT-VALUE COM.HACKINGHAT.CL-MYSQL-SYSTEM::ARG
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::MYSQL-BIND
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::BUFFER)))
; --> PROGN SETF LET* CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF
; --> SB-KERNEL:%SET-SIGNED-SAP-REF-8
; ==>
; (CFFI:FOREIGN-SLOT-VALUE COM.HACKINGHAT.CL-MYSQL-SYSTEM::ARG
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::MYSQL-BIND
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::IS-NULL)
;
; caught STYLE-WARNING:
; bare references to struct types are deprecated. Please use (:POINTER
; (:STRUCT
; MYSQL-BIND)) or (:STRUCT
; MYSQL-BIND) instead.
; --> PROGN SETF LET* CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF
; --> SB-KERNEL:%SET-SIGNED-SAP-REF-32
; ==>
; (CFFI:FOREIGN-SLOT-VALUE COM.HACKINGHAT.CL-MYSQL-SYSTEM::ARG
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::MYSQL-BIND 'LENGTH)
;
; caught STYLE-WARNING:
; bare references to struct types are deprecated. Please use (:POINTER
; (:STRUCT
; MYSQL-BIND)) or (:STRUCT
; MYSQL-BIND) instead.
; (CFFI:FOREIGN-SLOT-VALUE COM.HACKINGHAT.CL-MYSQL-SYSTEM::ARG
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::MYSQL-BIND
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::BUFFER)
;
; caught STYLE-WARNING:
; bare references to struct types are deprecated. Please use (:POINTER
; (:STRUCT
; MYSQL-BIND)) or (:STRUCT
; MYSQL-BIND) instead.
; (SETF (CFFI:MEM-REF
; (CFFI:FOREIGN-SLOT-VALUE COM.HACKINGHAT.CL-MYSQL-SYSTEM::ARG
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::MYSQL-BIND
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::IS-NULL)
; :CHAR)
; COM.HACKINGHAT.CL-MYSQL-SYSTEM::IS-NULL
; (CFFI:MEM-REF
; (CFFI:FOREIGN-SLOT-VALUE COM.HACKINGHAT.CL-MYSQL-SYSTEM::ARG
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::MYSQL-BIND
; 'LENGTH)
; :INT)
; (COM.HACKINGHAT.CL-MYSQL-SYSTEM:CFFI-UTF8-LENGTH
; (CFFI:FOREIGN-SLOT-VALUE COM.HACKINGHAT.CL-MYSQL-SYSTEM::ARG
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::MYSQL-BIND
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::BUFFER))
; (CFFI:FOREIGN-SLOT-VALUE COM.HACKINGHAT.CL-MYSQL-SYSTEM::ARG
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::MYSQL-BIND
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::BUFFER-LENGTH)
; (COM.HACKINGHAT.CL-MYSQL-SYSTEM:CFFI-UTF8-LENGTH
; (CFFI:FOREIGN-SLOT-VALUE COM.HACKINGHAT.CL-MYSQL-SYSTEM::ARG
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::MYSQL-BIND
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::BUFFER)))
; --> PROGN SETF LET*
; ==>
; (CFFI::FOREIGN-SLOT-SET #:STORE33 COM.HACKINGHAT.CL-MYSQL-SYSTEM::ARG
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::MYSQL-BIND
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::BUFFER-LENGTH)
;
; caught STYLE-WARNING:
; bare references to struct types are deprecated. Please use (:POINTER
; (:STRUCT
; MYSQL-BIND)) or (:STRUCT
; MYSQL-BIND) instead.
; (CFFI:FOREIGN-SLOT-VALUE COM.HACKINGHAT.CL-MYSQL-SYSTEM::ARG
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::MYSQL-BIND
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::BUFFER)
;
; caught STYLE-WARNING:
; bare references to struct types are deprecated. Please use (:POINTER
; (:STRUCT
; MYSQL-BIND)) or (:STRUCT
; MYSQL-BIND) instead.
; (CFFI:FOREIGN-SLOT-VALUE COM.HACKINGHAT.CL-MYSQL-SYSTEM::ARG
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::MYSQL-BIND
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::BUFFER-TYPE)
;
; caught STYLE-WARNING:
; bare references to struct types are deprecated. Please use (:POINTER
; (:STRUCT
; MYSQL-BIND)) or (:STRUCT
; MYSQL-BIND) instead.
; (LET* ((COM.HACKINGHAT.CL-MYSQL-SYSTEM::ARG
; (COM.HACKINGHAT.CL-MYSQL-SYSTEM:BIND-ARG
; COM.HACKINGHAT.CL-MYSQL-SYSTEM::SELF
; COM.HACKINGHAT.CL-MYSQL-SYSTEM::INDEX))
; (COM.HACKINGHAT.CL-MYSQL-SYSTEM::BUFFER-TYPE
; (CFFI:FOREIGN-ENUM-KEYWORD
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::ENUM-FIELD-TYPES
; (CFFI:FOREIGN-SLOT-VALUE COM.HACKINGHAT.CL-MYSQL-SYSTEM::ARG
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::MYSQL-BIND
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::BUFFER-TYPE)))
; (COM.HACKINGHAT.CL-MYSQL-SYSTEM::BUFFER-C-TYPE
; (GETHASH COM.HACKINGHAT.CL-MYSQL-SYSTEM::BUFFER-TYPE
; COM.HACKINGHAT.CL-MYSQL-SYSTEM::*STMT-CTYPE-MAP*))
; (COM.HACKINGHAT.CL-MYSQL-SYSTEM::TYPE-ADJUSTED-VALUE
; (TYPECASE COM.HACKINGHAT.CL-MYSQL-SYSTEM::VALUE
; (STRING #)
; (T COM.HACKINGHAT.CL-MYSQL-SYSTEM::VALUE)))
; (COM.HACKINGHAT.CL-MYSQL-SYSTEM::IS-NULL
; (IF COM.HACKINGHAT.CL-MYSQL-SYSTEM::VALUE
; 0
; 1))
; (LENGTH
; (TYPECASE COM.HACKINGHAT.CL-MYSQL-SYSTEM::VALUE (STRING #) (T 0))))
; (IF (EQ :STRING COM.HACKINGHAT.CL-MYSQL-SYSTEM::BUFFER-C-TYPE)
; (CFFI:LISP-STRING-TO-FOREIGN
; COM.HACKINGHAT.CL-MYSQL-SYSTEM::TYPE-ADJUSTED-VALUE
; (CFFI:FOREIGN-SLOT-VALUE COM.HACKINGHAT.CL-MYSQL-SYSTEM::ARG
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::MYSQL-BIND
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::BUFFER)
; COM.HACKINGHAT.CL-MYSQL-SYSTEM::*DEFAULT-SEQUENCE-LENGTH*)
; (SETF (CFFI:MEM-REF # COM.HACKINGHAT.CL-MYSQL-SYSTEM::BUFFER-C-TYPE)
; COM.HACKINGHAT.CL-MYSQL-SYSTEM::TYPE-ADJUSTED-VALUE))
; (SETF (CFFI:MEM-REF
; (CFFI:FOREIGN-SLOT-VALUE COM.HACKINGHAT.CL-MYSQL-SYSTEM::ARG
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::MYSQL-BIND
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::IS-NULL)
; :CHAR)
; COM.HACKINGHAT.CL-MYSQL-SYSTEM::IS-NULL
; (CFFI:MEM-REF
; (CFFI:FOREIGN-SLOT-VALUE COM.HACKINGHAT.CL-MYSQL-SYSTEM::ARG
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::MYSQL-BIND
; 'LENGTH)
; :INT)
; (COM.HACKINGHAT.CL-MYSQL-SYSTEM:CFFI-UTF8-LENGTH
; (CFFI:FOREIGN-SLOT-VALUE COM.HACKINGHAT.CL-MYSQL-SYSTEM::ARG
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::MYSQL-BIND
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::BUFFER))
; (CFFI:FOREIGN-SLOT-VALUE COM.HACKINGHAT.CL-MYSQL-SYSTEM::ARG
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::MYSQL-BIND
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::BUFFER-LENGTH)
; (COM.HACKINGHAT.CL-MYSQL-SYSTEM:CFFI-UTF8-LENGTH
; (CFFI:FOREIGN-SLOT-VALUE COM.HACKINGHAT.CL-MYSQL-SYSTEM::ARG
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::MYSQL-BIND
; 'COM.HACKINGHAT.CL-MYSQL-SYSTEM::BUFFER))))
;
; caught STYLE-WARNING:
; The variable LENGTH is defined but never used.
; processing (DEFMETHOD EXECUTE ...)
; wrote /gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/lib/common-lisp/sbcl/cl-mysql/prepare-tmpAKM32D0F.fasl
; compilation finished in 0:00:00.160
WARNING:
Lisp compilation had style-warnings while
compiling #
; compiling file "/gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/share/common-lisp/sbcl/cl-mysql/package.lisp" (written 01 JAN 1970 12:00:01 AM):
; processing (DEFPACKAGE COM.HACKINGHAT.CL-MYSQL ...)
; wrote /gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/lib/common-lisp/sbcl/cl-mysql/package-tmp8UG37QJ5.fasl
; compilation finished in 0:00:00.004
;
; compilation unit finished
; caught 29 STYLE-WARNING conditions
; printed 54 notes
phase `build' succeeded after 2.3 seconds
starting phase `check'
test suite not run
phase `check' succeeded after 0.0 seconds
starting phase `create-asdf-configuration'
`/tmp/guix-build-sbcl-cl-mysql-0.1-1.ab56c27.drv-0/source/.cl-union/etc/common-lisp/source-registry.conf.d/50-fiveam.conf' -> `/gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/etc/common-lisp/source-registry.conf.d/50-fiveam.conf'
`/tmp/guix-build-sbcl-cl-mysql-0.1-1.ab56c27.drv-0/source/.cl-union/etc/common-lisp/source-registry.conf.d/50-babel.conf' -> `/gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/etc/common-lisp/source-registry.conf.d/50-babel.conf'
`/tmp/guix-build-sbcl-cl-mysql-0.1-1.ab56c27.drv-0/source/.cl-union/etc/common-lisp/source-registry.conf.d/50-iterate.conf' -> `/gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/etc/common-lisp/source-registry.conf.d/50-iterate.conf'
`/tmp/guix-build-sbcl-cl-mysql-0.1-1.ab56c27.drv-0/source/.cl-union/etc/common-lisp/source-registry.conf.d/50-hu.dwim.stefil.conf' -> `/gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/etc/common-lisp/source-registry.conf.d/50-hu.dwim.stefil.conf'
`/tmp/guix-build-sbcl-cl-mysql-0.1-1.ab56c27.drv-0/source/.cl-union/etc/common-lisp/source-registry.conf.d/50-slime-swank.conf' -> `/gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/etc/common-lisp/source-registry.conf.d/50-slime-swank.conf'
`/tmp/guix-build-sbcl-cl-mysql-0.1-1.ab56c27.drv-0/source/.cl-union/etc/common-lisp/source-registry.conf.d/50-alexandria.conf' -> `/gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/etc/common-lisp/source-registry.conf.d/50-alexandria.conf'
`/tmp/guix-build-sbcl-cl-mysql-0.1-1.ab56c27.drv-0/source/.cl-union/etc/common-lisp/source-registry.conf.d/50-bordeaux-threads.conf' -> `/gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/etc/common-lisp/source-registry.conf.d/50-bordeaux-threads.conf'
`/tmp/guix-build-sbcl-cl-mysql-0.1-1.ab56c27.drv-0/source/.cl-union/etc/common-lisp/source-registry.conf.d/50-hu.dwim.asdf.conf' -> `/gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/etc/common-lisp/source-registry.conf.d/50-hu.dwim.asdf.conf'
`/tmp/guix-build-sbcl-cl-mysql-0.1-1.ab56c27.drv-0/source/.cl-union/etc/common-lisp/source-registry.conf.d/50-trivial-backtrace.conf' -> `/gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/etc/common-lisp/source-registry.conf.d/50-trivial-backtrace.conf'
`/tmp/guix-build-sbcl-cl-mysql-0.1-1.ab56c27.drv-0/source/.cl-union/etc/common-lisp/source-registry.conf.d/50-cffi.conf' -> `/gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/etc/common-lisp/source-registry.conf.d/50-cffi.conf'
`/tmp/guix-build-sbcl-cl-mysql-0.1-1.ab56c27.drv-0/source/.cl-union/etc/common-lisp/source-registry.conf.d/50-trivial-features.conf' -> `/gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/etc/common-lisp/source-registry.conf.d/50-trivial-features.conf'
`/tmp/guix-build-sbcl-cl-mysql-0.1-1.ab56c27.drv-0/source/.cl-union/etc/common-lisp/source-registry.conf.d/50-rt.conf' -> `/gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/etc/common-lisp/source-registry.conf.d/50-rt.conf'
`/tmp/guix-build-sbcl-cl-mysql-0.1-1.ab56c27.drv-0/source/.cl-union/etc/common-lisp/source-registry.conf.d/50-net.didierverna.asdf-flv.conf' -> `/gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/etc/common-lisp/source-registry.conf.d/50-net.didierverna.asdf-flv.conf'
`/tmp/guix-build-sbcl-cl-mysql-0.1-1.ab56c27.drv-0/source/.cl-union/etc/common-lisp/source-registry.conf.d/50-stefil.conf' -> `/gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/etc/common-lisp/source-registry.conf.d/50-stefil.conf'
`/tmp/guix-build-sbcl-cl-mysql-0.1-1.ab56c27.drv-0/source/.cl-union/etc/common-lisp/source-registry.conf.d/50-lift.conf' -> `/gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/etc/common-lisp/source-registry.conf.d/50-lift.conf'
`/tmp/guix-build-sbcl-cl-mysql-0.1-1.ab56c27.drv-0/source/.cl-union/etc/common-lisp/source-registry.conf.d/50-metabang-bind.conf' -> `/gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/etc/common-lisp/source-registry.conf.d/50-metabang-bind.conf'
`/tmp/guix-build-sbcl-cl-mysql-0.1-1.ab56c27.drv-0/source/.cl-union/etc/common-lisp/asdf-output-translations.conf.d/50-fiveam.conf' -> `/gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/etc/common-lisp/asdf-output-translations.conf.d/50-fiveam.conf'
`/tmp/guix-build-sbcl-cl-mysql-0.1-1.ab56c27.drv-0/source/.cl-union/etc/common-lisp/asdf-output-translations.conf.d/50-babel.conf' -> `/gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/etc/common-lisp/asdf-output-translations.conf.d/50-babel.conf'
`/tmp/guix-build-sbcl-cl-mysql-0.1-1.ab56c27.drv-0/source/.cl-union/etc/common-lisp/asdf-output-translations.conf.d/50-iterate.conf' -> `/gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/etc/common-lisp/asdf-output-translations.conf.d/50-iterate.conf'
`/tmp/guix-build-sbcl-cl-mysql-0.1-1.ab56c27.drv-0/source/.cl-union/etc/common-lisp/asdf-output-translations.conf.d/50-hu.dwim.stefil.conf' -> `/gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/etc/common-lisp/asdf-output-translations.conf.d/50-hu.dwim.stefil.conf'
`/tmp/guix-build-sbcl-cl-mysql-0.1-1.ab56c27.drv-0/source/.cl-union/etc/common-lisp/asdf-output-translations.conf.d/50-slime-swank.conf' -> `/gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/etc/common-lisp/asdf-output-translations.conf.d/50-slime-swank.conf'
`/tmp/guix-build-sbcl-cl-mysql-0.1-1.ab56c27.drv-0/source/.cl-union/etc/common-lisp/asdf-output-translations.conf.d/50-alexandria.conf' -> `/gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/etc/common-lisp/asdf-output-translations.conf.d/50-alexandria.conf'
`/tmp/guix-build-sbcl-cl-mysql-0.1-1.ab56c27.drv-0/source/.cl-union/etc/common-lisp/asdf-output-translations.conf.d/50-bordeaux-threads.conf' -> `/gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/etc/common-lisp/asdf-output-translations.conf.d/50-bordeaux-threads.conf'
`/tmp/guix-build-sbcl-cl-mysql-0.1-1.ab56c27.drv-0/source/.cl-union/etc/common-lisp/asdf-output-translations.conf.d/50-hu.dwim.asdf.conf' -> `/gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/etc/common-lisp/asdf-output-translations.conf.d/50-hu.dwim.asdf.conf'
`/tmp/guix-build-sbcl-cl-mysql-0.1-1.ab56c27.drv-0/source/.cl-union/etc/common-lisp/asdf-output-translations.conf.d/50-trivial-backtrace.conf' -> `/gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/etc/common-lisp/asdf-output-translations.conf.d/50-trivial-backtrace.conf'
`/tmp/guix-build-sbcl-cl-mysql-0.1-1.ab56c27.drv-0/source/.cl-union/etc/common-lisp/asdf-output-translations.conf.d/50-cffi.conf' -> `/gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/etc/common-lisp/asdf-output-translations.conf.d/50-cffi.conf'
`/tmp/guix-build-sbcl-cl-mysql-0.1-1.ab56c27.drv-0/source/.cl-union/etc/common-lisp/asdf-output-translations.conf.d/50-trivial-features.conf' -> `/gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/etc/common-lisp/asdf-output-translations.conf.d/50-trivial-features.conf'
`/tmp/guix-build-sbcl-cl-mysql-0.1-1.ab56c27.drv-0/source/.cl-union/etc/common-lisp/asdf-output-translations.conf.d/50-rt.conf' -> `/gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/etc/common-lisp/asdf-output-translations.conf.d/50-rt.conf'
`/tmp/guix-build-sbcl-cl-mysql-0.1-1.ab56c27.drv-0/source/.cl-union/etc/common-lisp/asdf-output-translations.conf.d/50-net.didierverna.asdf-flv.conf' -> `/gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/etc/common-lisp/asdf-output-translations.conf.d/50-net.didierverna.asdf-flv.conf'
`/tmp/guix-build-sbcl-cl-mysql-0.1-1.ab56c27.drv-0/source/.cl-union/etc/common-lisp/asdf-output-translations.conf.d/50-stefil.conf' -> `/gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/etc/common-lisp/asdf-output-translations.conf.d/50-stefil.conf'
`/tmp/guix-build-sbcl-cl-mysql-0.1-1.ab56c27.drv-0/source/.cl-union/etc/common-lisp/asdf-output-translations.conf.d/50-lift.conf' -> `/gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/etc/common-lisp/asdf-output-translations.conf.d/50-lift.conf'
`/tmp/guix-build-sbcl-cl-mysql-0.1-1.ab56c27.drv-0/source/.cl-union/etc/common-lisp/asdf-output-translations.conf.d/50-metabang-bind.conf' -> `/gnu/store/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/etc/common-lisp/asdf-output-translations.conf.d/50-metabang-bind.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/59ccpv1wy2zqiyyv0p1wnl19cps3sgx5-sbcl-cl-mysql-0.1-1.ab56c27/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 0 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