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/afssx1p5hr49i0ak3jvnfpdi5sj7z139-sbcl-2.1.4/bin:/gnu/store/3lx5rw6aazp1cskcbmhd3mb842zanj88-tar-1.32/bin:/gnu/store/43y9wjllnr1sczwlfi0vxh27zp28zixh-gzip-1.10/bin:/gnu/store/mhbai8872azipnxr9lw3gr8jqxf6348j-bzip2-1.0.8/bin:/gnu/store/b2m3hnb7gr526jcs8xj0d7fig73qlhv0-xz-5.2.4/bin:/gnu/store/ivj4vx0mc2fz0ipi5knb32r6d992y0b0-file-5.38/bin:/gnu/store/hn05v0h7qiqdq59avr247a3wd8kpsvg0-diffutils-3.7/bin:/gnu/store/4s297bh5gg8dixd9n6xkw2z73cxd1v91-patch-2.7.6/bin:/gnu/store/9gawha19xlpkz9qk6z9lcgfxfq5bj27a-findutils-4.7.0/bin:/gnu/store/3d1n6zsw6zli7agb0ica7x4145haga4z-gawk-5.0.1/bin:/gnu/store/bqcvgh7q4316fynb9wg6akvlk9ikdjj5-sed-4.8/bin:/gnu/store/iqxcm511fivbrlik4i7ly3dxn53qm689-grep-3.4/bin:/gnu/store/x5z9z2d06w4yj4kq18i4b5q2yxg0w9dh-coreutils-8.32/bin:/gnu/store/igqylz2nzjk6x4ax07i6838jdp22yjm6-make-4.3/bin:/gnu/store/6ql2s2z4xnsj89zdf4zj6fch2zic0l7k-bash-minimal-5.0.16/bin:/gnu/store/2nygnpi7zns33k9k1dr3y0md5kg8b876-ld-wrapper-0/bin:/gnu/store/ghy9qhlb3ad9xmxxhfmdia643xfnhysa-binutils-2.34/bin:/gnu/store/h1cy6hq72yxnwi4nh0h1fjz8kxgfp8wy-gcc-7.5.0/bin:/gnu/store/sipyfs2540b48b2sb9j8ypmybja1dvqb-glibc-2.31/bin:/gnu/store/sipyfs2540b48b2sb9j8ypmybja1dvqb-glibc-2.31/sbin' environment variable `XDG_DATA_DIRS' set to `/gnu/store/afssx1p5hr49i0ak3jvnfpdi5sj7z139-sbcl-2.1.4/share:/gnu/store/5r9766bk2n9fxhc3vlfrj3c8h59bkxw8-sbcl-flexi-streams-1.0.18/share:/gnu/store/3lx5rw6aazp1cskcbmhd3mb842zanj88-tar-1.32/share:/gnu/store/43y9wjllnr1sczwlfi0vxh27zp28zixh-gzip-1.10/share:/gnu/store/mhbai8872azipnxr9lw3gr8jqxf6348j-bzip2-1.0.8/share:/gnu/store/b2m3hnb7gr526jcs8xj0d7fig73qlhv0-xz-5.2.4/share:/gnu/store/ivj4vx0mc2fz0ipi5knb32r6d992y0b0-file-5.38/share:/gnu/store/hn05v0h7qiqdq59avr247a3wd8kpsvg0-diffutils-3.7/share:/gnu/store/4s297bh5gg8dixd9n6xkw2z73cxd1v91-patch-2.7.6/share:/gnu/store/9gawha19xlpkz9qk6z9lcgfxfq5bj27a-findutils-4.7.0/share:/gnu/store/3d1n6zsw6zli7agb0ica7x4145haga4z-gawk-5.0.1/share:/gnu/store/bqcvgh7q4316fynb9wg6akvlk9ikdjj5-sed-4.8/share:/gnu/store/iqxcm511fivbrlik4i7ly3dxn53qm689-grep-3.4/share:/gnu/store/x5z9z2d06w4yj4kq18i4b5q2yxg0w9dh-coreutils-8.32/share:/gnu/store/igqylz2nzjk6x4ax07i6838jdp22yjm6-make-4.3/share:/gnu/store/6ql2s2z4xnsj89zdf4zj6fch2zic0l7k-bash-minimal-5.0.16/share:/gnu/store/ghy9qhlb3ad9xmxxhfmdia643xfnhysa-binutils-2.34/share:/gnu/store/h1cy6hq72yxnwi4nh0h1fjz8kxgfp8wy-gcc-7.5.0/share:/gnu/store/sipyfs2540b48b2sb9j8ypmybja1dvqb-glibc-2.31/share:/gnu/store/q5xs9789fyb5rnnr1nvq3zjd8biif14y-glibc-2.31-static/share:/gnu/store/sg9ks2n9ikj4952zmf2g851g206zb0r9-linux-libre-headers-5.4.20/share' environment variable `XDG_CONFIG_DIRS' set to `/gnu/store/5r9766bk2n9fxhc3vlfrj3c8h59bkxw8-sbcl-flexi-streams-1.0.18/etc:/gnu/store/3d1n6zsw6zli7agb0ica7x4145haga4z-gawk-5.0.1/etc:/gnu/store/sipyfs2540b48b2sb9j8ypmybja1dvqb-glibc-2.31/etc' environment variable `BASH_LOADABLES_PATH' unset environment variable `C_INCLUDE_PATH' set to `/gnu/store/mhbai8872azipnxr9lw3gr8jqxf6348j-bzip2-1.0.8/include:/gnu/store/b2m3hnb7gr526jcs8xj0d7fig73qlhv0-xz-5.2.4/include:/gnu/store/ivj4vx0mc2fz0ipi5knb32r6d992y0b0-file-5.38/include:/gnu/store/3d1n6zsw6zli7agb0ica7x4145haga4z-gawk-5.0.1/include:/gnu/store/igqylz2nzjk6x4ax07i6838jdp22yjm6-make-4.3/include:/gnu/store/ghy9qhlb3ad9xmxxhfmdia643xfnhysa-binutils-2.34/include:/gnu/store/h1cy6hq72yxnwi4nh0h1fjz8kxgfp8wy-gcc-7.5.0/include:/gnu/store/sipyfs2540b48b2sb9j8ypmybja1dvqb-glibc-2.31/include:/gnu/store/sg9ks2n9ikj4952zmf2g851g206zb0r9-linux-libre-headers-5.4.20/include' environment variable `CPLUS_INCLUDE_PATH' set to `/gnu/store/mhbai8872azipnxr9lw3gr8jqxf6348j-bzip2-1.0.8/include:/gnu/store/b2m3hnb7gr526jcs8xj0d7fig73qlhv0-xz-5.2.4/include:/gnu/store/ivj4vx0mc2fz0ipi5knb32r6d992y0b0-file-5.38/include:/gnu/store/3d1n6zsw6zli7agb0ica7x4145haga4z-gawk-5.0.1/include:/gnu/store/igqylz2nzjk6x4ax07i6838jdp22yjm6-make-4.3/include:/gnu/store/ghy9qhlb3ad9xmxxhfmdia643xfnhysa-binutils-2.34/include:/gnu/store/h1cy6hq72yxnwi4nh0h1fjz8kxgfp8wy-gcc-7.5.0/include/c++:/gnu/store/h1cy6hq72yxnwi4nh0h1fjz8kxgfp8wy-gcc-7.5.0/include:/gnu/store/sipyfs2540b48b2sb9j8ypmybja1dvqb-glibc-2.31/include:/gnu/store/sg9ks2n9ikj4952zmf2g851g206zb0r9-linux-libre-headers-5.4.20/include' environment variable `LIBRARY_PATH' set to `/gnu/store/afssx1p5hr49i0ak3jvnfpdi5sj7z139-sbcl-2.1.4/lib:/gnu/store/5r9766bk2n9fxhc3vlfrj3c8h59bkxw8-sbcl-flexi-streams-1.0.18/lib:/gnu/store/mhbai8872azipnxr9lw3gr8jqxf6348j-bzip2-1.0.8/lib:/gnu/store/b2m3hnb7gr526jcs8xj0d7fig73qlhv0-xz-5.2.4/lib:/gnu/store/ivj4vx0mc2fz0ipi5knb32r6d992y0b0-file-5.38/lib:/gnu/store/3d1n6zsw6zli7agb0ica7x4145haga4z-gawk-5.0.1/lib:/gnu/store/ghy9qhlb3ad9xmxxhfmdia643xfnhysa-binutils-2.34/lib:/gnu/store/sipyfs2540b48b2sb9j8ypmybja1dvqb-glibc-2.31/lib:/gnu/store/q5xs9789fyb5rnnr1nvq3zjd8biif14y-glibc-2.31-static/lib:/gnu/store/aybfkaw4fasp8hk1hzk3npmi952g11a3-glibc-utf8-locales-2.31/lib' environment variable `GUIX_LOCPATH' set to `/gnu/store/aybfkaw4fasp8hk1hzk3npmi952g11a3-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/j1yzzcbkzxznfggxq458vqshgd9wdj0r-sbcl-chipz-0.8-1.75dfbc6-checkout/chipz.asd' -> `./chipz.asd' `/gnu/store/j1yzzcbkzxznfggxq458vqshgd9wdj0r-sbcl-chipz-0.8-1.75dfbc6-checkout/tests.lisp' -> `./tests.lisp' `/gnu/store/j1yzzcbkzxznfggxq458vqshgd9wdj0r-sbcl-chipz-0.8-1.75dfbc6-checkout/LICENSE' -> `./LICENSE' `/gnu/store/j1yzzcbkzxznfggxq458vqshgd9wdj0r-sbcl-chipz-0.8-1.75dfbc6-checkout/inflate-state.lisp' -> `./inflate-state.lisp' `/gnu/store/j1yzzcbkzxznfggxq458vqshgd9wdj0r-sbcl-chipz-0.8-1.75dfbc6-checkout/conditions.lisp' -> `./conditions.lisp' `/gnu/store/j1yzzcbkzxznfggxq458vqshgd9wdj0r-sbcl-chipz-0.8-1.75dfbc6-checkout/dstate.lisp' -> `./dstate.lisp' `/gnu/store/j1yzzcbkzxznfggxq458vqshgd9wdj0r-sbcl-chipz-0.8-1.75dfbc6-checkout/types-and-tables.lisp' -> `./types-and-tables.lisp' `/gnu/store/j1yzzcbkzxznfggxq458vqshgd9wdj0r-sbcl-chipz-0.8-1.75dfbc6-checkout/gzip.lisp' -> `./gzip.lisp' `/gnu/store/j1yzzcbkzxznfggxq458vqshgd9wdj0r-sbcl-chipz-0.8-1.75dfbc6-checkout/constants.lisp' -> `./constants.lisp' `/gnu/store/j1yzzcbkzxznfggxq458vqshgd9wdj0r-sbcl-chipz-0.8-1.75dfbc6-checkout/zlib.lisp' -> `./zlib.lisp' `/gnu/store/j1yzzcbkzxznfggxq458vqshgd9wdj0r-sbcl-chipz-0.8-1.75dfbc6-checkout/decompress.lisp' -> `./decompress.lisp' `/gnu/store/j1yzzcbkzxznfggxq458vqshgd9wdj0r-sbcl-chipz-0.8-1.75dfbc6-checkout/bzip2.lisp' -> `./bzip2.lisp' `/gnu/store/j1yzzcbkzxznfggxq458vqshgd9wdj0r-sbcl-chipz-0.8-1.75dfbc6-checkout/.gitignore' -> `./.gitignore' `/gnu/store/j1yzzcbkzxznfggxq458vqshgd9wdj0r-sbcl-chipz-0.8-1.75dfbc6-checkout/NEWS' -> `./NEWS' `/gnu/store/j1yzzcbkzxznfggxq458vqshgd9wdj0r-sbcl-chipz-0.8-1.75dfbc6-checkout/adler32.lisp' -> `./adler32.lisp' `/gnu/store/j1yzzcbkzxznfggxq458vqshgd9wdj0r-sbcl-chipz-0.8-1.75dfbc6-checkout/package.lisp' -> `./package.lisp' `/gnu/store/j1yzzcbkzxznfggxq458vqshgd9wdj0r-sbcl-chipz-0.8-1.75dfbc6-checkout/crc32.lisp' -> `./crc32.lisp' `/gnu/store/j1yzzcbkzxznfggxq458vqshgd9wdj0r-sbcl-chipz-0.8-1.75dfbc6-checkout/stream-fallback.lisp' -> `./stream-fallback.lisp' `/gnu/store/j1yzzcbkzxznfggxq458vqshgd9wdj0r-sbcl-chipz-0.8-1.75dfbc6-checkout/TODO' -> `./TODO' `/gnu/store/j1yzzcbkzxznfggxq458vqshgd9wdj0r-sbcl-chipz-0.8-1.75dfbc6-checkout/inflate.lisp' -> `./inflate.lisp' `/gnu/store/j1yzzcbkzxznfggxq458vqshgd9wdj0r-sbcl-chipz-0.8-1.75dfbc6-checkout/stream.lisp' -> `./stream.lisp' `/gnu/store/j1yzzcbkzxznfggxq458vqshgd9wdj0r-sbcl-chipz-0.8-1.75dfbc6-checkout/doc/index.html' -> `./doc/index.html' `/gnu/store/j1yzzcbkzxznfggxq458vqshgd9wdj0r-sbcl-chipz-0.8-1.75dfbc6-checkout/doc/style.css' -> `./doc/style.css' `/gnu/store/j1yzzcbkzxznfggxq458vqshgd9wdj0r-sbcl-chipz-0.8-1.75dfbc6-checkout/doc/chipz-doc.txt' -> `./doc/chipz-doc.txt' phase `unpack' 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' phase `patch-source-shebangs' succeeded after 0.0 seconds starting phase `copy-source' `/tmp/guix-build-sbcl-chipz-0.8-1.75dfbc6.drv-0/source/chipz.asd' -> `/gnu/store/cxxq6k48jfad4l7y1h89jw5br0cp24jj-sbcl-chipz-0.8-1.75dfbc6/share/common-lisp/source/chipz/chipz.asd' `/tmp/guix-build-sbcl-chipz-0.8-1.75dfbc6.drv-0/source/tests.lisp' -> `/gnu/store/cxxq6k48jfad4l7y1h89jw5br0cp24jj-sbcl-chipz-0.8-1.75dfbc6/share/common-lisp/source/chipz/tests.lisp' `/tmp/guix-build-sbcl-chipz-0.8-1.75dfbc6.drv-0/source/LICENSE' -> `/gnu/store/cxxq6k48jfad4l7y1h89jw5br0cp24jj-sbcl-chipz-0.8-1.75dfbc6/share/common-lisp/source/chipz/LICENSE' `/tmp/guix-build-sbcl-chipz-0.8-1.75dfbc6.drv-0/source/inflate-state.lisp' -> `/gnu/store/cxxq6k48jfad4l7y1h89jw5br0cp24jj-sbcl-chipz-0.8-1.75dfbc6/share/common-lisp/source/chipz/inflate-state.lisp' `/tmp/guix-build-sbcl-chipz-0.8-1.75dfbc6.drv-0/source/conditions.lisp' -> `/gnu/store/cxxq6k48jfad4l7y1h89jw5br0cp24jj-sbcl-chipz-0.8-1.75dfbc6/share/common-lisp/source/chipz/conditions.lisp' `/tmp/guix-build-sbcl-chipz-0.8-1.75dfbc6.drv-0/source/dstate.lisp' -> `/gnu/store/cxxq6k48jfad4l7y1h89jw5br0cp24jj-sbcl-chipz-0.8-1.75dfbc6/share/common-lisp/source/chipz/dstate.lisp' `/tmp/guix-build-sbcl-chipz-0.8-1.75dfbc6.drv-0/source/types-and-tables.lisp' -> `/gnu/store/cxxq6k48jfad4l7y1h89jw5br0cp24jj-sbcl-chipz-0.8-1.75dfbc6/share/common-lisp/source/chipz/types-and-tables.lisp' `/tmp/guix-build-sbcl-chipz-0.8-1.75dfbc6.drv-0/source/gzip.lisp' -> `/gnu/store/cxxq6k48jfad4l7y1h89jw5br0cp24jj-sbcl-chipz-0.8-1.75dfbc6/share/common-lisp/source/chipz/gzip.lisp' `/tmp/guix-build-sbcl-chipz-0.8-1.75dfbc6.drv-0/source/constants.lisp' -> `/gnu/store/cxxq6k48jfad4l7y1h89jw5br0cp24jj-sbcl-chipz-0.8-1.75dfbc6/share/common-lisp/source/chipz/constants.lisp' `/tmp/guix-build-sbcl-chipz-0.8-1.75dfbc6.drv-0/source/zlib.lisp' -> `/gnu/store/cxxq6k48jfad4l7y1h89jw5br0cp24jj-sbcl-chipz-0.8-1.75dfbc6/share/common-lisp/source/chipz/zlib.lisp' `/tmp/guix-build-sbcl-chipz-0.8-1.75dfbc6.drv-0/source/decompress.lisp' -> `/gnu/store/cxxq6k48jfad4l7y1h89jw5br0cp24jj-sbcl-chipz-0.8-1.75dfbc6/share/common-lisp/source/chipz/decompress.lisp' `/tmp/guix-build-sbcl-chipz-0.8-1.75dfbc6.drv-0/source/bzip2.lisp' -> `/gnu/store/cxxq6k48jfad4l7y1h89jw5br0cp24jj-sbcl-chipz-0.8-1.75dfbc6/share/common-lisp/source/chipz/bzip2.lisp' `/tmp/guix-build-sbcl-chipz-0.8-1.75dfbc6.drv-0/source/.gitignore' -> `/gnu/store/cxxq6k48jfad4l7y1h89jw5br0cp24jj-sbcl-chipz-0.8-1.75dfbc6/share/common-lisp/source/chipz/.gitignore' `/tmp/guix-build-sbcl-chipz-0.8-1.75dfbc6.drv-0/source/NEWS' -> `/gnu/store/cxxq6k48jfad4l7y1h89jw5br0cp24jj-sbcl-chipz-0.8-1.75dfbc6/share/common-lisp/source/chipz/NEWS' `/tmp/guix-build-sbcl-chipz-0.8-1.75dfbc6.drv-0/source/adler32.lisp' -> `/gnu/store/cxxq6k48jfad4l7y1h89jw5br0cp24jj-sbcl-chipz-0.8-1.75dfbc6/share/common-lisp/source/chipz/adler32.lisp' `/tmp/guix-build-sbcl-chipz-0.8-1.75dfbc6.drv-0/source/package.lisp' -> `/gnu/store/cxxq6k48jfad4l7y1h89jw5br0cp24jj-sbcl-chipz-0.8-1.75dfbc6/share/common-lisp/source/chipz/package.lisp' `/tmp/guix-build-sbcl-chipz-0.8-1.75dfbc6.drv-0/source/crc32.lisp' -> `/gnu/store/cxxq6k48jfad4l7y1h89jw5br0cp24jj-sbcl-chipz-0.8-1.75dfbc6/share/common-lisp/source/chipz/crc32.lisp' `/tmp/guix-build-sbcl-chipz-0.8-1.75dfbc6.drv-0/source/stream-fallback.lisp' -> `/gnu/store/cxxq6k48jfad4l7y1h89jw5br0cp24jj-sbcl-chipz-0.8-1.75dfbc6/share/common-lisp/source/chipz/stream-fallback.lisp' `/tmp/guix-build-sbcl-chipz-0.8-1.75dfbc6.drv-0/source/TODO' -> `/gnu/store/cxxq6k48jfad4l7y1h89jw5br0cp24jj-sbcl-chipz-0.8-1.75dfbc6/share/common-lisp/source/chipz/TODO' `/tmp/guix-build-sbcl-chipz-0.8-1.75dfbc6.drv-0/source/inflate.lisp' -> `/gnu/store/cxxq6k48jfad4l7y1h89jw5br0cp24jj-sbcl-chipz-0.8-1.75dfbc6/share/common-lisp/source/chipz/inflate.lisp' `/tmp/guix-build-sbcl-chipz-0.8-1.75dfbc6.drv-0/source/stream.lisp' -> `/gnu/store/cxxq6k48jfad4l7y1h89jw5br0cp24jj-sbcl-chipz-0.8-1.75dfbc6/share/common-lisp/source/chipz/stream.lisp' `/tmp/guix-build-sbcl-chipz-0.8-1.75dfbc6.drv-0/source/doc/index.html' -> `/gnu/store/cxxq6k48jfad4l7y1h89jw5br0cp24jj-sbcl-chipz-0.8-1.75dfbc6/share/common-lisp/source/chipz/doc/index.html' `/tmp/guix-build-sbcl-chipz-0.8-1.75dfbc6.drv-0/source/doc/style.css' -> `/gnu/store/cxxq6k48jfad4l7y1h89jw5br0cp24jj-sbcl-chipz-0.8-1.75dfbc6/share/common-lisp/source/chipz/doc/style.css' `/tmp/guix-build-sbcl-chipz-0.8-1.75dfbc6.drv-0/source/doc/chipz-doc.txt' -> `/gnu/store/cxxq6k48jfad4l7y1h89jw5br0cp24jj-sbcl-chipz-0.8-1.75dfbc6/share/common-lisp/source/chipz/doc/chipz-doc.txt' phase `copy-source' succeeded after 0.0 seconds starting phase `configure' warning: collision encountered: /gnu/store/2nygnpi7zns33k9k1dr3y0md5kg8b876-ld-wrapper-0/bin/ld /gnu/store/ghy9qhlb3ad9xmxxhfmdia643xfnhysa-binutils-2.34/bin/ld warning: choosing /gnu/store/2nygnpi7zns33k9k1dr3y0md5kg8b876-ld-wrapper-0/bin/ld phase `configure' succeeded after 1.0 seconds starting phase `patch-generated-file-shebangs' phase `patch-generated-file-shebangs' succeeded after 0.2 seconds starting phase `build' Invoking sbcl: "/gnu/store/afssx1p5hr49i0ak3jvnfpdi5sj7z139-sbcl-2.1.4/bin/sbcl" "--non-interactive" "--eval" "(require :asdf)" "--eval" "(asdf:load-asd (truename \"/gnu/store/cxxq6k48jfad4l7y1h89jw5br0cp24jj-sbcl-chipz-0.8-1.75dfbc6/share/common-lisp/sbcl/chipz/chipz.asd\"))" "--eval" "(asdf:compile-system \"chipz\")" 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/cxxq6k48jfad4l7y1h89jw5br0cp24jj-sbcl-chipz-0.8-1.75dfbc6/share/common-lisp/sbcl/chipz/package.lisp" (written 01 JAN 1970 12:00:01 AM): ; processing (DEFPACKAGE :CHIPZ ...) ; wrote /gnu/store/cxxq6k48jfad4l7y1h89jw5br0cp24jj-sbcl-chipz-0.8-1.75dfbc6/lib/common-lisp/sbcl/chipz/package-tmpGHU3ALSV.fasl ; compilation finished in 0:00:00.003 ; compiling file "/gnu/store/cxxq6k48jfad4l7y1h89jw5br0cp24jj-sbcl-chipz-0.8-1.75dfbc6/share/common-lisp/sbcl/chipz/constants.lisp" (written 01 JAN 1970 12:00:01 AM): ; processing (IN-PACKAGE :CHIPZ) ; processing (DEFMACRO DEFINE-CONSTANT ...) ; processing (DEFINE-CONSTANT +BLOCK-NO-COMPRESS+ ...) ; processing (DEFINE-CONSTANT +BLOCK-FIXED-CODES+ ...) ; processing (DEFINE-CONSTANT +BLOCK-DYNAMIC-CODES+ ...) ; processing (DEFINE-CONSTANT +BLOCK-INVALID+ ...) ; processing (DEFINE-CONSTANT +MAX-CODE-LENGTH+ ...) ; processing (DEFINE-CONSTANT +MAX-CODES+ ...) ; processing (DEFINE-CONSTANT +MAX-N-CODE-LENGTHS+ ...) ; processing (DEFINE-CONSTANT +DEFLATE-MAX-BITS+ ...) ; processing (DEFINE-CONSTANT +LENGTH-CODE-EXTRA-BITS+ ...) ; processing (DEFINE-CONSTANT +LENGTH-CODE-BASE-LENGTHS+ ...) ; processing (DEFCONSTANT +BZ-HEADER-B+ ...) ; processing (DEFCONSTANT +BZ-HEADER-Z+ ...) ; processing (DEFCONSTANT +BZ-HEADER-H+ ...) ; processing (DEFCONSTANT +BZ-HEADER-0+ ...) ; processing (DEFCONSTANT +100K+ ...) ; processing (DEFCONSTANT +MTFA-SIZE+ ...) ; processing (DEFCONSTANT +MTFL-SIZE+ ...) ; processing (DEFCONSTANT +BZ-MAX-ALPHA-SIZE+ ...) ; processing (DEFCONSTANT +BZ-MAX-CODE-LEN+ ...) ; processing (DEFCONSTANT +BZ-RUNA+ ...) ; processing (DEFCONSTANT +BZ-RUNB+ ...) ; processing (DEFCONSTANT +BZ-N-GROUPS+ ...) ; processing (DEFCONSTANT +BZ-G-SIZE+ ...) ; processing (DEFCONSTANT +BZ-N-ITERS+ ...) ; processing (DEFCONSTANT +BZ-MAX-SELECTORS+ ...) ; processing (DEFCONSTANT +DEFAULT-BUFFER-SIZE+ ...) ; processing (DECLAIM (TYPE # ...)) ; processing (DEFINE-CONSTANT +CRC32-TABLE+ ...) ; processing (DEFINE-CONSTANT +BZIP2-CRC32-TABLE+ ...) ; processing (DEFCONSTANT ADLER32-MODULO ...) ; wrote /gnu/store/cxxq6k48jfad4l7y1h89jw5br0cp24jj-sbcl-chipz-0.8-1.75dfbc6/lib/common-lisp/sbcl/chipz/constants-tmpAAURSO1.fasl ; compilation finished in 0:00:00.011 ; compiling file "/gnu/store/cxxq6k48jfad4l7y1h89jw5br0cp24jj-sbcl-chipz-0.8-1.75dfbc6/share/common-lisp/sbcl/chipz/types-and-tables.lisp" (written 01 JAN 1970 12:00:01 AM): ; processing (IN-PACKAGE :CHIPZ) ; processing (DEFTYPE INDEX ...) ; processing (DEFTYPE SIMPLE-OCTET-VECTOR ...) ; processing (DEFTYPE DEFLATE-CODE-LENGTH ...) ; processing (DEFTYPE DEFLATE-CODE ...) ; processing (DEFTYPE DEFLATE-CODE-VALUE ...) ; processing (DEFPARAMETER *DISTANCE-CODE-EXTRA-BITS* ...) ; processing (DEFPARAMETER *DISTANCE-CODE-BASE-DISTANCES* ...) ; processing (DECLAIM (INLINE N-LENGTH-EXTRA-BITS ...)) ; processing (DEFUN N-LENGTH-EXTRA-BITS ...) ; processing (DEFUN N-DISTANCE-EXTRA-BITS ...) ; processing (DEFUN LENGTH-BASE ...) ; processing (DEFUN DISTANCE-BASE ...) ; processing (DEFPARAMETER *CODE-LENGTH-CODE-ORDER* ...) ; processing (DEFSTRUCT (CODE-RANGE-DESCRIPTOR # ...) ...) ; processing (DEFSTRUCT (HUFFMAN-DECODE-TABLE # ...) ...) ; processing (DEFUN CONSTRUCT-HUFFMAN-DECODE-TABLE ...) ; processing (DEFPARAMETER *FIXED-BLOCK-CODE-LENGTHS* ...) ; processing (DEFPARAMETER *FIXED-BLOCK-DISTANCE-LENGTHS* ...) ; processing (DEFUN CODE-N-VALUES ...) ; processing (DEFUN COMPUTE-HUFFMAN-DECODE-STRUCTURE ...) ; processing (DEFPARAMETER *FIXED-LITERAL/LENGTH-TABLE* ...) ; processing (DEFPARAMETER *FIXED-DISTANCE-TABLE* ...) ; processing (DEFMACRO PROBABLY-THE-FIXNUM ...) ; wrote /gnu/store/cxxq6k48jfad4l7y1h89jw5br0cp24jj-sbcl-chipz-0.8-1.75dfbc6/lib/common-lisp/sbcl/chipz/types-and-tables-tmp5GEXGEG5.fasl ; compilation finished in 0:00:00.075 ; compiling file "/gnu/store/cxxq6k48jfad4l7y1h89jw5br0cp24jj-sbcl-chipz-0.8-1.75dfbc6/share/common-lisp/sbcl/chipz/crc32.lisp" (written 01 JAN 1970 12:00:01 AM): ; processing (IN-PACKAGE :CHIPZ) ; processing (DEFSTRUCT (CRC32 #) ...) ; processing (DEFUN UPDATE-CRC32 ...) ; processing (DEFUN PRODUCE-CRC32 ...) ; wrote /gnu/store/cxxq6k48jfad4l7y1h89jw5br0cp24jj-sbcl-chipz-0.8-1.75dfbc6/lib/common-lisp/sbcl/chipz/crc32-tmpAR3FSGEY.fasl ; compilation finished in 0:00:00.015 ; compiling file "/gnu/store/cxxq6k48jfad4l7y1h89jw5br0cp24jj-sbcl-chipz-0.8-1.75dfbc6/share/common-lisp/sbcl/chipz/adler32.lisp" (written 01 JAN 1970 12:00:01 AM): ; processing (IN-PACKAGE :CHIPZ) ; processing (DEFSTRUCT (ADLER32 #) ...) ; processing (DEFUN UPDATE-ADLER32 ...) ; processing (DEFUN PRODUCE-ADLER32 ...) ; wrote /gnu/store/cxxq6k48jfad4l7y1h89jw5br0cp24jj-sbcl-chipz-0.8-1.75dfbc6/lib/common-lisp/sbcl/chipz/adler32-tmpJAIDFZTC.fasl ; compilation finished in 0:00:00.023 ; compiling file "/gnu/store/cxxq6k48jfad4l7y1h89jw5br0cp24jj-sbcl-chipz-0.8-1.75dfbc6/share/common-lisp/sbcl/chipz/conditions.lisp" (written 01 JAN 1970 12:00:01 AM): ; processing (IN-PACKAGE :CHIPZ) ; processing (DEFINE-CONDITION CHIPZ-ERROR ...) ; processing (DEFINE-CONDITION DECOMPRESSION-ERROR ...) ; processing (DEFINE-CONDITION INVALID-FORMAT-ERROR ...) ; processing (DEFINE-CONDITION INVALID-CHECKSUM-ERROR ...) ; processing (DEFINE-CONDITION PREMATURE-END-OF-STREAM ...) ; processing (DEFINE-CONDITION INFLATE-ERROR ...) ; processing (DEFINE-CONDITION INVALID-ZLIB-HEADER-ERROR ...) ; processing (DEFINE-CONDITION INVALID-GZIP-HEADER-ERROR ...) ; processing (DEFINE-CONDITION RESERVED-BLOCK-TYPE-ERROR ...) ; processing (DEFINE-CONDITION INVALID-STORED-BLOCK-LENGTH-ERROR ...) ; processing (DEFINE-CONDITION BZIP2-ERROR ...) ; processing (DEFINE-CONDITION INVALID-BZIP2-DATA ...) ; wrote /gnu/store/cxxq6k48jfad4l7y1h89jw5br0cp24jj-sbcl-chipz-0.8-1.75dfbc6/lib/common-lisp/sbcl/chipz/conditions-tmp8V3J6PE9.fasl ; compilation finished in 0:00:00.023 ; compiling file "/gnu/store/cxxq6k48jfad4l7y1h89jw5br0cp24jj-sbcl-chipz-0.8-1.75dfbc6/share/common-lisp/sbcl/chipz/dstate.lisp" (written 01 JAN 1970 12:00:01 AM): ; processing (IN-PACKAGE :CHIPZ) ; processing (DEFSTRUCT (DECOMPRESSION-STATE # ...) ...) ; processing (DEFUN MAKE-DSTATE ...) ; processing (DEFUN FINISH-DSTATE ...) ; wrote /gnu/store/cxxq6k48jfad4l7y1h89jw5br0cp24jj-sbcl-chipz-0.8-1.75dfbc6/lib/common-lisp/sbcl/chipz/dstate-tmp9V47YWQF.fasl ; compilation finished in 0:00:00.075 ; compiling file "/gnu/store/cxxq6k48jfad4l7y1h89jw5br0cp24jj-sbcl-chipz-0.8-1.75dfbc6/share/common-lisp/sbcl/chipz/inflate-state.lisp" (written 01 JAN 1970 12:00:01 AM): ; processing (IN-PACKAGE :CHIPZ) ; processing (DEFTYPE SLIDING-WINDOW ...) ; processing (DEFSTRUCT (INFLATE-STATE # ...) ...) ; processing (DEFUN MAKE-INFLATE-STATE ...) ; processing (DEFUN FINISH-INFLATE-STATE ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; wrote /gnu/store/cxxq6k48jfad4l7y1h89jw5br0cp24jj-sbcl-chipz-0.8-1.75dfbc6/lib/common-lisp/sbcl/chipz/inflate-state-tmp9BN22RMA.fasl ; compilation finished in 0:00:00.111 ; compiling file "/gnu/store/cxxq6k48jfad4l7y1h89jw5br0cp24jj-sbcl-chipz-0.8-1.75dfbc6/share/common-lisp/sbcl/chipz/gzip.lisp" (written 01 JAN 1970 12:00:01 AM): ; processing (IN-PACKAGE :CHIPZ) ; processing (DEFCLASS GZIP-HEADER ...) ; processing (DEFCONSTANT +GZIP-FLAG-TEXT+ ...) ; processing (DEFCONSTANT +GZIP-FLAG-CRC+ ...) ; processing (DEFCONSTANT +GZIP-FLAG-EXTRA+ ...) ; processing (DEFCONSTANT +GZIP-FLAG-NAME+ ...) ; processing (DEFCONSTANT +GZIP-FLAG-COMMENT+ ...) ; processing (DEFCONSTANT +GZIP-DEFLATE-METHOD+ ...) ; processing (DEFCONSTANT +GZIP-XFL-MAX-COMPRESSION+ ...) ; processing (DEFCONSTANT +GZIP-XFL-FAST-COMPRESSION+ ...) ; wrote /gnu/store/cxxq6k48jfad4l7y1h89jw5br0cp24jj-sbcl-chipz-0.8-1.75dfbc6/lib/common-lisp/sbcl/chipz/gzip-tmp1CXFJSK9.fasl ; compilation finished in 0:00:00.003 ; compiling file "/gnu/store/cxxq6k48jfad4l7y1h89jw5br0cp24jj-sbcl-chipz-0.8-1.75dfbc6/share/common-lisp/sbcl/chipz/zlib.lisp" (written 01 JAN 1970 12:00:01 AM): ; processing (IN-PACKAGE :CHIPZ) ; processing (DEFCLASS ZLIB-HEADER ...) ; processing (DEFCONSTANT +ZLIB-COMPRESSION-METHOD+ ...) ; processing (DEFUN ZLIB-COMPRESSION-METHOD ...) ; processing (DEFUN ZLIB-COMPRESSION-INFO ...) ; processing (DEFCONSTANT +ZLIB-FLAG-FDICT+ ...) ; processing (DEFUN ZLIB-FLAG-FCHECK ...) ; processing (DEFCONSTANT +ZLIB-FLEVEL-FASTEST+ ...) ; processing (DEFCONSTANT +ZLIB-FLEVEL-FAST+ ...) ; processing (DEFCONSTANT +ZLIB-FLEVEL-DEFAULT+ ...) ; processing (DEFCONSTANT +ZLIB-FLEVEL-MAXIMUM+ ...) ; processing (DEFUN ZLIB-FLAG-FLEVEL ...) ; wrote /gnu/store/cxxq6k48jfad4l7y1h89jw5br0cp24jj-sbcl-chipz-0.8-1.75dfbc6/lib/common-lisp/sbcl/chipz/zlib-tmpX4BRKI0R.fasl ; compilation finished in 0:00:00.007 ; compiling file "/gnu/store/cxxq6k48jfad4l7y1h89jw5br0cp24jj-sbcl-chipz-0.8-1.75dfbc6/share/common-lisp/sbcl/chipz/inflate.lisp" (written 01 JAN 1970 12:00:01 AM): ; processing (IN-PACKAGE :CHIPZ) ; processing (DEFUN UPDATE-WINDOW ...) ; processing (DEFUN %INFLATE ...) ; processing (DEFUN RECORD-CODE-LENGTH ...) ; processing (DEFUN %INFLATE-STATE-MACHINE ...) ; file: /gnu/store/cxxq6k48jfad4l7y1h89jw5br0cp24jj-sbcl-chipz-0.8-1.75dfbc6/share/common-lisp/sbcl/chipz/inflate.lisp ; in: DEFUN %INFLATE-STATE-MACHINE ; (* (CHIPZ::CMF CHIPZ::HEADER) 256) ; ; 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. ; (+ (* (CHIPZ::CMF CHIPZ::HEADER) 256) CHIPZ::FLAGS-BYTE) ; ; 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). ; (MOD (+ (* (CHIPZ::CMF CHIPZ::HEADER) 256) CHIPZ::FLAGS-BYTE) 31) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert integer division to multiplication ; due to type uncertainty: ; The first argument is a REAL, not a (UNSIGNED-BYTE 64). ; (ZEROP (MOD (+ (* (CHIPZ::CMF CHIPZ::HEADER) 256) CHIPZ::FLAGS-BYTE) 31)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (RATIONAL 0 (31)) DOUBLE-FLOAT ; SINGLE-FLOAT), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (MOD (+ (* (CHIPZ::CMF CHIPZ::HEADER) 256) CHIPZ::FLAGS-BYTE) 31) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (RATIONAL (-31) (31)) DOUBLE-FLOAT ; SINGLE-FLOAT), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; ; 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 (OR (RATIONAL (-31) (31)) DOUBLE-FLOAT ; SINGLE-FLOAT), not a FLOAT. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR (RATIONAL (-31) (31)) DOUBLE-FLOAT ; SINGLE-FLOAT), not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (= CHIPZ::STORED (CHIPZ::PRODUCE-CRC32 CHIPZ::CRC32)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (COERCE (FUNCALL CHIPZ::SLOT CHIPZ::HEADER) '(VECTOR (UNSIGNED-BYTE 8))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS NULL ; (AND (NOT (VECTOR (UNSIGNED-BYTE 8))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; (FUNCALL (CHIPZ::INFLATE-STATE-STATE CHIPZ::STATE) CHIPZ::STATE) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (< (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE) ; (CHIPZ::INFLATE-STATE-N-CODES CHIPZ::STATE)) ; ; 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. ; (< (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE) ; CHIPZ::+MAX-N-CODE-LENGTHS+) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (DECF (CHIPZ::INFLATE-STATE-LENGTH CHIPZ::STATE) CHIPZ::N-COPIED-BYTES) ; --> LET* ; ==> ; (SB-IMPL::XSUBTRACT CHIPZ::N-COPIED-BYTES ; (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:INFLATE-STATE #:OBJ) ; 16)) ; ; 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 REAL, 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 REAL, not a RATIONAL. ; ; 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 REAL, 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 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 NUMBER, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a SINGLE-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 REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; (ZEROP (CHIPZ::INFLATE-STATE-LENGTH CHIPZ::STATE)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (ZEROP CHIPZ::N-COPIED-BYTES) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (+ (CHIPZ::INFLATE-STATE-OUTPUT-INDEX CHIPZ::STATE) CHIPZ::N-COPIED-BYTES) ; ; note: unable to ; open-code float conversion of first argument in mixed RATIONAL-FLOAT numeric operation ; due to type uncertainty: ; The second argument is a REAL, not a FLOAT. ; (+ (CHIPZ::INFLATE-STATE-INPUT-INDEX CHIPZ::STATE) CHIPZ::N-COPIED-BYTES) ; ; note: unable to ; open-code float conversion of first argument in mixed RATIONAL-FLOAT numeric operation ; due to type uncertainty: ; The second argument is a REAL, not a FLOAT. ; (INCF (CHIPZ::INFLATE-STATE-INPUT-INDEX CHIPZ::STATE) CHIPZ::N-COPIED-BYTES) ; --> LET* ; ==> ; (+ CHIPZ::N-COPIED-BYTES ; (SB-KERNEL:THE* ((AND FIXNUM (INTEGER 0 *)) :DERIVE-TYPE-ONLY T) ; (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:INFLATE-STATE #:OBJ) ; 5))) ; ; 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. ; (INCF (CHIPZ::INFLATE-STATE-OUTPUT-INDEX CHIPZ::STATE) CHIPZ::N-COPIED-BYTES) ; --> LET* ; ==> ; (+ CHIPZ::N-COPIED-BYTES ; (SB-KERNEL:THE* ((AND FIXNUM (INTEGER 0 *)) :DERIVE-TYPE-ONLY T) ; (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:INFLATE-STATE #:OBJ) ; 9))) ; ; 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. ; (DECF (CHIPZ::INFLATE-STATE-LENGTH CHIPZ::STATE) CHIPZ::N-BYTES-TO-COPY) ; --> LET* ; ==> ; (SB-IMPL::XSUBTRACT CHIPZ::N-BYTES-TO-COPY ; (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:INFLATE-STATE #:OBJ) ; 16)) ; ; 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 REAL, 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 REAL, not a RATIONAL. ; ; 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 REAL, 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 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 NUMBER, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a SINGLE-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 REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; (INCF (CHIPZ::INFLATE-STATE-OUTPUT-INDEX CHIPZ::STATE) CHIPZ::N-BYTES-TO-COPY) ; --> LET* ; ==> ; (+ CHIPZ::N-BYTES-TO-COPY ; (SB-KERNEL:THE* ((AND FIXNUM (INTEGER 0 *)) :DERIVE-TYPE-ONLY T) ; (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:INFLATE-STATE #:OBJ) ; 9))) ; ; 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. ; (+ CHIPZ::INDEX CHIPZ::N-BYTES-TO-COPY) ; ; 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 REAL, not a FLOAT. ; (+ CHIPZ::COPY-INDEX CHIPZ::N-BYTES-TO-COPY) ; ; 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 REAL, 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 REAL, 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 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. ; (- CHIPZ::INDEX CHIPZ::DISTANCE) ; ; 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 REAL, not a FLOAT. ; (- CHIPZ::WINDOW-INDEX CHIPZ::DISTANCE) ; ; 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 (OR (DOUBLE-FLOAT -1.152921504606847d18) ; (SINGLE-FLOAT -1.1529215e18) ; (RATIONAL -1152921504606846975)), not a FLOAT. ; (+ (- CHIPZ::WINDOW-INDEX CHIPZ::DISTANCE) (- CHIPZ::INDEX CHIPZ::START)) ; ; 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 (OR (RATIONAL * 1152921504606879742) ; (SINGLE-FLOAT * 1.1529215e18) ; (DOUBLE-FLOAT * ; 1.1529215046068797d18)), not a FLOAT. ; (MINUSP CHIPZ::COPY-INDEX) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT * 2.3058430092137267d18) ; (SINGLE-FLOAT * 2.305843e18) ; (RATIONAL * 2305843009213726717)), not a FLOAT. ; (- CHIPZ::WINDOW-INDEX CHIPZ::COPY-INDEX) ; ; 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 (OR (DOUBLE-FLOAT 0.0d0 2.3058430092137267d18) ; (SINGLE-FLOAT 0.0 2.305843e18) ; (RATIONAL 0 2305843009213726717)), not a FLOAT. ; (+ CHIPZ::COPY-INDEX (LENGTH (CHIPZ::INFLATE-STATE-WINDOW CHIPZ::STATE))) ; ; 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 (OR (DOUBLE-FLOAT * (0.0d0)) (SINGLE-FLOAT * (0.0)) ; (RATIONAL * (0))), not a FLOAT. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT * (0.0d0)) (SINGLE-FLOAT * (0.0)) ; (RATIONAL * (0))), not a RATIONAL. ; (- (LENGTH (CHIPZ::INFLATE-STATE-WINDOW CHIPZ::STATE)) CHIPZ::COPY-INDEX) ; ; note: unable to ; open-code float conversion of first argument in mixed RATIONAL-FLOAT numeric operation ; due to type uncertainty: ; The second argument is a (OR (RATIONAL * (32768)) (SINGLE-FLOAT * 32768.0) ; (DOUBLE-FLOAT * 32768.0d0)), not a FLOAT. ; (ZEROP (CHIPZ::INFLATE-STATE-LENGTH CHIPZ::STATE)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (ZEROP CHIPZ::BITS) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (+ (CHIPZ::DISTANCE-BASE (CHIPZ::INFLATE-STATE-DISTANCE CHIPZ::STATE)) ; CHIPZ::DISTANCE-EXTRA) ; ; 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). ; (<= CHIPZ::DISTANCE (- CHIPZ::INDEX CHIPZ::START)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (MIN LENGTH (- CHIPZ::END CHIPZ::INDEX)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT -1.152921504606847d18) ; (SINGLE-FLOAT -1.1529215e18) ; (RATIONAL -1152921504606846975)), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (LOOP CHIPZ::WITH CHIPZ::OUTPUT = (CHIPZ::INFLATE-STATE-OUTPUT CHIPZ::STATE) ; CHIPZ::FOR CHIPZ::I CHIPZ::FROM CHIPZ::INDEX CHIPZ::BELOW (THE FIXNUM ; (+ ; CHIPZ::INDEX ; CHIPZ::N-BYTES-TO-COPY)) ; CHIPZ::FOR ...) ; --> BLOCK LET LET LET TAGBODY WHEN IF ; ==> ; (>= CHIPZ::J #:LOOP-LIMIT-18) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT * 1.152921504606847d18) ; (SINGLE-FLOAT * 1.1529215e18) ; (RATIONAL * 1152921504606846975)), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (= CHIPZ::STORED (CHIPZ::PRODUCE-ADLER32 CHIPZ::ADLER32)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (< (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE) CHIPZ::N-VALUES) ; ; 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. ; (+ (CHIPZ::HDT-BITS CHIPZ::DECODER) 7) ; ; 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 ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (INCF (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE)) ; --> LET* ; ==> ; (+ 1 (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:INFLATE-STATE #:OBJ) 23)) ; ; 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 ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (1- (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE)) ; ; note: unable to ; open-code float conversion 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). ; (+ (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE) CHIPZ::LEN) ; ; 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). ; (INCF (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE) CHIPZ::LEN) ; --> LET* ; ==> ; (+ CHIPZ::LEN (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:INFLATE-STATE #:OBJ) 23)) ; ; 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). ; (ASSERT (= CHIPZ::N-VALUES (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE))) ; --> TAGBODY LET WHEN IF ; ==> ; (= #:TEMP5 #:TEMP6) ; ; 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). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (MIN LENGTH (- CHIPZ::END CHIPZ::INDEX)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (<= CHIPZ::DISTANCE (- CHIPZ::INDEX CHIPZ::START)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT -1.152921504606847d18) ; (SINGLE-FLOAT -1.1529215e18) ; (RATIONAL -1152921504606846975)), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (MIN CHIPZ::N-BYTES-TO-COPY (- CHIPZ::WINDOW-INDEX CHIPZ::COPY-INDEX)) ; ; 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 (OR (RATIONAL -2305843009213726717 32767) ; (SINGLE-FLOAT -2.305843e18 32767.0) ; (DOUBLE-FLOAT -2.3058430092137267d18 ; 32767.0d0)), 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 (OR (RATIONAL -2305843009213726717 32767) ; (SINGLE-FLOAT -2.305843e18 32767.0) ; (DOUBLE-FLOAT -2.3058430092137267d18 ; 32767.0d0)), not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a (OR (RATIONAL -2305843009213726717 32767) ; (SINGLE-FLOAT -2.305843e18 32767.0) ; (DOUBLE-FLOAT -2.3058430092137267d18 ; 32767.0d0)), 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 REAL, not a SINGLE-FLOAT. ; The second argument is a (OR (RATIONAL -2305843009213726717 32767) ; (SINGLE-FLOAT -2.305843e18 32767.0) ; (DOUBLE-FLOAT -2.3058430092137267d18 ; 32767.0d0)), 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 (OR (RATIONAL -2305843009213726717 32767) ; (SINGLE-FLOAT -2.305843e18 32767.0) ; (DOUBLE-FLOAT -2.3058430092137267d18 ; 32767.0d0)), not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a (OR (RATIONAL -2305843009213726717 32767) ; (SINGLE-FLOAT -2.305843e18 32767.0) ; (DOUBLE-FLOAT -2.3058430092137267d18 ; 32767.0d0)), not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; (MIN CHIPZ::N-BYTES-TO-COPY ; (- (LENGTH (CHIPZ::INFLATE-STATE-WINDOW CHIPZ::STATE)) ; CHIPZ::COPY-INDEX)) ; ; note: unable to ; open-code float conversion 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 (OR (DOUBLE-FLOAT 0.0d0) (SINGLE-FLOAT 0.0) ; (RATIONAL (0))), 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 (OR (DOUBLE-FLOAT 0.0d0) (SINGLE-FLOAT 0.0) ; (RATIONAL (0))), not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a (OR (DOUBLE-FLOAT 0.0d0) (SINGLE-FLOAT 0.0) ; (RATIONAL (0))), not a RATIONAL. ; ; note: unable to ; open-code 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 (OR (DOUBLE-FLOAT 0.0d0) (SINGLE-FLOAT 0.0) ; (RATIONAL (0))), 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 (OR (DOUBLE-FLOAT 0.0d0) (SINGLE-FLOAT 0.0) ; (RATIONAL (0))), not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a (OR (DOUBLE-FLOAT 0.0d0) (SINGLE-FLOAT 0.0) ; (RATIONAL (0))), not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; (MIN (CHIPZ::INFLATE-STATE-LENGTH CHIPZ::STATE) ; (- (CHIPZ::INFLATE-STATE-INPUT-END CHIPZ::STATE) ; (CHIPZ::INFLATE-STATE-INPUT-INDEX CHIPZ::STATE)) ; (- (CHIPZ::INFLATE-STATE-OUTPUT-END CHIPZ::STATE) ; (CHIPZ::INFLATE-STATE-OUTPUT-INDEX CHIPZ::STATE))) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a 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 -1.152921504606847d18) ; (SINGLE-FLOAT -1.1529215e18) ; (RATIONAL -1152921504606846975)), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (DECF (CHIPZ::INFLATE-STATE-LENGTH CHIPZ::STATE) CHIPZ::N-BYTES-TO-COPY) ; --> LET* ; ==> ; (SB-IMPL::XSUBTRACT CHIPZ::N-BYTES-TO-COPY ; (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:INFLATE-STATE #:OBJ) ; 16)) ; ; 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 REAL, 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 REAL, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; (INCF (CHIPZ::INFLATE-STATE-OUTPUT-INDEX CHIPZ::STATE) CHIPZ::N-BYTES-TO-COPY) ; --> LET* ; ==> ; (+ CHIPZ::N-BYTES-TO-COPY ; (SB-KERNEL:THE* ((AND FIXNUM (INTEGER 0 *)) :DERIVE-TYPE-ONLY T) ; (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:INFLATE-STATE #:OBJ) ; 9))) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline signed-word arithmetic (cost 5) because: ; The first argument is a REAL, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (+ CHIPZ::INDEX CHIPZ::N-BYTES-TO-COPY) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline signed-word arithmetic (cost 5) because: ; The second argument is a REAL, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (+ CHIPZ::COPY-INDEX CHIPZ::N-BYTES-TO-COPY) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; The result is a (VALUES REAL &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 REAL, not a SINGLE-FLOAT. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). ; etc. ; (LOOP CHIPZ::WITH CHIPZ::OUTPUT = (CHIPZ::INFLATE-STATE-OUTPUT CHIPZ::STATE) ; CHIPZ::FOR CHIPZ::I CHIPZ::FROM CHIPZ::INDEX CHIPZ::BELOW (THE FIXNUM ; (+ ; CHIPZ::INDEX ; CHIPZ::N-BYTES-TO-COPY)) ; CHIPZ::FOR ...) ; --> BLOCK LET LET LET TAGBODY WHEN IF ; ==> ; (>= CHIPZ::J #:LOOP-LIMIT-18) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; (< (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE) CHIPZ::N-VALUES) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; 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. ; etc. ; (+ (CHIPZ::HDT-BITS CHIPZ::DECODER) 7) ; ; 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. ; (INCF (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE)) ; --> LET* ; ==> ; (+ 1 (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:INFLATE-STATE #:OBJ) 23)) ; ; 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. ; (1- (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE)) ; ; 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. ; (+ (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE) CHIPZ::LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline signed-word arithmetic (cost 5) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (INCF (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE) CHIPZ::LEN) ; --> LET* ; ==> ; (+ CHIPZ::LEN (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:INFLATE-STATE #:OBJ) 23)) ; ; 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-word arithmetic (cost 5) 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. ; (ASSERT (= CHIPZ::N-VALUES (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE))) ; --> TAGBODY LET WHEN IF ; ==> ; (= #:TEMP5 #:TEMP6) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; (* (CHIPZ::CMF CHIPZ::HEADER) 256) ; ; note: forced to do GENERIC-* (cost 50) ; 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. ; (+ (* (CHIPZ::CMF CHIPZ::HEADER) 256) CHIPZ::FLAGS-BYTE) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline signed-word arithmetic (cost 5) 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. ; (MOD (+ (* (CHIPZ::CMF CHIPZ::HEADER) 256) CHIPZ::FLAGS-BYTE) 31) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (OR (RATIONAL (-31) (31)) DOUBLE-FLOAT ; SINGLE-FLOAT), not a FIXNUM. ; The result is a (VALUES ; (OR SINGLE-FLOAT DOUBLE-FLOAT (RATIONAL (0) (62))) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR (RATIONAL (-31) (31)) DOUBLE-FLOAT ; SINGLE-FLOAT), not a FIXNUM. ; The result is a (VALUES ; (OR SINGLE-FLOAT DOUBLE-FLOAT (RATIONAL (0) (62))) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a (RATIONAL (-31) (62)), not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (RATIONAL (-31) (62)), not a FIXNUM. ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a (RATIONAL 0 (62)), not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (RATIONAL 0 (62)), not a FIXNUM. ; etc. ; (< (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE) ; (CHIPZ::INFLATE-STATE-N-CODES CHIPZ::STATE)) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do 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. ; 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. ; etc. ; (< (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE) ; CHIPZ::+MAX-N-CODE-LENGTHS+) ; ; 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. ; (+ (CHIPZ::DISTANCE-BASE (CHIPZ::INFLATE-STATE-DISTANCE CHIPZ::STATE)) ; CHIPZ::DISTANCE-EXTRA) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline signed-word arithmetic (cost 5) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MIN LENGTH (- CHIPZ::END CHIPZ::INDEX)) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; (<= CHIPZ::DISTANCE (- CHIPZ::INDEX CHIPZ::START)) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; (- CHIPZ::WINDOW-INDEX CHIPZ::DISTANCE) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a (OR (DOUBLE-FLOAT -1.152921504606847d18) ; (SINGLE-FLOAT -1.1529215e18) ; (RATIONAL -1152921504606846975)), not a FIXNUM. ; The result is a (VALUES ; (OR (RATIONAL * 1152921504606879742) ; (SINGLE-FLOAT * 1.1529215e18) ; (DOUBLE-FLOAT * 1.1529215046068797d18)) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline signed-word arithmetic (cost 5) because: ; The second argument is a (OR (DOUBLE-FLOAT -1.152921504606847d18) ; (SINGLE-FLOAT -1.1529215e18) ; (RATIONAL -1152921504606846975)), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (OR (RATIONAL * 1152921504606879742) ; (SINGLE-FLOAT * 1.1529215e18) ; (DOUBLE-FLOAT * 1.1529215046068797d18)) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (+ (- CHIPZ::WINDOW-INDEX CHIPZ::DISTANCE) (- CHIPZ::INDEX CHIPZ::START)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR (RATIONAL * 1152921504606879742) ; (SINGLE-FLOAT * 1.1529215e18) ; (DOUBLE-FLOAT * 1.1529215046068797d18)), not a FIXNUM. ; The result is a (VALUES ; (OR (DOUBLE-FLOAT * 2.3058430092137267d18) ; (SINGLE-FLOAT * 2.305843e18) ; (RATIONAL * 2305843009213726717)) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline signed-word arithmetic (cost 5) because: ; The first argument is a (OR (RATIONAL * 1152921504606879742) ; (SINGLE-FLOAT * 1.1529215e18) ; (DOUBLE-FLOAT * 1.1529215046068797d18)), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (OR (DOUBLE-FLOAT * 2.3058430092137267d18) ; (SINGLE-FLOAT * 2.305843e18) ; (RATIONAL * 2305843009213726717)) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (MINUSP CHIPZ::COPY-INDEX) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a (OR (DOUBLE-FLOAT * 2.3058430092137267d18) ; (SINGLE-FLOAT * 2.305843e18) ; (RATIONAL * 2305843009213726717)), not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (OR (DOUBLE-FLOAT * 2.3058430092137267d18) ; (SINGLE-FLOAT * 2.305843e18) ; (RATIONAL * 2305843009213726717)), not a FIXNUM. ; etc. ; (- CHIPZ::WINDOW-INDEX CHIPZ::COPY-INDEX) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a (OR (DOUBLE-FLOAT 0.0d0 2.3058430092137267d18) ; (SINGLE-FLOAT 0.0 2.305843e18) ; (RATIONAL 0 2305843009213726717)), not a FIXNUM. ; The result is a (VALUES ; (OR (RATIONAL -2305843009213726717 32767) ; (SINGLE-FLOAT -2.305843e18 32767.0) ; (DOUBLE-FLOAT -2.3058430092137267d18 32767.0d0)) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline signed-word arithmetic (cost 5) because: ; The second argument is a (OR (DOUBLE-FLOAT 0.0d0 2.3058430092137267d18) ; (SINGLE-FLOAT 0.0 2.305843e18) ; (RATIONAL 0 2305843009213726717)), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (OR (RATIONAL -2305843009213726717 32767) ; (SINGLE-FLOAT -2.305843e18 32767.0) ; (DOUBLE-FLOAT -2.3058430092137267d18 32767.0d0)) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (MIN CHIPZ::N-BYTES-TO-COPY (- CHIPZ::WINDOW-INDEX CHIPZ::COPY-INDEX)) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a (OR (RATIONAL -2305843009213726717 32767) ; (SINGLE-FLOAT -2.305843e18 32767.0) ; (DOUBLE-FLOAT -2.3058430092137267d18 ; 32767.0d0)), not a DOUBLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a (OR (RATIONAL -2305843009213726717 32767) ; (SINGLE-FLOAT -2.305843e18 32767.0) ; (DOUBLE-FLOAT -2.3058430092137267d18 ; 32767.0d0)), not a SINGLE-FLOAT. ; etc. ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a (OR (RATIONAL -2305843009213726717 32767) ; (SINGLE-FLOAT -2.305843e18 32767.0) ; (DOUBLE-FLOAT -2.3058430092137267d18 ; 32767.0d0)), not a DOUBLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a (OR (RATIONAL -2305843009213726717 32767) ; (SINGLE-FLOAT -2.305843e18 32767.0) ; (DOUBLE-FLOAT -2.3058430092137267d18 ; 32767.0d0)), not a SINGLE-FLOAT. ; (+ CHIPZ::COPY-INDEX (LENGTH (CHIPZ::INFLATE-STATE-WINDOW CHIPZ::STATE))) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (OR (DOUBLE-FLOAT * (0.0d0)) ; (SINGLE-FLOAT * (0.0)) (RATIONAL * (0))), not a FIXNUM. ; The result is a (VALUES ; (OR (RATIONAL * (32768)) (SINGLE-FLOAT * 32768.0) ; (DOUBLE-FLOAT * 32768.0d0)) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR (DOUBLE-FLOAT * (0.0d0)) ; (SINGLE-FLOAT * (0.0)) (RATIONAL * (0))), not a FIXNUM. ; The result is a (VALUES ; (OR (RATIONAL * (32768)) (SINGLE-FLOAT * 32768.0) ; (DOUBLE-FLOAT * 32768.0d0)) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (- (LENGTH (CHIPZ::INFLATE-STATE-WINDOW CHIPZ::STATE)) CHIPZ::COPY-INDEX) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a (OR (RATIONAL * (32768)) ; (SINGLE-FLOAT * 32768.0) ; (DOUBLE-FLOAT * 32768.0d0)), not a FIXNUM. ; The result is a (VALUES ; (OR (DOUBLE-FLOAT 0.0d0) (SINGLE-FLOAT 0.0) ; (RATIONAL (0))) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline signed-word arithmetic (cost 5) because: ; The second argument is a (OR (RATIONAL * (32768)) ; (SINGLE-FLOAT * 32768.0) ; (DOUBLE-FLOAT * 32768.0d0)), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (OR (DOUBLE-FLOAT 0.0d0) (SINGLE-FLOAT 0.0) ; (RATIONAL (0))) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (MIN CHIPZ::N-BYTES-TO-COPY ; (- (LENGTH (CHIPZ::INFLATE-STATE-WINDOW CHIPZ::STATE)) ; CHIPZ::COPY-INDEX)) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a (OR (DOUBLE-FLOAT 0.0d0) (SINGLE-FLOAT 0.0) ; (RATIONAL (0))), not a DOUBLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a (OR (DOUBLE-FLOAT 0.0d0) (SINGLE-FLOAT 0.0) ; (RATIONAL (0))), not a SINGLE-FLOAT. ; etc. ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a (OR (DOUBLE-FLOAT 0.0d0) (SINGLE-FLOAT 0.0) ; (RATIONAL (0))), not a DOUBLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a (OR (DOUBLE-FLOAT 0.0d0) (SINGLE-FLOAT 0.0) ; (RATIONAL (0))), not a SINGLE-FLOAT. ; (- CHIPZ::INDEX CHIPZ::DISTANCE) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline signed-word arithmetic (cost 5) because: ; The second argument is a REAL, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (MIN (CHIPZ::INFLATE-STATE-LENGTH CHIPZ::STATE) ; (- (CHIPZ::INFLATE-STATE-INPUT-END CHIPZ::STATE) ; (CHIPZ::INFLATE-STATE-INPUT-INDEX CHIPZ::STATE)) ; (- (CHIPZ::INFLATE-STATE-OUTPUT-END CHIPZ::STATE) ; (CHIPZ::INFLATE-STATE-OUTPUT-INDEX CHIPZ::STATE))) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; (+ (CHIPZ::INFLATE-STATE-OUTPUT-INDEX CHIPZ::STATE) CHIPZ::N-COPIED-BYTES) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline signed-word arithmetic (cost 5) because: ; The second argument is a REAL, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (+ (CHIPZ::INFLATE-STATE-INPUT-INDEX CHIPZ::STATE) CHIPZ::N-COPIED-BYTES) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline signed-word arithmetic (cost 5) because: ; The second argument is a REAL, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (INCF (CHIPZ::INFLATE-STATE-INPUT-INDEX CHIPZ::STATE) CHIPZ::N-COPIED-BYTES) ; --> LET* ; ==> ; (+ CHIPZ::N-COPIED-BYTES ; (SB-KERNEL:THE* ((AND FIXNUM (INTEGER 0 *)) :DERIVE-TYPE-ONLY T) ; (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:INFLATE-STATE #:OBJ) ; 5))) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline signed-word arithmetic (cost 5) because: ; The first argument is a REAL, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (INCF (CHIPZ::INFLATE-STATE-OUTPUT-INDEX CHIPZ::STATE) CHIPZ::N-COPIED-BYTES) ; --> LET* ; ==> ; (+ CHIPZ::N-COPIED-BYTES ; (SB-KERNEL:THE* ((AND FIXNUM (INTEGER 0 *)) :DERIVE-TYPE-ONLY T) ; (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:INFLATE-STATE #:OBJ) ; 9))) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline signed-word arithmetic (cost 5) because: ; The first argument is a REAL, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (DECF (CHIPZ::INFLATE-STATE-LENGTH CHIPZ::STATE) CHIPZ::N-COPIED-BYTES) ; --> LET* ; ==> ; (SB-IMPL::XSUBTRACT CHIPZ::N-COPIED-BYTES ; (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:INFLATE-STATE #:OBJ) ; 16)) ; ; 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 REAL, 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 REAL, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; wrote /gnu/store/cxxq6k48jfad4l7y1h89jw5br0cp24jj-sbcl-chipz-0.8-1.75dfbc6/lib/common-lisp/sbcl/chipz/inflate-tmpQ371UGST.fasl ; compilation finished in 0:00:00.259 ; compiling file "/gnu/store/cxxq6k48jfad4l7y1h89jw5br0cp24jj-sbcl-chipz-0.8-1.75dfbc6/share/common-lisp/sbcl/chipz/bzip2.lisp" (written 01 JAN 1970 12:00:01 AM): ; processing (IN-PACKAGE :CHIPZ) ; processing (DEFUN REVERSE-UB4 ...) ; processing (DEFUN REVERSE-UB8 ...) ; processing (DEFUN REVERSE-UB16 ...) ; processing (DEFVAR *DUMMY-VEC* ...) ; processing (DEFSTRUCT (BZIP2-STATE # ...) ...) ; processing (DEFMETHOD PRINT-OBJECT ...) ; processing (DEFUN MAKE-MAPS ...) ; processing (DEFUN MAKE-DECODE-TABLES ...) ; processing (DEFUN UNDO-RLE-OBUF-TO-OUTPUT ...) ; processing (DEFUN %BZIP2-STATE-MACHINE ...) ; file: /gnu/store/cxxq6k48jfad4l7y1h89jw5br0cp24jj-sbcl-chipz-0.8-1.75dfbc6/share/common-lisp/sbcl/chipz/bzip2.lisp ; in: DEFUN %BZIP2-STATE-MACHINE ; 'CHIPZ:INVALID-BZIP2-DATA ; ; note: deleting unreachable code ; (MINUSP (CHIPZ::BZIP2-STATE-ORIGINAL-POINTER CHIPZ::STATE)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (>= (CHIPZ::BZIP2-STATE-ORIGINAL-POINTER CHIPZ::STATE) ; (CHIPZ::BZIP2-STATE-NBLOCK CHIPZ::STATE)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (INCF (CHIPZ::BZIP2-STATE-N-BLOCKS-USED CHIPZ::STATE)) ; --> LET* ; ==> ; (+ 1 (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:BZIP2-STATE #:OBJ) 27)) ; ; 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 ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (>= (CHIPZ::BZIP2-STATE-ORIGINAL-POINTER CHIPZ::STATE) ; (CHIPZ::BZIP2-STATE-NBLOCK CHIPZ::STATE)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT * 899999.0d0) ; (SINGLE-FLOAT * 899999.0) ; (RATIONAL * 899999)), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (= (CHIPZ::BZIP2-STATE-N-BLOCKS-USED CHIPZ::STATE) ; (1+ (CHIPZ::BZIP2-STATE-NBLOCK CHIPZ::STATE))) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (INCF (CHIPZ::BZIP2-STATE-I CHIPZ::STATE)) ; --> LET* ; ==> ; (+ 1 (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:BZIP2-STATE #:OBJ) 49)) ; ; 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 ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (< (INCF (CHIPZ::BZIP2-STATE-I CHIPZ::STATE)) ; (CHIPZ::BZIP2-STATE-ALPHA-SIZE CHIPZ::STATE)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (INCF (CHIPZ::BZIP2-STATE-J CHIPZ::STATE)) ; --> LET* ; ==> ; (+ 1 (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:BZIP2-STATE #:OBJ) 50)) ; ; 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 ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (< (CHIPZ::BZIP2-STATE-J CHIPZ::STATE) ; (CHIPZ::BZIP2-STATE-N-GROUPS CHIPZ::STATE)) ; ; 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. ; (INCF (CHIPZ::BZIP2-STATE-I CHIPZ::STATE)) ; --> LET* ; ==> ; (+ 1 (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:BZIP2-STATE #:OBJ) 49)) ; ; 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 ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (< (INCF (CHIPZ::BZIP2-STATE-I CHIPZ::STATE)) ; (CHIPZ::BZIP2-STATE-N-SELECTORS CHIPZ::STATE)) ; ; note: unable to ; open-code float conversion 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. ; (INCF (CHIPZ::BZIP2-STATE-J CHIPZ::STATE)) ; --> LET* ; ==> ; (+ 1 (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:BZIP2-STATE #:OBJ) 50)) ; ; 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 ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (< (CHIPZ::BZIP2-STATE-I CHIPZ::STATE) 16) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (* (CHIPZ::BZIP2-STATE-I CHIPZ::STATE) 16) ; ; note: unable to ; open-code float conversion 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. ; (+ (* (CHIPZ::BZIP2-STATE-I CHIPZ::STATE) 16) CHIPZ::I) ; ; 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). ; (INCF (CHIPZ::BZIP2-STATE-I CHIPZ::STATE)) ; --> LET* ; ==> ; (+ 1 (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:BZIP2-STATE #:OBJ) 49)) ; ; 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 ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (INCF (CHIPZ::BZIP2-STATE-CURRENT-BLOCK-NUMBER CHIPZ::STATE)) ; --> LET* ; ==> ; (+ 1 (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:BZIP2-STATE #:OBJ) 22)) ; ; 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 ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (LDB (BYTE CHIPZ::N 0) ; (ASH (CHIPZ::BZIP2-STATE-BITS CHIPZ::STATE) ; (THE (INTEGER -31 0) ; (- CHIPZ::N (CHIPZ::BZIP2-STATE-N-BITS CHIPZ::STATE))))) ; ; note: unable to ; convert to inline logical operations ; due to type uncertainty: ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; (LOOP CHIPZ::WITH CHIPZ::N-GROUPS = (CHIPZ::BZIP2-STATE-N-GROUPS ; CHIPZ::STATE) ; CHIPZ::WITH CHIPZ::LEN = (CHIPZ::BZIP2-STATE-LEN CHIPZ::STATE) ; CHIPZ::FOR CHIPZ::X CHIPZ::FROM ...) ; --> BLOCK LET LET LET TAGBODY WHEN IF ; ==> ; (>= CHIPZ::X #:LOOP-LIMIT-36) ; ; note: unable to open code because: The operands might not be the same type. ; (MAX CHIPZ::MAXLEN CHIPZ::XY) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT * 255.0d0) (SINGLE-FLOAT * 255.0) ; (RATIONAL * 255)), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (MIN CHIPZ::MINLEN CHIPZ::XY) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; 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. ; (>= (INCF (CHIPZ::BZIP2-STATE-J CHIPZ::STATE)) ; (CHIPZ::BZIP2-STATE-N-GROUPS CHIPZ::STATE)) ; ; 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. ; ; 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. ; ; note: unable to open code because: The operands might not be the same type. ; (>= (INCF (CHIPZ::BZIP2-STATE-GROUP-NUMBER CHIPZ::STATE)) ; (CHIPZ::BZIP2-STATE-N-SELECTORS CHIPZ::STATE)) ; ; note: unable to open code because: The operands might not be the same type. ; (MAKE-ARRAY CHIPZ::+BZ-N-GROUPS+ :ELEMENT-TYPE '(UNSIGNED-BYTE 8)) ; ; note: could not stack allocate: ; (MAKE-ARRAY +BZ-N-GROUPS+ :ELEMENT-TYPE '(UNSIGNED-BYTE 8)) ; (< CHIPZ::N-BITS CHIPZ::N) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; (INCF CHIPZ::N-BITS 8) ; --> SETQ THE ; ==> ; (+ 8 CHIPZ::N-BITS) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 8) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 8) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; (INCF (CHIPZ::BZIP2-STATE-I CHIPZ::STATE)) ; --> LET* ; ==> ; (+ 1 (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:BZIP2-STATE #:OBJ) 49)) ; ; 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. ; (< (INCF (CHIPZ::BZIP2-STATE-I CHIPZ::STATE)) ; (CHIPZ::BZIP2-STATE-ALPHA-SIZE CHIPZ::STATE)) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. ; (INCF (CHIPZ::BZIP2-STATE-J CHIPZ::STATE)) ; --> LET* ; ==> ; (+ 1 (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:BZIP2-STATE #:OBJ) 50)) ; ; 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. ; (< (CHIPZ::BZIP2-STATE-J CHIPZ::STATE) ; (CHIPZ::BZIP2-STATE-N-GROUPS CHIPZ::STATE)) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; 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. ; etc. ; (LOOP CHIPZ::WITH CHIPZ::N-GROUPS = (CHIPZ::BZIP2-STATE-N-GROUPS ; CHIPZ::STATE) ; CHIPZ::WITH CHIPZ::LEN = (CHIPZ::BZIP2-STATE-LEN CHIPZ::STATE) ; CHIPZ::FOR CHIPZ::X CHIPZ::FROM ...) ; --> BLOCK LET LET LET TAGBODY WHEN IF ; ==> ; (>= CHIPZ::X #:LOOP-LIMIT-36) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a REAL, not a FIXNUM. ; (MAX CHIPZ::MAXLEN CHIPZ::XY) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; (MIN CHIPZ::MINLEN CHIPZ::XY) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; (INCF (CHIPZ::BZIP2-STATE-CURRENT-BLOCK-NUMBER CHIPZ::STATE)) ; --> LET* ; ==> ; (+ 1 (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:BZIP2-STATE #:OBJ) 22)) ; ; 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. ; (ASH CHIPZ::CRC32-HI 16) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &REST T). ; etc. ; (LOGIOR (ASH CHIPZ::CRC32-HI 16) CHIPZ::CRC32-LO) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline word arithmetic (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The second argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; (<= 0 CHIPZ::ORIGINAL-POINTER ; (+ 10 ; (* (CHIPZ::BZIP2-STATE-100K-BLOCK-SIZE CHIPZ::STATE) CHIPZ::+100K+))) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; (< (CHIPZ::BZIP2-STATE-I CHIPZ::STATE) 16) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do 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. ; (LOGBITP (CHIPZ::BZIP2-STATE-I CHIPZ::STATE) CHIPZ::IN-USE-16) ; --> MULTIPLE-VALUE-BIND LET UNLESS IF AND IF LOCALLY AND THE ; ==> ; (>= (TRULY-THE INTEGER #:G447) 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. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; etc. ; (* (CHIPZ::BZIP2-STATE-I CHIPZ::STATE) 16) ; ; note: forced to do GENERIC-* (cost 50) ; 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. ; (+ (* (CHIPZ::BZIP2-STATE-I CHIPZ::STATE) 16) CHIPZ::I) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline signed-word arithmetic (cost 5) 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 (CHIPZ::BZIP2-STATE-I CHIPZ::STATE)) ; --> LET* ; ==> ; (+ 1 (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:BZIP2-STATE #:OBJ) 49)) ; ; 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. ; (<= 3 CHIPZ::N-GROUPS 6) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; etc. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER 3), not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER 3), not a FIXNUM. ; etc. ; (PLUSP CHIPZ::N-SELECTORS) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; etc. ; (INCF (CHIPZ::BZIP2-STATE-J CHIPZ::STATE)) ; --> LET* ; ==> ; (+ 1 (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:BZIP2-STATE #:OBJ) 50)) ; ; 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. ; (>= (INCF (CHIPZ::BZIP2-STATE-J CHIPZ::STATE)) ; (CHIPZ::BZIP2-STATE-N-GROUPS CHIPZ::STATE)) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; etc. ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; (INCF (CHIPZ::BZIP2-STATE-I CHIPZ::STATE)) ; --> LET* ; ==> ; (+ 1 (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:BZIP2-STATE #:OBJ) 49)) ; ; 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. ; (< (INCF (CHIPZ::BZIP2-STATE-I CHIPZ::STATE)) ; (CHIPZ::BZIP2-STATE-N-SELECTORS CHIPZ::STATE)) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; etc. ; (DOTIMES (CHIPZ::I CHIPZ::N-GROUPS) ; (SETF (AREF CHIPZ::POS CHIPZ::I) CHIPZ::I)) ; --> DO BLOCK LET TAGBODY UNLESS IF ; ==> ; (>= CHIPZ::I #:G17) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a INTEGER, not a FIXNUM. ; (DOTIMES (CHIPZ::I CHIPZ::N-SELECTORS) ; (LET* ((CHIPZ::V (AREF CHIPZ::SELECTOR-MTF CHIPZ::I)) ; (CHIPZ::TMP (AREF CHIPZ::POS CHIPZ::V))) ; (LOOP CHIPZ::UNTIL (ZEROP CHIPZ::V) ; DO (SETF # #) (DECF CHIPZ::V)) ; (SETF (AREF CHIPZ::POS 0) CHIPZ::TMP) ; (SETF (AREF CHIPZ::SELECTOR-TABLE CHIPZ::I) CHIPZ::TMP))) ; --> DO BLOCK LET TAGBODY UNLESS IF ; ==> ; (>= CHIPZ::I #:G22) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a INTEGER, not a FIXNUM. ; (MINUSP (CHIPZ::BZIP2-STATE-ORIGINAL-POINTER CHIPZ::STATE)) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do 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. ; (>= (CHIPZ::BZIP2-STATE-ORIGINAL-POINTER CHIPZ::STATE) ; (CHIPZ::BZIP2-STATE-NBLOCK CHIPZ::STATE)) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; (INCF (CHIPZ::BZIP2-STATE-N-BLOCKS-USED CHIPZ::STATE)) ; --> LET* ; ==> ; (+ 1 (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:BZIP2-STATE #:OBJ) 27)) ; ; 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. ; (>= (INCF (CHIPZ::BZIP2-STATE-GROUP-NUMBER CHIPZ::STATE)) ; (CHIPZ::BZIP2-STATE-N-SELECTORS CHIPZ::STATE)) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a REAL, not a FIXNUM. ; (LOGIOR (ASH (CHIPZ::BZIP2-STATE-ZVEC CHIPZ::STATE) 1) CHIPZ::ZJ) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline word arithmetic (cost 3) because: ; The second argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &REST T). ; etc. ; (INCF (AREF (CHIPZ::BZIP2-STATE-UNZFTAB CHIPZ::STATE) CHIPZ::UC) ; (INCF (CHIPZ::BZIP2-STATE-ES CHIPZ::STATE))) ; --> LET* ; ==> ; (+ (INCF (CHIPZ::BZIP2-STATE-ES CHIPZ::STATE)) (AREF #:G53 #:UC54)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline signed-word arithmetic ; (INCF (CHIPZ::BZIP2-STATE-ES CHIPZ::STATE) ; (CHIPZ::BZIP2-STATE-N CHIPZ::STATE)) ; --> LET* ; ==> ; (+ (CHIPZ::BZIP2-STATE-N CHIPZ::STATE) ; (SB-KERNEL:THE* (FIXNUM :DERIVE-TYPE-ONLY T) ; (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:BZIP2-STATE #:OBJ) ; 60))) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline signed-word arithmetic ; (* (CHIPZ::BZIP2-STATE-N CHIPZ::STATE) 2) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline ASH ; (INCF (CHIPZ::BZIP2-STATE-ES CHIPZ::STATE) ; (* (CHIPZ::BZIP2-STATE-N CHIPZ::STATE) 2)) ; --> LET* ; ==> ; (+ (* (CHIPZ::BZIP2-STATE-N CHIPZ::STATE) 2) ; (SB-KERNEL:THE* (FIXNUM :DERIVE-TYPE-ONLY T) ; (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:BZIP2-STATE #:OBJ) ; 60))) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline signed-word arithmetic ; processing (DEFUN %BZIP2-DECOMPRESS ...) ; processing (DEFUN MAKE-BZIP2-STATE ...) ; wrote /gnu/store/cxxq6k48jfad4l7y1h89jw5br0cp24jj-sbcl-chipz-0.8-1.75dfbc6/lib/common-lisp/sbcl/chipz/bzip2-tmp2OWI3Q7U.fasl ; compilation finished in 0:00:00.707 ; compiling file "/gnu/store/cxxq6k48jfad4l7y1h89jw5br0cp24jj-sbcl-chipz-0.8-1.75dfbc6/share/common-lisp/sbcl/chipz/decompress.lisp" (written 01 JAN 1970 12:00:01 AM): ; processing (IN-PACKAGE :CHIPZ) ; processing (DEFGENERIC DECOMPRESS ...) ; processing (DEFUN %DECOMPRESS ...) ; processing (DEFUN MAYBE-SUBSEQ ...) ; processing (DEFUN DECOMPRESS-FUN-FOR-STATE ...) ; processing (DEFUN %DECOMPRESS-FROM-PATHNAME ...) ; processing (DEFMETHOD DECOMPRESS ...) ; processing (DEFMETHOD DECOMPRESS ...) ; processing (DEFMETHOD DECOMPRESS ...) ; processing (DEFUN %DECOMPRESS/NULL-VECTOR ...) ; processing (DEFMETHOD DECOMPRESS ...) ; processing (DEFUN %DECOMPRESS/NULL-STREAM ...) ; file: /gnu/store/cxxq6k48jfad4l7y1h89jw5br0cp24jj-sbcl-chipz-0.8-1.75dfbc6/share/common-lisp/sbcl/chipz/decompress.lisp ; in: DEFUN %DECOMPRESS/NULL-STREAM ; (MAKE-ARRAY 8192 :ELEMENT-TYPE '(UNSIGNED-BYTE 8)) ; ; note: could not stack allocate: (MAKE-ARRAY 8192 :ELEMENT-TYPE '(UNSIGNED-BYTE 8)) ; processing (DEFMETHOD DECOMPRESS ...) ; processing (DEFUN %DECOMPRESS/VECTOR-VECTOR ...) ; processing (DEFMETHOD DECOMPRESS ...) ; processing (DEFUN %DECOMPRESS/STREAM-VECTOR ...) ; file: /gnu/store/cxxq6k48jfad4l7y1h89jw5br0cp24jj-sbcl-chipz-0.8-1.75dfbc6/share/common-lisp/sbcl/chipz/decompress.lisp ; in: DEFUN %DECOMPRESS/STREAM-VECTOR ; (MAKE-ARRAY 8192 :ELEMENT-TYPE '(UNSIGNED-BYTE 8)) ; ; note: could not stack allocate: (MAKE-ARRAY 8192 :ELEMENT-TYPE '(UNSIGNED-BYTE 8)) ; processing (DEFMETHOD DECOMPRESS ...) ; processing (DEFUN %DECOMPRESS/STREAM-STREAM ...) ; file: /gnu/store/cxxq6k48jfad4l7y1h89jw5br0cp24jj-sbcl-chipz-0.8-1.75dfbc6/share/common-lisp/sbcl/chipz/decompress.lisp ; in: DEFUN %DECOMPRESS/STREAM-STREAM ; (MAKE-ARRAY 8192 :ELEMENT-TYPE '(UNSIGNED-BYTE 8)) ; ; note: could not stack allocate: (MAKE-ARRAY 8192 :ELEMENT-TYPE '(UNSIGNED-BYTE 8)) ; ; note: could not stack allocate: (MAKE-ARRAY 8192 :ELEMENT-TYPE '(UNSIGNED-BYTE 8)) ; processing (DEFMETHOD DECOMPRESS ...) ; wrote /gnu/store/cxxq6k48jfad4l7y1h89jw5br0cp24jj-sbcl-chipz-0.8-1.75dfbc6/lib/common-lisp/sbcl/chipz/decompress-tmp9KKTJMYV.fasl ; compilation finished in 0:00:00.135 ; compiling file "/gnu/store/cxxq6k48jfad4l7y1h89jw5br0cp24jj-sbcl-chipz-0.8-1.75dfbc6/share/common-lisp/sbcl/chipz/stream.lisp" (written 01 JAN 1970 12:00:01 AM): ; processing (IN-PACKAGE :CHIPZ) ; processing (DEFVAR *BINARY-INPUT-STREAM-CLASS* ...) ; processing (DEFVAR *STREAM-READ-BYTE-FUNCTION* ...) ; processing (DEFVAR *STREAM-READ-SEQUENCE-FUNCTION* ...) ; processing (DEFMACRO DEFINE-STREAM-READ-SEQUENCE ...) ; processing (DEFCLASS DECOMPRESSING-STREAM ...) ; processing (DEFUN MAKE-DECOMPRESSING-STREAM ...) ; processing (DEFUN OUTPUT-AVAILABLE-P ...) ; processing (DEFUN INPUT-AVAILABLE-P ...) ; processing (DEFUN REFILL-STREAM-INPUT-BUFFER ...) ; processing (DEFUN REFILL-STREAM-OUTPUT-BUFFER ...) ; processing (DEFUN READ-AND-DECOMPRESS-BYTE ...) ; processing (DEFUN COPY-EXISTING-OUTPUT ...) ; processing (DEFINE-STREAM-READ-SEQUENCE DECOMPRESSING-STREAM ...) ; file: /gnu/store/cxxq6k48jfad4l7y1h89jw5br0cp24jj-sbcl-chipz-0.8-1.75dfbc6/share/common-lisp/sbcl/chipz/stream.lisp ; in: DEFINE-STREAM-READ-SEQUENCE DECOMPRESSING-STREAM ; (CALL-NEXT-METHOD) ; ; note: deleting unreachable code ; processing (DEFMETHOD SB-GRAY:STREAM-READ-BYTE ...) ; wrote /gnu/store/cxxq6k48jfad4l7y1h89jw5br0cp24jj-sbcl-chipz-0.8-1.75dfbc6/lib/common-lisp/sbcl/chipz/stream-tmpJU0JWO19.fasl ; compilation finished in 0:00:00.111 ; ; compilation unit finished ; printed 309 notes phase `build' succeeded after 2.3 seconds starting phase `check' Invoking sbcl: "/gnu/store/afssx1p5hr49i0ak3jvnfpdi5sj7z139-sbcl-2.1.4/bin/sbcl" "--non-interactive" "--eval" "(require :asdf)" "--eval" "(asdf:load-asd (truename \"/gnu/store/cxxq6k48jfad4l7y1h89jw5br0cp24jj-sbcl-chipz-0.8-1.75dfbc6/share/common-lisp/sbcl/chipz/chipz.asd\"))" "--eval" "(when (uiop:file-exists-p \"chipz-tests.asd\") (asdf:load-asd (truename \"chipz-tests.asd\")))" "--eval" "(when (uiop:file-exists-p \"chipz-test.asd\") (asdf:load-asd (truename \"chipz-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 \"chipz\")" 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. phase `check' succeeded after 0.6 seconds starting phase `create-asdf-configuration' `/tmp/guix-build-sbcl-chipz-0.8-1.75dfbc6.drv-0/source/.cl-union/etc/common-lisp/source-registry.conf.d/50-flexi-streams.conf' -> `/gnu/store/cxxq6k48jfad4l7y1h89jw5br0cp24jj-sbcl-chipz-0.8-1.75dfbc6/etc/common-lisp/source-registry.conf.d/50-flexi-streams.conf' `/tmp/guix-build-sbcl-chipz-0.8-1.75dfbc6.drv-0/source/.cl-union/etc/common-lisp/source-registry.conf.d/50-trivial-gray-streams.conf' -> `/gnu/store/cxxq6k48jfad4l7y1h89jw5br0cp24jj-sbcl-chipz-0.8-1.75dfbc6/etc/common-lisp/source-registry.conf.d/50-trivial-gray-streams.conf' `/tmp/guix-build-sbcl-chipz-0.8-1.75dfbc6.drv-0/source/.cl-union/etc/common-lisp/asdf-output-translations.conf.d/50-flexi-streams.conf' -> `/gnu/store/cxxq6k48jfad4l7y1h89jw5br0cp24jj-sbcl-chipz-0.8-1.75dfbc6/etc/common-lisp/asdf-output-translations.conf.d/50-flexi-streams.conf' `/tmp/guix-build-sbcl-chipz-0.8-1.75dfbc6.drv-0/source/.cl-union/etc/common-lisp/asdf-output-translations.conf.d/50-trivial-gray-streams.conf' -> `/gnu/store/cxxq6k48jfad4l7y1h89jw5br0cp24jj-sbcl-chipz-0.8-1.75dfbc6/etc/common-lisp/asdf-output-translations.conf.d/50-trivial-gray-streams.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/cxxq6k48jfad4l7y1h89jw5br0cp24jj-sbcl-chipz-0.8-1.75dfbc6/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