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