* Package: dev-lisp/sbcl-1.2.9  * Repository: grozin  * Maintainer: pchrist@gentoo.org sionescu+gentoo@cddr.org,common-lisp@gentoo.org,proxy-maint@gentoo.org  * USE: abi_x86_32 doc elibc_glibc kernel_linux unicode userland_GNU x86 zlib  * FEATURES: preserve-libs sandbox userpriv usersandbox  * Package: dev-lisp/sbcl-1.2.9  * Repository: grozin  * Maintainer: pchrist@gentoo.org sionescu+gentoo@cddr.org,common-lisp@gentoo.org,proxy-maint@gentoo.org  * USE: abi_x86_32 doc elibc_glibc kernel_linux unicode userland_GNU x86 zlib  * FEATURES: preserve-libs sandbox userpriv usersandbox >>> Unpacking source... >>> Unpacking sbcl-1.2.9-source.tar.bz2 to /var/tmp/portage/dev-lisp/sbcl-1.2.9/work >>> Unpacking sbcl-1.2.7-x86-linux-binary.tar.bz2 to /var/tmp/portage/dev-lisp/sbcl-1.2.9/work >>> Source unpacked in /var/tmp/portage/dev-lisp/sbcl-1.2.9/work >>> Preparing source in /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9 ... * Applying gentoo-fix_install_man.patch ...  [ ok ] * Applying concurrency-test-1.2.6.patch ...  [ ok ] * Applying bsd-sockets-test-1.2.9.patch ...  [ ok ] * Applying sbcl-1.0.6-solaris.patch ...  [ ok ] * Applying sbcl-1.2.7-verbose-build.patch ...  [ ok ] >>> Source prepared. >>> Configuring source in /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9 ... (lambda (list) (flet ((enable (x) (pushnew x list)) (disable (x) (setf list (remove x list)))) (disable :sb-thread) (enable :sb-ldb) (disable :sb-test) (enable :sb-unicode) (enable :sb-core-compression) (disable :sb-xref-for-internals) ) list) >>> Source configured. >>> Compiling source in /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9 ... + set -e + print_help=no + '[' linux-gnu = cygwin -o linux-gnu = msys ']' + SBCL_PREFIX=/usr + SBCL_XC_HOST='sbcl --disable-debugger --no-userinit --no-sysinit' + export SBCL_XC_HOST + WITH_FEATURES= + WITHOUT_FEATURES= + FANCY_FEATURES=':sb-core-compression :sb-xref-for-internals :sb-after-xc-core' + fancy=false + some_options=false + for option in '"$@"' + optarg_ok=true + case $option in + optarg= + case $option in + false + legacy_xc_spec='sh /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-binary/run-sbcl.sh --no-sysinit --no-userinit' + some_options=true + test -f customize-target-features.lisp + test -n '' + test -n '' + test -n 'sh /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-binary/run-sbcl.sh --no-sysinit --no-userinit' + SBCL_XC_HOST='sh /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-binary/run-sbcl.sh --no-sysinit --no-userinit' + test no = yes + sh clean.sh find: '../../obj/asdf-cache/sb-md5': No such file or directory find: '../../obj/asdf-cache/sb-queue': No such file or directory find: '../../obj/asdf-cache/sb-concurrency': No such file or directory find: '../../obj/asdf-cache/sb-rotate-byte': No such file or directory find: '../../obj/asdf-cache/sb-grovel': No such file or directory find: '../../obj/asdf-cache/sb-sprof': No such file or directory find: '../../obj/asdf-cache/sb-bsd-sockets': No such file or directory find: '../../obj/asdf-cache/sb-cover': No such file or directory find: '../../obj/asdf-cache/sb-posix': No such file or directory rm -f *~ *.bak *.orig \#*\# .\#* texput.log *.fasl rm -rf sbcl asdf "docstrings/" rm -f sbcl.html asdf.html rm -f contrib-docs.texi-temp rm -f package-locks.texi-temp rm -f variables.texinfo rm -f sbcl.ps asdf.ps sbcl.pdf asdf.pdf html-stamp tempfiles-stamp rm -f asdf.aux asdf.cp asdf.cps asdf.fn asdf.fns asdf.ky asdf.log asdf.pg asdf.toc asdf.tp asdf.tps asdf.vr asdf.vrs sbcl.aux sbcl.cp sbcl.cps sbcl.fn sbcl.fns sbcl.ky sbcl.log sbcl.pg sbcl.toc sbcl.tp sbcl.tps sbcl.vr sbcl.vrs rm -f sbcl.info sbcl.info-* asdf.info rm -rf *.include *.info *.pdf *~ *.cp *.fn *.ky *.log *.pg *.toc \ *.tp *.vr *.aux *.eps *.png *.dvi *.ps *.txt *.fns \ html-stamp sbcl-internals/ + mkdir -p output + echo 'SBCL_PREFIX='\''/usr'\''' + echo '' + '[' linux-gnu = cygwin -o linux-gnu = msys ']' + DEVNULL=/dev/null + export DEVNULL + . ./find-gnumake.sh + find_gnumake + '[' make '!=' '' ']' + GNUMAKE=make + export GNUMAKE + ./generate-version.sh + echo 'DEVNULL="/dev/null"; export DEVNULL' + echo 'GNUMAKE="make"; export GNUMAKE' + echo 'SBCL_XC_HOST="sh /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-binary/run-sbcl.sh --no-sysinit --no-userinit"; export SBCL_XC_HOST' + echo 'legacy_xc_spec="sh /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-binary/run-sbcl.sh --no-sysinit --no-userinit"; export legacy_xc_spec' + '[' -n '' ']' + '[' -n '' ']' + case `uname` in ++ uname + sbcl_os=linux + echo //entering make-config.sh //entering make-config.sh + echo //ensuring the existence of output/ directory //ensuring the existence of output/ directory + '[' '!' -d output ']' + echo //guessing default target CPU architecture from host architecture //guessing default target CPU architecture from host architecture + case `uname -m` in ++ uname -m + guessed_sbcl_arch=x86 + '[' linux = sunos ']' + '[' linux = darwin ']' + echo //setting up CPU-architecture-dependent information //setting up CPU-architecture-dependent information + test -n '' + sbcl_arch=x86 + echo 'sbcl_arch="x86"' sbcl_arch="x86" + '[' x86 = '' ']' + false + case $sbcl_arch in + case $sbcl_os in + WITH_FEATURES=' :sb-thread' ++ pwd + ltf=/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/local-target-features.lisp-expr + echo //initializing /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/local-target-features.lisp-expr //initializing /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/local-target-features.lisp-expr + echo ';;;; This is a machine-generated file.' + echo ';;;; Please do not edit it by hand.' + echo ';;;; See make-config.sh.' + echo '(lambda (features) (union (set-difference (union features (list :sb-thread)) (list))' + printf ' (list ' + printf :%s x86 + echo //setting up OS-dependent information //setting up OS-dependent information + '[' linux = darwin ']' ++ pwd + original_dir=/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9 + cd ./src/runtime/ + rm -f Config target-arch-os.h target-arch.h target-os.h target-lispregs.h + link_or_copy x86-arch.h target-arch.h + '[' linux = win32 ']' + ln -s x86-arch.h target-arch.h + link_or_copy x86-lispregs.h target-lispregs.h + '[' linux = win32 ']' + ln -s x86-lispregs.h target-lispregs.h + case "$sbcl_os" in + printf ' :unix' + printf ' :elf' + printf ' :linux' + case "$sbcl_arch" in + printf ' :sb-futex :largefile' + link_or_copy Config.x86-linux Config + '[' linux = win32 ']' + ln -s Config.x86-linux Config + link_or_copy x86-linux-os.h target-arch-os.h + '[' linux = win32 ']' + ln -s x86-linux-os.h target-arch-os.h + link_or_copy linux-os.h target-os.h + '[' linux = win32 ']' + ln -s linux-os.h target-os.h + cd /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9 + '[' x86 = x86 ']' + printf ' :gencgc :stack-grows-downward-not-upward :c-stack-is-control-stack' + printf ' :compare-and-swap-vops :unwind-to-frame-and-call-vop :raw-instance-init-vops' + printf ' :stack-allocatable-closures :stack-allocatable-vectors' + printf ' :stack-allocatable-lists :stack-allocatable-fixed-objects' + printf ' :alien-callbacks :cycle-counter :inline-constants :precise-arg-count-error' + printf ' :memory-barrier-vops :multiply-high-vops :ash-right-vops :symbol-info-vops' + case "$sbcl_os" in + printf ' :linkage-table' + '[' linux = win32 ']' + '[' linux = openbsd ']' + make -C tools-for-build determine-endianness -I ../src/runtime make: Entering directory '/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/tools-for-build' i686-pc-linux-gnu-gcc -O2 -march=native -pipe -m32 -fno-omit-frame-pointer -I../src/runtime -Wl,-O1 -Wl,--as-needed determine-endianness.c -ldl -o determine-endianness make: Leaving directory '/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/tools-for-build' + tools-for-build/determine-endianness + export sbcl_os sbcl_arch + sh tools-for-build/grovel-features.sh + echo //finishing /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/local-target-features.lisp-expr //finishing /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/local-target-features.lisp-expr + echo ')))' ++ uname + '[' Linux = SunOS ']' ++ hostname ++ id -un ++ date +%Y-%m-%d-%H-%M-%S + echo '"elrond-portage-2015-03-18-12-51-12"' + '[' -n '' ']' //Starting build: Wed Mar 18 12:51:12 NOVT 2015 //Options: --prefix='/usr' --xc-host='sh /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-binary/run-sbcl.sh --no-sysinit --no-userinit' which: no gfind in (/usr/lib/portage/python3.3/ebuild-helpers:/usr/local/sbin:/usr/local/bin:/usr/sbin:/usr/bin:/sbin:/bin:/opt/bin:/usr/i686-pc-linux-gnu/gcc-bin/4.9.2) which: no gnufind in (/usr/lib/portage/python3.3/ebuild-helpers:/usr/local/sbin:/usr/local/bin:/usr/sbin:/usr/bin:/sbin:/bin:/opt/bin:/usr/i686-pc-linux-gnu/gcc-bin/4.9.2) /in canonicalize-whitespace-1 /$*=./tools-for-build/ldso-stubs.lisp ./tools-for-build/ucd.lisp ./tools-for-build/wxs.lisp ./tools-for-build/rtf.lisp ./make-host-2.lisp ./make-target-2-load.lisp ./customize-target-features.lisp ./doc/manual/create-contrib-doc-list.lisp ./doc/manual/docstrings.lisp ./make-host-1.lisp ./make-genesis-2.lisp ./contrib/sb-grovel/def-to-lisp.lisp ./contrib/sb-grovel/foreign-glue.lisp ./contrib/sb-grovel/example-constants.lisp ./contrib/sb-grovel/defpackage.lisp ./contrib/sb-introspect/xref-test.lisp ./contrib/sb-introspect/introspect.lisp ./contrib/sb-introspect/test.lisp ./contrib/sb-introspect/xref-test-data.lisp ./contrib/sb-introspect/test-driver.lisp ./contrib/sb-introspect/load-test.lisp ./contrib/sb-posix/constants.lisp ./contrib/sb-posix/posix-tests.lisp ./contrib/sb-posix/defpackage.lisp ./contrib/sb-posix/designator.lisp ./contrib/sb-posix/interface.lisp ./contrib/sb-posix/macros.lisp ./contrib/sb-aclrepl/repl.lisp ./contrib/sb-aclrepl/toplevel.lisp ./contrib/sb-aclrepl/debug.lisp ./contrib/sb-aclrepl/inspect.lisp ./contrib/sb-aclrepl/tests.lisp ./contrib/asdf-stub.lisp ./contrib/stale-symbols.lisp ./contrib/sb-rotate-byte/rotate-byte-tests.lisp ./contrib/sb-rotate-byte/x86-64-vm.lisp ./contrib/sb-rotate-byte/compiler.lisp ./contrib/sb-rotate-byte/x86-vm.lisp ./contrib/sb-rotate-byte/ppc-vm.lisp ./contrib/sb-rotate-byte/package.lisp ./contrib/sb-rotate-byte/arm-vm.lisp ./contrib/sb-rotate-byte/rotate-byte.lisp ./contrib/sb-queue/package.lisp ./contrib/sb-gmp/tests-stress.lisp ./contrib/sb-gmp/bench.lisp ./contrib/sb-gmp/tests.lisp ./contrib/sb-gmp/gmp.lisp ./contrib/sb-md5/md5.lisp ./contrib/sb-md5/md5-tests.lisp ./contrib/sb-sprof/test.lisp ./contrib/sb-sprof/sb-sprof.lisp ./contrib/compiler-extras.lisp ./contrib/sb-simple-streams/impl.lisp ./contrib/sb-simple-streams/strategy.lisp ./contrib/sb-simple-streams/terminal.lisp ./contrib/sb-simple-streams/file.lisp ./contrib/sb-simple-streams/iodefs.lisp ./contrib/sb-simple-streams/null.lisp ./contrib/sb-simple-streams/string.lisp ./contrib/sb-simple-streams/classes.lisp ./contrib/sb-simple-streams/fndb.lisp ./contrib/sb-simple-streams/internal.lisp ./contrib/sb-simple-streams/direct.lisp ./contrib/sb-simple-streams/socket.lisp ./contrib/sb-simple-streams/simple-stream-tests.lisp ./contrib/sb-simple-streams/package.lisp ./contrib/code-extras.lisp ./contrib/sb-executable/sb-executable.lisp ./contrib/sb-bsd-sockets/constants.lisp ./contrib/sb-bsd-sockets/win32-sockets.lisp ./contrib/sb-bsd-sockets/sockopt.lisp ./contrib/sb-bsd-sockets/win32-constants.lisp ./contrib/sb-bsd-sockets/inet4.lisp ./contrib/sb-bsd-sockets/inet.lisp ./contrib/sb-bsd-sockets/util.lisp ./contrib/sb-bsd-sockets/local.lisp ./contrib/sb-bsd-sockets/win32-lib.lisp ./contrib/sb-bsd-sockets/misc.lisp ./contrib/sb-bsd-sockets/defpackage.lisp ./contrib/sb-bsd-sockets/name-service.lisp ./contrib/sb-bsd-sockets/inet6.lisp ./contrib/sb-bsd-sockets/tests.lisp ./contrib/sb-bsd-sockets/protocol.lisp ./contrib/sb-bsd-sockets/sockets.lisp ./contrib/sb-mpfr/mpfr.lisp ./contrib/sb-mpfr/tests.lisp ./contrib/sb-cltl2/env.lisp ./contrib/sb-cltl2/compiler-let.lisp ./contrib/sb-cltl2/macroexpand.lisp ./contrib/sb-cltl2/defpackage.lisp ./contrib/sb-cltl2/tests.lisp ./contrib/asdf/uiop.lisp ./contrib/asdf/asdf.lisp ./contrib/sb-rt/rt.lisp ./contrib/sb-cover/cover.lisp ./contrib/sb-cover/test-data-3.lisp ./contrib/sb-cover/test-data-2.lisp ./contrib/sb-cover/tests.lisp ./contrib/sb-cover/test-data-1.lisp ./contrib/sb-concurrency/queue.lisp ./contrib/sb-concurrency/frlock.lisp ./contrib/sb-concurrency/gate.lisp ./contrib/sb-concurrency/mailbox.lisp ./contrib/sb-concurrency/tests/test-gate.lisp ./contrib/sb-concurrency/tests/test-mailbox.lisp ./contrib/sb-concurrency/tests/test-queue.lisp ./contrib/sb-concurrency/tests/test-utils.lisp ./contrib/sb-concurrency/tests/test-frlock.lisp ./contrib/sb-concurrency/tests/package.lisp ./contrib/sb-concurrency/package.lisp ./src/cold/warm.lisp ./src/cold/slam.lisp ./src/cold/set-up-cold-packages.lisp ./src/cold/with-stuff.lisp ./src/cold/rename-package-carefully.lisp ./src/cold/compile-cold-sbcl.lisp ./src/cold/shared.lisp ./src/cold/defun-load-or-cload-xcompiler.lisp ./src/cold/read-from-file.lisp ./src/cold/snapshot.lisp ./src/cold/shebang.lisp ./src/cold/chill.lisp ./src/cold/ansify.lisp ./src/code/target-allocate.lisp ./src/code/module.lisp ./src/code/seq.lisp ./src/code/win32.lisp ./src/code/target-format.lisp ./src/code/defmacro.lisp ./src/code/early-constants.lisp ./src/code/uncross.lisp ./src/code/stream.lisp ./src/code/host-alieneval.lisp ./src/code/float-trap.lisp ./src/code/format-time.lisp ./src/code/mipsstrops.lisp ./src/code/defsetfs.lisp ./src/code/ntrace.lisp ./src/code/common-os.lisp ./src/code/cl-specials.lisp ./src/code/source-location.lisp ./src/code/condition.lisp ./src/code/early-format.lisp ./src/code/full-eval.lisp ./src/code/error.lisp ./src/code/bignum-random.lisp ./src/code/cross-misc.lisp ./src/code/interr.lisp ./src/code/show.lisp ./src/code/early-impl.lisp ./src/code/primordial-type.lisp ./src/code/pred.lisp ./src/code/force-delayed-defbangmethods.lisp ./src/code/ansi-stream.lisp ./src/code/early-full-eval.lisp ./src/code/gc.lisp ./src/code/cold-init-helper-macros.lisp ./src/code/force-delayed-defbangmacros.lisp ./src/code/sc-offset.lisp ./src/code/cross-modular.lisp ./src/code/reader.lisp ./src/code/late-extensions.lisp ./src/code/host-pprint.lisp ./src/code/octets.lisp ./src/code/random.lisp ./src/code/weak.lisp ./src/code/pathname.lisp ./src/code/cross-early.lisp ./src/code/cross-thread.lisp ./src/code/foreign-load.lisp ./src/code/room.lisp ./src/code/symbol.lisp ./src/code/readtable.lisp ./src/code/type-class.lisp ./src/code/misc-aliens.lisp ./src/code/typep.lisp ./src/code/early-setf.lisp ./src/code/target-random.lisp ./src/code/serve-event.lisp ./src/code/filesys.lisp ./src/code/sparc-vm.lisp ./src/code/target-thread.lisp ./src/code/deftypes-for-target.lisp ./src/code/thread.lisp ./src/code/sunos-os.lisp ./src/code/purify.lisp ./src/code/early-defbangmethod.lisp ./src/code/fop.lisp ./src/code/eval.lisp ./src/code/linux-os.lisp ./src/code/target-sxhash.lisp ./src/code/cross-make-load-form.lisp ./src/code/target-misc.lisp ./src/code/target-char.lisp ./src/code/defbangtype.lisp ./src/code/linkage-table.lisp ./src/code/hash-table.lisp ./src/code/x86-64-vm.lisp ./src/code/run-program.lisp ./src/code/target-error.lisp ./src/code/target-type.lisp ./src/code/cross-char.lisp ./src/code/char.lisp ./src/code/win32-foreign-load.lisp ./src/code/early-thread.lisp ./src/code/early-source-location.lisp ./src/code/funutils.lisp ./src/code/stubs.lisp ./src/code/globals.lisp ./src/code/cross-sap.lisp ./src/code/early-step.lisp ./src/code/coerce.lisp ./src/code/float.lisp ./src/code/huffman.lisp ./src/code/error-error.lisp ./src/code/load.lisp ./src/code/mips-vm.lisp ./src/code/target-load.lisp ./src/code/hppa-vm.lisp ./src/code/early-package.lisp ./src/code/force-delayed-defbangconstants.lisp ./src/code/alloc.lisp ./src/code/warm-lib.lisp ./src/code/class.lisp ./src/code/target-extensions.lisp ./src/code/loop.lisp ./src/code/sharpm.lisp ./src/code/defbangconstant.lisp ./src/code/string.lisp ./src/code/toplevel.lisp ./src/code/defbangmacro.lisp ./src/code/destructuring-bind.lisp ./src/code/save.lisp ./src/code/parse-defmacro-errors.lisp ./src/code/query.lisp ./src/code/cross-type.lisp ./src/code/parse-body.lisp ./src/code/barrier.lisp ./src/code/target-unicode.lisp ./src/code/defboot.lisp ./src/code/primordial-extensions.lisp ./src/code/xset.lisp ./src/code/dyncount.lisp ./src/code/unix-pathname.lisp ./src/code/late-deftypes-for-target.lisp ./src/code/cold-init.lisp ./src/code/time.lisp ./src/code/macroexpand.lisp ./src/code/early-fasl.lisp ./src/code/force-delayed-defbangstructs.lisp ./src/code/win32-os.lisp ./src/code/misc.lisp ./src/code/class-init.lisp ./src/code/bsd-os.lisp ./src/code/defpackage.lisp ./src/code/warm-mswin.lisp ./src/code/target-signal.lisp ./src/code/early-defstructs.lisp ./src/code/unix.lisp ./src/code/target-hash-table.lisp ./src/code/late-defbangmethod.lisp ./src/code/late-setf.lisp ./src/code/late-cas.lisp ./src/code/step.lisp ./src/code/cross-condition.lisp ./src/code/unix-foreign-load.lisp ./src/code/x86-vm.lisp ./src/code/debug.lisp ./src/code/unportable-float.lisp ./src/code/defstruct.lisp ./src/code/list.lisp ./src/code/cas.lisp ./src/code/osf1-os.lisp ./src/code/setf-funs.lisp ./src/code/early-extensions.lisp ./src/code/bignum.lisp ./src/code/foreign.lisp ./src/code/typedefs.lisp ./src/code/specializable-array.lisp ./src/code/cross-float.lisp ./src/code/external-formats/enc-mac.lisp ./src/code/external-formats/enc-dos.lisp ./src/code/external-formats/enc-utf.lisp ./src/code/external-formats/enc-ucs.lisp ./src/code/external-formats/enc-jpn-tbl.lisp ./src/code/external-formats/enc-basic.lisp ./src/code/external-formats/enc-ebcdic.lisp ./src/code/external-formats/enc-jpn.lisp ./src/code/external-formats/enc-iso.lisp ./src/code/external-formats/mb-util.lisp ./src/code/external-formats/enc-win.lisp ./src/code/external-formats/enc-cyr.lisp ./src/code/external-formats/enc-cn.lisp ./src/code/external-formats/enc-cn-tbl.lisp ./src/code/function-names.lisp ./src/code/late-type.lisp ./src/code/inspect.lisp ./src/code/alien-type.lisp ./src/code/debug-info.lisp ./src/code/array.lisp ./src/code/debug-var-io.lisp ./src/code/cross-boole.lisp ./src/code/parse-defmacro.lisp ./src/code/cross-io.lisp ./src/code/host-c-call.lisp ./src/code/target-defbangmethod.lisp ./src/code/kernel.lisp ./src/code/sysmacs.lisp ./src/code/describe-policy.lisp ./src/code/sxhash.lisp ./src/code/early-type.lisp ./src/code/cross-byte.lisp ./src/code/hpux-os.lisp ./src/code/signal.lisp ./src/code/deadline.lisp ./src/code/pprint.lisp ./src/code/defbangstruct.lisp ./src/code/backq.lisp ./src/code/target-alieneval.lisp ./src/code/early-raw-slots.lisp ./src/code/final.lisp ./src/code/target-package.lisp ./src/code/early-cl.lisp ./src/code/debug-int.lisp ./src/code/early-time.lisp ./src/code/target-defstruct.lisp ./src/code/cold-error.lisp ./src/code/describe.lisp ./src/code/win32-pathname.lisp ./src/code/late-condition.lisp ./src/code/late-format.lisp ./src/code/early-array.lisp ./src/code/numbers.lisp ./src/code/exhaust.lisp ./src/code/early-float.lisp ./src/code/macros.lisp ./src/code/target-exception.lisp ./src/code/fdefinition.lisp ./src/code/alpha-vm.lisp ./src/code/early-pprint.lisp ./src/code/print.lisp ./src/code/ppc-vm.lisp ./src/code/early-alieneval.lisp ./src/code/sort.lisp ./src/code/profile.lisp ./src/code/target-sap.lisp ./src/code/fd-stream.lisp ./src/code/target-stream.lisp ./src/code/android-os.lisp ./src/code/early-print.lisp ./src/code/irrat.lisp ./src/code/bit-bash.lisp ./src/code/target-pathname.lisp ./src/code/type-init.lisp ./src/code/package.lisp ./src/code/timer.lisp ./src/code/arm-vm.lisp ./src/code/target-c-call.lisp ./src/compiler/main.lisp ./src/compiler/target-disassem.lisp ./src/compiler/aliencomp.lisp ./src/compiler/copyprop.lisp ./src/compiler/checkgen.lisp ./src/compiler/ir1report.lisp ./src/compiler/locall.lisp ./src/compiler/float-tran.lisp ./src/compiler/physenvanal.lisp ./src/compiler/knownfun.lisp ./src/compiler/ir1-translators.lisp ./src/compiler/ir2opt.lisp ./src/compiler/ir1util.lisp ./src/compiler/x86-64/backend-parms.lisp ./src/compiler/x86-64/move.lisp ./src/compiler/x86-64/show.lisp ./src/compiler/x86-64/arith.lisp ./src/compiler/x86-64/pred.lisp ./src/compiler/x86-64/parms.lisp ./src/compiler/x86-64/target-insts.lisp ./src/compiler/x86-64/insts.lisp ./src/compiler/x86-64/vm.lisp ./src/compiler/x86-64/char.lisp ./src/compiler/x86-64/nlx.lisp ./src/compiler/x86-64/type-vops.lisp ./src/compiler/x86-64/float.lisp ./src/compiler/x86-64/alloc.lisp ./src/compiler/x86-64/call.lisp ./src/compiler/x86-64/subprim.lisp ./src/compiler/x86-64/debug.lisp ./src/compiler/x86-64/sap.lisp ./src/compiler/x86-64/simd-pack.lisp ./src/compiler/x86-64/cell.lisp ./src/compiler/x86-64/array.lisp ./src/compiler/x86-64/static-fn.lisp ./src/compiler/x86-64/values.lisp ./src/compiler/x86-64/c-call.lisp ./src/compiler/x86-64/system.lisp ./src/compiler/x86-64/macros.lisp ./src/compiler/x86-64/memory.lisp ./src/compiler/ir1final.lisp ./src/compiler/stack.lisp ./src/compiler/arm/backend-parms.lisp ./src/compiler/arm/sanctify.lisp ./src/compiler/arm/move.lisp ./src/compiler/arm/show.lisp ./src/compiler/arm/arith.lisp ./src/compiler/arm/pred.lisp ./src/compiler/arm/parms.lisp ./src/compiler/arm/target-insts.lisp ./src/compiler/arm/insts.lisp ./src/compiler/arm/vm.lisp ./src/compiler/arm/char.lisp ./src/compiler/arm/nlx.lisp ./src/compiler/arm/type-vops.lisp ./src/compiler/arm/float.lisp ./src/compiler/arm/alloc.lisp ./src/compiler/arm/call.lisp ./src/compiler/arm/subprim.lisp ./src/compiler/arm/debug.lisp ./src/compiler/arm/sap.lisp ./src/compiler/arm/cell.lisp ./src/compiler/arm/array.lisp ./src/compiler/arm/static-fn.lisp ./src/compiler/arm/values.lisp ./src/compiler/arm/c-call.lisp ./src/compiler/arm/system.lisp ./src/compiler/arm/macros.lisp ./src/compiler/arm/memory.lisp ./src/compiler/fun-info-funs.lisp ./src/compiler/backend.lisp ./src/compiler/proclaim.lisp ./src/compiler/node.lisp ./src/compiler/policy.lisp ./src/compiler/deftype.lisp ./src/compiler/dfo.lisp ./src/compiler/early-backend.lisp ./src/compiler/fopcompile.lisp ./src/compiler/ppc/backend-parms.lisp ./src/compiler/ppc/sanctify.lisp ./src/compiler/ppc/move.lisp ./src/compiler/ppc/show.lisp ./src/compiler/ppc/arith.lisp ./src/compiler/ppc/pred.lisp ./src/compiler/ppc/parms.lisp ./src/compiler/ppc/target-insts.lisp ./src/compiler/ppc/insts.lisp ./src/compiler/ppc/vm.lisp ./src/compiler/ppc/char.lisp ./src/compiler/ppc/nlx.lisp ./src/compiler/ppc/type-vops.lisp ./src/compiler/ppc/float.lisp ./src/compiler/ppc/alloc.lisp ./src/compiler/ppc/call.lisp ./src/compiler/ppc/subprim.lisp ./src/compiler/ppc/debug.lisp ./src/compiler/ppc/sap.lisp ./src/compiler/ppc/cell.lisp ./src/compiler/ppc/array.lisp ./src/compiler/ppc/static-fn.lisp ./src/compiler/ppc/values.lisp ./src/compiler/ppc/c-call.lisp ./src/compiler/ppc/system.lisp ./src/compiler/ppc/macros.lisp ./src/compiler/ppc/memory.lisp ./src/compiler/entry.lisp ./src/compiler/late-proclaim.lisp ./src/compiler/loop.lisp ./src/compiler/pack-iterative.lisp ./src/compiler/late-vmdef.lisp ./src/compiler/typetran.lisp ./src/compiler/dyncount.lisp ./src/compiler/lexenv.lisp ./src/compiler/target-dump.lisp ./src/compiler/control.lisp ./src/compiler/ir1opt.lisp ./src/compiler/fixup-type.lisp ./src/compiler/ir1tran.lisp ./src/compiler/pack.lisp ./src/compiler/hppa/backend-parms.lisp ./src/compiler/hppa/sanctify.lisp ./src/compiler/hppa/move.lisp ./src/compiler/hppa/show.lisp ./src/compiler/hppa/arith.lisp ./src/compiler/hppa/pred.lisp ./src/compiler/hppa/parms.lisp ./src/compiler/hppa/target-insts.lisp ./src/compiler/hppa/insts.lisp ./src/compiler/hppa/vm.lisp ./src/compiler/hppa/char.lisp ./src/compiler/hppa/nlx.lisp ./src/compiler/hppa/type-vops.lisp ./src/compiler/hppa/float.lisp ./src/compiler/hppa/alloc.lisp ./src/compiler/hppa/call.lisp ./src/compiler/hppa/subprim.lisp ./src/compiler/hppa/debug.lisp ./src/compiler/hppa/sap.lisp ./src/compiler/hppa/cell.lisp ./src/compiler/hppa/array.lisp ./src/compiler/hppa/static-fn.lisp ./src/compiler/hppa/values.lisp ./src/compiler/hppa/c-call.lisp ./src/compiler/hppa/system.lisp ./src/compiler/hppa/macros.lisp ./src/compiler/hppa/memory.lisp ./src/compiler/array-tran.lisp ./src/compiler/bit-util.lisp ./src/compiler/integer-tran.lisp ./src/compiler/srctran.lisp ./src/compiler/debug.lisp ./src/compiler/disassem.lisp ./src/compiler/constantp.lisp ./src/compiler/ctype.lisp ./src/compiler/fixup.lisp ./src/compiler/meta-vmdef.lisp ./src/compiler/target-main.lisp ./src/compiler/xref.lisp ./src/compiler/assem.lisp ./src/compiler/parse-lambda-list.lisp ./src/compiler/early-assem.lisp ./src/compiler/constraint.lisp ./src/compiler/ltv.lisp ./src/compiler/dump.lisp ./src/compiler/life.lisp ./src/compiler/info-functions.lisp ./src/compiler/early-aliencomp.lisp ./src/compiler/saptran.lisp ./src/compiler/globaldb.lisp ./src/compiler/fndb.lisp ./src/compiler/sparc/backend-parms.lisp ./src/compiler/sparc/sanctify.lisp ./src/compiler/sparc/move.lisp ./src/compiler/sparc/show.lisp ./src/compiler/sparc/arith.lisp ./src/compiler/sparc/pred.lisp ./src/compiler/sparc/parms.lisp ./src/compiler/sparc/target-insts.lisp ./src/compiler/sparc/insts.lisp ./src/compiler/sparc/vm.lisp ./src/compiler/sparc/char.lisp ./src/compiler/sparc/nlx.lisp ./src/compiler/sparc/type-vops.lisp ./src/compiler/sparc/float.lisp ./src/compiler/sparc/alloc.lisp ./src/compiler/sparc/call.lisp ./src/compiler/sparc/subprim.lisp ./src/compiler/sparc/debug.lisp ./src/compiler/sparc/sap.lisp ./src/compiler/sparc/cell.lisp ./src/compiler/sparc/array.lisp ./src/compiler/sparc/static-fn.lisp ./src/compiler/sparc/values.lisp ./src/compiler/sparc/c-call.lisp ./src/compiler/sparc/system.lisp ./src/compiler/sparc/macros.lisp ./src/compiler/sparc/memory.lisp ./src/compiler/codegen.lisp ./src/compiler/early-c.lisp ./src/compiler/represent.lisp ./src/compiler/pseudo-vops.lisp ./src/compiler/mips/backend-parms.lisp ./src/compiler/mips/sanctify.lisp ./src/compiler/mips/move.lisp ./src/compiler/mips/show.lisp ./src/compiler/mips/arith.lisp ./src/compiler/mips/pred.lisp ./src/compiler/mips/parms.lisp ./src/compiler/mips/target-insts.lisp ./src/compiler/mips/insts.lisp ./src/compiler/mips/vm.lisp ./src/compiler/mips/char.lisp ./src/compiler/mips/nlx.lisp ./src/compiler/mips/type-vops.lisp ./src/compiler/mips/float.lisp ./src/compiler/mips/alloc.lisp ./src/compiler/mips/call.lisp ./src/compiler/mips/subprim.lisp ./src/compiler/mips/debug.lisp ./src/compiler/mips/sap.lisp ./src/compiler/mips/cell.lisp ./src/compiler/mips/array.lisp ./src/compiler/mips/static-fn.lisp ./src/compiler/mips/values.lisp ./src/compiler/mips/c-call.lisp ./src/compiler/mips/system.lisp ./src/compiler/mips/macros.lisp ./src/compiler/mips/memory.lisp ./src/compiler/tn.lisp ./src/compiler/compiler-error.lisp ./src/compiler/macros.lisp ./src/compiler/defconstant.lisp ./src/compiler/generic/vm-array.lisp ./src/compiler/generic/interr.lisp ./src/compiler/generic/target-core.lisp ./src/compiler/generic/parms.lisp ./src/compiler/generic/objdef.lisp ./src/compiler/generic/vm-ir2tran.lisp ./src/compiler/generic/late-objdef.lisp ./src/compiler/generic/primtype.lisp ./src/compiler/generic/vm-fndb.lisp ./src/compiler/generic/early-type-vops.lisp ./src/compiler/generic/late-nlx.lisp ./src/compiler/generic/utils.lisp ./src/compiler/generic/early-objdef.lisp ./src/compiler/generic/core.lisp ./src/compiler/generic/vm-tran.lisp ./src/compiler/generic/early-vm.lisp ./src/compiler/generic/vm-macs.lisp ./src/compiler/generic/vm-type.lisp ./src/compiler/generic/genesis.lisp ./src/compiler/generic/vm-typetran.lisp ./src/compiler/generic/late-type-vops.lisp ./src/compiler/generic/type-error.lisp ./src/compiler/alpha/backend-parms.lisp ./src/compiler/alpha/sanctify.lisp ./src/compiler/alpha/move.lisp ./src/compiler/alpha/show.lisp ./src/compiler/alpha/arith.lisp ./src/compiler/alpha/pred.lisp ./src/compiler/alpha/parms.lisp ./src/compiler/alpha/target-insts.lisp ./src/compiler/alpha/insts.lisp ./src/compiler/alpha/vm.lisp ./src/compiler/alpha/char.lisp ./src/compiler/alpha/nlx.lisp ./src/compiler/alpha/type-vops.lisp ./src/compiler/alpha/float.lisp ./src/compiler/alpha/alloc.lisp ./src/compiler/alpha/call.lisp ./src/compiler/alpha/subprim.lisp ./src/compiler/alpha/debug.lisp ./src/compiler/alpha/sap.lisp ./src/compiler/alpha/cell.lisp ./src/compiler/alpha/array.lisp ./src/compiler/alpha/static-fn.lisp ./src/compiler/alpha/values.lisp ./src/compiler/alpha/c-call.lisp ./src/compiler/alpha/system.lisp ./src/compiler/alpha/macros.lisp ./src/compiler/alpha/memory.lisp ./src/compiler/policies.lisp ./src/compiler/sset.lisp ./src/compiler/debug-dump.lisp ./src/compiler/x86/backend-parms.lisp ./src/compiler/x86/move.lisp ./src/compiler/x86/show.lisp ./src/compiler/x86/arith.lisp ./src/compiler/x86/pred.lisp ./src/compiler/x86/parms.lisp ./src/compiler/x86/target-insts.lisp ./src/compiler/x86/insts.lisp ./src/compiler/x86/vm.lisp ./src/compiler/x86/char.lisp ./src/compiler/x86/nlx.lisp ./src/compiler/x86/type-vops.lisp ./src/compiler/x86/float.lisp ./src/compiler/x86/alloc.lisp ./src/compiler/x86/call.lisp ./src/compiler/x86/subprim.lisp ./src/compiler/x86/debug.lisp ./src/compiler/x86/sap.lisp ./src/compiler/x86/cell.lisp ./src/compiler/x86/array.lisp ./src/compiler/x86/static-fn.lisp ./src/compiler/x86/values.lisp ./src/compiler/x86/c-call.lisp ./src/compiler/x86/system.lisp ./src/compiler/x86/macros.lisp ./src/compiler/x86/memory.lisp ./src/compiler/seqtran.lisp ./src/compiler/gtn.lisp ./src/compiler/info-vector.lisp ./src/compiler/ir2tran.lisp ./src/compiler/compiler-deftype.lisp ./src/compiler/vmdef.lisp ./src/compiler/ltn.lisp ./src/compiler/late-macros.lisp ./src/compiler/bitops-derive-type.lisp ./src/compiler/vop.lisp ./src/compiler/ir1tran-lambda.lisp ./src/pcl/cpl.lisp ./src/pcl/env.lisp ./src/pcl/defclass.lisp ./src/pcl/methods.lisp ./src/pcl/precom2.lisp ./src/pcl/gray-streams.lisp ./src/pcl/print-object.lisp ./src/pcl/compiler-support.lisp ./src/pcl/cache.lisp ./src/pcl/defs.lisp ./src/pcl/dfun.lisp ./src/pcl/dlisp.lisp ./src/pcl/slots-boot.lisp ./src/pcl/wrapper.lisp ./src/pcl/std-class.lisp ./src/pcl/vector.lisp ./src/pcl/ctor.lisp ./src/pcl/generic-functions.lisp ./src/pcl/early-low.lisp ./src/pcl/boot.lisp ./src/pcl/time.lisp ./src/pcl/sequence.lisp ./src/pcl/slots.lisp ./src/pcl/fixup.lisp ./src/pcl/dlisp3.lisp ./src/pcl/combin.lisp ./src/pcl/ctypes.lisp ./src/pcl/init.lisp ./src/pcl/braid.lisp ./src/pcl/walk.lisp ./src/pcl/gray-streams-class.lisp ./src/pcl/macros.lisp ./src/pcl/slot-name.lisp ./src/pcl/low.lisp ./src/pcl/fsc.lisp ./src/pcl/defcombin.lisp ./src/pcl/precom1.lisp ./src/pcl/documentation.lisp ./src/pcl/fngen.lisp ./src/assembly/x86-64/arith.lisp ./src/assembly/x86-64/alloc.lisp ./src/assembly/x86-64/assem-rtns.lisp ./src/assembly/x86-64/array.lisp ./src/assembly/x86-64/support.lisp ./src/assembly/x86-64/bit-bash.lisp ./src/assembly/arm/arith.lisp ./src/assembly/arm/alloc.lisp ./src/assembly/arm/assem-rtns.lisp ./src/assembly/arm/array.lisp ./src/assembly/arm/support.lisp ./src/assembly/ppc/arith.lisp ./src/assembly/ppc/alloc.lisp ./src/assembly/ppc/assem-rtns.lisp ./src/assembly/ppc/array.lisp ./src/assembly/ppc/support.lisp ./src/assembly/assemfile.lisp ./src/assembly/hppa/arith.lisp ./src/assembly/hppa/alloc.lisp ./src/assembly/hppa/assem-rtns.lisp ./src/assembly/hppa/array.lisp ./src/assembly/hppa/support.lisp ./src/assembly/sparc/arith.lisp ./src/assembly/sparc/alloc.lisp ./src/assembly/sparc/assem-rtns.lisp ./src/assembly/sparc/array.lisp ./src/assembly/sparc/support.lisp ./src/assembly/mips/arith.lisp ./src/assembly/mips/alloc.lisp ./src/assembly/mips/assem-rtns.lisp ./src/assembly/mips/array.lisp ./src/assembly/mips/support.lisp ./src/assembly/alpha/arith.lisp ./src/assembly/alpha/alloc.lisp ./src/assembly/alpha/assem-rtns.lisp ./src/assembly/alpha/array.lisp ./src/assembly/alpha/support.lisp ./src/assembly/x86/arith.lisp ./src/assembly/x86/alloc.lisp ./src/assembly/x86/assem-rtns.lisp ./src/assembly/x86/array.lisp ./src/assembly/x86/support.lisp ./src/assembly/x86/bit-bash.lisp ./tests/mop.pure.lisp ./tests/destructure.impure.lisp ./tests/mop-19.impure-cload.lisp ./tests/fopcompiler.impure-cload.lisp ./tests/mop-4.impure-cload.lisp ./tests/properties.impure.lisp ./tests/foreign-stack-alignment.impure.lisp ./tests/gc.impure.lisp ./tests/arith.pure.lisp ./tests/call-into-lisp.impure.lisp ./tests/mop-8.impure-cload.lisp ./tests/symbol.impure.lisp ./tests/clos-ignore.interactive.lisp ./tests/mop-20.impure-cload.lisp ./tests/interface.pure.lisp ./tests/clocc-ansi-test-known-bugs.lisp ./tests/stress-gc.lisp ./tests/external-format.impure.lisp ./tests/simd-pack.impure.lisp ./tests/info.impure.lisp ./tests/interface.impure.lisp ./tests/unicode-breaking.impure.lisp ./tests/clos.impure.lisp ./tests/threads.impure.lisp ./tests/compiler-1.impure-cload.lisp ./tests/stream.impure.lisp ./tests/enc-jpn.impure.lisp ./tests/raw-slots-interleaved.impure.lisp ./tests/mop-9.impure-cload.lisp ./tests/kill-non-lisp-thread.impure.lisp ./tests/defmacro-test.lisp ./tests/undefined-classoid-bug-1.lisp ./tests/custom-sysinit.lisp ./tests/debug.impure.lisp ./tests/gcd.pure.lisp ./tests/mop-13.impure-cload.lisp ./tests/clos-interrupts.impure.lisp ./tests/defglobal.impure-cload.lisp ./tests/assertoid.lisp ./tests/mop-25.impure.lisp ./tests/backq.impure-cload.lisp ./tests/bivalent-stream.impure.lisp ./tests/mop.impure.lisp ./tests/symbol-macrolet-test.lisp ./tests/static-alloc.impure.lisp ./tests/bug204-test.lisp ./tests/dynamic-extent.impure.lisp ./tests/mop-15.impure-cload.lisp ./tests/reader.pure.lisp ./tests/filesys.pure.lisp ./tests/win32-foreign-stack-unwind.impure.lisp ./tests/mop-28.impure.lisp ./tests/undefined-classoid-bug-2.lisp ./tests/define-compiler-macro.impure.lisp ./tests/clos-add-remove-method.impure.lisp ./tests/pprint.impure.lisp ./tests/compiler.pure.lisp ./tests/deftype.impure.lisp ./tests/mop-21.impure-cload.lisp ./tests/package-ctor-bug.lisp ./tests/alien.impure.lisp ./tests/bug-943953.lisp ./tests/bug-doug-mcnaught-20030914.lisp ./tests/mop-27.impure.lisp ./tests/compiler.pure-cload.lisp ./tests/stream.pure.lisp ./tests/macroexpand.impure.lisp ./tests/seq.pure.lisp ./tests/clos-1.impure.lisp ./tests/test-util.lisp ./tests/seq.impure.lisp ./tests/mop.impure-cload.lisp ./tests/compiler-2.impure-cload.lisp ./tests/colorize-control-codes.lisp ./tests/merge-lambdas.lisp ./tests/compiler.impure.lisp ./tests/exhaust.impure.lisp ./tests/mop-11.impure-cload.lisp ./tests/clos-typechecking.impure.lisp ./tests/run-program.impure.lisp ./tests/mop-10.impure-cload.lisp ./tests/mop-14.impure-cload.lisp ./tests/signals.impure.lisp ./tests/octets.pure.lisp ./tests/unicode-collation.impure.lisp ./tests/mop-12.impure-cload.lisp ./tests/bug-503095-2.lisp ./tests/callback.impure.lisp ./tests/string.pure.lisp ./tests/loop.pure.lisp ./tests/symbol.pure.lisp ./tests/vector.impure.lisp ./tests/unicode-normalization.impure.lisp ./tests/list.pure.lisp ./tests/type.before-xc.lisp ./tests/vm.before-xc.lisp ./tests/compare-and-swap.impure.lisp ./tests/unicode-misc.pure.lisp ./tests/load.pure.lisp ./tests/mop-30.impure.lisp ./tests/character.pure.lisp ./tests/package-locks.impure.lisp ./tests/mop-16.impure-cload.lisp ./tests/extended-sequences.impure.lisp ./tests/gray-streams.impure.lisp ./tests/condition.impure.lisp ./tests/bug-417.lisp ./tests/swap-lispobjs.impure.lisp ./tests/float.pure.lisp ./tests/dump.impure-cload.lisp ./tests/defglobal.impure.lisp ./tests/type.pure.lisp ./tests/break-on-signals.impure.lisp ./tests/macro-policy-test.lisp ./tests/type.impure.lisp ./tests/mop-22.impure-cload.lisp ./tests/array.pure.lisp ./tests/unicode-properties.impure.lisp ./tests/loop.impure.lisp ./tests/style-warnings.impure.lisp ./tests/mop-26.impure.lisp ./tests/mop-18.impure-cload.lisp ./tests/vector.pure.lisp ./tests/pure.lisp ./tests/float.impure.lisp ./tests/backq.impure.lisp ./tests/clos.pure.lisp ./tests/clos-cache.impure.lisp ./tests/bug-414.lisp ./tests/walk.impure.lisp ./tests/eval.impure.lisp ./tests/setf.impure.lisp ./tests/load.impure.lisp ./tests/type.after-xc.lisp ./tests/mop-1.impure-cload.lisp ./tests/arith.impure.lisp ./tests/parallel-fasl-load-test.lisp ./tests/mop-17.impure-cload.lisp ./tests/unwind-to-frame-and-call.impure.lisp ./tests/system.impure.lisp ./tests/mop-23.impure.lisp ./tests/case.pure.lisp ./tests/serve-event.pure.lisp ./tests/enc-cn.impure.lisp ./tests/hash.impure.lisp ./tests/bug-503095.lisp ./tests/custom-userinit.lisp ./tests/random.pure.lisp ./tests/condition-wait-sigcont.lisp ./tests/bug-332.lisp ./tests/info.before-xc.lisp ./tests/packages.impure.lisp ./tests/condition.pure.lisp ./tests/full-eval.impure.lisp ./tests/mop-3.impure-cload.lisp ./tests/mop-6.impure-cload.lisp ./tests/hash.pure.lisp ./tests/run-tests.lisp ./tests/stream.impure-cload.lisp ./tests/colorize.lisp ./tests/with-compilation-unit.impure.lisp ./tests/colorize-windows-console.lisp ./tests/defstruct.impure.lisp ./tests/compiler-test-util.lisp ./tests/mop-5.impure-cload.lisp ./tests/mop-2.impure-cload.lisp ./tests/derived-function-type-casts.lisp ./tests/compound-cons.impure.lisp ./tests/smoke.impure.lisp ./tests/mop-24.impure.lisp ./tests/step.impure.lisp ./tests/mop-7.impure-cload.lisp ./tests/map-tests.impure.lisp ./tests/reader.impure.lisp ./tests/coerce.pure.lisp ./tests/fopcompiler.impure.lisp ./tests/bit-vector.impure-cload.lisp ./tests/time.pure.lisp ./tests/deadline.impure.lisp ./tests/compiler.impure-cload.lisp ./tests/clos.impure-cload.lisp ./tests/timer.impure.lisp ./tests/threads.pure.lisp ./tests/print.impure.lisp ./tests/profile.impure.lisp ./tests/mop-29.impure.lisp ./tests/pathnames.impure.lisp ./tests/circ-tree-test.lisp ./tests/ctor.impure.lisp ./tests/lambda-list.pure.lisp ./tests/compiler-output-test.lisp ./make-target-2.lisp ./local-target-features.lisp-expr ./version.lisp-expr ./build-order.lisp-expr ./base-target-features.lisp-expr ./package-data-list.lisp-expr ./src/code/early-defstruct-args.lisp-expr ./branch-version.lisp-expr ./common-lisp-exports.lisp-expr ./tools-for-build/os-provides-blksize-t-test.c ./tools-for-build/where-is-mcontext.c ./tools-for-build/os-provides-putwc-test.c ./tools-for-build/os-provides-poll-test.c ./tools-for-build/grovel-headers.c ./tools-for-build/arm-softfp-test.c ./tools-for-build/os-provides-dlopen-test.c ./tools-for-build/os-provides-suseconds-t-test.c ./tools-for-build/determine-endianness.c ./tools-for-build/os-provides-dladdr-test.c ./tools-for-build/os-provides-getprotoby-r-test.c ./src/runtime/ppc-bsd-os.c ./src/runtime/trymap.c ./src/runtime/save.c ./src/runtime/bsd-os.c ./src/runtime/x86-arch.c ./src/runtime/x86-64-win32-os.c ./src/runtime/pthread-futex.c ./src/runtime/linux-os.c ./src/runtime/largefile.c ./src/runtime/search.c ./src/runtime/regnames.c ./src/runtime/hppa-linux-os.c ./src/runtime/wrap.c ./src/runtime/x86-64-arch.c ./src/runtime/dynbind.c ./src/runtime/gc-common.c ./src/runtime/x86-64-sunos-os.c ./src/runtime/undefineds.c ./src/runtime/ppc-linux-os.c ./src/runtime/arm-android-os.c ./src/runtime/vars.c ./src/runtime/print.c ./src/runtime/x86-64-darwin-os.c ./src/runtime/x86-darwin-os.c ./src/runtime/validate.c ./src/runtime/gencgc.c ./src/runtime/mips-arch.c ./src/runtime/safepoint.c ./src/runtime/arm-arch.c ./src/runtime/arm-linux-os.c ./src/runtime/ppc-darwin-os.c ./src/runtime/monitor.c ./src/runtime/globals.c ./src/runtime/x86-64-linux-os.c ./src/runtime/coreparse.c ./src/runtime/parse.c ./src/runtime/purify.c ./src/runtime/x86-bsd-os.c ./src/runtime/pthreads_win32.c ./src/runtime/alloc.c ./src/runtime/sparc-sunos-os.c ./src/runtime/ppc-arch.c ./src/runtime/sparc-linux-os.c ./src/runtime/x86-64-bsd-os.c ./src/runtime/funcall.c ./src/runtime/hppa-hpux-os.c ./src/runtime/breakpoint.c ./src/runtime/interr.c ./src/runtime/alpha-osf1-os.c ./src/runtime/hppa-arch.c ./src/runtime/os-common.c ./src/runtime/time.c ./src/runtime/x86-win32-os.c ./src/runtime/thread.c ./src/runtime/runtime.c ./src/runtime/cheneygc.c ./src/runtime/alpha-arch.c ./src/runtime/mips-linux-os.c ./src/runtime/x86-linux-os.c ./src/runtime/hpux-os.c ./src/runtime/darwin-os.c ./src/runtime/interrupt.c ./src/runtime/run-program.c ./src/runtime/backtrace.c ./src/runtime/osf1-os.c ./src/runtime/x86-sunos-os.c ./src/runtime/sparc-arch.c ./src/runtime/android-os.c ./src/runtime/util.c ./src/runtime/alpha-linux-os.c ./src/runtime/sparc-bsd-os.c ./src/runtime/win32-os.c ./src/runtime/sunos-os.c ./tests/win32-stack-unwind.c ./tests/kill-non-lisp-thread.c ./tests/swap-lispobjs.c ./tests/alloca.c ./tests/stack-alignment-offset.c ./src/runtime/gencgc-internal.h ./src/runtime/linux-os.h ./src/runtime/sparc-sunos-os.h ./src/runtime/ppc-linux-os.h ./src/runtime/monitor.h ./src/runtime/sparc-lispregs.h ./src/runtime/hppa-hpux-os.h ./src/runtime/lispregs.h ./src/runtime/hppa-linux-os.h ./src/runtime/arm-arch.h ./src/runtime/os.h ./src/runtime/save.h ./src/runtime/hpux-os.h ./src/runtime/gencgc.h ./src/runtime/validate.h ./src/runtime/arm-lispregs.h ./src/runtime/mips-linux-os.h ./src/runtime/fixnump.h ./src/runtime/target-lispregs.h ./src/runtime/wrap.h ./src/runtime/arm-linux-os.h ./src/runtime/interrupt.h ./src/runtime/x86-64-lispregs.h ./src/runtime/thread.h ./src/runtime/x86-bsd-os.h ./src/runtime/search.h ./src/runtime/undefineds.h ./src/runtime/alpha-osf1-os.h ./src/runtime/cheneygc-internal.h ./src/runtime/gc-internal.h ./src/runtime/core.h ./src/runtime/bsd-os.h ./src/runtime/hppa-lispregs.h ./src/runtime/x86-lispregs.h ./src/runtime/ppc-lispregs.h ./src/runtime/x86-64-arch.h ./src/runtime/x86-64-bsd-os.h ./src/runtime/target-arch-os.h ./src/runtime/sunos-os.h ./src/runtime/hppa-arch.h ./src/runtime/darwin-os.h ./src/runtime/x86-win32-os.h ./src/runtime/vars.h ./src/runtime/util.h ./src/runtime/android-os.h ./src/runtime/parse.h ./src/runtime/gencgc-alloc-region.h ./src/runtime/breakpoint.h ./src/runtime/win32-os.h ./src/runtime/cpputil.h ./src/runtime/arm-android-os.h ./src/runtime/x86-darwin-os.h ./src/runtime/osf1-os.h ./src/runtime/interr.h ./src/runtime/x86-64-win32-os.h ./src/runtime/alpha-linux-os.h ./src/runtime/ppc-arch.h ./src/runtime/pseudo-atomic.h ./src/runtime/ppc-bsd-os.h ./src/runtime/x86-arch.h ./src/runtime/ppc-darwin-os.h ./src/runtime/print.h ./src/runtime/win32-thread-private-events.h ./src/runtime/arch.h ./src/runtime/runtime-options.h ./src/runtime/target-os.h ./src/runtime/x86-64-linux-os.h ./src/runtime/x86-sunos-os.h ./src/runtime/mips-arch.h ./src/runtime/runtime.h ./src/runtime/purify.h ./src/runtime/gc.h ./src/runtime/sparc-bsd-os.h ./src/runtime/mips-lispregs.h ./src/runtime/x86-linux-os.h ./src/runtime/target-arch.h ./src/runtime/x86-64-sunos-os.h ./src/runtime/x86-64-darwin-os.h ./src/runtime/dynbind.h ./src/runtime/alpha-lispregs.h ./src/runtime/alpha-arch.h ./src/runtime/sparc-linux-os.h ./src/runtime/globals.h ./src/runtime/alloc.h ./src/runtime/sparc-arch.h ./src/runtime/pthreads_win32.h ./contrib/sb-grovel/sb-grovel.asd ./contrib/sb-introspect/sb-introspect.asd ./contrib/sb-posix/sb-posix.asd ./contrib/sb-aclrepl/sb-aclrepl.asd ./contrib/sb-rotate-byte/sb-rotate-byte.asd ./contrib/sb-queue/sb-queue.asd ./contrib/sb-gmp/sb-gmp.asd ./contrib/sb-md5/sb-md5.asd ./contrib/sb-simple-streams/sb-simple-streams.asd ./contrib/sb-bsd-sockets/sb-bsd-sockets.asd ./contrib/sb-mpfr/sb-mpfr.asd ./contrib/sb-cltl2/sb-cltl2.asd ./contrib/sb-rt/sb-rt.asd ./contrib/sb-cover/sb-cover.asd ./contrib/sb-concurrency/sb-concurrency.asd /$scratchfilename=/tmp/canonicalize-whitespace-1.6794.tmp + set -e + echo //entering make-host-1.sh //entering make-host-1.sh + LANG=C + LC_ALL=C + export LANG LC_ALL + . output/build-config ++ DEVNULL=/dev/null ++ export DEVNULL ++ GNUMAKE=make ++ export GNUMAKE ++ SBCL_XC_HOST='sh /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-binary/run-sbcl.sh --no-sysinit --no-userinit' ++ export SBCL_XC_HOST ++ legacy_xc_spec='sh /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-binary/run-sbcl.sh --no-sysinit --no-userinit' ++ export legacy_xc_spec + echo //building cross-compiler, and doing first genesis //building cross-compiler, and doing first genesis + sh /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-binary/run-sbcl.sh --no-sysinit --no-userinit (running SBCL from: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-binary) This is SBCL 1.2.7, 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. * 5 * target features *SHEBANG-FEATURES*=(:SB-CORE-COMPRESSION :OS-PROVIDES-POLL :OS-PROVIDES-GETPROTOBY-R :OS-PROVIDES-SUSECONDS-T :OS-PROVIDES-BLKSIZE-T :OS-PROVIDES-PUTWC :OS-PROVIDES-DLADDR :OS-PROVIDES-DLOPEN :LITTLE-ENDIAN :LINKAGE-TABLE :SYMBOL-INFO-VOPS :ASH-RIGHT-VOPS :MULTIPLY-HIGH-VOPS :MEMORY-BARRIER-VOPS :PRECISE-ARG-COUNT-ERROR :INLINE-CONSTANTS :CYCLE-COUNTER :ALIEN-CALLBACKS :STACK-ALLOCATABLE-FIXED-OBJECTS :STACK-ALLOCATABLE-LISTS :STACK-ALLOCATABLE-VECTORS :STACK-ALLOCATABLE-CLOSURES :RAW-INSTANCE-INIT-VOPS :UNWIND-TO-FRAME-AND-CALL-VOP :COMPARE-AND-SWAP-VOPS :C-STACK-IS-CONTROL-STACK :STACK-GROWS-DOWNWARD-NOT-UPWARD :GENCGC :LARGEFILE :SB-FUTEX :LINUX :ELF :UNIX :X86 :IEEE-FLOATING-POINT :PACKAGE-LOCAL-NICKNAMES :SB-SOURCE-LOCATIONS :SB-EVAL :SB-UNICODE :SB-PACKAGE-LOCKS :SB-LDB :SB-SHOW :SB-DOC :SBCL :COMMON-LISP :ANSI-CL) target backend-subfeatures *SHEBANG-BACKEND-FEATURES*=NIL T * T * # * "obj/from-host/" * T * T * T * T * creating directory: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/ creating directory: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/ creating directory: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/ creating directory: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/ ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-source-location.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN SOURCE-LOCATION ...) ; compiling (DEFCONSTANT +CODE-COVERAGE-UNMARKED+ ...) ; compiling (DEFMACRO WITH-SOURCE-LOCATION ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/early-source-location.fasl-tmp written ; compilation finished in 0:00:00.010 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/cross-early.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DECLAIM (DECLARATION TRULY-DYNAMIC-EXTENT)) ; compiling (DECLAIM (DECLARATION FREEZE-TYPE ...)) ; compiling (DECLAIM (DECLARATION INHIBIT-WARNINGS)) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/cross-early.fasl-tmp written ; compilation finished in 0:00:00.003 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/show.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!INT") ; compiling (DEFVAR */SHOW* ...) ; compiling (DEFUN CANNOT-/SHOW ...) ; compiling (DEFUN SUPPRESS-/SHOW-P ...) ; compiling (DEFMACRO /SHOW ...) ; compiling (DEFMACRO /NOSHOW ...) ; compiling (DEFMACRO /XHOW ...) ; compiling (DEFMACRO /NOXHOW ...) ; compiling (DEFMACRO /SHOW0 ...) ; compiling (DEFMACRO /NOSHOW0 ...) ; compiling (DEFMACRO /PRIMITIVE-PRINT ...) ; compiling (DEFMACRO /HEXSTR ...) ; compiling (DEFMACRO /NOHEXSTR ...) ; compiling (/SHOW0 "done with show.lisp") ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/show.fasl-tmp written ; compilation finished in 0:00:00.061 /done with show.lisp ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-constants.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEF SB-XC:LAMBDA-LIST-KEYWORDS ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/early-constants.fasl-tmp written ; compilation finished in 0:00:00.005 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/backq.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (/SHOW0 "entering backq.lisp") ; compiling (DEFSTRUCT (COMMA # ...) ...) ; compiling (DEFCONSTANT !+COMMA-DOT+ ...) ; compiling (DEFCONSTANT !+COMMA-AT+ ...) ; compiling (DEFUN UNQUOTE-NSPLICE ...) ; compiling (DEFUN UNQUOTE-SPLICE ...) ; compiling (DEFUN UNQUOTE* ...) ; compiling (DEFUN UNQUOTE*-SPLICE ...) ; compiling (DECLAIM (INLINE COMMA-CONSTRUCTOR ...)) ; compiling (DEFUN COMMA-CONSTRUCTOR ...) ; compiling (DEFUN COMMA-SPLICING-P ...) ; compiling (DECLAIM (INLINE SINGLETON-P)) ; compiling (DEFUN SINGLETON-P ...) ; compiling (DEFMETHOD MAKE-LOAD-FORM ...) ; compiling (SETF (GET # ...) ...) ; compiling (DECLAIM (TYPE # ...)) ; compiling (DEFVAR *BACKQUOTE-DEPTH* ...) ; compiling (DEFVAR *BQ-ERROR* ...) ; compiling (/SHOW0 "backq.lisp 50") ; compiling (DEFUN BACKQUOTE-CHARMACRO ...) ; compiling (/SHOW0 "backq.lisp 64") ; compiling (DEFUN COMMA-CHARMACRO ...) ; compiling (/SHOW0 "backq.lisp 83") ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DECLAIM (INLINE QQ-SUBFORM-SPLICING-P)) ; compiling (DEFUN QQ-SUBFORM-SPLICING-P ...) ; compiling (DEFUN EXPAND-QUASIQUOTE ...) ; compiling (DEFINE-COMPILER-MACRO QUASIQUOTE ...) ; compiling (DEFMACRO QUASIQUOTE ...) ; compiling (DEFUN QQ-TEMPLATE-TO-SEXPR ...) ; compiling (/SHOW0 "backq.lisp 139") ; compiling (DEFUN QQ-FOLD-SUFFIX ...) ; compiling (DEFUN QQ-MAP-TEMPLATE-TO-LIST ...) ; compiling (DEFUN QQ-TEMPLATE-1 ...) ; compiling (SETF (SYMBOL-FUNCTION #) ...) ; compiling (DEFUN !BACKQ-COLD-INIT ...) ; compiling (!BACKQ-COLD-INIT) ; compiling (DEFUN SIMPLE-READER-ERROR ...) ; compiling (/SHOW0 "done with backq.lisp") ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/backq.lisp ; in: DEFUN SIMPLE-READER-ERROR ; (SB!INT:BUG "READER-ERROR on stream ~S: ~?" STREAM SB!IMPL::FORMAT-STRING ; SB!IMPL::FORMAT-ARGS) ; ; caught STYLE-WARNING: ; undefined function: BUG ; ; compilation unit finished ; Undefined function: ; BUG ; caught 1 STYLE-WARNING condition ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/backq.fasl-tmp written ; compilation finished in 0:00:00.111 /entering backq.lisp /backq.lisp 50 /backq.lisp 64 /backq.lisp 83 /backq.lisp 139 /done with backq.lisp ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/defsetfs.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (SB!INT:/SHOW0 "entering defsetfs.lisp") ; compiling (IN-PACKAGE "SB!ALIEN") ; compiling (DEFSETF SLOT ...) ; compiling (DEFSETF DEREF ...) ; compiling (DEFSETF %HEAP-ALIEN ...) ; compiling (IN-PACKAGE "SB!BIGNUM") ; compiling (DEFSETF %BIGNUM-REF ...) ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFSETF WORD-SAP-REF ...) ; compiling (IN-PACKAGE "SB!DI") ; compiling (DEFSETF STACK-REF ...) ; compiling (DEFSETF DEBUG-VAR-VALUE ...) ; compiling (DEFSETF DEBUG-VAR-VALUE ...) ; compiling (DEFSETF BREAKPOINT-INFO ...) ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (DEFSETF %INSTANCE-REF ...) ; compiling (DEFSETF %RAW-INSTANCE-REF/WORD ...) ; compiling (DEFSETF %RAW-INSTANCE-REF/SINGLE ...) ; compiling (DEFSETF %RAW-INSTANCE-REF/DOUBLE ...) ; compiling (DEFSETF %RAW-INSTANCE-REF/COMPLEX-SINGLE ...) ; compiling (DEFSETF %RAW-INSTANCE-REF/COMPLEX-DOUBLE ...) ; compiling (DEFSETF %INSTANCE-LAYOUT ...) ; compiling (DEFSETF %FUNCALLABLE-INSTANCE-INFO ...) ; compiling (DEFSETF %FUNCALLABLE-INSTANCE-LAYOUT ...) ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFSETF %ARRAY-DIMENSION ...) ; compiling (DEFSETF %VECTOR-RAW-BITS ...) ; compiling (DEFSETF SAP-REF-8 ...) ; compiling (DEFSETF SIGNED-SAP-REF-8 ...) ; compiling (DEFSETF SAP-REF-16 ...) ; compiling (DEFSETF SIGNED-SAP-REF-16 ...) ; compiling (DEFSETF SAP-REF-32 ...) ; compiling (DEFSETF SIGNED-SAP-REF-32 ...) ; compiling (DEFSETF SAP-REF-64 ...) ; compiling (DEFSETF SIGNED-SAP-REF-64 ...) ; compiling (DEFSETF SAP-REF-WORD ...) ; compiling (DEFSETF SIGNED-SAP-REF-WORD ...) ; compiling (DEFSETF SAP-REF-SAP ...) ; compiling (DEFSETF SAP-REF-LISPOBJ ...) ; compiling (DEFSETF SAP-REF-SINGLE ...) ; compiling (DEFSETF SAP-REF-DOUBLE ...) ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (DEFSETF CODE-HEADER-REF ...) ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFSETF CONTEXT-REGISTER ...) ; compiling (DEFSETF CONTEXT-FLOAT-REGISTER ...) ; compiling (/SHOW0 "leaving defsetfs.lisp") ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/defsetfs.fasl-tmp written ; compilation finished in 0:00:00.020 /entering defsetfs.lisp /leaving defsetfs.lisp ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/cold-init-helper-macros.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (DEFVAR *!COLD-INIT-FORMS*) ; compiling (DEFMACRO !BEGIN-COLLECTING-COLD-INIT-FORMS ...) ; compiling (DEFMACRO !COLD-INIT-FORMS ...) ; compiling (DEFMACRO !DEFUN-FROM-COLLECTED-COLD-INIT-FORMS ...) ; compiling (DEF !DEFGLOBAL ...) ; compiling (DEF !DEFPARAMETER ...) ; compiling (DEF !DEFVAR ...) ; compiling (DEFUN !DELAYED-COLD-SET-SYMBOL-VALUE ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/cold-init-helper-macros.fasl-tmp written ; compilation finished in 0:00:00.033 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/cross-misc.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFMACRO TRULY-THE ...) ; compiling (DEFMACRO NAMED-LAMBDA ...) ; compiling (DEFMACRO WITHOUT-INTERRUPTS ...) ; compiling (DEFMACRO WITH-LOCKED-HASH-TABLE ...) ; compiling (DEFMACRO WITH-LOCKED-SYSTEM-TABLE ...) ; compiling (DEFMACRO DEFGLOBAL ...) ; compiling (DEFTYPE ANSI-STREAM ...) ; compiling (DEFTYPE INSTANCE ...) ; compiling (DEFTYPE FUNCALLABLE-INSTANCE ...) ; compiling (DEFUN %INSTANCEP ...) ; compiling (DEFUN FUNCALLABLE-INSTANCE-P ...) ; compiling (DEFUN ARRAY-HEADER-P ...) ; compiling (DEFVAR SB-XC:*GENSYM-COUNTER* ...) ; compiling (DEFUN SB-XC:GENSYM ...) ; compiling (DEFUN SIMPLE-ARRAY-NIL-P ...) ; compiling (DEFUN %NEGATE ...) ; compiling (DEFUN %SINGLE-FLOAT ...) ; compiling (DEFUN %DOUBLE-FLOAT ...) ; compiling (DEFUN %LDB ...) ; compiling (DEFUN %DPB ...) ; compiling (DEFUN %WITH-ARRAY-DATA ...) ; compiling (DEFUN %WITH-ARRAY-DATA/FP ...) ; compiling (DEFUN SIGNED-BYTE-32-P ...) ; compiling (DEFMACRO WITHOUT-PACKAGE-LOCKS ...) ; compiling (DEFMACRO WITH-SINGLE-PACKAGE-LOCKED-ERROR ...) ; compiling (DEFUN PROGRAM-ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ...) ; compiling (DEFUN ASSERT-PACKAGE-UNLOCKED ...) ; compiling (DEFUN ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ...) ; compiling (DECLAIM (DECLARATION ENABLE-PACKAGE-LOCKS ...)) ; compiling (DEFUN DEFAULT-STRUCTURE-PRINT ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/cross-misc.lisp ; in: DEFUN %DPB ; (SB-XC:BYTE SB!IMPL::SIZE SB!IMPL::POSN) ; ; caught STYLE-WARNING: ; undefined function: BYTE ; in: DEFUN %LDB ; (SB-XC:BYTE SB!IMPL::SIZE SB!IMPL::POSN) ; ; caught STYLE-WARNING: ; undefined function: BYTE ; in: DEFUN %DPB ; (SB-XC:DPB SB!IMPL::NEWBYTE (SB-XC:BYTE SB!IMPL::SIZE SB!IMPL::POSN) INTEGER) ; ; caught STYLE-WARNING: ; undefined function: DPB ; in: DEFUN %LDB ; (SB-XC:LDB (SB-XC:BYTE SB!IMPL::SIZE SB!IMPL::POSN) INTEGER) ; ; caught STYLE-WARNING: ; undefined function: LDB ; ; compilation unit finished ; Undefined functions: ; BYTE DPB LDB ; caught 4 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/cross-misc.fasl-tmp written ; compilation finished in 0:00:00.072 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/cross-char.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (LET (#) ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/cross-char.fasl-tmp written ; compilation finished in 0:00:00.013 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/cross-byte.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!INT") ; compiling (DEFUN BYTE ...) ; compiling (DEFUN BYTE-SIZE ...) ; compiling (DEFUN BYTE-POSITION ...) ; compiling (DEFUN UNCROSS-BYTE ...) ; compiling (DEFUN LDB ...) ; compiling (DEFUN LDB-TEST ...) ; compiling (DEFUN DPB ...) ; compiling (DEFUN MASK-FIELD ...) ; compiling (DEFUN DEPOSIT-FIELD ...) ; compiling (DEFINE-SETF-EXPANDER LDB ...) ; compiling (DEFINE-SETF-EXPANDER MASK-FIELD ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/cross-byte.lisp ; in: DEFINE-SETF-EXPANDER MASK-FIELD ; (SB!INT:BUG "SETF SB!XC:MASK-FIELD too hairy!") ; ; caught STYLE-WARNING: ; undefined function: BUG ; in: DEFINE-SETF-EXPANDER LDB ; (SB!INT:BUG "SETF SB!XC:LDB too hairy!") ; ; caught STYLE-WARNING: ; undefined function: BUG ; ; compilation unit finished ; Undefined function: ; BUG ; caught 2 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/cross-byte.fasl-tmp written ; compilation finished in 0:00:00.023 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/cross-boole.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!INT") ; compiling (DEFCONSTANT BOOLE-CLR ...) ; compiling (DEFCONSTANT BOOLE-SET ...) ; compiling (DEFCONSTANT BOOLE-1 ...) ; compiling (DEFCONSTANT BOOLE-2 ...) ; compiling (DEFCONSTANT BOOLE-C1 ...) ; compiling (DEFCONSTANT BOOLE-C2 ...) ; compiling (DEFCONSTANT BOOLE-AND ...) ; compiling (DEFCONSTANT BOOLE-IOR ...) ; compiling (DEFCONSTANT BOOLE-XOR ...) ; compiling (DEFCONSTANT BOOLE-EQV ...) ; compiling (DEFCONSTANT BOOLE-NAND ...) ; compiling (DEFCONSTANT BOOLE-NOR ...) ; compiling (DEFCONSTANT BOOLE-ANDC1 ...) ; compiling (DEFCONSTANT BOOLE-ANDC2 ...) ; compiling (DEFCONSTANT BOOLE-ORC1 ...) ; compiling (DEFCONSTANT BOOLE-ORC2 ...) ; compiling (DEFUN BOOLE ...) ; compiling (DEFUN UNCROSS-BOOLE ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/cross-boole.fasl-tmp written ; compilation finished in 0:00:00.011 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/cross-float.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFMACRO WITH-FLOAT-TRAPS-MASKED ...) ; compiling (DEFUN MASK-AND-SIGN-EXTEND ...) ; compiling (DEFUN SINGLE-FLOAT-BITS ...) ; compiling (DEFUN DOUBLE-FLOAT-BITS ...) ; compiling (DEFUN DOUBLE-FLOAT-LOW-BITS ...) ; compiling (DEFUN DOUBLE-FLOAT-HIGH-BITS ...) ; compiling (DEFUN KLUDGE-OPAQUE-EXPT ...) ; compiling (DEFUN MAKE-SINGLE-FLOAT ...) ; compiling (DEFUN MAKE-DOUBLE-FLOAT ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/cross-float.fasl-tmp written ; compilation finished in 0:00:00.043 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/cross-io.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!FASL") ; compiling (DEFMACRO WITH-FAST-READ-BYTE ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/cross-io.fasl-tmp written ; compilation finished in 0:00:00.009 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/cross-sap.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!SYS") ; compiling (DEFSTRUCT (SYSTEM-AREA-POINTER # ...) ...) ; compiling (DEFUN SAP+ ...) ; compiling (DEFUN SAP< ...) ; compiling (DEFUN SAP<= ...) ; compiling (DEFUN SAP= ...) ; compiling (DEFUN SAP>= ...) ; compiling (DEFUN SAP> ...) ; compiling (DEFUN SAP- ...) ; compiling (DEFUN SAP-REF-STUB ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN SAP-REF-8 ...) ; compiling (DEFUN #:SETTER-STUB-115 ...) ; compiling (DEFSETF SAP-REF-8 ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN SAP-REF-16 ...) ; compiling (DEFUN #:SETTER-STUB-116 ...) ; compiling (DEFSETF SAP-REF-16 ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN SAP-REF-32 ...) ; compiling (DEFUN #:SETTER-STUB-117 ...) ; compiling (DEFSETF SAP-REF-32 ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN SAP-REF-64 ...) ; compiling (DEFUN #:SETTER-STUB-118 ...) ; compiling (DEFSETF SAP-REF-64 ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN SAP-REF-SAP ...) ; compiling (DEFUN #:SETTER-STUB-119 ...) ; compiling (DEFSETF SAP-REF-SAP ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN SAP-REF-WORD ...) ; compiling (DEFUN #:SETTER-STUB-120 ...) ; compiling (DEFSETF SAP-REF-WORD ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN SAP-REF-SINGLE ...) ; compiling (DEFUN #:SETTER-STUB-121 ...) ; compiling (DEFSETF SAP-REF-SINGLE ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN SAP-REF-DOUBLE ...) ; compiling (DEFUN #:SETTER-STUB-122 ...) ; compiling (DEFSETF SAP-REF-DOUBLE ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN SIGNED-SAP-REF-8 ...) ; compiling (DEFUN #:SETTER-STUB-123 ...) ; compiling (DEFSETF SIGNED-SAP-REF-8 ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN SIGNED-SAP-REF-16 ...) ; compiling (DEFUN #:SETTER-STUB-124 ...) ; compiling (DEFSETF SIGNED-SAP-REF-16 ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN SIGNED-SAP-REF-32 ...) ; compiling (DEFUN #:SETTER-STUB-125 ...) ; compiling (DEFSETF SIGNED-SAP-REF-32 ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN SIGNED-SAP-REF-64 ...) ; compiling (DEFUN #:SETTER-STUB-126 ...) ; compiling (DEFSETF SIGNED-SAP-REF-64 ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN SIGNED-SAP-REF-WORD ...) ; compiling (DEFUN #:SETTER-STUB-127 ...) ; compiling (DEFSETF SIGNED-SAP-REF-WORD ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/cross-sap.lisp ; in: DEFUN SAP+ ; (SB!SYS::MAKE-SAP :INT (+ (SB!SYS:SAP-INT SB!SYS::SAP) SB!SYS::OFFSET)) ; ; caught STYLE-WARNING: ; undefined function: MAKE-SAP ; (DEFUN SB!SYS:SAP+ (SB!SYS::SAP SB!SYS::OFFSET) ; (DECLARE (TYPE SB!SYS:SYSTEM-AREA-POINTER SB!SYS::SAP) ; (TYPE SB!SYS:SAP-INT SB!SYS::OFFSET)) ; (SB!SYS::MAKE-SAP :INT (+ (SB!SYS:SAP-INT SB!SYS::SAP) SB!SYS::OFFSET))) ; --> PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF ; ==> ; (TYPEP #:G40 'SB!SYS:SAP-INT) ; ; caught STYLE-WARNING: ; undefined type: SAP-INT ; (TYPE SB!SYS:SAP-INT SB!SYS::OFFSET) ; ; caught STYLE-WARNING: ; undefined type: SAP-INT ; ; compilation unit finished ; Undefined type: ; SAP-INT ; Undefined function: ; MAKE-SAP ; caught 3 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/cross-sap.fasl-tmp written ; compilation finished in 0:00:00.098 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/cross-thread.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!THREAD") ; compiling (DEFUN MAKE-MUTEX ...) ; compiling (DEFMACRO WITH-MUTEX ...) ; compiling (DEFMACRO WITH-RECURSIVE-LOCK ...) ; compiling (DEFMACRO BARRIER ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/cross-thread.fasl-tmp written ; compilation finished in 0:00:00.016 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/cross-make-load-form.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!INT") ; compiling (DEFUN SB-XC:MAKE-LOAD-FORM-SAVING-SLOTS ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/cross-make-load-form.lisp ; in: DEFUN SB-XC:MAKE-LOAD-FORM-SAVING-SLOTS ; (SB!INT:BUG "MAKE-LOAD-FORM-SAVING-SLOTS ~ ; called with :SLOT-NAMES argument during cross-compilation") ; ; caught STYLE-WARNING: ; undefined function: BUG ; ; compilation unit finished ; Undefined function: ; BUG ; caught 1 STYLE-WARNING condition ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/cross-make-load-form.fasl-tmp written ; compilation finished in 0:00:00.011 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/cross-condition.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (DEFINE-CONDITION SIMPLE-STYLE-WARNING ...) ; compiling (DEFINE-CONDITION FORMAT-TOO-FEW-ARGS-WARNING ...) ; compiling (DEFINE-CONDITION FORMAT-TOO-MANY-ARGS-WARNING ...) ; compiling (DEFINE-CONDITION ENCAPSULATED-CONDITION ...) ; compiling (DEFINE-CONDITION REFERENCE-CONDITION ...) ; compiling (DEFINE-CONDITION TYPE-WARNING ...) ; compiling (DEFINE-CONDITION TYPE-STYLE-WARNING ...) ; compiling (DEFINE-CONDITION BUG ...) ; compiling (DEFINE-CONDITION COMPILER-MACRO-KEYWORD-PROBLEM ...) ; compiling (DEFINE-CONDITION DUPLICATE-DEFINITION ...) ; compiling (DEFTYPE PACKAGE-LOCK-VIOLATION ...) ; compiling (DEFTYPE PACKAGE-LOCKED-ERROR ...) ; compiling (DEFTYPE SYMBOL-PACKAGE-LOCKED-ERROR ...) ; compiling (DEFINE-CONDITION SB!C:INLINING-DEPENDENCY-FAILURE ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/cross-condition.fasl-tmp written ; compilation finished in 0:00:00.060 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/uncross.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!INT") ; compiling (LET (#) ...) ; compiling (DEFMACRO !UNCROSS-FORMAT-CONTROL ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/uncross.fasl-tmp written ; compilation finished in 0:00:00.012 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/primordial-type.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (!DEFGLOBAL *TYPE-SYSTEM-INITIALIZED* ...) ; compiling (DEFGLOBAL *WILD-TYPE* ...) ; compiling (DEFGLOBAL *EMPTY-TYPE* ...) ; compiling (DEFGLOBAL *UNIVERSAL-TYPE* ...) ; compiling (DEFGLOBAL *INSTANCE-TYPE* ...) ; compiling (DEFGLOBAL *FUNCALLABLE-INSTANCE-TYPE* ...) ; compiling (DEFGLOBAL *EXTENDED-SEQUENCE-TYPE* ...) ; compiling (DEFGLOBAL *UNIVERSAL-FUN-TYPE* ...) ; compiling (DEFGLOBAL **BUILT-IN-CLASS-CODES** ...) ; compiling (DECLAIM (TYPE SIMPLE-VECTOR ...)) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/primordial-type.fasl-tmp written ; compilation finished in 0:00:00.005 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-defbangmethod.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFMACRO DEF!METHOD ...) ; compiling (DEFMACRO SB-XC:DEFMETHOD ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/early-defbangmethod.fasl-tmp written ; compilation finished in 0:00:00.006 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/defbangtype.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (DEFMACRO DEF!TYPE ...) ; compiling (/SHOW "binding *DELAYED-DEF!TYPES*") ; compiling (DEFVAR *DELAYED-DEF!TYPES* ...) ; compiling (/SHOW "done binding *DELAYED-DEF!TYPES*") ; compiling (DEFUN FORCE-DELAYED-DEF!TYPES ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/defbangtype.fasl-tmp written ; compilation finished in 0:00:00.009 /binding *DELAYED-DEF!TYPES* /done binding *DELAYED-DEF!TYPES* ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/defbangmacro.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFSTRUCT DELAYED-DEF!MACRO ...) ; compiling (DEFVAR *DELAYED-DEF!MACROS* ...) ; compiling (DEFMACRO DEF!MACRO ...) ; compiling (DEFUN FORCE-DELAYED-DEF!MACROS ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/defbangmacro.lisp ; in: DEFSTRUCT DELAYED-DEF!MACRO ; (SB!INT:MISSING-ARG) ; ; caught STYLE-WARNING: ; undefined function: MISSING-ARG ; (SB!INT:SANE-PACKAGE) ; ; caught STYLE-WARNING: ; undefined function: SANE-PACKAGE ; ; compilation unit finished ; Undefined functions: ; MISSING-ARG SANE-PACKAGE ; caught 2 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/defbangmacro.fasl-tmp written ; compilation finished in 0:00:00.032 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/defbangconstant.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (DEFMACRO DEF!CONSTANT ...) ; compiling (/SHOW "binding *DELAYED-DEF!CONSTANTS*") ; compiling (DEFVAR *DELAYED-DEF!CONSTANTS* ...) ; compiling (/SHOW "done binding *DELAYED-DEF!CONSTANTS*") ; compiling (DEFUN FORCE-DELAYED-DEF!CONSTANTS ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/defbangconstant.fasl-tmp written ; compilation finished in 0:00:00.010 /binding *DELAYED-DEF!CONSTANTS* /done binding *DELAYED-DEF!CONSTANTS* ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/primordial-extensions.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEF!CONSTANT +EMPTY-HT-SLOT+ ...) ; compiling (DEFUN FROB-DO-BODY ...) ; compiling (DEFMACRO WITH-UNIQUE-NAMES ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN MAKE-GENSYM-LIST ...) ; compiling (DECLAIM (TYPE PACKAGE ...)) ; compiling (DEFGLOBAL *CL-PACKAGE* ...) ; compiling (DEFGLOBAL *KEYWORD-PACKAGE* ...) ; compiling (DEFUN SYMBOLICATE ...) ; compiling (DEFUN GENSYMIFY ...) ; compiling (DEFUN KEYWORDICATE ...) ; compiling (DEFUN SANE-PACKAGE ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/primordial-extensions.lisp ; in: DEFUN SANE-PACKAGE ; (TYPE-OF SB!IMPL::MAYBE-PACKAGE) ; ==> ; SB!IMPL::MAYBE-PACKAGE ; ; note: deleting unreachable code ; (LET ((SB!IMPL::REALLY-PACKAGE (FIND-PACKAGE :CL-USER))) ; (SETF *PACKAGE* SB!IMPL::REALLY-PACKAGE) ; (ERROR 'SIMPLE-TYPE-ERROR :DATUM SB!IMPL::MAYBE-PACKAGE :EXPECTED-TYPE ; '(AND PACKAGE (SATISFIES PACKAGE-NAME)) :FORMAT-CONTROL ; "~@<~S can't be a ~A: ~2I~_~S has been reset to ~S.~:>" ; :FORMAT-ARGUMENTS ; (LIST '*PACKAGE* ; (IF (PACKAGEP SB!IMPL::MAYBE-PACKAGE) ; "deleted package" ; (TYPE-OF SB!IMPL::MAYBE-PACKAGE)) ; '*PACKAGE* SB!IMPL::REALLY-PACKAGE))) ; ; note: deleting unreachable code ; (IF (PACKAGEP SB!IMPL::MAYBE-PACKAGE) ; "deleted package" ; (TYPE-OF SB!IMPL::MAYBE-PACKAGE)) ; ==> ; "deleted package" ; ; note: deleting unreachable code ; '*PACKAGE* ; ; note: deleting unreachable code ; compiling (DEFUN SANE-DEFAULT-PATHNAME-DEFAULTS ...) ; compiling (DEF!MACRO STRING-DISPATCH ...) ; compiling (DEFMACRO DEFENUM ...) ; compiling (DEFMACRO DEFCONSTANT-EQX ...) ; compiling (DEFUN %DEFCONSTANT-EQX-VALUE ...) ; compiling (DEFUN PROPER-LIST-OF-LENGTH-P ...) ; compiling (DEFUN PROPER-LIST-P ...) ; compiling (DEFMACRO DEFINE-UNSUPPORTED-FUN ...) ; compiling (DEF!MACRO DO-ANONYMOUS ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/primordial-extensions.lisp ; in: DEFUN MAKE-GENSYM-LIST ; (DEFUN SB!INT:MAKE-GENSYM-LIST (SB!IMPL::N &OPTIONAL SB!IMPL::NAME) ; (WHEN (EQ T SB!IMPL::NAME) (BREAK)) ; (IF SB!IMPL::NAME ; (LOOP SB!IMPL::REPEAT SB!IMPL::N ; SB!INT:COLLECT (SB-XC:GENSYM (STRING SB!IMPL::NAME))) ; (LOOP SB!IMPL::REPEAT SB!IMPL::N ; SB!INT:COLLECT (SB-XC:GENSYM)))) ; --> PROGN SB-IMPL::%DEFUN COND IF COND IF PROGN SB-C::%FUNCALL ; --> MULTIPLE-VALUE-BIND LET UNLESS IF ; ==> ; (TYPEP #:G88 'SB!INT:INDEX) ; ; caught STYLE-WARNING: ; undefined type: INDEX ; in: ; DECLAIM (FTYPE (FUNCTION (INDEX &OPTIONAL T) (VALUES LIST &OPTIONAL)) ; MAKE-GENSYM-LIST) ; (DECLAIM ; (FTYPE (FUNCTION (SB!INT:INDEX &OPTIONAL T) (VALUES LIST &OPTIONAL)) ; SB!INT:MAKE-GENSYM-LIST)) ; --> EVAL-WHEN ; ==> ; (PROCLAIM ; '(FTYPE (FUNCTION (SB!INT:INDEX &OPTIONAL T) (VALUES LIST &OPTIONAL)) ; SB!INT:MAKE-GENSYM-LIST)) ; ; caught STYLE-WARNING: ; undefined type: INDEX ; in: DEFUN FROB-DO-BODY ; (SB!INT:PARSE-BODY SB!IMPL::DECLS-AND-CODE :DOC-STRING-ALLOWED NIL) ; ; caught STYLE-WARNING: ; undefined function: PARSE-BODY ; ; compilation unit finished ; Undefined type: ; INDEX ; Undefined function: ; PARSE-BODY ; caught 3 STYLE-WARNING conditions ; printed 4 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/primordial-extensions.fasl-tmp written ; compilation finished in 0:00:00.108 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/function-names.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFVAR *VALID-FUN-NAMES-ALIST* ...) ; compiling (DEFUN %DEFINE-FUN-NAME-SYNTAX ...) ; compiling (DEFMACRO DEFINE-FUNCTION-NAME-SYNTAX ...) ; compiling (DEFUN VALID-FUNCTION-NAME-P ...) ; compiling (DEFINE-FUNCTION-NAME-SYNTAX SETF ...) ; compiling (%DEFINE-FUN-NAME-SYNTAX (QUOTE CAS) ...) ; compiling (DEFUN MACRO-FUNCTION-NAME ...) ; compiling (DEFINE-FUNCTION-NAME-SYNTAX DEFMACRO ...) ; compiling (DEFINE-FUNCTION-NAME-SYNTAX MACROLET ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/function-names.fasl-tmp written ; compilation finished in 0:00:00.017 creating directory: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/ creating directory: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/generic/ ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/parms.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEF!MACRO !CONFIGURE-DYNAMIC-SPACE-END ...) ; compiling (DEF!MACRO !GENCGC-SPACE-SETUP ...) ; compiling (DEFPARAMETER *C-CALLABLE-STATIC-SYMBOLS* ...) ; compiling (DEFPARAMETER *COMMON-STATIC-SYMBOLS* ...) ; compiling (DEF!CONSTANT TLS-SIZE ...) ; compiling (DEF!CONSTANT MAX-INTERRUPTS ...) ; compiling (DEF!CONSTANT +HIGHEST-NORMAL-GENERATION+ ...) ; compiling (DEF!CONSTANT +PSEUDO-STATIC-GENERATION+ ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/generic/parms.fasl-tmp written ; compilation finished in 0:00:00.035 creating directory: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/x86/ ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/parms.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEF!CONSTANT N-WORD-BITS ...) ; compiling (DEF!CONSTANT N-MACHINE-WORD-BITS ...) ; compiling (DEF!CONSTANT N-BYTE-BITS ...) ; compiling (DEF!CONSTANT MINIMUM-IMMEDIATE-OFFSET ...) ; compiling (DEF!CONSTANT MAXIMUM-IMMEDIATE-OFFSET ...) ; compiling (DEF!CONSTANT FLOAT-SIGN-SHIFT ...) ; compiling (DEF!CONSTANT SINGLE-FLOAT-BIAS ...) ; compiling (DEFCONSTANT-EQX SINGLE-FLOAT-EXPONENT-BYTE ...) ; compiling (DEFCONSTANT-EQX SINGLE-FLOAT-SIGNIFICAND-BYTE ...) ; compiling (DEF!CONSTANT SINGLE-FLOAT-NORMAL-EXPONENT-MIN ...) ; compiling (DEF!CONSTANT SINGLE-FLOAT-NORMAL-EXPONENT-MAX ...) ; compiling (DEF!CONSTANT SINGLE-FLOAT-HIDDEN-BIT ...) ; compiling (DEF!CONSTANT SINGLE-FLOAT-TRAPPING-NAN-BIT ...) ; compiling (DEF!CONSTANT DOUBLE-FLOAT-BIAS ...) ; compiling (DEFCONSTANT-EQX DOUBLE-FLOAT-EXPONENT-BYTE ...) ; compiling (DEFCONSTANT-EQX DOUBLE-FLOAT-SIGNIFICAND-BYTE ...) ; compiling (DEF!CONSTANT DOUBLE-FLOAT-NORMAL-EXPONENT-MIN ...) ; compiling (DEF!CONSTANT DOUBLE-FLOAT-NORMAL-EXPONENT-MAX ...) ; compiling (DEF!CONSTANT DOUBLE-FLOAT-HIDDEN-BIT ...) ; compiling (DEF!CONSTANT DOUBLE-FLOAT-TRAPPING-NAN-BIT ...) ; compiling (DEF!CONSTANT LONG-FLOAT-BIAS ...) ; compiling (DEFCONSTANT-EQX LONG-FLOAT-EXPONENT-BYTE ...) ; compiling (DEFCONSTANT-EQX LONG-FLOAT-SIGNIFICAND-BYTE ...) ; compiling (DEF!CONSTANT LONG-FLOAT-NORMAL-EXPONENT-MIN ...) ; compiling (DEF!CONSTANT LONG-FLOAT-NORMAL-EXPONENT-MAX ...) ; compiling (DEF!CONSTANT LONG-FLOAT-HIDDEN-BIT ...) ; compiling (DEF!CONSTANT LONG-FLOAT-TRAPPING-NAN-BIT ...) ; compiling (DEF!CONSTANT SINGLE-FLOAT-DIGITS ...) ; compiling (DEF!CONSTANT DOUBLE-FLOAT-DIGITS ...) ; compiling (DEF!CONSTANT LONG-FLOAT-DIGITS ...) ; compiling (DEF!CONSTANT FLOAT-INVALID-TRAP-BIT ...) ; compiling (DEF!CONSTANT FLOAT-DENORMAL-TRAP-BIT ...) ; compiling (DEF!CONSTANT FLOAT-DIVIDE-BY-ZERO-TRAP-BIT ...) ; compiling (DEF!CONSTANT FLOAT-OVERFLOW-TRAP-BIT ...) ; compiling (DEF!CONSTANT FLOAT-UNDERFLOW-TRAP-BIT ...) ; compiling (DEF!CONSTANT FLOAT-INEXACT-TRAP-BIT ...) ; compiling (DEF!CONSTANT FLOAT-ROUND-TO-NEAREST ...) ; compiling (DEF!CONSTANT FLOAT-ROUND-TO-NEGATIVE ...) ; compiling (DEF!CONSTANT FLOAT-ROUND-TO-POSITIVE ...) ; compiling (DEF!CONSTANT FLOAT-ROUND-TO-ZERO ...) ; compiling (DEF!CONSTANT FLOAT-PRECISION-24-BIT ...) ; compiling (DEF!CONSTANT FLOAT-PRECISION-53-BIT ...) ; compiling (DEF!CONSTANT FLOAT-PRECISION-64-BIT ...) ; compiling (DEFCONSTANT-EQX FLOAT-ROUNDING-MODE ...) ; compiling (DEFCONSTANT-EQX FLOAT-STICKY-BITS ...) ; compiling (DEFCONSTANT-EQX FLOAT-TRAPS-BYTE ...) ; compiling (DEFCONSTANT-EQX FLOAT-EXCEPTIONS-BYTE ...) ; compiling (DEFCONSTANT-EQX FLOAT-PRECISION-CONTROL ...) ; compiling (DEF!CONSTANT FLOAT-FAST-BIT ...) ; compiling (!GENCGC-SPACE-SETUP 16777216 ...) ; compiling (DEF!CONSTANT LINKAGE-TABLE-ENTRY-SIZE ...) ; compiling (DEF!CONSTANT NIL-VALUE ...) ; compiling (DEFENUM (:START 8) ...) ; compiling (DEFENUM (:START 24) ...) ; compiling (DEFVAR *ALLOCATION-POINTER*) ; compiling (DEFVAR *BINDING-STACK-POINTER*) ; compiling (DEFPARAMETER *STATIC-SYMBOLS* ...) ; compiling (DEFPARAMETER *STATIC-FUNS* ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/x86/parms.fasl-tmp written ; compilation finished in 0:00:00.027 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/early-vm.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEF!CONSTANT N-LOWTAG-BITS ...) ; compiling (DEF!CONSTANT LOWTAG-MASK ...) ; compiling (DEF!CONSTANT LOWTAG-LIMIT ...) ; compiling (DEF!CONSTANT N-FIXNUM-TAG-BITS ...) ; compiling (DEF!CONSTANT FIXNUM-TAG-MASK ...) ; compiling (DEF!CONSTANT N-FIXNUM-BITS ...) ; compiling (DEF!CONSTANT N-POSITIVE-FIXNUM-BITS ...) ; compiling (DEF!CONSTANT WORD-SHIFT ...) ; compiling (DEF!CONSTANT N-WORD-BYTES ...) ; compiling (DEF!CONSTANT N-WIDETAG-BITS ...) ; compiling (DEF!CONSTANT WIDETAG-MASK ...) ; compiling (DEF!CONSTANT SB-XC:MOST-POSITIVE-FIXNUM ...) ; compiling (DEF!CONSTANT SB-XC:MOST-NEGATIVE-FIXNUM ...) ; compiling (DEF!CONSTANT MOST-POSITIVE-WORD ...) ; compiling (DEF!CONSTANT MOST-POSITIVE-EXACTLY-SINGLE-FLOAT-FIXNUM ...) ; compiling (DEF!CONSTANT MOST-NEGATIVE-EXACTLY-SINGLE-FLOAT-FIXNUM ...) ; compiling (DEF!CONSTANT MOST-POSITIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM ...) ; compiling (DEF!CONSTANT MOST-NEGATIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM ...) ; compiling (DEF!CONSTANT MAX-DYNAMIC-SPACE-END ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/early-vm.lisp ; in: DEF!CONSTANT MAX-DYNAMIC-SPACE-END ; (MIN SB!VM::STOP SB!VM::OTHER-START) ; --> LET ; ==> ; SB!VM::STOP ; ; note: deleting unreachable code ; --> LET LET MIN LET ; ==> ; SB!VM::OTHER-START ; ; note: deleting unreachable code ; compiling (DEF!CONSTANT INSTANCE-DATA-START ...); ; compilation unit finished ; printed 2 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/generic/early-vm.fasl-tmp written ; compilation finished in 0:00:00.010 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/early-objdef.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFENUM NIL ...) ; compiling (DEF!CONSTANT NIL-VALUE ...) ; compiling (DEFCONSTANT-EQX FIXNUM-LOWTAGS ...) ; compiling (DEFENUM (:START # ...) ...) ; compiling (DEFENUM NIL ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/generic/early-objdef.fasl-tmp written ; compilation finished in 0:00:00.020 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-array.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEF!CONSTANT SB-XC:ARRAY-RANK-LIMIT ...) ; compiling (DEF!CONSTANT SB-XC:ARRAY-DIMENSION-LIMIT ...) ; compiling (DEF!CONSTANT SB-XC:ARRAY-TOTAL-SIZE-LIMIT ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/early-array.fasl-tmp written ; compilation finished in 0:00:00.002 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-extensions.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFVAR *CORE-PATHNAME* ...) ; compiling (DEFVAR *RUNTIME-PATHNAME* ...) ; compiling (DEFGLOBAL *EOF-OBJECT* ...) ; compiling (DEFCONSTANT MAX-HASH ...) ; compiling (DEF!TYPE HASH ...) ; compiling (DEF!TYPE INDEX ...) ; compiling (DEF!TYPE INDEX/2 ...) ; compiling (DEF!TYPE INDEX-OR-MINUS-1 ...) ; compiling (DEF!TYPE UNSIGNED-BYTE-WITH-A-BITE-OUT ...) ; compiling (DEF!TYPE SIGNED-BYTE-WITH-A-BITE-OUT ...) ; compiling (DEF!TYPE LOAD/STORE-INDEX ...) ; compiling (DEFUN DISPLACEMENT-BOUNDS ...) ; compiling (DEF!TYPE CONSTANT-DISPLACEMENT ...) ; compiling (DEF!TYPE SFUNCTION ...) ; compiling (DEF!TYPE TYPE-SPECIFIER ...) ; compiling (DEFPARAMETER *DEFAULT-INIT-CHAR-FORM* ...) ; compiling (DEF!CONSTANT BELL-CHAR-CODE ...) ; compiling (DEF!CONSTANT BACKSPACE-CHAR-CODE ...) ; compiling (DEF!CONSTANT TAB-CHAR-CODE ...) ; compiling (DEF!CONSTANT LINE-FEED-CHAR-CODE ...) ; compiling (DEF!CONSTANT FORM-FEED-CHAR-CODE ...) ; compiling (DEF!CONSTANT RETURN-CHAR-CODE ...) ; compiling (DEF!CONSTANT ESCAPE-CHAR-CODE ...) ; compiling (DEF!CONSTANT RUBOUT-CHAR-CODE ...) ; compiling (DEFUN MAYBE-CYCLIC-P ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN LIST-OF-LENGTH-AT-LEAST-P ...) ; compiling (DEFUN POSITIVE-PRIMEP ...) ; compiling (DEFUN COMPOUND-OBJECT-P ...) ; compiling (DEFUN COLLECT-NORMAL-EXPANDER ...) ; compiling (DEFUN COLLECT-LIST-EXPANDER ...) ; compiling (DEFMACRO COLLECT ...) ; compiling (DEFUN MEMQ ...) ; compiling (DEFUN ASSQ ...) ; compiling (DEFUN DELQ ...) ; compiling (DEFUN POSQ ...) ; compiling (DECLAIM (INLINE NEQ)) ; compiling (DEFUN NEQ ...) ; compiling (DECLAIM (INLINE NTH-BUT-WITH-SANE-ARG-ORDER)) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN NTH-BUT-WITH-SANE-ARG-ORDER ...) ; compiling (DEFUN ADJUST-LIST ...) ; compiling (DEFMACRO NAMED-LET ...) ; compiling (DEFUN FILTER-DOLIST-DECLARATIONS ...) ; compiling (DEFMACRO DOVECTOR ...) ; compiling (DEFMACRO DOHASH ...) ; compiling (DEFMACRO DOPLIST ...) ; compiling (DEFVAR *PROFILE-HASH-CACHE* ...) ; compiling (DEFVAR *CACHE-VECTOR-SYMBOLS* ...) ; compiling (DEFUN DROP-ALL-HASH-CACHES ...) ; compiling (DEFUN ALLOC-HASH-CACHE ...) ; compiling (DEF 2) ; compiling (DEF 3) ; compiling (DEF 4) ; compiling (DEF 5) ; compiling (DEF 6) ; compiling (DEFMACRO DEFINE-HASH-CACHE ...) ; compiling (DEFMACRO DEFUN-CACHED ...) ; compiling (DEFUN EQUAL-BUT-NO-CAR-RECURSION ...) ; compiling (DEFUN %FIND-PACKAGE-OR-LOSE ...) ; compiling (DEFUN FIND-UNDELETED-PACKAGE-OR-LOSE ...) ; compiling (DECLAIM (INLINE LEGAL-FUN-NAME-P)) ; compiling (DEFUN LEGAL-FUN-NAME-P ...) ; compiling (DEFTYPE FUNCTION-NAME ...) ; compiling (DEFUN LEGAL-FUN-NAME-OR-TYPE-ERROR ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN FUN-NAME-BLOCK-NAME ...) ; compiling (DEFUN LOOKS-LIKE-NAME-OF-SPECIAL-VAR-P ...) ; compiling (DEFMACRO ONCE-ONLY ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN MISSING-ARG ...) ; compiling (DEFMACRO AVER ...) ; compiling (DEFUN %FAILED-AVER ...) ; compiling (DEFUN BUG ...) ; compiling (DEFMACRO ENFORCE-TYPE ...) ; compiling (DEFUN %FAILED-ENFORCE-TYPE ...) ; compiling (DECLAIM (INLINE SWAPPED-ARGS-FUN)) ; compiling (DEFUN SWAPPED-ARGS-FUN ...) ; compiling (DEFUN TYPE-BOUND-NUMBER ...) ; compiling (DEF-CONSTANTLY-FUN CONSTANTLY-T ...) ; compiling (DEF-CONSTANTLY-FUN CONSTANTLY-NIL ...) ; compiling (DEF-CONSTANTLY-FUN CONSTANTLY-0 ...) ; compiling (DEFUN FEATUREP ...) ; compiling (DEFMACRO NOT/TYPE ...) ; compiling (DEFMACRO AND/TYPE ...) ; compiling (DEFUN ANY/TYPE ...) ; compiling (DEFUN EVERY/TYPE ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN DEFPRINTER-PRIN1 ...) ; compiling (DEFUN DEFPRINTER-PRINC ...) ; compiling (DEFUN DEFPRINTER-PRINX ...) ; compiling (DEFUN DEFPRINTER-PRINT-SPACE ...) ; compiling (DEFMACRO DEFPRINTER ...) ; compiling (DEFUN PHYSICALIZE-PATHNAME ...) ; compiling (DEFUN NORMALIZE-DEPRECATION-REPLACEMENTS ...) ; compiling (DEFUN DEPRECATION-ERROR ...) ; compiling (DEFUN DEPRECATION-WARNING ...) ; compiling (DEFUN DEPRECATED-FUNCTION ...) ; compiling (DEFUN DEPRECATION-COMPILER-MACRO ...) ; compiling (DEFMACRO DEFINE-DEPRECATED-FUNCTION ...) ; compiling (DEFUN CHECK-DEPRECATED-VARIABLE ...) ; compiling (DEFMACRO DEFINE-DEPRECATED-VARIABLE ...) ; compiling (DEFMACRO AWHEN ...) ; compiling (DEFMACRO ACOND ...) ; compiling (DEFUN EXTRACT-VAR-DECLS ...) ; compiling (DEFMACRO BINDING* ...) ; compiling (DEFMACRO DELAY ...) ; compiling (DEFUN FORCE ...) ; compiling (DEFUN PROMISE-READY-P ...) ; compiling (DEFMACRO WITH-REBOUND-IO-SYNTAX ...) ; compiling (DEFUN %WITH-REBOUND-IO-SYNTAX ...) ; compiling (DEFMACRO WITH-SANE-IO-SYNTAX ...) ; compiling (DEFUN CALL-WITH-SANE-IO-SYNTAX ...) ; compiling (DEFUN LIST-MEMBERS ...) ; compiling (DECLAIM (TYPE # ...)) ; compiling (!DEFPARAMETER *EVALUATOR-MODE* ...) ; compiling (DEFMACRO DX-FLET ...) ; compiling (DEFMACRO DX-LET ...) ; compiling NIL ; compiling NIL ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (DEFUN FP-ZERO-P ...) ; compiling (DEFUN NEG-FP-ZERO ...) ; compiling (DEFUN FILE-POSITION-OR-NIL-FOR-ERROR ...) ; compiling (DEFUN STREAM-ERROR-POSITION-INFO ...) ; compiling (DECLAIM (INLINE SCHWARTZIAN-STABLE-SORT-LIST)) ; compiling (DEFUN SCHWARTZIAN-STABLE-SORT-LIST ...) ; compiling (DEFMACRO WITH-SIMPLE-OUTPUT-TO-STRING ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-extensions.lisp ; in: DEFUN EXTRACT-VAR-DECLS ; (SB!INT:INFO :TYPE :KIND SB!IMPL::ID) ; ; caught STYLE-WARNING: ; undefined function: INFO ; in: DEFUN CHECK-DEPRECATED-VARIABLE ; (SB!INT:INFO :VARIABLE :DEPRECATED SB!IMPL::NAME) ; ; caught STYLE-WARNING: ; undefined function: INFO ; in: DEFUN NEG-FP-ZERO ; (SB!KERNEL:MAKE-UNPORTABLE-FLOAT :SINGLE-FLOAT-NEGATIVE-ZERO) ; ; caught STYLE-WARNING: ; undefined function: MAKE-UNPORTABLE-FLOAT ; in: DEFMACRO DEFUN-CACHED ; (SB!INT:PARSE-BODY SB!IMPL::BODY-DECLS-DOC) ; ; caught STYLE-WARNING: ; undefined function: PARSE-BODY ; in: DEFMACRO DOHASH ; (SB!INT:PARSE-BODY SB!IMPL::BODY :DOC-STRING-ALLOWED NIL) ; ; caught STYLE-WARNING: ; undefined function: PARSE-BODY ; in: DEFMACRO DOVECTOR ; (SB!INT:PARSE-BODY SB!IMPL::BODY :DOC-STRING-ALLOWED NIL) ; ; caught STYLE-WARNING: ; undefined function: PARSE-BODY ; ; caught STYLE-WARNING: ; 4 more uses of undefined function PARSE-BODY ; ; compilation unit finished ; Undefined functions: ; INFO MAKE-UNPORTABLE-FLOAT PARSE-BODY ; caught 7 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/early-extensions.fasl-tmp written ; compilation finished in 0:00:00.525 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/parse-body.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!INT") ; compiling (/SHOW0 "entering parse-body.lisp") ; compiling (DEFUN PARSE-BODY ...) ; compiling (/SHOW0 "leaving parse-body.lisp") ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/parse-body.lisp ; in: DEFUN PARSE-BODY ; (SB!INT:STYLE-WARN "DECLAIM where DECLARE was probably intended") ; ; caught STYLE-WARNING: ; undefined function: STYLE-WARN ; ; compilation unit finished ; Undefined function: ; STYLE-WARN ; caught 1 STYLE-WARNING condition ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/parse-body.fasl-tmp written ; compilation finished in 0:00:00.010 /entering parse-body.lisp /leaving parse-body.lisp ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/parse-defmacro.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (DEFVAR *ARG-TESTS*) ; compiling (DECLAIM (TYPE LIST ...)) ; compiling (DEFVAR *SYSTEM-LETS*) ; compiling (DECLAIM (TYPE LIST ...)) ; compiling (DEFVAR *USER-LETS*) ; compiling (DECLAIM (TYPE LIST ...)) ; compiling (DEFVAR *ENV-VAR*) ; compiling (DEFVAR *DEFAULT-DEFAULT*) ; compiling (DEFVAR *IGNORABLE-VARS*) ; compiling (DECLAIM (TYPE LIST ...)) ; compiling (DEFUN PARSE-DEFMACRO ...) ; compiling (DEFUN PARSE-DEFMACRO-LAMBDA-LIST ...) ; compiling (DEFUN ARG-COUNT-ERROR ...) ; compiling (DEFUN PUSH-SUBLIST-BINDING ...) ; compiling (DEFUN PUSH-LET-BINDING ...) ; compiling (DEFUN PUSH-OPTIONAL-BINDING ...) ; compiling (DEFUN DEFMACRO-ERROR ...) ; compiling (DEFUN CHECK-DEFMACRO-ARG ...) ; compiling (DEFUN VERIFY-KEYWORDS ...) ; compiling (DEFUN LOOKUP-KEYWORD ...) ; compiling (DEFUN KEYWORD-SUPPLIED-P ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/parse-defmacro.lisp ; in: DEFUN PARSE-DEFMACRO ; (SB!INT:BAD-TYPE SB!KERNEL::LAMBDA-LIST 'LIST ; "~S lambda-list is not a list: ~S" SB!KERNEL::CONTEXT SB!KERNEL::LAMBDA-LIST) ; ; caught STYLE-WARNING: ; undefined function: BAD-TYPE ; ; compilation unit finished ; Undefined function: ; BAD-TYPE ; caught 1 STYLE-WARNING condition ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/parse-defmacro.fasl-tmp written ; compilation finished in 0:00:00.082 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/deftype.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFUN CONSTANT-TYPE-EXPANDER ...) ; compiling (DEFUN %DEFTYPE ...) ; compiling (DEF!MACRO SB-XC:DEFTYPE ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/deftype.lisp ; in: DEFUN %DEFTYPE ; (SETF (SB!KERNEL:CLASSOID-CELL-PCL-CLASS ; (SB!KERNEL:FIND-CLASSOID-CELL SB!IMPL::NAME :CREATE T)) ; NIL) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB-C::%FUNCALL #'(SETF SB!KERNEL:CLASSOID-CELL-PCL-CLASS) #:NEW4 #:G5) ; ; caught STYLE-WARNING: ; undefined function: (SETF CLASSOID-CELL-PCL-CLASS) ; in: DEF!MACRO SB-XC:DEFTYPE ; (SB!INT:BAD-TYPE SB!IMPL::NAME 'SYMBOL "Type name is not a symbol:~% ~S" ; SB!KERNEL:FORM) ; ; caught STYLE-WARNING: ; undefined function: BAD-TYPE ; in: DEFUN %DEFTYPE ; (SB!KERNEL:FIND-CLASSOID-CELL SB!IMPL::NAME :CREATE T) ; ; caught STYLE-WARNING: ; undefined function: FIND-CLASSOID-CELL ; ; compilation unit finished ; Undefined functions: ; (SETF CLASSOID-CELL-PCL-CLASS) BAD-TYPE FIND-CLASSOID-CELL ; caught 3 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/deftype.fasl-tmp written ; compilation finished in 0:00:00.063 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/defconstant.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFUN (SETF SB!C::XC-CONSTANT-VALUE) ...) ; compiling (DEFUN SB!C::XC-CONSTANT-VALUE ...) ; compiling (DEF!MACRO SB-XC:DEFCONSTANT ...) ; compiling (DEFUN SB!C::%DEFCONSTANT ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/defconstant.lisp ; in: DEFUN SB!C::%DEFCONSTANT ; (SETF (SB!KERNEL:FDOCUMENTATION SB!IMPL::NAME 'VARIABLE) SB!IMPL::DOC) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB-C::%FUNCALL #'(SETF SB!KERNEL:FDOCUMENTATION) #:NEW59 #:NAME60 'VARIABLE) ; ; caught STYLE-WARNING: ; undefined function: (SETF FDOCUMENTATION) ; (SETF (SB!INT:INFO :SOURCE-LOCATION :CONSTANT SB!IMPL::NAME) ; SB!IMPL::SOURCE-LOCATION) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB-C::%FUNCALL #'(SETF SB!INT:INFO) #:NEW18 :SOURCE-LOCATION :CONSTANT ; #:NAME19) ; ; caught STYLE-WARNING: ; undefined function: (SETF INFO) ; (SB!INT:ABOUT-TO-MODIFY-SYMBOL-VALUE SB!IMPL::NAME 'DEFCONSTANT) ; ; caught STYLE-WARNING: ; undefined function: ABOUT-TO-MODIFY-SYMBOL-VALUE ; (SB!INT:CLEAR-INFO :VARIABLE :MACRO-EXPANSION SB!IMPL::NAME) ; ; caught STYLE-WARNING: ; undefined function: CLEAR-INFO ; (SB!INT:INFO :VARIABLE :KIND SB!IMPL::NAME) ; ; caught STYLE-WARNING: ; undefined function: INFO ; (SB!INT:STYLE-WARN 'SB!KERNEL:ASTERISKS-AROUND-CONSTANT-VARIABLE-NAME ; :FORMAT-CONTROL "defining ~S as a constant" :FORMAT-ARGUMENTS ; (LIST SB!IMPL::NAME)) ; ; caught STYLE-WARNING: ; undefined function: STYLE-WARN ; ; compilation unit finished ; Undefined functions: ; (SETF FDOCUMENTATION) (SETF INFO) ABOUT-TO-MODIFY-SYMBOL-VALUE CLEAR-INFO INFO STYLE-WARN ; caught 6 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/defconstant.fasl-tmp written ; compilation finished in 0:00:00.032 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-alieneval.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!ALIEN") ; compiling (DEFVAR *ALIEN-TYPE-CLASSES* ...) ; compiling (DEFVAR *NEW-AUXILIARY-TYPES* ...) ; compiling (DEFVAR *RECORD-TYPES-ALREADY-UNPARSED*) ; compiling (DEFVAR *VALUES-TYPE-OKAY* ...) ; compiling (DEFVAR *DEFAULT-C-STRING-EXTERNAL-FORMAT* ...) ; compiling (DEFVAR *SAVED-FP-AND-PCS*) ; compiling (DECLAIM (INLINE INVOKE-WITH-SAVED-FP-AND-PC)) ; compiling (DEFUN INVOKE-WITH-SAVED-FP-AND-PC ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-alieneval.lisp ; in: DEFUN INVOKE-WITH-SAVED-FP-AND-PC ; (FUNCALL SB!ALIEN::FN) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN SB!ALIEN::FN) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; not known to be a function ; compiling (DEFUN FIND-SAVED-FP-AND-PC ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-alieneval.lisp ; in: DEFUN INVOKE-WITH-SAVED-FP-AND-PC ; (SB!KERNEL:%CALLER-FRAME) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL:%CALLER-FRAME ; (SB!KERNEL:%CALLER-PC) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL:%CALLER-PC ; in: DEFUN FIND-SAVED-FP-AND-PC ; (SB!KERNEL:GET-LISP-OBJ-ADDRESS (CAR SB!ALIEN::X)) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL:GET-LISP-OBJ-ADDRESS ; ; compilation unit finished ; Undefined functions: ; SB!KERNEL:%CALLER-FRAME SB!KERNEL:%CALLER-PC SB!KERNEL:GET-LISP-OBJ-ADDRESS ; caught 3 STYLE-WARNING conditions ; printed 1 note ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/early-alieneval.fasl-tmp written ; compilation finished in 0:00:00.013 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/specializable-array.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (DEFMACRO !MAKE-SPECIALIZED-ARRAY ...) ; compiling (DEFUN !COERCE-TO-SPECIALIZED ...) ; compiling (DEFUN REGISTER-SPECIALIZED-ARRAY ...) ; compiling (DEFUN !SPECIALIZED-ARRAY-ELEMENT-TYPE ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/specializable-array.fasl-tmp written ; compilation finished in 0:00:00.012 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-cl.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (PROCLAIM (QUOTE #)) ; compiling (DEFPARAMETER *!STANDARD-TYPE-NAMES* ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/early-cl.fasl-tmp written ; compilation finished in 0:00:00.003 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-fasl.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!FASL") ; compiling (DEFPARAMETER *FASL-HEADER-STRING-START-STRING* ...) ; compiling (DEFINE-FASL-FORMAT-FEATURES) ; compiling (DEF!CONSTANT +FASL-HEADER-STRING-STOP-CHAR-CODE+ ...) ; compiling (DEF!CONSTANT +FASL-FILE-VERSION+ ...) ; compiling (DECLAIM (TYPE SIMPLE-STRING ...)) ; compiling (DEFVAR *FASL-FILE-TYPE* ...) ; compiling (DECLAIM (TYPE HASH-TABLE ...)) ; compiling (DEFVAR *ASSEMBLER-ROUTINES* ...) ; compiling (DECLAIM (SIMPLE-VECTOR *FOP-NAMES* ...)) ; compiling (DEFVAR *FOP-NAMES* ...) ; compiling (DEFVAR *FOP-FUNS* ...) ; compiling (DECLAIM (TYPE # ...)) ; compiling (DEFGLOBAL *FOP-SIGNATURES* ...) ; compiling (DEFVAR *LOAD-DEPTH* ...) ; compiling (DECLAIM (TYPE INDEX ...)) ; compiling (DEFVAR *FASL-INPUT-STREAM*) ; compiling (DECLAIM (TYPE ANSI-STREAM ...)) ; compiling (DEFVAR *LOAD-CODE-VERBOSE* ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/early-fasl.fasl-tmp written ; compilation finished in 0:00:00.010 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/debug-var-io.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN %READ-VAR-INTEGER ...) ; compiling (DEFMACRO READ-VAR-INTEGER ...) ; compiling (DEFUN WRITE-VAR-INTEGER ...) ; compiling (DEFMACRO READ-VAR-STRING ...) ; compiling (DEFUN WRITE-VAR-STRING ...) ; compiling (DEFMACRO READ-PACKED-BIT-VECTOR ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/debug-var-io.fasl-tmp written ; compilation finished in 0:00:00.030 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-thread.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!THREAD") ; compiling (DEFVAR *CURRENT-THREAD* ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/early-thread.fasl-tmp written ; compilation finished in 0:00:00.002 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-raw-slots.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (DEF!TYPE WORD ...) ; compiling (DEF!TYPE SB!VM:SIGNED-WORD ...) ; compiling (DEFTYPE LAYOUT-RAW-SLOT-METADATA-TYPE ...) ; compiling (DEFMACRO LAYOUT-RAW-SLOT-METADATA ...) ; compiling (DEFSTRUCT (RAW-SLOT-DATA # ...) ...) ; compiling (DECLAIM (FREEZE-TYPE RAW-SLOT-DATA)) ; compiling (DEFGLOBAL *RAW-SLOT-DATA-LIST* ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-raw-slots.lisp ; in: DEFGLOBAL *RAW-SLOT-DATA-LIST* ; (SB!KERNEL::MAKE-COMPARER SB!KERNEL:%RAW-INSTANCE-REF/WORD) ; --> SB!INT:NAMED-LAMBDA FUNCTION = IF ; ==> ; (= (SB!KERNEL:%RAW-INSTANCE-REF/WORD SB!KERNEL::X SB!INT:INDEX) ; (SB!KERNEL:%RAW-INSTANCE-REF/WORD SB!KERNEL::Y SB!INT:INDEX)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second 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 SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second 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). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; 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. ; ; 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 NUMBER, 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 NUMBER, not a SINGLE-FLOAT. ; (SB!KERNEL::MAKE-COMPARER SB!KERNEL:%RAW-INSTANCE-REF/SINGLE) ; --> SB!INT:NAMED-LAMBDA FUNCTION = IF ; ==> ; (= (SB!KERNEL:%RAW-INSTANCE-REF/SINGLE SB!KERNEL::X SB!INT:INDEX) ; (SB!KERNEL:%RAW-INSTANCE-REF/SINGLE SB!KERNEL::Y SB!INT:INDEX)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second 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 SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second 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). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; 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. ; ; 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 NUMBER, 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 NUMBER, not a SINGLE-FLOAT. ; (SB!KERNEL::MAKE-COMPARER SB!KERNEL:%RAW-INSTANCE-REF/DOUBLE) ; --> SB!INT:NAMED-LAMBDA FUNCTION = IF ; ==> ; (= (SB!KERNEL:%RAW-INSTANCE-REF/DOUBLE SB!KERNEL::X SB!INT:INDEX) ; (SB!KERNEL:%RAW-INSTANCE-REF/DOUBLE SB!KERNEL::Y SB!INT:INDEX)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second 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 SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second 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). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; 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. ; ; 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 NUMBER, 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 NUMBER, not a SINGLE-FLOAT. ; (SB!KERNEL::MAKE-COMPARER SB!KERNEL:%RAW-INSTANCE-REF/COMPLEX-SINGLE) ; --> SB!INT:NAMED-LAMBDA FUNCTION = IF ; ==> ; (= (SB!KERNEL:%RAW-INSTANCE-REF/COMPLEX-SINGLE SB!KERNEL::X SB!INT:INDEX) ; (SB!KERNEL:%RAW-INSTANCE-REF/COMPLEX-SINGLE SB!KERNEL::Y SB!INT:INDEX)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second 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 SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second 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). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; 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. ; ; 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 NUMBER, 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 NUMBER, not a SINGLE-FLOAT. ; (SB!KERNEL::MAKE-COMPARER SB!KERNEL:%RAW-INSTANCE-REF/COMPLEX-DOUBLE) ; --> SB!INT:NAMED-LAMBDA FUNCTION = IF ; ==> ; (= (SB!KERNEL:%RAW-INSTANCE-REF/COMPLEX-DOUBLE SB!KERNEL::X SB!INT:INDEX) ; (SB!KERNEL:%RAW-INSTANCE-REF/COMPLEX-DOUBLE SB!KERNEL::Y SB!INT:INDEX)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second 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 SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second 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). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; 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. ; ; 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 NUMBER, 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 NUMBER, not a SINGLE-FLOAT. ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN RAW-SLOT-DATA-OR-LOSE ...) ; compiling (DEFUN RAW-SLOT-WORDS ...) ; compiling (DEFMACRO DO-INSTANCE-TAGGED-SLOT ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-raw-slots.lisp ; in: DEFGLOBAL *RAW-SLOT-DATA-LIST* ; (SB!KERNEL::MAKE-COMPARER SB!KERNEL:%RAW-INSTANCE-REF/COMPLEX-DOUBLE) ; --> SB!INT:NAMED-LAMBDA FUNCTION = IF = ; ==> ; (SB!KERNEL:%RAW-INSTANCE-REF/COMPLEX-DOUBLE SB!KERNEL::X SB!INT:INDEX) ; ; caught STYLE-WARNING: ; undefined function: %RAW-INSTANCE-REF/COMPLEX-DOUBLE ; (SB!KERNEL::MAKE-COMPARER SB!KERNEL:%RAW-INSTANCE-REF/COMPLEX-SINGLE) ; --> SB!INT:NAMED-LAMBDA FUNCTION = IF = ; ==> ; (SB!KERNEL:%RAW-INSTANCE-REF/COMPLEX-SINGLE SB!KERNEL::X SB!INT:INDEX) ; ; caught STYLE-WARNING: ; undefined function: %RAW-INSTANCE-REF/COMPLEX-SINGLE ; (SB!KERNEL::MAKE-COMPARER SB!KERNEL:%RAW-INSTANCE-REF/DOUBLE) ; --> SB!INT:NAMED-LAMBDA FUNCTION = IF = ; ==> ; (SB!KERNEL:%RAW-INSTANCE-REF/DOUBLE SB!KERNEL::X SB!INT:INDEX) ; ; caught STYLE-WARNING: ; undefined function: %RAW-INSTANCE-REF/DOUBLE ; (SB!KERNEL::MAKE-COMPARER SB!KERNEL:%RAW-INSTANCE-REF/SINGLE) ; --> SB!INT:NAMED-LAMBDA FUNCTION = IF = ; ==> ; (SB!KERNEL:%RAW-INSTANCE-REF/SINGLE SB!KERNEL::X SB!INT:INDEX) ; ; caught STYLE-WARNING: ; undefined function: %RAW-INSTANCE-REF/SINGLE ; (SB!KERNEL::MAKE-COMPARER SB!KERNEL:%RAW-INSTANCE-REF/WORD) ; --> SB!INT:NAMED-LAMBDA FUNCTION = IF = ; ==> ; (SB!KERNEL:%RAW-INSTANCE-REF/WORD SB!KERNEL::X SB!INT:INDEX) ; ; caught STYLE-WARNING: ; undefined function: %RAW-INSTANCE-REF/WORD ; ; compilation unit finished ; Undefined functions: ; %RAW-INSTANCE-REF/COMPLEX-DOUBLE %RAW-INSTANCE-REF/COMPLEX-SINGLE %RAW-INSTANCE-REF/DOUBLE %RAW-INSTANCE-REF/SINGLE %RAW-INSTANCE-REF/WORD ; caught 5 STYLE-WARNING conditions ; printed 45 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/early-raw-slots.fasl-tmp written ; compilation finished in 0:00:00.118 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/defbangstruct.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (DEFTYPE DEF!STRUCT-TYPE-MAKE-LOAD-FORM-FUN ...) ; compiling (DEFVAR *DEF!STRUCT-SUPERTYPE* ...) ; compiling (DEFUN DEF!STRUCT-SUPERTYPE ...) ; compiling (DEFUN (SETF DEF!STRUCT-SUPERTYPE) ...) ; compiling (DEFVAR *DEF!STRUCT-TYPE-MAKE-LOAD-FORM-FUN* ...) ; compiling (DEFUN DEF!STRUCT-TYPE-MAKE-LOAD-FORM-FUN ...) ; compiling (DEFUN (SETF DEF!STRUCT-TYPE-MAKE-LOAD-FORM-FUN) ...) ; compiling (DEFUN JUST-DUMP-IT-NORMALLY ...) ; compiling (DEFUN IGNORE-IT ...) ; compiling (DEFSTRUCT DELAYED-DEF!STRUCT ...) ; compiling (DEFVAR *DELAYED-DEF!STRUCTS* ...) ; compiling (DEFUN PARSE-DEF!STRUCT-ARGS ...) ; compiling (DEFUN XC-DUMPABLE-STRUCTURE-INSTANCE-P ...) ; compiling (DEFUN %INSTANCE-LAYOUT ...) ; compiling (DEFUN %INSTANCE-LENGTH ...) ; compiling (DEFUN %INSTANCE-REF ...) ; compiling (DEFUN %INSTANCE-SET ...) ; compiling (DEFUN UNCROSS-DEFSTRUCT-ARGS ...) ; compiling (DEFMACRO DEF!STRUCT ...) ; compiling (DEFUN FORCE-DELAYED-DEF!STRUCTS ...) ; compiling (DEF!STRUCT (STRUCTURE!OBJECT # ...)) ; compiling (DEFUN STRUCTURE!OBJECT-MAKE-LOAD-FORM ...) ; compiling (SETF (SYMBOL-FUNCTION #) ...) ; compiling (DEFMETHOD MAKE-LOAD-FORM ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/defbangstruct.lisp ; in: DEFUN %INSTANCE-LAYOUT ; (SB!KERNEL:CLASSOID-LAYOUT ; (SB!KERNEL:FIND-CLASSOID (TYPE-OF SB!KERNEL:INSTANCE))) ; ; caught STYLE-WARNING: ; undefined function: CLASSOID-LAYOUT ; in: DEFUN XC-DUMPABLE-STRUCTURE-INSTANCE-P ; (SB!KERNEL::COMPILER-LAYOUT-READY-P SB!KERNEL::NAME) ; ; caught STYLE-WARNING: ; undefined function: COMPILER-LAYOUT-READY-P ; in: DEFUN %INSTANCE-SET ; (SB!KERNEL:DD-SLOTS SB!KERNEL::DD) ; ; caught STYLE-WARNING: ; undefined function: DD-SLOTS ; in: DEFUN %INSTANCE-REF ; (SB!KERNEL:DD-SLOTS SB!KERNEL::DD) ; ; caught STYLE-WARNING: ; undefined function: DD-SLOTS ; in: DEFUN %INSTANCE-SET ; (SB!KERNEL:DSD-ACCESSOR-NAME SB!KERNEL::DSD) ; ; caught STYLE-WARNING: ; undefined function: DSD-ACCESSOR-NAME ; in: DEFUN %INSTANCE-REF ; (SB!KERNEL:DSD-ACCESSOR-NAME SB!KERNEL::DSD) ; ; caught STYLE-WARNING: ; undefined function: DSD-ACCESSOR-NAME ; (SB!KERNEL:DSD-INDEX SB!KERNEL::DSD) ; ; caught STYLE-WARNING: ; undefined function: DSD-INDEX ; (SB!KERNEL:DSD-RAW-TYPE SB!KERNEL::DSD) ; ; caught STYLE-WARNING: ; undefined function: DSD-RAW-TYPE ; in: DEFUN %INSTANCE-LAYOUT ; (SB!KERNEL:FIND-CLASSOID (TYPE-OF SB!KERNEL:INSTANCE)) ; ; caught STYLE-WARNING: ; undefined function: FIND-CLASSOID ; in: DEFUN XC-DUMPABLE-STRUCTURE-INSTANCE-P ; (SB!INT:INFO :TYPE :COMPILER-LAYOUT SB!KERNEL::NAME) ; ; caught STYLE-WARNING: ; undefined function: INFO ; in: DEFUN %INSTANCE-SET ; (SB!KERNEL:LAYOUT-INFO SB!KERNEL:LAYOUT) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-INFO ; in: DEFUN %INSTANCE-REF ; (SB!KERNEL:LAYOUT-INFO SB!KERNEL:LAYOUT) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-INFO ; in: DEFUN %INSTANCE-LENGTH ; (SB!KERNEL:LAYOUT-LENGTH (SB!KERNEL:%INSTANCE-LAYOUT SB!KERNEL:INSTANCE)) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-LENGTH ; in: DEFUN XC-DUMPABLE-STRUCTURE-INSTANCE-P ; (SB!KERNEL:LAYOUT-RAW-SLOT-METADATA ; (SB!INT:INFO :TYPE :COMPILER-LAYOUT SB!KERNEL::NAME)) ; ==> ; (SB!KERNEL:LAYOUT-N-UNTAGGED-SLOTS ; (SB!INT:INFO :TYPE :COMPILER-LAYOUT SB!KERNEL::NAME)) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-N-UNTAGGED-SLOTS ; ; compilation unit finished ; Undefined functions: ; CLASSOID-LAYOUT COMPILER-LAYOUT-READY-P DD-SLOTS DSD-ACCESSOR-NAME DSD-INDEX DSD-RAW-TYPE FIND-CLASSOID INFO LAYOUT-INFO LAYOUT-LENGTH LAYOUT-N-UNTAGGED-SLOTS ; caught 14 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/defbangstruct.fasl-tmp written ; compilation finished in 0:00:00.127 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/unportable-float.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFUN MAKE-UNPORTABLE-FLOAT ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/unportable-float.fasl-tmp written ; compilation finished in 0:00:00.006 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/type-class.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS) ; compiling (DEFVAR *CTYPE-LCG-STATE* ...) ; compiling (DEFVAR *CTYPE-HASH-STATE* ...) ; compiling (DEFVAR *TYPE-CLASSES* ...) ; compiling (DEFUN TYPE-CLASS-OR-LOSE ...) ; compiling (DEFUN MUST-SUPPLY-THIS ...) ; compiling (DEF!STRUCT (TYPE-CLASS #) ...) ; compiling (DECLAIM (FREEZE-TYPE TYPE-CLASS)) ; compiling (DEFUN !TYPE-CLASS-FUN-SLOT ...) ; compiling (DEFCONSTANT-EQX !TYPE-CLASS-FUN-SLOTS ...) ; compiling (DEFMACRO !DEFINE-TYPE-METHOD ...) ; compiling (DEFMACRO !DEFINE-TYPE-CLASS ...) ; compiling (DEFMACRO !INVOKE-TYPE-METHOD ...) ; compiling (DEFUN INVOKE-COMPLEX-SUBTYPEP-ARG1-METHOD ...) ; compiling (DEFUN INVOKE-COMPLEX-=-OTHER-METHOD ...) ; compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !TYPE-CLASS-COLD-INIT) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/type-class.lisp ; in: ; DEF!STRUCT (TYPE-CLASS ; (:PRINT-OBJECT (LAMBDA (X STREAM) (PRINT-UNREADABLE-OBJECT # #)))) ; #'SB!KERNEL::HIERARCHICAL-INTERSECTION2 ; ; caught STYLE-WARNING: ; undefined function: HIERARCHICAL-INTERSECTION2 ; #'SB!KERNEL::HIERARCHICAL-UNION2 ; ; caught STYLE-WARNING: ; undefined function: HIERARCHICAL-UNION2 ; in: DEFUN INVOKE-COMPLEX-=-OTHER-METHOD ; (SB!KERNEL::TYPE-CLASS-INFO SB!KERNEL::TYPE1) ; ; caught STYLE-WARNING: ; undefined function: TYPE-CLASS-INFO ; in: DEFUN INVOKE-COMPLEX-SUBTYPEP-ARG1-METHOD ; (SB!KERNEL::TYPE-CLASS-INFO SB!KERNEL::TYPE1) ; ; caught STYLE-WARNING: ; undefined function: TYPE-CLASS-INFO ; ; compilation unit finished ; Undefined functions: ; HIERARCHICAL-INTERSECTION2 HIERARCHICAL-UNION2 TYPE-CLASS-INFO ; caught 4 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/type-class.fasl-tmp written ; compilation finished in 0:00:00.126 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/early-backend.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFVAR *BACKEND-PAGE-BYTES* ...) ; compiling (DECLAIM (TYPE INDEX ...)) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/early-backend.fasl-tmp written ; compilation finished in 0:00:00.002 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/info-vector.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFCONSTANT +EMPTY-KEY+ ...) ; compiling (DEFCONSTANT +UNAVAILABLE-KEY+ ...) ; compiling (DEFTYPE INFO-CELL-INDEX ...) ; compiling (DEFCONSTANT +INFO-KEYS-OFFSET+ ...) ; compiling (DEFSTRUCT (INFO-STORAGE # ...) ...) ; compiling (DEFUN MAKE-INFO-STORAGE ...) ; compiling (DEFSTRUCT (INFO-HASHTABLE #) ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFMACRO INFO-CAS ...) ; compiling (DECLAIM (INLINE INFO-ENV-ADJUST-COUNT)) ; compiling (DEFUN INFO-ENV-ADJUST-COUNT ...) ; compiling (DECLAIM (INLINE MAKE-INFO-FORWARDING-POINTER ...) ...) ; compiling (DEFUN MAKE-INFO-FORWARDING-POINTER ...) ; compiling (DEFUN INFO-FORWARDING-POINTER-TARGET ...) ; compiling (DEFUN INFO-VALUE-MOVED-P ...) ; compiling (DEFMACRO DO-PROBE-SEQUENCE ...) ; compiling (DEFUN %WAIT-FOR-REHASH ...) ; compiling (DEFUN INFO-GETHASH ...) ; compiling (DEFUN INFO-PUTHASH ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/info-vector.lisp ; in: DEFUN INFO-PUTHASH ; (SB!C::INFO-ENV-COMPARATOR SB!C::ENV) ; --> TRULY-THE SB-KERNEL:%INSTANCE-REF THE ; ==> ; SB!C::ENV ; ; note: deleting unreachable code ; (SB!C::FOLLOW/UPDATE SB!C::STORAGE (SB!C::VALUE-INDEX)) ; ==> ; SB!C::STORAGE ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (SB!C::PROBE SB!C::HASHVAL (SB!C::%WAIT-FOR-REHASH SB!C::ENV SB!C::STORAGE)) ; ==> ; SB!C::HASHVAL ; ; note: deleting unreachable code ; compiling (DEFUN INFO-ENV-REHASH ...) ; compiling (DEFMACRO INFO-MAPHASH ...) ; compiling (DEFUN (SETF INFO-GETHASH) ...) ; compiling (DEFUN SHOW-INFO-ENV ...) ; compiling (DEF!CONSTANT TYPE-NUMBER-BITS ...) ; compiling (DEFTYPE TYPE-NUMBER ...) ; compiling (DEFCONSTANT INFO-TYPE-MASK ...) ; compiling (DEFCONSTANT +INFOS-PER-WORD+ ...) ; compiling (DEFTYPE INFO-DESCRIPTOR ...) ; compiling (DEFCONSTANT +NO-AUXILLIARY-KEY+ ...) ; compiling (DEFCONSTANT-EQX +NIL-PACKED-INFOS+ ...) ; compiling (DEFCONSTANT +FDEFN-TYPE-NUM+ ...) ; compiling (DECLAIM (INLINE PACKED-INFO-FIELD)) ; compiling (DEFUN PACKED-INFO-FIELD ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/info-vector.lisp ; in: DEFUN PACKED-INFO-FIELD ; (THE SB!C::TYPE-NUMBER ; (SB-XC:LDB ; (SB-XC:BYTE SB!C::TYPE-NUMBER-BITS ; (* (THE # SB!C::FIELD-INDEX) SB!C::TYPE-NUMBER-BITS)) ; (THE SB!C::INFO-DESCRIPTOR (SVREF VECTOR SB!C::DESC-INDEX)))) ; ; note: type assertion too complex to check: ; (VALUES (UNSIGNED-BYTE 6) &REST T). ; compiling (DEFUN COMPUTE-PACKIFIED-INFO-SIZE ...) ; compiling (DEFMACRO MAKE-INFO-DESCRIPTOR ...) ; compiling (DEFUN PACKIFY-INFOS ...) ; compiling (DEFMACRO WITH-PACKED-INFO-ITERATOR ...) ; compiling (DEFMACRO DO-PACKED-INFO-VECTOR-AUX-KEY ...) ; compiling (DEFUN COMPUTE-UNPACKIFIED-INFO-SIZE ...) ; compiling (DEFUN UNPACKIFY-INFOS ...) ; compiling (DEFUN INFO-FIND-AUX-KEY/UNPACKED ...) ; compiling (DEFUN INFO-FIND-AUX-KEY/PACKED ...) ; compiling (DEFUN %PACKED-INFO-INSERT ...) ; compiling (DECLAIM (INLINE INFO-QUICKLY-INSERTABLE-P)) ; compiling (DEFUN INFO-QUICKLY-INSERTABLE-P ...) ; compiling (DEFUN QUICK-PACKED-INFO-INSERT ...) ; compiling (DECLAIM (MAYBE-INLINE PACKED-INFO-INSERT)) ; compiling (DEFUN PACKED-INFO-INSERT ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN PACKED-INFO-VALUE-INDEX ...) ; compiling (DEFUN PACKED-INFO-REMOVE ...) ; compiling (DEFCONSTANT-EQX !+PCL-READER-NAME+ ...) ; compiling (DEFCONSTANT-EQX !+PCL-WRITER-NAME+ ...) ; compiling (DEFCONSTANT-EQX !+PCL-BOUNDP-NAME+ ...) ; compiling (DEFUN PCL-GLOBAL-ACCESSOR-NAME-P ...) ; compiling (DEFUN CONSTRUCT-GLOBALDB-NAME ...) ; compiling (DEFUN %CALL-WITH-EACH-INFO ...) ; compiling (DEFUN !TEST-PACKIFY-INFOS ...) ; compiling (DEFMACRO WITH-GLOBALDB-NAME ...) ; compiling (DECLAIM (INLINE INFO-VECTOR-FDEFN)) ; compiling (DEFUN INFO-VECTOR-FDEFN ...) ; compiling (DEFUN SYMBOL-INFO ...) ; compiling (DEFUN UPDATE-SYMBOL-INFO ...) ; compiling (DEFUN SYMBOL-INFO-VECTOR ...) ; compiling (DECLAIM (TYPE INFO-HASHTABLE ...)) ; compiling (DEFVAR *INFO-ENVIRONMENT*) ; compiling (DEFUN SET-INFO-VALUE ...) ; compiling (DEFUN %ATOMIC-SET-INFO-VALUE ...) ; compiling (DEFUN %GET-INFO-VALUE-INITIALIZING ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/info-vector.lisp ; in: DEFUN INFO-PUTHASH ; (SB!C::INFO-VALUE-MOVED-P SB!C::VALUE) ; --> BLOCK ; ==> ; (SB!INT:FIXNUMP SB!C::VAL) ; ; caught STYLE-WARNING: ; undefined function: FIXNUMP ; in: DEFUN INFO-GETHASH ; (SB!C::INFO-VALUE-MOVED-P SB!C::VALUE) ; --> BLOCK ; ==> ; (SB!INT:FIXNUMP SB!C::VAL) ; ; caught STYLE-WARNING: ; undefined function: FIXNUMP ; in: DEFUN INFO-VALUE-MOVED-P ; (SB!INT:FIXNUMP SB!C::VAL) ; ; caught STYLE-WARNING: ; undefined function: FIXNUMP ; in: DEFSTRUCT INFO-HASHTABLE ; #'SB!C::GLOBALDB-SXHASHOID ; ; caught STYLE-WARNING: ; undefined function: GLOBALDB-SXHASHOID ; in: DEFUN MAKE-INFO-STORAGE ; (SB!C::PRIMIFY (CEILING SB!C::N-CELLS-MIN SB!C::LOAD-FACTOR)) ; ; caught STYLE-WARNING: ; undefined function: PRIMIFY ; in: DEFUN CONSTRUCT-GLOBALDB-NAME ; (SB!PCL::SLOT-BOUNDP-NAME SB!C::STEM) ; ; caught STYLE-WARNING: ; undefined function: SB!PCL::SLOT-BOUNDP-NAME ; (SB!PCL::SLOT-READER-NAME SB!C::STEM) ; ; caught STYLE-WARNING: ; undefined function: SB!PCL::SLOT-READER-NAME ; (SB!PCL::SLOT-WRITER-NAME SB!C::STEM) ; ; caught STYLE-WARNING: ; undefined function: SB!PCL::SLOT-WRITER-NAME ; in: DEFUN %WAIT-FOR-REHASH ; (SB!THREAD:THREAD-YIELD) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD:THREAD-YIELD ; ; compilation unit finished ; Undefined functions: ; FIXNUMP GLOBALDB-SXHASHOID PRIMIFY SB!PCL::SLOT-BOUNDP-NAME SB!PCL::SLOT-READER-NAME SB!PCL::SLOT-WRITER-NAME SB!THREAD:THREAD-YIELD ; caught 9 STYLE-WARNING conditions ; printed 5 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/info-vector.fasl-tmp written ; compilation finished in 0:00:00.530 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/typedefs.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS) ; compiling (DEFMACRO !DEF-TYPE-TRANSLATOR ...) ; compiling (DEFUN CTYPE-RANDOM ...) ; compiling (DEFCONSTANT +CTYPE-HASH-MASK+ ...) ; compiling (DEF!STRUCT (CTYPE # ...) ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFCONSTANT +TYPE-ADMITS-TYPE=-OPTIMIZATION+ ...) ; compiling (DEFUN MARK-CTYPE-INTERNED ...) ; compiling (DECLAIM (INLINE TYPE-MIGHT-CONTAIN-OTHER-TYPES-P)) ; compiling (DEFUN TYPE-MIGHT-CONTAIN-OTHER-TYPES-P ...) ; compiling (DECLAIM (INLINE TYPE-ENUMERABLE)) ; compiling (DEFUN TYPE-ENUMERABLE ...) ; compiling (DEFUN MAKE-TYPE-LOAD-FORM ...) ; compiling (DEFUN HIERARCHICAL-INTERSECTION2 ...) ; compiling (DEFUN HIERARCHICAL-UNION2 ...) ; compiling (DECLAIM (INLINE TYPE-CACHE-HASH)) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN TYPE-CACHE-HASH ...) ; compiling (DECLAIM (INLINE TYPE-LIST-CACHE-HASH)) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN TYPE-LIST-CACHE-HASH ...) ; compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !TYPEDEFS-COLD-INIT) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/typedefs.lisp ; in: DEFUN HIERARCHICAL-UNION2 ; (SB!KERNEL:CSUBTYPEP SB!KERNEL::TYPE1 SB!KERNEL::TYPE2) ; ; caught STYLE-WARNING: ; undefined function: CSUBTYPEP ; in: DEFUN HIERARCHICAL-INTERSECTION2 ; (SB!KERNEL:CSUBTYPEP SB!KERNEL::TYPE2 SB!KERNEL::TYPE1) ; ; caught STYLE-WARNING: ; undefined function: CSUBTYPEP ; in: DEFUN MAKE-TYPE-LOAD-FORM ; (SB!INT:QUASIQUOTE ; (SB!KERNEL:SPECIFIER-TYPE ; '#S(SB!IMPL::COMMA :EXPR (SB!KERNEL:TYPE-SPECIFIER TYPE) :KIND 0))) ; --> SB!IMPL::|List| SB!IMPL::|List| ; ==> ; (SB!KERNEL:TYPE-SPECIFIER TYPE) ; ; caught STYLE-WARNING: ; undefined function: TYPE-SPECIFIER ; in: DEF!METHOD PRINT-OBJECT ; (SB!KERNEL:TYPE-SPECIFIER SB!KERNEL:CTYPE) ; ; caught STYLE-WARNING: ; undefined function: TYPE-SPECIFIER ; ; compilation unit finished ; Undefined functions: ; CSUBTYPEP TYPE-SPECIFIER ; caught 4 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/typedefs.fasl-tmp written ; compilation finished in 0:00:00.063 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/vm-array.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFSTRUCT (SPECIALIZED-ARRAY-ELEMENT-TYPE-PROPERTIES # ...) ...) ; compiling (DEFGLOBAL *SPECIALIZED-ARRAY-ELEMENT-TYPE-PROPERTIES* ...) ; compiling (PROCLAIM (QUASIQUOTE #)) ; compiling (DEFUN VALID-BIT-BASH-SAETP-P ...) ; compiling (DEFVAR SB!KERNEL::*SPECIALIZED-ARRAY-ELEMENT-TYPES* ...) ; compiling (DEFVAR *SIMPLE-ARRAY-PRIMITIVE-TYPES* ...) ; compiling (DEFVAR *VECTOR-WITHOUT-COMPLEX-TYPECODE-INFOS* ...) ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN FIND-SAETP ...) ; compiling (DEFUN FIND-SAETP-BY-CTYPE ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/vm-array.lisp ; in: DEFUN FIND-SAETP-BY-CTYPE ; #'SB!KERNEL:CSUBTYPEP ; ; caught STYLE-WARNING: ; undefined function: CSUBTYPEP ; ; compilation unit finished ; Undefined function: ; CSUBTYPEP ; caught 1 STYLE-WARNING condition ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/generic/vm-array.fasl-tmp written ; compilation finished in 0:00:00.125 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/sc-offset.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFCONSTANT-EQX SC-OFFSET-SCN-BYTE ...) ; compiling (DEFCONSTANT-EQX SC-OFFSET-OFFSET-BYTE ...) ; compiling (DEF!TYPE SC-OFFSET ...) ; compiling (DEFMACRO MAKE-SC-OFFSET ...) ; compiling (DEFMACRO SC-OFFSET-SCN ...) ; compiling (DEFMACRO SC-OFFSET-OFFSET ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/sc-offset.fasl-tmp written ; compilation finished in 0:00:00.013 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/char.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEF!CONSTANT SB-XC:CHAR-CODE-LIMIT ...) ; compiling (DEF!CONSTANT BASE-CHAR-CODE-LIMIT ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/char.fasl-tmp written ; compilation finished in 0:00:00.002 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/huffman.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFSTRUCT (HUFFMAN-NODE #) ...) ; compiling (DEFSTRUCT (HUFFMAN-PAIR # ...) ...) ; compiling (DEFUN HUFFMAN-WEIGHTS ...) ; compiling (DEFUN MAKE-HUFFMAN-TREE ...) ; compiling (DEFUN HUFFMAN-DECODE ...) ; compiling (DEFUN HUFFMAN-MATCH ...) ; compiling (DEFUN HUFFMAN-ENCODE ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/huffman.fasl-tmp written ; compilation finished in 0:00:00.061 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/misc.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFUN SB-XC:LISP-IMPLEMENTATION-TYPE ...) ; compiling (DEFUN SB-XC:LISP-IMPLEMENTATION-VERSION ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/misc.fasl-tmp written ; compilation finished in 0:00:00.004 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-format.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!FORMAT") ; compiling (DEFPARAMETER *FORMAT-WHITESPACE-CHARS* ...) ; compiling (DEFVAR *FORMAT-DIRECTIVE-EXPANDERS* ...) ; compiling (DEFVAR *FORMAT-DIRECTIVE-INTERPRETERS* ...) ; compiling (DEFVAR *DEFAULT-FORMAT-ERROR-CONTROL-STRING* ...) ; compiling (DEFVAR *DEFAULT-FORMAT-ERROR-OFFSET* ...) ; compiling (DEFVAR *UP-UP-AND-OUT-ALLOWED* ...) ; compiling (DECLAIM (TYPE # ...)) ; compiling (DEFVAR *LOGICAL-BLOCK-POPPER* ...) ; compiling (DEFVAR *EXPANDER-NEXT-ARG-MACRO* ...) ; compiling (DEFVAR *ONLY-SIMPLE-ARGS*) ; compiling (DEFVAR *ORIG-ARGS-AVAILABLE* ...) ; compiling (DEFVAR *SIMPLE-ARGS*) ; compiling (DEFUN PRINT-SYMBOL-WITH-PREFIX ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/early-format.fasl-tmp written ; compilation finished in 0:00:00.008 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/early-c.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEF!CONSTANT SB-XC:CALL-ARGUMENTS-LIMIT ...) ; compiling (DEF!CONSTANT SB-XC:LAMBDA-PARAMETERS-LIMIT ...) ; compiling (DEF!CONSTANT SB-XC:MULTIPLE-VALUES-LIMIT ...) ; compiling (DEFVAR SB-XC:*COMPILE-FILE-PATHNAME*) ; compiling (DEFVAR SB-XC:*COMPILE-FILE-TRUENAME*) ; compiling (DEFVAR SB-XC:*COMPILE-PRINT*) ; compiling (DEFVAR SB-XC:*COMPILE-VERBOSE*) ; compiling (DEF!TYPE LAYOUT-DEPTHOID ...) ; compiling (DEFTYPE INLINEP ...) ; compiling (DEFPARAMETER *INLINEP-TRANSLATIONS* ...) ; compiling (DEFVAR *LEXENV*) ; compiling (DECLAIM (TYPE LEXENV ...)) ; compiling (DEFVAR *FREE-VARS*) ; compiling (DEFVAR *FREE-FUNS*) ; compiling (DECLAIM (TYPE HASH-TABLE ...)) ; compiling (DEFVAR *CONSTANTS*) ; compiling (DECLAIM (TYPE HASH-TABLE ...)) ; compiling (DEFVAR *ALLOW-INSTRUMENTING*) ; compiling (DEFVAR *CODE-SEGMENT*) ; compiling (DEFVAR *COMPONENT-BEING-COMPILED*) ; compiling (DEFVAR *COMPILER-ERROR-CONTEXT*) ; compiling (DEFVAR *COMPILER-ERROR-COUNT*) ; compiling (DEFVAR *COMPILER-WARNING-COUNT*) ; compiling (DEFVAR *COMPILER-STYLE-WARNING-COUNT*) ; compiling (DEFVAR *COMPILER-NOTE-COUNT*) ; compiling (DEFVAR *COMPILER-TRACE-OUTPUT*) ; compiling (DEFVAR *CONSTRAINT-UNIVERSE*) ; compiling (DEFVAR *CURRENT-PATH*) ; compiling (DEFVAR *CURRENT-COMPONENT*) ; compiling (DEFVAR *DELAYED-IR1-TRANSFORMS*) ; compiling (DEFVAR *EVAL-TLF-INDEX*) ; compiling (DEFVAR *HANDLED-CONDITIONS*) ; compiling (DEFVAR *DISABLED-PACKAGE-LOCKS*) ; compiling (DEFVAR *POLICY*) ; compiling (DEFVAR *MACRO-POLICY* ...) ; compiling (DEFVAR *DYNAMIC-COUNTS-TN*) ; compiling (DEFVAR *ELSEWHERE*) ; compiling (DEFVAR *EVENT-INFO*) ; compiling (DEFVAR *EVENT-NOTE-THRESHOLD*) ; compiling (DEFVAR *FAILURE-P*) ; compiling (DEFVAR *FIXUP-NOTES*) ; compiling (DEFVAR *CONSTANT-SEGMENT*) ; compiling (DEFVAR *CONSTANT-TABLE*) ; compiling (DEFVAR *CONSTANT-VECTOR*) ; compiling (DEFVAR *LEXENV*) ; compiling (DEFVAR *SOURCE-INFO*) ; compiling (DEFVAR *SOURCE-PLIST*) ; compiling (DEFVAR *SOURCE-NAMESTRING*) ; compiling (DEFVAR *UNDEFINED-WARNINGS*) ; compiling (DEFVAR *WARNINGS-P*) ; compiling (DEFVAR *LAMBDA-CONVERSIONS*) ; compiling (DEFVAR *STACK-ALLOCATE-DYNAMIC-EXTENT* ...) ; compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS) ; compiling (DEFGLOBAL **WORLD-LOCK** ...) ; compiling (!COLD-INIT-FORMS (SETF **WORLD-LOCK** ...)) ; compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !WORLD-LOCK-COLD-INIT) ; compiling (DEFMACRO WITH-WORLD-LOCK ...) ; compiling (DECLAIM (TYPE FIXNUM ...)) ; compiling (DEFVAR *COMPILER-SSET-COUNTER* ...) ; compiling (DEFVAR *OBJECT-ID-COUNTER* ...) ; compiling (DEFUN NEW-OBJECT-ID ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN NOTE-NAME-DEFINED ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN NOTE-LEXICAL-BINDING ...) ; compiling (DEF!STRUCT (DEBUG-NAME-MARKER # ...)) ; compiling (DEFVAR *DEBUG-NAME-LEVEL* ...) ; compiling (DEFVAR *DEBUG-NAME-LENGTH* ...) ; compiling (DEFVAR *DEBUG-NAME-PUNT*) ; compiling (DEFVAR *DEBUG-NAME-SHARP*) ; compiling (DEFVAR *DEBUG-NAME-ELLIPSIS*) ; compiling (DEFUN DUMP-DEBUG-NAME-MARKER ...) ; compiling (DEFUN PRINT-DEBUG-NAME-MARKER ...) ; compiling (SETF *DEBUG-NAME-SHARP* ...) ; compiling (DEFUN DEBUG-NAME ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/early-c.lisp ; in: DECLAIM (TYPE LEXENV *LEXENV*) ; (DECLAIM (TYPE SB!KERNEL:LEXENV SB!C:*LEXENV*)) ; --> EVAL-WHEN ; ==> ; (PROCLAIM '(TYPE SB!KERNEL:LEXENV SB!C:*LEXENV*)) ; ; caught STYLE-WARNING: ; undefined type: LEXENV ; in: DEFUN DEBUG-NAME ; (SB!C::NAME-CONTEXT) ; ; caught STYLE-WARNING: ; undefined function: NAME-CONTEXT ; in: DEFUN NOTE-LEXICAL-BINDING ; (SB!INT:STYLE-WARN 'SB!KERNEL:ASTERISKS-AROUND-LEXICAL-VARIABLE-NAME ; :FORMAT-CONTROL "using the lexical binding of the symbol ~ ; ~/sb-impl::print-symbol-with-prefix/, not the~@ ; dynamic binding" ; :FORMAT-ARGUMENTS (LIST SYMBOL)) ; ; caught STYLE-WARNING: ; undefined function: STYLE-WARN ; in: DEFUN NOTE-NAME-DEFINED ; (SB!C::UNDEFINED-WARNING-KIND SB!C::X) ; ; caught STYLE-WARNING: ; undefined function: UNDEFINED-WARNING-KIND ; (SB!C::UNDEFINED-WARNING-NAME SB!C::X) ; ; caught STYLE-WARNING: ; undefined function: UNDEFINED-WARNING-NAME ; ; compilation unit finished ; Undefined type: ; LEXENV ; Undefined functions: ; NAME-CONTEXT STYLE-WARN UNDEFINED-WARNING-KIND UNDEFINED-WARNING-NAME ; caught 5 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/early-c.fasl-tmp written ; compilation finished in 0:00:00.061 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/policy.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEF!TYPE POLICY-QUALITY ...) ; compiling (DEFVAR *POLICY-RESTRICTIONS* ...) ; compiling (DEFUN RESTRICT-COMPILER-POLICY ...) ; compiling (DEF!TYPE POLICY ...) ; compiling (DEFSTRUCT POLICY-DEPENDENT-QUALITY ...) ; compiling (DEFVAR *POLICY-QUALITIES*) ; compiling (DEFVAR *POLICY-DEPENDENT-QUALITIES* ...) ; compiling (DEFUN POLICY-QUALITY-NAME-P ...) ; compiling (DEFUN POLICY-QUALITY-DEPRECATION-WARNING ...) ; compiling (DECLAIM (TYPE POLICY ...)) ; compiling (DEFVAR *POLICY*) ; compiling (DEFUN SORT-POLICY ...) ; compiling (DEFUN !POLICY-COLD-INIT-OR-RESANIFY ...) ; compiling (!POLICY-COLD-INIT-OR-RESANIFY) ; compiling (DEFUN POLICY-QUALITY ...) ; compiling (DEFUN %POLICY-QUALITY ...) ; compiling (DEFMACRO POLICY ...) ; compiling (DEFMACRO DEFINE-OPTIMIZATION-QUALITY ...) ; compiling (DEFUN SET-MACRO-POLICY ...) ; compiling (DEFUN MACRO-POLICY-DECLS ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/policy.lisp ; in: DEFUN SET-MACRO-POLICY ; (SB!C::PROCESS-OPTIMIZE-DECL ; (SB!INT:QUASIQUOTE (OPTIMIZE #S(SB!IMPL::COMMA :EXPR LIST :KIND 2))) NIL) ; ; caught STYLE-WARNING: ; undefined function: PROCESS-OPTIMIZE-DECL ; ; compilation unit finished ; Undefined function: ; PROCESS-OPTIMIZE-DECL ; caught 1 STYLE-WARNING condition ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/policy.fasl-tmp written ; compilation finished in 0:00:00.072 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/policies.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFINE-OPTIMIZATION-QUALITY CHECK-CONSTANT-MODIFICATION ...) ; compiling (DEFINE-OPTIMIZATION-QUALITY TYPE-CHECK ...) ; compiling (DEFINE-OPTIMIZATION-QUALITY CHECK-TAG-EXISTENCE ...) ; compiling (DEFINE-OPTIMIZATION-QUALITY LET-CONVERSION ...) ; compiling (DEFINE-OPTIMIZATION-QUALITY ALIEN-FUNCALL-SAVES-FP-AND-PC ...) ; compiling (DEFINE-OPTIMIZATION-QUALITY VERIFY-ARG-COUNT ...) ; compiling (DEFINE-OPTIMIZATION-QUALITY INSERT-DEBUG-CATCH ...) ; compiling (DEFINE-OPTIMIZATION-QUALITY RECOGNIZE-SELF-CALLS ...) ; compiling (DEFINE-OPTIMIZATION-QUALITY FLOAT-ACCURACY ...) ; compiling (DEFINE-OPTIMIZATION-QUALITY INSERT-STEP-CONDITIONS ...) ; compiling (DEFINE-OPTIMIZATION-QUALITY COMPUTE-DEBUG-FUN ...) ; compiling (DEFINE-OPTIMIZATION-QUALITY PRESERVE-SINGLE-USE-DEBUG-VARIABLES ...) ; compiling (DEFINE-OPTIMIZATION-QUALITY INSERT-ARRAY-BOUNDS-CHECKS ...) ; compiling (DEFINE-OPTIMIZATION-QUALITY STORE-XREF-DATA ...) ; compiling (DEFINE-OPTIMIZATION-QUALITY STORE-COVERAGE-DATA ...) ; compiling (DEFINE-OPTIMIZATION-QUALITY STORE-CLOSURE-DEBUG-POINTER ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/policies.lisp ; in: DEFINE-OPTIMIZATION-QUALITY CHECK-TAG-EXISTENCE ; (SB!C::DEFINE-OPTIMIZATION-QUALITY SB!C::CHECK-TAG-EXISTENCE ; (COND ((= SAFETY 0) 0) (T 3)) ; ("no" "maybe" "yes" "yes") ; "Control whether GO and RETURN-FROM check liveness of the destination tag. ; Enabling this option can increase heap consing of closures.") ; --> PROGN LET SB!C::MAKE-POLICY-DEPENDENT-QUALITY LAMBDA FUNCTION SB!C:POLICY ; --> LET* ; ==> ; (SB!C::%COERCE-TO-POLICY SB!C:POLICY) ; ; caught STYLE-WARNING: ; undefined function: %COERCE-TO-POLICY ; in: DEFINE-OPTIMIZATION-QUALITY TYPE-CHECK ; (SB!C::DEFINE-OPTIMIZATION-QUALITY SB!C::TYPE-CHECK ; (COND ((= SAFETY 0) 0) ; ((AND (< SAFETY 2) (< SAFETY SPEED)) ; 2) ; (T 3)) ; ("no" "maybe" "weak" "full") ; "Control the way to perform runtime type checking: ; 0: declared types are simply trusted; no runtime checks are performed; ; 2: fast checks are performed: declared types are weakened to ; FIXNUM/SINGLE-FLOAT/FLOAT/NUMBER/structure/specialized array etc.; ; 3: declared types are fully checked (several exceptions exist; ; see \"SBCL User Manual\", Compiler->Handling of Types-> ; Implementation Limitations for details).") ; --> PROGN LET SB!C::MAKE-POLICY-DEPENDENT-QUALITY LAMBDA FUNCTION SB!C:POLICY ; --> LET* ; ==> ; (SB!C::%COERCE-TO-POLICY SB!C:POLICY) ; ; caught STYLE-WARNING: ; undefined function: %COERCE-TO-POLICY ; in: DEFINE-OPTIMIZATION-QUALITY CHECK-CONSTANT-MODIFICATION ; (SB!C::DEFINE-OPTIMIZATION-QUALITY SB!C::CHECK-CONSTANT-MODIFICATION SAFETY ; ("no" "maybe" "yes" "yes") ; "Control whether the compiler should check for constant ; modification. Defaults to SAFETY.") ; --> PROGN LET SB!C::MAKE-POLICY-DEPENDENT-QUALITY LAMBDA FUNCTION SB!C:POLICY ; --> LET* ; ==> ; (SB!C::%COERCE-TO-POLICY SB!C:POLICY) ; ; caught STYLE-WARNING: ; undefined function: %COERCE-TO-POLICY ; ; caught STYLE-WARNING: ; 26 more uses of undefined function %COERCE-TO-POLICY ; ; compilation unit finished ; Undefined function: ; %COERCE-TO-POLICY ; caught 4 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/policies.fasl-tmp written ; compilation finished in 0:00:00.141 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/macros.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DECLAIM (SPECIAL *COMPILER-ERROR-CONTEXT*)) ; compiling (DEFMACRO DEF-IR1-TRANSLATOR ...) ; compiling (DEFMACRO DEFINE-SOURCE-TRANSFORM ...) ; compiling (DEFTYPE ATTRIBUTES ...) ; compiling (DEFUN COMPUTE-ATTRIBUTE-MASK ...) ; compiling (DEF!MACRO !DEF-BOOLEAN-ATTRIBUTE ...) ; compiling (DEFUN GUTS-OF-!DEF-BOOLEAN-ATTRIBUTE-SETTER ...) ; compiling (DEFMACRO !DEF-BOOLEAN-ATTRIBUTE-SETTER ...) ; compiling (DEFMACRO ATTRIBUTES-UNION ...) ; compiling (DEFMACRO ATTRIBUTES-INTERSECTION ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DECLAIM (INLINE ATTRIBUTES=)) ; compiling (DEFUN ATTRIBUTES= ...) ; compiling (DEFUN PARSE-DEFTRANSFORM ...) ; compiling (DEFMACRO DEFTRANSFORM ...) ; compiling (DEFMACRO DEFKNOWN ...) ; compiling (DEFMACRO DEFOPTIMIZER ...) ; compiling (DEFMACRO DO-BLOCKS ...) ; compiling (DEFMACRO DO-BLOCKS-BACKWARDS ...) ; compiling (DEFMACRO DO-USES ...) ; compiling (DEFMACRO DO-NODES ...) ; compiling (DEFMACRO DO-NODES-BACKWARDS ...) ; compiling (DEFMACRO DO-NODES-CAREFULLY ...) ; compiling (DEFMACRO DO-NESTED-CLEANUPS ...) ; compiling (DEFMACRO WITH-IR1-ENVIRONMENT-FROM-NODE ...) ; compiling (DEFUN %WITH-IR1-ENVIRONMENT-FROM-NODE ...) ; compiling (DEFMACRO WITH-SOURCE-PATHS ...) ; compiling (DEFMACRO WITH-IR1-NAMESPACE ...) ; compiling (DEFMACRO LEXENV-FIND ...) ; compiling (DEFMACRO WITH-COMPONENT-LAST-BLOCK ...) ; compiling (DEFSTRUCT (EVENT-INFO #) ...) ; compiling (DEFVAR *EVENT-INFO* ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN EVENT-INFO-OR-LOSE ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN EVENT-COUNT ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN EVENT-ACTION ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN %SET-EVENT-ACTION ...) ; compiling (DEFSETF EVENT-ACTION ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN EVENT-LEVEL ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN %SET-EVENT-LEVEL ...) ; compiling (DEFSETF EVENT-LEVEL ...) ; compiling (DEFMACRO DEFEVENT ...) ; compiling (DECLAIM (TYPE UNSIGNED-BYTE ...)) ; compiling (DEFVAR *EVENT-NOTE-THRESHOLD* ...) ; compiling (DEFMACRO EVENT ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN EVENT-STATISTICS ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN CLEAR-EVENT-STATISTICS ...) ; compiling (DECLAIM (INLINE FIND-IN ...)) ; compiling (DEFUN FIND-IN ...) ; compiling (DEFUN POSITION-IN ...) ; compiling (DEF!MACRO DELETEF-IN ...) ; compiling (DEF!MACRO PUSH-IN ...) ; compiling (DEFMACRO POSITION-OR-LOSE ...) ; compiling (DEFVAR *COMPILER-PRINT-VARIABLE-ALIST* ...) ; compiling (DEFMACRO WITH-COMPILER-IO-SYNTAX ...) ; compiling (DEFMACRO COMPILER-DESTRUCTURING-BIND ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/macros.lisp ; in: DEFUN %WITH-IR1-ENVIRONMENT-FROM-NODE ; (SB!C::AVER-LIVE-COMPONENT SB!C::*CURRENT-COMPONENT*) ; ; caught STYLE-WARNING: ; undefined function: AVER-LIVE-COMPONENT ; (LET ((SB!C::*CURRENT-COMPONENT* (SB!C::NODE-COMPONENT SB!C::NODE)) ; (SB!C:*LEXENV* (SB!C::NODE-LEXENV SB!C::NODE)) ; (SB!C::*CURRENT-PATH* (SB!C::NODE-SOURCE-PATH SB!C::NODE))) ; (SB!C::AVER-LIVE-COMPONENT SB!C::*CURRENT-COMPONENT*) ; (FUNCALL SB!C::FUN)) ; --> MULTIPLE-VALUE-BIND LET UNLESS IF ; ==> ; (TYPEP #:G578 '(OR SB!KERNEL:LEXENV NULL)) ; ; caught STYLE-WARNING: ; undefined type: LEXENV ; (DEFUN SB!C::%WITH-IR1-ENVIRONMENT-FROM-NODE (SB!C::NODE SB!C::FUN) ; (DECLARE (TYPE SB!C::NODE SB!C::NODE) ; (TYPE FUNCTION SB!C::FUN)) ; (LET ((SB!C::*CURRENT-COMPONENT* (SB!C::NODE-COMPONENT SB!C::NODE)) ; (SB!C:*LEXENV* (SB!C::NODE-LEXENV SB!C::NODE)) ; (SB!C::*CURRENT-PATH* (SB!C::NODE-SOURCE-PATH SB!C::NODE))) ; (SB!C::AVER-LIVE-COMPONENT SB!C::*CURRENT-COMPONENT*) ; (FUNCALL SB!C::FUN))) ; --> PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF ; ==> ; (TYPEP #:G585 'SB!C::NODE) ; ; caught STYLE-WARNING: ; undefined type: NODE ; (TYPE SB!C::NODE SB!C::NODE) ; ; caught STYLE-WARNING: ; undefined type: NODE ; (SB!C::NODE-COMPONENT SB!C::NODE) ; ; caught STYLE-WARNING: ; undefined function: NODE-COMPONENT ; (SB!C::NODE-LEXENV SB!C::NODE) ; ; caught STYLE-WARNING: ; undefined function: NODE-LEXENV ; (SB!C::NODE-SOURCE-PATH SB!C::NODE) ; ; caught STYLE-WARNING: ; undefined function: NODE-SOURCE-PATH ; in: DEFUN PARSE-DEFTRANSFORM ; (SB!INT:PARSE-LAMBDA-LIST SB!C::LAMBDA-LIST) ; ; caught STYLE-WARNING: ; undefined function: PARSE-LAMBDA-LIST ; ; compilation unit finished ; Undefined types: ; LEXENV NODE ; Undefined functions: ; AVER-LIVE-COMPONENT NODE-COMPONENT NODE-LEXENV NODE-SOURCE-PATH PARSE-LAMBDA-LIST ; caught 8 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/macros.fasl-tmp written ; compilation finished in 0:00:00.398 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/vm-macs.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFMACRO PAD-DATA-BLOCK ...) ; compiling (DEFUN REMOVE-KEYWORDS ...) ; compiling (DEF!STRUCT (PRIM-OBJECT-SLOT # ...) ...) ; compiling (DEF!STRUCT (PRIMITIVE-OBJECT #) ...) ; compiling (DEFVAR *PRIMITIVE-OBJECTS* ...) ; compiling (DEFUN !%DEFINE-PRIMITIVE-OBJECT ...) ; compiling (DEFVAR *!LATE-PRIMITIVE-OBJECT-FORMS* ...) ; compiling (DEFMACRO !DEFINE-PRIMITIVE-OBJECT ...) ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFMACRO DEF-REFFER ...) ; compiling (DEFMACRO DEF-SETTER ...) ; compiling (DEFMACRO DEF-ALLOC ...) ; compiling (DEFMACRO DEF-CASSER ...) ; compiling (IN-PACKAGE "SB!C") ; compiling (DEF!CONSTANT SC-NUMBER-LIMIT ...) ; compiling (DEFSTRUCT MODULAR-CLASS ...) ; compiling (DEFVAR *UNTAGGED-UNSIGNED-MODULAR-CLASS* ...) ; compiling (DEFVAR *UNTAGGED-SIGNED-MODULAR-CLASS* ...) ; compiling (DEFVAR *TAGGED-MODULAR-CLASS* ...) ; compiling (DEFUN FIND-MODULAR-CLASS ...) ; compiling (DEFSTRUCT MODULAR-FUN-INFO ...) ; compiling (DEFUN FIND-MODULAR-VERSION ...) ; compiling (DEFUN MODULAR-VERSION-INFO ...) ; compiling (DEFUN %DEFINE-MODULAR-FUN ...) ; compiling (DEFMACRO DEFINE-MODULAR-FUN ...) ; compiling (DEFUN %DEFINE-GOOD-MODULAR-FUN ...) ; compiling (DEFMACRO DEFINE-GOOD-MODULAR-FUN ...) ; compiling (DEFMACRO DEFINE-MODULAR-FUN-OPTIMIZER ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/vm-macs.lisp ; in: DEFUN %DEFINE-MODULAR-FUN ; (SB!INT:STYLE-WARN "Redefining modular version ~S of ~S for ~ ; ~:[un~;~]signed width ~S." ; SB!C::NAME SB!C::PROTOTYPE SB!C::SIGNEDP SB!C::WIDTH) ; ; caught STYLE-WARNING: ; undefined function: STYLE-WARN ; ; compilation unit finished ; Undefined function: ; STYLE-WARN ; caught 1 STYLE-WARNING condition ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/generic/vm-macs.fasl-tmp written ; compilation finished in 0:00:00.262 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/objdef.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (!DEFINE-PRIMITIVE-OBJECT (CONS :TYPE ...) ...) ; compiling (!DEFINE-PRIMITIVE-OBJECT (INSTANCE :LOWTAG ...) ...) ; compiling (!DEFINE-PRIMITIVE-OBJECT (BIGNUM :LOWTAG ...) ...) ; compiling (!DEFINE-PRIMITIVE-OBJECT (RATIO :TYPE ...) ...) ; compiling (!DEFINE-PRIMITIVE-OBJECT (SINGLE-FLOAT :LOWTAG ...) ...) ; compiling (!DEFINE-PRIMITIVE-OBJECT (DOUBLE-FLOAT :LOWTAG ...) ...) ; compiling (!DEFINE-PRIMITIVE-OBJECT (COMPLEX :TYPE ...) ...) ; compiling (!DEFINE-PRIMITIVE-OBJECT (ARRAY :LOWTAG ...) ...) ; compiling (!DEFINE-PRIMITIVE-OBJECT (VECTOR :TYPE ...) ...) ; compiling (!DEFINE-PRIMITIVE-OBJECT (CODE :TYPE ...) ...) ; compiling (!DEFINE-PRIMITIVE-OBJECT (FDEFN :TYPE ...) ...) ; compiling (!DEFINE-PRIMITIVE-OBJECT (SIMPLE-FUN :TYPE ...) ...) ; compiling (!DEFINE-PRIMITIVE-OBJECT (RETURN-PC :LOWTAG ...) ...) ; compiling (!DEFINE-PRIMITIVE-OBJECT (CLOSURE :LOWTAG ...) ...) ; compiling (!DEFINE-PRIMITIVE-OBJECT (FUNCALLABLE-INSTANCE :LOWTAG ...) ...) ; compiling (!DEFINE-PRIMITIVE-OBJECT (VALUE-CELL :LOWTAG ...) ...) ; compiling (!DEFINE-PRIMITIVE-OBJECT (SAP :LOWTAG ...) ...) ; compiling (!DEFINE-PRIMITIVE-OBJECT (WEAK-POINTER :TYPE ...) ...) ; compiling (!DEFINE-PRIMITIVE-OBJECT (BINDING) ...) ; compiling (!DEFINE-PRIMITIVE-OBJECT (UNWIND-BLOCK) ...) ; compiling (!DEFINE-PRIMITIVE-OBJECT (CATCH-BLOCK) ...) ; compiling (!DEFINE-PRIMITIVE-OBJECT (SYMBOL :LOWTAG ...) ...) ; compiling (!DEFINE-PRIMITIVE-OBJECT (COMPLEX-SINGLE-FLOAT :LOWTAG ...) ...) ; compiling (!DEFINE-PRIMITIVE-OBJECT (COMPLEX-DOUBLE-FLOAT :LOWTAG ...) ...) ; compiling (!DEFINE-PRIMITIVE-OBJECT (THREAD) ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/generic/objdef.fasl-tmp written ; compilation finished in 0:00:00.085 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/sset.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEF!STRUCT (SSET-ELEMENT # ...) ...) ; compiling (DEFSTRUCT (SSET #) ...) ; compiling (DEFPRINTER (SSET) ...) ; compiling (DEFMACRO DO-SSET-ELEMENTS ...) ; compiling (DECLAIM (INLINE SSET-HASH1)) ; compiling (DEFUN SSET-HASH1 ...) ; compiling (DECLAIM (INLINE SSET-HASH2)) ; compiling (DEFUN SSET-HASH2 ...) ; compiling (DEFUN SSET-GROW ...) ; compiling (DEFCONSTANT +SSET-REHASH-THRESHOLD+ ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN SSET-ADJOIN ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/sset.lisp ; in: DEFUN SSET-ADJOIN ; (LOOP SB!C::WITH VECTOR = (SB!C::SSET-VECTOR SET) ; SB!C::WITH SB!C::MASK SB!C::OF-TYPE FIXNUM = (1- (LENGTH VECTOR)) ; SB!C::WITH ...) ; --> BLOCK LET LET LET LET LET LET SB-LOOP::LOOP-BODY TAGBODY ; --> SB-LOOP::LOOP-REALLY-DESETQ SETQ THE MULTIPLE-VALUE-BIND LET UNLESS IF ; --> PROGN ; ==> ; (SB-C::%TYPE-CHECK-ERROR/C #:G311 'SB-KERNEL::OBJECT-NOT-INDEX-ERROR) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of TYPE-CHECK-ERROR/C ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN SSET-DELETE ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN SSET-MEMBER ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN SSET= ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN SSET-EMPTY ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN COPY-SSET ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN SSET-UNION ...) ; compiling (DEFUN SSET-INTERSECTION ...) ; compiling (DEFUN SSET-DIFFERENCE ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN SSET-UNION-OF-DIFFERENCE ...); ; compilation unit finished ; printed 1 note ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/sset.fasl-tmp written ; compilation finished in 0:00:00.140 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/node.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEF!STRUCT (CTRAN # ...) ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEF!STRUCT (LVAR # ...) ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEF!STRUCT (NODE # ...) ...) ; compiling (DEF!STRUCT (VALUED-NODE # ...) ...) ; compiling (!DEF-BOOLEAN-ATTRIBUTE BLOCK ...) ; compiling (DEFATTR BLOCK-REOPTIMIZE) ; compiling (DEFATTR BLOCK-FLUSH-P) ; compiling (DEFATTR BLOCK-TYPE-CHECK) ; compiling (DEFATTR BLOCK-DELETE-P) ; compiling (DEFATTR BLOCK-TYPE-ASSERTED) ; compiling (DEFATTR BLOCK-TEST-MODIFIED) ; compiling (DEF!STRUCT (CBLOCK # ...) ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEF!STRUCT (BLOCK-ANNOTATION # ...) ...) ; compiling (DEF!STRUCT (COMPONENT # ...) ...) ; compiling (DEFPRINTER (COMPONENT :IDENTITY ...) ...) ; compiling (DEFUN AVER-LIVE-COMPONENT ...) ; compiling (DEFUN LAMBDA-TOPLEVELISH-P ...) ; compiling (DEFUN COMPONENT-TOPLEVELISH-P ...) ; compiling (DEF!STRUCT (CLEANUP #) ...) ; compiling (DEFPRINTER (CLEANUP :IDENTITY ...) ...) ; compiling (DEF!STRUCT (PHYSENV #) ...) ; compiling (DEFPRINTER (PHYSENV :IDENTITY ...) ...) ; compiling (DEF!STRUCT (TAIL-SET) ...) ; compiling (DEFPRINTER (TAIL-SET :IDENTITY ...) ...) ; compiling (DEF!STRUCT (NLX-INFO # ...) ...) ; compiling (DEFPRINTER (NLX-INFO :IDENTITY ...) ...) ; compiling (DEF!STRUCT (LEAF # ...) ...) ; compiling (DEFUN LEAF-DYNAMIC-EXTENT ...) ; compiling (DEFUN LEAF-HAS-SOURCE-NAME-P ...) ; compiling (DEFUN LEAF-SOURCE-NAME ...) ; compiling (DEFUN LEAF-DEBUG-NAME ...) ; compiling (DEFUN LEAF-%DEBUG-NAME ...) ; compiling (DEF!STRUCT (CONSTANT # ...) ...) ; compiling (DEFPRINTER (CONSTANT :IDENTITY ...) ...) ; compiling (DEF!STRUCT (BASIC-VAR # ...) ...) ; compiling (DEF!STRUCT (GLOBAL-VAR #) ...) ; compiling (DEFPRINTER (GLOBAL-VAR :IDENTITY ...) ...) ; compiling (DEF!STRUCT (DEFINED-FUN #) ...) ; compiling (DEFPRINTER (DEFINED-FUN :IDENTITY ...) ...) ; compiling (DEF!STRUCT (FUNCTIONAL #) ...) ; compiling (DEFPRINTER (FUNCTIONAL :IDENTITY ...) ...) ; compiling (DEFUN FUNCTIONAL-LETLIKE-P ...) ; compiling (DEFUN FUNCTIONAL-SOMEWHAT-LETLIKE-P ...) ; compiling (DEFUN FUNCTIONAL-DEBUG-NAME ...) ; compiling (DEF!STRUCT (CLAMBDA # ...) ...) ; compiling (DEFPRINTER (CLAMBDA :CONC-NAME ...) ...) ; compiling (DEF!STRUCT (OPTIONAL-DISPATCH #) ...) ; compiling (DEFPRINTER (OPTIONAL-DISPATCH :IDENTITY ...) ...) ; compiling (DEF!STRUCT ARG-INFO ...) ; compiling (DEFPRINTER (ARG-INFO :IDENTITY ...) ...) ; compiling (!DEF-BOOLEAN-ATTRIBUTE LAMBDA-VAR ...) ; compiling (DEF!STRUCT (LAMBDA-VAR #) ...) ; compiling (DEFPRINTER (LAMBDA-VAR :IDENTITY ...) ...) ; compiling (DEFMACRO LAMBDA-VAR-IGNOREP ...) ; compiling (DEFMACRO LAMBDA-VAR-INDIRECT ...) ; compiling (DEFMACRO LAMBDA-VAR-DELETED ...) ; compiling (DEFMACRO LAMBDA-VAR-EXPLICIT-VALUE-CELL ...) ; compiling (DEF!STRUCT (REF # ...) ...) ; compiling (DEFPRINTER (REF :IDENTITY ...) ...) ; compiling (DEF!STRUCT (CIF # ...) ...) ; compiling (DEFPRINTER (CIF :CONC-NAME ...) ...) ; compiling (DEF!STRUCT (CSET # ...) ...) ; compiling (DEFPRINTER (CSET :CONC-NAME ...) ...) ; compiling (DEF!STRUCT (BASIC-COMBINATION # ...) ...) ; compiling (DEF!STRUCT (COMBINATION # ...)) ; compiling (DEFPRINTER (COMBINATION :IDENTITY ...) ...) ; compiling (DEF!STRUCT (MV-COMBINATION # ...)) ; compiling (DEFPRINTER (MV-COMBINATION) ...) ; compiling (DEF!STRUCT (BIND # ...) ...) ; compiling (DEFPRINTER (BIND) ...) ; compiling (DEF!STRUCT (CRETURN # ...) ...) ; compiling (DEFPRINTER (CRETURN :CONC-NAME ...) ...) ; compiling (DEF!STRUCT (CAST # ...) ...) ; compiling (DEFPRINTER (CAST :IDENTITY ...) ...) ; compiling (DEF!STRUCT (ENTRY # ...) ...) ; compiling (DEFPRINTER (ENTRY :IDENTITY ...) ...) ; compiling (DEF!STRUCT (EXIT # ...) ...) ; compiling (DEFPRINTER (EXIT :IDENTITY ...) ...) ; compiling (DEF!STRUCT (UNDEFINED-WARNING # ...) ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN %COERCE-TO-POLICY ...) ; compiling (DECLAIM (FREEZE-TYPE NODE ...)) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/node.lisp ; in: ; DEF!STRUCT (COMPONENT (:COPIER NIL) ; (:CONSTRUCTOR MAKE-COMPONENT ; (HEAD TAIL &AUX (LAST-BLOCK TAIL) (OUTER-LOOP #)))) ; (SB!INT:DEF!STRUCT ; (SB!C:COMPONENT (:COPIER NIL) ; (:CONSTRUCTOR SB!C::MAKE-COMPONENT ; (SB!C::HEAD SB!C::TAIL &AUX (SB!C::LAST-BLOCK SB!C::TAIL) ; (SB!C::OUTER-LOOP #)))) ; (SB!C::ID (SB!C::NEW-OBJECT-ID) :READ-ONLY T) ; (SB!C::KIND NIL :TYPE ; (MEMBER NIL :TOPLEVEL :COMPLEX-TOPLEVEL :INITIAL :DELETED)) ; (SB!C::HEAD (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK) ; (SB!C::TAIL (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK) ; (SB!C::LAST-BLOCK (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK) ; (SB!C::LAMBDAS NIL :TYPE LIST) (SB!C::NEW-FUNCTIONALS NIL :TYPE LIST) ; (SB!C::REOPTIMIZE T :TYPE (MEMBER NIL :MAYBE T)) ; (SB!C::REANALYZE NIL :TYPE BOOLEAN) (SB!C::NAME "" :TYPE T) ...) ; --> PROGN ; ==> ; (DEFSTRUCT ; (SB!C:COMPONENT (:INCLUDE SB!SYS:STRUCTURE!OBJECT) (:COPIER NIL) ; (:CONSTRUCTOR SB!C::MAKE-COMPONENT ; (SB!C::HEAD SB!C::TAIL &AUX (SB!C::LAST-BLOCK SB!C::TAIL) ; (SB!C::OUTER-LOOP #)))) ; (SB!C::ID (SB!C::NEW-OBJECT-ID) :READ-ONLY T) ; (SB!C::KIND NIL :TYPE ; (MEMBER NIL :TOPLEVEL :COMPLEX-TOPLEVEL :INITIAL :DELETED)) ; (SB!C::HEAD (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK) ; (SB!C::TAIL (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK) ; (SB!C::LAST-BLOCK (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK) ; (SB!C::LAMBDAS NIL :TYPE LIST) ; (SB!C::NEW-FUNCTIONALS NIL :TYPE LIST) ; (SB!C::REOPTIMIZE T :TYPE (MEMBER NIL :MAYBE T)) ; (SB!C::REANALYZE NIL :TYPE BOOLEAN) ; (SB!C::NAME "" :TYPE T) ; ...) ; ; caught STYLE-WARNING: ; undefined type: CLOOP ; in: ; DEF!STRUCT (CBLOCK (:INCLUDE SSET-ELEMENT) (:CONSTRUCTOR MAKE-BLOCK (START)) ; (:CONSTRUCTOR MAKE-BLOCK-KEY) (:CONC-NAME BLOCK-) ...) ; (SB!INT:DEF!STRUCT ; (SB!C::CBLOCK (:INCLUDE SB!ASSEM:SSET-ELEMENT) ; (:CONSTRUCTOR SB!C::MAKE-BLOCK (SB!C::START)) ; (:CONSTRUCTOR SB!C::MAKE-BLOCK-KEY) (:CONC-NAME SB!C::BLOCK-) ; (:PREDICATE SB!C::BLOCK-P)) ; (SB!C::PRED NIL :TYPE LIST) (SB!C::SUCC NIL :TYPE LIST) ; (SB!C::START NIL :TYPE (OR SB!C::CTRAN NULL)) ; (LAST NIL :TYPE (OR SB!C::NODE NULL)) ; (SB!C::NEXT NIL :TYPE (OR NULL SB!C::CBLOCK)) ; (SB!C::PREV NIL :TYPE (OR NULL SB!C::CBLOCK)) ; (SB!C::FLAGS ; (SB!C::BLOCK-ATTRIBUTES SB!C::REOPTIMIZE SB!C::FLUSH-P SB!C::TYPE-CHECK ; SB!C::TYPE-ASSERTED SB!C::TEST-MODIFIED) ; :TYPE SB!C:ATTRIBUTES) ; (SB!C::KILL NIL) (SB!C::GEN NIL) (SB!C::IN NIL) ...) ; --> PROGN ; ==> ; (DEFSTRUCT ; (SB!C::CBLOCK (:INCLUDE SB!ASSEM:SSET-ELEMENT) ; (:CONSTRUCTOR SB!C::MAKE-BLOCK (SB!C::START)) ; (:CONSTRUCTOR SB!C::MAKE-BLOCK-KEY) (:CONC-NAME SB!C::BLOCK-) ; (:PREDICATE SB!C::BLOCK-P)) ; (SB!C::PRED NIL :TYPE LIST) ; (SB!C::SUCC NIL :TYPE LIST) ; (SB!C::START NIL :TYPE (OR SB!C::CTRAN NULL)) ; (LAST NIL :TYPE (OR SB!C::NODE NULL)) ; (SB!C::NEXT NIL :TYPE (OR NULL SB!C::CBLOCK)) ; (SB!C::PREV NIL :TYPE (OR NULL SB!C::CBLOCK)) ; (SB!C::FLAGS ; (SB!C::BLOCK-ATTRIBUTES SB!C::REOPTIMIZE SB!C::FLUSH-P SB!C::TYPE-CHECK ; SB!C::TYPE-ASSERTED SB!C::TEST-MODIFIED) ; :TYPE SB!C:ATTRIBUTES) ; (SB!C::KILL NIL) ; (SB!C::GEN NIL) ; (SB!C::IN NIL) ; ...) ; ; caught STYLE-WARNING: ; undefined type: CLOOP ; in: DEF!METHOD PRINT-OBJECT ; (SB!C::CONT-NUM (SB!C::BLOCK-START SB!C::CBLOCK)) ; ; caught STYLE-WARNING: ; undefined function: CONT-NUM ; (SB!C::CONT-NUM SB!C::X) ; ; caught STYLE-WARNING: ; undefined function: CONT-NUM ; ; caught STYLE-WARNING: ; undefined function: CONT-NUM ; in: ; DEF!STRUCT (CONSTANT ; (:CONSTRUCTOR MAKE-CONSTANT ; (VALUE &AUX (TYPE #) (%SOURCE-NAME '.ANONYMOUS.) ; (WHERE-FROM :DEFINED))) ; (:INCLUDE LEAF)) ; (SB!KERNEL:CTYPE-OF SB!C::VALUE) ; ; caught STYLE-WARNING: ; undefined function: CTYPE-OF ; in: ; DEF!STRUCT (MV-COMBINATION (:INCLUDE BASIC-COMBINATION) ; (:CONSTRUCTOR MAKE-MV-COMBINATION (FUN)) (:COPIER NIL)) ; (SB!INT:DEF!STRUCT ; (SB!C::MV-COMBINATION (:INCLUDE SB!C::BASIC-COMBINATION) ; (:CONSTRUCTOR SB!C::MAKE-MV-COMBINATION (SB!C::FUN)) (:COPIER NIL))) ; --> PROGN DEFSTRUCT PROGN SB-KERNEL::DELAY-DEFSTRUCT-FUNCTIONS PROGN DEFUN ; --> PROGN SB-IMPL::%DEFUN BLOCK ; ==> ; (TRULY-THE (OR SB!C::FUN-INFO NULL) ; (SB-KERNEL:%INSTANCE-REF ; (THE SB!C::MV-COMBINATION SB-KERNEL:INSTANCE) 14)) ; ; caught STYLE-WARNING: ; undefined type: FUN-INFO ; in: ; DEF!STRUCT (COMBINATION (:INCLUDE BASIC-COMBINATION) ; (:CONSTRUCTOR MAKE-COMBINATION (FUN)) (:COPIER NIL)) ; (SB!INT:DEF!STRUCT ; (SB!C::COMBINATION (:INCLUDE SB!C::BASIC-COMBINATION) ; (:CONSTRUCTOR SB!C::MAKE-COMBINATION (SB!C::FUN)) (:COPIER NIL))) ; --> PROGN DEFSTRUCT PROGN SB-KERNEL::DELAY-DEFSTRUCT-FUNCTIONS PROGN DEFUN ; --> PROGN SB-IMPL::%DEFUN BLOCK ; ==> ; (TRULY-THE (OR SB!C::FUN-INFO NULL) ; (SB-KERNEL:%INSTANCE-REF ; (THE SB!C::COMBINATION SB-KERNEL:INSTANCE) 14)) ; ; caught STYLE-WARNING: ; undefined type: FUN-INFO ; in: ; DEF!STRUCT (BASIC-COMBINATION (:INCLUDE VALUED-NODE) (:CONSTRUCTOR NIL) ; (:COPIER NIL)) ; (SB!INT:DEF!STRUCT ; (SB!C::BASIC-COMBINATION (:INCLUDE SB!C::VALUED-NODE) (:CONSTRUCTOR NIL) ; (:COPIER NIL)) ; (SB!C::FUN (SB!INT:MISSING-ARG) :TYPE SB!C::LVAR) ; (SB!C::ARGS NIL :TYPE LIST) ; (SB!C::KIND :FULL :TYPE (MEMBER :LOCAL :FULL :ERROR :KNOWN)) ; (SB!C::FUN-INFO NIL :TYPE (OR SB!C::FUN-INFO NULL)) ; (SB!C::TYPE-VALIDATED-FOR-LEAF NIL) (SB!INT:INFO NIL) (SB!C::STEP-INFO)) ; --> PROGN ; ==> ; (DEFSTRUCT ; (SB!C::BASIC-COMBINATION (:INCLUDE SB!C::VALUED-NODE) (:CONSTRUCTOR NIL) ; (:COPIER NIL)) ; (SB!C::FUN (SB!INT:MISSING-ARG) :TYPE SB!C::LVAR) ; (SB!C::ARGS NIL :TYPE LIST) ; (SB!C::KIND :FULL :TYPE (MEMBER :LOCAL :FULL :ERROR :KNOWN)) ; (SB!C::FUN-INFO NIL :TYPE (OR SB!C::FUN-INFO NULL)) ; (SB!C::TYPE-VALIDATED-FOR-LEAF NIL) ; (SB!INT:INFO NIL) ; (SB!C::STEP-INFO)) ; ; caught STYLE-WARNING: ; undefined type: FUN-INFO ; in: DEFUN AVER-LIVE-COMPONENT ; (SB!C:COMPONENT-INFO SB!C:COMPONENT) ; ==> ; (TRULY-THE (OR SB!C::IR2-COMPONENT (MEMBER :NO-IR2-YET :DEAD)) ; (SB-KERNEL:%INSTANCE-REF (THE SB!C:COMPONENT SB!C:COMPONENT) 11)) ; ; caught STYLE-WARNING: ; undefined type: IR2-COMPONENT ; in: ; DEF!STRUCT (COMPONENT (:COPIER NIL) ; (:CONSTRUCTOR MAKE-COMPONENT ; (HEAD TAIL &AUX (LAST-BLOCK TAIL) (OUTER-LOOP #)))) ; (SB!INT:DEF!STRUCT ; (SB!C:COMPONENT (:COPIER NIL) ; (:CONSTRUCTOR SB!C::MAKE-COMPONENT ; (SB!C::HEAD SB!C::TAIL &AUX (SB!C::LAST-BLOCK SB!C::TAIL) ; (SB!C::OUTER-LOOP #)))) ; (SB!C::ID (SB!C::NEW-OBJECT-ID) :READ-ONLY T) ; (SB!C::KIND NIL :TYPE ; (MEMBER NIL :TOPLEVEL :COMPLEX-TOPLEVEL :INITIAL :DELETED)) ; (SB!C::HEAD (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK) ; (SB!C::TAIL (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK) ; (SB!C::LAST-BLOCK (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK) ; (SB!C::LAMBDAS NIL :TYPE LIST) (SB!C::NEW-FUNCTIONALS NIL :TYPE LIST) ; (SB!C::REOPTIMIZE T :TYPE (MEMBER NIL :MAYBE T)) ; (SB!C::REANALYZE NIL :TYPE BOOLEAN) (SB!C::NAME "" :TYPE T) ...) ; --> PROGN ; ==> ; (DEFSTRUCT ; (SB!C:COMPONENT (:INCLUDE SB!SYS:STRUCTURE!OBJECT) (:COPIER NIL) ; (:CONSTRUCTOR SB!C::MAKE-COMPONENT ; (SB!C::HEAD SB!C::TAIL &AUX (SB!C::LAST-BLOCK SB!C::TAIL) ; (SB!C::OUTER-LOOP #)))) ; (SB!C::ID (SB!C::NEW-OBJECT-ID) :READ-ONLY T) ; (SB!C::KIND NIL :TYPE ; (MEMBER NIL :TOPLEVEL :COMPLEX-TOPLEVEL :INITIAL :DELETED)) ; (SB!C::HEAD (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK) ; (SB!C::TAIL (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK) ; (SB!C::LAST-BLOCK (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK) ; (SB!C::LAMBDAS NIL :TYPE LIST) ; (SB!C::NEW-FUNCTIONALS NIL :TYPE LIST) ; (SB!C::REOPTIMIZE T :TYPE (MEMBER NIL :MAYBE T)) ; (SB!C::REANALYZE NIL :TYPE BOOLEAN) ; (SB!C::NAME "" :TYPE T) ; ...) ; ; caught STYLE-WARNING: ; undefined type: IR2-COMPONENT ; in: ; DEF!STRUCT (CLAMBDA (:INCLUDE FUNCTIONAL) (:CONC-NAME LAMBDA-) ; (:PREDICATE LAMBDA-P) (:CONSTRUCTOR MAKE-LAMBDA) ...) ; (SB!INT:DEF!STRUCT ; (SB!C::CLAMBDA (:INCLUDE SB!C::FUNCTIONAL) (:CONC-NAME SB!C::LAMBDA-) ; (:PREDICATE SB!C::LAMBDA-P) (:CONSTRUCTOR SB!C::MAKE-LAMBDA) ; (:COPIER SB!C::COPY-LAMBDA)) ; (SB!C::VARS NIL :TYPE LIST :READ-ONLY T) ; (SB!C::OPTIONAL-DISPATCH NIL :TYPE (OR SB!C::OPTIONAL-DISPATCH NULL)) ; (SB!C:BIND NIL :TYPE (OR SB!C:BIND NULL)) ; (RETURN NIL :TYPE (OR SB!C::CRETURN NULL)) ; (SB!C::HOME NIL :TYPE (OR SB!C::CLAMBDA NULL)) (SB!C::LETS NIL :TYPE LIST) ; (SB!C::ENTRIES NIL :TYPE LIST) ; (SB!C::CALLS-OR-CLOSES (SB!ASSEM:MAKE-SSET) :TYPE (OR NULL SB!ASSEM:SSET)) ; (SB!C::TAIL-SET NIL :TYPE (OR SB!C::TAIL-SET NULL)) ; (SB!C::PHYSENV NIL :TYPE (OR SB!C::PHYSENV NULL)) ...) ; --> PROGN ; ==> ; (DEFSTRUCT ; (SB!C::CLAMBDA (:INCLUDE SB!C::FUNCTIONAL) (:CONC-NAME SB!C::LAMBDA-) ; (:PREDICATE SB!C::LAMBDA-P) (:CONSTRUCTOR SB!C::MAKE-LAMBDA) ; (:COPIER SB!C::COPY-LAMBDA)) ; (SB!C::VARS NIL :TYPE LIST :READ-ONLY T) ; (SB!C::OPTIONAL-DISPATCH NIL :TYPE (OR SB!C::OPTIONAL-DISPATCH NULL)) ; (SB!C:BIND NIL :TYPE (OR SB!C:BIND NULL)) ; (RETURN NIL :TYPE (OR SB!C::CRETURN NULL)) ; (SB!C::HOME NIL :TYPE (OR SB!C::CLAMBDA NULL)) ; (SB!C::LETS NIL :TYPE LIST) ; (SB!C::ENTRIES NIL :TYPE LIST) ; (SB!C::CALLS-OR-CLOSES (SB!ASSEM:MAKE-SSET) :TYPE (OR NULL SB!ASSEM:SSET)) ; (SB!C::TAIL-SET NIL :TYPE (OR SB!C::TAIL-SET NULL)) ; (SB!C::PHYSENV NIL :TYPE (OR SB!C::PHYSENV NULL)) ; ...) ; ; caught STYLE-WARNING: ; undefined type: LEXENV ; in: ; DEF!STRUCT (FUNCTIONAL ; (:INCLUDE LEAF (%SOURCE-NAME '.ANONYMOUS.) (WHERE-FROM :DEFINED) ; (TYPE (SPECIFIER-TYPE 'FUNCTION)))) ; (SB!INT:DEF!STRUCT ; (SB!C::FUNCTIONAL ; (:INCLUDE SB!C::LEAF (SB!C::%SOURCE-NAME 'SB!C::.ANONYMOUS.) ; (SB!C::WHERE-FROM :DEFINED) (TYPE (SB!KERNEL:SPECIFIER-TYPE 'FUNCTION)))) ; (SB!C::%DEBUG-NAME NIL :TYPE ; (OR NULL (NOT (SATISFIES SB!INT:LEGAL-FUN-NAME-P))) :READ-ONLY T) ; (SB!C::KIND NIL :TYPE ; (MEMBER NIL :OPTIONAL :DELETED :EXTERNAL :TOPLEVEL :ESCAPE :CLEANUP :LET ; :MV-LET :ASSIGNMENT :ZOMBIE ...)) ; (SB!C::HAS-EXTERNAL-REFERENCES-P NIL) ; (SB!C::ENTRY-FUN NIL :TYPE (OR SB!C::FUNCTIONAL NULL)) ; (SB!C::INLINEP NIL :TYPE SB!C::INLINEP) ; (SB!C::INLINE-EXPANSION NIL :TYPE LIST) ; (SB!KERNEL:LEXENV SB!C:*LEXENV* :TYPE SB!KERNEL:LEXENV) ; (SB!C::ARG-DOCUMENTATION NIL :TYPE (OR LIST (MEMBER :UNSPECIFIED))) ; (DOCUMENTATION NIL :TYPE (OR NULL STRING)) ; (SB!C::ALLOCATOR NIL :TYPE (OR NULL SB!C::COMBINATION)) ...) ; --> PROGN ; ==> ; (DEFSTRUCT ; (SB!C::FUNCTIONAL ; (:INCLUDE SB!C::LEAF (SB!C::%SOURCE-NAME 'SB!C::.ANONYMOUS.) ; (SB!C::WHERE-FROM :DEFINED) ; (TYPE (SB!KERNEL:SPECIFIER-TYPE 'FUNCTION)))) ; (SB!C::%DEBUG-NAME NIL :TYPE ; (OR NULL (NOT (SATISFIES SB!INT:LEGAL-FUN-NAME-P))) :READ-ONLY T) ; (SB!C::KIND NIL :TYPE ; (MEMBER NIL :OPTIONAL :DELETED :EXTERNAL :TOPLEVEL :ESCAPE :CLEANUP :LET ; :MV-LET :ASSIGNMENT :ZOMBIE ...)) ; (SB!C::HAS-EXTERNAL-REFERENCES-P NIL) ; (SB!C::ENTRY-FUN NIL :TYPE (OR SB!C::FUNCTIONAL NULL)) ; (SB!C::INLINEP NIL :TYPE SB!C::INLINEP) ; (SB!C::INLINE-EXPANSION NIL :TYPE LIST) ; (SB!KERNEL:LEXENV SB!C:*LEXENV* :TYPE SB!KERNEL:LEXENV) ; (SB!C::ARG-DOCUMENTATION NIL :TYPE (OR LIST (MEMBER :UNSPECIFIED))) ; (DOCUMENTATION NIL :TYPE (OR NULL STRING)) ; (SB!C::ALLOCATOR NIL :TYPE (OR NULL SB!C::COMBINATION)) ; ...) ; ; caught STYLE-WARNING: ; undefined type: LEXENV ; in: ; DEF!STRUCT (NODE (:CONSTRUCTOR NIL) ; (:INCLUDE SSET-ELEMENT (NUMBER (INCF *COMPILER-SSET-COUNTER*))) ; (:COPIER NIL)) ; (SB!INT:DEF!STRUCT ; (SB!C::NODE (:CONSTRUCTOR NIL) ; (:INCLUDE SB!ASSEM:SSET-ELEMENT ; (NUMBER (INCF SB!C::*COMPILER-SSET-COUNTER*))) ; (:COPIER NIL)) ; (SB!C::ID (SB!C::NEW-OBJECT-ID) :READ-ONLY T) ; (SB!C::REOPTIMIZE T :TYPE BOOLEAN) ; (SB!C::NEXT NIL :TYPE (OR SB!C::CTRAN NULL)) ; (SB!C::PREV NIL :TYPE (OR SB!C::CTRAN NULL)) ; (SB!KERNEL:LEXENV SB!C:*LEXENV* :TYPE SB!KERNEL:LEXENV) ; (SB!C::SOURCE-PATH SB!C::*CURRENT-PATH* :TYPE LIST) ; (SB!C::TAIL-P NIL :TYPE BOOLEAN)) ; --> PROGN ; ==> ; (DEFSTRUCT ; (SB!C::NODE (:CONSTRUCTOR NIL) ; (:INCLUDE SB!ASSEM:SSET-ELEMENT ; (NUMBER (INCF SB!C::*COMPILER-SSET-COUNTER*))) ; (:COPIER NIL)) ; (SB!C::ID (SB!C::NEW-OBJECT-ID) :READ-ONLY T) ; (SB!C::REOPTIMIZE T :TYPE BOOLEAN) ; (SB!C::NEXT NIL :TYPE (OR SB!C::CTRAN NULL)) ; (SB!C::PREV NIL :TYPE (OR SB!C::CTRAN NULL)) ; (SB!KERNEL:LEXENV SB!C:*LEXENV* :TYPE SB!KERNEL:LEXENV) ; (SB!C::SOURCE-PATH SB!C::*CURRENT-PATH* :TYPE LIST) ; (SB!C::TAIL-P NIL :TYPE BOOLEAN)) ; ; caught STYLE-WARNING: ; undefined type: LEXENV ; ; caught STYLE-WARNING: ; 202 more uses of undefined type LEXENV ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/node.lisp ; in: DEFUN %COERCE-TO-POLICY ; (SB!C::LEXENV-POLICY SB!C::THING) ; ; caught STYLE-WARNING: ; undefined function: LEXENV-POLICY ; in: ; DEF!STRUCT (COMPONENT (:COPIER NIL) ; (:CONSTRUCTOR MAKE-COMPONENT ; (HEAD TAIL &AUX (LAST-BLOCK TAIL) (OUTER-LOOP #)))) ; (SB!C::MAKE-LOOP :KIND :OUTER :HEAD SB!C::HEAD) ; ; caught STYLE-WARNING: ; undefined function: MAKE-LOOP ; in: ; DEF!STRUCT (CSET ; (:INCLUDE VALUED-NODE ; (DERIVED-TYPE (MAKE-SINGLE-VALUE-TYPE *UNIVERSAL-TYPE*))) ; (:CONC-NAME SET-) (:PREDICATE SET-P) (:CONSTRUCTOR MAKE-SET) ...) ; (SB!KERNEL:MAKE-SINGLE-VALUE-TYPE SB!KERNEL:*UNIVERSAL-TYPE*) ; ; caught STYLE-WARNING: ; undefined function: MAKE-SINGLE-VALUE-TYPE ; in: ; DEF!STRUCT (REF (:INCLUDE VALUED-NODE (REOPTIMIZE NIL)) ; (:CONSTRUCTOR MAKE-REF ; (LEAF &OPTIONAL (%SOURCE-NAME '.ANONYMOUS.) &AUX (LEAF-TYPE #) ; ...)) ; (:COPIER NIL)) ; (SB!KERNEL:MAKE-SINGLE-VALUE-TYPE SB!C::LEAF-TYPE) ; ; caught STYLE-WARNING: ; undefined function: MAKE-SINGLE-VALUE-TYPE ; in: ; DEF!STRUCT (NLX-INFO ; (:CONSTRUCTOR MAKE-NLX-INFO (CLEANUP EXIT &AUX (BLOCK #))) ; (:MAKE-LOAD-FORM-FUN IGNORE-IT)) ; (SB!C::NODE-BLOCK SB!EXT:EXIT) ; ; caught STYLE-WARNING: ; undefined function: NODE-BLOCK ; in: DEF!STRUCT (OPTIONAL-DISPATCH (:INCLUDE FUNCTIONAL)) ; (SB!INT:DEF!STRUCT (SB!C::OPTIONAL-DISPATCH (:INCLUDE SB!C::FUNCTIONAL)) ; (SB!C::ARGLIST NIL :TYPE LIST) ; (SB!C::ALLOWP NIL :TYPE BOOLEAN) ; (SB!C::KEYP NIL :TYPE BOOLEAN) ; (SB!C::MIN-ARGS 0 :TYPE UNSIGNED-BYTE) ; (SB!C::MAX-ARGS 0 :TYPE UNSIGNED-BYTE) ; (SB!C::ENTRY-POINTS NIL :TYPE LIST) ; (SB!C::MORE-ENTRY NIL :TYPE (OR SB!C::CLAMBDA NULL)) ; (SB!C::MAIN-ENTRY NIL :TYPE (OR SB!C::CLAMBDA NULL))) ; --> PROGN DEFSTRUCT PROGN DEFUN PROGN SB-IMPL::%DEFUN IF ; ==> ; (SB!KERNEL:SPECIFIER-TYPE 'FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: SPECIFIER-TYPE ; in: ; DEF!STRUCT (CLAMBDA (:INCLUDE FUNCTIONAL) (:CONC-NAME LAMBDA-) ; (:PREDICATE LAMBDA-P) (:CONSTRUCTOR MAKE-LAMBDA) ...) ; (SB!INT:DEF!STRUCT ; (SB!C::CLAMBDA (:INCLUDE SB!C::FUNCTIONAL) (:CONC-NAME SB!C::LAMBDA-) ; (:PREDICATE SB!C::LAMBDA-P) (:CONSTRUCTOR SB!C::MAKE-LAMBDA) ; (:COPIER SB!C::COPY-LAMBDA)) ; (SB!C::VARS NIL :TYPE LIST :READ-ONLY T) ; (SB!C::OPTIONAL-DISPATCH NIL :TYPE (OR SB!C::OPTIONAL-DISPATCH NULL)) ; (SB!C:BIND NIL :TYPE (OR SB!C:BIND NULL)) ; (RETURN NIL :TYPE (OR SB!C::CRETURN NULL)) ; (SB!C::HOME NIL :TYPE (OR SB!C::CLAMBDA NULL)) (SB!C::LETS NIL :TYPE LIST) ; (SB!C::ENTRIES NIL :TYPE LIST) ; (SB!C::CALLS-OR-CLOSES (SB!ASSEM:MAKE-SSET) :TYPE (OR NULL SB!ASSEM:SSET)) ; (SB!C::TAIL-SET NIL :TYPE (OR SB!C::TAIL-SET NULL)) ; (SB!C::PHYSENV NIL :TYPE (OR SB!C::PHYSENV NULL)) ...) ; --> PROGN DEFSTRUCT PROGN DEFUN PROGN SB-IMPL::%DEFUN IF ; ==> ; (SB!KERNEL:SPECIFIER-TYPE 'FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: SPECIFIER-TYPE ; in: ; DEF!STRUCT (FUNCTIONAL ; (:INCLUDE LEAF (%SOURCE-NAME '.ANONYMOUS.) (WHERE-FROM :DEFINED) ; (TYPE (SPECIFIER-TYPE 'FUNCTION)))) ; (SB!KERNEL:SPECIFIER-TYPE 'FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: SPECIFIER-TYPE ; in: ; DEF!STRUCT (CONSTANT ; (:CONSTRUCTOR MAKE-CONSTANT ; (VALUE &AUX (TYPE #) (%SOURCE-NAME '.ANONYMOUS.) ; (WHERE-FROM :DEFINED))) ; (:INCLUDE LEAF)) ; (SB!INT:DEF!STRUCT ; (SB!KERNEL:CONSTANT ; (:CONSTRUCTOR SB!C::MAKE-CONSTANT ; (SB!C::VALUE &AUX (TYPE #) (SB!C::%SOURCE-NAME 'SB!C::.ANONYMOUS.) ; (SB!C::WHERE-FROM :DEFINED))) ; (:INCLUDE SB!C::LEAF)) ; (SB!C::VALUE (SB!INT:MISSING-ARG) :TYPE T) ; (SB!C::BOXED-TN NIL :TYPE (OR NULL SB!C:TN))) ; --> PROGN ; ==> ; (DEFSTRUCT ; (SB!KERNEL:CONSTANT ; (:CONSTRUCTOR SB!C::MAKE-CONSTANT ; (SB!C::VALUE &AUX (TYPE #) (SB!C::%SOURCE-NAME 'SB!C::.ANONYMOUS.) ; (SB!C::WHERE-FROM :DEFINED))) ; (:INCLUDE SB!C::LEAF)) ; (SB!C::VALUE (SB!INT:MISSING-ARG) :TYPE T) ; (SB!C::BOXED-TN NIL :TYPE (OR NULL SB!C:TN))) ; ; caught STYLE-WARNING: ; undefined type: TN ; ; compilation unit finished ; Undefined types: ; CLOOP FUN-INFO IR2-COMPONENT LEXENV TN ; Undefined functions: ; CONT-NUM CTYPE-OF LEXENV-POLICY MAKE-LOOP MAKE-SINGLE-VALUE-TYPE NODE-BLOCK SPECIFIER-TYPE ; caught 24 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/node.fasl-tmp written ; compilation finished in 0:00:03.072 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/vop.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEF!CONSTANT LOCAL-TN-LIMIT ...) ; compiling (DEFTYPE LOCAL-TN-NUMBER ...) ; compiling (DEFTYPE LOCAL-TN-COUNT ...) ; compiling (DEFTYPE LOCAL-TN-VECTOR ...) ; compiling (DEFTYPE LOCAL-TN-BIT-VECTOR ...) ; compiling (DEFTYPE SC-NUMBER ...) ; compiling (DEFTYPE SC-VECTOR ...) ; compiling (DEFTYPE SC-BIT-VECTOR ...) ; compiling (DEFTYPE LTN-POLICY ...) ; compiling (DEFSTRUCT (PRIMITIVE-TYPE #) ...) ; compiling (DEFPRINTER (PRIMITIVE-TYPE) ...) ; compiling (DEFSTRUCT (IR2-BLOCK # ...) ...) ; compiling (DEFPRINTER (IR2-BLOCK) ...) ; compiling (DEFSTRUCT (IR2-LVAR # ...) ...) ; compiling (DEFPRINTER (IR2-LVAR) ...) ; compiling (DEFSTRUCT (IR2-COMPONENT #) ...) ; compiling (DEFSTRUCT (ENTRY-INFO #) ...) ; compiling (DEFSTRUCT (IR2-PHYSENV #) ...) ; compiling (DEFPRINTER (IR2-PHYSENV) ...) ; compiling (DEFSTRUCT (RETURN-INFO #) ...) ; compiling (DEFPRINTER (RETURN-INFO) ...) ; compiling (DEFSTRUCT (IR2-NLX-INFO #) ...) ; compiling (DEFPRINTER (IR2-NLX-INFO) ...) ; compiling (DEFSTRUCT (CLOOP # ...) ...) ; compiling (DEFPRINTER (CLOOP :CONC-NAME ...) ...) ; compiling (DEF!STRUCT (VOP # ...) ...) ; compiling (DEFPRINTER (VOP) ...) ; compiling (DEF!STRUCT (TN-REF # ...) ...) ; compiling (DEFPRINTER (TN-REF) ...) ; compiling (DEF!STRUCT (TEMPLATE #) ...) ; compiling (DEFPRINTER (TEMPLATE) ...) ; compiling (DEF!STRUCT (VOP-INFO # ...) ...) ; compiling (DEF!STRUCT (SB #) ...) ; compiling (DEFPRINTER (SB) ...) ; compiling (DEF!STRUCT (FINITE-SB #) ...) ; compiling (DEF!STRUCT (SC #) ...) ; compiling (DEFPRINTER (SC) ...) ; compiling (DEF!STRUCT (TN # ...) ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFSTRUCT (GLOBAL-CONFLICTS # ...) ...) ; compiling (DEFPRINTER (GLOBAL-CONFLICTS) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/vop.lisp ; in: DEFSTRUCT IR2-NLX-INFO ; (SB!ASSEM:GEN-LABEL) ; ; caught STYLE-WARNING: ; undefined function: GEN-LABEL ; (DEFSTRUCT (SB!C::IR2-NLX-INFO (:COPIER NIL)) ; (SB!C::HOME NIL :TYPE (OR SB!C:TN NULL)) ; (SB!C::SAVE-SP (SB!INT:MISSING-ARG) :TYPE SB!C:TN) ; (SB!C::DYNAMIC-STATE ; (LIST* (SB!C:MAKE-STACK-POINTER-TN) (SB!C:MAKE-DYNAMIC-STATE-TNS)) :TYPE ; LIST) ; (SB!C::TARGET (SB!ASSEM:GEN-LABEL) :TYPE SB!ASSEM:LABEL)) ; ; caught STYLE-WARNING: ; undefined type: LABEL ; in: DEFSTRUCT IR2-PHYSENV ; (DEFSTRUCT (SB!C::IR2-PHYSENV (:COPIER NIL)) ; (SB!KERNEL:CLOSURE (SB!INT:MISSING-ARG) :TYPE LIST :READ-ONLY T) ; (SB!C::OLD-FP NIL :TYPE (OR SB!C:TN NULL)) ; (SB!C::RETURN-PC NIL :TYPE (OR SB!C:TN NULL)) ; (SB!C::RETURN-PC-PASS (SB!INT:MISSING-ARG) :TYPE SB!C:TN :READ-ONLY T) ; (SB!C::NUMBER-STACK-P NIL :TYPE BOOLEAN) ; (SB!C::LIVE-TNS NIL :TYPE LIST) ; (SB!C::DEBUG-LIVE-TNS NIL :TYPE LIST) ; (SB!C::ELSEWHERE-START NIL :TYPE (OR SB!ASSEM:LABEL NULL)) ; (SB!C::ENVIRONMENT-START NIL :TYPE (OR SB!ASSEM:LABEL NULL)) ; (SB!C::CLOSURE-SAVE-TN NIL :TYPE (OR SB!C:TN NULL)) ; ...) ; --> PROGN SB-KERNEL::DELAY-DEFSTRUCT-FUNCTIONS PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN BLOCK ; ==> ; (TRULY-THE (OR SB!ASSEM:LABEL NULL) ; (SB-KERNEL:%INSTANCE-REF ; (THE SB!C::IR2-PHYSENV SB-KERNEL:INSTANCE) 8)) ; ; caught STYLE-WARNING: ; undefined type: LABEL ; in: DEFSTRUCT ENTRY-INFO ; (DEFSTRUCT (SB!C::ENTRY-INFO (:COPIER NIL)) ; (SB!C::CLOSURE-TN NIL :TYPE (OR NULL SB!C:TN)) ; (SB!C::OFFSET NIL :TYPE (OR SB!ASSEM:LABEL NULL)) ; (SB!C::NAME "" :TYPE (OR SIMPLE-STRING LIST SYMBOL)) ; (SB!C::ARGUMENTS NIL :TYPE LIST) ; (TYPE 'FUNCTION :TYPE (OR LIST (MEMBER FUNCTION))) ; (SB!INT:INFO NIL :TYPE ; (OR NULL SIMPLE-VECTOR STRING (CONS STRING SIMPLE-VECTOR)))) ; ; caught STYLE-WARNING: ; undefined type: LABEL ; in: DEFSTRUCT IR2-NLX-INFO ; (SB!C:MAKE-DYNAMIC-STATE-TNS) ; ; caught STYLE-WARNING: ; undefined function: MAKE-DYNAMIC-STATE-TNS ; (SB!C:MAKE-STACK-POINTER-TN) ; ; caught STYLE-WARNING: ; undefined function: MAKE-STACK-POINTER-TN ; in: DEF!METHOD PRINT-OBJECT ; (SB!C::PRINT-TN-GUTS SB!C:TN STREAM) ; ; caught STYLE-WARNING: ; undefined function: PRINT-TN-GUTS ; ; compilation unit finished ; Undefined type: ; LABEL ; Undefined functions: ; GEN-LABEL MAKE-DYNAMIC-STATE-TNS MAKE-STACK-POINTER-TN PRINT-TN-GUTS ; caught 7 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/vop.fasl-tmp written ; compilation finished in 0:00:01.447 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/backend.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFVAR *BACKEND-REGISTER-SAVE-PENALTY* ...) ; compiling (DECLAIM (TYPE INDEX ...)) ; compiling (DEFVAR *BACKEND-BYTE-ORDER*) ; compiling (DECLAIM (TYPE # ...)) ; compiling (DEFVAR *BACKEND-SC-NUMBERS* ...) ; compiling (DECLAIM (TYPE SC-VECTOR ...)) ; compiling (DEFVAR *BACKEND-SB-LIST* ...) ; compiling (DECLAIM (TYPE LIST ...)) ; compiling (DEFVAR *BACKEND-TEMPLATE-NAMES* ...) ; compiling (DECLAIM (TYPE HASH-TABLE ...)) ; compiling (DEFVAR *BACKEND-SC-NAMES* ...) ; compiling (DECLAIM (TYPE HASH-TABLE ...)) ; compiling (DEFVAR *BACKEND-PRIMITIVE-TYPE-NAMES* ...) ; compiling (DECLAIM (TYPE HASH-TABLE ...)) ; compiling (DEFVAR *BACKEND-PRIMITIVE-TYPE-ALIASES* ...) ; compiling (DECLAIM (TYPE LIST ...)) ; compiling (DEFVAR *BACKEND-T-PRIMITIVE-TYPE*) ; compiling (DECLAIM (TYPE PRIMITIVE-TYPE ...)) ; compiling (DEFVAR *BACKEND-PARSED-VOPS* ...) ; compiling (DECLAIM (TYPE HASH-TABLE ...)) ; compiling (DEFVAR *BACKEND-PREDICATE-TYPES* ...) ; compiling (DEFVAR *BACKEND-TYPE-PREDICATES* ...) ; compiling (DECLAIM (TYPE HASH-TABLE ...)) ; compiling (DECLAIM (TYPE LIST ...)) ; compiling (DEFVAR *BACKEND-INTERNAL-ERRORS* ...) ; compiling (DECLAIM (TYPE SIMPLE-VECTOR ...)) ; compiling (DEFVAR *BACKEND-SUBFEATURES* ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/backend.fasl-tmp written ; compilation finished in 0:00:00.005 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/vmdef.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN TEMPLATE-OR-LOSE ...) ; compiling (DEFUN SC-OR-LOSE ...) ; compiling (DEFUN SB-OR-LOSE ...) ; compiling (DEFUN SC-NUMBER-OR-LOSE ...) ; compiling (!DEF-BOOLEAN-ATTRIBUTE VOP ...) ; compiling (DEFUN COMPUTE-MOVE-COSTS ...) ; compiling (DEFUN PRIMITIVE-TYPE-OR-LOSE ...) ; compiling (DEFUN SC-ALLOWED-BY-PRIMITIVE-TYPE ...) ; compiling (DEF!CONSTANT MAX-VOP-TN-REFS ...) ; compiling (DECLAIM (TYPE # ...)) ; compiling (DEFVAR *VOP-TN-REFS* ...) ; compiling (DEF!CONSTANT SC-BITS ...) ; compiling (DEFUN EMIT-VOP ...) ; compiling (DEFUN ADJOIN-TEMPLATE ...) ; compiling (DECLAIM (INLINE TEMPLATE-CONDITIONAL-P)) ; compiling (DEFUN TEMPLATE-CONDITIONAL-P ...) ; compiling (DEFUN TEMPLATE-TYPE-SPECIFIER ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/vmdef.lisp ; in: DEFUN EMIT-VOP ; (SB!C:MAKE-RESTRICTED-TN NIL (ASH SB!C::TEMP -1)) ; ; caught STYLE-WARNING: ; undefined function: MAKE-RESTRICTED-TN ; (SB!C:MAKE-WIRED-TN NIL (SB-XC:LDB (SB-XC:BYTE SB!C::SC-BITS 1) SB!C::TEMP) ; (ASH SB!C::TEMP (- (1+ SB!C::SC-BITS)))) ; ; caught STYLE-WARNING: ; undefined function: MAKE-WIRED-TN ; (SB!C::REFERENCE-TN SB!C:TN NIL) ; ; caught STYLE-WARNING: ; undefined function: REFERENCE-TN ; (SB!REGALLOC:TARGET-IF-DESIRABLE ; (AREF SB!C::REFS (SB-XC:LDB (SB-XC:BYTE 8 8) SB!C::TARGET)) ; (AREF SB!C::REFS (SB-XC:LDB (SB-XC:BYTE 8 0) SB!C::TARGET))) ; ; caught STYLE-WARNING: ; undefined function: SB!REGALLOC:TARGET-IF-DESIRABLE ; ; compilation unit finished ; Undefined functions: ; MAKE-RESTRICTED-TN MAKE-WIRED-TN REFERENCE-TN SB!REGALLOC:TARGET-IF-DESIRABLE ; caught 4 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/vmdef.fasl-tmp written ; compilation finished in 0:00:00.096 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/backend-parms.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEF!CONSTANT +BACKEND-FASL-FILE-IMPLEMENTATION+ ...) ; compiling (SETF *BACKEND-REGISTER-SAVE-PENALTY* ...) ; compiling (SETF *BACKEND-BYTE-ORDER* ...) ; compiling (SETF *BACKEND-PAGE-BYTES* ...) ; compiling (DEF!CONSTANT GENCGC-CARD-BYTES ...) ; compiling (DEF!CONSTANT GENCGC-ALLOC-GRANULARITY ...) ; compiling (DEF!CONSTANT GENCGC-RELEASE-GRANULARITY ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/x86/backend-parms.fasl-tmp written ; compilation finished in 0:00:00.003 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/globaldb.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS) ; compiling (!COLD-INIT-FORMS (/SHOW0 "early in globaldb.lisp cold init")) ; compiling (DEFUN GLOBALDB-SXHASHOID ...) ; compiling (DEFUN PRIMIFY ...) ; compiling (DECLAIM (TYPE # ...)) ; compiling (!DEFGLOBAL *INFO-TYPES* ...) ; compiling (DEFSTRUCT (TYPE-INFO # ...) ...) ; compiling (DECLAIM (FREEZE-TYPE TYPE-INFO)) ; compiling (DEFCONSTANT +INFO-METAINFO-TYPE-NUM+ ...) ; compiling (DEFUN %GET-TYPE-INFO-METADATA ...) ; compiling (DEFUN REGISTER-INFO-METADATA ...) ; compiling (DEFUN FIND-TYPE-INFO ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN TYPE-INFO-OR-LOSE ...) ; compiling (DEFUN INFO ...) ; compiling (DEFUN (SETF INFO) ...) ; compiling (DEFUN CLEAR-INFO ...) ; compiling (DEFUN CLEAR-INFO-VALUES ...) ; compiling (!COLD-INIT-FORMS (SETQ *INFO-ENVIRONMENT* ...) ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN GET-INFO-VALUE ...) ; compiling (DEF!MACRO GET-INFO-VALUE-INITIALIZING ...) ; compiling (DEF!MACRO ATOMIC-SET-INFO-VALUE ...) ; compiling (DEFUN CALL-WITH-EACH-GLOBALDB-NAME ...) ; compiling (DEFINE-INFO-TYPE (:FUNCTION :DEFINITION) ...) ; compiling (DEFINE-INFO-TYPE (:FUNCTION :KIND) ...) ; compiling (DEFINE-INFO-TYPE (:FUNCTION :TYPE) ...) ; compiling (DEFINE-INFO-TYPE (:FUNCTION :ASSUMED-TYPE) ...) ; compiling (DEFINE-INFO-TYPE (:FUNCTION :WHERE-FROM) ...) ; compiling (DEFINE-INFO-TYPE (:FUNCTION :INLINE-EXPANSION-DESIGNATOR) ...) ; compiling (DEFINE-INFO-TYPE (:FUNCTION :INLINEP) ...) ; compiling (DEFINE-INFO-TYPE (:FUNCTION :EMITTED-FULL-CALLS) ...) ; compiling (DEFINE-INFO-TYPE (:FUNCTION :SOURCE-TRANSFORM) ...) ; compiling (DEFINE-INFO-TYPE (:FUNCTION :MACRO-FUNCTION) ...) ; compiling (DEFINE-INFO-TYPE (:FUNCTION :COMPILER-MACRO-FUNCTION) ...) ; compiling (DEFINE-INFO-TYPE (:FUNCTION :IR1-CONVERT) ...) ; compiling (DEFINE-INFO-TYPE (:FUNCTION :INFO) ...) ; compiling (DEFINE-INFO-TYPE (:VARIABLE :KIND) ...) ; compiling (DEFINE-INFO-TYPE (:VARIABLE :ALWAYS-BOUND) ...) ; compiling (DEFINE-INFO-TYPE (:VARIABLE :DEPRECATED) ...) ; compiling (DEFINE-INFO-TYPE (:VARIABLE :TYPE) ...) ; compiling (DEFINE-INFO-TYPE (:VARIABLE :WHERE-FROM) ...) ; compiling (DEFINE-INFO-TYPE (:VARIABLE :MACRO-EXPANSION) ...) ; compiling (DEFINE-INFO-TYPE (:VARIABLE :ALIEN-INFO) ...) ; compiling (DEFINE-INFO-TYPE (:VARIABLE :DOCUMENTATION) ...) ; compiling (DEFINE-INFO-TYPE (:VARIABLE :WIRED-TLS) ...) ; compiling (DEFINE-INFO-TYPE (:TYPE :KIND) ...) ; compiling (DEFINE-INFO-TYPE (:TYPE :EXPANDER) ...) ; compiling (DEFINE-INFO-TYPE (:TYPE :DOCUMENTATION) ...) ; compiling (DEFINE-INFO-TYPE (:TYPE :TRANSLATOR) ...) ; compiling (DEFINE-INFO-TYPE (:TYPE :BUILTIN) ...) ; compiling (DEFINE-INFO-TYPE (:TYPE :CLASSOID-CELL) ...) ; compiling (DEFINE-INFO-TYPE (:TYPE :COMPILER-LAYOUT) ...) ; compiling (DEFINE-INFO-TYPE (:TYPE :LAMBDA-LIST) ...) ; compiling (DEFINE-INFO-TYPE (:TYPE :SOURCE-LOCATION) ...) ; compiling (DEFINE-INFO-TYPE (:TYPED-STRUCTURE :INFO) ...) ; compiling (DEFINE-INFO-TYPE (:TYPED-STRUCTURE :DOCUMENTATION) ...) ; compiling (DEFGLOBAL *RECOGNIZED-DECLARATIONS* ...) ; compiling (DEFINE-INFO-TYPE (:DECLARATION :RECOGNIZED) ...) ; compiling (DEFINE-INFO-TYPE (:DECLARATION :HANDLER) ...) ; compiling (DEFINE-INFO-TYPE (:ALIEN-TYPE :KIND) ...) ; compiling (DEFINE-INFO-TYPE (:ALIEN-TYPE :TRANSLATOR) ...) ; compiling (DEFINE-INFO-TYPE (:ALIEN-TYPE :DEFINITION) ...) ; compiling (DEFINE-INFO-TYPE (:ALIEN-TYPE :STRUCT) ...) ; compiling (DEFINE-INFO-TYPE (:ALIEN-TYPE :UNION) ...) ; compiling (DEFINE-INFO-TYPE (:ALIEN-TYPE :ENUM) ...) ; compiling (DEFINE-INFO-TYPE (:SETF :INVERSE) ...) ; compiling (DEFINE-INFO-TYPE (:SETF :DOCUMENTATION) ...) ; compiling (DEFINE-INFO-TYPE (:SETF :EXPANDER) ...) ; compiling (DEFINE-INFO-TYPE (:CAS :EXPANDER) ...) ; compiling (DEFINE-INFO-TYPE (:RANDOM-DOCUMENTATION :STUFF) ...) ; compiling (DEFINE-INFO-TYPE (:SOURCE-LOCATION :VARIABLE) ...) ; compiling (DEFINE-INFO-TYPE (:SOURCE-LOCATION :CONSTANT) ...) ; compiling (DEFINE-INFO-TYPE (:SOURCE-LOCATION :TYPED-STRUCTURE) ...) ; compiling (DEFINE-INFO-TYPE (:SOURCE-LOCATION :SYMBOL-MACRO) ...) ; compiling (DECLAIM (FREEZE-TYPE BASIC-INFO-ENV)) ; compiling (DEFUN CALL-WITH-EACH-INFO ...) ; compiling (DEFUN SHOW-INFO ...) ; compiling (!COLD-INIT-FORMS (/SHOW0 "beginning *INFO-TYPES* initialization") ...) ; compiling (FROB) ; compiling (DEF INFO ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/globaldb.lisp ; in: DEF INFO ; (SB!C::DEF SB!INT:INFO (CLASS TYPE SB!C::NAME) ; (LET ((SB-XC:*GENSYM-COUNTER* SB-XC:*GENSYM-COUNTER*) ; (SB!INT:INFO (SB!C::TYPE-INFO-OR-LOSE CLASS TYPE))) ; (SB!INT:WITH-UNIQUE-NAMES (SB!C::VALUE SB!C::FOUNDP) ; (SB!INT:QUASIQUOTE (MULTIPLE-VALUE-BIND # # #))))) ; --> PROGN DEFINE-COMPILER-MACRO PROGN EVAL-WHEN ; ==> ; (SB-C::%DEFINE-COMPILER-MACRO 'SB!INT:INFO ; #'(LAMBDA (#:WHOLE1908 #:ENVIRONMENT1909) ; (DECLARE (IGNORE #:ENVIRONMENT1909)) ; (LET* ((#:CMACRO-&WHOLE1910 #:WHOLE1908) ; (#:WHOLE1908 #)) ; (DECLARE ; (MUFFLE-CONDITIONS CODE-DELETION-NOTE)) ; (DECLARE (IGNORABLE #:CMACRO-&WHOLE1910)) ; (LET (#) ; (UNLESS # #)) ; (LET* (# # # #) ; (BLOCK SB!INT:INFO #)))) ; '(&WHOLE SB!C::.WHOLE. CLASS TYPE SB!C::NAME) ; NIL '(COMPILER-MACRO-FUNCTION SB!INT:INFO)) ; ; caught STYLE-WARNING: ; 7 calls to SB!INT:INFO were compiled before a compiler-macro was defined for ; it. A declaration of NOTINLINE at the call sites will eliminate this warning, ; as will defining the compiler-macro before its first potential use. ; compiling (DEF (SETF INFO) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/globaldb.lisp ; in: DEF (SETF INFO) ; (SB!C::DEF (SETF SB!INT:INFO) (SB!C::NEW-VALUE CLASS TYPE SB!C::NAME) ; (LET* ((SB-XC:*GENSYM-COUNTER* SB-XC:*GENSYM-COUNTER*) ; (SB!INT:INFO (SB!C::TYPE-INFO-OR-LOSE CLASS TYPE)) ; (SB!C::TIN (SB!C::TYPE-INFO-NUMBER SB!INT:INFO)) ; (SB!C::TYPE-SPEC (SB!C::TYPE-INFO-TYPE-SPEC SB!INT:INFO)) ; (SB!C::CHECK (WHEN # #))) ; (SB!INT:WITH-UNIQUE-NAMES (SB!C::NEW) ; (SB!INT:QUASIQUOTE ; (LET # ; #))))) ; --> PROGN DEFINE-COMPILER-MACRO PROGN EVAL-WHEN ; ==> ; (SB-C::%DEFINE-COMPILER-MACRO '(SETF SB!INT:INFO) ; #'(LAMBDA (#:WHOLE1934 #:ENVIRONMENT1935) ; (DECLARE (IGNORE #:ENVIRONMENT1935)) ; (LET* ((#:CMACRO-&WHOLE1936 #:WHOLE1934) ; (#:WHOLE1934 #)) ; (DECLARE ; (MUFFLE-CONDITIONS CODE-DELETION-NOTE)) ; (DECLARE (IGNORABLE #:CMACRO-&WHOLE1936)) ; (LET (#) ; (UNLESS # #)) ; (LET* (# # # # #) ; (BLOCK SB!INT:INFO #)))) ; '(&WHOLE SB!C::.WHOLE. SB!C::NEW-VALUE CLASS ; TYPE SB!C::NAME) ; NIL ; '(COMPILER-MACRO-FUNCTION (SETF SB!INT:INFO))) ; ; caught STYLE-WARNING: ; 2 calls to (COMMON-LISP:SETF SB!INT:INFO) were compiled before a compiler-macro ; was defined for it. A declaration of NOTINLINE at the call sites will eliminate ; this warning, as will defining the compiler-macro before its first potential ; use. ; compiling (DEF CLEAR-INFO ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/globaldb.lisp ; in: DEF CLEAR-INFO ; (SB!C::DEF SB!INT:CLEAR-INFO (CLASS TYPE SB!C::NAME) ; (LET ((SB!INT:INFO (SB!C::TYPE-INFO-OR-LOSE CLASS TYPE))) ; (SB!INT:QUASIQUOTE ; (SB!C::CLEAR-INFO-VALUES #S(SB!IMPL::COMMA :EXPR SB!C::NAME :KIND 0) ; '(#))))) ; --> PROGN DEFINE-COMPILER-MACRO PROGN EVAL-WHEN ; ==> ; (SB-C::%DEFINE-COMPILER-MACRO 'SB!INT:CLEAR-INFO ; #'(LAMBDA (#:WHOLE1960 #:ENVIRONMENT1961) ; (DECLARE (IGNORE #:ENVIRONMENT1961)) ; (LET* ((#:CMACRO-&WHOLE1962 #:WHOLE1960) ; (#:WHOLE1960 #)) ; (DECLARE ; (MUFFLE-CONDITIONS CODE-DELETION-NOTE)) ; (DECLARE (IGNORABLE #:CMACRO-&WHOLE1962)) ; (LET (#) ; (UNLESS # #)) ; (LET* (# # # #) ; (BLOCK SB!INT:CLEAR-INFO #)))) ; '(&WHOLE SB!C::.WHOLE. CLASS TYPE SB!C::NAME) ; NIL ; '(COMPILER-MACRO-FUNCTION SB!INT:CLEAR-INFO)) ; ; caught STYLE-WARNING: ; 2 calls to SB!INT:CLEAR-INFO were compiled before a compiler-macro was defined ; for it. A declaration of NOTINLINE at the call sites will eliminate this ; warning, as will defining the compiler-macro before its first potential use. ; compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !GLOBALDB-COLD-INIT) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/globaldb.lisp ; in: MACROLET ((FROB NIL (QUASIQUOTE (!COLD-INIT-FORMS #)))) ; (SB!C::FROB) ; --> SB!INT:!COLD-INIT-FORMS PROGN LET LET SETF LET* MULTIPLE-VALUE-BIND LET ; --> LAMBDA ; ==> ; #'(LAMBDA (SB!C::X) ; (DECLARE (TYPE (OR SB!ALIEN-INTERNALS:ALIEN-TYPE NULL) SB!C::X)) ; SB!C::X) ; ; caught STYLE-WARNING: ; undefined type: ALIEN-TYPE ; --> SB!INT:!COLD-INIT-FORMS PROGN LET LET SETF PROGN SETF LET* ; --> MULTIPLE-VALUE-BIND LET LAMBDA FUNCTION LET WHEN IF PROGN ; ==> ; (SB!KERNEL:CLASSOID-LAYOUT CLASS) ; ; caught STYLE-WARNING: ; undefined function: CLASSOID-LAYOUT ; --> SB!INT:!COLD-INIT-FORMS PROGN LET LET SETF LET* MULTIPLE-VALUE-BIND LET ; --> LAMBDA ; ==> ; #'(LAMBDA (SB!C::X) ; (DECLARE (TYPE (OR SB!KERNEL:FDEFN NULL) SB!C::X)) ; SB!C::X) ; ; caught STYLE-WARNING: ; undefined type: FDEFN ; --> SB!INT:!COLD-INIT-FORMS PROGN LET LET SETF PROGN SETF LET* ; --> MULTIPLE-VALUE-BIND LET LAMBDA FUNCTION LET ; ==> ; (SB!KERNEL:FIND-CLASSOID SB!C::NAME NIL) ; ; caught STYLE-WARNING: ; undefined function: FIND-CLASSOID ; --> SB!INT:!COLD-INIT-FORMS PROGN LET LET SETF LET* MULTIPLE-VALUE-BIND LET ; --> LAMBDA ; ==> ; #'(LAMBDA (SB!C::X) (DECLARE (TYPE (OR SB!C::FUN-INFO NULL) SB!C::X)) SB!C::X) ; ; caught STYLE-WARNING: ; undefined type: FUN-INFO ; ==> ; #'(LAMBDA (SB!C::X) ; (DECLARE (TYPE (OR SB!ALIEN-INTERNALS:HEAP-ALIEN-INFO NULL) SB!C::X)) ; SB!C::X) ; ; caught STYLE-WARNING: ; undefined type: HEAP-ALIEN-INFO ; ==> ; #'(LAMBDA (SB!C::X) ; (DECLARE (TYPE (OR SB!KERNEL:LAYOUT NULL) SB!C::X)) ; SB!C::X) ; ; caught STYLE-WARNING: ; undefined type: LAYOUT ; --> SB!INT:!COLD-INIT-FORMS PROGN LET LET SETF PROGN SETF LET* ; --> MULTIPLE-VALUE-BIND LET LAMBDA FUNCTION ; ==> ; (SB!KERNEL:SPECIFIER-TYPE 'FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: SPECIFIER-TYPE ; ; compilation unit finished ; Undefined types: ; ALIEN-TYPE FDEFN FUN-INFO HEAP-ALIEN-INFO LAYOUT ; Undefined functions: ; CLASSOID-LAYOUT FIND-CLASSOID SPECIFIER-TYPE ; caught 11 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/globaldb.fasl-tmp written ; compilation finished in 0:00:00.493 /early in globaldb.lisp cold init /done setting *INFO-ENVIRONMENT* /beginning *INFO-TYPES* initialization /done with *INFO-TYPES* initialization ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/info-functions.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN CHECK-FUN-NAME ...) ; compiling (DEFUN PROCLAIM-AS-FUN-NAME ...) ; compiling (DEFUN NOTE-IF-SETF-FUN-AND-MACRO ...) ; compiling (DEFUN UNDEFINE-FUN-NAME ...) ; compiling (DEFUN BECOME-DEFINED-FUN-NAME ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN FUN-NAME-INLINE-EXPANSION ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/info-functions.lisp ; in: DEFUN FUN-NAME-INLINE-EXPANSION ; (DEFUN SB!INT:FUN-NAME-INLINE-EXPANSION (SB!C::FUN-NAME) ; (LET ((SB!INT:INFO ; (SB!INT:INFO :FUNCTION :INLINE-EXPANSION-DESIGNATOR SB!C::FUN-NAME))) ; (IF (FUNCTIONP SB!INT:INFO) ; (FUNCALL SB!INT:INFO) ; SB!INT:INFO))) ; --> PROGN ; ==> ; (SB-IMPL::%DEFUN 'SB!INT:FUN-NAME-INLINE-EXPANSION ; (SB-INT:NAMED-LAMBDA SB!INT:FUN-NAME-INLINE-EXPANSION ; (SB!C::FUN-NAME) ; (BLOCK SB!INT:FUN-NAME-INLINE-EXPANSION ; (LET (#) ; (IF # ; # ; SB!INT:INFO)))) ; NIL 'NIL (SB-C:SOURCE-LOCATION)) ; ; note: type assertion too complex to check: ; (VALUES &OPTIONAL LIST &REST T). ; compiling (DEFUN SB-XC:MACRO-FUNCTION ...) ; compiling (DEFUN (SETF SB-XC:MACRO-FUNCTION) ...) ; compiling (DEFUN FUN-LOCALLY-DEFINED-P ...) ; compiling (DEFUN SB-XC:COMPILER-MACRO-FUNCTION ...) ; compiling (DEFUN (SETF SB-XC:COMPILER-MACRO-FUNCTION) ...) ; compiling (DEFUN FDOCUMENTATION ...) ; compiling (DEFUN (SETF FDOCUMENTATION) ...) ; compiling (DEFUN RANDOM-DOCUMENTATION ...) ; compiling (DEFUN (SETF RANDOM-DOCUMENTATION) ...) ; compiling (DEFUN EMITTED-FULL-CALL-COUNT ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/info-functions.lisp ; in: DEFUN FDOCUMENTATION ; (SB!KERNEL:%FUN-DOC SB!C::X) ; ; caught STYLE-WARNING: ; undefined function: %FUN-DOC ; in: DEFUN (SETF FDOCUMENTATION) ; (SETF (SB!KERNEL:%FUN-DOC (FDEFINITION SB!C::NAME)) STRING) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB-C::%FUNCALL #'(SETF SB!KERNEL:%FUN-DOC) #:NEW453 #:G454) ; ; caught STYLE-WARNING: ; undefined function: (SETF %FUN-DOC) ; in: DEFUN CHECK-FUN-NAME ; (SB!C:COMPILER-ERROR "illegal function name: ~S" SB!C::NAME) ; ; caught STYLE-WARNING: ; undefined function: COMPILER-ERROR ; in: DEFUN NOTE-IF-SETF-FUN-AND-MACRO ; (SB!C:COMPILER-STYLE-WARN ; "defining function ~S when ~S already has a SETF macro" SB!C::NAME ; SB!C::STEM) ; ; caught STYLE-WARNING: ; undefined function: COMPILER-STYLE-WARN ; in: DEFUN PROCLAIM-AS-FUN-NAME ; (SB!C:COMPILER-STYLE-WARN "~S was previously defined as a macro." SB!C::NAME) ; ; caught STYLE-WARNING: ; undefined function: COMPILER-STYLE-WARN ; in: DEFUN FUN-LOCALLY-DEFINED-P ; (SB!C::LEXENV-FUNS SB!C::ENV) ; ; caught STYLE-WARNING: ; undefined function: LEXENV-FUNS ; in: DEFUN SB-XC:MACRO-FUNCTION ; (SB!C::LEXENV-FUNS SB!C::ENV) ; ; caught STYLE-WARNING: ; undefined function: LEXENV-FUNS ; in: DEFUN FDOCUMENTATION ; (SB!KERNEL:PACKAGE-DOC-STRING SB!C::X) ; ; caught STYLE-WARNING: ; undefined function: PACKAGE-DOC-STRING ; ; compilation unit finished ; Undefined functions: ; %FUN-DOC (SETF %FUN-DOC) COMPILER-ERROR COMPILER-STYLE-WARN LEXENV-FUNS PACKAGE-DOC-STRING ; caught 8 STYLE-WARNING conditions ; printed 1 note ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/info-functions.fasl-tmp written ; compilation finished in 0:00:00.083 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/force-delayed-defbangconstants.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (FORCE-DELAYED-DEF!CONSTANTS) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/force-delayed-defbangconstants.fasl-tmp written ; compilation finished in 0:00:00.002 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/defmacro.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFUN %EXPANDER-FOR-DEFMACRO ...) ; compiling (DEF (:LOAD-TOPLEVEL :EXECUTE) ...) ; compiling (DEF (:COMPILE-TOPLEVEL) ...) ; compiling (DEFMACRO SB-XC:DEFMACRO ...) ; compiling (SB-XC:DEFMACRO DEFMACRO ...) ; compiling (DEF!MACRO DEFMACRO-MUNDANELY ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/defmacro.lisp ; in: MACROLET ((DEF (TIMES SET-P) (QUASIQUOTE (EVAL-WHEN # #)))) ; (MACROLET ((SB!IMPL::DEF (SB!IMPL::TIMES SB!IMPL::SET-P) ; (SB!INT:QUASIQUOTE (EVAL-WHEN # #)))) ; (PROGN ; (SB!IMPL::DEF (:LOAD-TOPLEVEL :EXECUTE) NIL) ; (SB!IMPL::DEF (:COMPILE-TOPLEVEL) NIL))) ; --> BLOCK LET SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN WHEN IF PROGN ; ==> ; (SB!INT:STYLE-WARN "~S is being redefined as a macro when it was ~ ; previously ~(~A~) to be a function." ; SB!IMPL::NAME (SB!INT:INFO :FUNCTION :WHERE-FROM SB!IMPL::NAME)) ; ; caught STYLE-WARNING: ; undefined function: STYLE-WARN ; in: DEF (:LOAD-TOPLEVEL :EXECUTE) ; (SB!IMPL::DEF (:LOAD-TOPLEVEL :EXECUTE) NIL) ; --> EVAL-WHEN DEFUN PROGN SB-IMPL::%DEFUN BLOCK LET ; --> SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN WHEN IF PROGN ; ==> ; (SB!INT:STYLE-WARN "~S is being redefined as a macro when it was ~ ; previously ~(~A~) to be a function." ; SB!IMPL::NAME (SB!INT:INFO :FUNCTION :WHERE-FROM SB!IMPL::NAME)) ; ; caught STYLE-WARNING: ; undefined function: STYLE-WARN ; ; compilation unit finished ; Undefined function: ; STYLE-WARN ; caught 2 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/defmacro.fasl-tmp written ; compilation finished in 0:00:00.030 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/force-delayed-defbangmacros.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (FORCE-DELAYED-DEF!MACROS) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/force-delayed-defbangmacros.fasl-tmp written ; compilation finished in 0:00:00.001 ; in: SB-XC:DEFMACRO DEFTYPE ; (SB!INT:BAD-TYPE SB!IMPL::NAME 'SYMBOL "Type name is not a symbol:~% ~S" ; SB!KERNEL:FORM) ; ; caught STYLE-WARNING: ; undefined function: BAD-TYPE ; ; compilation unit finished ; Undefined function: ; BAD-TYPE ; caught 1 STYLE-WARNING condition ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/late-macros.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (SB-XC:DEFMACRO DELETEF-IN ...) ; compiling (SB-XC:DEFMACRO PUSH-IN ...) ; compiling (DEFMACRO-MUNDANELY !DEF-BOOLEAN-ATTRIBUTE-SETTER ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/late-macros.lisp ; in: SB-XC:DEFMACRO PUSH-IN ; (SB-XC:GET-SETF-EXPANSION SB!C::PLACE SB!C::ENV) ; ; caught STYLE-WARNING: ; undefined function: SB-XC:GET-SETF-EXPANSION ; in: SB-XC:DEFMACRO DELETEF-IN ; (SB-XC:GET-SETF-EXPANSION SB!C::PLACE SB!C::ENV) ; ; caught STYLE-WARNING: ; undefined function: SB-XC:GET-SETF-EXPANSION ; ; compilation unit finished ; Undefined function: ; SB-XC:GET-SETF-EXPANSION ; caught 2 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/late-macros.fasl-tmp written ; compilation finished in 0:00:00.017 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/meta-vmdef.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFMACRO DEFINE-STORAGE-BASE ...) ; compiling (DEFMACRO DEFINE-STORAGE-CLASS ...) ; compiling (DEFMACRO DO-SC-PAIRS ...) ; compiling (DEFMACRO DEFINE-MOVE-FUN ...) ; compiling (DEFPARAMETER *SC-VOP-SLOTS* ...) ; compiling (DEFMACRO DEFINE-MOVE-VOP ...) ; compiling (DEFMACRO !DEF-PRIMITIVE-TYPE ...) ; compiling (DEFMACRO !DEF-PRIMITIVE-TYPE-ALIAS ...) ; compiling (DEFPARAMETER *PRIMITIVE-TYPE-SLOT-ALIST* ...) ; compiling (DEFMACRO PRIMITIVE-TYPE-VOP ...) ; compiling (DEF!STRUCT (VOP-PARSE #) ...) ; compiling (DEFPRINTER (VOP-PARSE) ...) ; compiling (DEF!STRUCT (OPERAND-PARSE #) ...) ; compiling (DEFPRINTER (OPERAND-PARSE) ...) ; compiling (DEFUN FIND-OPERAND ...) ; compiling (DEFUN VOP-PARSE-OR-LOSE ...) ; compiling (DEFUN ACCESS-OPERANDS ...) ; compiling (DEFUN IGNORE-UNREFERENCED-TEMPS ...) ; compiling (DEFUN VOP-SPEC-ARG ...) ; compiling (DEFUN PARSE-TIME-SPEC ...) ; compiling (DEFUN TIME-SPEC-ORDER ...) ; compiling (DEFUN COMPUTE-TEMPORARIES-DESCRIPTION ...) ; compiling (DEFUN COMPUTE-REF-ORDERING ...) ; compiling (DEFUN MAKE-EMIT-FUNCTION-AND-FRIENDS ...) ; compiling (DEFUN FIND-MOVE-FUNS ...) ; compiling (DEFUN CALL-MOVE-FUN ...) ; compiling (DEFUN DECIDE-TO-LOAD ...) ; compiling (DEFUN MAKE-GENERATOR-FUNCTION ...) ; compiling (DEFVAR *PARSE-VOP-OPERAND-COUNT*) ; compiling (DEFUN MAKE-OPERAND-PARSE-TEMP ...) ; compiling (DEFUN MAKE-OPERAND-PARSE-LOAD-TN ...) ; compiling (DEFUN PARSE-VOP-OPERANDS ...) ; compiling (DEFUN PARSE-TEMPORARY ...) ; compiling (DEFUN COMPUTE-PARSE-VOP-OPERAND-COUNT ...) ; compiling (DEFUN PARSE-DEFINE-VOP ...) ; compiling (DEFUN COMPUTE-LOADING-COSTS ...) ; compiling (DEFPARAMETER *NO-COSTS* ...) ; compiling (DEFPARAMETER *NO-LOADS* ...) ; compiling (DEFUN COMPUTE-LOADING-COSTS-IF-ANY ...) ; compiling (DEFUN COMPUTE-COSTS-AND-RESTRICTIONS-LIST ...) ; compiling (DEFUN MAKE-COSTS-AND-RESTRICTIONS ...) ; compiling (DEFUN PARSE-VOP-OPERAND-TYPES ...) ; compiling (DEFUN CHECK-OPERAND-TYPE-SCS ...) ; compiling (DEFUN CHECK-OPERAND-TYPES ...) ; compiling (DEFUN GROVEL-VOP-OPERANDS ...) ; compiling (DEFUN SET-UP-FUN-TRANSLATION ...) ; compiling (DEFUN MAKE-OPERAND-TYPE ...) ; compiling (DEFUN SPECIFY-OPERAND-TYPES ...) ; compiling (DEFUN MAKE-VOP-INFO-TYPES ...) ; compiling (DEFPARAMETER *SLOT-INHERIT-ALIST* ...) ; compiling (DEFMACRO INHERIT-VOP-INFO ...) ; compiling (DEFUN SET-UP-VOP-INFO ...) ; compiling (DEF!MACRO DEFINE-VOP ...) ; compiling (DEFUN STORE-VOP-INFO ...) ; compiling (DEFUN MAKE-OPERAND-LIST ...) ; compiling (DEFMACRO EMIT-TEMPLATE ...) ; compiling (DEFMACRO VOP ...) ; compiling (DEFMACRO VOP* ...) ; compiling (DEF!MACRO SC-CASE ...) ; compiling (DEFMACRO SC-IS ...) ; compiling (DEFMACRO DO-IR2-BLOCKS ...) ; compiling (DEFMACRO DO-LIVE-TNS ...) ; compiling (DEFMACRO DO-PHYSENV-IR2-BLOCKS ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/meta-vmdef.lisp ; in: DEFUN STORE-VOP-INFO ; (SB!KERNEL:SPECIFIER-TYPE SB!C::MY-TYPE-SPEC) ; ; caught STYLE-WARNING: ; undefined function: SPECIFIER-TYPE ; (SB!KERNEL:TYPE= (SB!C::VOP-INFO-TYPE SB!C::OTHER) SB!C::MY-TYPE) ; ; caught STYLE-WARNING: ; undefined function: TYPE= ; ; compilation unit finished ; Undefined functions: ; SPECIFIER-TYPE TYPE= ; caught 2 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/meta-vmdef.fasl-tmp written ; compilation finished in 0:00:00.747 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/vm.lisp" (written 27 FEB 2015 04:49:49 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFVAR *BYTE-REGISTER-NAMES* ...) ; compiling (DEFVAR *WORD-REGISTER-NAMES* ...) ; compiling (DEFVAR *DWORD-REGISTER-NAMES* ...) ; compiling (DEFVAR *FLOAT-REGISTER-NAMES* ...) ; compiling (DEFREG AL ...) ; compiling (DEFREG AH ...) ; compiling (DEFREG CL ...) ; compiling (DEFREG CH ...) ; compiling (DEFREG DL ...) ; compiling (DEFREG DH ...) ; compiling (DEFREG BL ...) ; compiling (DEFREG BH ...) ; compiling (DEFREGSET *BYTE-REGS* ...) ; compiling (DEFREG AX ...) ; compiling (DEFREG CX ...) ; compiling (DEFREG DX ...) ; compiling (DEFREG BX ...) ; compiling (DEFREG SP ...) ; compiling (DEFREG BP ...) ; compiling (DEFREG SI ...) ; compiling (DEFREG DI ...) ; compiling (DEFREGSET *WORD-REGS* ...) ; compiling (DEFREG EAX ...) ; compiling (DEFREG ECX ...) ; compiling (DEFREG EDX ...) ; compiling (DEFREG EBX ...) ; compiling (DEFREG ESP ...) ; compiling (DEFREG EBP ...) ; compiling (DEFREG ESI ...) ; compiling (DEFREG EDI ...) ; compiling (DEFREGSET *DWORD-REGS* ...) ; compiling (DEFREG FR0 ...) ; compiling (DEFREG FR1 ...) ; compiling (DEFREG FR2 ...) ; compiling (DEFREG FR3 ...) ; compiling (DEFREG FR4 ...) ; compiling (DEFREG FR5 ...) ; compiling (DEFREG FR6 ...) ; compiling (DEFREG FR7 ...) ; compiling (DEFREGSET *FLOAT-REGS* ...) ; compiling (DEF!CONSTANT REGISTER-ARG-COUNT ...) ; compiling (DEFPARAMETER *REGISTER-ARG-NAMES* ...) ; compiling (DEFREGSET *REGISTER-ARG-OFFSETS* ...) ; compiling (DEFINE-STORAGE-BASE REGISTERS ...) ; compiling (DEFINE-STORAGE-BASE FLOAT-REGISTERS ...) ; compiling (DEFINE-STORAGE-BASE STACK ...) ; compiling (DEFINE-STORAGE-BASE CONSTANT ...) ; compiling (DEFINE-STORAGE-BASE IMMEDIATE-CONSTANT ...) ; compiling (DEFINE-STORAGE-BASE NOISE ...) ; compiling (DEFMACRO !DEFINE-STORAGE-CLASSES ...) ; compiling (!DEFINE-STORAGE-CLASSES (CONSTANT CONSTANT) ...) ; compiling (DEFPARAMETER *BYTE-SC-NAMES* ...) ; compiling (DEFPARAMETER *WORD-SC-NAMES* ...) ; compiling (DEFPARAMETER *DWORD-SC-NAMES* ...) ; compiling (DEFPARAMETER *FLOAT-SC-NAMES* ...) ; compiling (DEFPARAMETER *DOUBLE-SC-NAMES* ...) ; compiling (DEF-MISC-REG-TNS UNSIGNED-REG ...) ; compiling (DEF-MISC-REG-TNS WORD-REG ...) ; compiling (DEF-MISC-REG-TNS BYTE-REG ...) ; compiling (DEF-MISC-REG-TNS SINGLE-REG ...) ; compiling (DEFPARAMETER *REGISTER-ARG-TNS* ...) ; compiling (DEFUN IMMEDIATE-CONSTANT-SC ...) ; compiling (DEFUN BOXED-IMMEDIATE-SC-P ...) ; compiling (DEFUN ENCODE-VALUE-IF-IMMEDIATE ...) ; compiling (DEF!CONSTANT RETURN-PC-SAVE-OFFSET ...) ; compiling (DEF!CONSTANT OCFP-SAVE-OFFSET ...) ; compiling (DEF!CONSTANT SP->FP-OFFSET ...) ; compiling (DECLAIM (INLINE FRAME-WORD-OFFSET)) ; compiling (DEFUN FRAME-WORD-OFFSET ...) ; compiling (DECLAIM (INLINE FRAME-BYTE-OFFSET)) ; compiling (DEFUN FRAME-BYTE-OFFSET ...) ; compiling (DEF!CONSTANT LRA-SAVE-OFFSET ...) ; compiling (DEF!CONSTANT CFP-OFFSET ...) ; compiling (DEF!CONSTANT SINGLE-VALUE-RETURN-BYTE-OFFSET ...) ; compiling (DEFUN LOCATION-PRINT-NAME ...) ; compiling (DEFUN COMBINATION-IMPLEMENTATION-STYLE ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/vm.lisp ; in: DEFUN COMBINATION-IMPLEMENTATION-STYLE ; (SB!C::COMBINATION-FUN-SOURCE-NAME SB!VM::NODE) ; ; caught STYLE-WARNING: ; undefined function: SB!C::COMBINATION-FUN-SOURCE-NAME ; (SB!C::CONSTANT-LVAR-P (FIRST (SB!C::BASIC-COMBINATION-ARGS SB!VM::NODE))) ; ; caught STYLE-WARNING: ; undefined function: SB!C::CONSTANT-LVAR-P ; in: DEFUN ENCODE-VALUE-IF-IMMEDIATE ; (SB!VM:FIXNUMIZE SB!VM::VAL) ; ; caught STYLE-WARNING: ; undefined function: FIXNUMIZE ; in: DEFUN COMBINATION-IMPLEMENTATION-STYLE ; (SB!KERNEL:SPECIFIER-TYPE ; (SB!INT:QUASIQUOTE ; (FUNCTION #S(SB!IMPL::COMMA :EXPR SB!VM::ARGS :KIND 0) ; #S(SB!IMPL::COMMA :EXPR SB!VM::RESULT :KIND 0)))) ; ; caught STYLE-WARNING: ; undefined function: SPECIFIER-TYPE ; in: DEFUN ENCODE-VALUE-IF-IMMEDIATE ; (SB!VM:STATIC-SYMBOL-OFFSET SB!VM::VAL) ; ; caught STYLE-WARNING: ; undefined function: STATIC-SYMBOL-OFFSET ; in: DEFUN IMMEDIATE-CONSTANT-SC ; (SB!VM:STATIC-SYMBOL-P SB!VM::VALUE) ; ; caught STYLE-WARNING: ; undefined function: STATIC-SYMBOL-P ; in: DEFUN ENCODE-VALUE-IF-IMMEDIATE ; (SB!C:TN-VALUE SB!C:TN) ; ; caught STYLE-WARNING: ; undefined function: TN-VALUE ; in: DEFUN COMBINATION-IMPLEMENTATION-STYLE ; (SB!C::VALID-FUN-USE SB!VM::NODE ; (SB!KERNEL:SPECIFIER-TYPE ; (SB!INT:QUASIQUOTE ; (FUNCTION #S(SB!IMPL::COMMA :EXPR SB!VM::ARGS :KIND 0) ; #S(SB!IMPL::COMMA :EXPR SB!VM::RESULT :KIND 0))))) ; ; caught STYLE-WARNING: ; undefined function: SB!C::VALID-FUN-USE ; ; compilation unit finished ; Undefined functions: ; SB!C::COMBINATION-FUN-SOURCE-NAME SB!C::CONSTANT-LVAR-P FIXNUMIZE SPECIFIER-TYPE STATIC-SYMBOL-OFFSET STATIC-SYMBOL-P TN-VALUE SB!C::VALID-FUN-USE ; caught 8 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/x86/vm.fasl-tmp written ; compilation finished in 0:00:00.235 /in DEFINE-STORAGE-BASE /not :NON-PACKED, i.e. hairy case /doing second SETF /doing third SETF /doing fourth SETF /finished with DEFINE-STORAGE-BASE expansion /in DEFINE-STORAGE-BASE /not :NON-PACKED, i.e. hairy case /doing second SETF /doing third SETF /doing fourth SETF /finished with DEFINE-STORAGE-BASE expansion /in DEFINE-STORAGE-BASE /not :NON-PACKED, i.e. hairy case /doing second SETF /doing third SETF /doing fourth SETF /finished with DEFINE-STORAGE-BASE expansion /in DEFINE-STORAGE-BASE /finished with DEFINE-STORAGE-BASE expansion /in DEFINE-STORAGE-BASE /finished with DEFINE-STORAGE-BASE expansion /in DEFINE-STORAGE-BASE /not :NON-PACKED, i.e. hairy case /doing second SETF /doing third SETF /doing fourth SETF /finished with DEFINE-STORAGE-BASE expansion ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/xset.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (DECLAIM (INLINE ALLOC-XSET ...)) ; compiling (DEFSTRUCT (XSET # ...) ...) ; compiling (DEFUN XSET-COUNT ...) ; compiling (DEFUN MAP-XSET ...) ; compiling (DEFCONSTANT +XSET-LIST-SIZE-LIMIT+ ...) ; compiling (DEFUN ADD-TO-XSET ...) ; compiling (DEFUN XSET-FROM-LIST ...) ; compiling (DEFUN XSET-UNION ...) ; compiling (DEFUN XSET-MEMBER-P ...) ; compiling (DEFUN XSET-MEMBERS ...) ; compiling (DEFUN XSET-INTERSECTION ...) ; compiling (DEFUN XSET-SUBSET-P ...) ; compiling (DECLAIM (INLINE XSET-EMPTY-P)) ; compiling (DEFUN XSET-EMPTY-P ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/xset.fasl-tmp written ; compilation finished in 0:00:00.055 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-type.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS) ; compiling (DEFSTRUCT (HAIRY-TYPE # ...) ...) ; compiling (!DEFINE-TYPE-CLASS HAIRY ...) ; compiling (DEFSTRUCT (UNKNOWN-TYPE # ...)) ; compiling (DEFUN MAYBE-REPARSE-SPECIFIER ...) ; compiling (DEFMACRO MAYBE-REPARSE-SPECIFIER! ...) ; compiling (DEFSTRUCT (NEGATION-TYPE # ...) ...) ; compiling (!DEFINE-TYPE-CLASS NEGATION ...) ; compiling (DEFSTRUCT (ARGS-TYPE # ...) ...) ; compiling (DEFUN CANONICALIZE-ARGS-TYPE-ARGS ...) ; compiling (DEFUN PARSE-ARGS-TYPES ...) ; compiling (DEFSTRUCT (VALUES-TYPE # ...)) ; compiling (DECLAIM (INLINE VALUES-TYPE-P)) ; compiling (DEFUN VALUES-TYPE-P ...) ; compiling (DEFUN-CACHED (MAKE-VALUES-TYPE-CACHED :HASH-BITS ...) ...) ; compiling (DEFUN MAKE-VALUES-TYPE ...) ; compiling (!DEFINE-TYPE-CLASS VALUES ...) ; compiling (DEFSTRUCT (FUN-TYPE # ...) ...) ; compiling (DECLAIM (TYPE # ...)) ; compiling (DEFGLOBAL *INTERNED-FUN-TYPES* ...) ; compiling (DEFUN !INTERN-IMPORTANT-FUN-TYPE-INSTANCES ...) ; compiling (DEFUN MAKE-FUN-TYPE ...) ; compiling (DEFSTRUCT (CONSTANT-TYPE # ...) ...) ; compiling (DEFSTRUCT (NAMED-TYPE # ...) ...) ; compiling (DEFPARAMETER *FLOAT-FORMATS* ...) ; compiling (DEFTYPE FLOAT-FORMAT ...) ; compiling (DEFSTRUCT (NUMERIC-TYPE # ...) ...) ; compiling (DEFGLOBAL *UNSIGNED-BYTE-TYPE* ...) ; compiling (DEFGLOBAL *INTEGER-TYPE* ...) ; compiling (DEFGLOBAL *UNSIGNED-BYTE-N-TYPES* ...) ; compiling (DEFGLOBAL *SIGNED-BYTE-N-TYPES* ...) ; compiling (DEFGLOBAL *REAL-FFLOAT-TYPE* ...) ; compiling (DEFGLOBAL *REAL-DFLOAT-TYPE* ...) ; compiling (DEFGLOBAL *COMPLEX-FFLOAT-TYPE* ...) ; compiling (DEFGLOBAL *COMPLEX-DFLOAT-TYPE* ...) ; compiling (DEFUN !INTERN-IMPORTANT-NUMERIC-TYPE-INSTANCES ...) ; compiling (DEFUN MAKE-NUMERIC-TYPE ...) ; compiling (DEFUN MODIFIED-NUMERIC-TYPE ...) ; compiling (DEFSTRUCT (CHARACTER-SET-TYPE # ...) ...) ; compiling (DEFGLOBAL *CHARACTER-TYPE* ...) ; compiling (DEFGLOBAL *BASE-CHAR-TYPE* ...) ; compiling (DEFGLOBAL *EXTENDED-CHAR-TYPE* ...) ; compiling (DEFUN !INTERN-IMPORTANT-CHARACTER-SET-TYPE-INSTANCES ...) ; compiling (DEFUN MAKE-CHARACTER-SET-TYPE ...) ; compiling (DEFSTRUCT (ARRAY-TYPE # ...) ...) ; compiling (DEFGLOBAL *RANK-1-ARRAY-CTYPES* ...) ; compiling (DEFCONSTANT +CANON-ARRAY-CTYPE-HASH-DIVISOR+ ...) ; compiling (DEFUN !INTERN-IMPORTANT-ARRAY-TYPE-INSTANCES ...) ; compiling (DEFUN MAKE-ARRAY-TYPE ...) ; compiling (DEFSTRUCT (MEMBER-TYPE # ...) ...) ; compiling (DEFGLOBAL *NULL-TYPE* ...) ; compiling (DEFGLOBAL *EQL-T-TYPE* ...) ; compiling (DEFGLOBAL *BOOLEAN-TYPE* ...) ; compiling (DEFUN !INTERN-IMPORTANT-MEMBER-TYPE-INSTANCES ...) ; compiling (DEFUN MAKE-MEMBER-TYPE ...) ; compiling (DEFUN MEMBER-TYPE-SIZE ...) ; compiling (DEFUN MEMBER-TYPE-MEMBER-P ...) ; compiling (DEFUN MAPCAR-MEMBER-TYPE-MEMBERS ...) ; compiling (DEFUN MAPC-MEMBER-TYPE-MEMBERS ...) ; compiling (DEFUN MEMBER-TYPE-MEMBERS ...) ; compiling (DEFSTRUCT (COMPOUND-TYPE # ...) ...) ; compiling (DEFSTRUCT (UNION-TYPE # ...)) ; compiling (DEFSTRUCT (INTERSECTION-TYPE # ...)) ; compiling (DEFUN TYPE-*-TO-T ...) ; compiling (DEFSTRUCT (CONS-TYPE # ...) ...) ; compiling (DEFGLOBAL *CONS-T-T-TYPE* ...) ; compiling (DEFUN !INTERN-IMPORTANT-CONS-TYPE-INSTANCES ...) ; compiling (DEFUN MAKE-CONS-TYPE ...) ; compiling (DEFUN CONS-TYPE-LENGTH-INFO ...) ; compiling (DEFMACRO !VALUES-SPECIFIER-TYPE-BODY ...) ; compiling (LET (#) ...) ; compiling (DEFUN SPECIFIER-TYPE ...) ; compiling (DEFUN SINGLE-VALUE-SPECIFIER-TYPE ...) ; compiling (DEFUN TYPEXPAND-1 ...) ; compiling (DEFUN TYPEXPAND ...) ; compiling (DEFUN TYPEXPAND-ALL ...) ; compiling (DEFUN DEFINED-TYPE-NAME-P ...) ; compiling (DEFUN VALID-TYPE-SPECIFIER-P ...) ; compiling (DEFUN %NOTE-TYPE-DEFINED ...) ; compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !EARLY-TYPE-COLD-INIT) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-type.lisp ; in: DEFUN VALUES-SPECIFIER-TYPE ; (SB!KERNEL::!VALUES-SPECIFIER-TYPE-BODY SB!KERNEL::SPECIFIER) ; --> LET OR LET IF OR THE LET COND LET IF COND LET IF COND IF COND IF PROGN IF ; ==> ; (TYPEP SB!KERNEL::SPEC 'SB!KERNEL:BUILT-IN-CLASSOID) ; ; caught STYLE-WARNING: ; undefined type: BUILT-IN-CLASSOID ; --> LET OR LET IF OR THE LET COND LET IF COND LET IF COND IF COND IF PROGN IF ; --> OR LET ; ==> ; (SB!KERNEL:BUILT-IN-CLASSOID-TRANSLATION SB!KERNEL::SPEC) ; ; caught STYLE-WARNING: ; undefined function: BUILT-IN-CLASSOID-TRANSLATION ; --> LET OR LET IF OR THE LET COND LET IF COND LET IF COND IF COND IF ; ==> ; (TYPEP SB!KERNEL::SPEC 'SB!KERNEL:CLASSOID) ; ; caught STYLE-WARNING: ; undefined type: CLASSOID ; in: DEFUN CONS-TYPE-LENGTH-INFO ; (SB!KERNEL:CSUBTYPEP CDR (SB!KERNEL:SPECIFIER-TYPE 'NULL)) ; ; caught STYLE-WARNING: ; undefined function: CSUBTYPEP ; in: DEFUN MAKE-MEMBER-TYPE ; (SB!KERNEL:CTYPE-OF SB!KERNEL::Z) ; ; caught STYLE-WARNING: ; undefined function: CTYPE-OF ; in: DEFUN VALUES-SPECIFIER-TYPE ; (SB!KERNEL::!VALUES-SPECIFIER-TYPE-BODY SB!KERNEL::SPECIFIER) ; --> LET OR LET IF OR THE LET COND LET IF COND LET IF COND IF PROGN ; ==> ; (SB!KERNEL:FIND-CLASSOID SB!KERNEL::SPEC) ; ; caught STYLE-WARNING: ; undefined function: FIND-CLASSOID ; in: DEFUN PARSE-ARGS-TYPES ; #'SB!KERNEL:KEY-INFO-NAME ; ; caught STYLE-WARNING: ; undefined function: KEY-INFO-NAME ; (SB!KERNEL:MAKE-KEY-INFO :NAME SB!KERNEL::KWD :TYPE ; (SB!KERNEL:SINGLE-VALUE-SPECIFIER-TYPE (SECOND SB!KERNEL::KEY))) ; ; caught STYLE-WARNING: ; undefined function: MAKE-KEY-INFO ; (SB!INT:PARSE-LAMBDA-LIST-LIKE-THING SB!KERNEL::LAMBDA-LIST-LIKE-THING ; :SILENT T) ; ; caught STYLE-WARNING: ; undefined function: PARSE-LAMBDA-LIST-LIKE-THING ; in: DEFUN VALID-TYPE-SPECIFIER-P ; (HANDLER-CASE ; (PROG1 T (SB!KERNEL:VALUES-SPECIFIER-TYPE SB!KERNEL:TYPE-SPECIFIER)) ; (SB!KERNEL:PARSE-UNKNOWN-TYPE NIL NIL) (ERROR NIL NIL)) ; --> SB-INT:DX-FLET FLET BLOCK SB-INT:DX-LET LET TAGBODY ; --> SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET FLET BLOCK ; ==> ; (TYPEP CONDITION 'SB!KERNEL:PARSE-UNKNOWN-TYPE) ; ; caught STYLE-WARNING: ; undefined type: PARSE-UNKNOWN-TYPE ; in: DEFUN CONS-TYPE-LENGTH-INFO ; (SB!KERNEL:TYPE-INTERSECTION (SB!KERNEL:SPECIFIER-TYPE 'CONS) CDR) ; ; caught STYLE-WARNING: ; undefined function: TYPE-INTERSECTION ; in: DEFUN TYPEXPAND-ALL ; (SB!KERNEL:TYPE-SPECIFIER ; (SB!KERNEL:VALUES-SPECIFIER-TYPE SB!KERNEL:TYPE-SPECIFIER)) ; ; caught STYLE-WARNING: ; undefined function: TYPE-SPECIFIER ; in: DEFUN CONS-TYPE-LENGTH-INFO ; (SB!KERNEL:TYPE/= ; (SB!KERNEL:TYPE-INTERSECTION (SB!KERNEL:SPECIFIER-TYPE 'CONS) CDR) ; SB!KERNEL:*EMPTY-TYPE*) ; ; caught STYLE-WARNING: ; undefined function: TYPE/= ; in: DEFUN MAKE-CONS-TYPE ; (SB!KERNEL:TYPE= SB!KERNEL::CAR-TYPE SB!KERNEL:*UNIVERSAL-TYPE*) ; ; caught STYLE-WARNING: ; undefined function: TYPE= ; in: DEFUN TYPE-*-TO-T ; (SB!KERNEL:TYPE= TYPE SB!KERNEL:*WILD-TYPE*) ; ; caught STYLE-WARNING: ; undefined function: TYPE= ; ; compilation unit finished ; Undefined types: ; BUILT-IN-CLASSOID CLASSOID PARSE-UNKNOWN-TYPE ; Undefined functions: ; BUILT-IN-CLASSOID-TRANSLATION CSUBTYPEP CTYPE-OF FIND-CLASSOID KEY-INFO-NAME MAKE-KEY-INFO PARSE-LAMBDA-LIST-LIKE-THING TYPE-INTERSECTION TYPE-SPECIFIER TYPE/= TYPE= ; caught 15 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/early-type.fasl-tmp written ; compilation finished in 0:00:00.568 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/class.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS) ; compiling (DEF!STRUCT (CLASSOID # ...) ...) ; compiling (DEFUN CLASSOID-MAKE-LOAD-FORM-FUN ...) ; compiling (DEF!CONSTANT LAYOUT-CLOS-HASH-LIMIT ...) ; compiling (DEF!TYPE LAYOUT-CLOS-HASH ...) ; compiling (DEFVAR *!INITIAL-LAYOUTS*) ; compiling (DEFVAR *FORWARD-REFERENCED-LAYOUTS*) ; compiling (!COLD-INIT-FORMS (SETQ *FORWARD-REFERENCED-LAYOUTS* ...)) ; compiling (DEF!STRUCT (LAYOUT #) ...) ; compiling (DECLAIM (FREEZE-TYPE LAYOUT)) ; compiling (DECLAIM (INLINE LAYOUT-FOR-STD-CLASS-P)) ; compiling (DEFUN LAYOUT-FOR-STD-CLASS-P ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFUN LAYOUT-PROPER-NAME ...) ; compiling (DEFVAR *LAYOUT-CLOS-HASH-RANDOM-STATE*) ; compiling (DEFUN RANDOM-LAYOUT-CLOS-HASH ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN FIND-LAYOUT ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN %INIT-OR-CHECK-LAYOUT ...) ; compiling (DEFUN MAKE-LOAD-FORM-FOR-LAYOUT ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN REDEFINE-LAYOUT-WARNING ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN CHECK-LAYOUT ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN FIND-AND-INIT-OR-CHECK-LAYOUT ...) ; compiling (DEFUN REGISTER-LAYOUT ...) ; compiling (DEFUN ORDER-LAYOUT-INHERITS ...) ; compiling (DEFUN TOPOLOGICAL-SORT ...) ; compiling (DEFUN STD-COMPUTE-CLASS-PRECEDENCE-LIST ...) ; compiling (DEF!STRUCT (UNDEFINED-CLASSOID # ...)) ; compiling (DEF!STRUCT (BUILT-IN-CLASSOID # ...) ...) ; compiling (DEF!STRUCT (STRUCTURE-CLASSOID # ...)) ; compiling (DEFUN MAKE-STRUCTURE-CLASSOID ...) ; compiling (DEF!STRUCT (CLASSOID-CELL # ...) ...) ; compiling (DECLAIM (FREEZE-TYPE CLASSOID-CELL)) ; compiling (DEFUN FIND-CLASSOID-CELL ...) ; compiling (DEFUN FIND-CLASSOID ...) ; compiling (DEFUN (SETF FIND-CLASSOID) ...) ; compiling (DEFUN %CLEAR-CLASSOID ...) ; compiling (DEFUN INSURED-FIND-CLASSOID ...) ; compiling (DEFUN CLASSOID-PROPER-NAME ...) ; compiling (DEFUN CLASSOID-ENUMERABLE-P ...) ; compiling (!DEFINE-TYPE-CLASS CLASSOID ...) ; compiling (DEFUN %ENSURE-CLASSOID-VALID ...) ; compiling (DEFUN %ENSURE-BOTH-CLASSOIDS-VALID ...) ; compiling (DEFUN UPDATE-OBJECT-LAYOUT-OR-INVALID ...) ; compiling (!DEFINE-TYPE-METHOD (CLASSOID :SIMPLE-=) ...) ; compiling (!DEFINE-TYPE-METHOD (CLASSOID :SIMPLE-SUBTYPEP) ...) ; compiling (DEFUN SEALED-CLASS-INTERSECTION2 ...) ; compiling (!DEFINE-TYPE-METHOD (CLASSOID :SIMPLE-INTERSECTION2) ...) ; compiling (DEFVAR *NON-INSTANCE-CLASSOID-TYPES* ...) ; compiling (!DEFINE-TYPE-METHOD (CLASSOID :COMPLEX-SUBTYPEP-ARG2) ...) ; compiling (!DEFINE-TYPE-METHOD (CLASSOID :NEGATE) ...) ; compiling (!DEFINE-TYPE-METHOD (CLASSOID :UNPARSE) ...) ; compiling (DEF!STRUCT (STANDARD-CLASSOID # ...)) ; compiling (DEF!STRUCT (STATIC-CLASSOID # ...)) ; compiling (!DEFVAR *!BUILT-IN-CLASSES* ...) ; compiling (!COLD-INIT-FORMS (DOLIST # ...) ...) ; compiling (!COLD-INIT-FORMS (/SHOW0 "about to define temporary STANDARD-CLASSes") ...) ; compiling (!COLD-INIT-FORMS (DOLIST # ...)) ; compiling (DEFUN %MODIFY-CLASSOID ...) ; compiling (DEFUN %INVALIDATE-LAYOUT ...) ; compiling (DEFUN !CLASS-FINALIZE ...) ; compiling (!COLD-INIT-FORMS (SETQ **BUILT-IN-CLASS-CODES** ...)) ; compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !CLASSES-COLD-INIT) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/class.lisp ; in: DEFUN %ENSURE-CLASSOID-VALID ; (SB!PCL::%FORCE-CACHE-FLUSHES CLASS) ; ; caught STYLE-WARNING: ; undefined function: SB!PCL::%FORCE-CACHE-FLUSHES ; in: DEFUN UPDATE-OBJECT-LAYOUT-OR-INVALID ; (SB!C::%LAYOUT-INVALID-ERROR SB!KERNEL::OBJECT SB!KERNEL:LAYOUT) ; ; caught STYLE-WARNING: ; undefined function: SB!C::%LAYOUT-INVALID-ERROR ; (SB!PCL::CHECK-WRAPPER-VALIDITY SB!KERNEL::OBJECT) ; ; caught STYLE-WARNING: ; undefined function: SB!PCL::CHECK-WRAPPER-VALIDITY ; in: DEFUN %ENSURE-CLASSOID-VALID ; (SB!MOP:CLASS-FINALIZED-P CLASS) ; ; caught STYLE-WARNING: ; undefined function: SB!MOP:CLASS-FINALIZED-P ; in: !DEFINE-TYPE-METHOD (CLASSOID :SIMPLE-SUBTYPEP) ; (SB!PCL::CLASS-HAS-A-FORWARD-REFERENCED-SUPERCLASS-P ; (SB!KERNEL:CLASSOID-PCL-CLASS SB!KERNEL::CLASS2)) ; ; caught STYLE-WARNING: ; undefined function: SB!PCL::CLASS-HAS-A-FORWARD-REFERENCED-SUPERCLASS-P ; in: DEFUN %ENSURE-CLASSOID-VALID ; (SB!PCL::CLASS-HAS-A-FORWARD-REFERENCED-SUPERCLASS-P CLASS) ; ; caught STYLE-WARNING: ; undefined function: SB!PCL::CLASS-HAS-A-FORWARD-REFERENCED-SUPERCLASS-P ; in: DEFUN %MODIFY-CLASSOID ; (SB!KERNEL::CLEAR-TYPE-CACHES) ; ; caught STYLE-WARNING: ; undefined function: CLEAR-TYPE-CACHES ; in: DEFUN MAKE-LOAD-FORM-FOR-LAYOUT ; (SB!KERNEL::COMPILER-ERROR "can't dump reference to obsolete class: ~S" ; (SB!KERNEL:LAYOUT-CLASSOID SB!KERNEL:LAYOUT)) ; ; caught STYLE-WARNING: ; undefined function: COMPILER-ERROR ; in: DEFUN %ENSURE-CLASSOID-VALID ; (SB!MOP:FINALIZE-INHERITANCE CLASS) ; ; caught STYLE-WARNING: ; undefined function: SB!MOP:FINALIZE-INHERITANCE ; in: DEFUN UPDATE-OBJECT-LAYOUT-OR-INVALID ; (SB!KERNEL:LAYOUT-OF SB!KERNEL::OBJECT) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-OF ; in: DEFUN SEALED-CLASS-INTERSECTION2 ; (SB!KERNEL::RES (SB!KERNEL:SPECIFIER-TYPE SB!KERNEL::SUBCLASS)) ; --> PROGN SETQ THE ; ==> ; (SB!KERNEL:TYPE-UNION (SB!KERNEL:SPECIFIER-TYPE SB!KERNEL::SUBCLASS) ; #:RES-N-VALUE-2434) ; ; caught STYLE-WARNING: ; undefined function: TYPE-UNION ; ; compilation unit finished ; Undefined functions: ; SB!PCL::%FORCE-CACHE-FLUSHES SB!C::%LAYOUT-INVALID-ERROR SB!PCL::CHECK-WRAPPER-VALIDITY SB!MOP:CLASS-FINALIZED-P SB!PCL::CLASS-HAS-A-FORWARD-REFERENCED-SUPERCLASS-P CLEAR-TYPE-CACHES COMPILER-ERROR SB!MOP:FINALIZE-INHERITANCE LAYOUT-OF TYPE-UNION ; caught 11 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/class.fasl-tmp written ; compilation finished in 0:00:00.665 /done with loop over *!BUILT-IN-CLASSES* /about to define temporary STANDARD-CLASSes /defining temporary STANDARD-CLASS /done defining temporary STANDARD-CLASSes ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/primtype.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (/SHOW0 "primtype.lisp 17") ; compiling (!DEF-PRIMITIVE-TYPE T ...) ; compiling (/SHOW0 "primtype.lisp 20") ; compiling (SETF *BACKEND-T-PRIMITIVE-TYPE* ...) ; compiling (/SHOW0 "primtype.lisp 24") ; compiling (!DEF-PRIMITIVE-TYPE POSITIVE-FIXNUM ...) ; compiling (/SHOW0 "primtype.lisp 27") ; compiling (!DEF-PRIMITIVE-TYPE UNSIGNED-BYTE-31 ...) ; compiling (/SHOW0 "primtype.lisp 31") ; compiling (!DEF-PRIMITIVE-TYPE UNSIGNED-BYTE-32 ...) ; compiling (/SHOW0 "primtype.lisp 35") ; compiling (!DEF-PRIMITIVE-TYPE FIXNUM ...) ; compiling (!DEF-PRIMITIVE-TYPE SIGNED-BYTE-32 ...) ; compiling (DEFVAR *FIXNUM-PRIMITIVE-TYPE* ...) ; compiling (/SHOW0 "primtype.lisp 53") ; compiling (!DEF-PRIMITIVE-TYPE-ALIAS TAGGED-NUM ...) ; compiling (MULTIPLE-VALUE-BIND (UNSIGNED SIGNED) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/primtype.lisp ; in: MULTIPLE-VALUE-BIND (UNSIGNED SIGNED) ; '(SB!VM::UNSIGNED-BYTE-64 SB!VM::UNSIGNED-BYTE-63 SB!VM::POSITIVE-FIXNUM) ; ; note: deleting unreachable code ; compiling (/SHOW0 "primtype.lisp 68") ; compiling (!DEF-PRIMITIVE-TYPE CHARACTER ...) ; compiling (/SHOW0 "primtype.lisp 73") ; compiling (!DEF-PRIMITIVE-TYPE FUNCTION ...) ; compiling (!DEF-PRIMITIVE-TYPE LIST ...) ; compiling (!DEF-PRIMITIVE-TYPE INSTANCE ...) ; compiling (/SHOW0 "primtype.lisp 77") ; compiling (!DEF-PRIMITIVE-TYPE FUNCALLABLE-INSTANCE ...) ; compiling (/SHOW0 "primtype.lisp 81") ; compiling (!DEF-PRIMITIVE-TYPE BIGNUM ...) ; compiling (!DEF-PRIMITIVE-TYPE RATIO ...) ; compiling (!DEF-PRIMITIVE-TYPE COMPLEX ...) ; compiling (/SHOW0 "about to !DEF-PRIMITIVE-TYPE SINGLE-FLOAT") ; compiling (!DEF-PRIMITIVE-TYPE SINGLE-FLOAT ...) ; compiling (/SHOW0 "about to !DEF-PRIMITIVE-TYPE DOUBLE-FLOAT") ; compiling (!DEF-PRIMITIVE-TYPE DOUBLE-FLOAT ...) ; compiling (/SHOW0 "about to !DEF-PRIMITIVE-TYPE COMPLEX-SINGLE-FLOAT") ; compiling (!DEF-PRIMITIVE-TYPE COMPLEX-SINGLE-FLOAT ...) ; compiling (/SHOW0 "about to !DEF-PRIMITIVE-TYPE COMPLEX-DOUBLE-FLOAT") ; compiling (!DEF-PRIMITIVE-TYPE COMPLEX-DOUBLE-FLOAT ...) ; compiling (/SHOW0 "primtype.lisp 96") ; compiling (DEFINE-SIMPLE-ARRAY-PRIMITIVE-TYPES) ; compiling (!DEF-PRIMITIVE-TYPE SYSTEM-AREA-POINTER ...) ; compiling (!DEF-PRIMITIVE-TYPE WEAK-POINTER ...) ; compiling (!DEF-PRIMITIVE-TYPE CATCH-BLOCK ...) ; compiling (/SHOW0 "primtype.lisp 147") ; compiling (DEFUN PRIMITIVE-TYPE-OF ...) ; compiling (/SHOW0 "primtype.lisp 188") ; compiling (DEFUN PRIMITIVE-TYPE ...) ; compiling (/SHOW0 "primtype.lisp 191") ; compiling (DEFUN-CACHED (PRIMITIVE-TYPE-AUX :HASH-FUNCTION ...) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/primtype.lisp ; in: ; DEFUN-CACHED (PRIMITIVE-TYPE-AUX :HASH-FUNCTION #'TYPE-HASH-VALUE :HASH-BITS 9 ; ...) ; 'SB!VM::SIGNED-BYTE-64 ; ; note: deleting unreachable code ; 'SB!VM::UNSIGNED-BYTE-63 ; ; note: deleting unreachable code ; 'SB!VM::UNSIGNED-BYTE-64 ; ; note: deleting unreachable code ; 'SB!VM::SIGNED-BYTE-64 ; ; note: deleting unreachable code ; 'SB!VM::UNSIGNED-BYTE-63 ; ; note: deleting unreachable code ; 'SB!VM::UNSIGNED-BYTE-64 ; ; note: deleting unreachable code ; compiling (/SHOW0 "primtype.lisp end of file") ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/primtype.lisp ; in: ; DEFUN-CACHED (PRIMITIVE-TYPE-AUX :HASH-FUNCTION #'TYPE-HASH-VALUE :HASH-BITS 9 ; ...) ; (SB!KERNEL:CSUBTYPEP TYPE (SB!KERNEL:SPECIFIER-TYPE 'FUNCTION)) ; ; caught STYLE-WARNING: ; undefined function: CSUBTYPEP ; in: DEFUN PRIMITIVE-TYPE-OF ; (SB!KERNEL:CTYPE-OF SB!VM::OBJECT) ; ; caught STYLE-WARNING: ; undefined function: CTYPE-OF ; in: ; DEFUN-CACHED (PRIMITIVE-TYPE-AUX :HASH-FUNCTION #'TYPE-HASH-VALUE :HASH-BITS 9 ; ...) ; (SB!KERNEL:TYPE-SPECIFIER SB!VM::ETYPE) ; ; caught STYLE-WARNING: ; undefined function: TYPE-SPECIFIER ; (SB!KERNEL:TYPE= TYPE (SB!KERNEL:SPECIFIER-TYPE 'LIST)) ; ; caught STYLE-WARNING: ; undefined function: TYPE= ; ; compilation unit finished ; Undefined functions: ; CSUBTYPEP CTYPE-OF TYPE-SPECIFIER TYPE= ; caught 4 STYLE-WARNING conditions ; printed 7 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/generic/primtype.fasl-tmp written ; compilation finished in 0:00:00.199 /primtype.lisp 17 /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) T /done with !DEF-PRIMITIVE-TYPE /primtype.lisp 20 /primtype.lisp 24 /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) POSITIVE-FIXNUM /done with !DEF-PRIMITIVE-TYPE /primtype.lisp 27 /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) UNSIGNED-BYTE-31 /done with !DEF-PRIMITIVE-TYPE /primtype.lisp 31 /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) UNSIGNED-BYTE-32 /done with !DEF-PRIMITIVE-TYPE /primtype.lisp 35 /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) FIXNUM /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SIGNED-BYTE-32 /done with !DEF-PRIMITIVE-TYPE /primtype.lisp 53 /primtype.lisp 68 /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) CHARACTER /done with !DEF-PRIMITIVE-TYPE /primtype.lisp 73 /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) FUNCTION /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) LIST /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) INSTANCE /done with !DEF-PRIMITIVE-TYPE /primtype.lisp 77 /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) FUNCALLABLE-INSTANCE /done with !DEF-PRIMITIVE-TYPE /primtype.lisp 81 /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) BIGNUM /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) RATIO /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) COMPLEX /done with !DEF-PRIMITIVE-TYPE /about to !DEF-PRIMITIVE-TYPE SINGLE-FLOAT /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SINGLE-FLOAT /done with !DEF-PRIMITIVE-TYPE /about to !DEF-PRIMITIVE-TYPE DOUBLE-FLOAT /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) DOUBLE-FLOAT /done with !DEF-PRIMITIVE-TYPE /about to !DEF-PRIMITIVE-TYPE COMPLEX-SINGLE-FLOAT /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) COMPLEX-SINGLE-FLOAT /done with !DEF-PRIMITIVE-TYPE /about to !DEF-PRIMITIVE-TYPE COMPLEX-DOUBLE-FLOAT /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) COMPLEX-DOUBLE-FLOAT /done with !DEF-PRIMITIVE-TYPE /primtype.lisp 96 /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SIMPLE-ARRAY-NIL /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SIMPLE-BASE-STRING /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SIMPLE-CHARACTER-STRING /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SIMPLE-ARRAY-SINGLE-FLOAT /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SIMPLE-ARRAY-DOUBLE-FLOAT /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SIMPLE-BIT-VECTOR /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SIMPLE-ARRAY-UNSIGNED-BYTE-2 /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SIMPLE-ARRAY-UNSIGNED-BYTE-4 /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SIMPLE-ARRAY-UNSIGNED-BYTE-7 /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SIMPLE-ARRAY-UNSIGNED-BYTE-8 /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SIMPLE-ARRAY-UNSIGNED-BYTE-15 /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SIMPLE-ARRAY-UNSIGNED-BYTE-16 /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SIMPLE-ARRAY-UNSIGNED-FIXNUM /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SIMPLE-ARRAY-UNSIGNED-BYTE-31 /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SIMPLE-ARRAY-UNSIGNED-BYTE-32 /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SIMPLE-ARRAY-SIGNED-BYTE-8 /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SIMPLE-ARRAY-SIGNED-BYTE-16 /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SIMPLE-ARRAY-FIXNUM /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SIMPLE-ARRAY-SIGNED-BYTE-32 /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SIMPLE-VECTOR /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SYSTEM-AREA-POINTER /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) WEAK-POINTER /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) CATCH-BLOCK /done with !DEF-PRIMITIVE-TYPE /primtype.lisp 147 /primtype.lisp 188 /primtype.lisp 191 /primtype.lisp end of file ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/parse-lambda-list.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (/SHOW0 "parse-lambda-list.lisp 12") ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN PARSE-LAMBDA-LIST-LIKE-THING ...) ; compiling (DEFUN PARSE-LAMBDA-LIST ...) ; compiling (/SHOW0 "parse-lambda-list.lisp end of file") ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/parse-lambda-list.lisp ; in: DEFUN PARSE-LAMBDA-LIST ; (SB!C:COMPILER-ERROR "~A is not a symbol: ~S" SB!C::WHY SB!C::X) ; ; caught STYLE-WARNING: ; undefined function: COMPILER-ERROR ; in: DEFUN PARSE-LAMBDA-LIST-LIKE-THING ; (SB!C:COMPILER-ERROR "misplaced &OPTIONAL in lambda list: ~S" LIST) ; ; caught STYLE-WARNING: ; undefined function: COMPILER-ERROR ; (SB!INT:STYLE-WARN "suspicious variable in lambda list: ~S." SB!C::ARG) ; ; caught STYLE-WARNING: ; undefined function: STYLE-WARN ; ; compilation unit finished ; Undefined functions: ; COMPILER-ERROR STYLE-WARN ; caught 3 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/parse-lambda-list.fasl-tmp written ; compilation finished in 0:00:00.041 /parse-lambda-list.lisp 12 /parse-lambda-list.lisp end of file ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/host-alieneval.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!ALIEN") ; compiling (/SHOW0 "host-alieneval.lisp 15") ; compiling (DEFUN ALIGN-OFFSET ...) ; compiling (DEFUN GUESS-ALIGNMENT ...) ; compiling (DEFSTRUCT (ALIEN-TYPE-CLASS #) ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFUN ALIEN-TYPE-CLASS-OR-LOSE ...) ; compiling (DEFUN CREATE-ALIEN-TYPE-CLASS-IF-NECESSARY ...) ; compiling (DEFPARAMETER *METHOD-SLOT-ALIST* ...) ; compiling (DEFUN METHOD-SLOT ...) ; compiling (DEF!MACRO DEFINE-ALIEN-TYPE-CLASS ...) ; compiling (DEF!MACRO DEFINE-ALIEN-TYPE-METHOD ...) ; compiling (DEF!MACRO INVOKE-ALIEN-TYPE-METHOD ...) ; compiling (DEFUN AUXILIARY-TYPE-DEFINITIONS ...) ; compiling (DEF!MACRO WITH-AUXILIARY-ALIEN-TYPES ...) ; compiling (DEFUN PARSE-ALIEN-TYPE ...) ; compiling (DEFUN AUXILIARY-ALIEN-TYPE ...) ; compiling (DEFUN (SETF AUXILIARY-ALIEN-TYPE) ...) ; compiling (DEFUN VERIFY-LOCAL-AUXILIARIES-OKAY ...) ; compiling (DEFUN UNPARSE-ALIEN-TYPE ...) ; compiling (DEFUN %UNPARSE-ALIEN-TYPE ...) ; compiling (DEF!MACRO DEFINE-ALIEN-TYPE-TRANSLATOR ...) ; compiling (DEFUN %DEFINE-ALIEN-TYPE-TRANSLATOR ...) ; compiling (DEF!MACRO DEFINE-ALIEN-TYPE ...) ; compiling (DEFUN %DEF-AUXILIARY-ALIEN-TYPES ...) ; compiling (DEFUN %DEFINE-ALIEN-TYPE ...) ; compiling (CREATE-ALIEN-TYPE-CLASS-IF-NECESSARY (QUOTE ROOT) ...) ; compiling (DEF!STRUCT (ALIEN-TYPE # ...) ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFINE-ALIEN-TYPE-CLASS (SYSTEM-AREA-POINTER)) ; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR SYSTEM-AREA-POINTER ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :UNPARSE) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :LISP-REP) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :ALIEN-REP) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :NATURALIZE-GEN) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :DEPORT-GEN) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :EXTRACT-GEN) ...) ; compiling (DEFINE-ALIEN-TYPE-CLASS (ALIEN-VALUE :INCLUDE ...)) ; compiling (DEFINE-ALIEN-TYPE-METHOD (ALIEN-VALUE :LISP-REP) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (ALIEN-VALUE :NATURALIZE-GEN) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (ALIEN-VALUE :DEPORT-GEN) ...) ; compiling (DEF!STRUCT (HEAP-ALIEN-INFO #) ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFUN HEAP-ALIEN-INFO-SAP-FORM ...) ; compiling (DEFUN HEAP-ALIEN-INFO-SAP ...) ; compiling (DEFUN ALIEN-TYPE-= ...) ; compiling (DEFUN ALIEN-SUBTYPE-P ...) ; compiling (DEFUN COMPUTE-NATURALIZE-LAMBDA ...) ; compiling (DEFUN COMPUTE-DEPORT-LAMBDA ...) ; compiling (DEFUN COMPUTE-DEPORT-ALLOC-LAMBDA ...) ; compiling (DEFUN COMPUTE-EXTRACT-LAMBDA ...) ; compiling (DEF!MACRO MAYBE-WITH-PINNED-OBJECTS ...) ; compiling (DEFUN COMPUTE-DEPOSIT-LAMBDA ...) ; compiling (DEFUN COMPUTE-LISP-REP-TYPE ...) ; compiling (DEFUN COMPUTE-ALIEN-REP-TYPE ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :UNPARSE) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :TYPE=) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :SUBTYPEP) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :LISP-REP) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :ALIEN-REP) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :NATURALIZE-GEN) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :DEPORT-GEN) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :DEPORT-ALLOC-GEN) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :DEPORT-PIN-P) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :EXTRACT-GEN) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :DEPOSIT-GEN) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :ARG-TN) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :RESULT-TN) ...) ; compiling (DEFINE-ALIEN-TYPE-CLASS (INTEGER) ...) ; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR SIGNED ...) ; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR INTEGER ...) ; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR UNSIGNED ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :UNPARSE) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :TYPE=) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :LISP-REP) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :ALIEN-REP) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :DEPORT-GEN) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :EXTRACT-GEN) ...) ; compiling (DEFINE-ALIEN-TYPE-CLASS (BOOLEAN :INCLUDE ...)) ; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR BOOLEAN ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (BOOLEAN :UNPARSE) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (BOOLEAN :LISP-REP) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (BOOLEAN :NATURALIZE-GEN) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (BOOLEAN :DEPORT-GEN) ...) ; compiling (DEFINE-ALIEN-TYPE-CLASS (ENUM :INCLUDE ...) ...) ; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR ENUM ...) ; compiling (DEFUN PARSE-ENUM ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (ENUM :UNPARSE) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (ENUM :TYPE=) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (ENUM :LISP-REP) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (ENUM :NATURALIZE-GEN) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (ENUM :DEPORT-GEN) ...) ; compiling (DEFINE-ALIEN-TYPE-CLASS (FLOAT) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (FLOAT :UNPARSE) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (FLOAT :LISP-REP) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (FLOAT :ALIEN-REP) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (FLOAT :NATURALIZE-GEN) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (FLOAT :DEPORT-GEN) ...) ; compiling (DEFINE-ALIEN-TYPE-CLASS (SINGLE-FLOAT :INCLUDE ...)) ; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR SINGLE-FLOAT ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (SINGLE-FLOAT :EXTRACT-GEN) ...) ; compiling (DEFINE-ALIEN-TYPE-CLASS (DOUBLE-FLOAT :INCLUDE ...)) ; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR DOUBLE-FLOAT ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (DOUBLE-FLOAT :EXTRACT-GEN) ...) ; compiling (DEFINE-ALIEN-TYPE-CLASS (POINTER :INCLUDE ...) ...) ; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR * ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (POINTER :UNPARSE) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (POINTER :TYPE=) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (POINTER :SUBTYPEP) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (POINTER :DEPORT-GEN) ...) ; compiling (DEFINE-ALIEN-TYPE-CLASS (MEM-BLOCK :INCLUDE ...)) ; compiling (DEFINE-ALIEN-TYPE-METHOD (MEM-BLOCK :EXTRACT-GEN) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (MEM-BLOCK :DEPOSIT-GEN) ...) ; compiling (DEFINE-ALIEN-TYPE-CLASS (ARRAY :INCLUDE ...) ...) ; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR ARRAY ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (ARRAY :UNPARSE) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (ARRAY :TYPE=) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (ARRAY :SUBTYPEP) ...) ; compiling (DEF!STRUCT (ALIEN-RECORD-FIELD #) ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFINE-ALIEN-TYPE-CLASS (RECORD :INCLUDE ...) ...) ; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR STRUCT ...) ; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR UNION ...) ; compiling (DEFUN PARSE-ALIEN-RECORD-TYPE ...) ; compiling (DEFUN PARSE-ALIEN-RECORD-FIELDS ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (RECORD :UNPARSE) ...) ; compiling (DEFUN UNPARSE-ALIEN-RECORD-KIND ...) ; compiling (DEFUN UNPARSE-ALIEN-RECORD-FIELD ...) ; compiling (DEFUN RECORD-FIELDS-MATCH-P ...) ; compiling (DEFVAR *ALIEN-TYPE-MATCHES* ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (RECORD :TYPE=) ...) ; compiling (DEF!TYPE CALLING-CONVENTION ...) ; compiling (DEFINE-ALIEN-TYPE-CLASS (FUN :INCLUDE ...) ...) ; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR FUNCTION ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (FUN :UNPARSE) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (FUN :TYPE=) ...) ; compiling (DEFINE-ALIEN-TYPE-CLASS (VALUES) ...) ; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR VALUES ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (VALUES :UNPARSE) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (VALUES :TYPE=) ...) ; compiling (DEF!STRUCT (LOCAL-ALIEN-INFO # ...) ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFMACRO-MUNDANELY ADDR ...) ; compiling (/SHOW0 "host-alieneval.lisp end of file") ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/host-alieneval.lisp ; in: DEFMACRO-MUNDANELY ADDR ; (SB!INT:%MACROEXPAND SB!ALIEN::EXPR SB!ALIEN::ENV) ; ; caught STYLE-WARNING: ; undefined function: %MACROEXPAND ; in: DEFUN AUXILIARY-TYPE-DEFINITIONS ; (SB!INT:%MACROEXPAND 'SB!ALIEN::&AUXILIARY-TYPE-DEFINITIONS& SB!ALIEN::ENV) ; ; caught STYLE-WARNING: ; undefined function: %MACROEXPAND ; in: DEFINE-ALIEN-TYPE-TRANSLATOR ENUM ; (SETF (SB!ALIEN::ALIEN-TYPE-FROM SB!ALIEN::OLD) ; (SB!ALIEN::ALIEN-TYPE-FROM SB!ALIEN::RESULT) ; (SB!ALIEN::ALIEN-TYPE-TO SB!ALIEN::OLD) ; (SB!ALIEN::ALIEN-TYPE-TO SB!ALIEN::RESULT) ; (SB!ALIEN::ALIEN-TYPE-KIND SB!ALIEN::OLD) ; (SB!ALIEN::ALIEN-TYPE-KIND SB!ALIEN::RESULT) ; (SB!ALIEN::ALIEN-TYPE-OFFSET SB!ALIEN::OLD) ; (SB!ALIEN::ALIEN-TYPE-OFFSET SB!ALIEN::RESULT) ; (SB!ALIEN::ALIEN-TYPE-SIGNED SB!ALIEN::OLD) ; (SB!ALIEN::ALIEN-TYPE-SIGNED SB!ALIEN::RESULT)) ; --> PROGN SETF LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB-C::%FUNCALL #'(SETF SB!ALIEN::ALIEN-TYPE-FROM) #:NEW1 #:OLD2) ; ; caught STYLE-WARNING: ; undefined function: (SETF ALIEN-TYPE-FROM) ; ==> ; (SB-C::%FUNCALL #'(SETF SB!ALIEN::ALIEN-TYPE-KIND) #:NEW5 #:OLD6) ; ; caught STYLE-WARNING: ; undefined function: (SETF ALIEN-TYPE-KIND) ; ==> ; (SB-C::%FUNCALL #'(SETF SB!ALIEN::ALIEN-TYPE-OFFSET) #:NEW7 #:OLD8) ; ; caught STYLE-WARNING: ; undefined function: (SETF ALIEN-TYPE-OFFSET) ; ==> ; (SB-C::%FUNCALL #'(SETF SB!ALIEN::ALIEN-TYPE-SIGNED) #:NEW9 #:OLD10) ; ; caught STYLE-WARNING: ; undefined function: (SETF ALIEN-TYPE-SIGNED) ; ==> ; (SB-C::%FUNCALL #'(SETF SB!ALIEN::ALIEN-TYPE-TO) #:NEW3 #:OLD4) ; ; caught STYLE-WARNING: ; undefined function: (SETF ALIEN-TYPE-TO) ; (SB!ALIEN::ALIEN-TYPE-FROM SB!ALIEN::RESULT) ; ; caught STYLE-WARNING: ; undefined function: ALIEN-TYPE-FROM ; (SB!ALIEN::ALIEN-TYPE-KIND SB!ALIEN::RESULT) ; ; caught STYLE-WARNING: ; undefined function: ALIEN-TYPE-KIND ; (SB!ALIEN::ALIEN-TYPE-OFFSET SB!ALIEN::RESULT) ; ; caught STYLE-WARNING: ; undefined function: ALIEN-TYPE-OFFSET ; (SB!ALIEN::ALIEN-TYPE-SIGNED SB!ALIEN::RESULT) ; ; caught STYLE-WARNING: ; undefined function: ALIEN-TYPE-SIGNED ; (SB!ALIEN::ALIEN-TYPE-TO SB!ALIEN::RESULT) ; ; caught STYLE-WARNING: ; undefined function: ALIEN-TYPE-TO ; in: DEFUN HEAP-ALIEN-INFO-SAP ; (SB!SYS:FOREIGN-SYMBOL-SAP (SB!ALIEN::HEAP-ALIEN-INFO-ALIEN-NAME SB!INT:INFO) ; (SB!ALIEN::HEAP-ALIEN-INFO-DATAP SB!INT:INFO)) ; ; caught STYLE-WARNING: ; undefined function: FOREIGN-SYMBOL-SAP ; in: DEFUN AUXILIARY-ALIEN-TYPE ; (DEFUN SB!ALIEN::AUXILIARY-ALIEN-TYPE ; (SB!ALIEN::KIND SB!ALIEN::NAME SB!ALIEN::ENV) ; (DECLARE (TYPE (OR SB!KERNEL:LEXENV NULL) SB!ALIEN::ENV)) ; (FLET ((SB!ALIEN::AUX-DEFN-MATCHES (SB!ALIEN::X) ; (AND # #))) ; (LET ((SB!ALIEN::IN-AUXILIARIES #)) ; (IF SB!ALIEN::IN-AUXILIARIES ; (VALUES # T) ; (ECASE SB!ALIEN::KIND # # #))))) ; --> PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF ; --> TYPEP LET SB-C::%TYPEP-WRAPPER LET OR LET ; ==> ; (TYPEP #:N-OBJ810 'SB!KERNEL:LEXENV) ; ; caught STYLE-WARNING: ; undefined type: SB!KERNEL:LEXENV ; in: DEFUN PARSE-ALIEN-TYPE ; (DEFUN SB!ALIEN-INTERNALS:PARSE-ALIEN-TYPE (TYPE SB!ALIEN::ENV) ; (DECLARE (TYPE (OR SB!KERNEL:LEXENV NULL) SB!ALIEN::ENV)) ; (IF (CONSP TYPE) ; (LET ((SB!ALIEN::TRANSLATOR #)) ; (UNLESS SB!ALIEN::TRANSLATOR (ERROR "unknown alien type: ~S" TYPE)) ; (FUNCALL SB!ALIEN::TRANSLATOR TYPE SB!ALIEN::ENV)) ; (ECASE (SB!INT:INFO :ALIEN-TYPE :KIND TYPE) ; (:PRIMITIVE ; (LET # ; # ; #)) ; (:DEFINED (OR # #)) ; (:UNKNOWN (ERROR "unknown alien type: ~S" TYPE))))) ; --> PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF ; --> TYPEP LET SB-C::%TYPEP-WRAPPER LET OR LET ; ==> ; (TYPEP #:N-OBJ748 'SB!KERNEL:LEXENV) ; ; caught STYLE-WARNING: ; undefined type: SB!KERNEL:LEXENV ; (TYPE (OR SB!KERNEL:LEXENV NULL) SB!ALIEN::ENV) ; ; caught STYLE-WARNING: ; undefined type: SB!KERNEL:LEXENV ; ; caught STYLE-WARNING: ; 8 more uses of undefined type SB!KERNEL:LEXENV ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/host-alieneval.lisp ; in: DEFUN PARSE-ENUM ; (SB!INT:STYLE-WARN "The element value ~S is used more than once." ; SB!ALIEN::VAL) ; ; caught STYLE-WARNING: ; undefined function: STYLE-WARN ; ; compilation unit finished ; Undefined type: ; SB!KERNEL:LEXENV ; Undefined functions: ; %MACROEXPAND (SETF ALIEN-TYPE-FROM) (SETF ALIEN-TYPE-KIND) (SETF ALIEN-TYPE-OFFSET) (SETF ALIEN-TYPE-SIGNED) (SETF ALIEN-TYPE-TO) ALIEN-TYPE-FROM ALIEN-TYPE-KIND ALIEN-TYPE-OFFSET ALIEN-TYPE-SIGNED ALIEN-TYPE-TO FOREIGN-SYMBOL-SAP STYLE-WARN ; caught 18 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/host-alieneval.fasl-tmp written ; compilation finished in 0:00:01.197 /host-alieneval.lisp 15 /host-alieneval.lisp end of file ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/host-c-call.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!ALIEN") ; compiling (/SHOW0 "host-c-call.lisp 12") ; compiling (DEFINE-ALIEN-TYPE-CLASS (C-STRING :INCLUDE ...) ...) ; compiling (DEFINE-ALIEN-TYPE-TRANSLATOR C-STRING ...) ; compiling (DEFUN C-STRING-EXTERNAL-FORMAT ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (C-STRING :UNPARSE) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (C-STRING :LISP-REP) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (C-STRING :DEPORT-PIN-P) ...) ; compiling (DEFUN C-STRING-NEEDS-CONVERSION-P ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN NULL-ERROR ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (C-STRING :NATURALIZE-GEN) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (C-STRING :DEPORT-GEN) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (C-STRING :DEPORT-ALLOC-GEN) ...) ; compiling (/SHOW0 "host-c-call.lisp end of file") ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/host-c-call.lisp ; in: DEFUN C-STRING-EXTERNAL-FORMAT => DEFAULT-C-STRING-EXTERNAL-FORMAT ; (SB!ALIEN::DEFAULT-C-STRING-EXTERNAL-FORMAT) ; ; caught STYLE-WARNING: ; undefined function: DEFAULT-C-STRING-EXTERNAL-FORMAT ; in: DEFINE-ALIEN-TYPE-TRANSLATOR C-STRING ; (SB!ALIEN-INTERNALS:PARSE-ALIEN-TYPE 'CHAR (SB!KERNEL:MAKE-NULL-LEXENV)) ; ; caught STYLE-WARNING: ; undefined type: SB!KERNEL:LEXENV ; (SB!KERNEL:MAKE-NULL-LEXENV) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL:MAKE-NULL-LEXENV ; ; compilation unit finished ; Undefined type: ; SB!KERNEL:LEXENV ; Undefined functions: ; DEFAULT-C-STRING-EXTERNAL-FORMAT SB!KERNEL:MAKE-NULL-LEXENV ; caught 3 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/host-c-call.fasl-tmp written ; compilation finished in 0:00:00.067 /host-c-call.lisp 12 /host-c-call.lisp end of file ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/compiler-deftype.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (/SHOW0 "compiler-deftype.lisp 14") ; compiling (DEFUN %COMPILER-DEFTYPE ...) ; compiling (/SHOW0 "compiler-deftype.lisp end of file") ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/compiler-deftype.lisp ; in: DEFUN %COMPILER-DEFTYPE ; (SB!KERNEL:UNDECLARE-STRUCTURE (SB!KERNEL:FIND-CLASSOID SB!IMPL::NAME) T) ; ; caught STYLE-WARNING: ; undefined function: UNDECLARE-STRUCTURE ; ; compilation unit finished ; Undefined function: ; UNDECLARE-STRUCTURE ; caught 1 STYLE-WARNING condition ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/compiler-deftype.fasl-tmp written ; compilation finished in 0:00:00.037 /compiler-deftype.lisp 14 /compiler-deftype.lisp end of file ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/late-type.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (/SHOW0 "late-type.lisp 19") ; compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS) ; compiling (DEFINE-CONDITION PARSE-UNKNOWN-TYPE ...) ; compiling (DEFUN DELEGATE-COMPLEX-SUBTYPEP-ARG2 ...) ; compiling (DEFUN DELEGATE-COMPLEX-INTERSECTION2 ...) ; compiling (DEFUN CONTAINS-UNKNOWN-TYPE-P ...) ; compiling (DEFUN HAS-SUPERCLASSES-COMPLEX-SUBTYPEP-ARG1 ...) ; compiling (DEFMACRO !DEFINE-SUPERCLASSES ...) ; compiling (DEFSTRUCT (KEY-INFO #) ...) ; compiling (!DEFINE-TYPE-METHOD (VALUES :SIMPLE-SUBTYPEP ...) ...) ; compiling (!DEFINE-TYPE-METHOD (VALUES :COMPLEX-SUBTYPEP-ARG2) ...) ; compiling (!DEFINE-TYPE-METHOD (VALUES :NEGATE) ...) ; compiling (!DEFINE-TYPE-METHOD (VALUES :UNPARSE) ...) ; compiling (DEFUN TYPE=-LIST ...) ; compiling (!DEFINE-TYPE-METHOD (VALUES :SIMPLE-=) ...) ; compiling (!DEFINE-TYPE-CLASS FUNCTION ...) ; compiling (!DEFVAR *UNPARSE-FUN-TYPE-SIMPLIFY* ...) ; compiling (!DEFVAR *UNPARSE-ALLOW-NEGATION* ...) ; compiling (!DEFINE-TYPE-METHOD (FUNCTION :NEGATE) ...) ; compiling (!DEFINE-TYPE-METHOD (FUNCTION :UNPARSE) ...) ; compiling (!DEFINE-TYPE-METHOD (FUNCTION :SIMPLE-SUBTYPEP) ...) ; compiling (!DEFINE-SUPERCLASSES FUNCTION ...) ; compiling (!DEFINE-TYPE-METHOD (FUNCTION :SIMPLE-UNION2) ...) ; compiling (!DEFINE-TYPE-METHOD (FUNCTION :SIMPLE-INTERSECTION2) ...) ; compiling (!DEFINE-TYPE-METHOD (FUNCTION :COMPLEX-INTERSECTION2) ...) ; compiling (!DEFINE-TYPE-METHOD (FUNCTION :COMPLEX-UNION2) ...) ; compiling (!DEFINE-TYPE-METHOD (FUNCTION :SIMPLE-=) ...) ; compiling (!DEFINE-TYPE-CLASS CONSTANT ...) ; compiling (!DEFINE-TYPE-METHOD (CONSTANT :NEGATE) ...) ; compiling (!DEFINE-TYPE-METHOD (CONSTANT :UNPARSE) ...) ; compiling (!DEFINE-TYPE-METHOD (CONSTANT :SIMPLE-=) ...) ; compiling (!DEF-TYPE-TRANSLATOR CONSTANT-ARG ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN UNPARSE-ARGS-TYPES ...) ; compiling (!DEF-TYPE-TRANSLATOR FUNCTION ...) ; compiling (!DEF-TYPE-TRANSLATOR VALUES ...) ; compiling (DEFUN VALUES-TYPE-MIN-VALUE-COUNT ...) ; compiling (DEFUN VALUES-TYPE-MAX-VALUE-COUNT ...) ; compiling (DEFUN VALUES-TYPE-MAY-BE-SINGLE-VALUE-P ...) ; compiling (DEFUN TYPE-SINGLE-VALUE-P ...) ; compiling (DECLAIM (FREEZE-TYPE VALUES-TYPE)) ; compiling (DEFUN SINGLE-VALUE-TYPE ...) ; compiling (DEFUN FUN-TYPE-NARGS ...) ; compiling (DEFUN VALUES-TYPES ...) ; compiling (DEFUN VALUES-TYPE-TYPES ...) ; compiling (DEFUN VALUES-TYPE-OUT ...) ; compiling (DEFUN VALUES-TYPE-IN ...) ; compiling (DEFUN FIXED-VALUES-OP ...) ; compiling (DEFUN-CACHED (%COERCE-TO-VALUES :HASH-BITS ...) ...) ; compiling (DEFUN COERCE-TO-VALUES ...) ; compiling (DEFUN MAKE-SHORT-VALUES-TYPE ...) ; compiling (DEFUN MAKE-SINGLE-VALUE-TYPE ...) ; compiling (DEFUN ARGS-TYPE-OP ...) ; compiling (DEFUN VALUES-TYPE-OP ...) ; compiling (DEFUN COMPARE-KEY-ARGS ...) ; compiling (DEFUN TYPE=-ARGS ...) ; compiling (DEFUN-CACHED (VALUES-TYPE-UNION :HASH-FUNCTION ...) ...) ; compiling (DEFUN-CACHED (VALUES-TYPE-INTERSECTION :HASH-FUNCTION ...) ...) ; compiling (DEFUN VALUES-TYPES-EQUAL-OR-INTERSECT ...) ; compiling (DEFUN-CACHED (VALUES-SUBTYPEP :HASH-FUNCTION ...) ...) ; compiling (DEFUN-CACHED (CSUBTYPEP :HASH-FUNCTION ...) ...) ; compiling (DEFUN SB-XC:SUBTYPEP ...) ; compiling (DEFUN-CACHED (TYPE= :HASH-FUNCTION ...) ...) ; compiling (DEFUN TYPE/= ...) ; compiling (DEFUN %TYPE-UNION2 ...) ; compiling (DEFUN-CACHED (TYPE-UNION2 :HASH-FUNCTION ...) ...) ; compiling (DEFUN %TYPE-INTERSECTION2 ...) ; compiling (DEFUN-CACHED (TYPE-INTERSECTION2 :HASH-FUNCTION ...) ...) ; compiling (DEFUN TYPE-APPROX-INTERSECTION2 ...) ; compiling (DEFUN TYPES-EQUAL-OR-INTERSECT ...) ; compiling (DEFUN TYPE-SPECIFIER ...) ; compiling (DEFUN-CACHED (TYPE-NEGATION :HASH-FUNCTION ...) ...) ; compiling (DEFUN-CACHED (TYPE-SINGLETON-P :HASH-FUNCTION ...) ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN PRECOMPUTE-TYPES ...) ; compiling (DEF SIMPLIFY-INTERSECTIONS ...) ; compiling (DEF SIMPLIFY-UNIONS ...) ; compiling (DEFUN MAYBE-DISTRIBUTE-ONE-UNION ...) ; compiling (DEFUN TYPE-INTERSECTION ...) ; compiling (DEFUN-CACHED (%TYPE-INTERSECTION :HASH-BITS ...) ...) ; compiling (DEFUN TYPE-UNION ...) ; compiling (DEFUN-CACHED (%TYPE-UNION :HASH-BITS ...) ...) ; compiling (!DEFINE-TYPE-CLASS NAMED ...) ; compiling (DEFGLOBAL *SATISFIES-KEYWORDP-TYPE* ...) ; compiling (DEFGLOBAL *FUN-NAME-TYPE* ...) ; compiling (DEFUN !LATE-TYPE-COLD-INIT2 ...) ; compiling (!DEFINE-TYPE-METHOD (NAMED :SIMPLE-=) ...) ; compiling (DEFUN CONS-TYPE-MIGHT-BE-EMPTY-TYPE ...) ; compiling (!DEFINE-TYPE-METHOD (NAMED :COMPLEX-=) ...) ; compiling (!DEFINE-TYPE-METHOD (NAMED :SIMPLE-SUBTYPEP) ...) ; compiling (!DEFINE-TYPE-METHOD (NAMED :COMPLEX-SUBTYPEP-ARG1) ...) ; compiling (!DEFINE-TYPE-METHOD (NAMED :COMPLEX-SUBTYPEP-ARG2) ...) ; compiling (!DEFINE-TYPE-METHOD (NAMED :COMPLEX-INTERSECTION2) ...) ; compiling (!DEFINE-TYPE-METHOD (NAMED :COMPLEX-UNION2) ...) ; compiling (!DEFINE-TYPE-METHOD (NAMED :NEGATE) ...) ; compiling (!DEFINE-TYPE-METHOD (NAMED :UNPARSE) ...) ; compiling (!DEFINE-TYPE-METHOD (HAIRY :NEGATE) ...) ; compiling (!DEFINE-TYPE-METHOD (HAIRY :UNPARSE) ...) ; compiling (!DEFINE-TYPE-METHOD (HAIRY :SIMPLE-SUBTYPEP) ...) ; compiling (!DEFINE-TYPE-METHOD (HAIRY :COMPLEX-SUBTYPEP-ARG2) ...) ; compiling (!DEFINE-TYPE-METHOD (HAIRY :COMPLEX-SUBTYPEP-ARG1) ...) ; compiling (!DEFINE-TYPE-METHOD (HAIRY :COMPLEX-=) ...) ; compiling (!DEFINE-TYPE-METHOD (HAIRY :SIMPLE-INTERSECTION2 ...) ...) ; compiling (!DEFINE-TYPE-METHOD (HAIRY :SIMPLE-UNION2) ...) ; compiling (!DEFINE-TYPE-METHOD (HAIRY :SIMPLE-=) ...) ; compiling (!DEF-TYPE-TRANSLATOR SATISFIES ...) ; compiling (!DEFINE-TYPE-METHOD (NEGATION :NEGATE) ...) ; compiling (!DEFINE-TYPE-METHOD (NEGATION :UNPARSE) ...) ; compiling (!DEFINE-TYPE-METHOD (NEGATION :SIMPLE-SUBTYPEP) ...) ; compiling (!DEFINE-TYPE-METHOD (NEGATION :COMPLEX-SUBTYPEP-ARG2) ...) ; compiling (!DEFINE-TYPE-METHOD (NEGATION :COMPLEX-SUBTYPEP-ARG1) ...) ; compiling (!DEFINE-TYPE-METHOD (NEGATION :COMPLEX-=) ...) ; compiling (!DEFINE-TYPE-METHOD (NEGATION :SIMPLE-INTERSECTION2) ...) ; compiling (DEFUN MAYBE-COMPLEX-ARRAY-REFINEMENT ...) ; compiling (!DEFINE-TYPE-METHOD (NEGATION :COMPLEX-INTERSECTION2) ...) ; compiling (!DEFINE-TYPE-METHOD (NEGATION :SIMPLE-UNION2) ...) ; compiling (!DEFINE-TYPE-METHOD (NEGATION :COMPLEX-UNION2) ...) ; compiling (!DEFINE-TYPE-METHOD (NEGATION :SIMPLE-=) ...) ; compiling (!DEF-TYPE-TRANSLATOR NOT ...) ; compiling (!DEFINE-TYPE-CLASS NUMBER ...) ; compiling (DECLAIM (INLINE NUMERIC-TYPE-EQUAL)) ; compiling (DEFUN NUMERIC-TYPE-EQUAL ...) ; compiling (!DEFINE-TYPE-METHOD (NUMBER :SIMPLE-=) ...) ; compiling (!DEFINE-TYPE-METHOD (NUMBER :NEGATE) ...) ; compiling (!DEFINE-TYPE-METHOD (NUMBER :UNPARSE) ...) ; compiling (!DEFINE-TYPE-METHOD (NUMBER :SINGLETON-P) ...) ; compiling (DEFMACRO NUMERIC-BOUND-TEST ...) ; compiling (DEFMACRO NUMERIC-BOUND-TEST* ...) ; compiling (DEFMACRO NUMERIC-BOUND-MAX ...) ; compiling (!DEFINE-TYPE-METHOD (NUMBER :SIMPLE-SUBTYPEP) ...) ; compiling (!DEFINE-SUPERCLASSES NUMBER ...) ; compiling (DEFUN NUMERIC-TYPES-ADJACENT ...) ; compiling (DEFVAR *APPROXIMATE-NUMERIC-UNIONS* ...) ; compiling (!DEFINE-TYPE-METHOD (NUMBER :SIMPLE-UNION2) ...) ; compiling (!COLD-INIT-FORMS (SETF # ...) ...) ; compiling (!DEF-TYPE-TRANSLATOR COMPLEX ...) ; compiling (DECLAIM (INLINE CANONICALIZED-BOUND)) ; compiling (DEFUN CANONICALIZED-BOUND ...) ; compiling (!DEF-TYPE-TRANSLATOR INTEGER ...) ; compiling (DEFMACRO !DEF-BOUNDED-TYPE ...) ; compiling (!DEF-BOUNDED-TYPE RATIONAL ...) ; compiling (DEFUN COERCE-BOUND ...) ; compiling (DEFUN INNER-COERCE-REAL-BOUND ...) ; compiling (DEFUN INNER-COERCE-FLOAT-BOUND ...) ; compiling (DEFUN COERCED-REAL-BOUND ...) ; compiling (DEFUN COERCED-FLOAT-BOUND ...) ; compiling (!DEF-TYPE-TRANSLATOR REAL ...) ; compiling (!DEF-TYPE-TRANSLATOR FLOAT ...) ; compiling (DEFMACRO !DEFINE-FLOAT-FORMAT ...) ; compiling (!DEFINE-FLOAT-FORMAT SHORT-FLOAT) ; compiling (!DEFINE-FLOAT-FORMAT SINGLE-FLOAT) ; compiling (!DEFINE-FLOAT-FORMAT DOUBLE-FLOAT) ; compiling (!DEFINE-FLOAT-FORMAT LONG-FLOAT) ; compiling (DEFUN NUMERIC-TYPES-INTERSECT ...) ; compiling (DEFUN ROUND-NUMERIC-BOUND ...) ; compiling (!DEFINE-TYPE-METHOD (NUMBER :SIMPLE-INTERSECTION2) ...) ; compiling (DEFUN FLOAT-FORMAT-MAX ...) ; compiling (DEFUN NUMERIC-CONTAGION ...) ; compiling (!DEFINE-TYPE-CLASS ARRAY ...) ; compiling (!DEFINE-TYPE-METHOD (ARRAY :SIMPLE-=) ...) ; compiling (!DEFINE-TYPE-METHOD (ARRAY :NEGATE) ...) ; compiling (!DEFINE-TYPE-METHOD (ARRAY :UNPARSE) ...) ; compiling (!DEFINE-TYPE-METHOD (ARRAY :SIMPLE-SUBTYPEP) ...) ; compiling (!DEFINE-SUPERCLASSES ARRAY ...) ; compiling (DEFUN ARRAY-TYPES-INTERSECT ...) ; compiling (DEFUN UNITE-ARRAY-TYPES-COMPLEXP ...) ; compiling (DEFUN UNITE-ARRAY-TYPES-DIMENSIONS ...) ; compiling (DEFUN UNITE-ARRAY-TYPES-ELEMENT-TYPES ...) ; compiling (DEFUN UNITE-ARRAY-TYPES-SUPERTYPES-COMPATIBLE-P ...) ; compiling (!DEFINE-TYPE-METHOD (ARRAY :SIMPLE-UNION2) ...) ; compiling (!DEFINE-TYPE-METHOD (ARRAY :SIMPLE-INTERSECTION2) ...) ; compiling (DEFUN CANONICAL-ARRAY-DIMENSIONS ...) ; compiling (!DEFINE-TYPE-CLASS MEMBER ...) ; compiling (!DEFINE-TYPE-METHOD (MEMBER :NEGATE) ...) ; compiling (!DEFINE-TYPE-METHOD (MEMBER :UNPARSE) ...) ; compiling (!DEFINE-TYPE-METHOD (MEMBER :SINGLETON-P) ...) ; compiling (!DEFINE-TYPE-METHOD (MEMBER :SIMPLE-SUBTYPEP) ...) ; compiling (!DEFINE-TYPE-METHOD (MEMBER :COMPLEX-SUBTYPEP-ARG1) ...) ; compiling (!DEFINE-TYPE-METHOD (MEMBER :COMPLEX-SUBTYPEP-ARG2) ...) ; compiling (!DEFINE-TYPE-METHOD (MEMBER :SIMPLE-INTERSECTION2) ...) ; compiling (!DEFINE-TYPE-METHOD (MEMBER :COMPLEX-INTERSECTION2) ...) ; compiling (!DEFINE-TYPE-METHOD (MEMBER :SIMPLE-UNION2) ...) ; compiling (!DEFINE-TYPE-METHOD (MEMBER :SIMPLE-=) ...) ; compiling (!DEFINE-TYPE-METHOD (MEMBER :COMPLEX-=) ...) ; compiling (!DEF-TYPE-TRANSLATOR MEMBER ...) ; compiling (!DEFINE-TYPE-CLASS INTERSECTION ...) ; compiling (!DEFINE-TYPE-METHOD (INTERSECTION :NEGATE) ...) ; compiling (!DEFINE-TYPE-METHOD (INTERSECTION :UNPARSE) ...) ; compiling (DEFUN TYPE=-SET ...) ; compiling (!DEFINE-TYPE-METHOD (INTERSECTION :SIMPLE-=) ...) ; compiling (DEFUN %INTERSECTION-COMPLEX-SUBTYPEP-ARG1 ...) ; compiling (DEFUN %INTERSECTION-SIMPLE-SUBTYPEP ...) ; compiling (!DEFINE-TYPE-METHOD (INTERSECTION :SIMPLE-SUBTYPEP) ...) ; compiling (!DEFINE-TYPE-METHOD (INTERSECTION :COMPLEX-SUBTYPEP-ARG1) ...) ; compiling (DEFUN %INTERSECTION-COMPLEX-SUBTYPEP-ARG2 ...) ; compiling (!DEFINE-TYPE-METHOD (INTERSECTION :COMPLEX-SUBTYPEP-ARG2) ...) ; compiling (!DEFINE-TYPE-METHOD (INTERSECTION :SIMPLE-UNION2 ...) ...) ; compiling (!DEF-TYPE-TRANSLATOR AND ...) ; compiling (!DEFINE-TYPE-CLASS UNION ...) ; compiling (!DEFINE-TYPE-METHOD (UNION :NEGATE) ...) ; compiling (!DEFINE-TYPE-METHOD (UNION :UNPARSE) ...) ; compiling (!DEFINE-TYPE-METHOD (UNION :SIMPLE-=) ...) ; compiling (!DEFINE-TYPE-METHOD (UNION :COMPLEX-=) ...) ; compiling (DEFUN UNION-SIMPLE-SUBTYPEP ...) ; compiling (!DEFINE-TYPE-METHOD (UNION :SIMPLE-SUBTYPEP) ...) ; compiling (DEFUN UNION-COMPLEX-SUBTYPEP-ARG1 ...) ; compiling (!DEFINE-TYPE-METHOD (UNION :COMPLEX-SUBTYPEP-ARG1) ...) ; compiling (DEFUN UNION-COMPLEX-SUBTYPEP-ARG2 ...) ; compiling (!DEFINE-TYPE-METHOD (UNION :COMPLEX-SUBTYPEP-ARG2) ...) ; compiling (!DEFINE-TYPE-METHOD (UNION :SIMPLE-INTERSECTION2 ...) ...) ; compiling (!DEF-TYPE-TRANSLATOR OR ...) ; compiling (!DEFINE-TYPE-CLASS CONS ...) ; compiling (!DEF-TYPE-TRANSLATOR CONS ...) ; compiling (!DEFINE-TYPE-METHOD (CONS :NEGATE) ...) ; compiling (!DEFINE-TYPE-METHOD (CONS :UNPARSE) ...) ; compiling (!DEFINE-TYPE-METHOD (CONS :SIMPLE-=) ...) ; compiling (!DEFINE-TYPE-METHOD (CONS :SIMPLE-SUBTYPEP) ...) ; compiling (!DEFINE-TYPE-METHOD (CONS :SIMPLE-UNION2) ...) ; compiling (!DEFINE-TYPE-METHOD (CONS :SIMPLE-INTERSECTION2) ...) ; compiling (!DEFINE-SUPERCLASSES CONS ...) ; compiling (!DEFINE-TYPE-CLASS CHARACTER-SET ...) ; compiling (!DEF-TYPE-TRANSLATOR CHARACTER-SET ...) ; compiling (!DEFINE-TYPE-METHOD (CHARACTER-SET :NEGATE) ...) ; compiling (!DEFINE-TYPE-METHOD (CHARACTER-SET :UNPARSE) ...) ; compiling (!DEFINE-TYPE-METHOD (CHARACTER-SET :SINGLETON-P) ...) ; compiling (!DEFINE-TYPE-METHOD (CHARACTER-SET :SIMPLE-=) ...) ; compiling (!DEFINE-TYPE-METHOD (CHARACTER-SET :SIMPLE-SUBTYPEP) ...) ; compiling (!DEFINE-TYPE-METHOD (CHARACTER-SET :SIMPLE-UNION2) ...) ; compiling (!DEFINE-TYPE-METHOD (CHARACTER-SET :SIMPLE-INTERSECTION2) ...) ; compiling (DEFUN INTERSECT-TYPE-PAIRS ...) ; compiling (DEFUN TYPE-DIFFERENCE ...) ; compiling (!DEF-TYPE-TRANSLATOR ARRAY ...) ; compiling (!DEF-TYPE-TRANSLATOR SIMPLE-ARRAY ...) ; compiling (DEFUN DEFINED-FTYPE-MATCHES-DECLARED-FTYPE-P ...) ; compiling (DEFUN CTYPE-OF-NUMBER ...) ; compiling (DECLAIM (INLINE GENERIC-ABSTRACT-TYPE-FUNCTION)) ; compiling (DEFUN GENERIC-ABSTRACT-TYPE-FUNCTION ...) ; compiling (DECLAIM (NOTINLINE GENERIC-ABSTRACT-TYPE-FUNCTION)) ; compiling (DEFUN LIST-ABSTRACT-TYPE-FUNCTION ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/late-type.lisp ; in: DEFUN LIST-ABSTRACT-TYPE-FUNCTION ; (SB!KERNEL:GENERIC-ABSTRACT-TYPE-FUNCTION TYPE SB!KERNEL::OVERAPPROXIMATE ; #'UNION #'INTERSECTION #'SET-DIFFERENCE '* NIL SB!KERNEL::OVER ; SB!KERNEL::UNDER) ; --> BLOCK LABELS BLOCK UNLESS IF PROGN RETURN-FROM SB!KERNEL::DEFAULT ; ==> ; SB!KERNEL::OVERAPPROXIMATE ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !LATE-TYPE-COLD-INIT) ; compiling (!LATE-TYPE-COLD-INIT2) ; compiling (/SHOW0 "late-type.lisp end of file") ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/late-type.lisp ; in: !DEF-TYPE-TRANSLATOR SIMPLE-ARRAY ; (SB!KERNEL::%UPGRADED-ARRAY-ELEMENT-TYPE SB!KERNEL::ELTYPE) ; ; caught STYLE-WARNING: ; undefined function: %UPGRADED-ARRAY-ELEMENT-TYPE ; in: !DEF-TYPE-TRANSLATOR ARRAY ; (SB!KERNEL::%UPGRADED-ARRAY-ELEMENT-TYPE SB!KERNEL::ELTYPE) ; ; caught STYLE-WARNING: ; undefined function: %UPGRADED-ARRAY-ELEMENT-TYPE ; in: !DEFINE-TYPE-METHOD (ARRAY :UNPARSE) ; (SB!KERNEL::%UPGRADED-ARRAY-ELEMENT-TYPE SB!KERNEL::DTYPE) ; ; caught STYLE-WARNING: ; undefined function: %UPGRADED-ARRAY-ELEMENT-TYPE ; in: !DEF-TYPE-TRANSLATOR MEMBER ; (SB!KERNEL:CTYPE-OF SB!KERNEL::M) ; ; caught STYLE-WARNING: ; undefined function: CTYPE-OF ; in: !DEFINE-TYPE-METHOD (MEMBER :NEGATE) ; (SB!KERNEL:CTYPE-OF SB!KERNEL::OPPOSITE) ; ; caught STYLE-WARNING: ; undefined function: CTYPE-OF ; in: !DEF-TYPE-TRANSLATOR COMPLEX ; (SB!KERNEL:CTYPE-OF SB!KERNEL::X) ; ; caught STYLE-WARNING: ; undefined function: CTYPE-OF ; in: DEFUN TYPE-DIFFERENCE ; (SB!KERNEL:CTYPEP ELT SB!KERNEL::Y) ; ; caught STYLE-WARNING: ; undefined function: CTYPEP ; in: !DEFINE-TYPE-METHOD (MEMBER :COMPLEX-INTERSECTION2) ; (SB!KERNEL:CTYPEP MEMBER SB!KERNEL::TYPE1) ; ; caught STYLE-WARNING: ; undefined function: CTYPEP ; in: !DEFINE-TYPE-METHOD (MEMBER :COMPLEX-SUBTYPEP-ARG1) ; (SB!KERNEL:CTYPEP ELT SB!KERNEL::TYPE2) ; ; caught STYLE-WARNING: ; undefined function: CTYPEP ; in: DEFUN CTYPE-OF-NUMBER ; (SB!KERNEL:FLOAT-FORMAT-NAME SB!KERNEL::NUM) ; ; caught STYLE-WARNING: ; undefined function: FLOAT-FORMAT-NAME ; in: !DEF-TYPE-TRANSLATOR OR ; (SB!KERNEL::SIMPLIFY-ARRAY-UNIONS TYPE) ; ; caught STYLE-WARNING: ; undefined function: SIMPLIFY-ARRAY-UNIONS ; in: !DEF-TYPE-TRANSLATOR INTEGER ; (SB!KERNEL::CANONICALIZED-BOUND SB!KERNEL::HIGH 'INTEGER) ; --> BLOCK COND IF COND IF OR LET IF OR THE AND IF AND IF ; ==> ; (SB-XC:TYPEP (CAR SB!KERNEL::BOUND) TYPE) ; ; caught STYLE-WARNING: ; undefined function: SB-XC:TYPEP ; in: DEFUN CANONICALIZED-BOUND ; (SB-XC:TYPEP (CAR SB!KERNEL::BOUND) TYPE) ; ; caught STYLE-WARNING: ; undefined function: SB-XC:TYPEP ; in: DEFUN HAS-SUPERCLASSES-COMPLEX-SUBTYPEP-ARG1 ; (SB-XC:TYPEP SB!KERNEL::TYPE2 'SB!KERNEL:CLASSOID) ; ; caught STYLE-WARNING: ; undefined function: SB-XC:TYPEP ; ; caught STYLE-WARNING: ; 5 more uses of undefined function SB-XC:TYPEP ; ; compilation unit finished ; Undefined functions: ; %UPGRADED-ARRAY-ELEMENT-TYPE CTYPE-OF CTYPEP FLOAT-FORMAT-NAME SIMPLIFY-ARRAY-UNIONS SB-XC:TYPEP ; caught 15 STYLE-WARNING conditions ; printed 3 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/late-type.fasl-tmp written ; compilation finished in 0:00:01.332 /late-type.lisp 19 /late-type.lisp end of file ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/deftypes-for-target.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (/SHOW0 "deftypes-for-target.lisp 14") ; compiling (/SHOW "about to force delayed DEF!TYPEs") ; compiling (FORCE-DELAYED-DEF!TYPES) ; compiling (/SHOW "done forcing delayed DEF!TYPEs") ; compiling (SB-XC:DEFTYPE BOOLEAN ...) ; compiling (SB-XC:DEFTYPE MOD ...) ; compiling (SB-XC:DEFTYPE SIGNED-BYTE ...) ; compiling (SB-XC:DEFTYPE UNSIGNED-BYTE ...) ; compiling (SB-XC:DEFTYPE UNSIGNED-BYTE* ...) ; compiling (SB-XC:DEFTYPE BIT ...) ; compiling (SB-XC:DEFTYPE ATOM ...) ; compiling (SB-XC:DEFTYPE BASE-CHAR ...) ; compiling (SB-XC:DEFTYPE EXTENDED-CHAR ...) ; compiling (SB-XC:DEFTYPE STANDARD-CHAR ...) ; compiling (SB-XC:DEFTYPE KEYWORD ...) ; compiling (SB-XC:DEFTYPE EQL ...) ; compiling (SB-XC:DEFTYPE VECTOR ...) ; compiling (SB-XC:DEFTYPE SIMPLE-VECTOR ...) ; compiling (SB-XC:DEFTYPE BASE-STRING ...) ; compiling (SB-XC:DEFTYPE SIMPLE-BASE-STRING ...) ; compiling (SB-XC:DEFTYPE STRING ...) ; compiling (SB-XC:DEFTYPE SIMPLE-STRING ...) ; compiling (SB-XC:DEFTYPE BIT-VECTOR ...) ; compiling (SB-XC:DEFTYPE SIMPLE-BIT-VECTOR ...) ; compiling (SB-XC:DEFTYPE GENERALIZED-BOOLEAN ...) ; compiling (SB-XC:DEFTYPE FORMAT-CONTROL ...) ; compiling (SB-XC:DEFTYPE RESTART-DESIGNATOR ...) ; compiling (SB-XC:DEFTYPE ARRAY-RANK ...) ; compiling (SB-XC:DEFTYPE ARRAY-TOTAL-SIZE ...) ; compiling (SB-XC:DEFTYPE FORM ...) ; compiling (SB-XC:DEFTYPE STRING-DESIGNATOR ...) ; compiling (SB-XC:DEFTYPE FILENAME ...) ; compiling (SB-XC:DEFTYPE PATHNAME-DESIGNATOR ...) ; compiling (SB-XC:DEFTYPE LOGICAL-HOST-DESIGNATOR ...) ; compiling (SB-XC:DEFTYPE PACKAGE-DESIGNATOR ...) ; compiling (SB-XC:DEFTYPE SYMBOLS-DESIGNATOR ...) ; compiling (SB-XC:DEFTYPE IRRATIONAL ...) ; compiling (SB-XC:DEFTYPE CHAR-CODE ...) ; compiling (SB-XC:DEFTYPE CONSED-SEQUENCE ...) ; compiling (SB-XC:DEFTYPE SEQUENCE-END ...) ; compiling (SB-XC:DEFTYPE SEQUENCE-COUNT ...) ; compiling (SB-XC:DEFTYPE STREAM-DESIGNATOR ...) ; compiling (SB-XC:DEFTYPE EXTERNAL-FORMAT-DESIGNATOR ...) ; compiling (SB-XC:DEFTYPE LEXENV-DESIGNATOR ...) ; compiling (SB-XC:DEFTYPE CALLABLE ...) ; compiling (SB-XC:DEFTYPE SINGLE-FLOAT-EXPONENT ...) ; compiling (SB-XC:DEFTYPE DOUBLE-FLOAT-EXPONENT ...) ; compiling (SB-XC:DEFTYPE SINGLE-FLOAT-INT-EXPONENT ...) ; compiling (SB-XC:DEFTYPE DOUBLE-FLOAT-INT-EXPONENT ...) ; compiling (SB-XC:DEFTYPE SINGLE-FLOAT-SIGNIFICAND ...) ; compiling (SB-XC:DEFTYPE DOUBLE-FLOAT-SIGNIFICAND ...) ; compiling (/SHOW0 "deftypes-for-target.lisp end of file") ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/deftypes-for-target.fasl-tmp written ; compilation finished in 0:00:00.089 /deftypes-for-target.lisp 14 /about to force delayed DEF!TYPEs /done forcing delayed DEF!TYPEs /deftypes-for-target.lisp end of file ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/knownfun.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (/SHOW0 "knownfun.lisp 17") ; compiling (!DEF-BOOLEAN-ATTRIBUTE IR1 ...) ; compiling (DEFSTRUCT (FUN-INFO) ...) ; compiling (DEFPRINTER (FUN-INFO) ...) ; compiling (DEFSTRUCT (TRANSFORM #) ...) ; compiling (DEFPRINTER (TRANSFORM) ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN %DEFTRANSFORM ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN %DEFKNOWN ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN FUN-INFO-OR-LOSE ...) ; compiling (DEFUN RESULT-TYPE-FIRST-ARG ...) ; compiling (DEFUN RESULT-TYPE-LAST-ARG ...) ; compiling (DEFUN RESULT-TYPE-FLOAT-CONTAGION ...) ; compiling (DEFUN SEQUENCE-RESULT-NTH-ARG ...) ; compiling (DEFUN RESULT-TYPE-SPECIFIER-NTH-ARG ...) ; compiling (DEFUN CREATION-RESULT-TYPE-SPECIFIER-NTH-ARG ...) ; compiling (DEFUN REMOVE-NON-CONSTANTS-AND-NILS ...) ; compiling (DEFUN NTH-CONSTANT-ARGS ...) ; compiling (DEFUN NTH-CONSTANT-NONEMPTY-SEQUENCE-ARGS ...) ; compiling (DEFUN READ-ELT-TYPE-DERIVER ...) ; compiling (DEFUN POSITION-DERIVE-TYPE ...) ; compiling (/SHOW0 "knownfun.lisp end of file") ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/knownfun.lisp ; in: DEFUN CREATION-RESULT-TYPE-SPECIFIER-NTH-ARG ; (SB!C::CAREFUL-SPECIFIER-TYPE ; (SB!INT:QUASIQUOTE ; (VECTOR CHARACTER ; #S(SB!IMPL::COMMA :EXPR (WHEN SB!C::SIZE SB!C::SIZE) :KIND 2)))) ; ; caught STYLE-WARNING: ; undefined function: CAREFUL-SPECIFIER-TYPE ; in: DEFUN RESULT-TYPE-SPECIFIER-NTH-ARG ; (SB!C::CAREFUL-SPECIFIER-TYPE (SB!C::LVAR-VALUE SB!C::LVAR)) ; ; caught STYLE-WARNING: ; undefined function: CAREFUL-SPECIFIER-TYPE ; in: DEFUN REMOVE-NON-CONSTANTS-AND-NILS ; #'SB!C::CONSTANT-LVAR-P ; ; caught STYLE-WARNING: ; undefined function: CONSTANT-LVAR-P ; in: DEFUN CREATION-RESULT-TYPE-SPECIFIER-NTH-ARG ; (SB!C::CONSTANT-LVAR-P SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: CONSTANT-LVAR-P ; in: DEFUN RESULT-TYPE-SPECIFIER-NTH-ARG ; (SB!C::CONSTANT-LVAR-P SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: CONSTANT-LVAR-P ; ; caught STYLE-WARNING: ; 3 more uses of undefined function CONSTANT-LVAR-P ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/knownfun.lisp ; in: DEFUN RESULT-TYPE-FLOAT-CONTAGION ; #'SB!C::LVAR-TYPE ; ; caught STYLE-WARNING: ; undefined function: LVAR-TYPE ; in: DEFUN RESULT-TYPE-LAST-ARG ; (SB!C::LVAR-TYPE SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: LVAR-TYPE ; in: DEFUN RESULT-TYPE-FIRST-ARG ; (SB!C::LVAR-TYPE SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: LVAR-TYPE ; ; caught STYLE-WARNING: ; 2 more uses of undefined function LVAR-TYPE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/knownfun.lisp ; in: DEFUN REMOVE-NON-CONSTANTS-AND-NILS ; #'SB!C::LVAR-VALUE ; ; caught STYLE-WARNING: ; undefined function: LVAR-VALUE ; in: DEFUN CREATION-RESULT-TYPE-SPECIFIER-NTH-ARG ; (SB!C::LVAR-VALUE SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: LVAR-VALUE ; in: DEFUN RESULT-TYPE-SPECIFIER-NTH-ARG ; (SB!C::LVAR-VALUE SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: LVAR-VALUE ; ; caught STYLE-WARNING: ; 2 more uses of undefined function LVAR-VALUE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/knownfun.lisp ; in: DEFUN %DEFTRANSFORM ; (SB!INT:STYLE-WARN 'SB!KERNEL:REDEFINITION-WITH-DEFTRANSFORM :TRANSFORM ; SB!C::OLD) ; ; caught STYLE-WARNING: ; undefined function: STYLE-WARN ; ; compilation unit finished ; Undefined functions: ; CAREFUL-SPECIFIER-TYPE CONSTANT-LVAR-P LVAR-TYPE LVAR-VALUE STYLE-WARN ; caught 15 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/knownfun.fasl-tmp written ; compilation finished in 0:00:00.217 /knownfun.lisp 17 /knownfun.lisp end of file ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/constantp.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS) ; compiling (DEFGLOBAL **SPECIAL-FORM-CONSTANTP-TESTS** ...) ; compiling (!COLD-INIT-FORMS (SETF **SPECIAL-FORM-CONSTANTP-TESTS** ...)) ; compiling (!DEFVAR *SPECIAL-CONSTANT-VARIABLES* ...) ; compiling (DEFUN %CONSTANTP ...) ; compiling (DEFUN %CONSTANT-FORM-VALUE ...) ; compiling (DEFUN CONSTANT-SPECIAL-FORM-P ...) ; compiling (DEFUN CONSTANT-SPECIAL-FORM-VALUE ...) ; compiling (DEFUN CONSTANT-SPECIAL-VARIABLE-P ...) ; compiling (DEFUN CONSTANT-FUNCTION-CALL-P ...) ; compiling (DEFUN CONSTANT-FUNCTION-CALL-VALUE ...) ; compiling (DECLAIM (INLINE SB-XC:CONSTANTP)) ; compiling (DEFUN SB-XC:CONSTANTP ...) ; compiling (DECLAIM (INLINE CONSTANT-FORM-VALUE)) ; compiling (DEFUN CONSTANT-FORM-VALUE ...) ; compiling (DECLAIM (INLINE CONSTANT-TYPEP)) ; compiling (DEFUN CONSTANT-TYPEP ...) ; compiling (DEFMACRO !DEFCONSTANTP ...) ; compiling (!DEFCONSTANTP QUOTE ...) ; compiling (!DEFCONSTANTP IF ...) ; compiling (!DEFCONSTANTP PROGN ...) ; compiling (!DEFCONSTANTP UNWIND-PROTECT ...) ; compiling (!DEFCONSTANTP THE ...) ; compiling (!DEFCONSTANTP BLOCK ...) ; compiling (!DEFCONSTANTP MULTIPLE-VALUE-PROG1 ...) ; compiling (!DEFCONSTANTP PROGV ...) ; compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !CONSTANTP-COLD-INIT) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/constantp.lisp ; in: DEFUN %CONSTANT-FORM-VALUE ; (SB!INT:%MACROEXPAND SB!KERNEL:FORM SB!C::ENVIRONMENT) ; ; caught STYLE-WARNING: ; undefined function: %MACROEXPAND ; in: DEFUN %CONSTANTP ; (SB!INT:%MACROEXPAND SB!KERNEL:FORM SB!C::ENVIRONMENT) ; ; caught STYLE-WARNING: ; undefined function: %MACROEXPAND ; in: !DEFCONSTANTP THE ; (SB!C::CAREFUL-SPECIFIER-TYPE TYPE) ; ; caught STYLE-WARNING: ; undefined function: CAREFUL-SPECIFIER-TYPE ; in: DEFUN CONSTANT-TYPEP ; (SB-XC:TYPEP ; (SB!C::%CONSTANT-FORM-VALUE SB!KERNEL:FORM SB!C::ENVIRONMENT SB!C::ENVP) ; TYPE) ; ; caught STYLE-WARNING: ; undefined function: SB-XC:TYPEP ; ; compilation unit finished ; Undefined functions: ; %MACROEXPAND CAREFUL-SPECIFIER-TYPE SB-XC:TYPEP ; caught 4 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/constantp.fasl-tmp written ; compilation finished in 0:00:00.097 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/fun-info-funs.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN %DEF-REFFER ...) ; compiling (DEFUN %DEF-SETTER ...) ; compiling (DEFUN %DEF-ALLOC ...) ; compiling (DEFUN %DEF-CASSER ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/fun-info-funs.lisp ; in: DEFUN %DEF-CASSER ; (SB!C::IR2-CONVERT-CASSER SB!C::NODE BLOCK SB!C::NAME SB!C::OFFSET ; SB!C::LOWTAG) ; ; caught STYLE-WARNING: ; undefined function: IR2-CONVERT-CASSER ; in: DEFUN %DEF-ALLOC ; (SB!C::IR2-CONVERT-FIXED-ALLOCATION SB!C::NODE BLOCK SB!C::NAME SB!SYS:WORDS ; SB!C::HEADER SB!C::LOWTAG SB!C::INITS) ; ; caught STYLE-WARNING: ; undefined function: IR2-CONVERT-FIXED-ALLOCATION ; in: DEFUN %DEF-REFFER ; (SB!C::IR2-CONVERT-REFFER SB!C::NODE BLOCK SB!C::NAME SB!C::OFFSET ; SB!C::LOWTAG) ; ; caught STYLE-WARNING: ; undefined function: IR2-CONVERT-REFFER ; in: DEFUN %DEF-SETTER ; (SB!C::IR2-CONVERT-SETFER SB!C::NODE BLOCK SB!C::NAME SB!C::OFFSET ; SB!C::LOWTAG) ; ; caught STYLE-WARNING: ; undefined function: IR2-CONVERT-SETFER ; (SB!C::IR2-CONVERT-SETTER SB!C::NODE BLOCK SB!C::NAME SB!C::OFFSET ; SB!C::LOWTAG) ; ; caught STYLE-WARNING: ; undefined function: IR2-CONVERT-SETTER ; in: DEFUN %DEF-ALLOC ; (SB!C::IR2-CONVERT-STRUCTURE-ALLOCATION SB!C::NODE BLOCK SB!C::NAME ; SB!SYS:WORDS SB!C::HEADER SB!C::LOWTAG SB!C::INITS) ; ; caught STYLE-WARNING: ; undefined function: IR2-CONVERT-STRUCTURE-ALLOCATION ; (SB!C::IR2-CONVERT-VARIABLE-ALLOCATION SB!C::NODE BLOCK SB!C::NAME ; SB!SYS:WORDS SB!C::HEADER SB!C::LOWTAG SB!C::INITS) ; ; caught STYLE-WARNING: ; undefined function: IR2-CONVERT-VARIABLE-ALLOCATION ; ; compilation unit finished ; Undefined functions: ; IR2-CONVERT-CASSER IR2-CONVERT-FIXED-ALLOCATION IR2-CONVERT-REFFER IR2-CONVERT-SETFER IR2-CONVERT-SETTER IR2-CONVERT-STRUCTURE-ALLOCATION IR2-CONVERT-VARIABLE-ALLOCATION ; caught 7 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/fun-info-funs.fasl-tmp written ; compilation finished in 0:00:00.013 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/cross-type.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (DEFUN FIXNUMP ...) ; compiling (DEFINE-CONDITION CROSS-TYPE-STYLE-WARNING ...) ; compiling (DEFINE-CONDITION CROSS-TYPE-GIVING-UP-CONSERVATIVELY ...) ; compiling (DEFUN WARN-POSSIBLE-CROSS-TYPE-FLOAT-INFO-LOSS ...) ; compiling (DEFUN SB-XC:TYPE-OF ...) ; compiling (DEFUN IN-CL-PACKAGE-P ...) ; compiling (DEFUN ACCEPTABLE-CROSS-TYPEP-PRED ...) ; compiling (DEFUN CROSS-TYPEP ...) ; compiling (DEFUN SB-XC:TYPEP ...) ; compiling (DEFUN CTYPEP ...) ; compiling (DEFUN CTYPE-OF ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/cross-type.fasl-tmp written ; compilation finished in 0:00:00.069 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/vm-type.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (SETF (INFO :TYPE ...) ...) ; compiling (SB-XC:DEFTYPE LONG-FLOAT ...) ; compiling (SETF (INFO :TYPE ...) ...) ; compiling (SB-XC:DEFTYPE SHORT-FLOAT ...) ; compiling (SB-XC:DEFTYPE FLOAT-EXPONENT ...) ; compiling (SB-XC:DEFTYPE FLOAT-DIGITS ...) ; compiling (SB-XC:DEFTYPE FLOAT-RADIX ...) ; compiling (SB-XC:DEFTYPE FLOAT-INT-EXPONENT ...) ; compiling (SB-XC:DEFTYPE BOOLE-CODE ...) ; compiling (SB-XC:DEFTYPE BYTE-SPECIFIER ...) ; compiling (SB-XC:DEFTYPE CHAR-INT ...) ; compiling (SB-XC:DEFTYPE PATHNAME-HOST ...) ; compiling (SB-XC:DEFTYPE PATHNAME-DEVICE ...) ; compiling (SB-XC:DEFTYPE PATHNAME-DIRECTORY ...) ; compiling (SB-XC:DEFTYPE PATHNAME-NAME ...) ; compiling (SB-XC:DEFTYPE PATHNAME-TYPE ...) ; compiling (SB-XC:DEFTYPE PATHNAME-VERSION ...) ; compiling (SB-XC:DEFTYPE INTERNAL-TIME ...) ; compiling (SB-XC:DEFTYPE BIGNUM-ELEMENT-TYPE ...) ; compiling (SB-XC:DEFTYPE BIGNUM-TYPE ...) ; compiling (SB-XC:DEFTYPE BIGNUM-INDEX ...) ; compiling (SB-XC:DEFTYPE BIGNUM-LENGTH ...) ; compiling (SB-XC:DEFTYPE BIT-INDEX ...) ; compiling (SB-XC:DEFTYPE UNBOXED-ARRAY ...) ; compiling (SB-XC:DEFTYPE SIMPLE-UNBOXED-ARRAY ...) ; compiling (SB-XC:DEFTYPE COMPLEX-VECTOR ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN FLOAT-FORMAT-NAME ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN %UPGRADED-ARRAY-ELEMENT-TYPE ...) ; compiling (DEFUN SB-XC:UPGRADED-ARRAY-ELEMENT-TYPE ...) ; compiling (DEFUN SB-XC:UPGRADED-COMPLEX-PART-TYPE ...) ; compiling (DEFUN CONTAINING-INTEGER-TYPE ...) ; compiling (DEFUN HAIRY-TYPE-CHECK-TEMPLATE-NAME ...) ; compiling (DEFUN SIMPLIFY-ARRAY-UNIONS ...) ; compiling (DEFUN WIDETAGS-FROM-UNION-TYPE ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/generic/vm-type.fasl-tmp written ; compilation finished in 0:00:00.088 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/proclaim.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFVAR *UNDEFINED-WARNINGS*) ; compiling (DECLAIM (LIST *UNDEFINED-WARNINGS*)) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN GET-OLD-VARS ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN PROCESS-OPTIMIZE-DECL ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN PROCESS-HANDLE-CONDITIONS-DECL ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN PROCESS-MUFFLE-CONDITIONS-DECL ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN PROCESS-UNHANDLE-CONDITIONS-DECL ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN PROCESS-UNMUFFLE-CONDITIONS-DECL ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN PROCESS-PACKAGE-LOCK-DECL ...) ; compiling (!DEFVAR *QUEUED-PROCLAIMS* ...) ; compiling (DEFUN PROCESS-VARIABLE-DECLARATION ...) ; compiling (DEFUN PROCLAIM-TYPE ...) ; compiling (DEFUN PROCLAIM-FTYPE ...) ; compiling (DEFUN SEAL-CLASS ...) ; compiling (DEFUN PROCESS-FREEZE-TYPE-DECLARATION ...) ; compiling (DEFUN PROCESS-INLINE-DECLARATION ...) ; compiling (DEFUN PROCESS-DECLARATION-DECLARATION ...) ; compiling (DEFUN CANONIZED-DECL-SPEC ...) ; compiling (DEFUN SB-XC:PROCLAIM ...) ; compiling (DEFUN ADVISE-IF-REPEATED-OPTIMIZE-QUALITIES ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/proclaim.lisp ; in: DEFUN CANONIZED-DECL-SPEC ; (SB!C:COMPILER-ERROR "ambiguous declaration ~S:~% ~ ; ~S was declared as a DECLARATION, but is also a type name." ; SB!C::DECL-SPEC SB!C::ID) ; ; caught STYLE-WARNING: ; undefined function: COMPILER-ERROR ; in: DEFUN GET-OLD-VARS ; (SB!C:COMPILER-ERROR "The name ~S is not a symbol." SB!C::NAME) ; ; caught STYLE-WARNING: ; undefined function: COMPILER-ERROR ; in: DEFUN ADVISE-IF-REPEATED-OPTIMIZE-QUALITIES ; (SB!C:COMPILER-STYLE-WARN "Repeated OPTIMIZE qualit~@P. Using ~{~S~^ and ~}" ; (LENGTH SB!C::DUPS) SB!C::DUPS) ; ; caught STYLE-WARNING: ; undefined function: COMPILER-STYLE-WARN ; in: DEFUN SB-XC:PROCLAIM ; (SB!C:COMPILER-WARN "unrecognized declaration ~S" SB!C::RAW-FORM) ; ; caught STYLE-WARNING: ; undefined function: COMPILER-WARN ; in: DEFUN PROCESS-OPTIMIZE-DECL ; (SB!C:COMPILER-WARN "~@" ; SB!C::QUALITY SB!C::SPEC) ; ; caught STYLE-WARNING: ; undefined function: COMPILER-WARN ; in: DEFUN PROCLAIM-FTYPE ; (SB!KERNEL:FTYPE-PROCLAMATION-MISMATCH-WARN SB!C::NAME ; (SB!KERNEL:TYPE-SPECIFIER SB!C::OLD-TYPE) (SB!KERNEL:TYPE-SPECIFIER TYPE)) ; ; caught STYLE-WARNING: ; undefined function: FTYPE-PROCLAMATION-MISMATCH-WARN ; in: DEFUN PROCLAIM-TYPE ; (SB!KERNEL:TYPE-PROCLAMATION-MISMATCH-WARN SB!C::NAME ; (SB!KERNEL:TYPE-SPECIFIER SB!C::OLD-TYPE) (SB!KERNEL:TYPE-SPECIFIER TYPE)) ; ; caught STYLE-WARNING: ; undefined function: TYPE-PROCLAMATION-MISMATCH-WARN ; in: DEFUN PROCESS-INLINE-DECLARATION ; (SB!C::WARN-IF-INLINE-FAILED/PROCLAIM SB!C::NAME SB!C::NEWVAL) ; ; caught STYLE-WARNING: ; undefined function: WARN-IF-INLINE-FAILED/PROCLAIM ; ; compilation unit finished ; Undefined functions: ; COMPILER-ERROR COMPILER-STYLE-WARN COMPILER-WARN FTYPE-PROCLAMATION-MISMATCH-WARN TYPE-PROCLAMATION-MISMATCH-WARN WARN-IF-INLINE-FAILED/PROCLAIM ; caught 8 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/proclaim.fasl-tmp written ; compilation finished in 0:00:00.085 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/class-init.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (/SHOW0 "beginning class-init.lisp") ; compiling (DOLIST (X *!BUILT-IN-CLASSES*) ...) ; compiling (/SHOW0 "done with class-init.lisp") ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/class-init.fasl-tmp written ; compilation finished in 0:00:00.011 /beginning class-init.lisp /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="T" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="CHARACTER" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SYMBOL" /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SYSTEM-AREA-POINTER" /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="WEAK-POINTER" /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="CODE-COMPONENT" /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="LRA" /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="FDEFN" /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="RANDOM-CLASS" /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="FUNCTION" /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="NUMBER" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="COMPLEX" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="COMPLEX-SINGLE-FLOAT" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="COMPLEX-DOUBLE-FLOAT" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="REAL" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="FLOAT" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SINGLE-FLOAT" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="DOUBLE-FLOAT" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="RATIONAL" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="RATIO" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="INTEGER" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="FIXNUM" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="BIGNUM" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="ARRAY" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-ARRAY" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SEQUENCE" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="VECTOR" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-VECTOR" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="BIT-VECTOR" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-BIT-VECTOR" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-ARRAY-UNSIGNED-BYTE-2" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-ARRAY-UNSIGNED-BYTE-4" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-ARRAY-UNSIGNED-BYTE-7" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-ARRAY-UNSIGNED-BYTE-8" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-ARRAY-UNSIGNED-BYTE-15" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-ARRAY-UNSIGNED-BYTE-16" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-ARRAY-UNSIGNED-FIXNUM" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-ARRAY-UNSIGNED-BYTE-31" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-ARRAY-UNSIGNED-BYTE-32" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-ARRAY-SIGNED-BYTE-8" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-ARRAY-SIGNED-BYTE-16" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-ARRAY-FIXNUM" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-ARRAY-SIGNED-BYTE-32" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-ARRAY-SINGLE-FLOAT" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-ARRAY-DOUBLE-FLOAT" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="STRING" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-STRING" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="VECTOR-NIL" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-ARRAY-NIL" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="BASE-STRING" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-BASE-STRING" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="CHARACTER-STRING" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-CHARACTER-STRING" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="LIST" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="CONS" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="NULL" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="STREAM" /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="FILE-STREAM" /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="STRING-STREAM" /done with class-init.lisp ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/defstruct.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (/SHOW0 "code/defstruct.lisp 15") ; compiling (DEFUN COMPILER-LAYOUT-OR-LOSE ...) ; compiling (DEFUN COMPILER-LAYOUT-READY-P ...) ; compiling (SB-XC:DEFMACRO %MAKE-STRUCTURE-INSTANCE-MACRO ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN %MAKE-STRUCTURE-INSTANCE-ALLOCATOR ...) ; compiling (DEFUN %MAKE-FUNCALLABLE-STRUCTURE-INSTANCE-ALLOCATOR ...) ; compiling (SB-XC:DEFMACRO %DELAYED-GET-COMPILER-LAYOUT ...) ; compiling (DEF!STRUCT (DEFSTRUCT-DESCRIPTION # ...) ...) ; compiling (DECLAIM (FREEZE-TYPE DEFSTRUCT-DESCRIPTION)) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFUN DD-CLASS-P ...) ; compiling (DEFUN DD-LAYOUT-OR-LOSE ...) ; compiling (DEF!STRUCT (DEFSTRUCT-SLOT-DESCRIPTION # ...) ...) ; compiling (DECLAIM (FREEZE-TYPE DEFSTRUCT-SLOT-DESCRIPTION)) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFUN DD-LISP-TYPE ...) ; compiling (SB-XC:DEFMACRO DELAY-DEFSTRUCT-FUNCTIONS ...) ; compiling (DEFUN %EXPANDER-FOR-DEFSTRUCT ...) ; compiling (SB-XC:DEFMACRO DEFSTRUCT ...) ; compiling (DEFMACRO SB-XC:DEFSTRUCT ...) ; compiling (DEFUN ACCESSOR-INHERITED-DATA ...) ; compiling (DEFUN TYPED-PREDICATE-DEFINITIONS ...) ; compiling (DEFUN TYPED-COPIER-DEFINITIONS ...) ; compiling (DEFUN TYPED-ACCESSOR-DEFINITIONS ...) ; compiling (DEFCONSTANT-EQX +DD-OPTION-NAMES+ ...) ; compiling (DEFUN PARSE-1-DD-OPTION ...) ; compiling (DEFUN PARSE-DEFSTRUCT-NAME-AND-OPTIONS ...) ; compiling (DEFUN DETERMINE-UNSAFE-SLOTS ...) ; compiling (DEFUN PARSE-DEFSTRUCT-NAME-AND-OPTIONS-AND-SLOT-DESCRIPTIONS ...) ; compiling (DEFUN PARSE-1-DSD ...) ; compiling (DEFUN STRUCTURE-RAW-SLOT-DATA ...) ; compiling (DEFUN ALLOCATE-1-SLOT ...) ; compiling (DEFUN TYPED-STRUCTURE-INFO-OR-LOSE ...) ; compiling (DEFUN FROB-DD-INCLUSION-STUFF ...) ; compiling (DEFUN INHERITS-FOR-STRUCTURE ...) ; compiling (DEFUN %DEFSTRUCT ...) ; compiling (DEFUN %ACCESSOR-PLACE-FORM ...) ; compiling (DEFUN SLOT-ACCESS-TRANSFORM ...) ; compiling (DEFUN SLOT-SETTER-LAMBDA-FORM ...) ; compiling (DEFUN UNDECLARE-STRUCTURE ...) ; compiling (DEFUN %COMPILER-SET-UP-LAYOUT ...) ; compiling (DEFUN %COMPILER-DEFSTRUCT ...) ; compiling (DEFUN COMPARE-SLOTS ...) ; compiling (DEFUN REDEFINE-STRUCTURE-WARNING ...) ; compiling (DEFUN %REDEFINE-DEFSTRUCT ...) ; compiling (DECLAIM (INLINE DD-LAYOUT-LENGTH)) ; compiling (DEFUN DD-LAYOUT-LENGTH ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN DD-INSTANCE-LENGTH ...) ; compiling (DEFUN DD-BITMAP ...) ; compiling (DEFUN ENSURE-STRUCTURE-CLASS ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/defstruct.lisp ; in: DEFUN ENSURE-STRUCTURE-CLASS ; (VALUES CLASS SB!KERNEL::NEW-LAYOUT SB!KERNEL::OLD-LAYOUT) ; ==> ; CLASS ; ; note: deleting unreachable code ; compiling (DEFUN FIND-NAME-INDICES ...) ; compiling (DEFUN CREATE-VECTOR-CONSTRUCTOR ...) ; compiling (DEFUN CREATE-LIST-CONSTRUCTOR ...) ; compiling (DEFUN CREATE-STRUCTURE-CONSTRUCTOR ...) ; compiling (DEFUN CREATE-KEYWORD-CONSTRUCTOR ...) ; compiling (DEFUN CREATE-BOA-CONSTRUCTOR ...) ; compiling (DEFUN CONSTRUCTOR-DEFINITIONS ...) ; compiling (DEFUN ACCESSOR-DEFINITIONS ...) ; compiling (DEFUN COPIER-DEFINITION ...) ; compiling (DEFUN PREDICATE-DEFINITION ...) ; compiling (DEFUN MAKE-DD-WITH-ALTERNATE-METACLASS ...) ; compiling (DEFMACRO !DEFSTRUCT-WITH-ALTERNATE-METACLASS ...) ; compiling (SB-XC:PROCLAIM (QUOTE #)) ; compiling (SB-XC:DEFMACRO !DEFSTRUCT-WITH-ALTERNATE-METACLASS ...) ; compiling (DEFUN !SET-UP-STRUCTURE-OBJECT-CLASS ...) ; compiling (!SET-UP-STRUCTURE-OBJECT-CLASS) ; compiling (DOLIST (ARGS #) ...) ; compiling (DEFUN FIND-DEFSTRUCT-DESCRIPTION ...) ; compiling (/SHOW0 "code/defstruct.lisp end of file") ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/defstruct.lisp ; in: SB-XC:DEFMACRO %DELAYED-GET-COMPILER-LAYOUT ; (SB!C:COMPILER-NOTIFY "implementation limitation: ~ ; Non-toplevel DEFSTRUCT constructors are slow.") ; ; caught STYLE-WARNING: ; undefined function: SB!C:COMPILER-NOTIFY ; in: DEFUN %COMPILER-DEFSTRUCT ; (SB!C:COMPILER-STYLE-WARN 'SB!C:INLINING-DEPENDENCY-FAILURE :FORMAT-CONTROL ; (SB!INT:!UNCROSS-FORMAT-CONTROL "~@") ; :FORMAT-ARGUMENTS ; (LIST (LENGTH SB!INT:IT) (NREVERSE SB!INT:IT) ; (SB!KERNEL:DD-NAME SB!KERNEL::DD))) ; ; caught STYLE-WARNING: ; undefined function: SB!C:COMPILER-STYLE-WARN ; (SB!INT:STYLE-WARN "~@" ; SB!KERNEL::ACCESSOR-NAME (SB!KERNEL:DSD-NAME SB!KERNEL::DSD)) ; ; caught STYLE-WARNING: ; undefined function: STYLE-WARN ; in: DEFUN PARSE-1-DSD ; (SB!INT:STYLE-WARN ; "~@" ; SB!KERNEL::ACCESSOR-NAME) ; ; caught STYLE-WARNING: ; undefined function: STYLE-WARN ; in: DEFUN TYPED-ACCESSOR-DEFINITIONS ; (SB!INT:STYLE-WARN "~@" ; SB!KERNEL::NAME (SB!KERNEL:DSD-NAME SB!ALIEN:SLOT)) ; ; caught STYLE-WARNING: ; undefined function: STYLE-WARN ; ; compilation unit finished ; Undefined functions: ; SB!C:COMPILER-NOTIFY SB!C:COMPILER-STYLE-WARN STYLE-WARN ; caught 5 STYLE-WARNING conditions ; printed 1 note ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/defstruct.fasl-tmp written ; compilation finished in 0:00:00.727 /code/defstruct.lisp 15 /code/defstruct.lisp end of file ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/alien-type.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (/SHOW0 "code/alien-type.lisp 16") ; compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS) ; compiling (DEFSTRUCT (ALIEN-TYPE-TYPE # ...) ...) ; compiling (!DEFINE-TYPE-CLASS ALIEN ...) ; compiling (!DEFINE-TYPE-METHOD (ALIEN :NEGATE) ...) ; compiling (!DEFINE-TYPE-METHOD (ALIEN :UNPARSE) ...) ; compiling (!DEFINE-TYPE-METHOD (ALIEN :SIMPLE-SUBTYPEP) ...) ; compiling (!DEFINE-SUPERCLASSES ALIEN ...) ; compiling (!DEFINE-TYPE-METHOD (ALIEN :SIMPLE-=) ...) ; compiling (!DEF-TYPE-TRANSLATOR ALIEN ...) ; compiling (DEFUN MAKE-ALIEN-TYPE-TYPE ...) ; compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !ALIEN-TYPE-COLD-INIT) ; compiling (/SHOW0 "code/alien-type.lisp end of file") ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/alien-type.lisp ; in: !DEF-TYPE-TRANSLATOR ALIEN ; (SB!ALIEN-INTERNALS:PARSE-ALIEN-TYPE SB!ALIEN-INTERNALS:ALIEN-TYPE ; (SB!KERNEL:MAKE-NULL-LEXENV)) ; ; caught STYLE-WARNING: ; undefined type: LEXENV ; (SB!KERNEL:MAKE-NULL-LEXENV) ; ; caught STYLE-WARNING: ; undefined function: MAKE-NULL-LEXENV ; ; compilation unit finished ; Undefined type: ; LEXENV ; Undefined function: ; MAKE-NULL-LEXENV ; caught 2 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/alien-type.fasl-tmp written ; compilation finished in 0:00:00.069 /code/alien-type.lisp 16 /code/alien-type.lisp end of file ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/force-delayed-defbangstructs.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (FORCE-DELAYED-DEF!STRUCTS) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/force-delayed-defbangstructs.fasl-tmp written ; compilation finished in 0:00:00.002 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-full-eval.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!EVAL") ; compiling (SB!INT:!DEFPARAMETER *EVAL-LEVEL* ...) ; compiling (SB!INT:!DEFPARAMETER *EVAL-VERBOSE* ...) ; compiling (!DEFSTRUCT-WITH-ALTERNATE-METACLASS INTERPRETED-FUNCTION ...) /entering CLASSOID-MAKE-LOAD-FORM-FUN CLASS=# /entering CLASSOID-MAKE-LOAD-FORM-FUN CLASS=# ; compiling (SB!C::SEAL-CLASS (SPECIFIER-TYPE #)) ; compiling (DECLAIM (FREEZE-TYPE INTERPRETED-FUNCTION)) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/early-full-eval.fasl-tmp written ; compilation finished in 0:00:00.005 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/compiler-error.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DECLAIM (TYPE # ...)) ; compiling (DEFVAR *COMPILER-ERROR-BAILOUT*) ; compiling (DEFINE-CONDITION COMPILER-ERROR ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN COMPILER-ERROR ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/compiler-error.lisp ; in: DEFUN COMPILER-ERROR ; (SB!INT:BUG "Control returned from *COMPILER-ERROR-BAILOUT*.") ; ==> ; "Control returned from *COMPILER-ERROR-BAILOUT*." ; ; note: deleting unreachable code ; compiling (DEFMACRO WITH-COMPILER-ERROR-RESIGNALLING ...) ; compiling (DEFUN COMPILER-WARN ...) ; compiling (DEFUN COMPILER-STYLE-WARN ...) ; compiling (DEFUN SOURCE-TO-STRING ...) ; compiling (DEFUN MAKE-COMPILER-ERROR-FORM ...) ; compiling (DEFINE-CONDITION FATAL-COMPILER-ERROR ...) ; compiling (DEFINE-CONDITION INPUT-ERROR-IN-COMPILE-FILE ...) ; compiling (DEFINE-CONDITION INPUT-ERROR-IN-LOAD ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/compiler-error.lisp ; in: DEFUN COMPILER-ERROR ; (SB!KERNEL:COERCE-TO-CONDITION SB!C::DATUM SB!C::ARGUMENTS ; 'SB!INT:SIMPLE-PROGRAM-ERROR 'SB!C:COMPILER-ERROR) ; ; caught STYLE-WARNING: ; undefined function: COERCE-TO-CONDITION ; in: DEFUN COMPILER-STYLE-WARN ; #'SB!INT:STYLE-WARN ; ; caught STYLE-WARNING: ; undefined function: STYLE-WARN ; ; compilation unit finished ; Undefined functions: ; COERCE-TO-CONDITION STYLE-WARN ; caught 2 STYLE-WARNING conditions ; printed 1 note ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/compiler-error.fasl-tmp written ; compilation finished in 0:00:00.039 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/late-deftypes-for-target.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (SB-XC:DEFTYPE COMPILED-FUNCTION ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/late-deftypes-for-target.fasl-tmp written ; compilation finished in 0:00:00.002 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/type-init.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (/SHOW0 "precomputing numeric types") ; compiling (PRECOMPUTE-TYPES (QUOTE #)) ; compiling (/SHOW0 "precomputing built-in symbol type specifiers") ; compiling (PRECOMPUTE-TYPES *!STANDARD-TYPE-NAMES*) ; compiling (SETF *TYPE-SYSTEM-INITIALIZED* ...) ; compiling (/SHOW0 "done with type-init.lisp") ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/type-init.fasl-tmp written ; compilation finished in 0:00:00.001 /precomputing numeric types /precomputing built-in symbol type specifiers /done with type-init.lisp ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/fixup-type.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS) ; compiling (!COLD-INIT-FORMS (MAP # ...)) ; compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !FIXUP-TYPE-COLD-INIT) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/fixup-type.fasl-tmp written ; compilation finished in 0:00:00.005 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/package.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEF!TYPE HASH-VECTOR ...) ; compiling (DEF!STRUCT (PACKAGE-HASHTABLE # ...) ...) /entering CLASSOID-MAKE-LOAD-FORM-FUN CLASS=# /entering CLASSOID-MAKE-LOAD-FORM-FUN CLASS=# /entering CLASSOID-MAKE-LOAD-FORM-FUN CLASS=# ; compiling (DEF!STRUCT (SB-XC:PACKAGE # ...) ...) ; compiling (FLET (#) ...) ; compiling (DEFUN PACKAGE-ITER-INIT ...) ; compiling (DECLAIM (INLINE PKG-SYMBOL-VALID-P)) ; compiling (DEFUN PKG-SYMBOL-VALID-P ...) ; compiling (DEFCONSTANT +PACKAGE-ITER-CHECK-SHADOWS+ ...) ; compiling (DEFUN PACKAGE-ITER-STEP ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/package.lisp ; in: DEFUN PACKAGE-ITER-STEP ; (LOGIOR (SB-XC:MASK-FIELD (SB-XC:BYTE 3 3) SB!IMPL::START-STATE) ; SB!IMPL::NEXT-STATE) ; ; note: forced to do static-fun Two-arg-ior (cost 53) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because: ; The first argument is a T, not a (SIGNED-BYTE 32). ; The second argument is a (INTEGER -536870848 536870911), not a (UNSIGNED-BYTE ; 32). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 32) &REST ; T). ; etc. ; (THE FIXNUM (+ SB!IMPL::STATE (ASH 1 6))) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; compiling (DEFMACRO-MUNDANELY WITH-PACKAGE-ITERATOR ...) ; compiling (DEFMACRO-MUNDANELY WITH-PACKAGE-GRAPH ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/package.lisp ; in: ; DEF!STRUCT (SB-XC:PACKAGE ; (:CONSTRUCTOR %MAKE-PACKAGE ; (%NAME INTERNAL-SYMBOLS EXTERNAL-SYMBOLS)) ; (:MAKE-LOAD-FORM-FUN (LAMBDA (P) (VALUES # NIL))) ; (:PREDICATE SB-XC:PACKAGEP)) ; (SB!INT:DEF!STRUCT ; (SB-XC:PACKAGE ; (:CONSTRUCTOR SB!IMPL::%MAKE-PACKAGE ; (SB!IMPL::%NAME SB!IMPL::INTERNAL-SYMBOLS SB!IMPL::EXTERNAL-SYMBOLS)) ; (:MAKE-LOAD-FORM-FUN (LAMBDA (SB!IMPL::P) (VALUES # NIL))) ; (:PREDICATE SB-XC:PACKAGEP)) ; "the standard structure for the description of a package" ; (SB!IMPL::%NAME NIL :TYPE (OR SIMPLE-STRING NULL)) ; (SB!IMPL::%NICKNAMES NIL :TYPE LIST) (SB!IMPL::%USE-LIST NIL :TYPE LIST) ; (SB!IMPL::TABLES #() :TYPE SIMPLE-VECTOR) ; (SB!IMPL::MRU-TABLE-INDEX 0 :TYPE SB!INT:INDEX) ; (SB!IMPL::%USED-BY-LIST NIL :TYPE LIST) ; (SB!IMPL::INTERNAL-SYMBOLS NIL :TYPE SB!INT:PACKAGE-HASHTABLE) ; (SB!IMPL::EXTERNAL-SYMBOLS NIL :TYPE SB!INT:PACKAGE-HASHTABLE) ; (SB!IMPL::%SHADOWING-SYMBOLS NIL :TYPE LIST) ...) ; --> PROGN ; ==> ; (DEFSTRUCT ; (SB-XC:PACKAGE (:INCLUDE SB!SYS:STRUCTURE!OBJECT) ; (:CONSTRUCTOR SB!IMPL::%MAKE-PACKAGE ; (SB!IMPL::%NAME SB!IMPL::INTERNAL-SYMBOLS SB!IMPL::EXTERNAL-SYMBOLS)) ; (:PREDICATE SB-XC:PACKAGEP)) ; "the standard structure for the description of a package" ; (SB!IMPL::%NAME NIL :TYPE (OR SIMPLE-STRING NULL)) ; (SB!IMPL::%NICKNAMES NIL :TYPE LIST) ; (SB!IMPL::%USE-LIST NIL :TYPE LIST) ; (SB!IMPL::TABLES #() :TYPE SIMPLE-VECTOR) ; (SB!IMPL::MRU-TABLE-INDEX 0 :TYPE SB!INT:INDEX) ; (SB!IMPL::%USED-BY-LIST NIL :TYPE LIST) ; (SB!IMPL::INTERNAL-SYMBOLS NIL :TYPE SB!INT:PACKAGE-HASHTABLE) ; (SB!IMPL::EXTERNAL-SYMBOLS NIL :TYPE SB!INT:PACKAGE-HASHTABLE) ; (SB!IMPL::%SHADOWING-SYMBOLS NIL :TYPE LIST) ; ...) ; ; caught STYLE-WARNING: ; undefined type: SB!C:DEFINITION-SOURCE-LOCATION ; in: DEFUN PACKAGE-ITER-INIT ; (SB!IMPL::PACKAGE-LISTIFY SB!IMPL::PKG-DESIGNATOR-LIST) ; ; caught STYLE-WARNING: ; undefined function: PACKAGE-LISTIFY ; ; compilation unit finished ; Undefined type: ; SB!C:DEFINITION-SOURCE-LOCATION ; Undefined function: ; PACKAGE-LISTIFY ; caught 2 STYLE-WARNING conditions ; printed 2 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/package.fasl-tmp written ; compilation finished in 0:00:00.116 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/random.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (DEF!CONSTANT N-RANDOM-CHUNK-BITS ...) ; compiling (SB-XC:DEFSTRUCT (RANDOM-STATE # ...) ...) /entering CLASSOID-MAKE-LOAD-FORM-FUN CLASS=# /entering CLASSOID-MAKE-LOAD-FORM-FUN CLASS=# ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/random.fasl-tmp written ; compilation finished in 0:00:00.005 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/hash-table.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (SB-XC:DEFSTRUCT (HASH-TABLE #) ...) /entering CLASSOID-MAKE-LOAD-FORM-FUN CLASS=# /entering CLASSOID-MAKE-LOAD-FORM-FUN CLASS=# ; compiling (DEFCONSTANT +MAGIC-HASH-VECTOR-VALUE+ ...) ; compiling (DEFMACRO-MUNDANELY WITH-HASH-TABLE-ITERATOR ...) ; compiling (DEFMACRO-MUNDANELY WITH-LOCKED-HASH-TABLE ...) ; compiling (DEFMACRO-MUNDANELY WITH-LOCKED-SYSTEM-TABLE ...) ; compiling (DEFUN %HASH-TABLE-ALIST ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/hash-table.fasl-tmp written ; compilation finished in 0:00:00.019 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/readtable.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (SB-XC:DEFTYPE ATTRIBUTE-TABLE ...) ; compiling (DEF!CONSTANT +CHAR-ATTR-WHITESPACE+ ...) ; compiling (DEF!CONSTANT +CHAR-ATTR-TERMINATING-MACRO+ ...) ; compiling (DEF!CONSTANT +CHAR-ATTR-SINGLE-ESCAPE+ ...) ; compiling (DEF!CONSTANT +CHAR-ATTR-MULTIPLE-ESCAPE+ ...) ; compiling (DEF!CONSTANT +CHAR-ATTR-CONSTITUENT+ ...) ; compiling (DEF!CONSTANT +CHAR-ATTR-CONSTITUENT-DOT+ ...) ; compiling (DEF!CONSTANT +CHAR-ATTR-CONSTITUENT-EXPT+ ...) ; compiling (DEF!CONSTANT +CHAR-ATTR-CONSTITUENT-SLASH+ ...) ; compiling (DEF!CONSTANT +CHAR-ATTR-CONSTITUENT-DIGIT+ ...) ; compiling (DEF!CONSTANT +CHAR-ATTR-CONSTITUENT-SIGN+ ...) ; compiling (DEF!CONSTANT +CHAR-ATTR-CONSTITUENT-DECIMAL-DIGIT+ ...) ; compiling (DEF!CONSTANT +CHAR-ATTR-CONSTITUENT-DIGIT-OR-EXPT+ ...) ; compiling (DEF!CONSTANT +CHAR-ATTR-PACKAGE-DELIMITER+ ...) ; compiling (DEF!CONSTANT +CHAR-ATTR-INVALID+ ...) ; compiling (DEF!CONSTANT +CHAR-ATTR-DELIMITER+ ...) ; compiling (SB-XC:DEFSTRUCT (READTABLE # ...) ...) /entering CLASSOID-MAKE-LOAD-FORM-FUN CLASS=# /entering CLASSOID-MAKE-LOAD-FORM-FUN CLASS=# ; compiling (DECLAIM (FREEZE-TYPE READTABLE)) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/readtable.fasl-tmp written ; compilation finished in 0:00:00.008 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/pathname.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEF!STRUCT (HOST #) ...) /entering CLASSOID-MAKE-LOAD-FORM-FUN CLASS=# /entering CLASSOID-MAKE-LOAD-FORM-FUN CLASS=# /entering CLASSOID-MAKE-LOAD-FORM-FUN CLASS=# ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEF!STRUCT (LOGICAL-HOST # ...) ...) /entering CLASSOID-MAKE-LOAD-FORM-FUN CLASS=# ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFUN MAKE-LOGICAL-HOST-LOAD-FORM-FUN ...) ; compiling (DEF!STRUCT (PATTERN #) ...) ; compiling (DEF!TYPE PATHNAME-COMPONENT-TOKENS ...) ; compiling (SB-XC:DEFSTRUCT (PATHNAME # ...) ...) ; compiling (SB-XC:DEFSTRUCT (LOGICAL-PATHNAME # ...)) /entering CLASSOID-MAKE-LOAD-FORM-FUN CLASS=# ; compiling (DEFUN UNPARSE-PHYSICAL-DIRECTORY ...) ; compiling (DEFUN UNPARSE-PHYSICAL-DIRECTORY-LIST ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/pathname.lisp ; in: DEFUN UNPARSE-PHYSICAL-DIRECTORY ; (SB!IMPL::%PATHNAME-DIRECTORY PATHNAME) ; ; caught STYLE-WARNING: ; undefined function: %PATHNAME-DIRECTORY ; in: ; DEF!STRUCT (LOGICAL-HOST (:MAKE-LOAD-FORM-FUN MAKE-LOGICAL-HOST-LOAD-FORM-FUN) ; (:INCLUDE HOST (PARSE #'PARSE-LOGICAL-NAMESTRING) ; (PARSE-NATIVE (LAMBDA # #)) ; (UNPARSE #'UNPARSE-LOGICAL-NAMESTRING) ...)) ; (SB!IMPL::%PATHNAME-HOST SB!IMPL::X) ; ; caught STYLE-WARNING: ; undefined function: %PATHNAME-HOST ; #'SB!IMPL::PARSE-LOGICAL-NAMESTRING ; ; caught STYLE-WARNING: ; undefined function: PARSE-LOGICAL-NAMESTRING ; #'SB!IMPL::UNPARSE-ENOUGH-NAMESTRING ; ; caught STYLE-WARNING: ; undefined function: UNPARSE-ENOUGH-NAMESTRING ; #'SB!IMPL::UNPARSE-LOGICAL-DIRECTORY ; ; caught STYLE-WARNING: ; undefined function: UNPARSE-LOGICAL-DIRECTORY ; #'SB!IMPL::UNPARSE-LOGICAL-FILE ; ; caught STYLE-WARNING: ; undefined function: UNPARSE-LOGICAL-FILE ; #'SB!IMPL::UNPARSE-LOGICAL-NAMESTRING ; ; caught STYLE-WARNING: ; undefined function: UNPARSE-LOGICAL-NAMESTRING ; in: DEFUN UNPARSE-PHYSICAL-DIRECTORY-LIST ; (SB!IMPL::UNPARSE-PHYSICAL-PIECE SB!IMPL::DIR SB!IMPL::ESCAPE-CHAR) ; ; caught STYLE-WARNING: ; undefined function: UNPARSE-PHYSICAL-PIECE ; ; compilation unit finished ; Undefined functions: ; %PATHNAME-DIRECTORY %PATHNAME-HOST PARSE-LOGICAL-NAMESTRING UNPARSE-ENOUGH-NAMESTRING UNPARSE-LOGICAL-DIRECTORY UNPARSE-LOGICAL-FILE UNPARSE-LOGICAL-NAMESTRING UNPARSE-PHYSICAL-PIECE ; caught 8 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/pathname.fasl-tmp written ; compilation finished in 0:00:00.152 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/host-pprint.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!PRETTY") ; compiling (DEF!STRUCT (PPRINT-DISPATCH-TABLE #) ...) /entering CLASSOID-MAKE-LOAD-FORM-FUN CLASS=# /entering CLASSOID-MAKE-LOAD-FORM-FUN CLASS=# /entering CLASSOID-MAKE-LOAD-FORM-FUN CLASS=# ; compiling (DEF!METHOD PRINT-OBJECT ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/host-pprint.fasl-tmp written ; compilation finished in 0:00:00.024 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/lexenv.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DECLAIM (INLINE INTERNAL-MAKE-LEXENV)) ; compiling (DEF!STRUCT (LEXENV # ...) ...) /entering CLASSOID-MAKE-LOAD-FORM-FUN CLASS=# /entering CLASSOID-MAKE-LOAD-FORM-FUN CLASS=# /entering CLASSOID-MAKE-LOAD-FORM-FUN CLASS=# ; compiling (DEFUN LEXENV-POLICY ...) ; compiling (DEFUN NULL-LEXENV-P ...) ; compiling (DEFUN COERCE-TO-LEXENV ...) ; compiling (DEFUN PRINT-LEXENV ...) ; compiling (DEFUN MAYBE-INLINE-SYNTACTIC-CLOSURE ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/lexenv.lisp ; in: DEFUN MAYBE-INLINE-SYNTACTIC-CLOSURE ; (SB!INT:COLLECT ((SB!C::DECLS) (SB!C::MACROS) (SB!C::SYMBOL-MACROS)) ; (COND ; ((OR (SB!C::LEXENV-BLOCKS SB!KERNEL:LEXENV) ; (SB!C::LEXENV-TAGS SB!KERNEL:LEXENV)) ; NIL) ; ((AND (NULL SB!C::VARS) (NULL SB!C::FUNS)) ; (SB!INT:QUASIQUOTE (SB!C:LAMBDA-WITH-LEXENV NIL NIL NIL #))) ; ((DOLIST (SB!C::X SB!C::VARS NIL) (RETURN T)) NIL) ; ((DOLIST (SB!C::X SB!C::FUNS NIL) (RETURN T)) NIL) ; (T (SB!INT:QUASIQUOTE (SB!C:LAMBDA-WITH-LEXENV # # # #))))) ; --> MACROLET ; ==> ; (LET* ((#:DECLS-N-VALUE-269 NIL) ; #:DECLS-N-TAIL-270 ; (#:MACROS-N-VALUE-271 NIL) ; #:MACROS-N-TAIL-272 ; (#:SYMBOL-MACROS-N-VALUE-273 NIL) ; #:SYMBOL-MACROS-N-TAIL-274) ; (COND ; ((OR (SB!C::LEXENV-BLOCKS SB!KERNEL:LEXENV) ; (SB!C::LEXENV-TAGS SB!KERNEL:LEXENV)) ; NIL) ; ((AND (NULL SB!C::VARS) (NULL SB!C::FUNS)) ; (SB!INT:QUASIQUOTE (SB!C:LAMBDA-WITH-LEXENV NIL NIL NIL #))) ; ((DOLIST (SB!C::X SB!C::VARS NIL) (RETURN T)) NIL) ; ((DOLIST (SB!C::X SB!C::FUNS NIL) (RETURN T)) NIL) ; (T (SB!INT:QUASIQUOTE (SB!C:LAMBDA-WITH-LEXENV # # # #))))) ; ; caught STYLE-WARNING: ; The variable #:DECLS-N-TAIL-270 is defined but never used. ; ; caught STYLE-WARNING: ; The variable #:MACROS-N-TAIL-272 is defined but never used. ; ; caught STYLE-WARNING: ; The variable #:SYMBOL-MACROS-N-TAIL-274 is defined but never used. ; (DOLIST (SB!C::X SB!C::VARS NIL) (RETURN T)) ; --> BLOCK LET TAGBODY UNLESS IF PROGN ; ==> ; (LET ((SB!C::X (CAR #:N-LIST285))) ; (SETQ #:N-LIST285 (CDR #:N-LIST285)) ; (TAGBODY (RETURN T))) ; ; caught STYLE-WARNING: ; The variable X is defined but never used. ; (DOLIST (SB!C::X SB!C::FUNS NIL) (RETURN T)) ; --> BLOCK LET TAGBODY UNLESS IF PROGN ; ==> ; (LET ((SB!C::X (CAR #:N-LIST287))) ; (SETQ #:N-LIST287 (CDR #:N-LIST287)) ; (TAGBODY (RETURN T))) ; ; caught STYLE-WARNING: ; The variable X is defined but never used. ; ; compilation unit finished ; caught 5 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/lexenv.fasl-tmp written ; compilation finished in 0:00:00.065 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/fndb.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFKNOWN COERCE ...) ; compiling (DEFKNOWN LIST-TO-VECTOR* ...) ; compiling (DEFKNOWN VECTOR-TO-VECTOR* ...) ; compiling (DEFKNOWN TYPE-OF ...) ; compiling (DEFKNOWN (SB-XC:UPGRADED-COMPLEX-PART-TYPE SB-XC:UPGRADED-ARRAY-ELEMENT-TYPE) ...) ; compiling (DEFKNOWN TYPEP ...) ; compiling (DEFKNOWN SUBTYPEP ...) ; compiling (DEFKNOWN (NULL SYMBOLP ...) ...) ; compiling (DEFKNOWN (EQ EQL ...) ...) ; compiling (DEFKNOWN (EQUAL EQUALP) ...) ; compiling (DEFKNOWN FIXNUM-MOD-P ...) ; compiling (SB-XC:DEFTYPE NAME-FOR-CLASS ...) ; compiling (DEFKNOWN CLASSOID-NAME ...) ; compiling (DEFKNOWN FIND-CLASSOID ...) ; compiling (DEFKNOWN CLASSOID-OF ...) ; compiling (DEFKNOWN LAYOUT-OF ...) ; compiling (DEFKNOWN COPY-STRUCTURE ...) ; compiling (DEFKNOWN (SYMBOL-VALUE) ...) ; compiling (DEFKNOWN ABOUT-TO-MODIFY-SYMBOL-VALUE ...) ; compiling (DEFKNOWN (SYMBOL-FUNCTION) ...) ; compiling (DEFKNOWN BOUNDP ...) ; compiling (DEFKNOWN FBOUNDP ...) ; compiling (DEFKNOWN SPECIAL-OPERATOR-P ...) ; compiling (DEFKNOWN SET ...) ; compiling (DEFKNOWN FDEFINITION ...) ; compiling (DEFKNOWN %SET-FDEFINITION ...) ; compiling (DEFKNOWN MAKUNBOUND ...) ; compiling (DEFKNOWN FMAKUNBOUND ...) ; compiling (DEFKNOWN APPLY ...) ; compiling (DEFKNOWN FUNCALL ...) ; compiling (DEFKNOWN (MAPCAR MAPLIST) ...) ; compiling (DEFKNOWN (MAPCAN MAPCON) ...) ; compiling (DEFKNOWN (MAPC MAPL) ...) ; compiling (DEFKNOWN VALUES ...) ; compiling (DEFKNOWN VALUES-LIST ...) ; compiling (DEFKNOWN MACRO-FUNCTION ...) ; compiling (DEFKNOWN (MACROEXPAND MACROEXPAND-1 ...) ...) ; compiling (DEFKNOWN COMPILER-MACRO-FUNCTION ...) ; compiling (DEFKNOWN PROCLAIM ...) ; compiling (DEFKNOWN GET ...) ; compiling (DEFKNOWN SB!IMPL::GET3 ...) ; compiling (DEFKNOWN REMPROP ...) ; compiling (DEFKNOWN SYMBOL-PLIST ...) ; compiling (DEFKNOWN GETF ...) ; compiling (DEFKNOWN GET-PROPERTIES ...) ; compiling (DEFKNOWN SYMBOL-NAME ...) ; compiling (DEFKNOWN MAKE-SYMBOL ...) ; compiling (DEFKNOWN %MAKE-SYMBOL ...) ; compiling (DEFKNOWN COPY-SYMBOL ...) ; compiling (DEFKNOWN GENSYM ...) ; compiling (DEFKNOWN SYMBOL-PACKAGE ...) ; compiling (DEFKNOWN KEYWORDP ...) ; compiling (DEFKNOWN GENTEMP ...) ; compiling (DEFKNOWN MAKE-PACKAGE ...) ; compiling (DEFKNOWN FIND-PACKAGE ...) ; compiling (DEFKNOWN FIND-UNDELETED-PACKAGE-OR-LOSE ...) ; compiling (DEFKNOWN PACKAGE-NAME ...) ; compiling (DEFKNOWN PACKAGE-NICKNAMES ...) ; compiling (DEFKNOWN RENAME-PACKAGE ...) ; compiling (DEFKNOWN PACKAGE-USE-LIST ...) ; compiling (DEFKNOWN PACKAGE-USED-BY-LIST ...) ; compiling (DEFKNOWN PACKAGE-SHADOWING-SYMBOLS ...) ; compiling (DEFKNOWN LIST-ALL-PACKAGES ...) ; compiling (DEFKNOWN INTERN ...) ; compiling (DEFKNOWN FIND-SYMBOL ...) ; compiling (DEFKNOWN (EXPORT IMPORT) ...) ; compiling (DEFKNOWN UNINTERN ...) ; compiling (DEFKNOWN UNEXPORT ...) ; compiling (DEFKNOWN SHADOWING-IMPORT ...) ; compiling (DEFKNOWN SHADOW ...) ; compiling (DEFKNOWN (USE-PACKAGE UNUSE-PACKAGE) ...) ; compiling (DEFKNOWN FIND-ALL-SYMBOLS ...) ; compiling (DEFKNOWN PACKAGE-ITER-STEP ...) ; compiling (DEFKNOWN ZEROP ...) ; compiling (DEFKNOWN (PLUSP MINUSP) ...) ; compiling (DEFKNOWN (ODDP EVENP) ...) ; compiling (DEFKNOWN (=) ...) ; compiling (DEFKNOWN (/=) ...) ; compiling (DEFKNOWN (< > ...) ...) ; compiling (DEFKNOWN (MAX MIN) ...) ; compiling (DEFKNOWN (+ *) ...) ; compiling (DEFKNOWN - ...) ; compiling (DEFKNOWN / ...) ; compiling (DEFKNOWN (1+ 1-) ...) ; compiling (DEFKNOWN CONJUGATE ...) ; compiling (DEFKNOWN GCD ...) ; compiling (DEFKNOWN LCM ...) ; compiling (DEFKNOWN EXP ...) ; compiling (DEFKNOWN EXPT ...) ; compiling (DEFKNOWN LOG ...) ; compiling (DEFKNOWN SQRT ...) ; compiling (DEFKNOWN ISQRT ...) ; compiling (DEFKNOWN (ABS PHASE ...) ...) ; compiling (DEFKNOWN CIS ...) ; compiling (DEFKNOWN (SIN COS) ...) ; compiling (DEFKNOWN ATAN ...) ; compiling (DEFKNOWN (TAN SINH ...) ...) ; compiling (DEFKNOWN (ASIN ACOS ...) ...) ; compiling (DEFKNOWN FLOAT ...) ; compiling (DEFKNOWN (RATIONAL) ...) ; compiling (DEFKNOWN (RATIONALIZE) ...) ; compiling (DEFKNOWN (NUMERATOR DENOMINATOR) ...) ; compiling (DEFKNOWN (FLOOR CEILING ...) ...) ; compiling (DEFKNOWN TRUNCATE ...) ; compiling (DEFKNOWN %MULTIPLY-HIGH ...) ; compiling (DEFKNOWN (MOD REM) ...) ; compiling (DEFKNOWN (FFLOOR FCEILING ...) ...) ; compiling (DEFKNOWN DECODE-FLOAT ...) ; compiling (DEFKNOWN SCALE-FLOAT ...) ; compiling (DEFKNOWN FLOAT-RADIX ...) ; compiling (DEFKNOWN FLOAT-SIGN ...) ; compiling (DEFKNOWN (FLOAT-DIGITS FLOAT-PRECISION) ...) ; compiling (DEFKNOWN INTEGER-DECODE-FLOAT ...) ; compiling (DEFKNOWN COMPLEX ...) ; compiling (DEFKNOWN (REALPART IMAGPART) ...) ; compiling (DEFKNOWN (LOGIOR LOGXOR ...) ...) ; compiling (DEFKNOWN (LOGNAND LOGNOR ...) ...) ; compiling (DEFKNOWN BOOLE ...) ; compiling (DEFKNOWN LOGNOT ...) ; compiling (DEFKNOWN LOGTEST ...) ; compiling (DEFKNOWN LOGBITP ...) ; compiling (DEFKNOWN ASH ...) ; compiling (DEFKNOWN %ASH/RIGHT ...) ; compiling (DEFKNOWN (LOGCOUNT INTEGER-LENGTH) ...) ; compiling (DEFKNOWN BYTE ...) ; compiling (DEFKNOWN (BYTE-SIZE BYTE-POSITION) ...) ; compiling (DEFKNOWN LDB ...) ; compiling (DEFKNOWN LDB-TEST ...) ; compiling (DEFKNOWN MASK-FIELD ...) ; compiling (DEFKNOWN DPB ...) ; compiling (DEFKNOWN DEPOSIT-FIELD ...) ; compiling (DEFKNOWN RANDOM ...) ; compiling (DEFKNOWN MAKE-RANDOM-STATE ...) ; compiling (DEFKNOWN SEED-RANDOM-STATE ...) ; compiling (DEFKNOWN RANDOM-STATE-P ...) ; compiling (DEFKNOWN (STANDARD-CHAR-P GRAPHIC-CHAR-P ...) ...) ; compiling (DEFKNOWN DIGIT-CHAR-P ...) ; compiling (DEFKNOWN (CHAR=) ...) ; compiling (DEFKNOWN (CHAR/= CHAR< ...) ...) ; compiling (DEFKNOWN (CHAR-EQUAL CHAR-LESSP ...) ...) ; compiling (DEFKNOWN (TWO-ARG-CHAR-EQUAL) ...) ; compiling (DEFKNOWN (TWO-ARG-CHAR-NOT-EQUAL TWO-ARG-CHAR-LESSP ...) ...) ; compiling (DEFKNOWN CHAR-EQUAL-CONSTANT ...) ; compiling (DEFKNOWN CHARACTER ...) ; compiling (DEFKNOWN CHAR-CODE ...) ; compiling (DEFKNOWN (CHAR-UPCASE CHAR-DOWNCASE) ...) ; compiling (DEFKNOWN DIGIT-CHAR ...) ; compiling (DEFKNOWN CHAR-INT ...) ; compiling (DEFKNOWN CHAR-NAME ...) ; compiling (DEFKNOWN NAME-CHAR ...) ; compiling (DEFKNOWN CODE-CHAR ...) ; compiling (DEFKNOWN ELT ...) ; compiling (DEFKNOWN SUBSEQ ...) ; compiling (DEFKNOWN COPY-SEQ ...) ; compiling (DEFKNOWN LENGTH ...) ; compiling (DEFKNOWN REVERSE ...) ; compiling (DEFKNOWN NREVERSE ...) ; compiling (DEFKNOWN MAKE-SEQUENCE ...) ; compiling (DEFKNOWN CONCATENATE ...) ; compiling (DEFKNOWN %CONCATENATE-TO-STRING ...) ; compiling (DEFKNOWN %CONCATENATE-TO-BASE-STRING ...) ; compiling (DEFKNOWN (MAP %MAP) ...) ; compiling (DEFKNOWN %MAP-FOR-EFFECT-ARITY-1 ...) ; compiling (DEFKNOWN %MAP-TO-LIST-ARITY-1 ...) ; compiling (DEFKNOWN %MAP-TO-SIMPLE-VECTOR-ARITY-1 ...) ; compiling (DEFKNOWN MAP-INTO ...) ; compiling (DEFKNOWN SOME ...) ; compiling (DEFKNOWN (EVERY NOTANY ...) ...) ; compiling (DEFKNOWN REDUCE ...) ; compiling (DEFKNOWN FILL ...) ; compiling (DEFKNOWN REPLACE ...) ; compiling (DEFKNOWN REMOVE ...) ; compiling (DEFKNOWN SUBSTITUTE ...) ; compiling (DEFKNOWN (REMOVE-IF REMOVE-IF-NOT) ...) ; compiling (DEFKNOWN (SUBSTITUTE-IF SUBSTITUTE-IF-NOT) ...) ; compiling (DEFKNOWN DELETE ...) ; compiling (DEFKNOWN NSUBSTITUTE ...) ; compiling (DEFKNOWN (DELETE-IF DELETE-IF-NOT) ...) ; compiling (DEFKNOWN (NSUBSTITUTE-IF NSUBSTITUTE-IF-NOT) ...) ; compiling (DEFKNOWN REMOVE-DUPLICATES ...) ; compiling (DEFKNOWN DELETE-DUPLICATES ...) ; compiling (DEFKNOWN FIND ...) ; compiling (DEFKNOWN (FIND-IF FIND-IF-NOT) ...) ; compiling (DEFKNOWN POSITION ...) ; compiling (DEFKNOWN (POSITION-IF POSITION-IF-NOT) ...) ; compiling (DEFKNOWN COUNT ...) ; compiling (DEFKNOWN (COUNT-IF COUNT-IF-NOT) ...) ; compiling (DEFKNOWN (MISMATCH SEARCH) ...) ; compiling (DEFKNOWN (STABLE-SORT SORT) ...) ; compiling (DEFKNOWN SB!IMPL::STABLE-SORT-LIST ...) ; compiling (DEFKNOWN SB!IMPL::SORT-VECTOR ...) ; compiling (DEFKNOWN SB!IMPL::STABLE-SORT-VECTOR ...) ; compiling (DEFKNOWN SB!IMPL::STABLE-SORT-SIMPLE-VECTOR ...) ; compiling (DEFKNOWN MERGE ...) ; compiling (DEFKNOWN READ-SEQUENCE ...) ; compiling (DEFKNOWN WRITE-SEQUENCE ...) ; compiling (DEFKNOWN (CAR CDR ...) ...) ; compiling (DEFKNOWN (CAAR CADR ...) ...) ; compiling (DEFKNOWN CONS ...) ; compiling (DEFKNOWN TREE-EQUAL ...) ; compiling (DEFKNOWN ENDP ...) ; compiling (DEFKNOWN LIST-LENGTH ...) ; compiling (DEFKNOWN (NTH FAST-&REST-NTH) ...) ; compiling (DEFKNOWN NTHCDR ...) ; compiling (DEFKNOWN LAST ...) ; compiling (DEFKNOWN %LAST0 ...) ; compiling (DEFKNOWN %LAST1 ...) ; compiling (DEFKNOWN %LASTN/FIXNUM ...) ; compiling (DEFKNOWN %LASTN/BIGNUM ...) ; compiling (DEFKNOWN LIST ...) ; compiling (DEFKNOWN LIST* ...) ; compiling (DEFKNOWN MAKE-LIST ...) ; compiling (DEFKNOWN SB!IMPL::|List| ...) ; compiling (DEFKNOWN SB!IMPL::|List*| ...) ; compiling (DEFKNOWN SB!IMPL::|Append| ...) ; compiling (DEFKNOWN SB!IMPL::|Vector| ...) ; compiling (DEFKNOWN APPEND ...) ; compiling (DEFKNOWN SB!IMPL::APPEND2 ...) ; compiling (DEFKNOWN COPY-LIST ...) ; compiling (DEFKNOWN COPY-ALIST ...) ; compiling (DEFKNOWN COPY-TREE ...) ; compiling (DEFKNOWN REVAPPEND ...) ; compiling (DEFKNOWN NCONC ...) ; compiling (DEFKNOWN NRECONC ...) ; compiling (DEFKNOWN BUTLAST ...) ; compiling (DEFKNOWN NBUTLAST ...) ; compiling (DEFKNOWN LDIFF ...) ; compiling (DEFKNOWN (RPLACA RPLACD) ...) ; compiling (DEFKNOWN SUBST ...) ; compiling (DEFKNOWN NSUBST ...) ; compiling (DEFKNOWN (SUBST-IF SUBST-IF-NOT) ...) ; compiling (DEFKNOWN (NSUBST-IF NSUBST-IF-NOT) ...) ; compiling (DEFKNOWN SUBLIS ...) ; compiling (DEFKNOWN NSUBLIS ...) ; compiling (DEFKNOWN MEMBER ...) ; compiling (DEFKNOWN (MEMBER-IF MEMBER-IF-NOT) ...) ; compiling (DEFKNOWN TAILP ...) ; compiling (DEFKNOWN ADJOIN ...) ; compiling (DEFKNOWN (UNION INTERSECTION ...) ...) ; compiling (DEFKNOWN (NUNION NINTERSECTION ...) ...) ; compiling (DEFKNOWN SUBSETP ...) ; compiling (DEFKNOWN ACONS ...) ; compiling (DEFKNOWN PAIRLIS ...) ; compiling (DEFKNOWN (RASSOC ASSOC) ...) ; compiling (DEFKNOWN (ASSOC-IF-NOT ASSOC-IF ...) ...) ; compiling (DEFKNOWN (MEMQ ASSQ) ...) ; compiling (DEFKNOWN DELQ ...) ; compiling (DEFKNOWN MAKE-HASH-TABLE ...) ; compiling (DEFKNOWN HASH-TABLE-P ...) ; compiling (DEFKNOWN GETHASH ...) ; compiling (DEFKNOWN SB!IMPL::GETHASH3 ...) ; compiling (DEFKNOWN %PUTHASH ...) ; compiling (DEFKNOWN REMHASH ...) ; compiling (DEFKNOWN MAPHASH ...) ; compiling (DEFKNOWN CLRHASH ...) ; compiling (DEFKNOWN HASH-TABLE-COUNT ...) ; compiling (DEFKNOWN HASH-TABLE-REHASH-SIZE ...) ; compiling (DEFKNOWN HASH-TABLE-REHASH-THRESHOLD ...) ; compiling (DEFKNOWN HASH-TABLE-SIZE ...) ; compiling (DEFKNOWN HASH-TABLE-TEST ...) ; compiling (DEFKNOWN SXHASH ...) ; compiling (DEFKNOWN PSXHASH ...) ; compiling (DEFKNOWN HASH-TABLE-EQUALP ...) ; compiling (DEFKNOWN MAKE-ARRAY ...) ; compiling (DEFKNOWN %MAKE-ARRAY ...) ; compiling (DEFKNOWN SB!IMPL::FILL-DATA-VECTOR ...) ; compiling (DEFKNOWN VECTOR ...) ; compiling (DEFKNOWN AREF ...) ; compiling (DEFKNOWN ROW-MAJOR-AREF ...) ; compiling (DEFKNOWN ARRAY-ELEMENT-TYPE ...) ; compiling (DEFKNOWN ARRAY-RANK ...) ; compiling (DEFKNOWN ARRAY-DIMENSION ...) ; compiling (DEFKNOWN ARRAY-DIMENSIONS ...) ; compiling (DEFKNOWN ARRAY-IN-BOUNDS-P ...) ; compiling (DEFKNOWN ARRAY-ROW-MAJOR-INDEX ...) ; compiling (DEFKNOWN ARRAY-TOTAL-SIZE ...) ; compiling (DEFKNOWN ADJUSTABLE-ARRAY-P ...) ; compiling (DEFKNOWN SVREF ...) ; compiling (DEFKNOWN BIT ...) ; compiling (DEFKNOWN SBIT ...) ; compiling (DEFKNOWN (BIT-AND BIT-IOR ...) ...) ; compiling (DEFKNOWN BIT-NOT ...) ; compiling (DEFKNOWN BIT-VECTOR-= ...) ; compiling (DEFKNOWN ARRAY-HAS-FILL-POINTER-P ...) ; compiling (DEFKNOWN FILL-POINTER ...) ; compiling (DEFKNOWN SB!IMPL::FILL-POINTER-ERROR ...) ; compiling (DEFKNOWN VECTOR-PUSH ...) ; compiling (DEFKNOWN VECTOR-PUSH-EXTEND ...) ; compiling (DEFKNOWN VECTOR-POP ...) ; compiling (DEFKNOWN ADJUST-ARRAY ...) ; compiling (DEFKNOWN CHAR ...) ; compiling (DEFKNOWN SCHAR ...) ; compiling (DEFKNOWN (STRING= STRING-EQUAL) ...) ; compiling (DEFKNOWN (STRING< STRING> ...) ...) ; compiling (DEFKNOWN MAKE-STRING ...) ; compiling (DEFKNOWN (STRING-TRIM STRING-LEFT-TRIM ...) ...) ; compiling (DEFKNOWN (STRING-UPCASE STRING-DOWNCASE ...) ...) ; compiling (DEFKNOWN (NSTRING-UPCASE NSTRING-DOWNCASE ...) ...) ; compiling (DEFKNOWN STRING ...) ; compiling (DEFKNOWN (STRING<* STRING>* ...) ...) ; compiling (DEFKNOWN STRING=* ...) ; compiling (DEFKNOWN EVAL ...) ; compiling (DEFKNOWN CONSTANTP ...) ; compiling (DEFKNOWN MAKE-SYNONYM-STREAM ...) ; compiling (DEFKNOWN MAKE-BROADCAST-STREAM ...) ; compiling (DEFKNOWN MAKE-CONCATENATED-STREAM ...) ; compiling (DEFKNOWN MAKE-TWO-WAY-STREAM ...) ; compiling (DEFKNOWN MAKE-ECHO-STREAM ...) ; compiling (DEFKNOWN MAKE-STRING-INPUT-STREAM ...) ; compiling (DEFKNOWN MAKE-STRING-OUTPUT-STREAM ...) ; compiling (DEFKNOWN GET-OUTPUT-STREAM-STRING ...) ; compiling (DEFKNOWN STREAMP ...) ; compiling (DEFKNOWN STREAM-ELEMENT-TYPE ...) ; compiling (DEFKNOWN STREAM-EXTERNAL-FORMAT ...) ; compiling (DEFKNOWN (OUTPUT-STREAM-P INPUT-STREAM-P) ...) ; compiling (DEFKNOWN OPEN-STREAM-P ...) ; compiling (DEFKNOWN CLOSE ...) ; compiling (DEFKNOWN FILE-STRING-LENGTH ...) ; compiling (DEFKNOWN COPY-READTABLE ...) ; compiling (DEFKNOWN READTABLEP ...) ; compiling (DEFKNOWN SET-SYNTAX-FROM-CHAR ...) ; compiling (DEFKNOWN SET-MACRO-CHARACTER ...) ; compiling (DEFKNOWN GET-MACRO-CHARACTER ...) ; compiling (DEFKNOWN MAKE-DISPATCH-MACRO-CHARACTER ...) ; compiling (DEFKNOWN SET-DISPATCH-MACRO-CHARACTER ...) ; compiling (DEFKNOWN GET-DISPATCH-MACRO-CHARACTER ...) ; compiling (DEFKNOWN COPY-PPRINT-DISPATCH ...) ; compiling (DEFKNOWN PPRINT-DISPATCH ...) ; compiling (DEFKNOWN (PPRINT-FILL PPRINT-LINEAR) ...) ; compiling (DEFKNOWN PPRINT-TABULAR ...) ; compiling (DEFKNOWN PPRINT-INDENT ...) ; compiling (DEFKNOWN PPRINT-NEWLINE ...) ; compiling (DEFKNOWN PPRINT-TAB ...) ; compiling (DEFKNOWN SET-PPRINT-DISPATCH ...) ; compiling (DEFKNOWN (READ READ-PRESERVING-WHITESPACE) ...) ; compiling (DEFKNOWN READ-CHAR ...) ; compiling (DEFKNOWN READ-CHAR-NO-HANG ...) ; compiling (DEFKNOWN READ-DELIMITED-LIST ...) ; compiling (DEFKNOWN READ-LINE ...) ; compiling (DEFKNOWN UNREAD-CHAR ...) ; compiling (DEFKNOWN PEEK-CHAR ...) ; compiling (DEFKNOWN LISTEN ...) ; compiling (DEFKNOWN CLEAR-INPUT ...) ; compiling (DEFKNOWN READ-FROM-STRING ...) ; compiling (DEFKNOWN PARSE-INTEGER ...) ; compiling (DEFKNOWN READ-BYTE ...) ; compiling (DEFKNOWN (PRIN1 PRINT ...) ...) ; compiling (DEFKNOWN OUTPUT-OBJECT ...) ; compiling (DEFKNOWN (PPRINT) ...) ; compiling (DEFFROB WRITE ...) ; compiling (DEFFROB WRITE-TO-STRING ...) ; compiling (DEFKNOWN (PRIN1-TO-STRING PRINC-TO-STRING) ...) ; compiling (DEFKNOWN SB!IMPL::STRINGIFY-OBJECT ...) ; compiling (DEFKNOWN WRITE-CHAR ...) ; compiling (DEFKNOWN (WRITE-STRING WRITE-LINE) ...) ; compiling (DEFKNOWN (TERPRI FINISH-OUTPUT ...) ...) ; compiling (DEFKNOWN FRESH-LINE ...) ; compiling (DEFKNOWN WRITE-BYTE ...) ; compiling (DEFKNOWN FORMAT ...) ; compiling (DEFKNOWN SB!FORMAT::ARGS-EXHAUSTED ...) ; compiling (DEFKNOWN (Y-OR-N-P YES-OR-NO-P) ...) ; compiling (DEFKNOWN WILD-PATHNAME-P ...) ; compiling (DEFKNOWN PATHNAME-MATCH-P ...) ; compiling (DEFKNOWN TRANSLATE-PATHNAME ...) ; compiling (DEFKNOWN LOGICAL-PATHNAME ...) ; compiling (DEFKNOWN TRANSLATE-LOGICAL-PATHNAME ...) ; compiling (DEFKNOWN LOAD-LOGICAL-PATHNAME-TRANSLATIONS ...) ; compiling (DEFKNOWN LOGICAL-PATHNAME-TRANSLATIONS ...) ; compiling (DEFKNOWN PATHNAME ...) ; compiling (DEFKNOWN TRUENAME ...) ; compiling (DEFKNOWN PARSE-NAMESTRING ...) ; compiling (DEFKNOWN MERGE-PATHNAMES ...) ; compiling (DEFKNOWN MAKE-PATHNAME ...) ; compiling (DEFKNOWN PATHNAMEP ...) ; compiling (DEFKNOWN PATHNAME-HOST ...) ; compiling (DEFKNOWN PATHNAME-DEVICE ...) ; compiling (DEFKNOWN PATHNAME-DIRECTORY ...) ; compiling (DEFKNOWN PATHNAME-NAME ...) ; compiling (DEFKNOWN PATHNAME-TYPE ...) ; compiling (DEFKNOWN PATHNAME-VERSION ...) ; compiling (DEFKNOWN PATHNAME= ...) ; compiling (DEFKNOWN (NAMESTRING FILE-NAMESTRING ...) ...) ; compiling (DEFKNOWN ENOUGH-NAMESTRING ...) ; compiling (DEFKNOWN USER-HOMEDIR-PATHNAME ...) ; compiling (DEFKNOWN OPEN ...) ; compiling (DEFKNOWN RENAME-FILE ...) ; compiling (DEFKNOWN DELETE-FILE ...) ; compiling (DEFKNOWN PROBE-FILE ...) ; compiling (DEFKNOWN FILE-WRITE-DATE ...) ; compiling (DEFKNOWN FILE-AUTHOR ...) ; compiling (DEFKNOWN FILE-POSITION ...) ; compiling (DEFKNOWN FILE-LENGTH ...) ; compiling (DEFKNOWN LOAD ...) ; compiling (DEFKNOWN DIRECTORY ...) ; compiling (DEFKNOWN ERROR ...) ; compiling (DEFKNOWN CERROR ...) ; compiling (DEFKNOWN INVALID-METHOD-ERROR ...) ; compiling (DEFKNOWN METHOD-COMBINATION-ERROR ...) ; compiling (DEFKNOWN SIGNAL ...) ; compiling (DEFKNOWN WARN ...) ; compiling (DEFKNOWN INVOKE-DEBUGGER ...) ; compiling (DEFKNOWN BREAK ...) ; compiling (DEFKNOWN MAKE-CONDITION ...) ; compiling (DEFKNOWN COMPUTE-RESTARTS ...) ; compiling (DEFKNOWN FIND-RESTART ...) ; compiling (DEFKNOWN INVOKE-RESTART ...) ; compiling (DEFKNOWN INVOKE-RESTART-INTERACTIVELY ...) ; compiling (DEFKNOWN RESTART-NAME ...) ; compiling (DEFKNOWN (ABORT MUFFLE-WARNING) ...) ; compiling (DEFKNOWN CONTINUE ...) ; compiling (DEFKNOWN (STORE-VALUE USE-VALUE) ...) ; compiling (DEFKNOWN SB!IMPL::%FAILED-AVER ...) ; compiling (DEFKNOWN BUG ...) ; compiling (DEFKNOWN SIMPLE-READER-ERROR ...) ; compiling (DEFKNOWN READER-EOF-ERROR ...) ; compiling (DEFKNOWN COMPILE ...) ; compiling (DEFKNOWN COMPILE-FILE ...) ; compiling (DEFKNOWN (COMPILE-FILE-PATHNAME) ...) ; compiling (DEFKNOWN DISASSEMBLE ...) ; compiling (DEFKNOWN DESCRIBE ...) ; compiling (DEFKNOWN FUNCTION-LAMBDA-EXPRESSION ...) ; compiling (DEFKNOWN INSPECT ...) ; compiling (DEFKNOWN ROOM ...) ; compiling (DEFKNOWN ED ...) ; compiling (DEFKNOWN DRIBBLE ...) ; compiling (DEFKNOWN APROPOS ...) ; compiling (DEFKNOWN APROPOS-LIST ...) ; compiling (DEFKNOWN GET-DECODED-TIME ...) ; compiling (DEFKNOWN GET-UNIVERSAL-TIME ...) ; compiling (DEFKNOWN DECODE-UNIVERSAL-TIME ...) ; compiling (DEFKNOWN ENCODE-UNIVERSAL-TIME ...) ; compiling (DEFKNOWN (GET-INTERNAL-RUN-TIME GET-INTERNAL-REAL-TIME) ...) ; compiling (DEFKNOWN SLEEP ...) ; compiling (DEFKNOWN CALL-WITH-TIMING ...) ; compiling (DEFKNOWN (LISP-IMPLEMENTATION-TYPE LISP-IMPLEMENTATION-VERSION) ...) ; compiling (DEFKNOWN (MACHINE-TYPE MACHINE-VERSION ...) ...) ; compiling (DEFKNOWN IDENTITY ...) ; compiling (DEFKNOWN CONSTANTLY ...) ; compiling (DEFKNOWN COMPLEMENT ...) ; compiling (DEFKNOWN SYMBOL-GLOBAL-VALUE ...) ; compiling (DEFKNOWN SET-SYMBOL-GLOBAL-VALUE ...) ; compiling (DEFKNOWN GET-BYTES-CONSED ...) ; compiling (DEFKNOWN MASK-SIGNED-FIELD ...) ; compiling (DEFKNOWN ARRAY-STORAGE-VECTOR ...) ; compiling (DEFKNOWN %REST-VALUES ...) ; compiling (DEFKNOWN %REST-REF ...) ; compiling (DEFKNOWN %REST-LENGTH ...) ; compiling (DEFKNOWN %REST-NULL ...) ; compiling (DEFKNOWN %REST-TRUE ...) ; compiling (DEFKNOWN %UNARY-TRUNCATE/SINGLE-FLOAT ...) ; compiling (DEFKNOWN %UNARY-TRUNCATE/DOUBLE-FLOAT ...) ; compiling (DEFKNOWN %TYPEP ...) ; compiling (DEFKNOWN %INSTANCE-TYPEP ...) ; compiling (DEFKNOWN %TYPEP-WRAPPER ...) ; compiling (DEFKNOWN %CLEANUP-POINT ...) ; compiling (DEFKNOWN %SPECIAL-BIND ...) ; compiling (DEFKNOWN %SPECIAL-UNBIND ...) ; compiling (DEFKNOWN %LISTIFY-REST-ARGS ...) ; compiling (DEFKNOWN %MORE-ARG-CONTEXT ...) ; compiling (DEFKNOWN %MORE-ARG ...) ; compiling (DEFKNOWN %MORE-KW-ARG ...) ; compiling (DEFKNOWN %MORE-ARG-VALUES ...) ; compiling (DEFKNOWN %ARG-COUNT-ERROR ...) ; compiling (DEFKNOWN %UNKNOWN-VALUES ...) ; compiling (DEFKNOWN %CATCH ...) ; compiling (DEFKNOWN %UNWIND-PROTECT ...) ; compiling (DEFKNOWN (%CATCH-BREAKUP %UNWIND-PROTECT-BREAKUP) ...) ; compiling (DEFKNOWN %LEXICAL-EXIT-BREAKUP ...) ; compiling (DEFKNOWN %CONTINUE-UNWIND ...) ; compiling (DEFKNOWN %THROW ...) ; compiling (DEFKNOWN %NLX-ENTRY ...) ; compiling (DEFKNOWN %%PRIMITIVE ...) ; compiling (DEFKNOWN %POP-VALUES ...) ; compiling (DEFKNOWN %NIP-VALUES ...) ; compiling (DEFKNOWN %DUMMY-DX-ALLOC ...) ; compiling (DEFKNOWN %ALLOCATE-CLOSURES ...) ; compiling (DEFKNOWN %TYPE-CHECK-ERROR ...) ; compiling (DEFKNOWN %TYPE-CHECK-ERROR/C ...) ; compiling (DEFKNOWN %COMPILE-TIME-TYPE-ERROR ...) ; compiling (DEFKNOWN CASE-FAILURE ...) ; compiling (DEFKNOWN %ODD-KEY-ARGS-ERROR ...) ; compiling (DEFKNOWN %UNKNOWN-KEY-ARG-ERROR ...) ; compiling (DEFKNOWN (%LDB %MASK-FIELD) ...) ; compiling (DEFKNOWN (%DPB %DEPOSIT-FIELD) ...) ; compiling (DEFKNOWN %NEGATE ...) ; compiling (DEFKNOWN %CHECK-BOUND ...) ; compiling (DEFKNOWN DATA-VECTOR-REF ...) ; compiling (DEFKNOWN DATA-VECTOR-REF-WITH-OFFSET ...) ; compiling (DEFKNOWN DATA-NIL-VECTOR-REF ...) ; compiling (DEFKNOWN DATA-VECTOR-SET ...) ; compiling (DEFKNOWN DATA-VECTOR-SET-WITH-OFFSET ...) ; compiling (DEFKNOWN HAIRY-DATA-VECTOR-REF ...) ; compiling (DEFKNOWN HAIRY-DATA-VECTOR-SET ...) ; compiling (DEFKNOWN HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ...) ; compiling (DEFKNOWN HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS ...) ; compiling (DEFKNOWN %CALLER-FRAME ...) ; compiling (DEFKNOWN %CALLER-PC ...) ; compiling (DEFKNOWN %WITH-ARRAY-DATA ...) ; compiling (DEFKNOWN %WITH-ARRAY-DATA/FP ...) ; compiling (DEFKNOWN %SET-SYMBOL-PACKAGE ...) ; compiling (DEFKNOWN %COERCE-NAME-TO-FUN ...) ; compiling (DEFKNOWN %COERCE-CALLABLE-TO-FUN ...) ; compiling (DEFKNOWN ARRAY-BOUNDING-INDICES-BAD-ERROR ...) ; compiling (DEFKNOWN SEQUENCE-BOUNDING-INDICES-BAD-ERROR ...) ; compiling (DEFKNOWN %FIND-POSITION ...) ; compiling (DEFKNOWN (%FIND-POSITION-IF %FIND-POSITION-IF-NOT) ...) ; compiling (DEFKNOWN EFFECTIVE-FIND-POSITION-TEST ...) ; compiling (DEFKNOWN EFFECTIVE-FIND-POSITION-KEY ...) ; compiling (DEFKNOWN (%ADJOIN %ADJOIN-EQ) ...) ; compiling (DEFKNOWN (%MEMBER %MEMBER-EQ ...) ...) ; compiling (DEFKNOWN (%ADJOIN-KEY %ADJOIN-KEY-EQ) ...) ; compiling (DEFKNOWN (%MEMBER-KEY %MEMBER-KEY-EQ ...) ...) ; compiling (DEFKNOWN (%ASSOC-IF %ASSOC-IF-NOT ...) ...) ; compiling (DEFKNOWN (%ASSOC-IF-KEY %ASSOC-IF-NOT-KEY ...) ...) ; compiling (DEFKNOWN (%ADJOIN-TEST %ADJOIN-TEST-NOT) ...) ; compiling (DEFKNOWN (%MEMBER-TEST %MEMBER-TEST-NOT ...) ...) ; compiling (DEFKNOWN (%ADJOIN-KEY-TEST %ADJOIN-KEY-TEST-NOT) ...) ; compiling (DEFKNOWN (%MEMBER-KEY-TEST %MEMBER-KEY-TEST-NOT ...) ...) ; compiling (DEFKNOWN %CHECK-VECTOR-SEQUENCE-BOUNDS ...) ; compiling (DEFKNOWN ARG-COUNT-ERROR ...) ; compiling (DEFKNOWN (SETF AREF) ...) ; compiling (DEFKNOWN %SET-ROW-MAJOR-AREF ...) ; compiling (DEFKNOWN (%RPLACA %RPLACD) ...) ; compiling (DEFKNOWN %PUT ...) ; compiling (DEFKNOWN %SETELT ...) ; compiling (DEFKNOWN %SVSET ...) ; compiling (DEFKNOWN (SETF BIT) ...) ; compiling (DEFKNOWN (SETF SBIT) ...) ; compiling (DEFKNOWN %CHARSET ...) ; compiling (DEFKNOWN %SCHARSET ...) ; compiling (DEFKNOWN %SET-SYMBOL-VALUE ...) ; compiling (DEFKNOWN (SETF SYMBOL-FUNCTION) ...) ; compiling (DEFKNOWN %SET-SYMBOL-PLIST ...) ; compiling (DEFKNOWN %SETNTH ...) ; compiling (DEFKNOWN %SET-FILL-POINTER ...) ; compiling (DEFKNOWN SB!VM::TOUCH-OBJECT ...) ; compiling (DEFKNOWN FOREIGN-SYMBOL-DATAREF-SAP ...) ; compiling (DEFKNOWN FOREIGN-SYMBOL-SAP ...) ; compiling (DEFKNOWN FOREIGN-SYMBOL-ADDRESS ...) ; compiling (DEFKNOWN %FUN-NAME ...) ; compiling (DEFKNOWN (SETF %FUN-NAME) ...) ; compiling (DEFKNOWN POLICY-QUALITY ...) ; compiling (DEFKNOWN COMPILER-ERROR ...) ; compiling (DEFKNOWN (COMPILER-WARN COMPILER-STYLE-WARN) ...) ; compiling (DEFKNOWN (COMPILER-NOTIFY MAYBE-COMPILER-NOTIFY) ...) ; compiling (DEFKNOWN STYLE-WARN ...) ; compiling (DEFKNOWN COERCE-TO-CONDITION ...) ; compiling (DEFKNOWN COERCE-SYMBOL-TO-FUN ...) ; compiling (DEFKNOWN SC-NUMBER-OR-LOSE ...) ; compiling (DEFKNOWN SB!VM:%COMPILER-BARRIER ...) ; compiling (DEFKNOWN SB!VM:%MEMORY-BARRIER ...) ; compiling (DEFKNOWN SB!VM:%READ-BARRIER ...) ; compiling (DEFKNOWN SB!VM:%WRITE-BARRIER ...) ; compiling (DEFKNOWN SB!VM:%DATA-DEPENDENCY-BARRIER ...) ; compiling (DEFKNOWN %COMPARE-AND-SWAP-SVREF ...) ; compiling (DEFKNOWN %COMPARE-AND-SWAP-INSTANCE-REF ...) ; compiling (DEFKNOWN %COMPARE-AND-SWAP-SYMBOL-VALUE ...) ; compiling (DEFKNOWN (%ATOMIC-DEC-SYMBOL-GLOBAL-VALUE %ATOMIC-INC-SYMBOL-GLOBAL-VALUE) ...) ; compiling (DEFKNOWN (%ATOMIC-DEC-CAR %ATOMIC-INC-CAR ...) ...) ; compiling (DEFKNOWN SPIN-LOOP-HINT ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/fndb.fasl-tmp written ; compilation finished in 0:00:00.046 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/vm-fndb.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFKNOWN (FIXNUMP BIGNUMP ...) ...) ; compiling (DEFKNOWN (VECTOR-SINGLE-FLOAT-P VECTOR-DOUBLE-FLOAT-P ...) ...) ; compiling (DEFKNOWN %OTHER-POINTER-P ...) ; compiling (DEFKNOWN %OTHER-POINTER-SUBTYPE-P ...) ; compiling (DEFKNOWN POINTER-HASH ...) ; compiling (DEFKNOWN %SP-STRING-COMPARE ...) ; compiling (DEFKNOWN %SXHASH-SIMPLE-STRING ...) ; compiling (DEFKNOWN (%SXHASH-SIMPLE-SUBSTRING COMPUTE-SYMBOL-HASH) ...) ; compiling (DEFKNOWN SYMBOL-HASH ...) ; compiling (DEFKNOWN %SET-SYMBOL-HASH ...) ; compiling (DEFKNOWN SYMBOL-INFO-VECTOR ...) ; compiling (DEFKNOWN INITIALIZE-VECTOR ...) ; compiling (DEFKNOWN VECTOR-FILL* ...) ; compiling (DEFKNOWN VECTOR-LENGTH ...) ; compiling (DEFKNOWN VECTOR-SAP ...) ; compiling (DEFKNOWN LOWTAG-OF ...) ; compiling (DEFKNOWN WIDETAG-OF ...) ; compiling (DEFKNOWN (GET-HEADER-DATA GET-CLOSURE-LENGTH) ...) ; compiling (DEFKNOWN SET-HEADER-DATA ...) ; compiling (DEFKNOWN %ARRAY-DIMENSION ...) ; compiling (DEFKNOWN %SET-ARRAY-DIMENSION ...) ; compiling (DEFKNOWN %ARRAY-RANK ...) ; compiling (DEFKNOWN %MAKE-INSTANCE ...) ; compiling (DEFKNOWN %MAKE-STRUCTURE-INSTANCE ...) ; compiling (DEFKNOWN %INSTANCE-LAYOUT ...) ; compiling (DEFKNOWN %SET-INSTANCE-LAYOUT ...) ; compiling (DEFKNOWN %INSTANCE-LENGTH ...) ; compiling (DEFKNOWN %INSTANCE-REF ...) ; compiling (DEFKNOWN %INSTANCE-SET ...) ; compiling (DEFKNOWN %LAYOUT-INVALID-ERROR ...) ; compiling (DEFKNOWN %RAW-INSTANCE-REF/WORD ...) ; compiling (DEFKNOWN %RAW-INSTANCE-SET/WORD ...) ; compiling (DEFKNOWN %RAW-INSTANCE-REF/SINGLE ...) ; compiling (DEFKNOWN %RAW-INSTANCE-SET/SINGLE ...) ; compiling (DEFKNOWN %RAW-INSTANCE-REF/DOUBLE ...) ; compiling (DEFKNOWN %RAW-INSTANCE-SET/DOUBLE ...) ; compiling (DEFKNOWN %RAW-INSTANCE-REF/COMPLEX-SINGLE ...) ; compiling (DEFKNOWN %RAW-INSTANCE-SET/COMPLEX-SINGLE ...) ; compiling (DEFKNOWN %RAW-INSTANCE-REF/COMPLEX-DOUBLE ...) ; compiling (DEFKNOWN %RAW-INSTANCE-SET/COMPLEX-DOUBLE ...) ; compiling (DEFKNOWN %RAW-INSTANCE-ATOMIC-INCF/WORD ...) ; compiling (DEFKNOWN %ARRAY-ATOMIC-INCF/WORD ...) ; compiling (DEFKNOWN %VECTOR-RAW-BITS ...) ; compiling (DEFKNOWN (%SET-VECTOR-RAW-BITS) ...) ; compiling (DEFKNOWN ALLOCATE-VECTOR ...) ; compiling (DEFKNOWN MAKE-ARRAY-HEADER ...) ; compiling (DEFKNOWN MAKE-WEAK-POINTER ...) ; compiling (DEFKNOWN %MAKE-COMPLEX ...) ; compiling (DEFKNOWN %MAKE-RATIO ...) ; compiling (DEFKNOWN MAKE-VALUE-CELL ...) ; compiling (DEFKNOWN (DYNAMIC-SPACE-FREE-POINTER BINDING-STACK-POINTER-SAP ...) ...) ; compiling (DEFKNOWN ENSURE-SYMBOL-TLS-INDEX ...) ; compiling (DEFKNOWN CURRENT-SP ...) ; compiling (DEFKNOWN CURRENT-FP ...) ; compiling (DEFKNOWN STACK-REF ...) ; compiling (DEFKNOWN %SET-STACK-REF ...) ; compiling (DEFKNOWN LRA-CODE-HEADER ...) ; compiling (DEFKNOWN FUN-CODE-HEADER ...) ; compiling (DEFKNOWN %MAKE-LISP-OBJ ...) ; compiling (DEFKNOWN GET-LISP-OBJ-ADDRESS ...) ; compiling (DEFKNOWN FUN-WORD-OFFSET ...) ; compiling (DEFKNOWN WORD-LOGICAL-NOT ...) ; compiling (DEFKNOWN (WORD-LOGICAL-AND WORD-LOGICAL-NAND ...) ...) ; compiling (DEFKNOWN (SHIFT-TOWARDS-START SHIFT-TOWARDS-END) ...) ; compiling (DEFKNOWN %ALLOCATE-BIGNUM ...) ; compiling (DEFKNOWN %BIGNUM-LENGTH ...) ; compiling (DEFKNOWN %BIGNUM-SET-LENGTH ...) ; compiling (DEFKNOWN %BIGNUM-REF ...) ; compiling (DEFKNOWN %BIGNUM-REF-WITH-OFFSET ...) ; compiling (DEFKNOWN %BIGNUM-SET ...) ; compiling (DEFKNOWN %DIGIT-0-OR-PLUSP ...) ; compiling (DEFKNOWN (%ADD-WITH-CARRY %SUBTRACT-WITH-BORROW) ...) ; compiling (DEFKNOWN %MULTIPLY-AND-ADD ...) ; compiling (DEFKNOWN %MULTIPLY ...) ; compiling (DEFKNOWN %LOGNOT ...) ; compiling (DEFKNOWN (%LOGAND %LOGIOR ...) ...) ; compiling (DEFKNOWN %FIXNUM-TO-DIGIT ...) ; compiling (DEFKNOWN %BIGFLOOR ...) ; compiling (DEFKNOWN %FIXNUM-DIGIT-WITH-CORRECT-SIGN ...) ; compiling (DEFKNOWN (%ASHL %ASHR ...) ...) ; compiling (DEFINE-KNOWN-COPIERS) ; compiling (DEFKNOWN %BYTE-BLT ...) ; compiling (DEFKNOWN CODE-INSTRUCTIONS ...) ; compiling (DEFKNOWN CODE-HEADER-REF ...) ; compiling (DEFKNOWN CODE-HEADER-SET ...) ; compiling (DEFKNOWN FUN-SUBTYPE ...) ; compiling (DEFKNOWN (#) ...) ; compiling (DEFKNOWN MAKE-FDEFN ...) ; compiling (DEFKNOWN FDEFN-P ...) ; compiling (DEFKNOWN FDEFN-NAME ...) ; compiling (DEFKNOWN FDEFN-FUN ...) ; compiling (DEFKNOWN (SETF FDEFN-FUN) ...) ; compiling (DEFKNOWN FDEFN-MAKUNBOUND ...) ; compiling (DEFKNOWN %SIMPLE-FUN-SELF ...) ; compiling (DEFKNOWN (SETF %SIMPLE-FUN-SELF) ...) ; compiling (DEFKNOWN %CLOSURE-FUN ...) ; compiling (DEFKNOWN %CLOSURE-INDEX-REF ...) ; compiling (DEFKNOWN %MAKE-FUNCALLABLE-INSTANCE ...) ; compiling (DEFKNOWN %FUNCALLABLE-INSTANCE-INFO ...) ; compiling (DEFKNOWN %SET-FUNCALLABLE-INSTANCE-INFO ...) ; compiling (DEFKNOWN %DATA-VECTOR-AND-INDEX ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/generic/vm-fndb.fasl-tmp written ; compilation finished in 0:00:00.021 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/late-objdef.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (FROB) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/generic/late-objdef.fasl-tmp written ; compilation finished in 0:00:00.004 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/interr.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (DEFUN ERROR-NUMBER-OR-LOSE ...) ; compiling (DEFUN !C-STRINGIFY-INTERNAL-ERROR ...) ; compiling (SETF SB!C:*BACKEND-INTERNAL-ERRORS* ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/generic/interr.fasl-tmp written ; compilation finished in 0:00:00.014 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/bit-util.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DECLAIM (INLINE CLEAR-BIT-VECTOR ...)) ; compiling (DEFUN CLEAR-BIT-VECTOR ...) ; compiling (DEFUN SET-BIT-VECTOR ...) ; compiling (DEFUN BIT-VECTOR-REPLACE ...) ; compiling (DEFUN BIT-VECTOR-COPY ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/bit-util.fasl-tmp written ; compilation finished in 0:00:00.031 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/early-assem.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!ASSEM") ; compiling (DEF!CONSTANT ASSEMBLY-UNIT-BITS ...) ; compiling (DEF!CONSTANT ASSEMBLY-UNIT-MASK ...) ; compiling (DEF!TYPE ASSEMBLY-UNIT ...) ; compiling (DEF!TYPE POSSIBLY-SIGNED-ASSEMBLY-UNIT ...) ; compiling (DEF!CONSTANT MAX-ALIGNMENT ...) ; compiling (DEF!TYPE ALIGNMENT ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/early-assem.fasl-tmp written ; compilation finished in 0:00:00.014 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/barrier.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!THREAD") ; compiling (DEFUN SB!VM:%COMPILER-BARRIER ...) ; compiling (DEFUN SB!VM:%MEMORY-BARRIER ...) ; compiling (DEFUN SB!VM:%READ-BARRIER ...) ; compiling (DEFUN SB!VM:%WRITE-BARRIER ...) ; compiling (DEFUN SB!VM:%DATA-DEPENDENCY-BARRIER ...) ; compiling (DEFPARAMETER *BARRIER-KIND-FUNCTIONS* ...) ; compiling (DEFUN BARRIER-KIND-FUNCTION ...) ; compiling (DEF!MACRO BARRIER ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/barrier.lisp ; in: DEF!MACRO BARRIER ; (SB!INT:DEF!MACRO SB!THREAD:BARRIER ; ((SB!THREAD::KIND) &BODY SB!THREAD::FORMS) ; "Insert a barrier in the code stream, preventing some sort of ; reordering. ; ; KIND should be one of: ; ; :COMPILER ; Prevent the compiler from reordering memory access across the ; barrier. ; :MEMORY ; Prevent the cpu from reordering any memory access across the ; barrier. ; :READ ; Prevent the cpu from reordering any read access across the ; barrier. ; :WRITE ; Prevent the cpu from reordering any write access across the ; barrier. ; :DATA-DEPENDENCY ; Prevent the cpu from reordering dependent memory reads across the ; barrier (requiring reads before the barrier to complete before any ; reads after the barrier that depend on them). This is a weaker ; form of the :READ barrier. ; ; FORMS is an implicit PROGN, evaluated before the barrier. BARRIER ; returns the values of the last form in FORMS. ; ; The file \"memory-barriers.txt\" in the Linux kernel documentation is ; highly recommended reading for anyone programming at this level." ; (SB!INT:QUASIQUOTE ; (MULTIPLE-VALUE-PROG1 ; (PROGN ; #S(SB!IMPL::COMMA :EXPR SB!THREAD::FORMS :KIND 2)) ; (#S(SB!IMPL::COMMA :EXPR # :KIND 0))))) ; --> PROGN DEFMACRO PROGN EVAL-WHEN ; ==> ; (SB-C::%DEFMACRO 'SB!THREAD:BARRIER ; #'(SB-INT:NAMED-LAMBDA (DEFMACRO SB!THREAD:BARRIER) ; (#:.WHOLE. #:.ENVIRONMENT.) ; (DECLARE (IGNORE #:.ENVIRONMENT.)) ; (LET* ((#:REQUIRED-9 #)) ; (DECLARE (MUFFLE-CONDITIONS CODE-DELETION-NOTE)) ; (LET (#) ; (UNLESS # #)) ; (LET (#) ; (UNLESS # #)) ; (LET* (# #) ; (BLOCK SB!THREAD:BARRIER #)))) ; '((SB!THREAD::KIND) &BODY SB!THREAD::FORMS) ; "Insert a barrier in the code stream, preventing some sort of ; reordering. ; ; KIND should be one of: ; ; :COMPILER ; Prevent the compiler from reordering memory access across the ; barrier. ; :MEMORY ; Prevent the cpu from reordering any memory access across the ; barrier. ; :READ ; Prevent the cpu from reordering any read access across the ; barrier. ; :WRITE ; Prevent the cpu from reordering any write access across the ; barrier. ; :DATA-DEPENDENCY ; Prevent the cpu from reordering dependent memory reads across the ; barrier (requiring reads before the barrier to complete before any ; reads after the barrier that depend on them). This is a weaker ; form of the :READ barrier. ; ; FORMS is an implicit PROGN, evaluated before the barrier. BARRIER ; returns the values of the last form in FORMS. ; ; The file \"memory-barriers.txt\" in the Linux kernel documentation is ; highly recommended reading for anyone programming at this level." ; '(MACRO-FUNCTION SB!THREAD:BARRIER) (SB-C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; redefining SB!THREAD:BARRIER in DEFMACRO ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/barrier.fasl-tmp written ; compilation finished in 0:00:00.024 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/core.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFSTRUCT (CORE-OBJECT # ...) ...) ; compiling (DEFUN NOTE-FUN ...) ; compiling (DEFUN DO-CORE-FIXUPS ...) ; compiling (DEFUN REFERENCE-CORE-FUN ...) ; compiling (DEFUN CORE-CALL-TOPLEVEL-LAMBDA ...) ; compiling (DEFUN FIX-CORE-SOURCE-INFO ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/core.lisp ; in: DEFUN FIX-CORE-SOURCE-INFO ; (SETF (SB!C::DEBUG-INFO-SOURCE SB!INT:INFO) SB!C::SOURCE) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB-C::%FUNCALL #'(SETF SB!C::DEBUG-INFO-SOURCE) #:NEW156 #:INFO157) ; ; caught STYLE-WARNING: ; undefined function: (SETF DEBUG-INFO-SOURCE) ; in: DEFUN REFERENCE-CORE-FUN ; (SETF (SB!KERNEL:CODE-HEADER-REF SB!C::CODE-OBJ SB!C::I) SB!C::FOUND) ; ==> ; (SB!KERNEL:CODE-HEADER-SET SB!C::CODE-OBJ SB!C::I SB!C::FOUND) ; ; caught STYLE-WARNING: ; undefined function: CODE-HEADER-SET ; in: DEFUN NOTE-FUN ; (SETF (SB!KERNEL:CODE-HEADER-REF (CAR SB!C::PATCH) ; (THE SB!INT:INDEX (CDR SB!C::PATCH))) ; FUNCTION) ; ==> ; (SB!KERNEL:CODE-HEADER-SET (CAR SB!C::PATCH) ; (THE SB!INT:INDEX (CDR SB!C::PATCH)) FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: CODE-HEADER-SET ; in: DEFUN FIX-CORE-SOURCE-INFO ; (SB!C::DEBUG-SOURCE-FOR-INFO SB!INT:INFO :FUNCTION FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: DEBUG-SOURCE-FOR-INFO ; in: DEFUN DO-CORE-FIXUPS ; (SB!KERNEL:ENSURE-SYMBOL-TLS-INDEX SB!C::NAME) ; ; caught STYLE-WARNING: ; undefined function: ENSURE-SYMBOL-TLS-INDEX ; (SB!VM:FIXUP-CODE-OBJECT SB!C::CODE POSITION SB!C::VALUE SB!C::KIND) ; ; caught STYLE-WARNING: ; undefined function: SB!VM:FIXUP-CODE-OBJECT ; (SB!C:FIXUP-FLAVOR SB!C:FIXUP) ; ; caught STYLE-WARNING: ; undefined function: FIXUP-FLAVOR ; (SB!C:FIXUP-NAME SB!C:FIXUP) ; ; caught STYLE-WARNING: ; undefined function: FIXUP-NAME ; (SB!C:FIXUP-NOTE-FIXUP SB!C::NOTE) ; ; caught STYLE-WARNING: ; undefined function: FIXUP-NOTE-FIXUP ; (SB!C:FIXUP-NOTE-KIND SB!C::NOTE) ; ; caught STYLE-WARNING: ; undefined function: FIXUP-NOTE-KIND ; (SB!C:FIXUP-NOTE-POSITION SB!C::NOTE) ; ; caught STYLE-WARNING: ; undefined function: FIXUP-NOTE-POSITION ; (SB!SYS:FOREIGN-SYMBOL-ADDRESS SB!C::NAME) ; ; caught STYLE-WARNING: ; undefined function: FOREIGN-SYMBOL-ADDRESS ; (SB!KERNEL:GET-LISP-OBJ-ADDRESS SB!C::CODE) ; ; caught STYLE-WARNING: ; undefined function: GET-LISP-OBJ-ADDRESS ; ; compilation unit finished ; Undefined functions: ; (SETF DEBUG-INFO-SOURCE) CODE-HEADER-SET DEBUG-SOURCE-FOR-INFO ENSURE-SYMBOL-TLS-INDEX SB!VM:FIXUP-CODE-OBJECT FIXUP-FLAVOR FIXUP-NAME FIXUP-NOTE-FIXUP FIXUP-NOTE-KIND FIXUP-NOTE-POSITION FOREIGN-SYMBOL-ADDRESS GET-LISP-OBJ-ADDRESS ; caught 13 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/generic/core.fasl-tmp written ; compilation finished in 0:00:00.067 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/thread.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!THREAD") ; compiling (SB-XC:PROCLAIM (QUOTE #)) ; compiling (DEF!TYPE THREAD-NAME ...) ; compiling (DEF!STRUCT (THREAD #) ...) /entering CLASSOID-MAKE-LOAD-FORM-FUN CLASS=# /entering CLASSOID-MAKE-LOAD-FORM-FUN CLASS=# /entering CLASSOID-MAKE-LOAD-FORM-FUN CLASS=# ; compiling (DEF!STRUCT (FOREIGN-THREAD # ...) ...) /entering CLASSOID-MAKE-LOAD-FORM-FUN CLASS=# ; compiling (DECLAIM (INLINE MAKE-MUTEX)) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/thread.lisp ; in: DECLAIM (INLINE MAKE-MUTEX) ; (DECLAIM (INLINE SB!THREAD:MAKE-MUTEX)) ; --> EVAL-WHEN ; ==> ; (PROCLAIM '(INLINE SB!THREAD:MAKE-MUTEX)) ; ; caught STYLE-WARNING: ; Proclaiming SB!THREAD:MAKE-MUTEX to be INLINE, but 5 calls to it were ; previously compiled. A declaration of NOTINLINE at the call sites will ; eliminate this warning, as will proclaiming and defining the function before ; its first potential use. ; compiling (DEF!STRUCT MUTEX ...) ; compiling (DECLAIM (NOTINLINE MAKE-MUTEX)) ; compiling (DEFUN MUTEX-VALUE ...) ; compiling (DEFUN HOLDING-MUTEX-P ...) ; compiling (DEFSETF MUTEX-VALUE ...) ; compiling (DECLAIM (INLINE SET-MUTEX-VALUE)) ; compiling (DEFUN SET-MUTEX-VALUE ...) ; compiling (DEFINE-COMPILER-MACRO SET-MUTEX-VALUE ...) ; compiling (DEFTYPE SPINLOCK ...) ; compiling (DEFINE-DEPRECATED-FUNCTION :EARLY ...) ; compiling (DEFINE-DEPRECATED-FUNCTION :EARLY ...) ; compiling (DEFINE-DEPRECATED-FUNCTION :EARLY ...) ; compiling (DEFINE-DEPRECATED-FUNCTION :EARLY ...) ; compiling (DEFINE-DEPRECATED-FUNCTION :EARLY ...) ; compiling (DEFINE-DEPRECATED-FUNCTION :EARLY ...) ; compiling (SB-XC:DEFMACRO WITH-RECURSIVE-SPINLOCK ...) ; compiling (SB-XC:DEFMACRO WITH-SPINLOCK ...) ; compiling (SB-XC:DEFMACRO WITHOUT-THREAD-WAITING-FOR ...) ; compiling (SB-XC:DEFMACRO WITH-MUTEX ...) ; compiling (SB-XC:DEFMACRO WITH-SYSTEM-MUTEX ...) ; compiling (SB-XC:DEFMACRO WITH-RECURSIVE-LOCK ...) ; compiling (SB-XC:DEFMACRO WITH-RECURSIVE-SYSTEM-LOCK ...) ; compiling (DEF CALL-WITH-SYSTEM-MUTEX) ; compiling (DEF CALL-WITH-SYSTEM-MUTEX ...) ; compiling (DEF CALL-WITH-SYSTEM-MUTEX ...) ; compiling (DEFUN CALL-WITH-MUTEX ...) ; compiling (DEFUN CALL-WITH-RECURSIVE-LOCK ...) ; compiling (DEFUN CALL-WITH-RECURSIVE-SYSTEM-LOCK ...) ; compiling (DEFUN CALL-WITH-RECURSIVE-SYSTEM-LOCK/WITHOUT-GCING ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/thread.lisp ; in: DEF CALL-WITH-SYSTEM-MUTEX ; (SB!THREAD::DEF SB!THREAD::CALL-WITH-SYSTEM-MUTEX :WITHOUT-GCING) ; --> DEFUN PROGN SB-IMPL::%DEFUN BLOCK FLET BLOCK SB!INT:DX-LET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB-C::%WITHIN-CLEANUP RETURN-FROM WHEN IF SETF SETQ THE ; ==> ; (SB!THREAD:GRAB-MUTEX SB!THREAD:MUTEX) ; ; caught STYLE-WARNING: ; undefined function: GRAB-MUTEX ; (SB!THREAD::DEF SB!THREAD::CALL-WITH-SYSTEM-MUTEX) ; --> DEFUN PROGN SB-IMPL::%DEFUN BLOCK FLET BLOCK SB!INT:DX-LET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB-C::%WITHIN-CLEANUP RETURN-FROM WHEN IF SETF SETQ THE ; ==> ; (SB!THREAD:GRAB-MUTEX SB!THREAD:MUTEX) ; ; caught STYLE-WARNING: ; undefined function: GRAB-MUTEX ; in: DEFINE-DEPRECATED-FUNCTION :EARLY ; (SB!THREAD:GRAB-MUTEX SB!THREAD::LOCK) ; ; caught STYLE-WARNING: ; undefined function: GRAB-MUTEX ; ; caught STYLE-WARNING: ; 1 more use of undefined function GRAB-MUTEX ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/thread.lisp ; in: DEFINE-DEPRECATED-FUNCTION :EARLY ; (SB!THREAD:MUTEX-OWNER SB!THREAD::LOCK) ; ; caught STYLE-WARNING: ; undefined function: MUTEX-OWNER ; in: DEF CALL-WITH-SYSTEM-MUTEX ; (SB!THREAD::DEF SB!THREAD::CALL-WITH-SYSTEM-MUTEX :WITHOUT-GCING) ; --> DEFUN PROGN SB-IMPL::%DEFUN BLOCK FLET BLOCK SB!INT:DX-LET LET ; --> UNWIND-PROTECT FLET BLOCK WHEN IF PROGN ; ==> ; (SB!THREAD:RELEASE-MUTEX SB!THREAD:MUTEX) ; ; caught STYLE-WARNING: ; undefined function: RELEASE-MUTEX ; (SB!THREAD::DEF SB!THREAD::CALL-WITH-SYSTEM-MUTEX) ; --> DEFUN PROGN SB-IMPL::%DEFUN BLOCK FLET BLOCK SB!INT:DX-LET LET ; --> UNWIND-PROTECT FLET BLOCK WHEN IF PROGN ; ==> ; (SB!THREAD:RELEASE-MUTEX SB!THREAD:MUTEX) ; ; caught STYLE-WARNING: ; undefined function: RELEASE-MUTEX ; in: DEFINE-DEPRECATED-FUNCTION :EARLY ; (SB!THREAD:RELEASE-MUTEX SB!THREAD::LOCK) ; ; caught STYLE-WARNING: ; undefined function: RELEASE-MUTEX ; ; caught STYLE-WARNING: ; 1 more use of undefined function RELEASE-MUTEX ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/thread.lisp ; in: DEFUN CALL-WITH-RECURSIVE-SYSTEM-LOCK/WITHOUT-GCING ; (SB!SYS:WITHOUT-GCING (FUNCALL FUNCTION)) ; ; caught STYLE-WARNING: ; undefined function: WITHOUT-GCING ; in: DEF CALL-WITH-SYSTEM-MUTEX ; (SB!THREAD::DEF SB!THREAD::CALL-WITH-SYSTEM-MUTEX :WITHOUT-GCING) ; --> DEFUN PROGN SB-IMPL::%DEFUN BLOCK FLET ; ==> ; (SB!SYS:WITHOUT-GCING (SB!THREAD::%CALL-WITH-SYSTEM-MUTEX)) ; ; caught STYLE-WARNING: ; undefined function: WITHOUT-GCING ; ; compilation unit finished ; Undefined functions: ; GRAB-MUTEX MUTEX-OWNER RELEASE-MUTEX WITHOUT-GCING ; caught 12 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/thread.fasl-tmp written ; compilation finished in 0:00:00.191 STYLE-WARNING: redefining SB!THREAD:MAKE-MUTEX in DEFUN ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/load.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!FASL") ; compiling (DEFUN LOAD-FRESH-LINE ...) ; compiling (DEFUN MAYBE-ANNOUNCE-LOAD ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/load.lisp ; in: DEFUN MAYBE-ANNOUNCE-LOAD ; (FORMAT T "loading ~S~%" SB!FASL::NAME) ; ==> ; "loading ~S~%" ; ; note: deleting unreachable code ; compiling (DECLAIM (INLINE READ-BYTE)) ; compiling (DEFMACRO FAST-READ-U-INTEGER ...) ; compiling (DEFMACRO FAST-READ-VAR-U-INTEGER ...) ; compiling (DEFMACRO FAST-READ-S-INTEGER ...) ; compiling (DEFMACRO READ-ARG ...) ; compiling (DECLAIM (INLINE READ-BYTE-ARG ...)) ; compiling (DEFUN READ-BYTE-ARG ...) ; compiling (DEFUN READ-HALFWORD-ARG ...) ; compiling (DEFUN READ-WORD-ARG ...) ; compiling (DEFUN READ-UNSIGNED-BYTE-32-ARG ...) ; compiling (DEFVAR *FOP-TABLE*) ; compiling (DECLAIM (SIMPLE-VECTOR *FOP-TABLE*)) ; compiling (DECLAIM (INLINE REF-FOP-TABLE)) ; compiling (DEFUN REF-FOP-TABLE ...) ; compiling (DEFUN GET-FOP-TABLE-INDEX ...) ; compiling (DEFUN RESET-FOP-TABLE ...) ; compiling (DEFUN PUSH-FOP-TABLE ...) ; compiling (DEFUN MAKE-FOP-VECTOR ...) ; compiling (DEFUN GROW-FOP-VECTOR ...) ; compiling (DEFUN NUKE-FOP-VECTOR ...) ; compiling (DEFVAR *FOP-STACK*) ; compiling (DECLAIM (SIMPLE-VECTOR *FOP-STACK*)) ; compiling (DECLAIM (INLINE FOP-STACK-EMPTY-P)) ; compiling (DEFUN FOP-STACK-EMPTY-P ...) ; compiling (DEFUN FOP-STACK-POP-N ...) ; compiling (DEFUN PUSH-FOP-STACK ...) ; compiling (DEFINE-CONDITION INVALID-FASL ...) ; compiling (DEFINE-CONDITION INVALID-FASL-HEADER ...) ; compiling (DEFINE-CONDITION INVALID-FASL-VERSION ...) ; compiling (DEFINE-CONDITION INVALID-FASL-IMPLEMENTATION ...) ; compiling (DEFINE-CONDITION INVALID-FASL-FEATURES ...) ; compiling (DEFUN MAYBE-SKIP-SHEBANG-LINE ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/load.lisp ; in: DEFUN MAYBE-SKIP-SHEBANG-LINE ; (READ-BYTE STREAM NIL) ; --> BLOCK IF LET IF SB-IMPL::EOF-OR-LOSE IF ERROR ; ==> ; STREAM ; ; note: deleting unreachable code ; compiling (DEFUN FASL-HEADER-P ...) ; compiling (DEFUN CHECK-FASL-HEADER ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/load.lisp ; in: DEFUN CHECK-FASL-HEADER ; (READ-BYTE STREAM NIL) ; --> BLOCK IF LET IF SB-IMPL::EOF-OR-LOSE IF ERROR ; ==> ; STREAM ; ; note: deleting unreachable code ; compiling (DEFVAR *SHOW-FOPS-P* ...) ; compiling (DEFCONSTANT +2-OPERAND-FOPS+ ...) ; compiling (DEFUN LOAD-FASL-GROUP ...) ; compiling (DEFUN LOAD-AS-FASL ...) ; compiling (DECLAIM (NOTINLINE READ-BYTE)) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/load.lisp ; in: DEFUN FASL-HEADER-P ; (TYPEP STREAM 'SB!SYS:FD-STREAM) ; ; caught STYLE-WARNING: ; undefined type: FD-STREAM ; (SB!IMPL::FD-STREAM-BIVALENT-P STREAM) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::FD-STREAM-BIVALENT-P ; (SB!IMPL::FD-STREAM-FILE STREAM) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::FD-STREAM-FILE ; in: DEFUN CHECK-FASL-HEADER ; (SB!FASL::READ-STRING-AS-BYTES STREAM SB!FASL::RESULT) ; ; caught STYLE-WARNING: ; undefined function: READ-STRING-AS-BYTES ; ; compilation unit finished ; Undefined type: ; FD-STREAM ; Undefined functions: ; SB!IMPL::FD-STREAM-BIVALENT-P SB!IMPL::FD-STREAM-FILE READ-STRING-AS-BYTES ; caught 4 STYLE-WARNING conditions ; printed 3 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/load.fasl-tmp written ; compilation finished in 0:00:00.289 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/foreign.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFUN EXTERN-ALIEN-NAME ...) ; compiling (DECLAIM (TYPE HASH-TABLE ...)) ; compiling (DEFVAR *STATIC-FOREIGN-SYMBOLS* ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN FIND-FOREIGN-SYMBOL-IN-TABLE ...) ; compiling (DEFUN FIND-FOREIGN-SYMBOL-ADDRESS ...) ; compiling (DEFUN FOREIGN-SYMBOL-ADDRESS ...) ; compiling (DEFUN FOREIGN-SYMBOL-SAP ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/foreign.lisp ; in: DEFUN FOREIGN-SYMBOL-SAP ; (SB!SYS:INT-SAP (SB!SYS:SAP-REF-WORD (SB!SYS:INT-SAP SB!ALIEN:ADDR) 0)) ; ; note: The first argument never returns a value. ; ; note: deleting unreachable code ; compiling (DECLAIM (MAYBE-INLINE SAP-FOREIGN-SYMBOL)) ; compiling (DEFUN SAP-FOREIGN-SYMBOL ...) ; compiling (DEFVAR *!INITIAL-FOREIGN-SYMBOLS*) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/foreign.lisp ; in: DEFUN FIND-FOREIGN-SYMBOL-ADDRESS ; (SB!SYS:FIND-DYNAMIC-FOREIGN-SYMBOL-ADDRESS SB!IMPL::NAME) ; ; caught STYLE-WARNING: ; undefined function: FIND-DYNAMIC-FOREIGN-SYMBOL-ADDRESS ; ; compilation unit finished ; Undefined function: ; FIND-DYNAMIC-FOREIGN-SYMBOL-ADDRESS ; caught 1 STYLE-WARNING condition ; printed 2 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/foreign.fasl-tmp written ; compilation finished in 0:00:00.024 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/fop.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!FASL") ; compiling (DEFVAR *SKIP-UNTIL* ...) ; compiling (DEFMACRO WITH-FOP-STACK ...) ; compiling (DEFMACRO !DEFINE-FOP ...) ; compiling (DEFUN !%DEFINE-FOP ...) ; compiling (DEFUN READ-STRING-AS-BYTES ...) ; compiling (DEFUN READ-BASE-STRING-AS-BYTES ...) ; compiling (DEFUN READ-STRING-AS-UNSIGNED-BYTE-32 ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/fop.lisp ; in: DEFUN READ-STRING-AS-UNSIGNED-BYTE-32 ; (SB-XC:CODE-CHAR (SB!INT:FAST-READ-U-INTEGER 4)) ; ; note: doing unsigned word to integer coercion (cost 20) ; compiling (DEFVAR *SHOW-FOP-NOP4-P* ...) ; compiling (!DEFINE-FOP 137 ...) ; compiling (!DEFINE-FOP 0 ...) ; compiling (!DEFINE-FOP 1 ...) ; compiling (!DEFINE-FOP 2 ...) ; compiling (!DEFINE-FOP 3 ...) ; compiling (!DEFINE-FOP 4 ...) ; compiling (!DEFINE-FOP 66 ...) ; compiling (!DEFINE-FOP 76 ...) ; compiling (!DEFINE-FOP 48 ...) ; compiling (!DEFINE-FOP 45 ...) ; compiling (!DEFINE-FOP 68 ...) ; compiling (!DEFINE-FOP 69 ...) ; compiling (!DEFINE-FOP 64 ...) ; compiling (!DEFINE-FOP 62 ...) ; compiling (!DEFINE-FOP 63 ...) ; compiling (DEFSTRUCT (UNDEFINED-PACKAGE #) ...) ; compiling (DECLAIM (FREEZE-TYPE UNDEFINED-PACKAGE)) ; compiling (DEFUN AUX-FOP-INTERN ...) ; compiling (!DEFINE-FOP 80 ...) ; compiling (!DEFINE-FOP 84 ...) ; compiling (!DEFINE-FOP 240 ...) ; compiling (!DEFINE-FOP 96 ...) ; compiling (!DEFINE-FOP 104 ...) ; compiling (!DEFINE-FOP 44 ...) ; compiling (!DEFINE-FOP 156 ...) ; compiling (DEFUN LOAD-S-INTEGER ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/fop.lisp ; in: DEFUN LOAD-S-INTEGER ; (ASH 1 SB!FASL::BITS) ; ; note: forced to do full call ; unable to do inline ASH (cost 3) because: ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; (- SB!FASL::RESULT (ASH 1 SB!FASL::BITS)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The second argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 32) arithmetic (cost 5) because: ; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32). ; The second argument is a (INTEGER 1), not a (SIGNED-BYTE 32). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 32) &REST ; T). ; etc. ; (ASH SB-XC:BYTE SB!FASL::BITS) ; ; note: forced to do full call ; unable to do inline ASH (cost 3) because: ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; (+ SB!FASL::RESULT (ASH SB-XC:BYTE SB!FASL::BITS)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 32) arithmetic (cost 5) because: ; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32). ; The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 32) ; &REST T). ; etc. ; (DO* ((SB!INT:INDEX LENGTH (1- SB!INT:INDEX)) ; (SB-XC:BYTE 0 (SB!INT:FAST-READ-BYTE)) ; (SB!FASL::RESULT 0 (+ SB!FASL::RESULT (ASH SB-XC:BYTE SB!FASL::BITS))) ; (SB!FASL::BITS 0 (+ SB!FASL::BITS 8))) ; ((= SB!INT:INDEX 0) ; (IF (LOGBITP 7 SB-XC:BYTE) ; (- SB!FASL::RESULT (ASH 1 SB!FASL::BITS)) ; SB!FASL::RESULT)) ; (DECLARE (FIXNUM SB!INT:INDEX SB-XC:BYTE SB!FASL::BITS))) ; --> BLOCK LET* TAGBODY SETQ SETQ ; ==> ; (THE FIXNUM (1- SB!INT:INDEX)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ==> ; (THE FIXNUM (+ SB!FASL::BITS 8)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; compiling (!DEFINE-FOP 36 ...) ; compiling (!DEFINE-FOP 34 ...) ; compiling (!DEFINE-FOP 35 ...) ; compiling (!DEFINE-FOP 70 ...) ; compiling (!DEFINE-FOP 71 ...) ; compiling (DEFINE-COMPLEX-FOP 72 ...) ; compiling (DEFINE-COMPLEX-FOP 73 ...) ; compiling (DEFINE-FLOAT-FOP 46 ...) ; compiling (DEFINE-FLOAT-FOP 47 ...) ; compiling (DEFUN FOP-LIST-FROM-STACK ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/fop.lisp ; in: DEFUN FOP-LIST-FROM-STACK ; (DO* ((SB!FASL::I (+ SB!FASL::PTR SB!FASL::N) (1- SB!FASL::I)) ; (SB!FASL::RES NIL ; (CONS (SB!FASL::FOP-STACK-REF SB!FASL::I) SB!FASL::RES))) ; ((= SB!FASL::I SB!FASL::PTR) SB!FASL::RES) ; (DECLARE (TYPE SB!INT:INDEX SB!FASL::I))) ; --> BLOCK LET* MULTIPLE-VALUE-BIND LET UNLESS IF PROGN ; ==> ; (SB-C::%TYPE-CHECK-ERROR/C #:G864 'SB-KERNEL::OBJECT-NOT-INDEX-ERROR) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of TYPE-CHECK-ERROR/C ; compiling (!DEFINE-FOP 33 ...) ; compiling (!DEFINE-FOP 16 ...) ; compiling (FROB FOP-LIST-1 ...) ; compiling (FROB FOP-LIST-2 ...) ; compiling (FROB FOP-LIST-3 ...) ; compiling (FROB FOP-LIST-4 ...) ; compiling (FROB FOP-LIST-5 ...) ; compiling (FROB FOP-LIST-6 ...) ; compiling (FROB FOP-LIST-7 ...) ; compiling (FROB FOP-LIST-8 ...) ; compiling (FROB FOP-LIST*-1 ...) ; compiling (FROB FOP-LIST*-2 ...) ; compiling (FROB FOP-LIST*-3 ...) ; compiling (FROB FOP-LIST*-4 ...) ; compiling (FROB FOP-LIST*-5 ...) ; compiling (FROB FOP-LIST*-6 ...) ; compiling (FROB FOP-LIST*-7 ...) ; compiling (FROB FOP-LIST*-8 ...) ; compiling (!DEFINE-FOP 100 ...) ; compiling (!DEFINE-FOP 160 ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/fop.lisp ; in: ; PROGN (!DEFINE-FOP 160 ; (FOP-CHARACTER-STRING ((:OPERANDS LENGTH))) ; (BUG "CHARACTER-STRING FOP encountered")) ; (SB!FASL::!DEFINE-FOP 160 ; (SB!FASL::FOP-CHARACTER-STRING ((:OPERANDS LENGTH))) ; (SB!INT:BUG "CHARACTER-STRING FOP encountered")) ; --> PROGN DEFUN PROGN ; ==> ; (SB-IMPL::%DEFUN 'SB!FASL::FOP-CHARACTER-STRING ; (SB-INT:NAMED-LAMBDA SB!FASL::FOP-CHARACTER-STRING ; (LENGTH) ; (BLOCK SB!FASL::FOP-CHARACTER-STRING ; (SB!INT:BUG "CHARACTER-STRING FOP encountered"))) ; NIL 'NIL (SB-C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; The variable LENGTH is defined but never used. ; compiling (!DEFINE-FOP 92 ...) ; compiling (!DEFINE-FOP 89 ...) ; compiling (DEFGLOBAL **SAETP-BITS-PER-LENGTH** ...) ; compiling (DECLAIM (TYPE # ...)) ; compiling (!DEFINE-FOP 43 ...) ; compiling (!DEFINE-FOP 53 ...) ; compiling (!DEFINE-FOP 54 ...) ; compiling (DEFUN FOP-FUNCALL* ...) ; compiling (!DEFINE-FOP 55 ...) ; compiling (!DEFINE-FOP 56 ...) ; compiling (!DEFINE-FOP 200 ...) ; compiling (!DEFINE-FOP 201 ...) ; compiling (!DEFINE-FOP 202 ...) ; compiling (!DEFINE-FOP 204 ...) ; compiling (!DEFINE-FOP 203 ...) ; compiling (!DEFINE-FOP 224 ...) ; compiling (!DEFINE-FOP 60 ...) ; compiling (!DEFINE-FOP 65 ...) ; compiling (!DEFINE-FOP 74 ...) ; compiling (!DEFINE-FOP 174 ...) ; compiling (!DEFINE-FOP 140 ...) ; compiling (!DEFINE-FOP 139 ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/fop.lisp ; in: !DEFINE-FOP 139 ; (SB!FASL::!DEFINE-FOP 139 ; (SB!FASL::FOP-FUN-ENTRY ; (SB!FASL::CODE-OBJECT SB!FASL::NAME SB!FASL::ARGLIST TYPE SB!INT:INFO)) ; (ERROR "FOP-FUN-ENTRY can't be defined without %PRIMITIVE.")) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN BLOCK SB!FASL::WITH-FOP-STACK ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION MACROLET ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; #'(LAMBDA ; (&OPTIONAL (SB!FASL::CODE-OBJECT) (SB!FASL::NAME) (SB!FASL::ARGLIST) ; (TYPE) (SB!INT:INFO) ; &REST #:G2172) ; (DECLARE (IGNORE #:G2172)) ; (ERROR "FOP-FUN-ENTRY can't be defined without %PRIMITIVE.")) ; ; caught STYLE-WARNING: ; The variable CODE-OBJECT is defined but never used. ; ; caught STYLE-WARNING: ; The variable NAME is defined but never used. ; ; caught STYLE-WARNING: ; The variable ARGLIST is defined but never used. ; ; caught STYLE-WARNING: ; The variable TYPE is defined but never used. ; ; caught STYLE-WARNING: ; The variable INFO is defined but never used. ; compiling (!DEFINE-FOP 144 ...) ; compiling (!DEFINE-FOP 145 ...) ; compiling (!DEFINE-FOP 146 ...) ; compiling (!DEFINE-FOP 147 ...) ; compiling (!DEFINE-FOP 148 ...) ; compiling (!DEFINE-FOP 149 ...) ; compiling (!DEFINE-FOP 150 ...) ; compiling (!DEFINE-FOP 151 ...) ; compiling (!DEFINE-FOP 152 ...) ; compiling (!DEFINE-FOP 153 ...) ; compiling (!DEFINE-FOP 154 ...) ; compiling (!DEFINE-FOP 155 ...) ; compiling (FROB (108 T) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/fop.lisp ; in: !DEFINE-FOP 65 ; (SB!KERNEL:%COERCE-NAME-TO-FUN SB!FASL::NAME) ; ; caught STYLE-WARNING: ; undefined function: %COERCE-NAME-TO-FUN ; in: !DEFINE-FOP 71 ; (SB!KERNEL:%MAKE-COMPLEX REALPART IMAGPART) ; ; caught STYLE-WARNING: ; undefined function: %MAKE-COMPLEX ; in: !DEFINE-FOP 48 ; (SB!KERNEL:%MAKE-INSTANCE SB!FASL::SIZE) ; ; caught STYLE-WARNING: ; undefined function: %MAKE-INSTANCE ; in: !DEFINE-FOP 70 ; (SB!KERNEL:%MAKE-RATIO SB!FASL::NUM SB!FASL::DEN) ; ; caught STYLE-WARNING: ; undefined function: %MAKE-RATIO ; in: !DEFINE-FOP 48 ; (SETF (SB!KERNEL:%RAW-INSTANCE-REF/WORD SB!FASL::RES ; (- SB!FASL::NUNTAGGED SB!FASL::N 1)) ; (SB!FASL::FOP-STACK-REF (DECF SB!FASL::PTR))) ; ==> ; (SB!KERNEL:%RAW-INSTANCE-SET/WORD SB!FASL::RES ; (- SB!FASL::NUNTAGGED SB!FASL::N 1) ; (SB!FASL::FOP-STACK-REF (DECF SB!FASL::PTR))) ; ; caught STYLE-WARNING: ; undefined function: %RAW-INSTANCE-SET/WORD ; (SETF (SB!KERNEL:%INSTANCE-LAYOUT SB!FASL::RES) SB!KERNEL:LAYOUT) ; ==> ; (SB!KERNEL:%SET-INSTANCE-LAYOUT SB!FASL::RES SB!KERNEL:LAYOUT) ; ; caught STYLE-WARNING: ; undefined function: %SET-INSTANCE-LAYOUT ; in: !DEFINE-FOP 174 ; (SETF (SB!C::DEBUG-SOURCE-COMPILED SB!FASL::DEBUG-SOURCE) ; (GET-UNIVERSAL-TIME) ; (SB!C::DEBUG-SOURCE-CREATED SB!FASL::DEBUG-SOURCE) ; (FILE-WRITE-DATE ; (SB!C::DEBUG-SOURCE-NAMESTRING SB!FASL::DEBUG-SOURCE))) ; --> PROGN SETF LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB-C::%FUNCALL #'(SETF SB!C::DEBUG-SOURCE-COMPILED) #:NEW2121 ; #:DEBUG-SOURCE2122) ; ; caught STYLE-WARNING: ; undefined function: (SETF SB!C::DEBUG-SOURCE-COMPILED) ; ==> ; (SB-C::%FUNCALL #'(SETF SB!C::DEBUG-SOURCE-CREATED) #:NEW2123 ; #:DEBUG-SOURCE2124) ; ; caught STYLE-WARNING: ; undefined function: (SETF SB!C::DEBUG-SOURCE-CREATED) ; in: !DEFINE-FOP 43 ; (SB!KERNEL:ALLOCATE-VECTOR SB!FASL::WIDETAG LENGTH SB!SYS:WORDS) ; ; caught STYLE-WARNING: ; undefined function: ALLOCATE-VECTOR ; in: !DEFINE-FOP 140 ; (SETF (SB!KERNEL:CODE-HEADER-REF SB!FASL::CODE SB!INT:INDEX) SB!FASL::VALUE) ; ==> ; (SB!KERNEL:CODE-HEADER-SET SB!FASL::CODE SB!INT:INDEX SB!FASL::VALUE) ; ; caught STYLE-WARNING: ; undefined function: CODE-HEADER-SET ; in: !DEFINE-FOP 174 ; (SB!C::DEBUG-SOURCE-NAMESTRING SB!FASL::DEBUG-SOURCE) ; ; caught STYLE-WARNING: ; undefined function: SB!C::DEBUG-SOURCE-NAMESTRING ; in: !DEFINE-FOP 146 ; (SB!KERNEL:ENSURE-SYMBOL-TLS-INDEX SYMBOL) ; ; caught STYLE-WARNING: ; undefined function: ENSURE-SYMBOL-TLS-INDEX ; in: !DEFINE-FOP 60 ; (SB!KERNEL:FIND-OR-CREATE-FDEFN SB!FASL::NAME) ; ; caught STYLE-WARNING: ; undefined function: FIND-OR-CREATE-FDEFN ; in: !DEFINE-FOP 148 ; (SB!VM:FIXUP-CODE-OBJECT SB!FASL::CODE-OBJECT (SB!FASL::READ-WORD-ARG) ; SB!FASL::VALUE SB!FASL::KIND) ; ; caught STYLE-WARNING: ; undefined function: SB!VM:FIXUP-CODE-OBJECT ; in: !DEFINE-FOP 147 ; (SB!VM:FIXUP-CODE-OBJECT SB!FASL::CODE-OBJECT (SB!FASL::READ-WORD-ARG) ; (SB!SYS:FOREIGN-SYMBOL-ADDRESS SB!FASL::SYM) SB!FASL::KIND) ; ; caught STYLE-WARNING: ; undefined function: SB!VM:FIXUP-CODE-OBJECT ; in: !DEFINE-FOP 146 ; (SB!VM:FIXUP-CODE-OBJECT SB!FASL::CODE-OBJECT (SB!FASL::READ-WORD-ARG) ; (SB!KERNEL:ENSURE-SYMBOL-TLS-INDEX SYMBOL) SB!FASL::KIND) ; ; caught STYLE-WARNING: ; undefined function: SB!VM:FIXUP-CODE-OBJECT ; ; caught STYLE-WARNING: ; 2 more uses of undefined function SB!VM:FIXUP-CODE-OBJECT ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/fop.lisp ; in: !DEFINE-FOP 149 ; (SB!KERNEL:GET-LISP-OBJ-ADDRESS SB!FASL::CODE-OBJECT) ; ; caught STYLE-WARNING: ; undefined function: GET-LISP-OBJ-ADDRESS ; in: DEFUN AUX-FOP-INTERN ; (SB!INT:INTERN* SB!FASL::BUFFER SB!FASL::SIZE PACKAGE :NO-COPY T) ; ; caught STYLE-WARNING: ; undefined function: INTERN* ; in: !DEFINE-FOP 224 ; (SB!FASL::LOAD-CODE SB!FASL::N-BOXED-WORDS SB!FASL::N-UNBOXED-BYTES) ; ; caught STYLE-WARNING: ; undefined function: LOAD-CODE ; in: !DEFINE-FOP 89 ; (SB!KERNEL:MAKE-ARRAY-HEADER SB!VM:SIMPLE-ARRAY-WIDETAG SB!FASL::RANK) ; ; caught STYLE-WARNING: ; undefined function: MAKE-ARRAY-HEADER ; in: !DEFINE-FOP 150 ; (SB!SYS:READ-N-BYTES SB!FASL::*FASL-INPUT-STREAM* SB!FASL::SYM 0 SB!FASL::LEN) ; ; caught STYLE-WARNING: ; undefined function: READ-N-BYTES ; in: !DEFINE-FOP 147 ; (SB!SYS:READ-N-BYTES SB!FASL::*FASL-INPUT-STREAM* SB!FASL::SYM 0 SB!FASL::LEN) ; ; caught STYLE-WARNING: ; undefined function: READ-N-BYTES ; in: !DEFINE-FOP 43 ; (SB!SYS:READ-N-BYTES SB!FASL::*FASL-INPUT-STREAM* VECTOR 0 SB!FASL::BYTES) ; ; caught STYLE-WARNING: ; undefined function: READ-N-BYTES ; in: !DEFINE-FOP 89 ; (SB!KERNEL:SET-ARRAY-HEADER SB!FASL::RES SB!FASL::VEC LENGTH NIL 0 ; (SB!FASL::FOP-LIST-FROM-STACK SB!FASL::RANK) NIL T) ; ; caught STYLE-WARNING: ; undefined function: SET-ARRAY-HEADER ; in: !DEFINE-FOP 69 ; (SB!PCL::SET-SLOT-VALUE SB!FASL::OBJ SB!FASL::SLOT-NAME SB!FASL::VAL) ; ; caught STYLE-WARNING: ; undefined function: SB!PCL::SET-SLOT-VALUE ; in: !DEFINE-FOP 156 ; (HANDLER-CASE (SB!INT:FIND-UNDELETED-PACKAGE-OR-LOSE PACKAGE-NAME) ; (SB!KERNEL:SIMPLE-PACKAGE-ERROR (SB!FASL::C) ; (SB!FASL::MAKE-UNDEFINED-PACKAGE :ERROR ; (PRINC-TO-STRING SB!FASL::C)))) ; --> SB-INT:DX-FLET FLET BLOCK SB-INT:DX-LET LET TAGBODY ; --> SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET FLET BLOCK ; ==> ; (TYPEP CONDITION 'SB!KERNEL:SIMPLE-PACKAGE-ERROR) ; ; caught STYLE-WARNING: ; undefined type: SIMPLE-PACKAGE-ERROR ; ; compilation unit finished ; Undefined type: ; SIMPLE-PACKAGE-ERROR ; Undefined functions: ; %COERCE-NAME-TO-FUN %MAKE-COMPLEX %MAKE-INSTANCE %MAKE-RATIO %RAW-INSTANCE-SET/WORD %SET-INSTANCE-LAYOUT (SETF SB!C::DEBUG-SOURCE-COMPILED) (SETF SB!C::DEBUG-SOURCE-CREATED) ALLOCATE-VECTOR CODE-HEADER-SET SB!C::DEBUG-SOURCE-NAMESTRING ENSURE-SYMBOL-TLS-INDEX FIND-OR-CREATE-FDEFN SB!VM:FIXUP-CODE-OBJECT GET-LISP-OBJ-ADDRESS INTERN* LOAD-CODE MAKE-ARRAY-HEADER READ-N-BYTES SET-ARRAY-HEADER SB!PCL::SET-SLOT-VALUE ; caught 33 STYLE-WARNING conditions ; printed 8 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/fop.fasl-tmp written ; compilation finished in 0:00:00.540 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ctype.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DECLAIM (TYPE # ...)) ; compiling (DEFVAR *LOSSAGE-FUN*) ; compiling (DEFVAR *UNWINNAGE-FUN*) ; compiling (DEFVAR *CTYPE-TEST-FUN*) ; compiling (DEFVAR *LOSSAGE-DETECTED*) ; compiling (DEFVAR *UNWINNAGE-DETECTED*) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN NOTE-LOSSAGE ...) ; compiling (DEFUN NOTE-UNWINNAGE ...) ; compiling (DECLAIM (SPECIAL *COMPILER-ERROR-CONTEXT*)) ; compiling (DEFUN ALWAYS-SUBTYPEP ...) ; compiling (DEFUN VALID-FUN-USE ...) ; compiling (DEFUN CHECK-ARG-TYPE ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN CHECK-FIXED-AND-REST ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN CHECK-KEY-ARGS ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN DEFINITION-TYPE ...) ; compiling (DEFSTRUCT (APPROXIMATE-FUN-TYPE #) ...) ; compiling (DEFSTRUCT (APPROXIMATE-KEY-INFO #) ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN NOTE-FUN-USE ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN VALID-APPROXIMATE-TYPE ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN CHECK-APPROXIMATE-FIXED-AND-REST ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN CHECK-APPROXIMATE-ARG-TYPE ...) ; compiling (DEFUN CHECK-APPROXIMATE-KEYWORDS ...) ; compiling (DEFUN TRY-TYPE-INTERSECTIONS ...) ; compiling (DEFUN FIND-OPTIONAL-DISPATCH-TYPES ...) ; compiling (DEFUN FIND-LAMBDA-TYPES ...) ; compiling (DEFUN ASSERT-DEFINITION-TYPE ...) ; compiling (DEFUN ASSERT-GLOBAL-FUNCTION-DEFINITION-TYPE ...) ; compiling (DEFUN MASSAGE-GLOBAL-DEFINITION-TYPE ...) ; compiling (DEFUN MAP-COMBINATION-ARGS-AND-TYPES ...) ; compiling (DEFUN ASSERT-CALL-TYPE ...) ; compiling (DEFUN CHECK-CATCH-TAG-TYPE ...) ; compiling (DEFUN %COMPILE-TIME-TYPE-ERROR ...) ; compiling (DEFOPTIMIZER (%COMPILE-TIME-TYPE-ERROR IR2-CONVERT) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ctype.lisp ; in: DEFUN ASSERT-CALL-TYPE ; (SB!C::ASSERT-LVAR-TYPE SB!C::LVAR SB!C::RETURNS SB!C:POLICY) ; ; caught STYLE-WARNING: ; undefined function: ASSERT-LVAR-TYPE ; in: DEFUN ASSERT-DEFINITION-TYPE ; (SB!C::ASSERT-LVAR-TYPE (SB!C::RETURN-RESULT RETURN) SB!C::TYPE-RETURNS ; SB!C:POLICY) ; ; caught STYLE-WARNING: ; undefined function: ASSERT-LVAR-TYPE ; in: DEFUN ASSERT-GLOBAL-FUNCTION-DEFINITION-TYPE ; #'SB!C:COMPILER-NOTIFY ; ; caught STYLE-WARNING: ; undefined function: COMPILER-NOTIFY ; in: DEFUN VALID-APPROXIMATE-TYPE ; #'SB!C:COMPILER-NOTIFY ; ; caught STYLE-WARNING: ; undefined function: COMPILER-NOTIFY ; in: DEFUN NOTE-FUN-USE ; (SB!C::CONSTANT-LVAR-P SB!C::KEY) ; ; caught STYLE-WARNING: ; undefined function: CONSTANT-LVAR-P ; in: DEFUN CHECK-KEY-ARGS ; (SB!C::CONSTANT-LVAR-P SB!C::K) ; ; caught STYLE-WARNING: ; undefined function: CONSTANT-LVAR-P ; in: DEFUN CHECK-ARG-TYPE ; (SB!C::CONSTANT-LVAR-P SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: CONSTANT-LVAR-P ; ; caught STYLE-WARNING: ; 1 more use of undefined function CONSTANT-LVAR-P ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ctype.lisp ; in: DEFUN ASSERT-CALL-TYPE ; (SB!C::DERIVE-NODE-TYPE SB!C:CALL SB!C::RETURNS) ; ; caught STYLE-WARNING: ; undefined function: DERIVE-NODE-TYPE ; in: DEFUN ASSERT-DEFINITION-TYPE ; (SB!C::DERIVE-NODE-TYPE SB!C::REF SB!C::S-TYPE) ; ; caught STYLE-WARNING: ; undefined function: DERIVE-NODE-TYPE ; in: DEFUN VALID-FUN-USE ; (SB!C::IMMEDIATELY-USED-P SB!C::LVAR SB!C:CALL) ; ; caught STYLE-WARNING: ; undefined function: IMMEDIATELY-USED-P ; in: DEFOPTIMIZER (%COMPILE-TIME-TYPE-ERROR IR2-CONVERT) ; (SB!C::IR2-CONVERT-FULL-CALL SB!C::NODE BLOCK) ; ; caught STYLE-WARNING: ; undefined function: IR2-CONVERT-FULL-CALL ; in: DEFUN CHECK-CATCH-TAG-TYPE ; (SB!C::LVAR-ALL-SOURCES SB!C::TAG) ; ; caught STYLE-WARNING: ; undefined function: LVAR-ALL-SOURCES ; in: DEFUN ASSERT-DEFINITION-TYPE ; (SB!C::LVAR-DERIVED-TYPE (SB!C::RETURN-RESULT RETURN)) ; ; caught STYLE-WARNING: ; undefined function: LVAR-DERIVED-TYPE ; in: DEFUN ASSERT-CALL-TYPE ; (SB!C::LVAR-HAS-SINGLE-USE-P SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: LVAR-HAS-SINGLE-USE-P ; in: DEFUN MAP-COMBINATION-ARGS-AND-TYPES ; (SB!C::LVAR-TYPE (SB!C::COMBINATION-FUN SB!C:CALL)) ; ; caught STYLE-WARNING: ; undefined function: LVAR-TYPE ; in: DEFUN NOTE-FUN-USE ; (SB!C::LVAR-TYPE (CAR SB!C::ARG)) ; ; caught STYLE-WARNING: ; undefined function: LVAR-TYPE ; in: DEFUN CHECK-ARG-TYPE ; (SB!C::LVAR-TYPE SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: LVAR-TYPE ; ; caught STYLE-WARNING: ; 1 more use of undefined function LVAR-TYPE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ctype.lisp ; in: DEFUN NOTE-FUN-USE ; (SB!C::LVAR-VALUE SB!C::KEY) ; ; caught STYLE-WARNING: ; undefined function: LVAR-VALUE ; in: DEFUN CHECK-KEY-ARGS ; (SB!C::LVAR-VALUE SB!C::V) ; ; caught STYLE-WARNING: ; undefined function: LVAR-VALUE ; in: DEFUN CHECK-ARG-TYPE ; (SB!C::LVAR-VALUE SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: LVAR-VALUE ; ; caught STYLE-WARNING: ; 2 more uses of undefined function LVAR-VALUE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ctype.lisp ; in: DEFUN ASSERT-DEFINITION-TYPE ; (SB!C::MAIN-ENTRY SB!C::FUNCTIONAL) ; ; caught STYLE-WARNING: ; undefined function: MAIN-ENTRY ; in: DEFUN ASSERT-CALL-TYPE ; (SB!C::REOPTIMIZE-LVAR SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: REOPTIMIZE-LVAR ; ; compilation unit finished ; Undefined functions: ; ASSERT-LVAR-TYPE COMPILER-NOTIFY CONSTANT-LVAR-P DERIVE-NODE-TYPE IMMEDIATELY-USED-P IR2-CONVERT-FULL-CALL LVAR-ALL-SOURCES LVAR-DERIVED-TYPE LVAR-HAS-SINGLE-USE-P LVAR-TYPE LVAR-VALUE MAIN-ENTRY REOPTIMIZE-LVAR ; caught 25 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/ctype.fasl-tmp written ; compilation finished in 0:00:00.289 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/disassem.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!DISASSEM") ; compiling (DEF!CONSTANT LABEL-COLUMN-WIDTH ...) ; compiling (DEFTYPE TEXT-WIDTH ...) ; compiling (DEFTYPE ALIGNMENT ...) ; compiling (DEFTYPE OFFSET ...) ; compiling (DEFTYPE ADDRESS ...) ; compiling (DEFTYPE DISASSEM-LENGTH ...) ; compiling (DEFTYPE COLUMN ...) ; compiling (DEF!CONSTANT MAX-FILTERED-VALUE-INDEX ...) ; compiling (DEFTYPE FILTERED-VALUE-INDEX ...) ; compiling (DEFTYPE FILTERED-VALUE-VECTOR ...) ; compiling (DEFVAR *DISASSEM-INSTS* ...) ; compiling (DECLAIM (TYPE HASH-TABLE ...)) ; compiling (DEFVAR *DISASSEM-INST-SPACE* ...) ; compiling (DEFVAR *DISASSEM-INST-ALIGNMENT-BYTES* ...) ; compiling (DECLAIM (TYPE ALIGNMENT ...)) ; compiling (DEFVAR *DISASSEM-LOCATION-COLUMN-WIDTH* ...) ; compiling (DECLAIM (TYPE # ...)) ; compiling (DEFVAR *DISASSEM-OPCODE-COLUMN-WIDTH* ...) ; compiling (DECLAIM (TYPE TEXT-WIDTH ...)) ; compiling (DEFVAR *DISASSEM-INST-COLUMN-WIDTH* ...) ; compiling (DECLAIM (TYPE TEXT-WIDTH ...)) ; compiling (DEFVAR *DISASSEM-NOTE-COLUMN* ...) ; compiling (DEFSTRUCT (FUN-CACHE # ...) ...) ; compiling (DEFVAR *DISASSEM-FUN-CACHE* ...) ; compiling (DECLAIM (TYPE FUN-CACHE ...)) ; compiling (DECLAIM (INLINE DCHUNK-OR ...)) ; compiling (DEF!CONSTANT DCHUNK-BITS ...) ; compiling (DEFTYPE DCHUNK ...) ; compiling (DEFTYPE DCHUNK-INDEX ...) ; compiling (DEF!CONSTANT DCHUNK-ZERO ...) ; compiling (DEF!CONSTANT DCHUNK-ONE ...) ; compiling (DEFUN DCHUNK-EXTRACT ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/disassem.lisp ; in: DEFUN DCHUNK-EXTRACT ; (THE SB!DISASSEM:DCHUNK ; (SB-XC:LDB SB!DISASSEM::POS (THE SB!DISASSEM:DCHUNK SB!DISASSEM::FROM))) ; ; note: type assertion too complex to check: ; (VALUES (UNSIGNED-BYTE 32) &REST T). ; compiling (DEFMACRO DCHUNK-COPY ...) ; compiling (DEFUN DCHUNK-OR ...) ; compiling (DEFUN DCHUNK-AND ...) ; compiling (DEFUN DCHUNK-CLEAR ...) ; compiling (DEFUN DCHUNK-NOT ...) ; compiling (DEFMACRO DCHUNK-ANDF ...) ; compiling (DEFMACRO DCHUNK-ORF ...) ; compiling (DEFMACRO DCHUNK-CLEARF ...) ; compiling (DEFUN DCHUNK-MAKE-MASK ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/disassem.lisp ; in: DEFUN DCHUNK-MAKE-MASK ; (THE SB!DISASSEM:DCHUNK (SB-XC:MASK-FIELD SB!DISASSEM::POS -1)) ; ; note: type assertion too complex to check: ; (VALUES (UNSIGNED-BYTE 32) &REST T). ; compiling (DEFUN DCHUNK-MAKE-FIELD ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/disassem.lisp ; in: DEFUN DCHUNK-MAKE-FIELD ; (THE SB!DISASSEM:DCHUNK (SB-XC:DPB SB!DISASSEM::VALUE SB!DISASSEM::POS 0)) ; ; note: type assertion too complex to check: ; (VALUES (UNSIGNED-BYTE 32) &REST T). ; compiling (DEFMACRO MAKE-DCHUNK ...) ; compiling (DEFUN SAP-REF-DCHUNK ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/disassem.lisp ; in: DEFUN SAP-REF-DCHUNK ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET) 24) ; ; note: The first argument never returns a value. ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) 16) ; ; note: The first argument never returns a value. ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::BYTE-OFFSET)) 8) ; ; note: The first argument never returns a value. ; (+ (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET) 24) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) ; 16) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::BYTE-OFFSET)) 8) ; (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::BYTE-OFFSET))) ; ==> ; (+ ; (+ ; (+ (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET) 24) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP #) 16)) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::BYTE-OFFSET)) 8)) ; (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::BYTE-OFFSET))) ; ; note: The second argument never returns a value. ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) 8) ; ; note: The first argument never returns a value. ; (+ (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) 8) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::BYTE-OFFSET)) ; 16) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::BYTE-OFFSET)) ; 24)) ; --> + + ; ==> ; (+ (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) 8)) ; ; note: The first argument never returns a value. ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::BYTE-OFFSET)) 16) ; ; note: The first argument never returns a value. ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::BYTE-OFFSET)) 24) ; ; note: The first argument never returns a value. ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET) 56) ; ; note: The first argument never returns a value. ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) 48) ; ; note: The first argument never returns a value. ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::BYTE-OFFSET)) 40) ; ; note: The first argument never returns a value. ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::BYTE-OFFSET)) 32) ; ; note: The first argument never returns a value. ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::BYTE-OFFSET)) 24) ; ; note: The first argument never returns a value. ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::BYTE-OFFSET)) 16) ; ; note: The first argument never returns a value. ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::BYTE-OFFSET)) 8) ; ; note: The first argument never returns a value. ; (+ (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET) 56) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) ; 48) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::BYTE-OFFSET)) ; 40) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::BYTE-OFFSET)) ; 32) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::BYTE-OFFSET)) ; 24) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::BYTE-OFFSET)) ; 16) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::BYTE-OFFSET)) 8) ; (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 7 SB!DISASSEM::BYTE-OFFSET))) ; ==> ; (+ ; (+ (+ (+ (+ # #) (ASH # 24)) (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP #) 16)) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::BYTE-OFFSET)) ; 8)) ; (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 7 SB!DISASSEM::BYTE-OFFSET))) ; ; note: The second argument never returns a value. ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) 8) ; ; note: The first argument never returns a value. ; (+ (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) 8) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::BYTE-OFFSET)) ; 16) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::BYTE-OFFSET)) ; 24) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::BYTE-OFFSET)) ; 32) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::BYTE-OFFSET)) ; 40) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::BYTE-OFFSET)) ; 48) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 7 SB!DISASSEM::BYTE-OFFSET)) ; 56)) ; --> + + + + + + ; ==> ; (+ (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) 8)) ; ; note: The first argument never returns a value. ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::BYTE-OFFSET)) 16) ; ; note: The first argument never returns a value. ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::BYTE-OFFSET)) 24) ; ; note: The first argument never returns a value. ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::BYTE-OFFSET)) 32) ; ; note: The first argument never returns a value. ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::BYTE-OFFSET)) 40) ; ; note: The first argument never returns a value. ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::BYTE-OFFSET)) 48) ; ; note: The first argument never returns a value. ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 7 SB!DISASSEM::BYTE-OFFSET)) 56) ; ; note: The first argument never returns a value. ; ; note: deleting unreachable code ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::BYTE-OFFSET)) 48) ; ; note: deleting unreachable code ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::BYTE-OFFSET)) 40) ; ; note: deleting unreachable code ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::BYTE-OFFSET)) 32) ; ; note: deleting unreachable code ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::BYTE-OFFSET)) 24) ; ; note: deleting unreachable code ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::BYTE-OFFSET)) 16) ; ; note: deleting unreachable code ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) 8) ; ; note: deleting unreachable code ; (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) ; ==> ; SB!DISASSEM::SAP ; ; note: deleting unreachable code ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::BYTE-OFFSET)) 8) ; ; note: deleting unreachable code ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::BYTE-OFFSET)) 16) ; ; note: deleting unreachable code ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::BYTE-OFFSET)) 24) ; ; note: deleting unreachable code ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::BYTE-OFFSET)) 32) ; ; note: deleting unreachable code ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::BYTE-OFFSET)) 40) ; ; note: deleting unreachable code ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) 48) ; ; note: deleting unreachable code ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET) 56) ; ; note: deleting unreachable code ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::BYTE-OFFSET)) 24) ; ; note: deleting unreachable code ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::BYTE-OFFSET)) 16) ; ; note: deleting unreachable code ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) 8) ; ; note: deleting unreachable code ; (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) ; ==> ; SB!DISASSEM::SAP ; ; note: deleting unreachable code ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::BYTE-OFFSET)) 8) ; ; note: deleting unreachable code ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::BYTE-OFFSET)) 16) ; ; note: deleting unreachable code ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET) 24) ; ; note: deleting unreachable code ; (THE SB!DISASSEM:DCHUNK ; (ECASE SB!DISASSEM::DCHUNK-BITS ; (32 ; (IF (EQ SB!DISASSEM::BYTE-ORDER :BIG-ENDIAN) ; (+ # # # #) ; (+ # # # #))) ; (64 ; (IF (EQ SB!DISASSEM::BYTE-ORDER :BIG-ENDIAN) ; (+ # # # # # # # #) ; (+ # # # # # # # #))))) ; ; note: deleting unreachable code ; (EQ SB!DISASSEM::BYTE-ORDER :BIG-ENDIAN) ; ==> ; SB!DISASSEM::BYTE-ORDER ; ; note: deleting unreachable code ; (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET) ; ==> ; SB!DISASSEM::SAP ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; compiling (DEFUN DCHUNK-CORRECTED-EXTRACT ...) ; compiling (DEFMACRO DCHUNK-INSERTF ...) ; compiling (DEFUN DCHUNK= ...) ; compiling (DEFMACRO DCHUNK-ZEROP ...) ; compiling (DEFUN DCHUNK-STRICT-SUPERSET-P ...) ; compiling (DEFUN DCHUNK-COUNT-BITS ...) ; compiling (DEFSTRUCT (INSTRUCTION # ...) ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFSTRUCT (INST-SPACE # ...) ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DECLAIM (TYPE # ...)) ; compiling (DEFSTRUCT (INST-SPACE-CHOICE # ...) ...) ; compiling (DEFVAR *ARG-FORM-KINDS* ...) ; compiling (DEFSTRUCT (ARG-FORM-KIND #) ...) ; compiling (DEFUN ARG-FORM-KIND-OR-LOSE ...) ; compiling (DEFUN FIND-ARG-FORM-PRODUCER ...) ; compiling (DEFUN FIND-ARG-FORM-CHECKER ...) ; compiling (DEFUN CANONICALIZE-ARG-FORM-KIND ...) ; compiling (DEFVAR *DISASSEM-INST-FORMATS* ...) ; compiling (DEFVAR *DISASSEM-ARG-TYPES* ...) ; compiling (DEFVAR *DISASSEM-FUN-CACHE* ...) ; compiling (DEFSTRUCT (ARG # ...) ...) ; compiling (DEFSTRUCT (INSTRUCTION-FORMAT # ...) ...) ; compiling (DEFSTRUCT (FUNSTATE # ...) ...) ; compiling (DEFUN MAKE-FUNSTATE ...) ; compiling (DEFUN FUNSTATE-COMPATIBLE-P ...) ; compiling (DEFUN ARG-OR-LOSE ...) ; compiling (DEFSTRUCT (VALSRC # ...) ...) ; compiling (DEFUN MAKE-VALSRC ...) ; compiling (DEFVAR *CURRENT-INSTRUCTION-FLAVOR* ...) ; compiling (DEFUN PD-ERROR ...) ; compiling (DEFUN SELF-EVALUATING-P ...) ; compiling (DEFUN MAYBE-QUOTE ...) ; compiling (DEFUN DOESNT-NEED-WRAPPING-P ...) ; compiling (DEFUN MAKE-WRAPPER ...) ; compiling (DEFUN FILTER-OVERRIDES ...) ; compiling (DEFPARAMETER *ARG-FUN-PARAMS* ...) ; compiling (DEFUN MUNGE-FUN-REFS ...) ; compiling (DEFUN GEN-ARGS-DEF-FORM ...) ; compiling (DEFUN GEN-PRINTER-DEF-FORMS-DEF-FORM ...) ; compiling (DEFUN UPDATE-ARGS-FORM ...) ; compiling (DEFUN FORMAT-OR-LOSE ...) ; compiling (DEFMACRO DEFINE-INSTRUCTION-FORMAT ...) ; compiling (DEFUN MAKE-ARG ...) ; compiling (DEFUN COPY-ARG ...) ; compiling (DEFUN MODIFY-OR-ADD-ARG ...) ; compiling (DEFUN MODIFY-ARG ...) ; compiling (DEFMACRO ARG-ACCESS-MACRO ...) ; compiling (DEFUN ARG-VALUE-FORM ...) ; compiling (DEFUN CORRECT-DCHUNK-BYTESPEC-FOR-ENDIANNESS ...) ; compiling (DEFUN MAKE-ARG-TEMP-BINDINGS ...) ; compiling (DEFUN GEN-ARG-FORMS ...) ; compiling (DEFUN MAYBE-LISTIFY ...) ; compiling (DEFUN SET-ARG-FROM-TYPE ...) ; compiling (DEFUN GET-ARG-TEMP ...) ; compiling (DEFUN SET-ARG-TEMPS ...) ; compiling (DEFMACRO DEFINE-ARG-TYPE ...) ; compiling (DEFMACRO DEF-ARG-FORM-KIND ...) ; compiling (DEF-ARG-FORM-KIND (:RAW) ...) ; compiling (DEF-ARG-FORM-KIND (:SIGN-EXTENDED :UNFILTERED) ...) ; compiling (DEFUN VALSRC-EQUAL ...) ; compiling (DEF-ARG-FORM-KIND (:FILTERING) ...) ; compiling (DEF-ARG-FORM-KIND (:FILTERED :UNADJUSTED) ...) ; compiling (DEF-ARG-FORM-KIND (:ADJUSTED :NUMERIC ...) ...) ; compiling (DEF-ARG-FORM-KIND (:LABELLED :FINAL) ...) ; compiling (DEF-ARG-FORM-KIND (:PRINTED) ...) ; compiling (DEFUN REMEMBER-PRINTER-USE ...) ; compiling (DEFUN SOURCE-FORM ...) ; compiling (DEFUN VALUE-OR-SOURCE ...) ; compiling (DEFSTRUCT (CACHED-FUN # ...) ...) ; compiling (DEFUN FIND-CACHED-FUN ...) ; compiling (DEFMACRO !WITH-CACHED-FUN ...) ; compiling (DEFUN FIND-PRINTER-FUN ...) ; compiling (DEFUN MAKE-PRINTER-DEFUN ...) ; compiling (DEFUN PREPROCESS-TEST ...) ; compiling (DEFUN PREPROCESS-CONDITIONALS ...) ; compiling (DEFUN PREPROCESS-PRINTER ...) ; compiling (DEFUN FIND-FIRST-FIELD-NAME ...) ; compiling (DEFUN PREPROCESS-CHOOSES ...) ; compiling (DEFUN SHARING-CONS ...) ; compiling (DEFUN SHARING-MAPCAR ...) ; compiling (DEFUN ALL-ARG-REFS-RELEVANT-P ...) ; compiling (DEFUN PICK-PRINTER-CHOICE ...) ; compiling (DEFUN COMPILE-PRINTER-LIST ...) ; compiling (DEFUN COMPILE-PRINTER-BODY ...) ; compiling (DEFUN COMPILE-PRINT ...) ; compiling (DEFUN STRING-OR-QSYM-P ...) ; compiling (DEFUN STRIP-QUOTE ...) ; compiling (DEFUN COMPARE-FIELDS-FORM ...) ; compiling (DEFUN COMPILE-TEST ...) ; compiling (DEFUN FIND-LABELLER-FUN ...) ; compiling (DEFUN FIND-PREFILTER-FUN ...) ; compiling (DEFUN COMPUTE-MASK-ID ...) ; compiling (DEFUN INSTALL-INST-FLAVORS ...) ; compiling (DECLAIM (INLINE BYTES-TO-BITS)) ; compiling (DECLAIM (MAYBE-INLINE SIGN-EXTEND ...)) ; compiling (DEFUN BYTES-TO-BITS ...) ; compiling (DEFUN BITS-TO-BYTES ...) ; compiling (DEFUN SIGN-EXTEND ...) ; compiling (DEFUN ALIGNED-P ...) ; compiling (DEFUN ALIGN ...) ; compiling (DEFUN TAB ...) ; compiling (DEFUN TAB0 ...) ; compiling (DEFUN PRINC16 ...) ; compiling (DEFUN READ-SIGNED-SUFFIX ...) ; compiling (DEFSTRUCT (DISASSEM-STATE # ...) ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFUN DSTATE-CUR-ADDR ...) ; compiling (DEFUN DSTATE-NEXT-ADDR ...) ; compiling (DEFMACRO DSTATE-GET-PROP ...) ; compiling (DEFUN DSTATE-PUT-INST-PROP ...) ; compiling (DEFUN DSTATE-GET-INST-PROP ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/disassem.lisp ; in: DEFUN READ-SIGNED-SUFFIX ; (SB!DISASSEM:READ-SUFFIX LENGTH SB!DISASSEM::DSTATE) ; ; caught STYLE-WARNING: ; undefined function: READ-SUFFIX ; in: DEFUN DSTATE-NEXT-ADDR ; (SB!DISASSEM:SEG-VIRTUAL-LOCATION ; (SB!DISASSEM:DSTATE-SEGMENT SB!DISASSEM::DSTATE)) ; ; caught STYLE-WARNING: ; undefined function: SEG-VIRTUAL-LOCATION ; in: DEFUN DSTATE-CUR-ADDR ; (SB!DISASSEM:SEG-VIRTUAL-LOCATION ; (SB!DISASSEM:DSTATE-SEGMENT SB!DISASSEM::DSTATE)) ; ; caught STYLE-WARNING: ; undefined function: SEG-VIRTUAL-LOCATION ; in: DEF!METHOD PRINT-OBJECT ; (SB!DISASSEM:DSTATE-SEGMENT SB!DISASSEM::DSTATE) ; ==> ; (TRULY-THE (OR NULL SB!DISASSEM:SEGMENT) ; (SB-KERNEL:%INSTANCE-REF ; (THE SB!DISASSEM:DISASSEM-STATE SB!DISASSEM::DSTATE) 4)) ; ; caught STYLE-WARNING: ; undefined type: SEGMENT ; in: DEFSTRUCT DISASSEM-STATE ; (DEFSTRUCT ; (SB!DISASSEM:DISASSEM-STATE (:CONC-NAME SB!DISASSEM::DSTATE-) ; (:CONSTRUCTOR SB!DISASSEM::%MAKE-DSTATE) (:COPIER NIL)) ; (SB!DISASSEM::CUR-OFFS 0 :TYPE SB!DISASSEM::OFFSET) ; (SB!DISASSEM::NEXT-OFFS 0 :TYPE SB!DISASSEM::OFFSET) ; (SB!DISASSEM::SEGMENT-SAP NIL :TYPE (OR NULL SB!SYS:SYSTEM-AREA-POINTER)) ; (SB!DISASSEM:SEGMENT NIL :TYPE (OR NULL SB!DISASSEM:SEGMENT)) ; (SB!DISASSEM::ALIGNMENT SB!VM:N-WORD-BYTES :TYPE SB!DISASSEM::ALIGNMENT) ; (SB!DISASSEM::BYTE-ORDER :LITTLE-ENDIAN :TYPE ; (MEMBER :BIG-ENDIAN :LITTLE-ENDIAN)) ; (SB!DISASSEM::PROPERTIES NIL :TYPE LIST) ; (SB!DISASSEM::INST-PROPERTIES NIL :TYPE LIST) ; (SB!DISASSEM::FILTERED-VALUES ; (MAKE-ARRAY SB!DISASSEM::MAX-FILTERED-VALUE-INDEX) :TYPE ; SB!DISASSEM::FILTERED-VALUE-VECTOR) ; (SB!DISASSEM::ADDR-PRINT-LEN NIL :TYPE (OR NULL (INTEGER 0 20))) ; ...) ; ; caught STYLE-WARNING: ; undefined type: SEGMENT ; ; compilation unit finished ; Undefined type: ; SEGMENT ; Undefined functions: ; READ-SUFFIX SEG-VIRTUAL-LOCATION ; caught 5 STYLE-WARNING conditions ; printed 53 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/disassem.fasl-tmp written ; compilation finished in 0:00:00.772 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/assem.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!ASSEM") ; compiling (DEFVAR *ASSEM-SCHEDULER-P* ...) ; compiling (DECLAIM (TYPE BOOLEAN ...)) ; compiling (DEFVAR *ASSEM-INSTRUCTIONS* ...) ; compiling (DECLAIM (TYPE HASH-TABLE ...)) ; compiling (DEFVAR *ASSEM-MAX-LOCATIONS* ...) ; compiling (DECLAIM (TYPE INDEX ...)) ; compiling (DEFSTRUCT (SEGMENT #) ...) ; compiling (DEFPRINTER (SEGMENT) ...) ; compiling (DECLAIM (INLINE SEGMENT-CURRENT-INDEX)) ; compiling (DEFUN SEGMENT-CURRENT-INDEX ...) ; compiling (DEFUN (SETF SEGMENT-CURRENT-INDEX) ...) ; compiling (DEFMACRO WITH-MODIFIED-SEGMENT-INDEX-AND-POSN ...) ; compiling (!DEF-BOOLEAN-ATTRIBUTE INSTRUCTION ...) ; compiling (DEF!STRUCT (INSTRUCTION # ...) ...) /entering CLASSOID-MAKE-LOAD-FORM-FUN CLASS=# /entering CLASSOID-MAKE-LOAD-FORM-FUN CLASS=# /entering CLASSOID-MAKE-LOAD-FORM-FUN CLASS=# /entering CLASSOID-MAKE-LOAD-FORM-FUN CLASS=# ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFMACRO WITHOUT-SCHEDULING ...) ; compiling (DEFMACRO NOTE-DEPENDENCIES ...) ; compiling (DEFUN NOTE-READ-DEPENDENCY ...) ; compiling (DEFUN NOTE-WRITE-DEPENDENCY ...) ; compiling (DEFUN QUEUE-INST ...) ; compiling (DEFUN SCHEDULE-PENDING-INSTRUCTIONS ...) ; compiling (DEFUN ADD-TO-NTH-LIST ...) ; compiling (DEFUN SCHEDULE-ONE-INST ...) ; compiling (DEFUN NOTE-RESOLVED-DEPENDENCIES ...) ; compiling (DEFUN ADVANCE-ONE-INST ...) ; compiling (DEFUN INSERT-EMITTABLE-INST ...) ; compiling (DEF!STRUCT (ANNOTATION # ...) ...) ; compiling (DEF!STRUCT (LABEL # ...)) /entering CLASSOID-MAKE-LOAD-FORM-FUN CLASS=# ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEF!STRUCT (ALIGNMENT-NOTE # ...) ...) ; compiling (DEF!STRUCT (BACK-PATCH # ...) ...) ; compiling (DEF!STRUCT (CHOOSER # ...) ...) ; compiling (DEF!STRUCT (FILLER # ...) ...) ; compiling (DEFUN EMIT-BYTE ...) ; compiling (DEFUN EMIT-SKIP ...) ; compiling (DEFUN EMIT-ANNOTATION ...) ; compiling (DEFUN EMIT-BACK-PATCH ...) ; compiling (DEFUN EMIT-CHOOSER ...) ; compiling (DEFUN ADJUST-ALIGNMENT-AFTER-CHOOSER ...) ; compiling (DEFUN EMIT-FILLER ...) ; compiling (DEFUN %EMIT-LABEL ...) ; compiling (DEFUN %EMIT-ALIGNMENT ...) ; compiling (DEFUN FIND-ALIGNMENT ...) ; compiling (DEFUN %EMIT-POSTIT ...) ; compiling (DEFUN COMPRESS-OUTPUT ...) ; compiling (DEFUN FINALIZE-POSITIONS ...) ; compiling (DEFUN PROCESS-BACK-PATCHES ...) ; compiling (DEFUN COMPACT-SEGMENT-BUFFER ...) ; compiling (DEFMACRO %%CURRENT-SEGMENT%% ...) ; compiling (DEFVAR **CURRENT-SEGMENT**) ; compiling (DEFMACRO %%CURRENT-VOP%% ...) ; compiling (DEFVAR **CURRENT-VOP** ...) ; compiling (DEF DEF!MACRO ...) ; compiling (DEF SB-XC:DEFMACRO ...) ; compiling (DEFMACRO INST ...) ; compiling (DEFMACRO EMIT-LABEL ...) ; compiling (DEFMACRO EMIT-POSTIT ...) ; compiling (DEFMACRO EMIT-ALIGNMENT ...) ; compiling (DEFUN LABEL-POSITION ...) ; compiling (DEFUN APPEND-SEGMENT ...) ; compiling (DEFUN FINALIZE-SEGMENT ...) ; compiling (DEFUN SEGMENT-CONTENTS-AS-VECTOR ...) ; compiling (DEFUN WRITE-SEGMENT-CONTENTS ...) ; compiling (DEFMACRO DEFINE-BITFIELD-EMITTER ...) ; compiling (DEFUN GROVEL-LAMBDA-LIST ...) ; compiling (DEFUN EXTRACT-NTHS ...) ; compiling (DEFMACRO DEFINE-INSTRUCTION ...) ; compiling (DEFMACRO DEFINE-INSTRUCTION-MACRO ...) ; compiling (DEFUN %DEFINE-INSTRUCTION ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/assem.lisp ; in: DEF SB-XC:DEFMACRO ; (SB!ASSEM::DEF SB-XC:DEFMACRO SB!INT:%MACROEXPAND) ; --> SB-XC:DEFMACRO PROGN EVAL-WHEN SB!C::%DEFMACRO LET* LET* BLOCK FLET LET* ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; (SB!INT:%MACROEXPAND 'SB!ASSEM::..INHERITED-LABELS.. SB!ASSEM::ENV) ; ; caught STYLE-WARNING: ; undefined function: %MACROEXPAND ; in: ; MACROLET ((DEF (DEFMACRO MACROEXPAND) ; (QUASIQUOTE ; (# ASSEMBLE # ; "Execute BODY (as a progn) with SEGMENT as the current segment." ; #)))) ; (MACROLET ((SB!ASSEM::DEF (DEFMACRO MACROEXPAND) ; (SB!INT:QUASIQUOTE ; (# SB!ASSEM:ASSEMBLE # ; "Execute BODY (as a progn) with SEGMENT as the current segment." ; #)))) ; (SB!ASSEM::DEF SB!INT:DEF!MACRO MACROEXPAND) ; (SB!ASSEM::DEF SB-XC:DEFMACRO SB!INT:%MACROEXPAND)) ; --> PROGN FUNCTION LET* LET* BLOCK FLET LET* MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL ; ==> ; (SB!INT:%MACROEXPAND 'SB!ASSEM::..INHERITED-LABELS.. SB!ASSEM::ENV) ; ; caught STYLE-WARNING: ; undefined function: %MACROEXPAND ; in: DEFUN EMIT-SKIP ; (SB!VM:EMIT-LONG-NOP SB!ASSEM:SEGMENT SB!ASSEM::AMOUNT) ; ; caught STYLE-WARNING: ; undefined function: SB!VM:EMIT-LONG-NOP ; in: DEFUN SCHEDULE-PENDING-INSTRUCTIONS ; (SB!C:EMIT-NOP SB!ASSEM:SEGMENT) ; ; caught STYLE-WARNING: ; undefined function: SB!C:EMIT-NOP ; in: DEF!METHOD PRINT-OBJECT ; (SB!C:LABEL-ID SB!ASSEM:LABEL) ; ; caught STYLE-WARNING: ; undefined function: SB!C:LABEL-ID ; in: DEFUN NOTE-WRITE-DEPENDENCY ; (SB!C:LOCATION-NUMBER WRITE) ; ; caught STYLE-WARNING: ; undefined function: SB!C:LOCATION-NUMBER ; in: DEFUN NOTE-READ-DEPENDENCY ; (SB!C:LOCATION-NUMBER READ) ; ; caught STYLE-WARNING: ; undefined function: SB!C:LOCATION-NUMBER ; ; compilation unit finished ; Undefined functions: ; %MACROEXPAND SB!VM:EMIT-LONG-NOP SB!C:EMIT-NOP SB!C:LABEL-ID SB!C:LOCATION-NUMBER ; caught 7 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/assem.fasl-tmp written ; compilation finished in 0:00:00.871 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/debug-info.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEF!CONSTANT COMPILED-DEBUG-VAR-MORE-CONTEXT-P ...) ; compiling (DEF!CONSTANT COMPILED-DEBUG-VAR-MORE-COUNT-P ...) ; compiling (DEF!CONSTANT COMPILED-DEBUG-VAR-ENVIRONMENT-LIVE ...) ; compiling (DEF!CONSTANT COMPILED-DEBUG-VAR-SAVE-LOC-P ...) ; compiling (DEF!CONSTANT COMPILED-DEBUG-VAR-ID-P ...) ; compiling (DEF!CONSTANT COMPILED-DEBUG-VAR-MINIMAL-P ...) ; compiling (DEF!CONSTANT COMPILED-DEBUG-VAR-DELETED-P ...) ; compiling (DEF!CONSTANT COMPILED-DEBUG-VAR-INDIRECT-P ...) ; compiling (DEFPARAMETER *COMPILED-CODE-LOCATION-KINDS* ...) ; compiling (DEF!STRUCT (DEBUG-FUN #)) /entering CLASSOID-MAKE-LOAD-FORM-FUN CLASS=# /entering CLASSOID-MAKE-LOAD-FORM-FUN CLASS=# /entering CLASSOID-MAKE-LOAD-FORM-FUN CLASS=# ; compiling (DEF!STRUCT (COMPILED-DEBUG-FUN #) ...) /entering CLASSOID-MAKE-LOAD-FORM-FUN CLASS=# ; compiling (DEF!STRUCT (DEBUG-SOURCE) ...) ; compiling (DEF!STRUCT DEBUG-INFO ...) ; compiling (DEFCONSTANT +DEBUG-INFO-SOURCE-INDEX+ ...) ; compiling (DEF!STRUCT (COMPILED-DEBUG-INFO #) ...) /entering CLASSOID-MAKE-LOAD-FORM-FUN CLASS=# ; compiling (DEFVAR *!INITIAL-DEBUG-SOURCES*) ; compiling (DEFUN !DEBUG-INFO-COLD-INIT ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/debug-info.fasl-tmp written ; compilation finished in 0:00:00.177 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/dump.lisp" (written 18 MAR 2015 12:50:47 PM): ; compiling (IN-PACKAGE "SB!FASL") ; compiling (DEFSTRUCT (FASL-OUTPUT # ...) ...) ; compiling (DEFSTRUCT (CIRCULARITY #) ...) ; compiling (DEFVAR *CIRCULARITIES-DETECTED*) ; compiling (DEFVAR *DUMP-ONLY-VALID-STRUCTURES* ...) ; compiling (DEFUN DUMP-BYTE ...) ; compiling (DEFUN DUMP-WORD ...) ; compiling (DEFUN DUMP-UNSIGNED-BYTE-32 ...) ; compiling (DEFUN DUMP-INTEGER-AS-N-BYTES ...) ; compiling (DEFUN DUMP-FOP+OPERANDS ...) ; compiling (DEFVAR *FOP-NOP4-COUNT* ...) ; compiling (DECLAIM (TYPE # ...)) ; compiling (DEFMACRO DUMP-FOP ...) ; compiling (DEFUN DUMP-PUSH ...) ; compiling (DEFUN DUMP-POP ...) ; compiling (DEFUN EQUAL-CHECK-TABLE ...) ; compiling (DEFUN STRING-CHECK-TABLE ...) ; compiling (DEFUN EQ-SAVE-OBJECT ...) ; compiling (DEFUN EQUAL-SAVE-OBJECT ...) ; compiling (DEFUN STRING-SAVE-OBJECT ...) ; compiling (DEFUN NOTE-POTENTIAL-CIRCULARITY ...) ; compiling (DEFUN OPEN-FASL-OUTPUT ...) ; compiling (DEFUN CLOSE-FASL-OUTPUT ...) ; compiling (DEFUN DUMP-NON-IMMEDIATE-OBJECT ...) ; compiling (DEFUN SUB-DUMP-OBJECT ...) ; compiling (DEFUN DUMP-CIRCULARITIES ...) ; compiling (DEFUN DUMP-OBJECT ...) ; compiling (DEFUN FASL-DUMP-LOAD-TIME-VALUE-LAMBDA ...) ; compiling (DEFUN FASL-CONSTANT-ALREADY-DUMPED-P ...) ; compiling (DEFUN FASL-NOTE-HANDLE-FOR-CONSTANT ...) ; compiling (DEFUN FASL-VALIDATE-STRUCTURE ...) ; compiling (DEFUN DUMP-RATIO ...) ; compiling (DEFUN DUMP-INTEGER ...) ; compiling (DEFUN DUMP-FLOAT ...) ; compiling (DEFUN DUMP-COMPLEX-SINGLE-FLOAT ...) ; compiling (DEFUN DUMP-COMPLEX-DOUBLE-FLOAT ...) ; compiling (DEFUN DUMP-COMPLEX-RATIONAL ...) ; compiling (DEFUN DUMP-COMPLEX ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN DUMP-PACKAGE ...) ; compiling (DEFUN DUMP-LIST ...) ; compiling (DEFUN TERMINATE-DOTTED-LIST ...) ; compiling (DEFUN TERMINATE-UNDOTTED-LIST ...) ; compiling (DEFUN DUMP-ARRAY ...) ; compiling (DEFUN DUMP-VECTOR ...) ; compiling (DEFUN DUMP-SIMPLE-VECTOR ...) ; compiling (DEFUN DUMP-SPECIALIZED-VECTOR ...) ; compiling (DEFUN DUMP-CHARACTER ...) ; compiling (DEFUN DUMP-BASE-CHARS-OF-STRING ...) ; compiling (DEFUN DUMP-SIMPLE-BASE-STRING ...) ; compiling (DEFUN DUMP-SYMBOL ...) ; compiling (DEFUN DUMP-SEGMENT ...) ; compiling (DEFUN DUMP-FIXUPS ...) ; compiling (DEFUN DUMP-CODE-OBJECT ...) ; compiling (DEFUN DUMP-ASSEMBLER-ROUTINES ...) ; compiling (DEFUN DUMP-ONE-ENTRY ...) ; compiling (DEFUN DUMP-ALTER-CODE-OBJECT ...) ; compiling (DEFUN FASL-DUMP-COMPONENT ...) ; compiling (DEFUN DUMP-PUSH-PREVIOUSLY-DUMPED-FUN ...) ; compiling (DEFUN FASL-DUMP-TOPLEVEL-LAMBDA-CALL ...) ; compiling (DEFUN FASL-DUMP-SOURCE-INFO ...) ; compiling (DEFUN DUMP-STRUCTURE ...) ; compiling (DEFUN DUMP-LAYOUT ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/dump.lisp ; in: DEFUN DUMP-STRUCTURE ; (SB!KERNEL:%RAW-INSTANCE-REF/WORD SB!ALIEN:STRUCT (- LENGTH SB!INT:INDEX 1)) ; ; caught STYLE-WARNING: ; undefined function: %RAW-INSTANCE-REF/WORD ; in: DEFUN DUMP-CODE-OBJECT ; (SB!C::DEBUG-INFO-FOR-COMPONENT SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: SB!C::DEBUG-INFO-FOR-COMPONENT ; in: DEFUN FASL-DUMP-SOURCE-INFO ; (SB!C::DEBUG-SOURCE-FOR-INFO SB!INT:INFO) ; ; caught STYLE-WARNING: ; undefined function: SB!C::DEBUG-SOURCE-FOR-INFO ; in: DEFUN DUMP-ARRAY ; (SB!FASL::DUMP-MULTI-DIM-ARRAY SB!FASL::X SB!FASL::FILE) ; ; caught STYLE-WARNING: ; undefined function: DUMP-MULTI-DIM-ARRAY ; in: DEFUN DUMP-FIXUPS ; (SB!C:FIXUP-FLAVOR SB!C:FIXUP) ; ; caught STYLE-WARNING: ; undefined function: FIXUP-FLAVOR ; (SB!C:FIXUP-NAME SB!C:FIXUP) ; ; caught STYLE-WARNING: ; undefined function: FIXUP-NAME ; (SB!C:FIXUP-NOTE-FIXUP SB!FASL::NOTE) ; ; caught STYLE-WARNING: ; undefined function: FIXUP-NOTE-FIXUP ; (SB!C:FIXUP-NOTE-KIND SB!FASL::NOTE) ; ; caught STYLE-WARNING: ; undefined function: FIXUP-NOTE-KIND ; (SB!C:FIXUP-NOTE-POSITION SB!FASL::NOTE) ; ; caught STYLE-WARNING: ; undefined function: FIXUP-NOTE-POSITION ; in: DEFUN OPEN-FASL-OUTPUT ; (SB!EXT:NATIVE-NAMESTRING SB!EXT:*RUNTIME-PATHNAME* :AS-FILE T) ; ; caught STYLE-WARNING: ; undefined function: NATIVE-NAMESTRING ; in: DEFUN FASL-DUMP-SOURCE-INFO ; (DEFUN SB!FASL:FASL-DUMP-SOURCE-INFO (SB!INT:INFO SB!FASL:FASL-OUTPUT) ; (DECLARE (TYPE SB!C::SOURCE-INFO SB!INT:INFO)) ; (LET ((SB!FASL::RES (SB!C::DEBUG-SOURCE-FOR-INFO SB!INT:INFO)) ; (SB!FASL::*DUMP-ONLY-VALID-STRUCTURES* NIL)) ; (SETF (SB!C::DEBUG-SOURCE-CREATED SB!FASL::RES) 0 ; (SB!C::DEBUG-SOURCE-COMPILED SB!FASL::RES) 0) ; (SB!FASL:DUMP-OBJECT SB!FASL::RES SB!FASL:FASL-OUTPUT) ; (LET ((SB!FASL::RES-HANDLE #)) ; (DOLIST (SB!FASL::INFO-HANDLE #) ; (SB!FASL::DUMP-PUSH SB!FASL::RES-HANDLE SB!FASL:FASL-OUTPUT) ; (SB!FASL::DUMP-FOP 'SB!FASL::FOP-STRUCTSET SB!FASL:FASL-OUTPUT) ; (SB!FASL::DUMP-WORD SB!FASL::INFO-HANDLE SB!FASL:FASL-OUTPUT) ; (SB!FASL::DUMP-WORD SB!C::+DEBUG-INFO-SOURCE-INDEX+ ; SB!FASL:FASL-OUTPUT)) ; (PROGN ; (SB!FASL::DUMP-PUSH SB!FASL::RES-HANDLE SB!FASL:FASL-OUTPUT) ; (SB!FASL::DUMP-FOP 'SB!FASL::FOP-NOTE-DEBUG-SOURCE ; SB!FASL:FASL-OUTPUT)))) ; (SETF (SB!FASL::FASL-OUTPUT-DEBUG-INFO SB!FASL:FASL-OUTPUT) NIL) ; (VALUES)) ; --> PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF ; ==> ; (TYPEP #:G2173 'SB!C::SOURCE-INFO) ; ; caught STYLE-WARNING: ; undefined type: SB!C::SOURCE-INFO ; (TYPE SB!C::SOURCE-INFO SB!INT:INFO) ; ; caught STYLE-WARNING: ; undefined type: SB!C::SOURCE-INFO ; ; compilation unit finished ; Undefined type: ; SB!C::SOURCE-INFO ; Undefined functions: ; %RAW-INSTANCE-REF/WORD SB!C::DEBUG-INFO-FOR-COMPONENT SB!C::DEBUG-SOURCE-FOR-INFO DUMP-MULTI-DIM-ARRAY FIXUP-FLAVOR FIXUP-NAME FIXUP-NOTE-FIXUP FIXUP-NOTE-KIND FIXUP-NOTE-POSITION NATIVE-NAMESTRING ; caught 12 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/dump.fasl-tmp written ; compilation finished in 0:00:00.467 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/main.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DECLAIM (SPECIAL *CONSTANTS* ...)) ; compiling (DEFVAR *FLAME-ON-NECESSARILY-UNDEFINED-THING* ...) ; compiling (DEFVAR *CHECK-CONSISTENCY* ...) ; compiling (DEFVAR *LOOP-ANALYZE* ...) ; compiling (DEFVAR *COMPILER-TRACE-OUTPUT* ...) ; compiling (DEFVAR *BLOCK-COMPILE*) ; compiling (DEFVAR *BLOCK-COMPILE-ARG*) ; compiling (DECLAIM (TYPE # ...)) ; compiling (DEFVAR *ENTRY-POINTS*) ; compiling (DECLAIM (LIST *ENTRY-POINTS*)) ; compiling (DEFVAR *TOPLEVEL-LAMBDAS*) ; compiling (DECLAIM (LIST *TOPLEVEL-LAMBDAS*)) ; compiling (DEFVAR *TOP-LEVEL-FORM-NOTED* ...) ; compiling (DEFVAR SB-XC:*COMPILE-VERBOSE* ...) ; compiling (DEFVAR SB-XC:*COMPILE-PRINT* ...) ; compiling (DEFVAR *COMPILE-PROGRESS* ...) ; compiling (DEFVAR SB-XC:*COMPILE-FILE-PATHNAME* ...) ; compiling (DEFVAR SB-XC:*COMPILE-FILE-TRUENAME* ...) ; compiling (DECLAIM (TYPE # ...)) ; compiling (DEFVAR *SOURCE-INFO* ...) ; compiling (DEFVAR *IN-COMPILATION-UNIT* ...) ; compiling (DEFVAR *ABORTED-COMPILATION-UNIT-COUNT*) ; compiling (DEFUN MAYBE-MUMBLE ...) ; compiling (DEFTYPE OBJECT ...) ; compiling (DEFVAR *COMPILE-OBJECT* ...) ; compiling (DECLAIM (TYPE OBJECT ...)) ; compiling (DEFVAR *COMPILE-TOPLEVEL-OBJECT* ...) ; compiling (DEFVAR *EMIT-CFASL* ...) ; compiling (DEFVAR *FOPCOMPILE-LABEL-COUNTER*) ; compiling (DEFVAR *CODE-COVERAGE-RECORDS* ...) ; compiling (DEFVAR *CODE-COVERAGE-BLOCKS* ...) ; compiling (DEFVAR *CODE-COVERAGE-INFO* ...) ; compiling (DEFMACRO SB-XC:WITH-COMPILATION-UNIT ...) ; compiling (DEFVAR *SOURCE-PLIST* ...) ; compiling (DEFVAR *SOURCE-NAMESTRING* ...) ; compiling (DEFUN %WITH-COMPILATION-UNIT ...) ; compiling (DEFUN NAME-RESERVED-BY-ANSI-P ...) ; compiling (DEFUN SUMMARIZE-COMPILATION-UNIT ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/main.lisp ; in: DEFUN SUMMARIZE-COMPILATION-UNIT ; (ECASE SB!C::KIND ; (:FUNCTION ; (SB!C:COMPILER-WARN "~@" ; SB!C::NAME)) ; (:TYPE ; (IF (AND (CONSP SB!C::NAME) (EQ 'QUOTE #)) ; (SB!C:COMPILER-WARN "~@" ; SB!C::NAME 'QUOTE) ; (SB!C:COMPILER-WARN "~@" ; SB!C::NAME SB!C::NAME)))) ; --> LET ; ==> ; SB!C::KIND ; ; note: deleting unreachable code ; (SB!C:COMPILER-WARN "~@" ; SB!C::NAME) ; ==> ; "~@" ; ; note: deleting unreachable code ; (CONSP SB!C::NAME) ; ==> ; SB!C::NAME ; ; note: deleting unreachable code ; 'QUOTE ; ; note: deleting unreachable code ; (IF (AND (CONSP SB!C::NAME) (EQ 'QUOTE (CAR SB!C::NAME))) ; (SB!C:COMPILER-WARN "~@" ; SB!C::NAME 'QUOTE) ; (SB!C:COMPILER-WARN "~@" ; SB!C::NAME SB!C::NAME)) ; ; note: deleting unreachable code ; (SB!C:COMPILER-WARN "~@" ; SB!C::NAME 'QUOTE) ; ==> ; "~@" ; ; note: deleting unreachable code ; (SB!C:COMPILER-WARN "~@" ; SB!C::NAME SB!C::NAME) ; ==> ; "~@" ; ; note: deleting unreachable code ; compiling (DEFMACRO WITH-COMPILATION-VALUES ...) ; compiling (DEFPARAMETER *MAX-OPTIMIZE-ITERATIONS* ...) ; compiling (DEFEVENT IR1-OPTIMIZE-UNTIL-DONE ...) ; compiling (DEFEVENT IR1-OPTIMIZE-MAXED-OUT ...) ; compiling (DEFUN IR1-OPTIMIZE-UNTIL-DONE ...) ; compiling (DEFPARAMETER *CONSTRAINT-PROPAGATE* ...) ; compiling (DEFPARAMETER *REOPTIMIZE-AFTER-TYPE-CHECK-MAX* ...) ; compiling (DEFEVENT REOPTIMIZE-MAXED-OUT ...) ; compiling (DEFUN DFO-AS-NEEDED ...) ; compiling (DEFUN IR1-PHASES ...) ; compiling (DEFUN %COMPILE-COMPONENT ...) ; compiling (DEFUN DELETE-IF-NO-ENTRIES ...) ; compiling (DEFUN COMPILE-COMPONENT ...) ; compiling (DEFUN CLEAR-CONSTANT-INFO ...) ; compiling (DEFUN CLEAR-IR1-INFO ...) ; compiling (DEFUN DESCRIBE-COMPONENT ...) ; compiling (DEFUN DESCRIBE-IR2-COMPONENT ...) ; compiling (DEF!STRUCT (FILE-INFO # ...) ...) /entering CLASSOID-MAKE-LOAD-FORM-FUN CLASS=# /entering CLASSOID-MAKE-LOAD-FORM-FUN CLASS=# /entering CLASSOID-MAKE-LOAD-FORM-FUN CLASS=# ; compiling (DEF!STRUCT (SOURCE-INFO # ...) ...) ; compiling (DEFUN MAKE-FILE-SOURCE-INFO ...) ; compiling (DEFUN MAKE-LISP-SOURCE-INFO ...) ; compiling (DEFUN GET-TOPLEVELISH-FILE-INFO ...) ; compiling (DEFUN READ-FOR-COMPILE-FILE ...) ; compiling (DEFUN GET-SOURCE-STREAM ...) ; compiling (DEFUN CLOSE-SOURCE-INFO ...) ; compiling (DEFMACRO DO-FORMS-FROM-INFO ...) ; compiling (DEFUN SUB-SUB-COMPILE-FILE ...) ; compiling (DEFUN FIND-SOURCE-ROOT ...) ; compiling (DEFUN CONVERT-AND-MAYBE-COMPILE ...) ; compiling (DEFUN PREPROCESSOR-MACROEXPAND-1 ...) ; compiling (DEFUN PROCESS-TOPLEVEL-PROGN ...) ; compiling (DEFUN PROCESS-TOPLEVEL-LOCALLY ...) ; compiling (DEFUN PARSE-EVAL-WHEN-SITUATIONS ...) ; compiling (DEFUN FUNCTIONAL-COMPONENTS ...) ; compiling (DEFUN MAKE-FUNCTIONAL-FROM-TOPLEVEL-LAMBDA ...) ; compiling (DEFUN %COMPILE ...) ; compiling (DEFUN NOTE-TOP-LEVEL-FORM ...) ; compiling (DEFUN EVAL-COMPILE-TOPLEVEL ...) ; compiling (DEFUN PROCESS-TOPLEVEL-FORM ...) ; compiling (DEFUN PRODUCING-FASL-FILE ...) ; compiling (DEFUN COMPILE-LOAD-TIME-VALUE ...) ; compiling (DEFUN COMPILE-MAKE-LOAD-FORM-INIT-FORMS ...) ; compiling (DEFUN COMPILE-LOAD-TIME-STUFF ...) ; compiling (DEFUN COMPILE-LOAD-TIME-VALUE-LAMBDA ...) ; compiling (DEFUN OBJECT-CALL-TOPLEVEL-LAMBDA ...) ; compiling (DEFUN SUB-COMPILE-TOPLEVEL-LAMBDAS ...) ; compiling (DEFUN COMPILE-TOPLEVEL-LAMBDAS ...) ; compiling (DEFUN COMPILE-TOPLEVEL ...) ; compiling (DEFUN FINISH-BLOCK-COMPILATION ...) ; compiling (DEFUN HANDLE-CONDITION-P ...) ; compiling (DEFUN HANDLE-CONDITION-HANDLER ...) ; compiling (DEFUN SUB-COMPILE-FILE ...) ; compiling (DEFUN VERIFY-SOURCE-FILE ...) ; compiling (DEFUN ELAPSED-TIME-TO-STRING ...) ; compiling (DEFUN PRINT-COMPILE-START-NOTE ...) ; compiling (DEFUN PRINT-COMPILE-END-NOTE ...) ; compiling (DEFUN SB-XC:COMPILE-FILE ...) ; compiling (DEFUN CFP-OUTPUT-FILE-DEFAULT ...) ; compiling (DEFUN SB-XC:COMPILE-FILE-PATHNAME ...) ; compiling (DEFVAR *CONSTANTS-BEING-CREATED* ...) ; compiling (DEFVAR *CONSTANTS-CREATED-SINCE-LAST-INIT* ...) ; compiling (DEFUN EMIT-MAKE-LOAD-FORM ...) ; compiling (DEFUN COMPILE-IN-LEXENV ...) ; compiling (DEFUN EVAL-TLF ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/main.lisp ; in: DEFUN IR1-PHASES ; (SB!C::EVENT SB!C::REOPTIMIZE-MAXED-OUT) ; ==> ; (SB!C::%EVENT SB!C::*REOPTIMIZE-MAXED-OUT-EVENT-INFO* NIL) ; ; caught STYLE-WARNING: ; undefined function: %EVENT ; in: DEFUN IR1-OPTIMIZE-UNTIL-DONE ; (SB!C::EVENT SB!C::IR1-OPTIMIZE-UNTIL-DONE) ; ==> ; (SB!C::%EVENT SB!C::*IR1-OPTIMIZE-UNTIL-DONE-EVENT-INFO* NIL) ; ; caught STYLE-WARNING: ; undefined function: %EVENT ; in: DEFUN PREPROCESSOR-MACROEXPAND-1 ; (SB!INT:%MACROEXPAND-1 SB!KERNEL:FORM SB!C:*LEXENV*) ; ; caught STYLE-WARNING: ; undefined function: %MACROEXPAND-1 ; in: DEFUN COMPILE-TOPLEVEL ; (SB!C::CHECK-IR1-CONSISTENCY SB!C::ALL-COMPONENTS) ; ; caught STYLE-WARNING: ; undefined function: CHECK-IR1-CONSISTENCY ; in: DEFUN %COMPILE-COMPONENT ; (SB!C::CHECK-IR2-CONSISTENCY SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: CHECK-IR2-CONSISTENCY ; (SB!C::CHECK-LIFE-CONSISTENCY SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: CHECK-LIFE-CONSISTENCY ; (SB!C::CHECK-PACK-CONSISTENCY SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: CHECK-PACK-CONSISTENCY ; in: DEFUN HANDLE-CONDITION-HANDLER ; (ETYPECASE SB!C::*COMPILER-ERROR-CONTEXT* ; (SB!C::NODE (SB!C::NODE-LEXENV SB!C::*COMPILER-ERROR-CONTEXT*)) ; (SB!C::COMPILER-ERROR-CONTEXT ; (LET ((SB!KERNEL:LEXENV #)) ; (SB!INT:AVER SB!KERNEL:LEXENV) ; SB!KERNEL:LEXENV)) ; (NULL SB!C:*LEXENV*)) ; --> LET COND IF COND IF ; ==> ; (TYPEP #:G2139 'SB!C::COMPILER-ERROR-CONTEXT) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-ERROR-CONTEXT ; in: DEFUN HANDLE-CONDITION-P ; (ETYPECASE SB!C::*COMPILER-ERROR-CONTEXT* ; (SB!C::NODE (SB!C::NODE-LEXENV SB!C::*COMPILER-ERROR-CONTEXT*)) ; (SB!C::COMPILER-ERROR-CONTEXT ; (LET ((SB!KERNEL:LEXENV #)) ; (SB!INT:AVER SB!KERNEL:LEXENV) ; SB!KERNEL:LEXENV)) ; (NULL SB!C:*LEXENV*)) ; --> LET COND IF COND IF ; ==> ; (TYPEP #:G2119 'SB!C::COMPILER-ERROR-CONTEXT) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-ERROR-CONTEXT ; in: DEFUN HANDLE-CONDITION-HANDLER ; (SB!C::COMPILER-ERROR-CONTEXT-LEXENV SB!C::*COMPILER-ERROR-CONTEXT*) ; ; caught STYLE-WARNING: ; undefined function: COMPILER-ERROR-CONTEXT-LEXENV ; in: DEFUN HANDLE-CONDITION-P ; (SB!C::COMPILER-ERROR-CONTEXT-LEXENV SB!C::*COMPILER-ERROR-CONTEXT*) ; ; caught STYLE-WARNING: ; undefined function: COMPILER-ERROR-CONTEXT-LEXENV ; in: DEFUN SUB-COMPILE-FILE ; (SB!C::WITH-COMPILATION-VALUES ; (SB-XC:WITH-COMPILATION-UNIT NIL ; (SB!KERNEL:WITH-WORLD-LOCK NIL ; (SB!C::SUB-SUB-COMPILE-FILE SB!INT:INFO) ; (UNLESS (ZEROP #) ; (SB!C::WITH-SOURCE-PATHS ; #)) ; (SB!C::FINISH-BLOCK-COMPILATION) ; (LET (#) ; (ETYPECASE SB!C::OBJECT # # #)) ; NIL))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM LET HANDLER-BIND ; --> SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET FLET LET LIST* CONS LIST CONS ; ==> ; #'SB!C::COMPILER-ERROR-HANDLER ; ; caught STYLE-WARNING: ; undefined function: COMPILER-ERROR-HANDLER ; in: DEFUN NOTE-TOP-LEVEL-FORM ; (SB!C::COMPILER-MUMBLE "~&; ~:[x-compiling~;x-converting~] ~S" ; SB!C::*BLOCK-COMPILE* SB!KERNEL:FORM) ; ; caught STYLE-WARNING: ; undefined function: COMPILER-MUMBLE ; in: DEFUN %COMPILE-COMPONENT ; (SB!C::COMPILER-MUMBLE "") ; ; caught STYLE-WARNING: ; undefined function: COMPILER-MUMBLE ; in: DEFUN MAYBE-MUMBLE ; (SB!C::COMPILER-MUMBLE "~&") ; ; caught STYLE-WARNING: ; undefined function: COMPILER-MUMBLE ; ; caught STYLE-WARNING: ; 4 more uses of undefined function COMPILER-MUMBLE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/main.lisp ; in: DEFUN SUB-COMPILE-FILE ; (SB!C::WITH-COMPILATION-VALUES ; (SB-XC:WITH-COMPILATION-UNIT NIL ; (SB!KERNEL:WITH-WORLD-LOCK NIL ; (SB!C::SUB-SUB-COMPILE-FILE SB!INT:INFO) ; (UNLESS (ZEROP #) ; (SB!C::WITH-SOURCE-PATHS ; #)) ; (SB!C::FINISH-BLOCK-COMPILATION) ; (LET (#) ; (ETYPECASE SB!C::OBJECT # # #)) ; NIL))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM LET HANDLER-BIND ; --> SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET FLET LET LIST* CONS LIST CONS ; ==> ; #'SB!C::COMPILER-STYLE-WARNING-HANDLER ; ; caught STYLE-WARNING: ; undefined function: COMPILER-STYLE-WARNING-HANDLER ; in: DEFUN SUMMARIZE-COMPILATION-UNIT ; #'SB!C::COMPILER-STYLE-WARNING-HANDLER ; ; caught STYLE-WARNING: ; undefined function: COMPILER-STYLE-WARNING-HANDLER ; in: DEFUN SUB-COMPILE-FILE ; (SB!C::WITH-COMPILATION-VALUES ; (SB-XC:WITH-COMPILATION-UNIT NIL ; (SB!KERNEL:WITH-WORLD-LOCK NIL ; (SB!C::SUB-SUB-COMPILE-FILE SB!INT:INFO) ; (UNLESS (ZEROP #) ; (SB!C::WITH-SOURCE-PATHS ; #)) ; (SB!C::FINISH-BLOCK-COMPILATION) ; (LET (#) ; (ETYPECASE SB!C::OBJECT # # #)) ; NIL))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM LET HANDLER-BIND ; --> SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET FLET LET LIST* CONS LIST CONS ; ==> ; #'SB!C::COMPILER-WARNING-HANDLER ; ; caught STYLE-WARNING: ; undefined function: COMPILER-WARNING-HANDLER ; in: DEFUN SUMMARIZE-COMPILATION-UNIT ; #'SB!C::COMPILER-WARNING-HANDLER ; ; caught STYLE-WARNING: ; undefined function: COMPILER-WARNING-HANDLER ; in: DEFUN IR1-PHASES ; (SB!C::CONSTRAINT-PROPAGATE SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: CONSTRAINT-PROPAGATE ; in: DEFUN %COMPILE-COMPONENT ; (SB!C::CONTROL-ANALYZE SB!C:COMPONENT #'SB!C::MAKE-IR2-BLOCK) ; ; caught STYLE-WARNING: ; undefined function: CONTROL-ANALYZE ; (SB!C::COPY-PROPAGATE SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: COPY-PROPAGATE ; in: DEFUN DELETE-IF-NO-ENTRIES ; (SB!C::DELETE-COMPONENT SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: DELETE-COMPONENT ; in: DEFUN %COMPILE-COMPONENT ; (SB!C::DELETE-UNREFERENCED-TNS SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: DELETE-UNREFERENCED-TNS ; (SB!C::ENTRY-ANALYZE SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: ENTRY-ANALYZE ; in: DEFUN PREPROCESSOR-MACROEXPAND-1 ; (SB!C::EXPAND-COMPILER-MACRO SB!KERNEL:FORM) ; ; caught STYLE-WARNING: ; undefined function: EXPAND-COMPILER-MACRO ; in: DEFUN DFO-AS-NEEDED ; (SB!C::FIND-DFO SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: FIND-DFO ; in: DEFUN COMPILE-COMPONENT ; (SB!C::FIND-DOMINATORS SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: FIND-DOMINATORS ; in: DEFUN %COMPILE-COMPONENT ; (SB!C::FIND-DOMINATORS SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: FIND-DOMINATORS ; in: DEFUN COMPILE-TOPLEVEL ; (SB!C::FIND-INITIAL-DFO SB!C::LAMBDAS) ; ; caught STYLE-WARNING: ; undefined function: FIND-INITIAL-DFO ; in: DEFUN %COMPILE ; (SB!C::FIND-INITIAL-DFO (LIST SB!C::FUN)) ; ; caught STYLE-WARNING: ; undefined function: FIND-INITIAL-DFO ; in: DEFUN SUB-SUB-COMPILE-FILE ; (SB!C::FIND-SOURCE-PATHS SB!KERNEL:FORM SB!C::CURRENT-INDEX) ; ; caught STYLE-WARNING: ; undefined function: FIND-SOURCE-PATHS ; in: DEFUN IR1-PHASES ; (SB!C::FLUSH-DEAD-CODE BLOCK) ; ; caught STYLE-WARNING: ; undefined function: FLUSH-DEAD-CODE ; in: DEFUN CONVERT-AND-MAYBE-COMPILE ; (SB!C::FOPCOMPILABLE-P SB!KERNEL:FORM SB!C::EXPAND) ; ; caught STYLE-WARNING: ; undefined function: FOPCOMPILABLE-P ; in: DEFUN SUB-COMPILE-FILE ; (SB!C::FOPCOMPILE ; (SB!INT:QUASIQUOTE ; (SB!C::RECORD-CODE-COVERAGE ; '#S(SB!IMPL::COMMA :EXPR (NAMESTRING *COMPILE-FILE-PATHNAME*) :KIND 0) ; '#S(SB!IMPL::COMMA ; :EXPR (LET # ; # ; LIST) ; :KIND 0))) ; NIL NIL) ; ; caught STYLE-WARNING: ; undefined function: FOPCOMPILE ; in: DEFUN CONVERT-AND-MAYBE-COMPILE ; (SB!C::FOPCOMPILE SB!KERNEL:FORM SB!C::PATH NIL SB!C::EXPAND) ; ; caught STYLE-WARNING: ; undefined function: FOPCOMPILE ; in: DEFUN EMIT-MAKE-LOAD-FORM ; (SB!C::FOPCOMPILE-ALLOCATE-INSTANCE SB!C::CREATION-FORM) ; ; caught STYLE-WARNING: ; undefined function: FOPCOMPILE-ALLOCATE-INSTANCE ; (SB!C::FOPCOMPILE-CONSTANT-INIT-FORMS SB!C::FORMS) ; ; caught STYLE-WARNING: ; undefined function: FOPCOMPILE-CONSTANT-INIT-FORMS ; in: DEFUN PRINT-COMPILE-START-NOTE ; (SB!INT:FORMAT-UNIVERSAL-TIME NIL ; (SB!C::FILE-INFO-WRITE-DATE SB!C::FILE-INFO) :STYLE :GOVERNMENT ; :PRINT-WEEKDAY NIL :PRINT-TIMEZONE NIL) ; ; caught STYLE-WARNING: ; undefined function: FORMAT-UNIVERSAL-TIME ; in: DEFUN PROCESS-TOPLEVEL-FORM ; (SB!C::FUNCALL-IN-MACROLET-LEXENV SB!C::MAGIC ; (LAMBDA (&KEY SB!C::FUNS SB!C::PREPEND) ; (DECLARE (IGNORE SB!C::FUNS)) ; (SB!INT:AVER (NULL SB!C::PREPEND)) ; (SB!C::PROCESS-TOPLEVEL-LOCALLY SB!C::BODY SB!C::PATH ; SB!C::COMPILE-TIME-TOO)) ; :COMPILE) ; ; caught STYLE-WARNING: ; undefined function: FUNCALL-IN-MACROLET-LEXENV ; (SB!C::FUNCALL-IN-SYMBOL-MACROLET-LEXENV SB!C::MAGIC ; (LAMBDA (&KEY SB!C::VARS SB!C::PREPEND) ; (SB!INT:AVER (NULL SB!C::PREPEND)) ; (SB!C::PROCESS-TOPLEVEL-LOCALLY SB!C::BODY SB!C::PATH ; SB!C::COMPILE-TIME-TOO :VARS SB!C::VARS)) ; :COMPILE) ; ; caught STYLE-WARNING: ; undefined function: FUNCALL-IN-SYMBOL-MACROLET-LEXENV ; in: DEFUN %COMPILE-COMPONENT ; (SB!C::GENERATE-CODE SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: GENERATE-CODE ; in: DEFUN IR1-PHASES ; (SB!C::GENERATE-TYPE-CHECKS SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: GENERATE-TYPE-CHECKS ; in: DEFUN PROCESS-TOPLEVEL-FORM ; (SB!C::GET-SOURCE-PATH SB!KERNEL:FORM) ; ; caught STYLE-WARNING: ; undefined function: GET-SOURCE-PATH ; in: DEFUN %COMPILE-COMPONENT ; (SB!C::GTN-ANALYZE SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: GTN-ANALYZE ; (SB!C::INIT-ASSEMBLER) ; ; caught STYLE-WARNING: ; undefined function: INIT-ASSEMBLER ; in: DEFUN MAKE-FUNCTIONAL-FROM-TOPLEVEL-LAMBDA ; (SB!C::IR1-CONVERT-LAMBDA (SB!C::MAKE-XEP-LAMBDA-EXPRESSION SB!C::FUN) ; :SOURCE-NAME SB!C::SOURCE-NAME :DEBUG-NAME ; (SB!C::DEBUG-NAME 'SB!C::TL-XEP SB!C::DEBUG-NAME-TAIL) :SYSTEM-LAMBDA T) ; ; caught STYLE-WARNING: ; undefined function: IR1-CONVERT-LAMBDA ; (FUNCALL #'SB!C::IR1-CONVERT-LAMBDALIKE SB!C::LAMBDA-EXPRESSION :SOURCE-NAME ; SB!C::SOURCE-NAME) ; ==> ; (SB-C::%FUNCALL #'SB!C::IR1-CONVERT-LAMBDALIKE SB!C::LAMBDA-EXPRESSION ; :SOURCE-NAME SB!C::SOURCE-NAME) ; ; caught STYLE-WARNING: ; undefined function: IR1-CONVERT-LAMBDALIKE ; in: DEFUN IR1-PHASES ; (SB!C::IR1-FINALIZE SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: IR1-FINALIZE ; in: DEFUN IR1-OPTIMIZE-UNTIL-DONE ; (SB!C::IR1-OPTIMIZE SB!C:COMPONENT SB!C::FASTP) ; ; caught STYLE-WARNING: ; undefined function: IR1-OPTIMIZE ; in: DEFUN COMPILE-LOAD-TIME-STUFF ; (SB!C::IR1-TOPLEVEL SB!KERNEL:FORM SB!C::*CURRENT-PATH* SB!C::FOR-VALUE NIL) ; ; caught STYLE-WARNING: ; undefined function: IR1-TOPLEVEL ; in: DEFUN CONVERT-AND-MAYBE-COMPILE ; (SB!C::IR1-TOPLEVEL SB!KERNEL:FORM SB!C::PATH NIL) ; ; caught STYLE-WARNING: ; undefined function: IR1-TOPLEVEL ; in: DEFUN %COMPILE-COMPONENT ; (SB!C:IR2-CONVERT SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: IR2-CONVERT ; (SB!C::IR2-OPTIMIZE SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: IR2-OPTIMIZE ; in: DEFUN DESCRIBE-IR2-COMPONENT ; (SB!C:LABEL-ID (SB!C::ENTRY-INFO-OFFSET SB!C::ENTRY)) ; ; caught STYLE-WARNING: ; undefined function: LABEL-ID ; in: DEFUN COMPILE-LOAD-TIME-VALUE-LAMBDA ; (SB!C::LAMBDA-COMPONENT LAMBDA) ; ; caught STYLE-WARNING: ; undefined function: LAMBDA-COMPONENT ; in: DEFUN FUNCTIONAL-COMPONENTS ; (SB!C::LAMBDA-COMPONENT SB!C::F) ; ; caught STYLE-WARNING: ; undefined function: LAMBDA-COMPONENT ; in: DEFUN COMPILE-COMPONENT ; (SB!C::LAMBDA-COMPONENT LAMBDA) ; ; caught STYLE-WARNING: ; undefined function: LAMBDA-COMPONENT ; in: DEFUN %COMPILE-COMPONENT ; (SB!C::LIFETIME-ANALYZE SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: LIFETIME-ANALYZE ; in: DEFUN COMPILE-TOPLEVEL ; (SB!C::LOCALL-ANALYZE-CLAMBDAS-UNTIL-DONE SB!C::LAMBDAS) ; ; caught STYLE-WARNING: ; undefined function: LOCALL-ANALYZE-CLAMBDAS-UNTIL-DONE ; in: DEFUN %COMPILE ; (SB!C::LOCALL-ANALYZE-CLAMBDAS-UNTIL-DONE (LIST SB!C::FUN)) ; ; caught STYLE-WARNING: ; undefined function: LOCALL-ANALYZE-CLAMBDAS-UNTIL-DONE ; in: DEFUN IR1-PHASES ; (SB!C::LOCALL-ANALYZE-COMPONENT SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: LOCALL-ANALYZE-COMPONENT ; in: DEFUN MAKE-FUNCTIONAL-FROM-TOPLEVEL-LAMBDA ; (SB!C::LOCALL-ANALYZE-XEP-ENTRY-POINT SB!C::FUN) ; ; caught STYLE-WARNING: ; undefined function: LOCALL-ANALYZE-XEP-ENTRY-POINT ; in: DEFUN COMPILE-COMPONENT ; (SB!C::LOOP-ANALYZE SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: LOOP-ANALYZE ; in: DEFUN %COMPILE-COMPONENT ; (SB!C::LTN-ANALYZE SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: LTN-ANALYZE ; (SB!C::MAKE-CORE-COMPONENT SB!C:COMPONENT SB!C:*CODE-SEGMENT* ; SB!C::CODE-LENGTH SB!C::FIXUP-NOTES SB!C::*COMPILE-OBJECT*) ; ; caught STYLE-WARNING: ; undefined function: MAKE-CORE-COMPONENT ; in: DEFUN MAKE-FUNCTIONAL-FROM-TOPLEVEL-LAMBDA ; (SB!C::MAKE-EMPTY-COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: MAKE-EMPTY-COMPONENT ; in: DEFUN %COMPILE ; (SB!C::MAKE-LEXENV :POLICY SB!C::*POLICY* :HANDLED-CONDITIONS ; SB!C::*HANDLED-CONDITIONS* :DISABLED-PACKAGE-LOCKS ; SB!C::*DISABLED-PACKAGE-LOCKS*) ; ; caught STYLE-WARNING: ; undefined function: MAKE-LEXENV ; in: DEFUN MAKE-FUNCTIONAL-FROM-TOPLEVEL-LAMBDA ; (SB!C::MAKE-LEXENV :POLICY ; (SB!C::LEXENV-POLICY (SB!C::FUNCTIONAL-LEXENV SB!C::FUN))) ; ; caught STYLE-WARNING: ; undefined function: MAKE-LEXENV ; in: DEFUN CONVERT-AND-MAYBE-COMPILE ; (SB!C::MAKE-LEXENV :POLICY SB!C::*POLICY* :HANDLED-CONDITIONS ; SB!C::*HANDLED-CONDITIONS* :DISABLED-PACKAGE-LOCKS ; SB!C::*DISABLED-PACKAGE-LOCKS*) ; ; caught STYLE-WARNING: ; undefined function: MAKE-LEXENV ; ; caught STYLE-WARNING: ; 1 more use of undefined function MAKE-LEXENV ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/main.lisp ; in: DEFUN MAKE-FUNCTIONAL-FROM-TOPLEVEL-LAMBDA ; (SB!C::MAKE-XEP-LAMBDA-EXPRESSION SB!C::FUN) ; ; caught STYLE-WARNING: ; undefined function: MAKE-XEP-LAMBDA-EXPRESSION ; in: DEFUN SUB-COMPILE-TOPLEVEL-LAMBDAS ; (SB!C::MERGE-TOPLEVEL-LAMBDAS SB!C::LAMBDAS) ; ; caught STYLE-WARNING: ; undefined function: MERGE-TOPLEVEL-LAMBDAS ; in: DEFUN MAKE-FUNCTIONAL-FROM-TOPLEVEL-LAMBDA ; (SB!C::NAME-LAMBDALIKE SB!C::LAMBDA-EXPRESSION) ; ; caught STYLE-WARNING: ; undefined function: NAME-LAMBDALIKE ; in: DEFUN CLEAR-IR1-INFO ; (SB!C::NODE-COMPONENT SB!C::X) ; ; caught STYLE-WARNING: ; undefined function: NODE-COMPONENT ; in: DEFUN COMPILE-COMPONENT ; (SB!C::NODE-COMPONENT (SB!C::LAMBDA-BIND LAMBDA)) ; ; caught STYLE-WARNING: ; undefined function: NODE-COMPONENT ; in: DEFUN DELETE-IF-NO-ENTRIES ; (SB!C::NODE-COMPONENT SB!C::REF) ; ; caught STYLE-WARNING: ; undefined function: NODE-COMPONENT ; ; caught STYLE-WARNING: ; 1 more use of undefined function NODE-COMPONENT ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/main.lisp ; in: DEFUN %WITH-COMPILATION-UNIT ; (SB!C::NOTE-UNDEFINED-REFERENCE ; (SB!KERNEL:PARSE-UNKNOWN-TYPE-SPECIFIER SB!C::C) :TYPE) ; ; caught STYLE-WARNING: ; undefined function: NOTE-UNDEFINED-REFERENCE ; in: DEFUN %COMPILE-COMPONENT ; (SB!REGALLOC:PACK SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: SB!REGALLOC:PACK ; in: DEFUN COMPILE-COMPONENT ; (SB!C::PHYSENV-ANALYZE SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: PHYSENV-ANALYZE ; in: DEFUN DESCRIBE-IR2-COMPONENT ; (SB!C::PRE-PACK-TN-STATS SB!C:COMPONENT *STANDARD-OUTPUT*) ; ; caught STYLE-WARNING: ; undefined function: PRE-PACK-TN-STATS ; in: DEFUN %COMPILE-COMPONENT ; (SB!C::PRE-PACK-TN-STATS SB!C:COMPONENT *STANDARD-OUTPUT*) ; ; caught STYLE-WARNING: ; undefined function: PRE-PACK-TN-STATS ; in: DEFUN COMPILE-TOPLEVEL ; (SB!C::PRE-PHYSENV-ANALYZE-TOPLEVEL SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: PRE-PHYSENV-ANALYZE-TOPLEVEL ; in: DEFUN DESCRIBE-COMPONENT ; (SB!C::PRINT-ALL-BLOCKS SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: PRINT-ALL-BLOCKS ; in: DEFUN DESCRIBE-IR2-COMPONENT ; (SB!C::PRINT-IR2-BLOCKS SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: PRINT-IR2-BLOCKS ; in: DEFUN PROCESS-TOPLEVEL-LOCALLY ; (SB!C::PROCESS-DECLS SB!C::DECLS SB!C::VARS SB!C::FUNS) ; ; caught STYLE-WARNING: ; undefined function: PROCESS-DECLS ; in: DEFUN COMPILE-COMPONENT ; (SB!C::RECORD-COMPONENT-XREFS SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: RECORD-COMPONENT-XREFS ; in: DEFUN MAKE-FUNCTIONAL-FROM-TOPLEVEL-LAMBDA ; (SB!C::REOPTIMIZE-COMPONENT SB!C:COMPONENT :MAYBE) ; ; caught STYLE-WARNING: ; undefined function: REOPTIMIZE-COMPONENT ; in: DEFUN COMPILE-TOPLEVEL ; (SB!C::REPLACE-TOPLEVEL-XEPS SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: REPLACE-TOPLEVEL-XEPS ; in: DEFUN %COMPILE ; (SB!C::REPLACE-TOPLEVEL-XEPS SB!C::COMPONENT-FROM-DFO) ; ; caught STYLE-WARNING: ; undefined function: REPLACE-TOPLEVEL-XEPS ; in: DEFUN IR1-PHASES ; (SB!C::RETRY-DELAYED-IR1-TRANSFORMS :CONSTRAINT) ; ; caught STYLE-WARNING: ; undefined function: RETRY-DELAYED-IR1-TRANSFORMS ; in: DEFUN IR1-OPTIMIZE-UNTIL-DONE ; (SB!C::RETRY-DELAYED-IR1-TRANSFORMS :OPTIMIZE) ; ; caught STYLE-WARNING: ; undefined function: RETRY-DELAYED-IR1-TRANSFORMS ; in: DEFUN %COMPILE-COMPONENT ; (SB!C::SELECT-REPRESENTATIONS SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: SELECT-REPRESENTATIONS ; in: DEFUN EVAL-COMPILE-TOPLEVEL ; (SB!C::SOURCE-PATH-TLF-NUMBER SB!C::PATH) ; ; caught STYLE-WARNING: ; undefined function: SOURCE-PATH-TLF-NUMBER ; in: DEFUN %COMPILE-COMPONENT ; (SB!C::STACK-ANALYZE SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: STACK-ANALYZE ; in: DEFUN PARSE-EVAL-WHEN-SITUATIONS ; (SB!INT:STYLE-WARN "using deprecated EVAL-WHEN situation names~{ ~S~}" ; SB!C::DEPRECATED-NAMES) ; ; caught STYLE-WARNING: ; undefined function: STYLE-WARN ; in: DEFUN MAKE-FUNCTIONAL-FROM-TOPLEVEL-LAMBDA ; (SB!C::SUBSTITUTE-LEAF-IF ; (LAMBDA (SB!C::REF) ; (LET* ((SB!C::LVAR #) (SB!C::DEST #) (SB!C::KIND #)) ; (SB!INT:NEQ :LOCAL SB!C::KIND))) ; SB!C::XEP SB!C::FUN) ; ; caught STYLE-WARNING: ; undefined function: SUBSTITUTE-LEAF-IF ; ; compilation unit finished ; Undefined type: ; COMPILER-ERROR-CONTEXT ; Undefined functions: ; %EVENT %MACROEXPAND-1 CHECK-IR1-CONSISTENCY CHECK-IR2-CONSISTENCY CHECK-LIFE-CONSISTENCY CHECK-PACK-CONSISTENCY COMPILER-ERROR-CONTEXT-LEXENV COMPILER-ERROR-HANDLER COMPILER-MUMBLE COMPILER-STYLE-WARNING-HANDLER COMPILER-WARNING-HANDLER CONSTRAINT-PROPAGATE CONTROL-ANALYZE COPY-PROPAGATE DELETE-COMPONENT DELETE-UNREFERENCED-TNS ENTRY-ANALYZE EXPAND-COMPILER-MACRO FIND-DFO FIND-DOMINATORS FIND-INITIAL-DFO FIND-SOURCE-PATHS FLUSH-DEAD-CODE FOPCOMPILABLE-P FOPCOMPILE FOPCOMPILE-ALLOCATE-INSTANCE FOPCOMPILE-CONSTANT-INIT-FORMS FORMAT-UNIVERSAL-TIME FUNCALL-IN-MACROLET-LEXENV FUNCALL-IN-SYMBOL-MACROLET-LEXENV GENERATE-CODE GENERATE-TYPE-CHECKS GET-SOURCE-PATH GTN-ANALYZE INIT-ASSEMBLER IR1-CONVERT-LAMBDA IR1-CONVERT-LAMBDALIKE IR1-FINALIZE IR1-OPTIMIZE IR1-TOPLEVEL IR2-CONVERT IR2-OPTIMIZE LABEL-ID LAMBDA-COMPONENT LIFETIME-ANALYZE LOCALL-ANALYZE-CLAMBDAS-UNTIL-DONE LOCALL-ANALYZE-COMPONENT LOCALL-ANALYZE-XEP-ENTRY-POINT LOOP-ANALYZE LTN-ANALYZE MAKE-CORE-COMPONENT MAKE-EMPTY-COMPONENT MAKE-LEXENV MAKE-XEP-LAMBDA-EXPRESSION MERGE-TOPLEVEL-LAMBDAS NAME-LAMBDALIKE NODE-COMPONENT NOTE-UNDEFINED-REFERENCE SB!REGALLOC:PACK PHYSENV-ANALYZE PRE-PACK-TN-STATS PRE-PHYSENV-ANALYZE-TOPLEVEL PRINT-ALL-BLOCKS PRINT-IR2-BLOCKS PROCESS-DECLS RECORD-COMPONENT-XREFS REOPTIMIZE-COMPONENT REPLACE-TOPLEVEL-XEPS RETRY-DELAYED-IR1-TRANSFORMS SELECT-REPRESENTATIONS SOURCE-PATH-TLF-NUMBER STACK-ANALYZE STYLE-WARN SUBSTITUTE-LEAF-IF ; caught 99 STYLE-WARNING conditions ; printed 7 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/main.fasl-tmp written ; compilation finished in 0:00:00.618 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/xref.lisp" (written 27 FEB 2015 04:49:49 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFVAR *XREF-KINDS* ...) ; compiling (DEFUN RECORD-COMPONENT-XREFS ...) ; compiling (DEFUN CALL-WITH-BLOCK-EXTERNAL-FUNCTIONALS ...) ; compiling (DEFUN RECORD-NODE-XREFS ...) ; compiling (DEFUN INTERNAL-NAME-P ...) ; compiling (DEFUN RECORD-XREF ...) ; compiling (DEFUN RECORD-MACROEXPANSION ...) ; compiling (DEFUN RECORD-CALL ...) ; compiling (DEFUN PACK-XREF-DATA ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/xref.lisp ; in: DEFUN CALL-WITH-BLOCK-EXTERNAL-FUNCTIONALS ; (SB!C::BLOCK-HOME-LAMBDA BLOCK) ; ; caught STYLE-WARNING: ; undefined function: BLOCK-HOME-LAMBDA ; in: DEFUN RECORD-NODE-XREFS ; (SB!C::CONSTANT-LVAR-P SB!C::ARG) ; ; caught STYLE-WARNING: ; undefined function: CONSTANT-LVAR-P ; (SB!C::LVAR-VALUE SB!C::ARG) ; ; caught STYLE-WARNING: ; undefined function: LVAR-VALUE ; in: DEFUN CALL-WITH-BLOCK-EXTERNAL-FUNCTIONALS ; (SB!C::NODE-HOME-LAMBDA SB!C::REF) ; ; caught STYLE-WARNING: ; undefined function: NODE-HOME-LAMBDA ; in: DEFUN RECORD-NODE-XREFS ; (SB!C::PRINCIPAL-LVAR-USE (SB!C::COMBINATION-FUN SB!C::NODE)) ; ; caught STYLE-WARNING: ; undefined function: PRINCIPAL-LVAR-USE ; in: DEFUN RECORD-XREF ; (SB!C::SOURCE-PATH-ORIGINAL-SOURCE ; (OR SB!C::PATH (SB!C::NODE-SOURCE-PATH SB!C::NODE))) ; ; caught STYLE-WARNING: ; undefined function: SOURCE-PATH-ORIGINAL-SOURCE ; ; compilation unit finished ; Undefined functions: ; BLOCK-HOME-LAMBDA CONSTANT-LVAR-P LVAR-VALUE NODE-HOME-LAMBDA PRINCIPAL-LVAR-USE SOURCE-PATH-ORIGINAL-SOURCE ; caught 6 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/xref.fasl-tmp written ; compilation finished in 0:00:00.060 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/source-location.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEF!STRUCT (DEFINITION-SOURCE-LOCATION # ...) ...) /entering CLASSOID-MAKE-LOAD-FORM-FUN CLASS=# /entering CLASSOID-MAKE-LOAD-FORM-FUN CLASS=# /entering CLASSOID-MAKE-LOAD-FORM-FUN CLASS=# ; compiling (DEFUN MAKE-DEFINITION-SOURCE-LOCATION ...) ; compiling (DEFUN MAKE-FILE-INFO-NAMESTRING ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/source-location.lisp ; in: DEFUN MAKE-DEFINITION-SOURCE-LOCATION ; (SB!C::SOURCE-PATH-TLF-NUMBER SB!C::*CURRENT-PATH*) ; ; caught STYLE-WARNING: ; undefined function: SOURCE-PATH-TLF-NUMBER ; ; compilation unit finished ; Undefined function: ; SOURCE-PATH-TLF-NUMBER ; caught 1 STYLE-WARNING condition ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/source-location.fasl-tmp written ; compilation finished in 0:00:00.087 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir1tran.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DECLAIM (SPECIAL *COMPILER-ERROR-BAILOUT*)) ; compiling (DECLAIM (TYPE INDEX ...)) ; compiling (DEFVAR *CURRENT-FORM-NUMBER*) ; compiling (DECLAIM (HASH-TABLE *SOURCE-PATHS*)) ; compiling (DEFVAR *SOURCE-PATHS*) ; compiling (DECLAIM (INLINE SOURCE-FORM-HAS-PATH-P)) ; compiling (DEFUN SOURCE-FORM-HAS-PATH-P ...) ; compiling (DEFUN GET-SOURCE-PATH ...) ; compiling (DEFUN ENSURE-SOURCE-PATH ...) ; compiling (DEFUN SIMPLIFY-SOURCE-PATH-FORM ...) ; compiling (DEFUN NOTE-SOURCE-PATH ...) ; compiling (DECLAIM (TYPE # ...)) ; compiling (DEFVAR *CURRENT-COMPONENT*) ; compiling (DECLAIM (LIST *CURRENT-PATH*)) ; compiling (DEFVAR *CURRENT-PATH*) ; compiling (DEFVAR *DERIVE-FUNCTION-TYPES* ...) ; compiling (DEFVAR *FUN-NAMES-IN-THIS-FILE* ...) ; compiling (DEFVAR *POST-BINDING-VARIABLE-LEXENV* ...) ; compiling (DEFUN FUN-LEXICALLY-NOTINLINE-P ...) ; compiling (DECLAIM (NOTINLINE MAYBE-UPDATE-INFO-FOR-GF)) ; compiling (DEFUN MAYBE-UPDATE-INFO-FOR-GF ...) ; compiling (DEFUN MAYBE-DEFINED-HERE ...) ; compiling (DEFUN FIND-GLOBAL-FUN ...) ; compiling (DEFUN CLEAR-INVALID-FUNCTIONALS ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN FIND-FREE-FUN ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN FIND-LEXICALLY-APPARENT-FUN ...) ; compiling (DEFUN MAYBE-FIND-FREE-VAR ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN FIND-FREE-VAR ...) ; compiling (DEFUN MAYBE-EMIT-MAKE-LOAD-FORMS ...) ; compiling (DEFUN LINK-NODE-TO-PREVIOUS-CTRAN ...) ; compiling (DECLAIM (INLINE USE-CTRAN)) ; compiling (DEFUN USE-CTRAN ...) ; compiling (DEFUN %USE-CTRAN ...) ; compiling (DEFUN INSERT-NODE-BEFORE ...) ; compiling (DEFUN USE-LVAR ...) ; compiling (DECLAIM (INLINE USE-CONTINUATION)) ; compiling (DEFUN USE-CONTINUATION ...) ; compiling (DEFUN IR1-TOPLEVEL ...) ; compiling (DEFUN FIND-SOURCE-PATHS ...) ; compiling (DEFUN SUB-FIND-SOURCE-PATHS ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN IR1-CONVERT ...) ; compiling (DEFUN REFERENCE-CONSTANT ...) ; compiling (DEFUN MAYBE-REANALYZE-FUNCTIONAL ...) ; compiling (DEFUN REFERENCE-LEAF ...) ; compiling (DEFUN ALWAYS-BOUNDP ...) ; compiling (DEFUN IR1-CONVERT-VAR ...) ; compiling (DEFUN FIND-COMPILER-MACRO ...) ; compiling (DEFUN EXPAND-COMPILER-MACRO ...) ; compiling (DEFUN IR1-CONVERT-FUNCTOID ...) ; compiling (DEFUN IR1-CONVERT-COMMON-FUNCTOID ...) ; compiling (DEFUN IR1-CONVERT-GLOBAL-FUNCTOID ...) ; compiling (DEFUN MUFFLE-WARNING-OR-DIE ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir1tran.lisp ; in: DEFUN MUFFLE-WARNING-OR-DIE ; (SB!INT:BUG "no MUFFLE-WARNING restart") ; ==> ; "no MUFFLE-WARNING restart" ; ; note: deleting unreachable code ; compiling (DEFUN CAREFUL-EXPAND-MACRO ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN IR1-CONVERT-PROGN-BODY ...) ; compiling (DEFUN INSTRUMENT-COVERAGE ...) ; compiling (DEFUN MAYBE-INSTRUMENT-PROGN-LIKE ...) ; compiling (DEFUN RECORD-CODE-COVERAGE ...) ; compiling (DEFUN CLEAR-CODE-COVERAGE ...) ; compiling (DEFUN RESET-CODE-COVERAGE ...) ; compiling (DEFUN CODE-COVERAGE-RECORD-MARKED ...) ; compiling (DEFUN STEP-FORM-P ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN IR1-CONVERT-COMBINATION ...) ; compiling (DEFUN IR1-CONVERT-COMBINATION-ARGS ...) ; compiling (DEFUN IR1-CONVERT-SRCTRAN ...) ; compiling (DEFVAR *INSTRUMENT-IF-FOR-CODE-COVERAGE* ...) ; compiling (DEFUN IR1-CONVERT-MAYBE-PREDICATE ...) ; compiling (DEFUN IR1-CONVERT-COMBINATION-CHECKING-TYPE ...) ; compiling (DEFUN IR1-CONVERT-LOCAL-COMBINATION ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN FIND-IN-BINDINGS ...) ; compiling (DEFUN PROCESS-TYPE-DECL ...) ; compiling (DEFUN PROCESS-FTYPE-DECL ...) ; compiling (DEFUN PROCESS-SPECIAL-DECL ...) ; compiling (DEFUN MAKE-NEW-INLINEP ...) ; compiling (DEFUN PROCESS-INLINE-DECL ...) ; compiling (DEFUN FIND-IN-BINDINGS-OR-FBINDINGS ...) ; compiling (DEFUN PROCESS-IGNORE-DECL ...) ; compiling (DEFUN PROCESS-EXTENT-DECL ...) ; compiling (DEFVAR *SUPPRESS-VALUES-DECLARATION* ...) ; compiling (DEFUN PROCESS-1-DECL ...) ; compiling (DEFUN PROCESS-DECLS ...) ; compiling (DEFUN %PROCESSING-DECLS ...) ; compiling (DEFMACRO PROCESSING-DECLS ...) ; compiling (DEFUN SPECVAR-FOR-BINDING ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir1tran.lisp ; in: DEFUN IR1-CONVERT-LOCAL-COMBINATION ; (SB!C::ASSURE-FUNCTIONAL-LIVE-P SB!C::FUNCTIONAL) ; ; caught STYLE-WARNING: ; undefined function: ASSURE-FUNCTIONAL-LIVE-P ; in: DEFUN REFERENCE-LEAF ; (SB!C::ASSURE-LEAF-LIVE-P SB!C::LEAF) ; ; caught STYLE-WARNING: ; undefined function: ASSURE-LEAF-LIVE-P ; in: DEFUN PROCESS-EXTENT-DECL ; (SB!C:COMPILER-NOTIFY "Ignoring free ~S declaration: ~S" SB!C::KIND ; SB!C::NAME) ; ; caught STYLE-WARNING: ; undefined function: COMPILER-NOTIFY ; in: DEFUN PROCESS-INLINE-DECL ; (SB!C:COMPILER-NOTIFY "ignoring ~A declaration not at ~ ; definition of local function:~% ~S" ; SB!C::SENSE SB!C::NAME) ; ; caught STYLE-WARNING: ; undefined function: COMPILER-NOTIFY ; in: DEFUN PROCESS-FTYPE-DECL ; #'SB!C:COMPILER-NOTIFY ; ; caught STYLE-WARNING: ; undefined function: COMPILER-NOTIFY ; (SB!C::COMPILER-SPECIFIER-TYPE SB!C::SPEC) ; ; caught STYLE-WARNING: ; undefined function: COMPILER-SPECIFIER-TYPE ; in: DEFUN PROCESS-TYPE-DECL ; (SB!C::COMPILER-SPECIFIER-TYPE (FIRST SB!C::DECL)) ; ; caught STYLE-WARNING: ; undefined function: COMPILER-SPECIFIER-TYPE ; in: DEFUN PROCESS-1-DECL ; (SB!C::COMPILER-VALUES-SPECIFIER-TYPE ; (IF (SB!INT:SINGLETON-P SB!C::TYPES) ; (CAR SB!C::TYPES) ; (SB!INT:QUASIQUOTE ; (VALUES #S(SB!IMPL::COMMA :EXPR SB!C::TYPES :KIND 2))))) ; ; caught STYLE-WARNING: ; undefined function: COMPILER-VALUES-SPECIFIER-TYPE ; in: DEFUN IR1-CONVERT-VAR ; (SB!C::CTRAN-HOME-LAMBDA-OR-NULL SB!C::START) ; ; caught STYLE-WARNING: ; undefined function: CTRAN-HOME-LAMBDA-OR-NULL ; in: DEFUN REFERENCE-LEAF => DEFINED-FUN-FUNCTIONAL LEAF ; (SB!C::DEFINED-FUN-FUNCTIONAL SB!C::LEAF) ; ; caught STYLE-WARNING: ; undefined function: DEFINED-FUN-FUNCTIONAL ; in: DEFUN INSERT-NODE-BEFORE ; (SB!C::ENSURE-BLOCK-START SB!C::PREV) ; ; caught STYLE-WARNING: ; undefined function: ENSURE-BLOCK-START ; in: DEFUN REFERENCE-CONSTANT ; (SB!C::FIND-CONSTANT SB!C::VALUE) ; ; caught STYLE-WARNING: ; undefined function: FIND-CONSTANT ; in: DEFUN FIND-FREE-VAR ; (SB!C::FIND-CONSTANT SB!C::VALUE SB!C::NAME) ; ; caught STYLE-WARNING: ; undefined function: FIND-CONSTANT ; in: DEFUN IR1-TOPLEVEL ; (SB!C::IR1-CONVERT-LAMBDA-BODY SB!C::FORMS NIL :DEBUG-NAME ; (SB!C::DEBUG-NAME 'SB!C::TOP-LEVEL-FORM NIL)) ; ; caught STYLE-WARNING: ; undefined function: IR1-CONVERT-LAMBDA-BODY ; in: DEFUN MAYBE-REANALYZE-FUNCTIONAL ; (SB!C::LAMBDA-COMPONENT SB!C::FUNCTIONAL) ; ; caught STYLE-WARNING: ; undefined function: LAMBDA-COMPONENT ; in: DEFUN CLEAR-INVALID-FUNCTIONALS ; (SB!C::LAMBDA-COMPONENT SB!C::FUNCTIONAL) ; ; caught STYLE-WARNING: ; undefined function: LAMBDA-COMPONENT ; in: DEFUN %PROCESSING-DECLS ; (SB!C::MAKE-CAST SB!C::VALUE-LVAR SB!C::RESULT-TYPE ; (SB!C::LEXENV-POLICY SB!C:*LEXENV*)) ; ; caught STYLE-WARNING: ; undefined function: MAKE-CAST ; in: DEFUN REFERENCE-LEAF ; (SB!C::MAKE-CAST SB!C::REF-LVAR (SB!KERNEL:MAKE-SINGLE-VALUE-TYPE TYPE) ; (SB!C::LEXENV-POLICY SB!C:*LEXENV*)) ; ; caught STYLE-WARNING: ; undefined function: MAKE-CAST ; in: DEFUN IR1-TOPLEVEL ; (SB!C::MAKE-EMPTY-COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: MAKE-EMPTY-COMPONENT ; in: DEFUN PROCESS-SPECIAL-DECL ; (SB!C::MAKE-LEXENV :DEFAULT SB!C::RES :VARS (SB!C::NEW-VENV)) ; ; caught STYLE-WARNING: ; undefined function: MAKE-LEXENV ; in: DEFUN PROCESS-FTYPE-DECL ; (SB!C::MAKE-LEXENV :DEFAULT SB!C::RES :TYPE-RESTRICTIONS (SB!C::RES)) ; ; caught STYLE-WARNING: ; undefined function: MAKE-LEXENV ; in: DEFUN PROCESS-TYPE-DECL ; (SB!C::MAKE-LEXENV :DEFAULT SB!C::RES :TYPE-RESTRICTIONS (SB!C::RESTR) :VARS ; (SB!C::NEW-VARS)) ; ; caught STYLE-WARNING: ; undefined function: MAKE-LEXENV ; ; caught STYLE-WARNING: ; 2 more uses of undefined function MAKE-LEXENV ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir1tran.lisp ; in: DEFUN FIND-FREE-VAR ; (SB!C::NOTE-UNDEFINED-REFERENCE SB!C::NAME :VARIABLE) ; ; caught STYLE-WARNING: ; undefined function: NOTE-UNDEFINED-REFERENCE ; in: DEFUN FIND-GLOBAL-FUN ; (SB!C::NOTE-UNDEFINED-REFERENCE SB!C::NAME :FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: NOTE-UNDEFINED-REFERENCE ; in: DEFUN EXPAND-COMPILER-MACRO ; (SB!C::PRINT-COMPILER-MESSAGE *ERROR-OUTPUT* "note: ~A" (LIST SB!C::C)) ; ; caught STYLE-WARNING: ; undefined function: PRINT-COMPILER-MESSAGE ; in: DEFUN USE-LVAR ; (SB!C::REOPTIMIZE-LVAR SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: REOPTIMIZE-LVAR ; in: DEFUN INSTRUMENT-COVERAGE ; (SB!C::SOURCE-PATH-ORIGINAL-SOURCE SB!C::*CURRENT-PATH*) ; ; caught STYLE-WARNING: ; undefined function: SOURCE-PATH-ORIGINAL-SOURCE ; in: DEFUN IR1-CONVERT-COMBINATION-CHECKING-TYPE ; (SB!C::VALIDATE-CALL-TYPE SB!C::NODE TYPE SB!C::VAR T) ; ; caught STYLE-WARNING: ; undefined function: VALIDATE-CALL-TYPE ; ; compilation unit finished ; Undefined functions: ; ASSURE-FUNCTIONAL-LIVE-P ASSURE-LEAF-LIVE-P COMPILER-NOTIFY COMPILER-SPECIFIER-TYPE COMPILER-VALUES-SPECIFIER-TYPE CTRAN-HOME-LAMBDA-OR-NULL DEFINED-FUN-FUNCTIONAL ENSURE-BLOCK-START FIND-CONSTANT IR1-CONVERT-LAMBDA-BODY LAMBDA-COMPONENT MAKE-CAST MAKE-EMPTY-COMPONENT MAKE-LEXENV NOTE-UNDEFINED-REFERENCE PRINT-COMPILER-MESSAGE REOPTIMIZE-LVAR SOURCE-PATH-ORIGINAL-SOURCE VALIDATE-CALL-TYPE ; caught 29 STYLE-WARNING conditions ; printed 1 note ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/ir1tran.fasl-tmp written ; compilation finished in 0:00:00.504 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir1tran-lambda.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN VARIFY-LAMBDA-ARG ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN MAKE-KEYWORD-FOR-ARG ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN MAKE-LAMBDA-VARS ...) ; compiling (DEFUN IR1-CONVERT-AUX-BINDINGS ...) ; compiling (DEFUN IR1-CONVERT-SPECIAL-BINDINGS ...) ; compiling (DEFUN IR1-CONVERT-LAMBDA-BODY ...) ; compiling (DEFUN REGISTER-ENTRY-POINT ...) ; compiling (DEFUN CONVERT-OPTIONAL-ENTRY ...) ; compiling (DEFUN GENERATE-OPTIONAL-DEFAULT-ENTRY ...) ; compiling (DEFUN CONVERT-MORE-ENTRY ...) ; compiling (DEFUN IR1-CONVERT-MORE ...) ; compiling (DEFUN IR1-CONVERT-HAIRY-ARGS ...) ; compiling (DEFUN IR1-CONVERT-HAIRY-LAMBDA ...) ; compiling (DEFUN IR1-CONVERT-LAMBDA ...) ; compiling (DEFUN WRAP-FORMS-IN-DEBUG-CATCH ...) ; compiling (DEFUN IR1-CONVERT-LAMBDALIKE ...) ; compiling (DEFUN IR1-CONVERT-INLINE-LAMBDA ...) ; compiling (DEFUN FTYPE-FROM-LAMBDA-LIST ...) ; compiling (DEFUN GET-DEFINED-FUN ...) ; compiling (DEFUN ASSERT-NEW-DEFINITION ...) ; compiling (DEFUN IR1-CONVERT-INLINE-EXPANSION ...) ; compiling (DEFUN %SET-INLINE-EXPANSION ...) ; compiling (DEFUN %COMPILER-DEFUN ...) ; compiling (DEFUN %COMPILER-DEFMACRO ...) ; compiling (DEFUN OPTIONAL-DISPATCH-ENTRY-POINT-FUN ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir1tran-lambda.lisp ; in: DEFUN ASSERT-NEW-DEFINITION ; #'SB!C:COMPILER-NOTIFY ; ; caught STYLE-WARNING: ; undefined function: COMPILER-NOTIFY ; in: DEFUN IR1-CONVERT-LAMBDA-BODY ; (SB!C::CTRAN-STARTS-BLOCK SB!C::RESULT-CTRAN) ; ; caught STYLE-WARNING: ; undefined function: CTRAN-STARTS-BLOCK ; in: DEFUN IR1-CONVERT-SPECIAL-BINDINGS ; (SB!C::CTRAN-STARTS-BLOCK SB!C::NEXT) ; ; caught STYLE-WARNING: ; undefined function: CTRAN-STARTS-BLOCK ; in: DEFUN IR1-CONVERT-LAMBDA-BODY ; (SB!C::LINK-BLOCKS BLOCK (SB!C::COMPONENT-TAIL SB!C::*CURRENT-COMPONENT*)) ; ; caught STYLE-WARNING: ; undefined function: LINK-BLOCKS ; (SB!C::MAKE-LEXENV :VARS (SB!C::NEW-VENV) :LAMBDA LAMBDA :CLEANUP NIL) ; ; caught STYLE-WARNING: ; undefined function: MAKE-LEXENV ; in: DEFUN IR1-CONVERT-SPECIAL-BINDINGS ; (SB!C::MAKE-LEXENV :CLEANUP SB!C::CLEANUP) ; ; caught STYLE-WARNING: ; undefined function: MAKE-LEXENV ; in: DEFUN IR1-CONVERT-AUX-BINDINGS ; (SB!C::MAKE-LEXENV :VARS (COPY-LIST SB!C::POST-BINDING-LEXENV)) ; ; caught STYLE-WARNING: ; undefined function: MAKE-LEXENV ; ; caught STYLE-WARNING: ; 1 more use of undefined function MAKE-LEXENV ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir1tran-lambda.lisp ; in: DEFUN IR1-CONVERT-INLINE-LAMBDA ; (SB!C::NAME-LAMBDALIKE SB!C::FUN) ; ; caught STYLE-WARNING: ; undefined function: NAME-LAMBDALIKE ; in: DEFUN IR1-CONVERT-LAMBDALIKE ; (SB!C::NAME-LAMBDALIKE SB!C::THING) ; ; caught STYLE-WARNING: ; undefined function: NAME-LAMBDALIKE ; in: DEFUN IR1-CONVERT-LAMBDA ; (SB!C::NAME-LAMBDALIKE SB!KERNEL:FORM) ; ; caught STYLE-WARNING: ; undefined function: NAME-LAMBDALIKE ; in: DEFUN IR1-CONVERT-LAMBDA-BODY ; (SB!C::NODE-BLOCK SB!C:BIND) ; ; caught STYLE-WARNING: ; undefined function: NODE-BLOCK ; in: DEFUN IR1-CONVERT-INLINE-EXPANSION ; (SB!C::SUBSTITUTE-LEAF SB!C::FUN SB!C::VAR) ; ; caught STYLE-WARNING: ; undefined function: SUBSTITUTE-LEAF ; in: DEFUN GET-DEFINED-FUN ; (SB!C::SUBSTITUTE-LEAF SB!C::RES SB!C::FOUND) ; ; caught STYLE-WARNING: ; undefined function: SUBSTITUTE-LEAF ; in: DEFUN IR1-CONVERT-LAMBDALIKE ; (SB!C::SUBSTITUTE-LEAF-IF ; (LAMBDA (SB!C::REF) ; (SB!C:POLICY SB!C::REF (> SB!C::RECOGNIZE-SELF-CALLS 0))) ; SB!C::RES SB!C::DEFINED-FUN-RES) ; ; caught STYLE-WARNING: ; undefined function: SUBSTITUTE-LEAF-IF ; ; compilation unit finished ; Undefined functions: ; COMPILER-NOTIFY CTRAN-STARTS-BLOCK LINK-BLOCKS MAKE-LEXENV NAME-LAMBDALIKE NODE-BLOCK SUBSTITUTE-LEAF SUBSTITUTE-LEAF-IF ; caught 15 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/ir1tran-lambda.fasl-tmp written ; compilation finished in 0:00:00.272 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir1-translators.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEF-IR1-TRANSLATOR PROGN ...) ; compiling (DEF-IR1-TRANSLATOR IF ...) ; compiling (DEFUN BEST-SUB-SOURCE-PATH ...) ; compiling (DEF-IR1-TRANSLATOR BLOCK ...) ; compiling (DEF-IR1-TRANSLATOR RETURN-FROM ...) ; compiling (DEFUN PARSE-TAGBODY ...) ; compiling (DEF-IR1-TRANSLATOR TAGBODY ...) ; compiling (DEF-IR1-TRANSLATOR GO ...) ; compiling (DEF-IR1-TRANSLATOR EVAL-WHEN ...) ; compiling (DEFUN %FUNCALL-IN-FOOMACROLET-LEXENV ...) ; compiling (DEFUN MACROLET-DEFINITIONIZE-FUN ...) ; compiling (DEFUN FUNCALL-IN-MACROLET-LEXENV ...) ; compiling (DEF-IR1-TRANSLATOR MACROLET ...) ; compiling (DEFUN SYMBOL-MACROLET-DEFINITIONIZE-FUN ...) ; compiling (DEFUN FUNCALL-IN-SYMBOL-MACROLET-LEXENV ...) ; compiling (DEF-IR1-TRANSLATOR SYMBOL-MACROLET ...) ; compiling (DEFUN EVAL-INFO-ARGS ...) ; compiling (DEF-IR1-TRANSLATOR %PRIMITIVE ...) ; compiling (DEF-IR1-TRANSLATOR QUOTE ...) ; compiling (DEFUN NAME-CONTEXT ...) ; compiling (DEFUN NAME-LAMBDALIKE ...) ; compiling (DEFUN FUN-NAME-LEAF ...) ; compiling (DEF-IR1-TRANSLATOR %%ALLOCATE-CLOSURES ...) ; compiling (DEFMACRO WITH-FUN-NAME-LEAF ...) ; compiling (DEF-IR1-TRANSLATOR FUNCTION ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir1-translators.lisp ; in: DEF-IR1-TRANSLATOR FUNCTION ; (SB!C::WITH-FUN-NAME-LEAF (SB!C::LEAF SB!C::THING SB!C::START) ; (SB!C::REFERENCE-LEAF SB!C::START SB!C::NEXT SB!C::RESULT SB!C::LEAF)) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF SB!C::FIND-GLOBAL-FUN ; ==> ; SB!C::THING ; ; note: deleting unreachable code ; compiling (DEF-IR1-TRANSLATOR GLOBAL-FUNCTION ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir1-translators.lisp ; in: DEF-IR1-TRANSLATOR GLOBAL-FUNCTION ; (SB!C::WITH-FUN-NAME-LEAF (SB!C::LEAF SB!C::THING SB!C::START ; :GLOBAL-FUNCTION T) ; (SB!C::REFERENCE-LEAF SB!C::START SB!C::NEXT SB!C::RESULT SB!C::LEAF)) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF SB!C::FUN-NAME-LEAF ; ==> ; SB!C::THING ; ; note: deleting unreachable code ; compiling (DEFUN CONSTANT-GLOBAL-FUN-NAME ...) ; compiling (DEFUN LVAR-CONSTANT-GLOBAL-FUN-NAME ...) ; compiling (DEFUN ENSURE-SOURCE-FUN-FORM ...) ; compiling (DEFUN ENSURE-LVAR-FUN-FORM ...) ; compiling (DEFTRANSFORM FUNCALL ...) ; compiling (DEF-IR1-TRANSLATOR %FUNCALL ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir1-translators.lisp ; in: DEF-IR1-TRANSLATOR %FUNCALL ; (SB!C::WITH-FUN-NAME-LEAF (SB!C::LEAF SB!C::THING SB!C::START) ; (SB!C::IR1-CONVERT SB!C::START SB!C::NEXT SB!C::RESULT ; (SB!INT:QUASIQUOTE ; (#S(SB!IMPL::COMMA :EXPR SB!C::LEAF :KIND 0) ; #S(SB!IMPL::COMMA :EXPR SB!C::ARGS :KIND 2))))) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF SB!C::FIND-GLOBAL-FUN ; ==> ; SB!C::THING ; ; note: deleting unreachable code ; (SB!C::WITH-FUN-NAME-LEAF (SB!C::LEAF SB!C::THING SB!C::START ; :GLOBAL-FUNCTION T) ; (SB!C::IR1-CONVERT SB!C::START SB!C::NEXT SB!C::RESULT ; (SB!INT:QUASIQUOTE ; (#S(SB!IMPL::COMMA :EXPR SB!C::LEAF :KIND 0) ; #S(SB!IMPL::COMMA :EXPR SB!C::ARGS :KIND 2))))) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF SB!C::FUN-NAME-LEAF ; ==> ; SB!C::THING ; ; note: deleting unreachable code ; compiling (DEFINE-SOURCE-TRANSFORM FUNCALL ...) ; compiling (DEFTRANSFORM %COERCE-CALLABLE-TO-FUN ...) ; compiling (DEFINE-SOURCE-TRANSFORM %COERCE-CALLABLE-TO-FUN ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN EXTRACT-LET-VARS ...) ; compiling (DEF-IR1-TRANSLATOR LET ...) ; compiling (DEF-IR1-TRANSLATOR LET* ...) ; compiling (DEFUN IR1-TRANSLATE-LOCALLY ...) ; compiling (DEF-IR1-TRANSLATOR LOCALLY ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN EXTRACT-FLET-VARS ...) ; compiling (DEFUN IR1-CONVERT-FBINDINGS ...) ; compiling (DEF-IR1-TRANSLATOR FLET ...) ; compiling (DEF-IR1-TRANSLATOR LABELS ...) ; compiling (DEFUN THE-IN-POLICY ...) ; compiling (DEF-IR1-TRANSLATOR THE ...) ; compiling (DEF-IR1-TRANSLATOR TRULY-THE ...) ; compiling (DEF-IR1-TRANSLATOR SETQ ...) ; compiling (DEFUN SETQ-VAR ...) ; compiling (DEF-IR1-TRANSLATOR THROW ...) ; compiling (DEF-IR1-TRANSLATOR %WITHIN-CLEANUP ...) ; compiling (DEF-IR1-TRANSLATOR %ESCAPE-FUN ...) ; compiling (DEF-IR1-TRANSLATOR %CLEANUP-FUN ...) ; compiling (DEF-IR1-TRANSLATOR CATCH ...) ; compiling (DEF-IR1-TRANSLATOR UNWIND-PROTECT ...) ; compiling (DEF-IR1-TRANSLATOR MULTIPLE-VALUE-CALL ...) ; compiling (DEF-IR1-TRANSLATOR MULTIPLE-VALUE-PROG1 ...) ; compiling (DEFUN REVERT-SOURCE-PATH ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir1-translators.lisp ; in: DEF-IR1-TRANSLATOR %FUNCALL ; (SB!INT:%MACROEXPAND FUNCTION SB!C:*LEXENV*) ; ; caught STYLE-WARNING: ; undefined function: %MACROEXPAND ; in: DEFUN THE-IN-POLICY ; (SB!C::COMPILER-VALUES-SPECIFIER-TYPE TYPE) ; ; caught STYLE-WARNING: ; undefined function: COMPILER-VALUES-SPECIFIER-TYPE ; in: DEFUN LVAR-CONSTANT-GLOBAL-FUN-NAME ; (SB!C::CONSTANT-LVAR-P SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: CONSTANT-LVAR-P ; in: DEF-IR1-TRANSLATOR RETURN-FROM ; (SB!C::CTRAN-DELETED-P SB!C::EXIT-CTRAN) ; ; caught STYLE-WARNING: ; undefined function: CTRAN-DELETED-P ; in: DEF-IR1-TRANSLATOR SETQ ; (SB!C::CTRAN-HOME-LAMBDA-OR-NULL SB!C::START) ; ; caught STYLE-WARNING: ; undefined function: CTRAN-HOME-LAMBDA-OR-NULL ; in: DEF-IR1-TRANSLATOR GO ; (SB!C::CTRAN-HOME-LAMBDA-OR-NULL SB!C::START) ; ; caught STYLE-WARNING: ; undefined function: CTRAN-HOME-LAMBDA-OR-NULL ; in: DEF-IR1-TRANSLATOR RETURN-FROM ; (SB!C::CTRAN-HOME-LAMBDA-OR-NULL SB!C::START) ; ; caught STYLE-WARNING: ; undefined function: CTRAN-HOME-LAMBDA-OR-NULL ; (SB!C::CTRAN-STARTS-BLOCK SB!C::NEXT) ; ; caught STYLE-WARNING: ; undefined function: CTRAN-STARTS-BLOCK ; in: DEF-IR1-TRANSLATOR BLOCK ; (SB!C::CTRAN-STARTS-BLOCK SB!C::NEXT) ; ; caught STYLE-WARNING: ; undefined function: CTRAN-STARTS-BLOCK ; in: DEF-IR1-TRANSLATOR IF ; (SB!C::CTRAN-STARTS-BLOCK SB!C::NEXT) ; ; caught STYLE-WARNING: ; undefined function: CTRAN-STARTS-BLOCK ; ; caught STYLE-WARNING: ; 4 more uses of undefined function CTRAN-STARTS-BLOCK ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir1-translators.lisp ; in: DEFTRANSFORM %COERCE-CALLABLE-TO-FUN ; (SB!C:DEFTRANSFORM SB!KERNEL:%COERCE-CALLABLE-TO-FUN ; ((SB!C::THING) * * :NODE SB!C::NODE) ; "optimize away possible call to FDEFINITION at runtime" ; (SB!C::ENSURE-LVAR-FUN-FORM SB!C::THING 'SB!C::THING T)) ; --> SB!C::%DEFTRANSFORM UNLESS IF PROGN ; ==> ; (SB!C::GIVE-UP-IR1-TRANSFORM) ; ; caught STYLE-WARNING: ; undefined function: GIVE-UP-IR1-TRANSFORM ; in: DEFTRANSFORM FUNCALL ; (SB!C:DEFTRANSFORM FUNCALL ; ((FUNCTION &REST SB!C::ARGS) * *) ; (LET ((SB!C::ARG-NAMES (SB!INT:MAKE-GENSYM-LIST #))) ; (SB!INT:QUASIQUOTE ; (LAMBDA (FUNCTION #) (DECLARE #) (SB!INT:QUASIQUOTE #))))) ; --> SB!C::%DEFTRANSFORM UNLESS IF PROGN ; ==> ; (SB!C::GIVE-UP-IR1-TRANSFORM) ; ; caught STYLE-WARNING: ; undefined function: GIVE-UP-IR1-TRANSFORM ; in: DEFUN ENSURE-LVAR-FUN-FORM ; (SB!C::GIVE-UP-IR1-TRANSFORM "not known to be a function") ; ; caught STYLE-WARNING: ; undefined function: GIVE-UP-IR1-TRANSFORM ; in: DEF-IR1-TRANSLATOR IF ; (SB!C::LINK-BLOCKS SB!C::START-BLOCK SB!C::THEN-BLOCK) ; ; caught STYLE-WARNING: ; undefined function: LINK-BLOCKS ; in: DEFUN ENSURE-LVAR-FUN-FORM ; (SB!C::LVAR-TYPE SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: LVAR-TYPE ; in: DEFUN LVAR-CONSTANT-GLOBAL-FUN-NAME ; (SB!C::LVAR-VALUE SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: LVAR-VALUE ; in: DEFUN THE-IN-POLICY ; (SB!C::MAKE-CAST SB!C::VALUE-LVAR TYPE SB!C:POLICY) ; ; caught STYLE-WARNING: ; undefined function: MAKE-CAST ; in: DEFUN %FUNCALL-IN-FOOMACROLET-LEXENV ; (SB!C::MAKE-LEXENV SB!C::DEFINITIONIZE-KEYWORD SB!C::PROCESSED-DEFINITIONS) ; ; caught STYLE-WARNING: ; undefined function: MAKE-LEXENV ; in: DEF-IR1-TRANSLATOR TAGBODY ; (SB!C::MAKE-LEXENV :CLEANUP SB!C::CLEANUP :TAGS (SB!C::TAGS)) ; ; caught STYLE-WARNING: ; undefined function: MAKE-LEXENV ; in: DEF-IR1-TRANSLATOR BLOCK ; (SB!C::MAKE-LEXENV :BLOCKS (LIST (CONS SB!C::NAME SB!C::ENV-ENTRY)) :CLEANUP ; SB!C::CLEANUP) ; ; caught STYLE-WARNING: ; undefined function: MAKE-LEXENV ; ; caught STYLE-WARNING: ; 4 more uses of undefined function MAKE-LEXENV ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir1-translators.lisp ; in: DEFUN FUNCALL-IN-MACROLET-LEXENV ; (SB!C::MAKE-RESTRICTED-LEXENV SB!C:*LEXENV*) ; ; caught STYLE-WARNING: ; undefined function: MAKE-RESTRICTED-LEXENV ; in: DEFUN IR1-CONVERT-FBINDINGS ; (SB!C::NODE-DEST (SB!C::CTRAN-NEXT SB!C::START)) ; ; caught STYLE-WARNING: ; undefined function: NODE-DEST ; in: DEF-IR1-TRANSLATOR %%ALLOCATE-CLOSURES ; (SB!C::NODE-DEST (SB!C::CTRAN-NEXT SB!C::START)) ; ; caught STYLE-WARNING: ; undefined function: NODE-DEST ; in: DEF-IR1-TRANSLATOR IF ; (SB!C::POSSIBLE-REST-ARG-CONTEXT SB!C::TEST) ; ; caught STYLE-WARNING: ; undefined function: POSSIBLE-REST-ARG-CONTEXT ; in: DEF-IR1-TRANSLATOR TAGBODY ; (SB!C::START-BLOCK SB!C::START) ; ; caught STYLE-WARNING: ; undefined function: START-BLOCK ; in: DEF-IR1-TRANSLATOR BLOCK ; (SB!C::START-BLOCK SB!C::START) ; ; caught STYLE-WARNING: ; undefined function: START-BLOCK ; in: DEF-IR1-TRANSLATOR LABELS ; (SB!C::SUBSTITUTE-LEAF SB!C::REAL-FUN (CDR SB!C::PLACEHOLDER-CONS)) ; ; caught STYLE-WARNING: ; undefined function: SUBSTITUTE-LEAF ; ; compilation unit finished ; Undefined functions: ; %MACROEXPAND COMPILER-VALUES-SPECIFIER-TYPE CONSTANT-LVAR-P CTRAN-DELETED-P CTRAN-HOME-LAMBDA-OR-NULL CTRAN-STARTS-BLOCK GIVE-UP-IR1-TRANSFORM LINK-BLOCKS LVAR-TYPE LVAR-VALUE MAKE-CAST MAKE-LEXENV MAKE-RESTRICTED-LEXENV NODE-DEST POSSIBLE-REST-ARG-CONTEXT START-BLOCK SUBSTITUTE-LEAF ; caught 29 STYLE-WARNING conditions ; printed 4 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/ir1-translators.fasl-tmp written ; compilation finished in 0:00:00.421 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir1util.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN NODE-ENCLOSING-CLEANUP ...) ; compiling (DEFUN MAP-NESTED-CLEANUPS ...) ; compiling (DEFUN INSERT-CLEANUP-CODE ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN FIND-USES ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN PRINCIPAL-LVAR ...) ; compiling (DEFUN PRINCIPAL-LVAR-USE ...) ; compiling (DEFUN PRINCIPAL-LVAR-DEST ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN %DELETE-LVAR-USE ...) ; compiling (DEFUN DELETE-LVAR-USE ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN ADD-LVAR-USE ...) ; compiling (DEFUN IMMEDIATELY-USED-P ...) ; compiling (DEFUN COMBINATION-DEFINED-TYPE ...) ; compiling (DEFUN ALMOST-IMMEDIATELY-USED-P ...) ; compiling (DEFUN SUBSTITUTE-LVAR ...) ; compiling (DEFUN SUBSTITUTE-LVAR-USES ...) ; compiling (DEFUN CTRAN-STARTS-BLOCK ...) ; compiling (DEFUN ENSURE-BLOCK-START ...) ; compiling (DEFUN START-BLOCK ...) ; compiling (DEFUN FILTER-LVAR ...) ; compiling (DEFUN DELETE-FILTER ...) ; compiling (DEFUN INSERT-CAST-BEFORE ...) ; compiling (DEFUN NODE-HOME-LAMBDA ...) ; compiling (DECLAIM (INLINE NODE-BLOCK)) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir1util.lisp ; in: DECLAIM (INLINE NODE-BLOCK) ; (DECLAIM (INLINE SB!C::NODE-BLOCK)) ; --> EVAL-WHEN ; ==> ; (PROCLAIM '(INLINE SB!C::NODE-BLOCK)) ; ; caught STYLE-WARNING: ; Proclaiming SB!C::NODE-BLOCK to be INLINE, but 6 calls to it were previously ; compiled. A declaration of NOTINLINE at the call sites will eliminate this ; warning, as will proclaiming and defining the function before its first ; potential use. ; compiling (DEFUN NODE-BLOCK ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN NODE-COMPONENT ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN NODE-PHYSENV ...) ; compiling (DECLAIM (INLINE NODE-DEST)) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir1util.lisp ; in: DECLAIM (INLINE NODE-DEST) ; (DECLAIM (INLINE SB!C::NODE-DEST)) ; --> EVAL-WHEN ; ==> ; (PROCLAIM '(INLINE SB!C::NODE-DEST)) ; ; caught STYLE-WARNING: ; Proclaiming SB!C::NODE-DEST to be INLINE, but 3 calls to it were previously ; compiled. A declaration of NOTINLINE at the call sites will eliminate this ; warning, as will proclaiming and defining the function before its first ; potential use. ; compiling (DEFUN NODE-DEST ...) ; compiling (DECLAIM (INLINE NODE-STACK-ALLOCATE-P)) ; compiling (DEFUN NODE-STACK-ALLOCATE-P ...) ; compiling (DEFUN FLUSHABLE-COMBINATION-P ...) ; compiling (DEFUN LAMBDA-VAR-ORIGINAL-NAME ...) ; compiling (DEFUN NOTE-NO-STACK-ALLOCATION ...) ; compiling (DEFUN USE-GOOD-FOR-DX-P ...) ; compiling (DEFUN LVAR-GOOD-FOR-DX-P ...) ; compiling (DEFUN KNOWN-DX-COMBINATION-P ...) ; compiling (DEFUN DX-COMBINATION-P ...) ; compiling (DEFUN COMBINATION-ARGS-FLOW-CLEANLY-P ...) ; compiling (DEFUN REF-GOOD-FOR-DX-P ...) ; compiling (DEFUN TRIVIAL-LAMBDA-VAR-REF-P ...) ; compiling (DEFUN TRIVIAL-LAMBDA-VAR-REF-LVAR ...) ; compiling (DEFUN HANDLE-NESTED-DYNAMIC-EXTENT-LVARS ...) ; compiling (DECLAIM (INLINE BLOCK-TO-BE-DELETED-P)) ; compiling (DEFUN BLOCK-TO-BE-DELETED-P ...) ; compiling (DECLAIM (INLINE NODE-TO-BE-DELETED-P)) ; compiling (DEFUN NODE-TO-BE-DELETED-P ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN LAMBDA-BLOCK ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN LAMBDA-COMPONENT ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN BLOCK-START-NODE ...) ; compiling (DEFUN BLOCK-START-CLEANUP ...) ; compiling (DEFUN BLOCK-END-CLEANUP ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN BLOCK-HOME-LAMBDA-OR-NULL ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN BLOCK-HOME-LAMBDA ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN BLOCK-PHYSENV ...) ; compiling (DEFUN SOURCE-PATH-TLF-NUMBER ...) ; compiling (DEFUN SOURCE-PATH-ORIGINAL-SOURCE ...) ; compiling (DEFUN SOURCE-PATH-FORM-NUMBER ...) ; compiling (DEFUN SOURCE-PATH-FORMS ...) ; compiling (DEFUN TREE-SOME ...) ; compiling (DEFUN NODE-SOURCE-FORM ...) ; compiling (DEFUN LVAR-SOURCE ...) ; compiling (DEFUN COMMON-SUFFIX ...) ; compiling (DEFUN LVAR-ALL-SOURCES ...) ; compiling (DECLAIM (INLINE LVAR-USE)) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir1util.lisp ; in: DECLAIM (INLINE LVAR-USE) ; (DECLAIM (INLINE SB!C::LVAR-USE)) ; --> EVAL-WHEN ; ==> ; (PROCLAIM '(INLINE SB!C::LVAR-USE)) ; ; caught STYLE-WARNING: ; Proclaiming SB!C::LVAR-USE to be INLINE, but 3 calls to it were previously ; compiled. A declaration of NOTINLINE at the call sites will eliminate this ; warning, as will proclaiming and defining the function before its first ; potential use. ; compiling (DEFUN LVAR-USE ...) ; compiling (DECLAIM (INLINE LVAR-HAS-SINGLE-USE-P)) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir1util.lisp ; in: DECLAIM (INLINE LVAR-HAS-SINGLE-USE-P) ; (DECLAIM (INLINE SB!C::LVAR-HAS-SINGLE-USE-P)) ; --> EVAL-WHEN ; ==> ; (PROCLAIM '(INLINE SB!C::LVAR-HAS-SINGLE-USE-P)) ; ; caught STYLE-WARNING: ; Proclaiming SB!C::LVAR-HAS-SINGLE-USE-P to be INLINE, but 1 call to it was ; previously compiled. A declaration of NOTINLINE at the call site will eliminate ; this warning, as will proclaiming and defining the function before its first ; potential use. ; compiling (DEFUN LVAR-HAS-SINGLE-USE-P ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN CTRAN-HOME-LAMBDA-OR-NULL ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN CTRAN-HOME-LAMBDA ...) ; compiling (DECLAIM (INLINE CAST-SINGLE-VALUE-P)) ; compiling (DEFUN CAST-SINGLE-VALUE-P ...) ; compiling (DECLAIM (INLINE LVAR-SINGLE-VALUE-P)) ; compiling (DEFUN LVAR-SINGLE-VALUE-P ...) ; compiling (DEFUN PRINCIPAL-LVAR-END ...) ; compiling (DEFUN PRINCIPAL-LVAR-SINGLE-VALUIFY ...) ; compiling (DEFUN MAKE-LEXENV ...) ; compiling (DEFUN MAKE-RESTRICTED-LEXENV ...) ; compiling (DEFUN LINK-BLOCKS ...) ; compiling (DEFUN %LINK-BLOCKS ...) ; compiling (DEFUN UNLINK-BLOCKS ...) ; compiling (DEFUN CHANGE-BLOCK-SUCCESSOR ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN REMOVE-FROM-DFO ...) ; compiling (DEFUN ADD-TO-DFO ...) ; compiling (DEFUN MAP-BLOCK-NLXES ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN CLEAR-FLAGS ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN MAKE-EMPTY-COMPONENT ...) ; compiling (DEFUN NODE-ENDS-BLOCK ...) ; compiling (DEFUN DELETE-LAMBDA-VAR ...) ; compiling (DEFUN REOPTIMIZE-LAMBDA-VAR ...) ; compiling (DEFUN DELETE-FUNCTIONAL ...) ; compiling (DEFUN DELETE-LAMBDA ...) ; compiling (DEFUN DELETE-OPTIONAL-DISPATCH ...) ; compiling (DEFUN NOTE-LOCAL-FUNCTIONAL ...) ; compiling (DEFUN DEFINED-FUN-FUNCTIONAL ...) ; compiling (DEFUN DELETE-REF ...) ; compiling (DEFUN FLUSH-NODE ...) ; compiling (DEFUN FLUSH-DEST ...) ; compiling (DEFUN DELETE-DEST ...) ; compiling (DEFUN DELETE-BLOCK-LAZILY ...) ; compiling (DEFUN MARK-FOR-DELETION ...) ; compiling (DEFUN DELETE-BLOCK ...) ; compiling (DEFUN DELETE-RETURN ...) ; compiling (DEFUN NOTE-UNREFERENCED-VARS ...) ; compiling (DEFUN NOTE-UNREFERENCED-FUN-VARS ...) ; compiling (DEFVAR *DELETION-IGNORED-OBJECTS* ...) ; compiling (DEFUN PRESENT-IN-FORM ...) ; compiling (DEFUN NOTE-BLOCK-DELETION ...) ; compiling (DEFUN UNLINK-NODE ...) ; compiling (DEFUN CTRAN-DELETED-P ...) ; compiling (DEFUN NODE-DELETED ...) ; compiling (DEFUN DELETE-COMPONENT ...) ; compiling (DEFUN CLEAN-COMPONENT ...) ; compiling (DEFUN SPLICE-FUN-ARGS ...) ; compiling (DEFUN ELIMINATE-KEYWORD-ARGS ...) ; compiling (DEFUN EXTRACT-FUN-ARGS ...) ; compiling (DEFUN FLUSH-COMBINATION ...) ; compiling (DEFUN CHANGE-REF-LEAF ...) ; compiling (DEFUN SUBSTITUTE-LEAF ...) ; compiling (DEFUN SUBSTITUTE-LEAF-IF ...) ; compiling (DEFUN FIND-CONSTANT ...) ; compiling (DEFUN CLOSURE-VAR-P ...) ; compiling (DEFUN FIND-NLX-INFO ...) ; compiling (DEFUN NLX-INFO-LVAR ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN MAIN-ENTRY ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN LOOKS-LIKE-AN-MV-BIND ...) ; compiling (DEFUN XEP-P ...) ; compiling (DEFUN LVAR-FUN-NAME ...) ; compiling (DEFUN LVAR-FUN-DEBUG-NAME ...) ; compiling (DEFUN COMBINATION-FUN-SOURCE-NAME ...) ; compiling (DEFUN COMBINATION-FUN-DEBUG-NAME ...) ; compiling (DEFUN LET-COMBINATION ...) ; compiling (DEFUN LET-VAR-INITIAL-VALUE ...) ; compiling (DEFUN COMBINATION-LAMBDA ...) ; compiling (DEFVAR *INLINE-EXPANSION-LIMIT* ...) ; compiling (DEFUN INLINE-EXPANSION-OK ...) ; compiling (DEFUN ASSURE-FUNCTIONAL-LIVE-P ...) ; compiling (DEFUN ASSURE-LEAF-LIVE-P ...) ; compiling (DEFUN CALL-FULL-LIKE-P ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN CAREFUL-CALL ...) ; compiling (DEFFROB SPECIFIER-TYPE ...) ; compiling (DEFFROB VALUES-SPECIFIER-TYPE ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN FIND-KEYWORD-LVAR ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN CHECK-KEY-ARGS-CONSTANT ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN CHECK-TRANSFORM-KEYS ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN %EVENT ...) ; compiling (DEFUN MAKE-CAST ...) ; compiling (DEFUN CAST-TYPE-CHECK ...) ; compiling (DEFUN NOTE-SINGLE-VALUIFIED-LVAR ...) ; compiling (DEFUN LVAR-FUN-IS ...) ; compiling (DEFUN LVAR-MATCHES ...) ; compiling (DEFUN OPTIONAL-REST-P ...) ; compiling (DEFUN PRESERVE-SINGLE-USE-DEBUG-VAR-P ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir1util.lisp ; in: DEFFROB VALUES-SPECIFIER-TYPE ; (SB!C::DEFFROB SB!KERNEL:VALUES-SPECIFIER-TYPE ; SB!C::CAREFUL-VALUES-SPECIFIER-TYPE SB!C::COMPILER-VALUES-SPECIFIER-TYPE ; SB!C::IR1-TRANSFORM-VALUES-SPECIFIER-TYPE) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN BLOCK HANDLER-CASE SB-INT:DX-FLET FLET ; --> BLOCK SB-INT:DX-LET LET TAGBODY SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET ; --> FLET BLOCK ; ==> ; (TYPEP CONDITION 'SB!KERNEL::ARG-COUNT-ERROR) ; ; caught STYLE-WARNING: ; undefined type: SB!KERNEL::ARG-COUNT-ERROR ; in: DEFFROB SPECIFIER-TYPE ; (SB!C::DEFFROB SB!KERNEL:SPECIFIER-TYPE SB!C::CAREFUL-SPECIFIER-TYPE ; SB!C::COMPILER-SPECIFIER-TYPE SB!C::IR1-TRANSFORM-SPECIFIER-TYPE) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN BLOCK HANDLER-CASE SB-INT:DX-FLET FLET ; --> BLOCK SB-INT:DX-LET LET TAGBODY SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET ; --> FLET BLOCK ; ==> ; (TYPEP CONDITION 'SB!KERNEL::ARG-COUNT-ERROR) ; ; caught STYLE-WARNING: ; undefined type: SB!KERNEL::ARG-COUNT-ERROR ; in: DEFUN NOTE-BLOCK-DELETION ; (SB!C:COMPILER-NOTIFY 'SB!EXT:CODE-DELETION-NOTE :FORMAT-CONTROL ; "deleting unreachable code" :FORMAT-ARGUMENTS NIL) ; ; caught STYLE-WARNING: ; undefined function: COMPILER-NOTIFY ; in: DEFUN DELETE-LAMBDA ; (SB!C:COMPILER-NOTIFY 'SB!EXT:CODE-DELETION-NOTE :FORMAT-CONTROL ; "deleting unused function~:[.~;~:*~% ~S~]" :FORMAT-ARGUMENTS ; (LIST (SB!C::LEAF-DEBUG-NAME SB!C::CLAMBDA))) ; ; caught STYLE-WARNING: ; undefined function: COMPILER-NOTIFY ; in: DEFUN NOTE-NO-STACK-ALLOCATION ; (SB!C:COMPILER-NOTIFY "~@" ; (SB!C::LAMBDA-VAR-ORIGINAL-NAME (SB!C::REF-LEAF SB!C::USE)) ; (SB!C::FIND-ORIGINAL-SOURCE (SB!C::NODE-SOURCE-PATH SB!C::USE))) ; ; caught STYLE-WARNING: ; undefined function: COMPILER-NOTIFY ; ; caught STYLE-WARNING: ; 2 more uses of undefined function COMPILER-NOTIFY ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir1util.lisp ; in: DEFUN CHECK-KEY-ARGS-CONSTANT ; (SB!C::CONSTANT-LVAR-P (FIRST SB!C::ARG)) ; ; caught STYLE-WARNING: ; undefined function: CONSTANT-LVAR-P ; in: DEFUN ELIMINATE-KEYWORD-ARGS ; (SB!C::CONSTANT-LVAR-P SB!C::KEY) ; ; caught STYLE-WARNING: ; undefined function: CONSTANT-LVAR-P ; in: DEFUN CHANGE-REF-LEAF ; (SB!C::DERIVE-NODE-TYPE SB!C::REF SB!C::VLTYPE :FROM-SCRATCH SB!C::RECKLESSLY) ; ; caught STYLE-WARNING: ; undefined function: DERIVE-NODE-TYPE ; in: DEFUN LVAR-ALL-SOURCES ; (SB!C::FIND-ORIGINAL-SOURCE SB!C::PATH) ; ; caught STYLE-WARNING: ; undefined function: FIND-ORIGINAL-SOURCE ; in: DEFUN NODE-SOURCE-FORM ; (SB!C::FIND-ORIGINAL-SOURCE SB!C::PATH) ; ; caught STYLE-WARNING: ; undefined function: FIND-ORIGINAL-SOURCE ; in: DEFUN NOTE-NO-STACK-ALLOCATION ; (SB!C::FIND-ORIGINAL-SOURCE (SB!C::NODE-SOURCE-PATH SB!C::USE)) ; ; caught STYLE-WARNING: ; undefined function: FIND-ORIGINAL-SOURCE ; ; caught STYLE-WARNING: ; 1 more use of undefined function FIND-ORIGINAL-SOURCE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir1util.lisp ; in: DEFUN SPLICE-FUN-ARGS ; (SB!C::FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE SB!C::ARG) ; ; caught STYLE-WARNING: ; undefined function: FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE ; in: DEFUN FLUSH-DEST ; (SB!C::FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE ; in: DEFUN SUBSTITUTE-LVAR ; (SB!C::FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE SB!C::NEW) ; ; caught STYLE-WARNING: ; undefined function: FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE ; in: DEFUN EXTRACT-FUN-ARGS ; (SB!C::GIVE-UP-IR1-TRANSFORM) ; ; caught STYLE-WARNING: ; undefined function: GIVE-UP-IR1-TRANSFORM ; in: DEFUN ELIMINATE-KEYWORD-ARGS ; (SB!C::GIVE-UP-IR1-TRANSFORM) ; ; caught STYLE-WARNING: ; undefined function: GIVE-UP-IR1-TRANSFORM ; in: DEFUN SPLICE-FUN-ARGS ; (SB!C::GIVE-UP-IR1-TRANSFORM) ; ; caught STYLE-WARNING: ; undefined function: GIVE-UP-IR1-TRANSFORM ; ; caught STYLE-WARNING: ; 2 more uses of undefined function GIVE-UP-IR1-TRANSFORM ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir1util.lisp ; in: DEFUN CAST-TYPE-CHECK ; (SB!C::IR1-OPTIMIZE-CAST SB!ALIEN:CAST T) ; ; caught STYLE-WARNING: ; undefined function: IR1-OPTIMIZE-CAST ; in: DEFUN FILTER-LVAR ; (SB!C::LOCALL-ANALYZE-COMPONENT SB!C::*CURRENT-COMPONENT*) ; ; caught STYLE-WARNING: ; undefined function: LOCALL-ANALYZE-COMPONENT ; in: DEFUN CHECK-TRANSFORM-KEYS ; (SB!C::LVAR-VALUE (FIRST SB!C::ARG)) ; ; caught STYLE-WARNING: ; undefined function: LVAR-VALUE ; in: DEFUN FIND-KEYWORD-LVAR ; (SB!C::LVAR-VALUE (FIRST SB!C::ARG)) ; ; caught STYLE-WARNING: ; undefined function: LVAR-VALUE ; in: DEFUN ELIMINATE-KEYWORD-ARGS ; (SB!C::LVAR-VALUE SB!C::KEY) ; ; caught STYLE-WARNING: ; undefined function: LVAR-VALUE ; in: DEFUN DELETE-REF ; (SB!C::MAYBE-CONVERT-TO-ASSIGNMENT SB!C::LEAF) ; ; caught STYLE-WARNING: ; undefined function: MAYBE-CONVERT-TO-ASSIGNMENT ; in: DEFUN DELETE-OPTIONAL-DISPATCH ; (SB!C::MAYBE-CONVERT-TO-ASSIGNMENT SB!C::FUN) ; ; caught STYLE-WARNING: ; undefined function: MAYBE-CONVERT-TO-ASSIGNMENT ; in: DEFUN DELETE-REF ; (SB!C::MAYBE-LET-CONVERT SB!C::LEAF) ; ; caught STYLE-WARNING: ; undefined function: MAYBE-LET-CONVERT ; in: DEFUN DELETE-OPTIONAL-DISPATCH ; (SB!C::MAYBE-LET-CONVERT SB!C::FUN) ; ; caught STYLE-WARNING: ; undefined function: MAYBE-LET-CONVERT ; in: DEFUN MAKE-CAST ; (SB!C::MAYBE-WEAKEN-CHECK TYPE SB!C:POLICY) ; ; caught STYLE-WARNING: ; undefined function: MAYBE-WEAKEN-CHECK ; in: DEFUN DELETE-FILTER ; (SB!C::MERGE-TAIL-SETS MERGE) ; ; caught STYLE-WARNING: ; undefined function: MERGE-TAIL-SETS ; in: DEFUN NOTE-SINGLE-VALUIFIED-LVAR ; (SB!C::REOPTIMIZE-COMPONENT (SB!C::NODE-COMPONENT SB!C::NODE) :MAYBE) ; ; caught STYLE-WARNING: ; undefined function: REOPTIMIZE-COMPONENT ; in: DEFUN FLUSH-NODE ; (SB!C::REOPTIMIZE-COMPONENT (SB!C::BLOCK-COMPONENT BLOCK) T) ; ; caught STYLE-WARNING: ; undefined function: REOPTIMIZE-COMPONENT ; in: DEFUN CHANGE-BLOCK-SUCCESSOR ; (SB!C::REOPTIMIZE-COMPONENT (SB!C::BLOCK-COMPONENT BLOCK) :MAYBE) ; ; caught STYLE-WARNING: ; undefined function: REOPTIMIZE-COMPONENT ; in: DEFUN INSERT-CAST-BEFORE ; (SB!C::REOPTIMIZE-LVAR SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: REOPTIMIZE-LVAR ; in: DEFUN SUBSTITUTE-LVAR-USES ; (SB!C::REOPTIMIZE-LVAR SB!C::NEW) ; ; caught STYLE-WARNING: ; undefined function: REOPTIMIZE-LVAR ; in: DEFUN DELETE-LVAR-USE ; (SB!C::REOPTIMIZE-LVAR SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: REOPTIMIZE-LVAR ; ; caught STYLE-WARNING: ; 5 more uses of undefined function REOPTIMIZE-LVAR ; ; compilation unit finished ; Undefined type: ; SB!KERNEL::ARG-COUNT-ERROR ; Undefined functions: ; COMPILER-NOTIFY CONSTANT-LVAR-P DERIVE-NODE-TYPE FIND-ORIGINAL-SOURCE FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE GIVE-UP-IR1-TRANSFORM IR1-OPTIMIZE-CAST LOCALL-ANALYZE-COMPONENT LVAR-VALUE MAYBE-CONVERT-TO-ASSIGNMENT MAYBE-LET-CONVERT MAYBE-WEAKEN-CHECK MERGE-TAIL-SETS REOPTIMIZE-COMPONENT REOPTIMIZE-LVAR ; caught 42 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/ir1util.fasl-tmp written ; compilation finished in 0:00:00.941 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir1report.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DECLAIM (SPECIAL *CURRENT-PATH*)) ; compiling (DEFVAR *ENCLOSING-SOURCE-CUTOFF* ...) ; compiling (DECLAIM (TYPE UNSIGNED-BYTE ...)) ; compiling (DEFSTRUCT (COMPILER-ERROR-CONTEXT # ...) ...) ; compiling (DECLAIM (TYPE # ...)) ; compiling (DEFVAR *COMPILER-ERROR-CONTEXT* ...) ; compiling (DEFVAR *SOURCE-CONTEXT-METHODS* ...) ; compiling (DEFMACRO DEFINE-SOURCE-CONTEXT ...) ; compiling (DEFINE-SOURCE-CONTEXT DEFSTRUCT ...) ; compiling (DEFINE-SOURCE-CONTEXT FUNCTION ...) ; compiling (DEFINE-SOURCE-CONTEXT NAMED-LAMBDA ...) ; compiling (DEFVAR *SOURCE-FORM-CONTEXT-ALIST* ...) ; compiling (DEFUN SOURCE-FORM-CONTEXT ...) ; compiling (DEFUN FIND-ORIGINAL-SOURCE ...) ; compiling (DEFUN STRINGIFY-FORM ...) ; compiling (DEFUN FIND-ERROR-CONTEXT ...) ; compiling (DEFVAR *LAST-ERROR-CONTEXT* ...) ; compiling (DECLAIM (TYPE # ...)) ; compiling (DEFVAR *LAST-FORMAT-STRING* ...) ; compiling (DEFVAR *LAST-FORMAT-ARGS* ...) ; compiling (DECLAIM (TYPE # ...)) ; compiling (DECLAIM (TYPE LIST ...)) ; compiling (DEFVAR *LAST-MESSAGE-COUNT* ...) ; compiling (DECLAIM (TYPE INDEX ...)) ; compiling (DEFUN NOTE-MESSAGE-REPEATS ...) ; compiling (DEFUN PRINT-COMPILER-MESSAGE ...) ; compiling (DEFUN %PRINT-COMPILER-MESSAGE ...) ; compiling (DEFUN PRINT-COMPILER-CONDITION ...) ; compiling (DEFINE-CONDITION COMPILER-NOTE ...) ; compiling (DEFINE-CONDITION SIMPLE-COMPILER-NOTE ...) ; compiling (DEFINE-CONDITION CODE-DELETION-NOTE ...) ; compiling (DEFUN COMPILER-NOTIFY ...) ; compiling (DEFUN MAYBE-COMPILER-NOTIFY ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN COMPILER-MUMBLE ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN FIND-COMPONENT-NAME ...) ; compiling (DEFVAR *COMPILER-ERROR-COUNT*) ; compiling (DEFVAR *COMPILER-WARNING-COUNT*) ; compiling (DEFVAR *COMPILER-STYLE-WARNING-COUNT*) ; compiling (DEFVAR *COMPILER-NOTE-COUNT*) ; compiling (DEFVAR *FAILURE-P*) ; compiling (DEFVAR *WARNINGS-P*) ; compiling (DEFUN COMPILER-ERROR-HANDLER ...) ; compiling (DEFUN COMPILER-WARNING-HANDLER ...) ; compiling (DEFUN COMPILER-STYLE-WARNING-HANDLER ...) ; compiling (DEFVAR *UNDEFINED-WARNING-LIMIT* ...) ; compiling (DEFUN NOTE-UNDEFINED-REFERENCE ...) ; compiling (DEFUN WARN-IF-COMPILER-MACRO-DEPENDENCY-PROBLEM ...) ; compiling (DEFUN WARN-IF-INLINE-FAILED/PROCLAIM ...) ; compiling (DEFUN WARN-IF-INLINE-FAILED/CALL ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir1report.lisp ; in: DEFUN MAYBE-COMPILER-NOTIFY ; (SB!C::WITH-CONDITION (CONDITION SB!C::DATUM SB!C::ARGS) ; (LET ((STREAM *ERROR-OUTPUT*)) ; (PPRINT-LOGICAL-BLOCK (STREAM NIL :PER-LINE-PREFIX ";") ; (FORMAT STREAM " note: ~3I~_") ; (PPRINT-LOGICAL-BLOCK (STREAM NIL) (FORMAT STREAM "~A" CONDITION))) ; (FRESH-LINE STREAM))) ; --> BLOCK LET ; ==> ; (SB!KERNEL:COERCE-TO-CONDITION SB!C::DATUM SB!C::ARGS ; 'SB!INT:SIMPLE-COMPILER-NOTE 'SB!C::WITH-CONDITION) ; ; caught STYLE-WARNING: ; undefined function: COERCE-TO-CONDITION ; in: DEFUN COMPILER-NOTIFY ; (SB!C::WITH-CONDITION (CONDITION SB!C::DATUM SB!C::ARGS) ; (INCF SB!C::*COMPILER-NOTE-COUNT*) ; (SB!C::PRINT-COMPILER-MESSAGE *ERROR-OUTPUT* (FORMAT NIL "note: ~~A") ; (LIST (PRINC-TO-STRING CONDITION)))) ; --> BLOCK LET ; ==> ; (SB!KERNEL:COERCE-TO-CONDITION SB!C::DATUM SB!C::ARGS ; 'SB!INT:SIMPLE-COMPILER-NOTE 'SB!C::WITH-CONDITION) ; ; caught STYLE-WARNING: ; undefined function: COERCE-TO-CONDITION ; ; compilation unit finished ; Undefined function: ; COERCE-TO-CONDITION ; caught 2 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/ir1report.fasl-tmp written ; compilation finished in 0:00:00.282 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir1opt.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN CONSTANT-LVAR-P ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN LVAR-VALUE ...) ; compiling (DECLAIM (INLINE LVAR-DERIVED-TYPE)) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir1opt.lisp ; in: DECLAIM (INLINE LVAR-DERIVED-TYPE) ; (DECLAIM (INLINE SB!C::LVAR-DERIVED-TYPE)) ; --> EVAL-WHEN ; ==> ; (PROCLAIM '(INLINE SB!C::LVAR-DERIVED-TYPE)) ; ; caught STYLE-WARNING: ; Proclaiming SB!C::LVAR-DERIVED-TYPE to be INLINE, but 1 call to it was ; previously compiled. A declaration of NOTINLINE at the call site will eliminate ; this warning, as will proclaiming and defining the function before its first ; potential use. ; compiling (DEFUN LVAR-DERIVED-TYPE ...) ; compiling (DEFUN %LVAR-DERIVED-TYPE ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN LVAR-TYPE ...) ; compiling (DEFUN LVAR-CONSERVATIVE-TYPE ...) ; compiling (DEFUN NODE-CONSERVATIVE-TYPE ...) ; compiling (DEFUN CONSERVATIVE-TYPE ...) ; compiling (DEFUN TYPE-NEEDS-CONSERVATION-P ...) ; compiling (DECLAIM (INLINE LVAR-EXTERNALLY-CHECKABLE-TYPE)) ; compiling (DEFUN LVAR-EXTERNALLY-CHECKABLE-TYPE ...) ; compiling (DEFUN %LVAR-%EXTERNALLY-CHECKABLE-TYPE ...) ; compiling (DECLAIM (INLINE FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE)) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir1opt.lisp ; in: DECLAIM (INLINE FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE) ; (DECLAIM (INLINE SB!C::FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE)) ; --> EVAL-WHEN ; ==> ; (PROCLAIM '(INLINE SB!C::FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE)) ; ; caught STYLE-WARNING: ; Proclaiming SB!C::FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE to be INLINE, but 3 ; calls to it were previously compiled. A declaration of NOTINLINE at the call ; sites will eliminate this warning, as will proclaiming and defining the ; function before its first potential use. ; compiling (DEFUN FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE ...) ; compiling (DECLAIM (INLINE REOPTIMIZE-COMPONENT)) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir1opt.lisp ; in: DECLAIM (INLINE REOPTIMIZE-COMPONENT) ; (DECLAIM (INLINE SB!C::REOPTIMIZE-COMPONENT)) ; --> EVAL-WHEN ; ==> ; (PROCLAIM '(INLINE SB!C::REOPTIMIZE-COMPONENT)) ; ; caught STYLE-WARNING: ; Proclaiming SB!C::REOPTIMIZE-COMPONENT to be INLINE, but 4 calls to it were ; previously compiled. A declaration of NOTINLINE at the call sites will ; eliminate this warning, as will proclaiming and defining the function before ; its first potential use. ; compiling (DEFUN REOPTIMIZE-COMPONENT ...) ; compiling (DEFUN REOPTIMIZE-LVAR ...) ; compiling (DEFUN REOPTIMIZE-LVAR-USES ...) ; compiling (DEFUN DERIVE-NODE-TYPE ...) ; compiling (DEFUN ASSERT-LVAR-TYPE ...) ; compiling (DEFUN IR1-OPTIMIZE ...) ; compiling (DEFUN IR1-OPTIMIZE-BLOCK ...) ; compiling (DEFUN JOIN-SUCCESSOR-IF-POSSIBLE ...) ; compiling (DEFUN JOIN-BLOCKS ...) ; compiling (DEFUN FLUSH-DEAD-CODE ...) ; compiling (DEFUN FIND-RESULT-TYPE ...) ; compiling (DEFUN IR1-OPTIMIZE-RETURN ...) ; compiling (DEFUN CBLOCKS-EQUIVALENT-P ...) ; compiling (DEFUN IR1-OPTIMIZE-IF ...) ; compiling (DEFUN KILL-IF-BRANCH-1 ...) ; compiling (DEFUN TENSION-IF-IF-1 ...) ; compiling (DEFUN DUPLICATE-IF-IF-1 ...) ; compiling (DEFUN CONVERT-IF-IF ...) ; compiling (DEFUN MAYBE-DELETE-EXIT ...) ; compiling (DEFVAR *SHOW-TRANSFORMS-P* ...) ; compiling (DEFUN CHECK-IMPORTANT-RESULT ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN IR1-OPTIMIZE-COMBINATION ...) ; compiling (DEFUN XEP-TAIL-COMBINATION-P ...) ; compiling (DEFUN MAYBE-TERMINATE-BLOCK ...) ; compiling (DEFUN RECOGNIZE-KNOWN-CALL ...) ; compiling (DEFUN VALIDATE-CALL-TYPE ...) ; compiling (DEFUN PROPAGATE-FUN-CHANGE ...) ; compiling (DEFUN RECORD-OPTIMIZATION-FAILURE ...) ; compiling (DEFUN IR1-TRANSFORM ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN GIVE-UP-IR1-TRANSFORM ...) ; compiling (DEFUN ABORT-IR1-TRANSFORM ...) ; compiling (DEFUN DELAY-IR1-TRANSFORM ...) ; compiling (DEFUN RETRY-DELAYED-IR1-TRANSFORMS ...) ; compiling (DEFUN TRANSFORM-CALL ...) ; compiling (DEFUN CONSTANT-FOLD-CALL ...) ; compiling (DEFUN PROPAGATE-TO-REFS ...) ; compiling (DEFUN MAYBE-INFER-ITERATION-VAR-TYPE ...) ; compiling (DEFTRANSFORM + ...) ; compiling (DEFUN PROPAGATE-FROM-SETS ...) ; compiling (DEFUN IR1-OPTIMIZE-SET ...) ; compiling (DEFUN CONSTANT-REFERENCE-P ...) ; compiling (DEFUN SUBSTITUTE-SINGLE-USE-LVAR ...) ; compiling (DEFUN DELETE-LET ...) ; compiling (DEFUN PROPAGATE-LET-ARGS ...) ; compiling (DEFUN PROPAGATE-LOCAL-CALL-ARGS ...) ; compiling (DEFUN IR1-OPTIMIZE-MV-COMBINATION ...) ; compiling (DEFUN IR1-OPTIMIZE-MV-BIND ...) ; compiling (DEFUN IR1-OPTIMIZE-MV-CALL ...) ; compiling (DEFUN CONVERT-MV-BIND-TO-LET ...) ; compiling (DEFOPTIMIZER (VALUES-LIST OPTIMIZER) ...) ; compiling (DEFTRANSFORM VALUES ...) ; compiling (DEFUN DELETE-CAST ...) ; compiling (DEFUN MAY-DELETE-VESTIGIAL-EXIT ...) ; compiling (DEFUN IR1-OPTIMIZE-CAST ...) ; compiling (DEFTRANSFORM MAKE-SYMBOL ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir1opt.lisp ; in: DEFUN IR1-OPTIMIZE-MV-COMBINATION ; (SB!C::CONVERT-CALL-IF-POSSIBLE SB!C::USE SB!C::NODE) ; ; caught STYLE-WARNING: ; undefined function: CONVERT-CALL-IF-POSSIBLE ; in: DEFUN PROPAGATE-FUN-CHANGE ; (SB!C::CONVERT-CALL-IF-POSSIBLE ; (SB!C::LVAR-USES (SB!C::BASIC-COMBINATION-FUN SB!C:CALL)) SB!C:CALL) ; ; caught STYLE-WARNING: ; undefined function: CONVERT-CALL-IF-POSSIBLE ; in: DEFUN IR1-OPTIMIZE-MV-CALL ; (SB!C::LOCALL-ANALYZE-COMPONENT SB!C::*CURRENT-COMPONENT*) ; ; caught STYLE-WARNING: ; undefined function: LOCALL-ANALYZE-COMPONENT ; in: DEFUN TRANSFORM-CALL ; (SB!C::LOCALL-ANALYZE-COMPONENT SB!C::*CURRENT-COMPONENT*) ; ; caught STYLE-WARNING: ; undefined function: LOCALL-ANALYZE-COMPONENT ; in: DEFUN RECOGNIZE-KNOWN-CALL ; (SB!C::LOCALL-ANALYZE-COMPONENT SB!C::*CURRENT-COMPONENT*) ; ; caught STYLE-WARNING: ; undefined function: LOCALL-ANALYZE-COMPONENT ; in: DEFUN FIND-RESULT-TYPE ; (SB!C::MAYBE-CONVERT-TAIL-LOCAL-CALL SB!C::USE) ; ; caught STYLE-WARNING: ; undefined function: MAYBE-CONVERT-TAIL-LOCAL-CALL ; in: DEFUN IR1-OPTIMIZE-MV-COMBINATION ; (SB!C::MAYBE-LET-CONVERT (SB!C::COMBINATION-LAMBDA SB!C::NODE)) ; ; caught STYLE-WARNING: ; undefined function: MAYBE-LET-CONVERT ; in: DEFUN PROPAGATE-FUN-CHANGE ; (SB!C::MAYBE-LET-CONVERT SB!C::FUN) ; ; caught STYLE-WARNING: ; undefined function: MAYBE-LET-CONVERT ; in: DEFUN IR1-OPTIMIZE-CAST ; (SB!C::MERGE-TAIL-SETS SB!C::USE) ; ; caught STYLE-WARNING: ; undefined function: MERGE-TAIL-SETS ; in: DEFUN CONVERT-MV-BIND-TO-LET ; (SB!C::PROPAGATE-TO-ARGS SB!C::USE SB!C::FUN) ; ; caught STYLE-WARNING: ; undefined function: PROPAGATE-TO-ARGS ; (SB!C::REOPTIMIZE-CALL SB!C::USE) ; ; caught STYLE-WARNING: ; undefined function: REOPTIMIZE-CALL ; ; compilation unit finished ; Undefined functions: ; CONVERT-CALL-IF-POSSIBLE LOCALL-ANALYZE-COMPONENT MAYBE-CONVERT-TAIL-LOCAL-CALL MAYBE-LET-CONVERT MERGE-TAIL-SETS PROPAGATE-TO-ARGS REOPTIMIZE-CALL ; caught 14 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/ir1opt.fasl-tmp written ; compilation finished in 0:00:00.656 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/loop.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN FIND-DOMINATORS ...) ; compiling (DEFUN DOMINATES-P ...) ; compiling (DEFUN LOOP-ANALYZE ...) ; compiling (DEFUN FIND-LOOP-BLOCKS ...) ; compiling (DEFUN FIND-BLOCKS-FROM-HERE ...) ; compiling (DEFUN NOTE-LOOP-HEAD ...) ; compiling (DEFUN FIND-SUPERIOR ...) ; compiling (DEFUN FIND-STRANGE-LOOP-BLOCKS ...) ; compiling (DEFUN FIND-STRANGE-LOOP-SEGMENTS ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/loop.fasl-tmp written ; compilation finished in 0:00:00.052 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir1final.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN NOTE-FAILED-OPTIMIZATION ...) ; compiling (DEFUN FINALIZE-XEP-DEFINITION ...) ; compiling (DEFUN NOTE-ASSUMED-TYPES ...) ; compiling (DEFUN IR1-MERGE-CASTS ...) ; compiling (DEFUN IR1-FINALIZE ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/ir1final.fasl-tmp written ; compilation finished in 0:00:00.050 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/array-tran.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN UPGRADED-ELEMENT-TYPE-SPECIFIER-OR-GIVE-UP ...) ; compiling (DEFUN UPGRADED-ELEMENT-TYPE-SPECIFIER ...) ; compiling (DEFUN ARRAY-TYPE-UPGRADED-ELEMENT-TYPE ...) ; compiling (DEFUN ARRAY-TYPE-DECLARED-ELEMENT-TYPE ...) ; compiling (DEFUN ASSERT-NEW-VALUE-TYPE ...) ; compiling (DEFUN UNSUPPLIED-OR-NIL ...) ; compiling (DEFUN SUPPLIED-AND-TRUE ...) ; compiling (DEFUN ASSERT-ARRAY-RANK ...) ; compiling (DEFUN DERIVE-AREF-TYPE ...) ; compiling (DEFOPTIMIZER (ARRAY-IN-BOUNDS-P DERIVE-TYPE) ...) ; compiling (DEFTRANSFORM ARRAY-IN-BOUNDS-P ...) ; compiling (DEFOPTIMIZER (AREF DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (# DERIVE-TYPE) ...) ; compiling (DEFINE HAIRY-DATA-VECTOR-REF) ; compiling (DEFINE HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS) ; compiling (DEFINE DATA-VECTOR-REF) ; compiling (DEFOPTIMIZER (DATA-VECTOR-REF-WITH-OFFSET DERIVE-TYPE) ...) ; compiling (DEFINE HAIRY-DATA-VECTOR-SET) ; compiling (DEFINE HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS) ; compiling (DEFINE DATA-VECTOR-SET) ; compiling (DEFOPTIMIZER (DATA-VECTOR-SET-WITH-OFFSET DERIVE-TYPE) ...) ; compiling (DEFUN DERIVE-%WITH-ARRAY-DATA/MUMBLE-TYPE ...) ; compiling (DEFOPTIMIZER (%WITH-ARRAY-DATA DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (%WITH-ARRAY-DATA/FP DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (ARRAY-ROW-MAJOR-INDEX DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (ROW-MAJOR-AREF DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (%SET-ROW-MAJOR-AREF DERIVE-TYPE) ...) ; compiling (DEFUN DERIVE-MAKE-ARRAY-TYPE ...) ; compiling (DEFOPTIMIZER (MAKE-ARRAY DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (%MAKE-ARRAY DERIVE-TYPE) ...) ; compiling (DEFINE-SOURCE-TRANSFORM VECTOR ...) ; compiling (DEFTRANSFORM MAKE-STRING ...) ; compiling (DEFUN REWRITE-INITIAL-CONTENTS ...) ; compiling (DEFINE-SOURCE-TRANSFORM MAKE-ARRAY ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/array-tran.lisp ; in: DEFINE-SOURCE-TRANSFORM MAKE-ARRAY ; (VALUES SB!C::DIMENSIONS (LENGTH (CDR SB!C::DIMENSIONS))) ; ==> ; SB!C::DIMENSIONS ; ; note: deleting unreachable code ; compiling (DEFINE-SOURCE-TRANSFORM COERCE ...) ; compiling (DEFUN TRANSFORM-MAKE-ARRAY-VECTOR ...) ; compiling (DEFTRANSFORM MAKE-ARRAY ...) ; compiling (DEFTRANSFORM MAKE-ARRAY ...) ; compiling (DEFTRANSFORM MAKE-ARRAY ...) ; compiling (DEFUN ARRAY-TYPE-DIMENSIONS-OR-GIVE-UP ...) ; compiling (DEFUN CONSERVATIVE-ARRAY-TYPE-COMPLEXP ...) ; compiling (DEFTRANSFORM ARRAY-RANK ...) ; compiling (DEFUN DERIVE-ARRAY-RANK ...) ; compiling (DEFOPTIMIZER (ARRAY-RANK DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (%ARRAY-RANK DERIVE-TYPE) ...) ; compiling (DEFTRANSFORM ARRAY-DIMENSION ...) ; compiling (DEFTRANSFORM LENGTH ...) ; compiling (DEFTRANSFORM LENGTH ...) ; compiling (DEFTRANSFORM VECTOR-LENGTH ...) ; compiling (DEFTRANSFORM ARRAY-TOTAL-SIZE ...) ; compiling (DEFTRANSFORM ARRAY-HAS-FILL-POINTER-P ...) ; compiling (DEFTRANSFORM %CHECK-BOUND ...) ; compiling (DEF!MACRO WITH-ARRAY-DATA ...) ; compiling (DEF!MACRO %WITH-ARRAY-DATA-MACRO ...) ; compiling (DEFUN TRANSFORM-%WITH-ARRAY-DATA/MUMBLE ...) ; compiling (DEFTRANSFORM %WITH-ARRAY-DATA ...) ; compiling (DEFTRANSFORM %WITH-ARRAY-DATA/FP ...) ; compiling (DEFINE-BIT-FROB SBIT ...) ; compiling (DEFINE-BIT-FROB BIT ...) ; compiling (DEFINE-FROB SCHAR ...) ; compiling (DEFINE-FROB CHAR ...) ; compiling (DEFINE-SOURCE-TRANSFORM SVREF ...) ; compiling (DEFINE-SOURCE-TRANSFORM %SVSET ...) ; compiling (DEFTRANSFORM ARRAY-ROW-MAJOR-INDEX ...) ; compiling (DEFTRANSFORM AREF ...) ; compiling (DEFTRANSFORM (SETF AREF) ...) ; compiling (DEFTRANSFORM AREF ...) ; compiling (DEFTRANSFORM (SETF AREF) ...) ; compiling (DEFINE HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ...) ; compiling (DEFINE HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS ...) ; compiling (DEFTRANSFORM ROW-MAJOR-AREF ...) ; compiling (DEFTRANSFORM %SET-ROW-MAJOR-AREF ...) ; compiling (DEF BIT-AND) ; compiling (DEF BIT-IOR) ; compiling (DEF BIT-XOR) ; compiling (DEF BIT-EQV) ; compiling (DEF BIT-NAND) ; compiling (DEF BIT-NOR) ; compiling (DEF BIT-ANDC1) ; compiling (DEF BIT-ANDC2) ; compiling (DEF BIT-ORC1) ; compiling (DEF BIT-ORC2) ; compiling (DEFTRANSFORM BIT-NOT ...) ; compiling (DEFTRANSFORM BIT-NOT ...) ; compiling (DEFOPTIMIZER (ARRAY-HEADER-P DERIVE-TYPE) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/array-tran.lisp ; in: DEFTRANSFORM ARRAY-IN-BOUNDS-P ; (SB!C::INTEGER-TYPE-P SB!C::TYPE2) ; ; caught STYLE-WARNING: ; undefined function: INTEGER-TYPE-P ; in: DEFUN REWRITE-INITIAL-CONTENTS ; (SB-XC:MACROEXPAND SB!C::DATA SB!C::ENV) ; ; caught STYLE-WARNING: ; undefined function: SB-XC:MACROEXPAND ; in: DEFINE-SOURCE-TRANSFORM COERCE ; (SB!INT:QUASIQUOTE ; (MAKE-ARRAY #S(SB!IMPL::COMMA :EXPR LENGTH :KIND 0) :ELEMENT-TYPE ; '#S(SB!IMPL::COMMA ; :EXPR (IF SB!C::STRING-P ; 'CHARACTER ; (NTH-VALUE 1 #)) ; :KIND 0) ; :INITIAL-CONTENTS #S(SB!IMPL::COMMA :EXPR SB!C::X :KIND 0))) ; --> SB!IMPL::|List| SB!IMPL::|List| IF NTH-VALUE MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL ; ==> ; (SB!C::SIMPLIFY-VECTOR-TYPE SB!KERNEL:CTYPE) ; ; caught STYLE-WARNING: ; undefined function: SIMPLIFY-VECTOR-TYPE ; in: DEFTRANSFORM ARRAY-IN-BOUNDS-P ; (SB!C::WEAKEN-INTEGER-TYPE SB!C::TYPE1 :RANGE-ONLY T) ; ; caught STYLE-WARNING: ; undefined function: WEAKEN-INTEGER-TYPE ; ; compilation unit finished ; Undefined functions: ; INTEGER-TYPE-P SB-XC:MACROEXPAND SIMPLIFY-VECTOR-TYPE WEAKEN-INTEGER-TYPE ; caught 4 STYLE-WARNING conditions ; printed 1 note ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/array-tran.fasl-tmp written ; compilation finished in 0:00:00.613 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/seqtran.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN MAPFOO-TRANSFORM ...) ; compiling (DEFINE-SOURCE-TRANSFORM MAPC ...) ; compiling (DEFINE-SOURCE-TRANSFORM MAPCAR ...) ; compiling (DEFINE-SOURCE-TRANSFORM MAPCAN ...) ; compiling (DEFINE-SOURCE-TRANSFORM MAPL ...) ; compiling (DEFINE-SOURCE-TRANSFORM MAPLIST ...) ; compiling (DEFINE-SOURCE-TRANSFORM MAPCON ...) ; compiling (DEFTRANSFORM MAP ...) ; compiling (DEFUN BUILD-SEQUENCE-ITERATOR ...) ; compiling (DEFTRANSFORM %MAP ...) ; compiling (DEFTRANSFORM MAP-INTO ...) ; compiling (DEFTRANSFORM ELT ...) ; compiling (DEFTRANSFORM ELT ...) ; compiling (DEFTRANSFORM %SETELT ...) ; compiling (DEFTRANSFORM %SETELT ...) ; compiling (DEFTRANSFORM %CHECK-VECTOR-SEQUENCE-BOUNDS ...) ; compiling (DEF!TYPE EQ-COMPARABLE-TYPE ...) ; compiling (DEFUN EQ-COMPARABLE-TYPE-P ...) ; compiling (DEFUN SPECIALIZED-LIST-SEEK-FUNCTION-NAME ...) ; compiling (DEFPARAMETER *LIST-OPEN-CODE-LIMIT* ...) ; compiling (DEFUN TRANSFORM-LIST-ITEM-SEEK ...) ; compiling (DEFUN TRANSFORM-LIST-PRED-SEEK ...) ; compiling (DEF ADJOIN) ; compiling (DEF ASSOC ...) ; compiling (DEF MEMBER ...) ; compiling (DEF RASSOC ...) ; compiling (DEFTRANSFORM MEMQ ...) ; compiling (DEFTRANSFORM DELETE ...) ; compiling (DEFTRANSFORM DELETE-IF ...) ; compiling (DEFTRANSFORM FILL ...) ; compiling (DEFTRANSFORM FILL ...) ; compiling (DEFTRANSFORM FILL ...) ; compiling (DEF STRING< ...) ; compiling (DEF STRING> ...) ; compiling (DEF STRING<= ...) ; compiling (DEF STRING>= ...) ; compiling (DEF STRING= ...) ; compiling (DEF STRING/= ...) ; compiling (DEF STRING<* ...) ; compiling (DEF STRING<=* ...) ; compiling (DEF STRING>* ...) ; compiling (DEF STRING>=* ...) ; compiling (DEFTRANSFORM STRING=* ...) ; compiling (DEFTRANSFORM STRING/=* ...) ; compiling (DEF STRING=* ...) ; compiling (DEF STRING/=* ...) ; compiling (DEFTRANSFORM STRING/=* ...) ; compiling (DEFTRANSFORM STRING ...) ; compiling (DEF!CONSTANT VECTOR-DATA-BIT-OFFSET ...) ; compiling (DEFUN MAKE-REPLACE-TRANSFORM ...) ; compiling (DEFINE-REPLACE-TRANSFORMS) ; compiling (DEFINE-ONE-TRANSFORM (SIMPLE-ARRAY BASE-CHAR ...) ...) ; compiling (DEFINE-ONE-TRANSFORM (SIMPLE-ARRAY CHARACTER ...) ...) ; compiling (DEFUN FROB-BASH-TRANSFORM ...) ; compiling (DEFTRANSFORM UB1-BASH-COPY ...) ; compiling (DEFTRANSFORM UB2-BASH-COPY ...) ; compiling (DEFTRANSFORM UB4-BASH-COPY ...) ; compiling (DEFTRANSFORM UB8-BASH-COPY ...) ; compiling (DEFTRANSFORM UB16-BASH-COPY ...) ; compiling (DEFTRANSFORM UB32-BASH-COPY ...) ; compiling (DEFUN INLINEABLE-COPY-VECTOR-P ...) ; compiling (DEFUN MAYBE-EXPAND-COPY-LOOP-INLINE ...) ; compiling (DEFUN EXPAND-AREF-COPY-LOOP ...) ; compiling (DEFTRANSFORM MAKE-SEQUENCE ...) ; compiling (DEFTRANSFORM SUBSEQ ...) ; compiling (DEFTRANSFORM SUBSEQ ...) ; compiling (DEFTRANSFORM SUBSEQ ...) ; compiling (DEFTRANSFORM COPY-SEQ ...) ; compiling (DEFTRANSFORM COPY-SEQ ...) ; compiling (DEFTRANSFORM COPY-SEQ ...) ; compiling (DEFTRANSFORM SEARCH ...) ; compiling (DEFVAR *CONCATENATE-OPEN-CODE-LIMIT* ...) ; compiling (DEFTRANSFORM CONCATENATE ...) ; compiling (DEFOPTIMIZER (CAR DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (CDR DERIVE-TYPE) ...) ; compiling (DEFUN CHECK-INLINEABILITY-OF-FIND-POSITION-IF ...) ; compiling (DEFUN %FIND/POSITION-IF-LIST-EXPANSION ...) ; compiling (DEF %FIND-POSITION-IF ...) ; compiling (DEF %FIND-POSITION-IF-NOT ...) ; compiling (DEFTRANSFORM %FIND-POSITION ...) ; compiling (DEFUN %FIND-POSITION-OR-FIND-POSITION-IF-VECTOR-EXPANSION ...) ; compiling (DEF!MACRO %FIND-POSITION-VECTOR-MACRO ...) ; compiling (DEF!MACRO %FIND-POSITION-IF-VECTOR-MACRO ...) ; compiling (DEF!MACRO %FIND-POSITION-IF-NOT-VECTOR-MACRO ...) ; compiling (DEFTRANSFORM %FIND-POSITION-IF ...) ; compiling (DEFTRANSFORM %FIND-POSITION-IF-NOT ...) ; compiling (DEFTRANSFORM %FIND-POSITION ...) ; compiling (DEFTRANSFORM %FIND-POSITION ...) ; compiling (DEFTRANSFORM %FIND-POSITION ...) ; compiling (DEFINE-SOURCE-TRANSFORM EFFECTIVE-FIND-POSITION-TEST ...) ; compiling (DEFINE-SOURCE-TRANSFORM EFFECTIVE-FIND-POSITION-KEY ...) ; compiling (DEFINE-FIND-POSITION FIND ...) ; compiling (DEFINE-FIND-POSITION POSITION ...) ; compiling (DEFINE-FIND-POSITION-IF FIND-IF ...) ; compiling (DEFINE-FIND-POSITION-IF POSITION-IF ...) ; compiling (DEFINE-FIND-POSITION-IF-NOT FIND-IF-NOT ...) ; compiling (DEFINE-FIND-POSITION-IF-NOT POSITION-IF-NOT ...) ; compiling (DEFINE-TRIMMER-TRANSFORM STRING-LEFT-TRIM ...) ; compiling (DEFINE-TRIMMER-TRANSFORM STRING-RIGHT-TRIM ...) ; compiling (DEFINE-TRIMMER-TRANSFORM STRING-TRIM ...) ; compiling (DEFUN TRANSFORM-BACKQ-LIST-OR-LIST* ...) ; compiling (DEFTRANSFORM SB!IMPL::|List| ...) ; compiling (DEFTRANSFORM SB!IMPL::|List*| ...) ; compiling (DEFTRANSFORM SB!IMPL::|Append| ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/seqtran.lisp ; in: DEFUN MAPFOO-TRANSFORM ; (SB!INT:FUNARG-BIND/CALL-FORMS SB!C::FN (SB!C::ARGS-TO-FN)) ; ; caught STYLE-WARNING: ; undefined function: FUNARG-BIND/CALL-FORMS ; in: DEFTRANSFORM FILL ; (SB!C::INTEGER-TYPE-P SB!C::ELEMENT-CTYPE) ; ; caught STYLE-WARNING: ; undefined function: INTEGER-TYPE-P ; ; compilation unit finished ; Undefined functions: ; FUNARG-BIND/CALL-FORMS INTEGER-TYPE-P ; caught 2 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/seqtran.fasl-tmp written ; compilation finished in 0:00:00.673 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/typetran.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFMACRO DEFINE-TYPE-PREDICATE ...) ; compiling (DEFUN %DEFINE-TYPE-PREDICATE ...) ; compiling (DEFTRANSFORM TYPEP ...) ; compiling (DEFUN IR1-TRANSFORM-TYPE-PREDICATE ...) ; compiling (DEFTRANSFORM %TYPEP ...) ; compiling (DEFTRANSFORM FOLD-TYPE-PREDICATE ...) ; compiling (DEFTRANSFORM FIND-CLASSOID ...) ; compiling (DEFOPTIMIZER (%TYPEP-WRAPPER CONSTRAINT-PROPAGATE-IF) ...) ; compiling (DEFTRANSFORM %TYPEP-WRAPPER ...) ; compiling (DEFUN !DEFINE-STANDARD-TYPE-PREDICATES ...) ; compiling (!DEFINE-STANDARD-TYPE-PREDICATES) ; compiling (DEFINE-SOURCE-TRANSFORM ATOM ...) ; compiling (DEFINE-SOURCE-TRANSFORM BASE-CHAR-P ...) ; compiling (DEFTRANSFORM CONSP ...) ; compiling (DEFUN TRANSFORM-NUMERIC-BOUND-TEST ...) ; compiling (DEFUN SOURCE-TRANSFORM-NUMERIC-TYPEP ...) ; compiling (DEFUN SOURCE-TRANSFORM-HAIRY-TYPEP ...) ; compiling (DEFUN SOURCE-TRANSFORM-NEGATION-TYPEP ...) ; compiling (DEFUN SOURCE-TRANSFORM-UNION-TYPEP ...) ; compiling (DEFUN SOURCE-TRANSFORM-INTERSECTION-TYPEP ...) ; compiling (DEFUN SOURCE-TRANSFORM-CONS-TYPEP ...) ; compiling (DEFUN SOURCE-TRANSFORM-CHARACTER-SET-TYPEP ...) ; compiling (DEFUN FIND-SUPERTYPE-PREDICATE ...) ; compiling (DEFUN TEST-ARRAY-DIMENSIONS ...) ; compiling (DEFUN TEST-ARRAY-ELEMENT-TYPE ...) ; compiling (DEFUN SOURCE-TRANSFORM-ARRAY-TYPEP ...) ; compiling (DEFTRANSFORM %INSTANCE-TYPEP ...) ; compiling (DEFUN %SOURCE-TRANSFORM-TYPEP ...) ; compiling (DEFUN SOURCE-TRANSFORM-TYPEP ...) ; compiling (DEFINE-SOURCE-TRANSFORM TYPEP ...) ; compiling (DEFUN SIMPLIFY-VECTOR-TYPE ...) ; compiling (DEFTRANSFORM COERCE ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/typetran.fasl-tmp written ; compilation finished in 0:00:00.158 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/vm-typetran.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFINE-TYPE-PREDICATE BASE-STRING-P ...) ; compiling (DEFINE-TYPE-PREDICATE BIGNUMP ...) ; compiling (DEFINE-TYPE-PREDICATE CHARACTER-STRING-P ...) ; compiling (DEFINE-TYPE-PREDICATE COMPLEX-DOUBLE-FLOAT-P ...) ; compiling (DEFINE-TYPE-PREDICATE COMPLEX-SINGLE-FLOAT-P ...) ; compiling (DEFINE-TYPE-PREDICATE DOUBLE-FLOAT-P ...) ; compiling (DEFINE-TYPE-PREDICATE FIXNUMP ...) ; compiling (DEFINE-TYPE-PREDICATE LONG-FLOAT-P ...) ; compiling (DEFINE-TYPE-PREDICATE RATIOP ...) ; compiling (DEFINE-TYPE-PREDICATE SHORT-FLOAT-P ...) ; compiling (DEFINE-TYPE-PREDICATE SINGLE-FLOAT-P ...) ; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-P ...) ; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-NIL-P ...) ; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-BYTE-2-P ...) ; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-BYTE-4-P ...) ; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-BYTE-7-P ...) ; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-BYTE-8-P ...) ; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-BYTE-15-P ...) ; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-BYTE-16-P ...) ; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-FIXNUM-P ...) ; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-BYTE-31-P ...) ; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-BYTE-32-P ...) ; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-SIGNED-BYTE-8-P ...) ; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-SIGNED-BYTE-16-P ...) ; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-FIXNUM-P ...) ; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-SIGNED-BYTE-32-P ...) ; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-SINGLE-FLOAT-P ...) ; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-DOUBLE-FLOAT-P ...) ; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT-P ...) ; compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT-P ...) ; compiling (DEFINE-TYPE-PREDICATE SIMPLE-BASE-STRING-P ...) ; compiling (DEFINE-TYPE-PREDICATE SIMPLE-CHARACTER-STRING-P ...) ; compiling (DEFINE-TYPE-PREDICATE SYSTEM-AREA-POINTER-P ...) ; compiling (DEFINE-TYPE-PREDICATE UNSIGNED-BYTE-32-P ...) ; compiling (DEFINE-TYPE-PREDICATE SIGNED-BYTE-32-P ...) ; compiling (DEFINE-TYPE-PREDICATE VECTOR-NIL-P ...) ; compiling (DEFINE-TYPE-PREDICATE WEAK-POINTER-P ...) ; compiling (DEFINE-TYPE-PREDICATE CODE-COMPONENT-P ...) ; compiling (DEFINE-TYPE-PREDICATE LRA-P ...) ; compiling (DEFINE-TYPE-PREDICATE FDEFN-P ...) ; compiling (DEF) ; compiling (DEFINE-TYPE-PREDICATE %STANDARD-CHAR-P ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/generic/vm-typetran.fasl-tmp written ; compilation finished in 0:00:00.007 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/float-tran.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFKNOWN %SINGLE-FLOAT ...) ; compiling (DEFKNOWN %DOUBLE-FLOAT ...) ; compiling (DEFTRANSFORM FLOAT ...) ; compiling (DEFTRANSFORM FLOAT ...) ; compiling (DEFTRANSFORM FLOAT ...) ; compiling (DEFTRANSFORM %SINGLE-FLOAT ...) ; compiling (DEFTRANSFORM %DOUBLE-FLOAT ...) ; compiling (FROB %RANDOM-SINGLE-FLOAT ...) ; compiling (FROB %RANDOM-DOUBLE-FLOAT ...) ; compiling (DEFUN GENERATE-RANDOM-EXPR-FOR-POWER-OF-2 ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/float-tran.lisp ; in: DEFUN GENERATE-RANDOM-EXPR-FOR-POWER-OF-2 ; (<= SB!C::N-BITS (* 2 SB!KERNEL:N-RANDOM-CHUNK-BITS)) ; ==> ; SB!C::N-BITS ; ; note: deleting unreachable code ; (* 2 SB!KERNEL:N-RANDOM-CHUNK-BITS) ; ==> ; SB!KERNEL:N-RANDOM-CHUNK-BITS ; ; note: deleting unreachable code ; (ERROR "Unexpectedly small N-RANDOM-CHUNK-BITS") ; ==> ; "Unexpectedly small N-RANDOM-CHUNK-BITS" ; ; note: deleting unreachable code ; compiling (DEFTRANSFORM RANDOM ...) ; compiling (DEFKNOWN MAKE-SINGLE-FLOAT ...) ; compiling (DEFKNOWN MAKE-DOUBLE-FLOAT ...) ; compiling (DEFKNOWN SINGLE-FLOAT-BITS ...) ; compiling (DEFKNOWN DOUBLE-FLOAT-HIGH-BITS ...) ; compiling (DEFKNOWN DOUBLE-FLOAT-LOW-BITS ...) ; compiling (DEFTRANSFORM FLOAT-SIGN ...) ; compiling (DEFTRANSFORM FLOAT-SIGN ...) ; compiling (DEFKNOWN DECODE-SINGLE-FLOAT ...) ; compiling (DEFKNOWN DECODE-DOUBLE-FLOAT ...) ; compiling (DEFKNOWN INTEGER-DECODE-SINGLE-FLOAT ...) ; compiling (DEFKNOWN INTEGER-DECODE-DOUBLE-FLOAT ...) ; compiling (DEFKNOWN SCALE-SINGLE-FLOAT ...) ; compiling (DEFKNOWN SCALE-DOUBLE-FLOAT ...) ; compiling (DEFTRANSFORM DECODE-FLOAT ...) ; compiling (DEFTRANSFORM DECODE-FLOAT ...) ; compiling (DEFTRANSFORM INTEGER-DECODE-FLOAT ...) ; compiling (DEFTRANSFORM INTEGER-DECODE-FLOAT ...) ; compiling (DEFTRANSFORM SCALE-FLOAT ...) ; compiling (DEFTRANSFORM SCALE-FLOAT ...) ; compiling (DEFUN SAFE-CTYPE-FOR-SINGLE-COERCION-P ...) ; compiling (DEFTRANSFORM FLOAT-CONTAGION-ARG1 ...) ; compiling (DEFTRANSFORM FLOAT-CONTAGION-ARG2 ...) ; compiling (DOLIST (X #) ...) ; compiling (DOLIST (X #) ...) ; compiling (DEF SINGLE-FLOAT ...) ; compiling (DEF DOUBLE-FLOAT ...) ; compiling (DEFUN MAYBE-EXACT-RECIPROCAL ...) ; compiling (DEF SINGLE-FLOAT) ; compiling (DEF DOUBLE-FLOAT) ; compiling (DEF + ...) ; compiling (DEF - ...) ; compiling (DEF + ...) ; compiling (DEF - ...) ; compiling (DEF SINGLE-FLOAT ...) ; compiling (DEF DOUBLE-FLOAT ...) ; compiling (FROB <) ; compiling (FROB >) ; compiling (FROB =) ; compiling (DOLIST (STUFF #) ...) ; compiling (DEFOPTIMIZER (LOG DERIVE-TYPE) ...) ; compiling (DEFKNOWN (%TAN %SINH ...) ...) ; compiling (DEFKNOWN (%SIN %COS ...) ...) ; compiling (DEFKNOWN (%ASIN %ATAN) ...) ; compiling (DEFKNOWN (%ACOS) ...) ; compiling (DEFKNOWN (%COSH) ...) ; compiling (DEFKNOWN (%ACOSH %EXP ...) ...) ; compiling (DEFKNOWN %EXPM1 ...) ; compiling (DEFKNOWN (%HYPOT) ...) ; compiling (DEFKNOWN (%POW) ...) ; compiling (DEFKNOWN (%ATAN2) ...) ; compiling (DEFKNOWN (%SCALB) ...) ; compiling (DEFKNOWN (%SCALBN) ...) ; compiling (DEFKNOWN (%LOG1P) ...) ; compiling (DEF EXP ...) ; compiling (DEF LOG ...) ; compiling (DEF SQRT ...) ; compiling (DEF ASIN ...) ; compiling (DEF ACOS ...) ; compiling (DEF ATAN ...) ; compiling (DEF SINH ...) ; compiling (DEF COSH ...) ; compiling (DEF TANH ...) ; compiling (DEF ASINH ...) ; compiling (DEF ACOSH ...) ; compiling (DEF ATANH ...) ; compiling (DEF SIN ...) ; compiling (DEF COS ...) ; compiling (DEF TAN ...) ; compiling (DEFTRANSFORM ATAN ...) ; compiling (DEFTRANSFORM ATAN ...) ; compiling (DEFTRANSFORM EXPT ...) ; compiling (DEFTRANSFORM EXPT ...) ; compiling (DEFTRANSFORM EXPT ...) ; compiling (DEFTRANSFORM EXPT ...) ; compiling (DEFTRANSFORM LOG ...) ; compiling (DEFTRANSFORM ABS ...) ; compiling (DEFTRANSFORM ABS ...) ; compiling (DEFTRANSFORM PHASE ...) ; compiling (DEFTRANSFORM PHASE ...) ; compiling (DEFTRANSFORM PHASE ...) ; compiling (DEFUN NUMERIC-TYPE-REAL-P ...) ; compiling (DEFUN COERCE-NUMERIC-BOUND ...) ; compiling (DEFTRANSFORM REALPART ...) ; compiling (DEFTRANSFORM IMAGPART ...) ; compiling (DEFUN REALPART-DERIVE-TYPE-AUX ...) ; compiling (DEFOPTIMIZER (REALPART DERIVE-TYPE) ...) ; compiling (DEFUN IMAGPART-DERIVE-TYPE-AUX ...) ; compiling (DEFOPTIMIZER (IMAGPART DERIVE-TYPE) ...) ; compiling (DEFUN COMPLEX-DERIVE-TYPE-AUX-1 ...) ; compiling (DEFUN COMPLEX-DERIVE-TYPE-AUX-2 ...) ; compiling (FROB SINGLE-FLOAT) ; compiling (FROB DOUBLE-FLOAT) ; compiling (DEFINE-FROBS TRUNCATE ...) ; compiling (DEFINE-FROBS ROUND ...) ; compiling (DEFTRANSFORM %UNARY-TRUNCATE ...) ; compiling (DEFTRANSFORM %UNARY-TRUNCATE ...) ; compiling (DEF SINGLE-FLOAT ...) ; compiling (DEF DOUBLE-FLOAT ...) ; compiling (DEFKNOWN %UNARY-FTRUNCATE ...) ; compiling (DEFKNOWN %UNARY-FTRUNCATE/SINGLE ...) ; compiling (DEFKNOWN %UNARY-FTRUNCATE/DOUBLE ...) ; compiling (DEFUN %UNARY-FTRUNCATE/SINGLE ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/float-tran.lisp ; in: DEFUN %UNARY-FTRUNCATE/SINGLE ; (- EXP SB!VM:SINGLE-FLOAT-BIAS) ; ; 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). ; (= EXP SB!VM:SINGLE-FLOAT-NORMAL-EXPONENT-MAX) ; ; 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 ; 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. ; (- (FLOAT-DIGITS SB!C::X) SB!C::BIASED) ; ; note: unable to ; optimize ; due to type uncertainty: ; can't tell whether the second argument is a (COMPLEX SINGLE-FLOAT) ; ; note: unable to ; optimize ; due to type uncertainty: ; can't tell whether the second argument is a (COMPLEX DOUBLE-FLOAT) ; (<= SB!C::BIASED 0) ; --> OR LET < IF ; ==> ; (< SB-C::X SB-C::Y) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> OR LET IF OR THE = IF ; ==> ; (= SB-C::X SB-C::Y) ; ; 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 ; 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. ; (>= SB!C::BIASED (FLOAT-DIGITS SB!C::X)) ; --> OR LET > IF ; ==> ; (> SB-C::X SB-C::Y) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> OR LET IF OR THE = IF ; ==> ; (= SB-C::X SB-C::Y) ; ; 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 ; 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. ; (- EXP SB!VM:SINGLE-FLOAT-BIAS) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; can't tell whether the result is a (VALUES FIXNUM &REST T) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; can't tell whether the result is a (VALUES FIXNUM &REST T) ; etc. ; (<= SB!C::BIASED 0) ; --> OR LET < IF ; ==> ; (< SB-C::X SB-C::Y) ; ; 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. ; (>= SB!C::BIASED (FLOAT-DIGITS SB!C::X)) ; --> OR LET > IF ; ==> ; (> SB-C::X SB-C::Y) ; ; 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. ; (- (FLOAT-DIGITS SB!C::X) SB!C::BIASED) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; can't tell whether the second argument is a FIXNUM ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 32) arithmetic (cost 5) because: ; can't tell whether the second argument is a (SIGNED-BYTE 32) ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32) ; &REST T). ; etc. ; (ASH 1 SB!C::FRAC-BITS) ; ; note: forced to do full call ; unable to do inline ASH (cost 3) because: ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 29). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 29). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; (- (ASH 1 SB!C::FRAC-BITS) 1) ; ; 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 -1) &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 -1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; (LOGANDC2 SB!C::BITS (- (ASH 1 SB!C::FRAC-BITS) 1)) ; --> LOGAND ; ==> ; (LOGNOT (- (ASH 1 SB!C::FRAC-BITS) 1)) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -1), not a FIXNUM. ; The result is a (VALUES (INTEGER * 0) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 32) arithmetic (cost 2) because: ; The first argument is a (INTEGER -1), not a (SIGNED-BYTE 32). ; The result is a (VALUES (INTEGER * 0) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 32) ; &REST T). ; ==> ; (LOGAND SB!C::BITS (LOGNOT (- (ASH 1 SB!C::FRAC-BITS) 1))) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (SIGNED-BYTE 32), not a FIXNUM. ; The second argument is a (INTEGER * 0), not a FIXNUM. ; The result is a (VALUES (SIGNED-BYTE 32) &OPTIONAL), not a (VALUES FIXNUM ; &REST ; T). ; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because: ; The first argument is a (SIGNED-BYTE 32), not a (UNSIGNED-BYTE 32). ; The second argument is a (INTEGER * 0), not a (SIGNED-BYTE 32). ; The result is a (VALUES (SIGNED-BYTE 32) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; (* SB!C::X 0.0) ; ; note: doing float to pointer coercion (cost 13) to "", for: ; the first result of inline float arithmetic ; compiling (DEFUN %UNARY-FTRUNCATE/DOUBLE ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/float-tran.lisp ; in: DEFUN %UNARY-FTRUNCATE/DOUBLE ; (- EXP SB!VM:DOUBLE-FLOAT-BIAS) ; ; 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). ; (= EXP SB!VM:DOUBLE-FLOAT-NORMAL-EXPONENT-MAX) ; ; 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 ; 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. ; (- (FLOAT-DIGITS SB!C::X) SB!C::BIASED) ; ; note: unable to ; optimize ; due to type uncertainty: ; can't tell whether the second argument is a (COMPLEX SINGLE-FLOAT) ; ; note: unable to ; optimize ; due to type uncertainty: ; can't tell whether the second argument is a (COMPLEX DOUBLE-FLOAT) ; (< SB!C::FRAC-BITS 32) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (<= SB!C::BIASED 0) ; --> OR LET < IF ; ==> ; (< SB-C::X SB-C::Y) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> OR LET IF OR THE = IF ; ==> ; (= SB-C::X SB-C::Y) ; ; 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 ; 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. ; (>= SB!C::BIASED (FLOAT-DIGITS SB!C::X)) ; --> OR LET > IF ; ==> ; (> SB-C::X SB-C::Y) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> OR LET IF OR THE = IF ; ==> ; (= SB-C::X SB-C::Y) ; ; 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 ; 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. ; (- EXP SB!VM:DOUBLE-FLOAT-BIAS) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; can't tell whether the result is a (VALUES FIXNUM &REST T) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; can't tell whether the result is a (VALUES FIXNUM &REST T) ; etc. ; (<= SB!C::BIASED 0) ; --> OR LET < IF ; ==> ; (< SB-C::X SB-C::Y) ; ; 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. ; (>= SB!C::BIASED (FLOAT-DIGITS SB!C::X)) ; --> OR LET > IF ; ==> ; (> SB-C::X SB-C::Y) ; ; 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. ; (- (FLOAT-DIGITS SB!C::X) SB!C::BIASED) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; can't tell whether the second argument is a FIXNUM ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 32) arithmetic (cost 5) because: ; can't tell whether the second argument is a (SIGNED-BYTE 32) ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32) ; &REST T). ; etc. ; (< SB!C::FRAC-BITS 32) ; ; 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. ; (- SB!C::FRAC-BITS 32) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a REAL, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (ASH 1 (- SB!C::FRAC-BITS 32)) ; ; note: forced to do full call ; unable to do inline ASH (cost 3) because: ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 29). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 29). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; (- (ASH 1 (- SB!C::FRAC-BITS 32)) 1) ; ; 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 -1) &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 -1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; (LOGANDC2 SB!C::HIGH (- (ASH 1 (- SB!C::FRAC-BITS 32)) 1)) ; --> LOGAND ; ==> ; (LOGNOT (- (ASH 1 (- SB!C::FRAC-BITS 32)) 1)) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -1), not a FIXNUM. ; The result is a (VALUES (INTEGER * 0) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline (signed-byte 32) arithmetic (cost 2) because: ; The first argument is a (INTEGER -1), not a (SIGNED-BYTE 32). ; The result is a (VALUES (INTEGER * 0) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 32) ; &REST T). ; ==> ; (LOGAND SB!C::HIGH (LOGNOT (- (ASH 1 (- SB!C::FRAC-BITS 32)) 1))) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (SIGNED-BYTE 32), not a FIXNUM. ; The second argument is a (INTEGER * 0), not a FIXNUM. ; The result is a (VALUES (SIGNED-BYTE 32) &OPTIONAL), not a (VALUES FIXNUM ; &REST ; T). ; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because: ; The first argument is a (SIGNED-BYTE 32), not a (UNSIGNED-BYTE 32). ; The second argument is a (INTEGER * 0), not a (SIGNED-BYTE 32). ; The result is a (VALUES (SIGNED-BYTE 32) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; (ASH 1 SB!C::FRAC-BITS) ; ; note: forced to do full call ; unable to do inline ASH (cost 3) because: ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 29). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 29). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; (- (ASH 1 SB!C::FRAC-BITS) 1) ; ==> ; (LOGAND 'SB-C::DUMMY 4294967295) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32). ; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32). ; etc. ; (* SB!C::X 0.0d0) ; ; note: doing float to pointer coercion (cost 13) to "", for: ; the first result of inline float arithmetic ; (SETF SB!C::LOW (LOGANDC2 SB!C::LOW (- (ASH 1 SB!C::FRAC-BITS) 1))) ; ==> ; (SETQ SB!C::LOW (LOGANDC2 SB!C::LOW (- (ASH 1 SB!C::FRAC-BITS) 1))) ; ; note: doing unsigned word to integer coercion (cost 20) to LOW ; compiling (DEF SINGLE-FLOAT ...) ; compiling (DEF DOUBLE-FLOAT ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/float-tran.lisp ; in: DEFUN %UNARY-FTRUNCATE/DOUBLE ; (THE SB!KERNEL:DOUBLE-FLOAT-EXPONENT (- EXP SB!VM:DOUBLE-FLOAT-BIAS)) ; ; caught STYLE-WARNING: ; undefined type: DOUBLE-FLOAT-EXPONENT ; in: DEFOPTIMIZER (IMAGPART DERIVE-TYPE) ; (SB!C::ONE-ARG-DERIVE-TYPE SB!C::NUM #'SB!C::IMAGPART-DERIVE-TYPE-AUX ; #'IMAGPART) ; ; caught STYLE-WARNING: ; undefined function: ONE-ARG-DERIVE-TYPE ; in: DEFOPTIMIZER (REALPART DERIVE-TYPE) ; (SB!C::ONE-ARG-DERIVE-TYPE SB!C::NUM #'SB!C::REALPART-DERIVE-TYPE-AUX ; #'REALPART) ; ; caught STYLE-WARNING: ; undefined function: ONE-ARG-DERIVE-TYPE ; in: DEFUN %UNARY-FTRUNCATE/SINGLE ; (THE SB!KERNEL:SINGLE-FLOAT-EXPONENT (- EXP SB!VM:SINGLE-FLOAT-BIAS)) ; ; caught STYLE-WARNING: ; undefined type: SINGLE-FLOAT-EXPONENT ; ; compilation unit finished ; Undefined types: ; DOUBLE-FLOAT-EXPONENT SINGLE-FLOAT-EXPONENT ; Undefined function: ; ONE-ARG-DERIVE-TYPE ; caught 4 STYLE-WARNING conditions ; printed 63 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/float-tran.fasl-tmp written ; compilation finished in 0:00:00.534 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/saptran.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFTRANSFORM FOREIGN-SYMBOL-ADDRESS ...) ; compiling (DEFTRANSFORM FOREIGN-SYMBOL-SAP ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/saptran.lisp ; in: DEFTRANSFORM FOREIGN-SYMBOL-SAP ; (SB!SYS:FIND-FOREIGN-SYMBOL-IN-TABLE SB!C::NAME ; SB!SYS:*STATIC-FOREIGN-SYMBOLS*) ; ==> ; SB!C::NAME ; ; note: deleting unreachable code ; compiling (DEFKNOWN (SAP< SAP<= ...) ...) ; compiling (DEFKNOWN SAP+ ...) ; compiling (DEFKNOWN SAP- ...) ; compiling (DEFKNOWN SAP-INT ...) ; compiling (DEFKNOWN INT-SAP ...) ; compiling (DEFSAPREF SAP-REF-8 ...) ; compiling (DEFSAPREF SAP-REF-16 ...) ; compiling (DEFSAPREF SAP-REF-32 ...) ; compiling (DEFSAPREF SAP-REF-64 ...) ; compiling (DEFSAPREF SAP-REF-WORD ...) ; compiling (DEFSAPREF SIGNED-SAP-REF-8 ...) ; compiling (DEFSAPREF SIGNED-SAP-REF-16 ...) ; compiling (DEFSAPREF SIGNED-SAP-REF-32 ...) ; compiling (DEFSAPREF SIGNED-SAP-REF-64 ...) ; compiling (DEFSAPREF SIGNED-SAP-REF-WORD ...) ; compiling (DEFSAPREF SAP-REF-SAP ...) ; compiling (DEFSAPREF SAP-REF-LISPOBJ ...) ; compiling (DEFSAPREF SAP-REF-SINGLE ...) ; compiling (DEFSAPREF SAP-REF-DOUBLE ...) ; compiling (DEFSAPREF SAP-REF-LONG ...) ; compiling (DEF SAP< ...) ; compiling (DEF SAP<= ...) ; compiling (DEF SAP= ...) ; compiling (DEF SAP>= ...) ; compiling (DEF SAP> ...) ; compiling (DEFTRANSFORM SAP+ ...) ; compiling (DEF SAP-REF-8) ; compiling (DEF %SET-SAP-REF-8 ...) ; compiling (DEF SIGNED-SAP-REF-8) ; compiling (DEF %SET-SIGNED-SAP-REF-8 ...) ; compiling (DEF SAP-REF-16) ; compiling (DEF %SET-SAP-REF-16 ...) ; compiling (DEF SIGNED-SAP-REF-16) ; compiling (DEF %SET-SIGNED-SAP-REF-16 ...) ; compiling (DEF SAP-REF-32) ; compiling (DEF %SET-SAP-REF-32 ...) ; compiling (DEF SIGNED-SAP-REF-32) ; compiling (DEF %SET-SIGNED-SAP-REF-32 ...) ; compiling (DEF SAP-REF-64) ; compiling (DEF %SET-SAP-REF-64 ...) ; compiling (DEF SIGNED-SAP-REF-64) ; compiling (DEF %SET-SIGNED-SAP-REF-64 ...) ; compiling (DEF SAP-REF-SAP) ; compiling (DEF %SET-SAP-REF-SAP ...) ; compiling (DEF SAP-REF-LISPOBJ) ; compiling (DEF %SET-SAP-REF-LISPOBJ ...) ; compiling (DEF SAP-REF-SINGLE) ; compiling (DEF %SET-SAP-REF-SINGLE ...) ; compiling (DEF SAP-REF-DOUBLE) ; compiling (DEF %SET-SAP-REF-DOUBLE ...) ; compiling (DEF SAP-REF-WORD ...) ; compiling (DEF SIGNED-SAP-REF-WORD ...) ; compiling (DEF %SET-SAP-REF-WORD ...) ; compiling (DEF %SET-SIGNED-SAP-REF-WORD ...) ; compiling (DEFTRANSFORM SAP-REF-64 ...) ; compiling (DEFTRANSFORM SIGNED-SAP-REF-64 ...) ; compiling (DEFTRANSFORM %SET-SAP-REF-64 ...) ; compiling (DEFTRANSFORM %SET-SIGNED-SAP-REF-64 ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/saptran.lisp ; in: DEF SIGNED-SAP-REF-8 ; (SB!C::DEF SB!SYS:SIGNED-SAP-REF-8) ; --> PROGN PROGN SB!C:DEFTRANSFORM SB!C::%DEFTRANSFORM MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL PROGN ; ==> ; (SB!C::FOLD-INDEX-ADDRESSING 'SB!C::SIGNED-SAP-REF-8-WITH-OFFSET 8 0 0 ; SB!C::OFFSET SB!C::DISP NIL) ; ; caught STYLE-WARNING: ; undefined function: FOLD-INDEX-ADDRESSING ; in: DEF %SET-SAP-REF-8 ; (SB!C::DEF SB!KERNEL:%SET-SAP-REF-8 T (UNSIGNED-BYTE 8)) ; --> PROGN PROGN SB!C:DEFTRANSFORM SB!C::%DEFTRANSFORM MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL PROGN ; ==> ; (SB!C::FOLD-INDEX-ADDRESSING 'SB!C::%SET-SAP-REF-8-WITH-OFFSET 8 0 0 ; SB!C::OFFSET SB!C::DISP T) ; ; caught STYLE-WARNING: ; undefined function: FOLD-INDEX-ADDRESSING ; in: DEF SAP-REF-8 ; (SB!C::DEF SB!SYS:SAP-REF-8) ; --> PROGN PROGN SB!C:DEFTRANSFORM SB!C::%DEFTRANSFORM MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL PROGN ; ==> ; (SB!C::FOLD-INDEX-ADDRESSING 'SB!C::SAP-REF-8-WITH-OFFSET 8 0 0 SB!C::OFFSET ; SB!C::DISP NIL) ; ; caught STYLE-WARNING: ; undefined function: FOLD-INDEX-ADDRESSING ; ; caught STYLE-WARNING: ; 19 more uses of undefined function FOLD-INDEX-ADDRESSING ; ; compilation unit finished ; Undefined function: ; FOLD-INDEX-ADDRESSING ; caught 4 STYLE-WARNING conditions ; printed 1 note ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/saptran.fasl-tmp written ; compilation finished in 0:00:00.284 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/srctran.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFINE-SOURCE-TRANSFORM IDENTITY ...) ; compiling (DEFINE-SOURCE-TRANSFORM VALUES ...) ; compiling (DEFOPTIMIZER (CONSTANTLY DERIVE-TYPE) ...) ; compiling (DEFTRANSFORM COMPLEMENT ...) ; compiling (DEFUN DERIVE-SYMBOL-VALUE-TYPE ...) ; compiling (DEFOPTIMIZER (SYMBOL-VALUE DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (SYMBOL-GLOBAL-VALUE DERIVE-TYPE) ...) ; compiling (DEFUN SOURCE-TRANSFORM-CXR ...) ; compiling (/SHOW0 "about to set CxR source transforms") ; compiling (LOOP FOR ...) ; compiling (/SHOW0 "done setting CxR source transforms") ; compiling (DEFINE-SOURCE-TRANSFORM REST ...) ; compiling (DEFINE-SOURCE-TRANSFORM FIRST ...) ; compiling (DEFINE-SOURCE-TRANSFORM SECOND ...) ; compiling (DEFINE-SOURCE-TRANSFORM THIRD ...) ; compiling (DEFINE-SOURCE-TRANSFORM FOURTH ...) ; compiling (DEFINE-SOURCE-TRANSFORM FIFTH ...) ; compiling (DEFINE-SOURCE-TRANSFORM SIXTH ...) ; compiling (DEFINE-SOURCE-TRANSFORM SEVENTH ...) ; compiling (DEFINE-SOURCE-TRANSFORM EIGHTH ...) ; compiling (DEFINE-SOURCE-TRANSFORM NINTH ...) ; compiling (DEFINE-SOURCE-TRANSFORM TENTH ...) ; compiling (DEFINE-SOURCE-TRANSFORM LIST ...) ; compiling (DEFOPTIMIZER (LIST DERIVE-TYPE) ...) ; compiling (DEFINE-SOURCE-TRANSFORM LIST* ...) ; compiling (DEFOPTIMIZER (LIST* DERIVE-TYPE) ...) ; compiling (DEFINE-SOURCE-TRANSFORM NCONC ...) ; compiling (DEFUN DERIVE-APPEND-TYPE ...) ; compiling (DEFOPTIMIZER (APPEND DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (SB!IMPL::APPEND2 DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (NCONC DERIVE-TYPE) ...) ; compiling (DEFINE-SOURCE-TRANSFORM RPLACA ...) ; compiling (DEFINE-SOURCE-TRANSFORM RPLACD ...) ; compiling (DEFTRANSFORM LAST ...) ; compiling (DEFINE-SOURCE-TRANSFORM GETHASH ...) ; compiling (DEFINE-SOURCE-TRANSFORM GET ...) ; compiling (DEFVAR *DEFAULT-NTHCDR-OPEN-CODE-LIMIT* ...) ; compiling (DEFVAR *EXTREME-NTHCDR-OPEN-CODE-LIMIT* ...) ; compiling (DEFTRANSFORM NTHCDR ...) ; compiling (DEFINE-SOURCE-TRANSFORM PLUSP ...) ; compiling (DEFINE-SOURCE-TRANSFORM MINUSP ...) ; compiling (DEFINE-SOURCE-TRANSFORM ZEROP ...) ; compiling (DEFINE-SOURCE-TRANSFORM 1+ ...) ; compiling (DEFINE-SOURCE-TRANSFORM 1- ...) ; compiling (DEFINE-SOURCE-TRANSFORM ODDP ...) ; compiling (DEFINE-SOURCE-TRANSFORM EVENP ...) ; compiling (DEFFROB TRUNCATE) ; compiling (DEFFROB ROUND) ; compiling (DEFTRANSFORM LOGTEST ...) ; compiling (DEFTRANSFORM LOGBITP ...) ; compiling (DEFINE-SOURCE-TRANSFORM BYTE ...) ; compiling (DEFINE-SOURCE-TRANSFORM BYTE-SIZE ...) ; compiling (DEFINE-SOURCE-TRANSFORM BYTE-POSITION ...) ; compiling (DEFINE-SOURCE-TRANSFORM LDB-TEST ...) ; compiling (DEFINE-SOURCE-TRANSFORM NUMERATOR ...) ; compiling (DEFINE-SOURCE-TRANSFORM DENOMINATOR ...) ; compiling (DEF SIGNED-ZERO->= ...) ; compiling (DEF SIGNED-ZERO-> ...) ; compiling (DEF SIGNED-ZERO-= ...) ; compiling (DEF SIGNED-ZERO-< ...) ; compiling (DEF SIGNED-ZERO-<= ...) ; compiling (DEFSTRUCT (INTERVAL # ...) ...) ; compiling (DEFUN MAKE-INTERVAL ...) ; compiling (DECLAIM (INLINE SET-BOUND)) ; compiling (DEFUN SET-BOUND ...) ; compiling (DEFUN BOUND-FUNC ...)(can't portably mask float traps, proceeding anyway) ; compiling (DEFUN SAFE-DOUBLE-COERCION-P ...) ; compiling (DEFUN SAFE-SINGLE-COERCION-P ...) ; compiling (DEFMACRO SAFELY-BINOP ...) ; compiling (DEFMACRO BOUND-BINOP ...) ; compiling (DEFUN COERCION-LOSES-PRECISION-P ...) ; compiling (DEFUN COERCE-FOR-BOUND ...) ; compiling (DEFUN COERCE-AND-TRUNCATE-FLOATS ...) ; compiling (DEFUN NUMERIC-TYPE->INTERVAL ...) ; compiling (DEFUN TYPE-APPROXIMATE-INTERVAL ...) ; compiling (DEFUN COPY-INTERVAL-LIMIT ...) ; compiling (DEFUN COPY-INTERVAL ...) ; compiling (DEFUN INTERVAL-SPLIT ...) ; compiling (DEFUN INTERVAL-CLOSURE ...) ; compiling (DEFUN INTERVAL-RANGE-INFO ...) ; compiling (DEFUN INTERVAL-BOUNDED-P ...) ; compiling (DEFUN INTERVAL-CONTAINS-P ...) ; compiling (DEFUN INTERVAL-INTERSECT-P ...) ; compiling (DEFUN INTERVAL-ADJACENT-P ...) ; compiling (DEFUN INTERVAL-INTERSECTION/DIFFERENCE ...) ; compiling (DEFUN INTERVAL-MERGE-PAIR ...) ; compiling (DEFUN INTERVAL-APPROXIMATE-UNION ...) ; compiling (DEFUN INTERVAL-NEG ...) ; compiling (DEFUN INTERVAL-ADD ...)(can't portably mask float traps, proceeding anyway) (can't portably mask float traps, proceeding anyway) ; compiling (DEFUN INTERVAL-SUB ...)(can't portably mask float traps, proceeding anyway) (can't portably mask float traps, proceeding anyway) ; compiling (DEFUN INTERVAL-MUL ...)(can't portably mask float traps, proceeding anyway) ; compiling (DEFUN INTERVAL-DIV ...)(can't portably mask float traps, proceeding anyway) ; compiling (DEFUN INTERVAL-FUNC ...) ; compiling (DEFUN INTERVAL-< ...) ; compiling (DEFUN INTERVAL->= ...) ; compiling (DEFUN INTERVAL-= ...) ; compiling (DEFUN INTERVAL-/= ...) ; compiling (DEFUN INTERVAL-ABS ...) ; compiling (DEFUN INTERVAL-SQR ...) ; compiling (DEFUN DERIVE-INTEGER-TYPE-AUX ...) ; compiling (DEFUN DERIVE-INTEGER-TYPE ...) ; compiling (DEFUN FLATTEN-LIST ...) ; compiling (DEFUN PREPARE-ARG-FOR-DERIVE-TYPE ...) ; compiling (DEFUN CONVERT-NUMERIC-TYPE ...) ; compiling (DEFUN CONVERT-BACK-NUMERIC-TYPE ...) ; compiling (DEFUN CONVERT-BACK-NUMERIC-TYPE-LIST ...) ; compiling (DEFVAR *DERIVED-NUMERIC-UNION-COMPLEXITY-LIMIT* ...) ; compiling (DEFUN MAKE-DERIVED-UNION-TYPE ...) ; compiling (DEFUN CONVERT-MEMBER-TYPE ...) ; compiling (DEFUN ONE-ARG-DERIVE-TYPE ...)(can't portably mask float traps, proceeding anyway) ; compiling (DEFUN TWO-ARG-DERIVE-TYPE ...)(can't portably mask float traps, proceeding anyway) ; compiling (DEFOPTIMIZER (+ DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (- DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (* DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (/ DERIVE-TYPE) ...) ; compiling (DEFUN ASH-DERIVE-TYPE-AUX ...) ; compiling (DEFOPTIMIZER (ASH DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (%NEGATE DERIVE-TYPE) ...) ; compiling (DEFUN LOGNOT-DERIVE-TYPE-AUX ...) ; compiling (DEFOPTIMIZER (LOGNOT DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (ABS DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (TRUNCATE DERIVE-TYPE) ...) ; compiling (DEFUN NUMERIC-RANGE-INFO ...) ; compiling (DEFUN INTEGER-TRUNCATE-DERIVE-TYPE ...) ; compiling (DEFUN INTEGER-REM-DERIVE-TYPE ...) ; compiling (DEFOPTIMIZER (RANDOM DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (INTEGER-LENGTH DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (LOGCOUNT DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (ISQRT DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (CHAR-CODE DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (CODE-CHAR DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (VALUES DERIVE-TYPE) ...) ; compiling (DEFUN SIGNUM-DERIVE-TYPE-AUX ...) ; compiling (DEFOPTIMIZER (SIGNUM DERIVE-TYPE) ...) ; compiling (DEFINE-SOURCE-TRANSFORM LDB ...) ; compiling (DEFINE-SOURCE-TRANSFORM DPB ...) ; compiling (DEFINE-SOURCE-TRANSFORM MASK-FIELD ...) ; compiling (DEFINE-SOURCE-TRANSFORM DEPOSIT-FIELD ...) ; compiling (DEFOPTIMIZER (%LDB DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (%MASK-FIELD DERIVE-TYPE) ...) ; compiling (DEFUN %DEPOSIT-FIELD-DERIVE-TYPE-AUX ...) ; compiling (DEFOPTIMIZER (%DPB DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (%DEPOSIT-FIELD DERIVE-TYPE) ...) ; compiling (DEFTRANSFORM %LDB ...) ; compiling (DEFTRANSFORM %MASK-FIELD ...) ; compiling (DEFTRANSFORM %DPB ...) ; compiling (DEFTRANSFORM %DPB ...) ; compiling (DEFTRANSFORM %DEPOSIT-FIELD ...) ; compiling (DEFTRANSFORM %DEPOSIT-FIELD ...) ; compiling (DEFOPTIMIZER (MASK-SIGNED-FIELD DERIVE-TYPE) ...) ; compiling (DEFUN %ASH/RIGHT ...) ; compiling (DEFTRANSFORM ASH ...) ; compiling (DEFTRANSFORM ASH ...) ; compiling (DEFTRANSFORM %ASH/RIGHT ...) ; compiling (DEFTRANSFORM %ASH/RIGHT ...) ; compiling (DEFUN %ASH/RIGHT-DERIVE-TYPE-AUX ...) ; compiling (DEFOPTIMIZER (%ASH/RIGHT DERIVE-TYPE) ...) ; compiling (DEFUN MAKE-MODULAR-FUN-TYPE-DERIVER ...) ; compiling (DEFUN CUT-TO-WIDTH ...) ; compiling (DEFUN BEST-MODULAR-VERSION ...) ; compiling (DEFUN INTEGER-TYPE-NUMERIC-BOUNDS ...) ; compiling (DEFOPTIMIZER (LOGAND OPTIMIZER) ...) ; compiling (DEFOPTIMIZER (MASK-SIGNED-FIELD OPTIMIZER) ...) ; compiling (DEFOPTIMIZER (LOGIOR OPTIMIZER) ...) ; compiling (DEFTRANSFORM BOOLE ...) ; compiling (DEFTRANSFORM * ...) ; compiling (DEFTRANSFORM FLOOR ...) ; compiling (DEFTRANSFORM CEILING ...) ; compiling (DEFTRANSFORM REM ...) ; compiling (DEFTRANSFORM MOD ...) ; compiling (FLET (#) ...) ; compiling (DEFTRANSFORM MOD ...) ; compiling (DEFTRANSFORM TRUNCATE ...) ; compiling (DEFTRANSFORM REM ...) ; compiling (DEFUN GEN-UNSIGNED-DIV-BY-CONSTANT-EXPR ...) ; compiling (DEFTRANSFORM TRUNCATE ...) ; compiling (DEF ASH ...) ; compiling (DEF LOGAND ...) ; compiling (DEF LOGAND ...) ; compiling (DEF LOGIOR ...) ; compiling (DEF LOGIOR ...) ; compiling (DEF LOGXOR ...) ; compiling (DEF LOGXOR ...) ; compiling (DEFUN LEAST-ZERO-BIT ...) ; compiling (DEFTRANSFORM LOGAND ...) ; compiling (DEFTRANSFORM MASK-SIGNED-FIELD ...) ; compiling (DEFTRANSFORM LOGIOR ...) ; compiling (DEF LOGAND) ; compiling (DEF LOGIOR) ; compiling (DEF LOGXOR) ; compiling (DEF LOGTEST ...) ; compiling (DEF + ...) ; compiling (DEF + ...) ; compiling (DEF * ...) ; compiling (DEF * ...) ; compiling (DEFTRANSFORM MASK-SIGNED-FIELD ...) ; compiling (DEFTRANSFORM - ...) ; compiling (DEFTRANSFORM * ...) ; compiling (DEFTRANSFORM %NEGATE ...) ; compiling (DEFTRANSFORM %NEGATE ...) ; compiling (DEFUN NOT-MORE-CONTAGIOUS ...) ; compiling (DEF!TYPE EXACT-NUMBER ...) ; compiling (DEFTRANSFORM + ...) ; compiling (DEFTRANSFORM - ...) ; compiling (DEF * ...) ; compiling (DEF / ...) ; compiling (DEF EXPT ...) ; compiling (DEFTRANSFORM EXPT ...) ; compiling (DEFTRANSFORM EXPT ...) ; compiling (DEF ASH) ; compiling (DEF /) ; compiling (DEF TRUNCATE) ; compiling (DEF ROUND) ; compiling (DEF FLOOR) ; compiling (DEF CEILING) ; compiling (DEF TRUNCATE) ; compiling (DEF ROUND) ; compiling (DEF FLOOR) ; compiling (DEF CEILING) ; compiling (DEF FTRUNCATE ...) ; compiling (DEF FROUND ...) ; compiling (DEF FFLOOR ...) ; compiling (DEF FCEILING ...) ; compiling (DEFTRANSFORM TWO-ARG-CHAR-EQUAL ...) ; compiling (DEFTRANSFORM TWO-ARG-CHAR-EQUAL ...) ; compiling (DEFTRANSFORM CHAR-UPCASE ...) ; compiling (DEFTRANSFORM CHAR-DOWNCASE ...) ; compiling (DEFUN SAME-LEAF-REF-P ...) ; compiling (DEFTRANSFORM SIMPLE-EQUALITY-TRANSFORM ...) ; compiling (DEF EQ) ; compiling (DEF CHAR=) ; compiling (DEF TWO-ARG-CHAR-EQUAL) ; compiling (DEFTRANSFORM EQL ...) ; compiling (DEFTRANSFORM EQUAL ...) ; compiling (DEFTRANSFORM EQUALP ...) ; compiling (DEFTRANSFORM = ...) ; compiling (DEFUN MAYBE-FLOAT-LVAR-P ...) ; compiling (FLET (#) ...) ; compiling (DEF = ...) ; compiling (DEF /= ...) ; compiling (DEF < ...) ; compiling (DEF > ...) ; compiling (DEF <= ...) ; compiling (DEF >= ...) ; compiling (DEFUN IR1-TRANSFORM-CHAR< ...) ; compiling (DEFTRANSFORM CHAR< ...) ; compiling (DEFTRANSFORM CHAR> ...) ; compiling (DEFUN MULTI-COMPARE ...) ; compiling (DEFINE-SOURCE-TRANSFORM = ...) ; compiling (DEFINE-SOURCE-TRANSFORM < ...) ; compiling (DEFINE-SOURCE-TRANSFORM > ...) ; compiling (DEFINE-SOURCE-TRANSFORM <= ...) ; compiling (DEFINE-SOURCE-TRANSFORM >= ...) ; compiling (DEFINE-SOURCE-TRANSFORM CHAR= ...) ; compiling (DEFINE-SOURCE-TRANSFORM CHAR< ...) ; compiling (DEFINE-SOURCE-TRANSFORM CHAR> ...) ; compiling (DEFINE-SOURCE-TRANSFORM CHAR<= ...) ; compiling (DEFINE-SOURCE-TRANSFORM CHAR>= ...) ; compiling (DEFINE-SOURCE-TRANSFORM CHAR-EQUAL ...) ; compiling (DEFINE-SOURCE-TRANSFORM CHAR-LESSP ...) ; compiling (DEFINE-SOURCE-TRANSFORM CHAR-GREATERP ...) ; compiling (DEFINE-SOURCE-TRANSFORM CHAR-NOT-GREATERP ...) ; compiling (DEFINE-SOURCE-TRANSFORM CHAR-NOT-LESSP ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN MULTI-NOT-EQUAL ...) ; compiling (DEFINE-SOURCE-TRANSFORM /= ...) ; compiling (DEFINE-SOURCE-TRANSFORM CHAR/= ...) ; compiling (DEFINE-SOURCE-TRANSFORM CHAR-NOT-EQUAL ...) ; compiling (DEFINE-SOURCE-TRANSFORM MAX ...) ; compiling (DEFINE-SOURCE-TRANSFORM MIN ...) ; compiling (DEF < ...) ; compiling (DEF > ...) ; compiling (DEFTRANSFORM = ...) ; compiling (DEFTRANSFORM = ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN ASSOCIATE-ARGS ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN REDUCE-CONSTANTS ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN SOURCE-TRANSFORM-TRANSITIVE ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/srctran.lisp ; in: DEFUN SOURCE-TRANSFORM-TRANSITIVE ; (DEFUN SB!C::SOURCE-TRANSFORM-TRANSITIVE ; (SB!C::FUN SB!C::ARGS IDENTITY ; &OPTIONAL (SB!C::ONE-ARG-RESULT-TYPE 'NUMBER) ; (SB!C::ONE-ARG-PREFIXES '(VALUES))) ; (CASE (LENGTH SB!C::ARGS) ; (0 IDENTITY) ; (1 (SB!INT:QUASIQUOTE (# #))) ; (2 (VALUES NIL T)) ; (T ; (LET (#) ; (SB!C::ASSOCIATE-ARGS SB!C::FUN # # IDENTITY))))) ; --> PROGN ; ==> ; (SB-IMPL::%DEFUN 'SB!C::SOURCE-TRANSFORM-TRANSITIVE ; (SB-INT:NAMED-LAMBDA SB!C::SOURCE-TRANSFORM-TRANSITIVE ; (SB!C::FUN SB!C::ARGS IDENTITY &OPTIONAL ; (SB!C::ONE-ARG-RESULT-TYPE 'NUMBER) ; (SB!C::ONE-ARG-PREFIXES '(VALUES))) ; (BLOCK SB!C::SOURCE-TRANSFORM-TRANSITIVE ; (CASE (LENGTH SB!C::ARGS) ; (0 IDENTITY) ; (1 #) ; (2 #) ; (T #)))) ; NIL 'NIL (SB-C:SOURCE-LOCATION)) ; ; note: type assertion too complex to check: ; (VALUES T &OPTIONAL (MEMBER NIL T)). ; compiling (DEFINE-SOURCE-TRANSFORM + ...) ; compiling (DEFINE-SOURCE-TRANSFORM * ...) ; compiling (DEFINE-SOURCE-TRANSFORM LOGIOR ...) ; compiling (DEFINE-SOURCE-TRANSFORM LOGXOR ...) ; compiling (DEFINE-SOURCE-TRANSFORM LOGAND ...) ; compiling (DEFINE-SOURCE-TRANSFORM LOGEQV ...) ; compiling (DEFINE-SOURCE-TRANSFORM GCD ...) ; compiling (DEFINE-SOURCE-TRANSFORM LCM ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN SOURCE-TRANSFORM-INTRANSITIVE ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/srctran.lisp ; in: DEFUN SOURCE-TRANSFORM-INTRANSITIVE ; (DEFUN SB!C::SOURCE-TRANSFORM-INTRANSITIVE ; (SB!C::FUN SB!C::FUN* SB!C::ARGS IDENTITY SB!C::ONE-ARG-PREFIXES ; &OPTIONAL (SB!C::ONE-ARG-RESULT-TYPE 'NUMBER)) ; (CASE (LENGTH SB!C::ARGS) ; ((0 2) (VALUES NIL T)) ; (1 (SB!INT:QUASIQUOTE (# #))) ; (T ; (LET (#) ; (SB!C::ASSOCIATE-ARGS SB!C::FUN # SB!C::REDUCED-ARGS IDENTITY))))) ; --> PROGN ; ==> ; (SB-IMPL::%DEFUN 'SB!C::SOURCE-TRANSFORM-INTRANSITIVE ; (SB-INT:NAMED-LAMBDA SB!C::SOURCE-TRANSFORM-INTRANSITIVE ; (SB!C::FUN SB!C::FUN* SB!C::ARGS IDENTITY ; SB!C::ONE-ARG-PREFIXES &OPTIONAL ; (SB!C::ONE-ARG-RESULT-TYPE 'NUMBER)) ; (BLOCK SB!C::SOURCE-TRANSFORM-INTRANSITIVE ; (CASE (LENGTH SB!C::ARGS) (# #) (1 #) (T #)))) ; NIL 'NIL (SB-C:SOURCE-LOCATION)) ; ; note: type assertion too complex to check: ; (VALUES LIST &OPTIONAL (MEMBER NIL T)). ; compiling (DEFINE-SOURCE-TRANSFORM - ...) ; compiling (DEFINE-SOURCE-TRANSFORM / ...) ; compiling (DEFINE-SOURCE-TRANSFORM APPLY ...) ; compiling (DEFUN POSSIBLE-REST-ARG-CONTEXT ...) ; compiling (DEFUN MARK-MORE-CONTEXT-USED ...) ; compiling (DEFUN MARK-MORE-CONTEXT-INVALID ...) ; compiling (DEFUN REST-VAR-MORE-CONTEXT-OK ...) ; compiling (DEFINE-SOURCE-TRANSFORM VALUES-LIST ...) ; compiling (DEFINE-SOURCE-TRANSFORM NTH ...) ; compiling (DEFINE-SOURCE-TRANSFORM FAST-&REST-NTH ...) ; compiling (DEFINE-SOURCE-TRANSFORM ELT ...) ; compiling (DEFUN SOURCE-TRANSFORM-CAR ...) ; compiling (DEFINE-SOURCE-TRANSFORM CAR ...) ; compiling (DEFINE-SOURCE-TRANSFORM CADR ...) ; compiling (DEFINE-SOURCE-TRANSFORM CADDR ...) ; compiling (DEFINE-SOURCE-TRANSFORM CADDDR ...) ; compiling (DEFUN SOURCE-TRANSFORM-LENGTH ...) ; compiling (DEFINE-SOURCE-TRANSFORM LENGTH ...) ; compiling (DEFINE-SOURCE-TRANSFORM LIST-LENGTH ...) ; compiling (DEFUN SOURCE-TRANSFORM-NULL ...) ; compiling (DEFINE-SOURCE-TRANSFORM NOT ...) ; compiling (DEFINE-SOURCE-TRANSFORM NULL ...) ; compiling (DEFINE-SOURCE-TRANSFORM ENDP ...) ; compiling (DEFTRANSFORM %REST-VALUES ...) ; compiling (DEFTRANSFORM %REST-REF ...) ; compiling (DEFTRANSFORM %REST-LENGTH ...) ; compiling (DEFTRANSFORM %REST-NULL ...) ; compiling (DEFTRANSFORM %REST-TRUE ...) ; compiling (DEFUN CHECK-FORMAT-ARGS ...) ; compiling (DEFOPTIMIZER (FORMAT OPTIMIZER) ...) ; compiling (DEFTRANSFORM FORMAT ...) ; compiling (DEFTRANSFORM FORMAT ...) ; compiling (DEFTRANSFORM FORMAT ...) ; compiling (DEFUN CONCATENATE-FORMAT-P ...) ; compiling (DEFTRANSFORM FORMAT ...) ; compiling (DEFTRANSFORM PATHNAME ...) ; compiling (DEFTRANSFORM PATHNAME ...) ; compiling (DEF ERROR) ; compiling (DEF WARN) ; compiling (DEF STYLE-WARN) ; compiling (DEF COMPILER-ERROR) ; compiling (DEF COMPILER-WARN) ; compiling (DEF COMPILER-STYLE-WARN) ; compiling (DEF COMPILER-NOTIFY) ; compiling (DEF MAYBE-COMPILER-NOTIFY) ; compiling (DEF BUG) ; compiling (DEFOPTIMIZER (CERROR OPTIMIZER) ...) ; compiling (DEFOPTIMIZER (COERCE DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (COMPILE DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (ARRAY-ELEMENT-TYPE DERIVE-TYPE) ...) ; compiling (DEFINE-SOURCE-TRANSFORM SB!IMPL::SORT-VECTOR ...) ; compiling (DEFTRANSFORM SORT ...) ; compiling (DEFTRANSFORM STABLE-SORT ...) ; compiling (DEFKNOWN /REPORT-LVAR ...) ; compiling (DEFTRANSFORM /REPORT-LVAR ...) ; compiling (DEFUN /REPORT-LVAR ...) ; compiling (DEFKNOWN SET-INFO-VALUE ...) ; compiling (DEFOPTIMIZER (SET-INFO-VALUE DERIVE-TYPE) ...) ; compiling (DEFTRANSFORM POLICY-QUALITY ...) ; compiling (DEFTRANSFORM ENCODE-UNIVERSAL-TIME ...) ; compiling (DEFTRANSFORM SLEEP ...) ; compiling (DEFTRANSFORM SLEEP ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/srctran.lisp ; in: DEFOPTIMIZER (CERROR OPTIMIZER) ; (SB!FORMAT:%COMPILER-WALK-FORMAT-STRING SB!C::Y SB!C::ARGS) ; ; caught STYLE-WARNING: ; undefined function: SB!FORMAT:%COMPILER-WALK-FORMAT-STRING ; in: DEFUN CHECK-FORMAT-ARGS ; (SB!FORMAT:%COMPILER-WALK-FORMAT-STRING STRING SB!C::ARGS) ; ; caught STYLE-WARNING: ; undefined function: SB!FORMAT:%COMPILER-WALK-FORMAT-STRING ; in: DEFUN INTERVAL-MUL ; (SB!EXT:FLOAT-INFINITY-P SB!C::Y) ; ; caught STYLE-WARNING: ; undefined function: FLOAT-INFINITY-P ; in: DEFUN BOUND-FUNC ; (SB!EXT:FLOAT-INFINITY-P SB!C::Y) ; ; caught STYLE-WARNING: ; undefined function: FLOAT-INFINITY-P ; in: DEFUN TWO-ARG-DERIVE-TYPE ; (SB!EXT:FLOAT-NAN-P SB!C::RESULT) ; ; caught STYLE-WARNING: ; undefined function: FLOAT-NAN-P ; in: DEFUN CONCATENATE-FORMAT-P ; (SB!FORMAT::FORMAT-DIRECTIVE-ATSIGNP SB!C::DIRECTIVE) ; ; caught STYLE-WARNING: ; undefined function: SB!FORMAT::FORMAT-DIRECTIVE-ATSIGNP ; in: DEFTRANSFORM FORMAT ; (SB!INT:QUASIQUOTE ; (LAMBDA ; (STREAM SB!C::CONTROL #S(SB!IMPL::COMMA :EXPR SB!C::ARG-NAMES :KIND 2)) ; (DECLARE (IGNORE STREAM SB!C::CONTROL)) ; (CONCATENATE 'STRING ; #S(SB!IMPL::COMMA ; :EXPR (LOOP SB!C::FOR SB!C::DIRECTIVE SB!C::IN SB!C::TOKENIZED ; SB!C::FOR CHAR = # ; WHEN # ; SB!INT:COLLECT ...) ; :KIND 2)))) ; --> SB!IMPL::|List| SB!IMPL::|List*| LOOP BLOCK LET LET LET ; --> SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* SB-LOOP::LOOP-BODY TAGBODY ; --> SB-LOOP::LOOP-REALLY-DESETQ SETQ THE AND IF AND THE ; ==> ; (SB!FORMAT::FORMAT-DIRECTIVE-CHARACTER SB!C::DIRECTIVE) ; ; caught STYLE-WARNING: ; undefined function: SB!FORMAT::FORMAT-DIRECTIVE-CHARACTER ; in: DEFUN CONCATENATE-FORMAT-P ; (SB!FORMAT::FORMAT-DIRECTIVE-CHARACTER SB!C::DIRECTIVE) ; ; caught STYLE-WARNING: ; undefined function: SB!FORMAT::FORMAT-DIRECTIVE-CHARACTER ; (SB!FORMAT::FORMAT-DIRECTIVE-COLONP SB!C::DIRECTIVE) ; ; caught STYLE-WARNING: ; undefined function: SB!FORMAT::FORMAT-DIRECTIVE-COLONP ; (SB!FORMAT::FORMAT-DIRECTIVE-P SB!C::DIRECTIVE) ; ; caught STYLE-WARNING: ; undefined function: SB!FORMAT::FORMAT-DIRECTIVE-P ; in: DEFTRANSFORM FORMAT ; (SB!INT:QUASIQUOTE ; (LAMBDA ; (STREAM SB!C::CONTROL #S(SB!IMPL::COMMA :EXPR SB!C::ARG-NAMES :KIND 2)) ; (DECLARE (IGNORE STREAM SB!C::CONTROL)) ; (CONCATENATE 'STRING ; #S(SB!IMPL::COMMA ; :EXPR (LOOP SB!C::FOR SB!C::DIRECTIVE SB!C::IN SB!C::TOKENIZED ; SB!C::FOR CHAR = # ; WHEN # ; SB!INT:COLLECT ...) ; :KIND 2)))) ; --> SB!IMPL::|List| SB!IMPL::|List*| LOOP BLOCK LET LET LET ; --> SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* SB-LOOP::LOOP-BODY TAGBODY ; --> IF SETQ THE COND IF COND IF COND THE PROGN LET OR LET CDAR CDR CAR ; ==> ; (SB!FORMAT::FORMAT-DIRECTIVE-PARAMS SB!C::DIRECTIVE) ; ; caught STYLE-WARNING: ; undefined function: SB!FORMAT::FORMAT-DIRECTIVE-PARAMS ; in: DEFUN CONCATENATE-FORMAT-P ; (SB!FORMAT::FORMAT-DIRECTIVE-PARAMS SB!C::DIRECTIVE) ; ; caught STYLE-WARNING: ; undefined function: SB!FORMAT::FORMAT-DIRECTIVE-PARAMS ; in: DEFOPTIMIZER (CERROR OPTIMIZER) ; (HANDLER-CASE (SB!FORMAT:%COMPILER-WALK-FORMAT-STRING SB!C::Y SB!C::ARGS) ; (SB!FORMAT:FORMAT-ERROR (SB!C::C) ; (SB!C:COMPILER-WARN "~A" SB!C::C))) ; --> SB-INT:DX-FLET FLET BLOCK SB-INT:DX-LET LET TAGBODY ; --> SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET FLET BLOCK ; ==> ; (TYPEP CONDITION 'SB!FORMAT:FORMAT-ERROR) ; ; caught STYLE-WARNING: ; undefined type: SB!FORMAT:FORMAT-ERROR ; in: DEFTRANSFORM FORMAT ; (HANDLER-CASE ; (SB!FORMAT::TOKENIZE-CONTROL-STRING (SB!C::LVAR-VALUE SB!C::CONTROL)) ; (SB!FORMAT:FORMAT-ERROR NIL (SB!C::GIVE-UP-IR1-TRANSFORM))) ; --> SB-INT:DX-FLET FLET BLOCK SB-INT:DX-LET LET TAGBODY ; --> SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET FLET BLOCK ; ==> ; (TYPEP CONDITION 'SB!FORMAT:FORMAT-ERROR) ; ; caught STYLE-WARNING: ; undefined type: SB!FORMAT:FORMAT-ERROR ; in: DEFUN CHECK-FORMAT-ARGS ; (HANDLER-CASE (SB!FORMAT:%COMPILER-WALK-FORMAT-STRING STRING SB!C::ARGS) ; (SB!FORMAT:FORMAT-ERROR (SB!C::C) ; (SB!C:COMPILER-WARN "~A" SB!C::C))) ; --> SB-INT:DX-FLET FLET BLOCK SB-INT:DX-LET LET TAGBODY ; --> SB-IMPL::%HANDLER-BIND SB-INT:DX-FLET FLET BLOCK ; ==> ; (TYPEP CONDITION 'SB!FORMAT:FORMAT-ERROR) ; ; caught STYLE-WARNING: ; undefined type: SB!FORMAT:FORMAT-ERROR ; ; caught STYLE-WARNING: ; 2 more uses of undefined type SB!FORMAT:FORMAT-ERROR ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/srctran.lisp ; in: DEFUN MAKE-MODULAR-FUN-TYPE-DERIVER ; (SB!C::LOGAND-DERIVE-TYPE-AUX SB!C::RES SB!C::MASK-TYPE) ; ; caught STYLE-WARNING: ; undefined function: LOGAND-DERIVE-TYPE-AUX ; in: DEFTRANSFORM LOGTEST ; #'SB!C::LOGAND-DERIVE-TYPE-AUX ; ; caught STYLE-WARNING: ; undefined function: LOGAND-DERIVE-TYPE-AUX ; in: DEFUN CUT-TO-WIDTH ; (SB!C::MASK-SIGNED-FIELD SB!C::WIDTH SB!C::CONSTANT-VALUE) ; ; caught STYLE-WARNING: ; undefined function: MASK-SIGNED-FIELD ; in: DEFTRANSFORM = ; (SB!INT:RATIOP SB!C::Y) ; ; caught STYLE-WARNING: ; undefined function: RATIOP ; in: DEFTRANSFORM SLEEP ; (SB!IMPL::SPLIT-SECONDS-FOR-SLEEP SB!C::SECONDS-VALUE) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::SPLIT-SECONDS-FOR-SLEEP ; in: DEFTRANSFORM FORMAT ; (SB!FORMAT::TOKENIZE-CONTROL-STRING (SB!C::LVAR-VALUE SB!C::CONTROL)) ; ; caught STYLE-WARNING: ; undefined function: SB!FORMAT::TOKENIZE-CONTROL-STRING ; ; compilation unit finished ; Undefined type: ; SB!FORMAT:FORMAT-ERROR ; Undefined functions: ; SB!FORMAT:%COMPILER-WALK-FORMAT-STRING FLOAT-INFINITY-P FLOAT-NAN-P SB!FORMAT::FORMAT-DIRECTIVE-ATSIGNP SB!FORMAT::FORMAT-DIRECTIVE-CHARACTER SB!FORMAT::FORMAT-DIRECTIVE-COLONP SB!FORMAT::FORMAT-DIRECTIVE-P SB!FORMAT::FORMAT-DIRECTIVE-PARAMS LOGAND-DERIVE-TYPE-AUX MASK-SIGNED-FIELD RATIOP SB!IMPL::SPLIT-SECONDS-FOR-SLEEP SB!FORMAT::TOKENIZE-CONTROL-STRING ; caught 22 STYLE-WARNING conditions ; printed 2 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/srctran.fasl-tmp written ; compilation finished in 0:00:01.517 /about to set CxR source transforms /done setting CxR source transforms ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/bitops-derive-type.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN INTEGER-TYPE-LENGTH ...) ; compiling (DECLAIM (INLINE ZEROES)) ; compiling (DEFUN ZEROES ...) ; compiling (DECLAIM (INLINE ONES)) ; compiling (DEFUN ONES ...) ; compiling (DEFUN LOGAND-DERIVE-UNSIGNED-BOUNDS ...) ; compiling (DEFUN LOGAND-DERIVE-TYPE-AUX ...) ; compiling (DEFUN LOGIOR-DERIVE-UNSIGNED-BOUNDS ...) ; compiling (DEFUN LOGIOR-DERIVE-TYPE-AUX ...) ; compiling (DEFUN LOGXOR-DERIVE-UNSIGNED-BOUNDS ...) ; compiling (DEFUN LOGXOR-DERIVE-TYPE-AUX ...) ; compiling (DEFFROB LOGAND) ; compiling (DEFFROB LOGIOR) ; compiling (DEFFROB LOGXOR) ; compiling (DEFOPTIMIZER (LOGEQV DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (LOGNAND DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (LOGNOR DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (LOGANDC1 DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (LOGANDC2 DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (LOGORC1 DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (LOGORC2 DERIVE-TYPE) ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/bitops-derive-type.fasl-tmp written ; compilation finished in 0:00:00.075 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/vm-tran.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFINE-SOURCE-TRANSFORM SHORT-FLOAT-P ...) ; compiling (DEFINE-SOURCE-TRANSFORM LONG-FLOAT-P ...) ; compiling (DEFINE-SOURCE-TRANSFORM COMPILED-FUNCTION-P ...) ; compiling (DEFINE-SOURCE-TRANSFORM CHAR-INT ...) ; compiling (DEFTRANSFORM ABS ...) ; compiling (DEFINE-SOURCE-TRANSFORM %BIGNUM-REF ...) ; compiling (DEFUN FOLD-INDEX-ADDRESSING ...) ; compiling (DEFTRANSFORM %BIGNUM-REF-WITH-OFFSET ...) ; compiling (DEFINE-SOURCE-TRANSFORM %INSTANCE-LAYOUT ...) ; compiling (DEFINE-SOURCE-TRANSFORM %SET-INSTANCE-LAYOUT ...) ; compiling (DEFINE-SOURCE-TRANSFORM %FUNCALLABLE-INSTANCE-LAYOUT ...) ; compiling (DEFINE-SOURCE-TRANSFORM %SET-FUNCALLABLE-INSTANCE-LAYOUT ...) ; compiling (DEFTRANSFORM HAIRY-DATA-VECTOR-REF ...) ; compiling (DEFTRANSFORM HAIRY-DATA-VECTOR-REF ...) ; compiling (DEFTRANSFORM DATA-VECTOR-REF ...) ; compiling (DEFINE-SOURCE-TRANSFORM DATA-VECTOR-REF ...) ; compiling (DEFTRANSFORM DATA-VECTOR-REF-WITH-OFFSET ...) ; compiling (DEFTRANSFORM HAIRY-DATA-VECTOR-SET ...) ; compiling (DEFTRANSFORM HAIRY-DATA-VECTOR-SET ...) ; compiling (DEFTRANSFORM DATA-VECTOR-SET ...) ; compiling (DEFINE-SOURCE-TRANSFORM DATA-VECTOR-SET ...) ; compiling (DEFTRANSFORM DATA-VECTOR-SET-WITH-OFFSET ...) ; compiling (DEFUN MAYBE-ARRAY-DATA-VECTOR-TYPE-SPECIFIER ...) ; compiling (DEF %ARRAY-DATA-VECTOR) ; compiling (DEF ARRAY-STORAGE-VECTOR) ; compiling (DEFOPTIMIZER (%DATA-VECTOR-AND-INDEX DERIVE-TYPE) ...) ; compiling (DEFTRANSFORM %DATA-VECTOR-AND-INDEX ...) ; compiling (DEF BIT-AND ...) ; compiling (DEF BIT-IOR ...) ; compiling (DEF BIT-XOR ...) ; compiling (DEF BIT-EQV ...) ; compiling (DEF BIT-NAND ...) ; compiling (DEF BIT-NOR ...) ; compiling (DEF BIT-ANDC1 ...) ; compiling (DEF BIT-ANDC2 ...) ; compiling (DEF BIT-ORC1 ...) ; compiling (DEF BIT-ORC2 ...) ; compiling (DEFTRANSFORM BIT-NOT ...) ; compiling (DEFTRANSFORM BIT-VECTOR-= ...) ; compiling (DEFTRANSFORM COUNT ...) ; compiling (DEFTRANSFORM FILL ...) ; compiling (DEFTRANSFORM FILL ...) ; compiling (DEFTRANSFORM %BYTE-BLT ...) ; compiling (DEFTRANSFORM EQL ...) ; compiling (DEFTRANSFORM EQL ...) ; compiling (DEFINE-GOOD-MODULAR-FUN LOGAND ...) ; compiling (DEFINE-GOOD-MODULAR-FUN LOGIOR ...) ; compiling (DEFINE-GOOD-MODULAR-FUN LOGXOR ...) ; compiling (DEFINE-GOOD-SIGNED-MODULAR-FUNS LOGAND ...) ; compiling (DEF SB!VM::ASH-LEFT-MODFX ...) ; compiling (DEF SB!VM::ASH-LEFT-MOD32 ...) ; compiling (DEFINE-SOURCE-TRANSFORM WORD-LOGICAL-NOT ...) ; compiling (DEFTRANSFORM WORD-LOGICAL-AND ...) ; compiling (DEFTRANSFORM WORD-LOGICAL-NAND ...) ; compiling (DEFTRANSFORM WORD-LOGICAL-OR ...) ; compiling (DEFTRANSFORM WORD-LOGICAL-NOR ...) ; compiling (DEFTRANSFORM WORD-LOGICAL-XOR ...) ; compiling (DEFTRANSFORM WORD-LOGICAL-EQV ...) ; compiling (DEFTRANSFORM WORD-LOGICAL-ORC1 ...) ; compiling (DEFTRANSFORM WORD-LOGICAL-ORC2 ...) ; compiling (DEFTRANSFORM WORD-LOGICAL-ANDC1 ...) ; compiling (DEFTRANSFORM WORD-LOGICAL-ANDC2 ...) ; compiling (DEFUN UB32-STRENGTH-REDUCE-CONSTANT-MULTIPLY ...) ; compiling (DEFTRANSFORM GET-LISP-OBJ-ADDRESS ...) ; compiling (DEFTRANSFORM GET-LISP-OBJ-ADDRESS ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/vm-tran.lisp ; in: DEFUN FOLD-INDEX-ADDRESSING ; (SB!VM::FOLDABLE-CONSTANT-OFFSET-P SB!C::ELEMENT-SIZE SB!C::LOWTAG ; SB!C::DATA-OFFSET ; (SETF SB!C::NEW-OFFSET ; (FUNCALL SB!C::FUNC (SB!C::LVAR-VALUE SB!C::OFFSET) SB!C::VALUE))) ; ; caught STYLE-WARNING: ; undefined function: SB!VM::FOLDABLE-CONSTANT-OFFSET-P ; ; compilation unit finished ; Undefined function: ; SB!VM::FOLDABLE-CONSTANT-OFFSET-P ; caught 1 STYLE-WARNING condition ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/generic/vm-tran.fasl-tmp written ; compilation finished in 0:00:00.290 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/locall.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN PROPAGATE-TO-ARGS ...) ; compiling (DEFUN RECOGNIZE-DYNAMIC-EXTENT-LVARS ...) ; compiling (DEFUN MERGE-TAIL-SETS ...) ; compiling (DEFUN CONVERT-CALL ...) ; compiling (DEFUN MAKE-XEP-LAMBDA-EXPRESSION ...) ; compiling (DEFUN MAKE-XEP ...) ; compiling (DEFUN LOCALL-ANALYZE-XEP-ENTRY-POINT ...) ; compiling (DEFUN REFERENCE-ENTRY-POINT ...) ; compiling (DEFUN LOCALL-ANALYZE-FUN-1 ...) ; compiling (DEFUN LOCALL-ANALYZE-COMPONENT ...) ; compiling (DEFUN LOCALL-ANALYZE-CLAMBDAS-UNTIL-DONE ...) ; compiling (DEFUN MAYBE-EXPAND-LOCAL-INLINE ...) ; compiling (DEFUN CONVERT-CALL-IF-POSSIBLE ...) ; compiling (DEFUN CONVERT-MV-CALL ...) ; compiling (DEFUN TRANSFORM-CALL-WITH-IR1-ENVIRONMENT ...) ; compiling (DEFUN WARN-INVALID-LOCAL-CALL ...) ; compiling (DEFUN CONVERT-LAMBDA-CALL ...) ; compiling (DEFUN CONVERT-HAIRY-CALL ...) ; compiling (DEFUN CONVERT-HAIRY-FUN-ENTRY ...) ; compiling (DEFUN CONVERT-MORE-CALL ...) ; compiling (DEFUN INSERT-LET-BODY ...) ; compiling (DEFUN DEPART-FROM-TAIL-SET ...) ; compiling (DEFUN MERGE-LETS ...) ; compiling (DEFUN MOVE-RETURN-USES ...) ; compiling (DEFUN UNCONVERT-TAIL-CALLS ...) ; compiling (DEFUN MOVE-RETURN-STUFF ...) ; compiling (DEFUN LET-CONVERT ...) ; compiling (DEFUN REOPTIMIZE-CALL ...) ; compiling (DEFUN DECLARATIONS-SUPPRESS-LET-CONVERSION-P ...) ; compiling (DEFUN OK-INITIAL-CONVERT-P ...) ; compiling (DEFUN SUBSTITUTE-LET-FUNARGS ...) ; compiling (DEFUN MAYBE-LET-CONVERT ...) ; compiling (DEFUN ONLY-HARMLESS-CLEANUPS ...) ; compiling (DEFUN MAYBE-CONVERT-TAIL-LOCAL-CALL ...) ; compiling (DEFUN MAYBE-CONVERT-TO-ASSIGNMENT ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/locall.lisp ; in: DEFUN MERGE-LETS ; (SB!C::GET-LAMBDA-PHYSENV SB!C::HOME) ; ; caught STYLE-WARNING: ; undefined function: GET-LAMBDA-PHYSENV ; in: DEFUN INSERT-LET-BODY ; (SB!C::JOIN-COMPONENTS SB!C:COMPONENT SB!C::CLAMBDA-COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: JOIN-COMPONENTS ; ; compilation unit finished ; Undefined functions: ; GET-LAMBDA-PHYSENV JOIN-COMPONENTS ; caught 2 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/locall.fasl-tmp written ; compilation finished in 0:00:00.318 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/dfo.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN FIND-DFO ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN JOIN-COMPONENTS ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN FIND-DFO-AUX ...) ; compiling (DEFUN SCAVENGE-HOME-DEPENDENCY-GRAPH ...) ; compiling (DEFUN FIND-INITIAL-DFO-AUX ...) ; compiling (DEFUN FIND-REFERENCE-FUNS ...) ; compiling (DEFUN DFO-SCAVENGE-DEPENDENCY-GRAPH ...) ; compiling (DEFUN HAS-XEP-OR-NLX ...) ; compiling (DEFUN SEPARATE-TOPLEVELISH-COMPONENTS ...) ; compiling (DEFUN FIND-INITIAL-DFO ...) ; compiling (DEFUN MERGE-1-TOPLEVEL-LAMBDA ...) ; compiling (DEFUN MERGE-TOPLEVEL-LAMBDAS ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/dfo.fasl-tmp written ; compilation finished in 0:00:00.122 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/checkgen.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN FUN-GUESSED-COST ...) ; compiling (DEFUN TYPE-TEST-COST ...) ; compiling (DEFUN WEAKEN-INTEGER-TYPE ...) ; compiling (DEFUN-CACHED (WEAKEN-TYPE :HASH-BITS ...) ...) ; compiling (DEFUN WEAKEN-VALUES-TYPE ...) ; compiling (DEFUN MAYBE-WEAKEN-CHECK ...) ; compiling (DEFUN NO-FUN-VALUES-TYPES ...) ; compiling (DEFVAR *COMPLEMENT-TYPE-CHECKS* ...) ; compiling (DEFUN MAYBE-NEGATE-CHECK ...) ; compiling (DEFUN CAST-CHECK-TYPES ...) ; compiling (DEFUN CAST-EXTERNALLY-CHECKABLE-P ...) ; compiling (DEFUN PROBABLE-TYPE-CHECK-P ...) ; compiling (DEFGLOBAL **TYPE-SPEC-INTERR-SYMBOLS** ...) ; compiling (DEFUN %INTERR-SYMBOL-FOR-TYPE-SPEC ...) ; compiling (DEFUN MAKE-TYPE-CHECK-FORM ...) ; compiling (DEFUN CONVERT-TYPE-CHECK ...) ; compiling (DEFUN CAST-CHECK-USES ...) ; compiling (DEFUN GENERATE-TYPE-CHECKS ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/checkgen.lisp ; in: DEFUN MAYBE-NEGATE-CHECK ; (EVERY #'SB!C::TYPE-CHECK-TEMPLATE SB!C::SIMPLE-RES) ; --> LET BLOCK FLET BLOCK LET FUNCALL ; ==> ; (SB-C::%FUNCALL #'SB!C::TYPE-CHECK-TEMPLATE #:G328) ; ; caught STYLE-WARNING: ; undefined function: TYPE-CHECK-TEMPLATE ; in: DEFUN TYPE-TEST-COST ; (SB!C::TYPE-CHECK-TEMPLATE TYPE) ; ; caught STYLE-WARNING: ; undefined function: TYPE-CHECK-TEMPLATE ; ; compilation unit finished ; Undefined function: ; TYPE-CHECK-TEMPLATE ; caught 2 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/checkgen.fasl-tmp written ; compilation finished in 0:00:00.195 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/constraint.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DECLAIM (TYPE # ...)) ; compiling (DEFVAR *CONSTRAINT-UNIVERSE*) ; compiling (DEFTYPE CONSTRAINT-Y ...) ; compiling (DEFSTRUCT (CONSTRAINT # ...) ...) ; compiling (DECLAIM (INLINE %CONSTRAINT-NUMBER)) ; compiling (DEFUN %CONSTRAINT-NUMBER ...) ; compiling (DEFSTRUCT (CONSET # ...) ...) ; compiling (DEFUN CONSET-EMPTY ...) ; compiling (DEFUN COPY-CONSET ...) ; compiling (DEFUN %CONSET-GROW ...) ; compiling (DECLAIM (INLINE CONSET-GROW)) ; compiling (DEFUN CONSET-GROW ...) ; compiling (DEFUN CONSET-MEMBER ...) ; compiling (DEFUN CONSET-ADJOIN ...) ; compiling (DEFUN CONSET= ...) ; compiling (DEFCONSETOP CONSET-UNION ...) ; compiling (DEFCONSETOP CONSET-INTERSECTION ...) ; compiling (DEFCONSETOP CONSET-DIFFERENCE ...) ; compiling (DEFUN FIND-CONSTRAINT ...) ; compiling (DEFUN REGISTER-CONSTRAINT ...) ; compiling (DEFUN FIND-OR-CREATE-CONSTRAINT ...) ; compiling (DEFMACRO DO-CONSET-CONSTRAINTS-INTERSECTION ...) ; compiling (DEFMACRO DO-EQL-VARS ...) ; compiling (DEFMACRO DO-INHERITABLE-CONSTRAINTS ...) ; compiling (DEFMACRO DO-PROPAGATABLE-CONSTRAINTS ...) ; compiling (DECLAIM (INLINE CONSET-LVAR-LAMBDA-VAR-EQL-P ...)) ; compiling (DEFUN CONSET-LVAR-LAMBDA-VAR-EQL-P ...) ; compiling (DEFUN CONSET-ADD-LVAR-LAMBDA-VAR-EQL ...) ; compiling (DECLAIM (INLINE CONSET-ADD-CONSTRAINT ...)) ; compiling (DEFUN CONSET-ADD-CONSTRAINT ...) ; compiling (DEFUN CONSET-ADD-CONSTRAINT-TO-EQL ...) ; compiling (DECLAIM (INLINE CONSET-CLEAR-LAMBDA-VAR)) ; compiling (DEFUN CONSET-CLEAR-LAMBDA-VAR ...) ; compiling (DEFUN INHERIT-CONSTRAINTS ...) ; compiling (DEFUN ADD-EQL-VAR-VAR-CONSTRAINT ...) ; compiling (DECLAIM (INLINE OK-REF-LAMBDA-VAR)) ; compiling (DEFUN OK-REF-LAMBDA-VAR ...) ; compiling (DEFUN OK-LVAR-LAMBDA-VAR ...) ; compiling (DECLAIM (INLINE PRECISE-ADD-TEST-CONSTRAINT)) ; compiling (DEFUN PRECISE-ADD-TEST-CONSTRAINT ...) ; compiling (DEFUN ADD-TEST-CONSTRAINT ...) ; compiling (DECLAIM (INLINE QUICK-ADD-COMPLEMENT-CONSTRAINTS)) ; compiling (DEFUN PRECISE-ADD-COMPLEMENT-CONSTRAINTS ...) ; compiling (DEFUN QUICK-ADD-COMPLEMENT-CONSTRAINTS ...) ; compiling (DEFUN ADD-COMPLEMENT-CONSTRAINTS ...) ; compiling (DEFUN ADD-COMBINATION-TEST-CONSTRAINTS ...) ; compiling (DEFUN ADD-TEST-CONSTRAINTS ...) ; compiling (DEFUN INTEGER-TYPE-P ...) ; compiling (DEFUN CONSTRAIN-INTEGER-TYPE ...) ; compiling (DEFUN FLOAT-TYPE-P ...) ; compiling (DEFUN CONSTRAIN-FLOAT-TYPE ...) ; compiling (DEFUN LEAF-VISIBLE-FROM-NODE-P ...) ; compiling (DEFUN CONSTRAIN-REF-TYPE ...) ; compiling (DEFUN MAYBE-ADD-EQL-VAR-LVAR-CONSTRAINT ...) ; compiling (DEFUN MAYBE-ADD-EQL-VAR-VAR-CONSTRAINT ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN CONSTRAINT-PROPAGATE-IN-BLOCK ...) ; compiling (DEFUN CONSTRAINT-PROPAGATE-IF ...) ; compiling (DEFUN FIND-BLOCK-TYPE-CONSTRAINTS ...) ; compiling (DEFUN USE-RESULT-CONSTRAINTS ...) ; compiling (DEFUN INIT-VAR-CONSTRAINTS ...) ; compiling (DEFUN BLOCK-OUT-FOR-SUCCESSOR ...) ; compiling (DEFUN COMPUTE-BLOCK-IN ...) ; compiling (DEFUN UPDATE-BLOCK-IN ...) ; compiling (DEFUN LEADING-COMPONENT-BLOCKS ...) ; compiling (DEFUN NCONC-NEW ...) ; compiling (DEFUN FIND-AND-PROPAGATE-CONSTRAINTS ...) ; compiling (DEFUN CONSTRAINT-PROPAGATE ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/constraint.fasl-tmp written ; compilation finished in 0:00:00.535 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/physenvanal.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN PHYSENV-ANALYZE ...) ; compiling (DEFUN PRE-PHYSENV-ANALYZE-TOPLEVEL ...) ; compiling (DEFUN GET-LAMBDA-PHYSENV ...) ; compiling (DEFUN REINIT-LAMBDA-PHYSENV ...) ; compiling (DEFUN GET-NODE-PHYSENV ...) ; compiling (DEFUN %ADD-LAMBDA-VARS-TO-CLOSURES ...) ; compiling (DEFUN ADD-LAMBDA-VARS-AND-LET-VARS-TO-CLOSURES ...) ; compiling (DEFUN XEP-ALLOCATOR ...) ; compiling (DEFUN CLOSE-OVER ...) ; compiling (DEFUN ANALYZE-INDIRECT-LAMBDA-VARS ...) ; compiling (DEFVAR *FUNCTIONAL-ESCAPE-INFO*) ; compiling (DEFUN FUNCTIONAL-MAY-ESCAPE-P ...) ; compiling (DEFUN EXIT-SHOULD-CHECK-TAG-P ...) ; compiling (DEFUN INSERT-NLX-ENTRY-STUB ...) ; compiling (DEFUN NOTE-NON-LOCAL-EXIT ...) ; compiling (DEFUN FIND-NON-LOCAL-EXITS ...) ; compiling (DEFUN RECHECK-DYNAMIC-EXTENT-LVARS ...) ; compiling (DEFUN EMIT-CLEANUPS ...) ; compiling (DEFUN FIND-CLEANUP-POINTS ...) ; compiling (DEFUN TAIL-ANNOTATE ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/physenvanal.fasl-tmp written ; compilation finished in 0:00:00.178 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/tn.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFVAR *COMPONENT-BEING-COMPILED*) ; compiling (DEFMACRO DO-PACKED-TNS ...) ; compiling (DEFUN SET-IR2-PHYSENV-LIVE-TNS ...) ; compiling (DEFUN SET-IR2-PHYSENV-DEBUG-LIVE-TNS ...) ; compiling (DEFUN SET-IR2-COMPONENT-ALIAS-TNS ...) ; compiling (DEFUN SET-IR2-COMPONENT-NORMAL-TNS ...) ; compiling (DEFUN SET-IR2-COMPONENT-RESTRICTED-TNS ...) ; compiling (DEFUN SET-IR2-COMPONENT-WIRED-TNS ...) ; compiling (DEFUN DELETE-UNREFERENCED-TNS ...) ; compiling (DEFUN MAKE-NORMAL-TN ...) ; compiling (DEFUN MAKE-REPRESENTATION-TN ...) ; compiling (DEFUN MAKE-WIRED-TN ...) ; compiling (DEFUN MAKE-RESTRICTED-TN ...) ; compiling (DEFUN PHYSENV-LIVE-TN ...) ; compiling (DEFUN PHYSENV-DEBUG-LIVE-TN ...) ; compiling (DEFUN COMPONENT-LIVE-TN ...) ; compiling (DEFUN SPECIFY-SAVE-TN ...) ; compiling (DEFUN MAKE-CONSTANT-TN ...) ; compiling (DEFUN MAKE-LOAD-TIME-VALUE-TN ...) ; compiling (DEFUN MAKE-ALIAS-TN ...) ; compiling (DEFUN MAKE-LOAD-TIME-CONSTANT-TN ...) ; compiling (DEFUN REFERENCE-TN ...) ; compiling (DEFUN REFERENCE-TN-LIST ...) ; compiling (DEFUN DELETE-TN-REF ...) ; compiling (DEFUN CHANGE-TN-REF-TN ...) ; compiling (DEFUN EMIT-MOVE-TEMPLATE ...) ; compiling (DEFUN EMIT-LOAD-TEMPLATE ...) ; compiling (DEFUN EMIT-MOVE-ARG-TEMPLATE ...) ; compiling (DEFUN EMIT-CONTEXT-TEMPLATE ...) ; compiling (DEFUN BLOCK-LABEL ...) ; compiling (DEFUN BLOCK-TRAMPOLINE ...) ; compiling (DEFUN DROP-THRU-P ...) ; compiling (DEFUN REGISTER-DROP-THRU ...) ; compiling (DEFUN INSERT-VOP ...) ; compiling (DEFUN EMIT-AND-INSERT-VOP ...) ; compiling (DEFUN DELETE-VOP ...) ; compiling (DEFUN MAKE-N-TNS ...) ; compiling (DEFUN LOCATION= ...) ; compiling (DEFUN TN-VALUE ...) ; compiling (DEFUN IMMEDIATE-TN-P ...) ; compiling (DEFUN FORCE-TN-TO-STACK ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/tn.fasl-tmp written ; compilation finished in 0:00:00.288 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/life.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN ADD-GLOBAL-CONFLICT ...) ; compiling (DEFUN INSERT-BLOCK-GLOBAL-CONFLICT ...) ; compiling (DEFUN RESET-CURRENT-CONFLICT ...) ; compiling (DEFUN CACHED-BLOCK-PHYSENV ...) ; compiling (DEFUN CONVERT-TO-GLOBAL ...) ; compiling (DEFUN FIND-LOCAL-REFERENCES ...) ; compiling (DEFUN INIT-GLOBAL-CONFLICT-KIND ...) ; compiling (DEFEVENT SPLIT-IR2-BLOCK ...) ; compiling (DEFUN SPLIT-IR2-BLOCKS ...) ; compiling (DEFUN CLEAR-LIFETIME-INFO ...) ; compiling (DEFUN COALESCE-MORE-LTN-NUMBERS ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/life.lisp ; in: DEFUN COALESCE-MORE-LTN-NUMBERS ; (SB!C::FIND-IN #'SB!C::GLOBAL-CONFLICTS-NEXT-BLOCKWISE SB!C:TN ; (SB!C::IR2-BLOCK-GLOBAL-TNS BLOCK) :KEY ; #'SB!C::GLOBAL-CONFLICTS-TN) ; ; note: deleting unreachable code ; compiling (DEFEVENT COALESCE-MORE-LTN-NUMBERS ...) ; compiling (DEFUN LIFETIME-PRE-PASS ...) ; compiling (DEFUN SETUP-ENVIRONMENT-TN-CONFLICT ...) ; compiling (DEFUN IMPLICIT-VALUE-CELL-TN-P ...) ; compiling (DEFUN BLOCK-TAIL-LOCAL-CALL-FUN ...) ; compiling (DEFUN SETUP-ENVIRONMENT-TN-CONFLICTS ...) ; compiling (DEFUN SETUP-ENVIRONMENT-LIVE-CONFLICTS ...) ; compiling (DEFUN CONVERT-TO-ENVIRONMENT-TN ...) ; compiling (DEFUN PROPAGATE-LIVE-TNS ...) ; compiling (DEFPARAMETER *MAX-FAST-PROPAGATE-LIVE-TN-PASSES* ...) ; compiling (DEFUN LIFETIME-FLOW-ANALYSIS ...) ; compiling (DEFUN NOTE-CONFLICTS ...) ; compiling (DEFUN COMPUTE-SAVE-SET ...) ; compiling (DEFUN SAVED-AFTER-READ ...) ; compiling (DEFUN MAKE-DEBUG-ENVIRONMENT-TNS-LIVE ...) ; compiling (DEFUN COMPUTE-INITIAL-CONFLICTS ...) ; compiling (DEFUN CONFLICTIZE-SAVE-P-VOP ...) ; compiling (DEFMACRO FROB-MORE-TNS ...) ; compiling (DEFMACRO SCAN-VOP-REFS ...) ; compiling (DEFMACRO ENSURE-RESULTS-LIVE ...) ; compiling (DEFUN CONFLICT-ANALYZE-1-BLOCK ...) ; compiling (DEFUN LIFETIME-POST-PASS ...) ; compiling (DEFUN MERGE-ALIAS-BLOCK-CONFLICTS ...) ; compiling (DEFUN CHANGE-GLOBAL-CONFLICTS-TN ...) ; compiling (DEFUN ENSURE-GLOBAL-TN ...) ; compiling (DEFUN MERGE-ALIAS-CONFLICTS ...) ; compiling (DEFUN MAYBE-ENVIRONMENTALIZE-CLOSURE-TNS ...) ; compiling (DEFUN LIFETIME-ANALYZE ...) ; compiling (DEFUN TNS-CONFLICT-LOCAL-GLOBAL ...) ; compiling (DEFUN TNS-CONFLICT-GLOBAL-GLOBAL ...) ; compiling (DEFUN TNS-CONFLICT ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/life.lisp ; in: DEFUN SPLIT-IR2-BLOCKS ; (SB!C::ADD-TO-EMIT-ORDER SB!C::NEW SB!C::2BLOCK) ; ; caught STYLE-WARNING: ; undefined function: ADD-TO-EMIT-ORDER ; in: DEFUN MAYBE-ENVIRONMENTALIZE-CLOSURE-TNS ; (SB!C::FIND-IN-PHYSENV SB!C::CLOSURE-VAR SB!C::PHYSENV) ; ; caught STYLE-WARNING: ; undefined function: FIND-IN-PHYSENV ; ; compilation unit finished ; Undefined functions: ; ADD-TO-EMIT-ORDER FIND-IN-PHYSENV ; caught 2 STYLE-WARNING conditions ; printed 1 note ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/life.fasl-tmp written ; compilation finished in 0:00:00.376 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/debug-dump.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFTYPE BYTE-BUFFER ...) ; compiling (DEFVAR *BYTE-BUFFER*) ; compiling (DECLAIM (TYPE BYTE-BUFFER ...)) ; compiling (DEFTYPE LOCATION-KIND ...) ; compiling (DEFSTRUCT (LOCATION-INFO # ...) ...) ; compiling (DEFUN NOTE-DEBUG-LOCATION ...) ; compiling (DECLAIM (INLINE IR2-BLOCK-PHYSENV)) ; compiling (DEFUN IR2-BLOCK-PHYSENV ...) ; compiling (DEFUN LEAF-VISIBLE-TO-DEBUGGER-P ...) ; compiling (DEFUN COMPUTE-LIVE-VARS ...) ; compiling (DEFVAR *PREVIOUS-LOCATION*) ; compiling (DECLAIM (TYPE INDEX ...)) ; compiling (DEFUN DUMP-1-LOCATION ...) ; compiling (DEFUN DUMP-LOCATION-FROM-INFO ...) ; compiling (DEFUN FIND-TLF-NUMBER ...) ; compiling (DEFUN DUMP-BLOCK-LOCATIONS ...) ; compiling (DEFUN COMPUTE-DEBUG-BLOCKS ...) ; compiling (DEFUN DEBUG-SOURCE-FOR-INFO ...) ; compiling (DEFUN COERCE-TO-SMALLEST-ELTYPE ...) ; compiling (DEFUN TN-SC-OFFSET ...) ; compiling (DEFUN LAMBDA-ANCESTOR-P ...) ; compiling (DEFUN DUMP-1-VAR ...) ; compiling (DEFUN COMPUTE-VARS ...) ; compiling (DEFUN COMPUTE-MINIMAL-VARS ...) ; compiling (DEFUN DEBUG-LOCATION-FOR ...) ; compiling (DEFUN COMPUTE-ARGS ...) ; compiling (DEFUN COMPUTE-DEBUG-RETURNS ...) ; compiling (DEFUN DFUN-FROM-FUN ...) ; compiling (DEFUN COMPUTE-1-DEBUG-FUN ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/debug-dump.lisp ; in: DEFUN COMPUTE-1-DEBUG-FUN ; (MAX SB!C::ACTUAL-LEVEL 2) ; --> LET ; ==> ; SB!C::ACTUAL-LEVEL ; ; note: deleting unreachable code ; compiling (DEFUN COMPUTE-DEBUG-FUN-MAP ...) ; compiling (DEFUN DEBUG-INFO-FOR-COMPONENT ...) ; compiling (DEFUN WRITE-PACKED-BIT-VECTOR ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/debug-dump.lisp ; in: DEFUN COMPUTE-DEBUG-BLOCKS ; (SB!C::LABEL-ELSEWHERE-P (SB!C::LOCATION-INFO-LABEL SB!C::LOC) ; (SB!C::LOCATION-INFO-KIND SB!C::LOC)) ; ; caught STYLE-WARNING: ; undefined function: LABEL-ELSEWHERE-P ; ; compilation unit finished ; Undefined function: ; LABEL-ELSEWHERE-P ; caught 1 STYLE-WARNING condition ; printed 1 note ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/debug-dump.fasl-tmp written ; compilation finished in 0:00:00.234 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/utils.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFUN FIXNUMIZE ...) ; compiling (DEFUN FOLDABLE-CONSTANT-OFFSET-P ...) ; compiling (DEFUN STATIC-SYMBOL-P ...) ; compiling (DEFUN STATIC-SYMBOL-OFFSET ...) ; compiling (DEFUN OFFSET-STATIC-SYMBOL ...) ; compiling (DEFUN STATIC-FDEFN-OFFSET ...) ; compiling (DEFUN STATIC-FUN-OFFSET ...) ; compiling (DEFVAR *ADJUSTABLE-VECTORS* ...) ; compiling (DEFMACRO WITH-ADJUSTABLE-VECTOR ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/generic/utils.fasl-tmp written ; compilation finished in 0:00:00.023 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/fopcompile.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN FOPCOMPILABLE-P ...) ; compiling (DEFUN LET-FOPCOMPILABLE-P ...) ; compiling (DEFUN LAMBDA-FORM-P ...) ; compiling (DEFUN CONSTANT-FOPCOMPILABLE-P ...) ; compiling (DEFUN FOPCOMPILE ...) ; compiling (DEFUN FOPCOMPILE-FUNCTION ...) ; compiling (DEFUN FOPCOMPILE-IF ...) ; compiling (DEFUN FOPCOMPILE-CONSTANT ...) ; compiling (DEFUN CANONICAL-INSTANCE-MAKER-FORM-P ...) ; compiling (DEFUN FOPCOMPILE-ALLOCATE-INSTANCE ...) ; compiling (DEFUN TRIVIAL-LOAD-FORM-INITFORM-ARGS ...) ; compiling (DEFUN FOPCOMPILE-CONSTANT-INIT-FORMS ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/fopcompile.lisp ; in: DEFUN FOPCOMPILE ; (SB!INT:%MACROEXPAND SB!KERNEL:FORM SB!C:*LEXENV*) ; ; caught STYLE-WARNING: ; undefined function: %MACROEXPAND ; in: DEFUN CONSTANT-FOPCOMPILABLE-P ; (TYPEP SB!C::VALUE ; '(OR SB!KERNEL:UNBOXED-ARRAY SYMBOL NUMBER CHARACTER STRING)) ; ; caught STYLE-WARNING: ; undefined type: UNBOXED-ARRAY ; ; compilation unit finished ; Undefined type: ; UNBOXED-ARRAY ; Undefined function: ; %MACROEXPAND ; caught 2 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/fopcompile.fasl-tmp written ; compilation finished in 0:00:00.154 creating directory: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/assembly/ ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/assembly/assemfile.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFVAR *EMIT-ASSEMBLY-CODE-NOT-VOPS-P* ...) ; compiling (DEFVAR *ENTRY-POINTS* ...) ; compiling (DEFVAR *ASSEMBLY-OPTIMIZE* ...) ; compiling (DEFUN ASSEMBLE-FILE ...) ; compiling (DEFSTRUCT (REG-SPEC #) ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFUN REG-SPEC-SC ...) ; compiling (DEFUN PARSE-REG-SPEC ...) ; compiling (DEFUN EMIT-ASSEMBLE ...) ; compiling (DEFUN ARG-OR-RES-SPEC ...) ; compiling (DEFUN EMIT-ASSEMBLE-VOP ...) ; compiling (DEF!MACRO DEFINE-ASSEMBLY-ROUTINE ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/assembly/assemfile.lisp ; in: DEFUN EMIT-ASSEMBLE-VOP ; (SB!C:GENERATE-CALL-SEQUENCE SB!C::NAME SB!C::RETURN-STYLE SB!C::VOP ; SB!C::OPTIONS) ; ; caught STYLE-WARNING: ; undefined function: GENERATE-CALL-SEQUENCE ; in: DEFUN EMIT-ASSEMBLE ; (SB!INT:QUASIQUOTE ; (LET #S(SB!IMPL::COMMA :EXPR (MAPCAR (LAMBDA # #) SB!C::REGS) :KIND 0) ; #S(SB!IMPL::COMMA :EXPR (SB!C::DECLS) :KIND 2) ; (SB!ASSEM:ASSEMBLE (SB!C:*CODE-SEGMENT* ; '#S(SB!IMPL::COMMA :EXPR SB!C::NAME :KIND 0)) ; #S(SB!IMPL::COMMA :EXPR SB!C::NAME :KIND 0) ; (PUSH (CONS '# #) SB!C::*ENTRY-POINTS*) ; #S(SB!IMPL::COMMA :EXPR SB!C::CODE :KIND 2) ; #S(SB!IMPL::COMMA :EXPR (SB!C:GENERATE-RETURN-SEQUENCE #) :KIND 2)) ; (WHEN SB-XC:*COMPILE-PRINT* ; (FORMAT *ERROR-OUTPUT* "~S assembled~%" ; '#S(SB!IMPL::COMMA :EXPR SB!C::NAME :KIND 0))))) ; --> SB!IMPL::|List*| SB!IMPL::|Append| SB!IMPL::|List*| SB!IMPL::|List*| ; --> SB!IMPL::|Append| ; ==> ; (SB!C:GENERATE-RETURN-SEQUENCE ; (OR (CADR (ASSOC :RETURN-STYLE SB!C::OPTIONS)) :RAW)) ; ; caught STYLE-WARNING: ; undefined function: GENERATE-RETURN-SEQUENCE ; in: DEFUN ASSEMBLE-FILE ; (SB!C::INIT-ASSEMBLER) ; ; caught STYLE-WARNING: ; undefined function: INIT-ASSEMBLER ; ; compilation unit finished ; Undefined functions: ; GENERATE-CALL-SEQUENCE GENERATE-RETURN-SEQUENCE INIT-ASSEMBLER ; caught 3 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/assembly/assemfile.fasl-tmp written ; compilation finished in 0:00:00.090 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/late-vmdef.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN NOTE-THIS-LOCATION ...) ; compiling (DEFUN NOTE-NEXT-INSTRUCTION ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/late-vmdef.fasl-tmp written ; compilation finished in 0:00:00.007 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/fixup.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFSTRUCT (FIXUP # ...) ...) ; compiling (DEFSTRUCT (FIXUP-NOTE # ...) ...) ; compiling (DEFVAR *FIXUP-NOTES*) ; compiling (DEFVAR *SHOW-FIXUPS-BEING-PUSHED-P* ...) ; compiling (DEFUN NOTE-FIXUP ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/fixup.fasl-tmp written ; compilation finished in 0:00:00.026 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/insts.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (SETF SB!DISASSEM:*DISASSEM-INST-ALIGNMENT-BYTES* ...) ; compiling (DEFTYPE REG ...) ; compiling (DEF!CONSTANT +DEFAULT-OPERAND-SIZE+ ...) ; compiling (DEFUN OFFSET-NEXT ...) ; compiling (DEFPARAMETER *DEFAULT-ADDRESS-SIZE* ...) ; compiling (DEFPARAMETER *BYTE-REG-NAMES* ...) ; compiling (DEFPARAMETER *WORD-REG-NAMES* ...) ; compiling (DEFPARAMETER *DWORD-REG-NAMES* ...) ; compiling (DEFUN INST-OPERAND-SIZE ...) ; compiling (DEFUN INST-WORD-OPERAND-SIZE ...) ; compiling (DEFUN PRINT-REG-WITH-WIDTH ...) ; compiling (DEFUN PRINT-REG ...) ; compiling (DEFUN PRINT-WORD-REG ...) ; compiling (DEFUN PRINT-BYTE-REG ...) ; compiling (DEFUN PRINT-ADDR-REG ...) ; compiling (DEFUN PRINT-REG/MEM ...) ; compiling (DEFUN PRINT-SIZED-REG/MEM ...) ; compiling (DEFUN PRINT-BYTE-REG/MEM ...) ; compiling (DEFUN PRINT-WORD-REG/MEM ...) ; compiling (DEFUN PRINT-LABEL ...) ; compiling (DEFUN MAYBE-PRINT-SEGMENT-OVERRIDE ...) ; compiling (DEFUN PREFILTER-REG/MEM ...) ; compiling (DEFUN PREFILTER-WIDTH ...) ; compiling (DEFUN PREFILTER-X66 ...) ; compiling (DEFUN PREFILTER-SEG ...) ; compiling (DEFUN READ-ADDRESS ...) ; compiling (DEFUN WIDTH-BITS ...) ; compiling (SB!DISASSEM:DEFINE-ARG-TYPE DISPLACEMENT ...) ; compiling (SB!DISASSEM:DEFINE-ARG-TYPE ACCUM ...) ; compiling (SB!DISASSEM:DEFINE-ARG-TYPE WORD-ACCUM ...) ; compiling (SB!DISASSEM:DEFINE-ARG-TYPE REG ...) ; compiling (SB!DISASSEM:DEFINE-ARG-TYPE ADDR-REG ...) ; compiling (SB!DISASSEM:DEFINE-ARG-TYPE WORD-REG ...) ; compiling (SB!DISASSEM:DEFINE-ARG-TYPE IMM-ADDR ...) ; compiling (SB!DISASSEM:DEFINE-ARG-TYPE IMM-DATA ...) ; compiling (SB!DISASSEM:DEFINE-ARG-TYPE SIGNED-IMM-DATA ...) ; compiling (SB!DISASSEM:DEFINE-ARG-TYPE IMM-BYTE ...) ; compiling (SB!DISASSEM:DEFINE-ARG-TYPE SIGNED-IMM-BYTE ...) ; compiling (SB!DISASSEM:DEFINE-ARG-TYPE SIGNED-IMM-DWORD ...) ; compiling (SB!DISASSEM:DEFINE-ARG-TYPE IMM-WORD ...) ; compiling (SB!DISASSEM:DEFINE-ARG-TYPE SIGNED-IMM-WORD ...) ; compiling (SB!DISASSEM:DEFINE-ARG-TYPE IMM-WORD-16 ...) ; compiling (SB!DISASSEM:DEFINE-ARG-TYPE REG/MEM ...) ; compiling (SB!DISASSEM:DEFINE-ARG-TYPE SIZED-REG/MEM ...) ; compiling (SB!DISASSEM:DEFINE-ARG-TYPE BYTE-REG/MEM ...) ; compiling (SB!DISASSEM:DEFINE-ARG-TYPE WORD-REG/MEM ...) ; compiling (DEFUN PRINT-FP-REG ...) ; compiling (DEFUN PREFILTER-FP-REG ...) ; compiling (SB!DISASSEM:DEFINE-ARG-TYPE FP-REG ...) ; compiling (SB!DISASSEM:DEFINE-ARG-TYPE WIDTH ...) ; compiling (SB!DISASSEM:DEFINE-ARG-TYPE X66 ...) ; compiling (SB!DISASSEM:DEFINE-ARG-TYPE SEG ...) ; compiling (DEFPARAMETER *CONDITIONS* ...) ; compiling (DEFPARAMETER *CONDITION-NAME-VEC* ...) ; compiling (SETF *ASSEM-SCHEDULER-P* ...) ; compiling (SB!DISASSEM:DEFINE-ARG-TYPE CONDITION-CODE ...) ; compiling (DEFUN CONDITIONAL-OPCODE ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (BYTE 8 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (X66 8) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (SEG 8) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (SIMPLE 8) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (TWO-BYTES 16 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (SIMPLE-DIR 8 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (ACCUM-IMM 8 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (REG-NO-WIDTH 8 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (REG 8 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (REG-DIR 8 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (REG-REG/MEM 16 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (REG-REG/MEM-DIR 16 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (REG/MEM 16 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (REG/MEM-IMM 16 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (ACCUM-REG/MEM 16 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-REG-REG/MEM 24 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-REG-REG/MEM-NO-WIDTH 24 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-REG/MEM-NO-WIDTH 24 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-REG-NO-WIDTH 16 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-REG/MEM 24 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-REG/MEM-IMM 24 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-REG/MEM-NO-WIDTH+IMM8 24 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (FLOATING-POINT 16 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (FLOATING-POINT-FP 16 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (FLOATING-POINT-FP-D 16 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (FLOATING-POINT-NO 16 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (FLOATING-POINT-3 16 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (FLOATING-POINT-5 16 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (FLOATING-POINT-ST 16 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (STRING-OP 8 ...)) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (SHORT-COND-JUMP 16) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (SHORT-JUMP 16 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (NEAR-COND-JUMP 16) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (NEAR-JUMP 8 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (COND-SET 24 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (COND-MOVE 24 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (ENTER-FORMAT 32 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (PREFETCH 24 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (BYTE-IMM 16 ...) ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (WORD-IMM 24 ...) ...) ; compiling (DEFINE-BITFIELD-EMITTER EMIT-WORD ...) ; compiling (DEFINE-BITFIELD-EMITTER EMIT-DWORD ...) ; compiling (DEFINE-BITFIELD-EMITTER EMIT-BYTE-WITH-REG ...) ; compiling (DEFINE-BITFIELD-EMITTER EMIT-MOD-REG-R/M-BYTE ...) ; compiling (DEFINE-BITFIELD-EMITTER EMIT-SIB-BYTE ...) ; compiling (DEFUN EMIT-ABSOLUTE-FIXUP ...) ; compiling (DEFUN EMIT-RELATIVE-FIXUP ...) ; compiling (DEFUN REG-TN-ENCODING ...) ; compiling (DEFSTRUCT (EA # ...) ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFUN EMIT-EA ...) ; compiling (DEFUN FP-REG-TN-P ...) ; compiling (DEFUN EMIT-FP-OP ...) ; compiling (DEFUN BYTE-REG-P ...) ; compiling (DEFUN BYTE-EA-P ...) ; compiling (DEFUN WORD-REG-P ...) ; compiling (DEFUN WORD-EA-P ...) ; compiling (DEFUN DWORD-REG-P ...) ; compiling (DEFUN DWORD-EA-P ...) ; compiling (DEFUN REGISTER-P ...) ; compiling (DEFUN ACCUMULATOR-P ...) ; compiling (DEF!CONSTANT +OPERAND-SIZE-PREFIX-BYTE+ ...) ; compiling (DEFUN MAYBE-EMIT-OPERAND-SIZE-PREFIX ...) ; compiling (DEFUN OPERAND-SIZE ...) ; compiling (DEFUN MATCHING-OPERAND-SIZE ...) ; compiling (DEFUN EMIT-SIZED-IMMEDIATE ...) ; compiling (DEFINE-INSTRUCTION X66 ...) ; compiling (DEFUN EMIT-PREFIX ...) ; compiling (DEFINE-INSTRUCTION FS ...) ; compiling (DEFINE-INSTRUCTION GS ...) ; compiling (DEFINE-INSTRUCTION LOCK ...) ; compiling (DEFINE-INSTRUCTION REP ...) ; compiling (DEFINE-INSTRUCTION REPE ...) ; compiling (DEFINE-INSTRUCTION REPNE ...) ; compiling (DEFINE-INSTRUCTION MOV ...) ; compiling (DEFUN EMIT-MOVE-WITH-EXTENSION ...) ; compiling (DEFINE-INSTRUCTION MOVSX ...) ; compiling (DEFINE-INSTRUCTION MOVZX ...) ; compiling (DEFINE-INSTRUCTION PUSH ...) ; compiling (DEFINE-INSTRUCTION PUSHA ...) ; compiling (DEFINE-INSTRUCTION POP ...) ; compiling (DEFINE-INSTRUCTION POPA ...) ; compiling (DEFINE-INSTRUCTION XCHG ...) ; compiling (DEFINE-INSTRUCTION LEA ...) ; compiling (DEFINE-INSTRUCTION CMPXCHG ...) ; compiling (DEFINE-INSTRUCTION CMPXCHG8B ...) ; compiling (DEFINE-INSTRUCTION PAUSE ...) ; compiling (DEFINE-INSTRUCTION CLC ...) ; compiling (DEFINE-INSTRUCTION CLD ...) ; compiling (DEFINE-INSTRUCTION CLI ...) ; compiling (DEFINE-INSTRUCTION CMC ...) ; compiling (DEFINE-INSTRUCTION LAHF ...) ; compiling (DEFINE-INSTRUCTION POPF ...) ; compiling (DEFINE-INSTRUCTION PUSHF ...) ; compiling (DEFINE-INSTRUCTION SAHF ...) ; compiling (DEFINE-INSTRUCTION STC ...) ; compiling (DEFINE-INSTRUCTION STD ...) ; compiling (DEFINE-INSTRUCTION STI ...) ; compiling (DEFUN EMIT-RANDOM-ARITH-INST ...) ; compiling (DEFINE-INSTRUCTION ADD ...) ; compiling (DEFINE-INSTRUCTION ADC ...) ; compiling (DEFINE-INSTRUCTION SUB ...) ; compiling (DEFINE-INSTRUCTION SBB ...) ; compiling (DEFINE-INSTRUCTION CMP ...) ; compiling (DEFINE-INSTRUCTION INC ...) ; compiling (DEFINE-INSTRUCTION DEC ...) ; compiling (DEFINE-INSTRUCTION NEG ...) ; compiling (DEFINE-INSTRUCTION AAA ...) ; compiling (DEFINE-INSTRUCTION AAS ...) ; compiling (DEFINE-INSTRUCTION DAA ...) ; compiling (DEFINE-INSTRUCTION DAS ...) ; compiling (DEFINE-INSTRUCTION MUL ...) ; compiling (DEFINE-INSTRUCTION IMUL ...) ; compiling (DEFINE-INSTRUCTION DIV ...) ; compiling (DEFINE-INSTRUCTION IDIV ...) ; compiling (DEFINE-INSTRUCTION AAD ...) ; compiling (DEFINE-INSTRUCTION AAM ...) ; compiling (DEFINE-INSTRUCTION BSWAP ...) ; compiling (DEFINE-INSTRUCTION CBW ...) ; compiling (DEFINE-INSTRUCTION CWDE ...) ; compiling (DEFINE-INSTRUCTION CWD ...) ; compiling (DEFINE-INSTRUCTION CDQ ...) ; compiling (DEFINE-INSTRUCTION XADD ...) ; compiling (DEFUN EMIT-SHIFT-INST ...) ; compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (SHIFT-INST 16 ...) ...) ; compiling (DEFINE ROL ...) ; compiling (DEFINE ROR ...) ; compiling (DEFINE RCL ...) ; compiling (DEFINE RCR ...) ; compiling (DEFINE SHL ...) ; compiling (DEFINE SHR ...) ; compiling (DEFINE SAR ...) ; compiling (DEFUN EMIT-DOUBLE-SHIFT ...) ; compiling (DEFINE-INSTRUCTION SHLD ...) ; compiling (DEFINE-INSTRUCTION SHRD ...) ; compiling (DEFINE-INSTRUCTION AND ...) ; compiling (DEFINE-INSTRUCTION TEST ...) ; compiling (DEFUN EMIT-OPTIMIZED-TEST-INST ...) ; compiling (DEFINE-INSTRUCTION OR ...) ; compiling (DEFINE-INSTRUCTION XOR ...) ; compiling (DEFINE-INSTRUCTION NOT ...) ; compiling (DEFINE-INSTRUCTION CMPS ...) ; compiling (DEFINE-INSTRUCTION INS ...) ; compiling (DEFINE-INSTRUCTION LODS ...) ; compiling (DEFINE-INSTRUCTION MOVS ...) ; compiling (DEFINE-INSTRUCTION OUTS ...) ; compiling (DEFINE-INSTRUCTION SCAS ...) ; compiling (DEFINE-INSTRUCTION STOS ...) ; compiling (DEFINE-INSTRUCTION XLAT ...) ; compiling (DEFINE-INSTRUCTION BSF ...) ; compiling (DEFINE-INSTRUCTION BSR ...) ; compiling (DEFUN EMIT-BIT-TEST-AND-MUMBLE ...) ; compiling (DEFINE BT ...) ; compiling (DEFINE BTS ...) ; compiling (DEFINE BTR ...) ; compiling (DEFINE BTC ...) ; compiling (DEFINE-INSTRUCTION CALL ...) ; compiling (DEFUN EMIT-BYTE-DISPLACEMENT-BACKPATCH ...) ; compiling (DEFINE-INSTRUCTION JMP ...) ; compiling (DEFINE-INSTRUCTION JMP-SHORT ...) ; compiling (DEFINE-INSTRUCTION RET ...) ; compiling (DEFINE-INSTRUCTION JECXZ ...) ; compiling (DEFINE-INSTRUCTION LOOP ...) ; compiling (DEFINE-INSTRUCTION LOOPZ ...) ; compiling (DEFINE-INSTRUCTION LOOPNZ ...) ; compiling (DEFINE-INSTRUCTION CMOV ...) ; compiling (DEFINE-INSTRUCTION SET ...) ; compiling (DEFINE-INSTRUCTION ENTER ...) ; compiling (DEFINE-INSTRUCTION LEAVE ...) ; compiling (DEFINE-INSTRUCTION PREFETCHNTA ...) ; compiling (DEFINE-INSTRUCTION PREFETCHT0 ...) ; compiling (DEFINE-INSTRUCTION PREFETCHT1 ...) ; compiling (DEFINE-INSTRUCTION PREFETCHT2 ...) ; compiling (DEFUN SNARF-ERROR-JUNK ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/insts.lisp ; in: DEFUN SNARF-ERROR-JUNK ; (LET* ((LENGTH (SB!SYS:SAP-REF-8 SB!VM::SAP SB!VM::OFFSET)) ; (VECTOR (MAKE-ARRAY LENGTH :ELEMENT-TYPE '(UNSIGNED-BYTE 8)))) ; (DECLARE (TYPE SB!SYS:SYSTEM-AREA-POINTER SB!VM::SAP) ; (TYPE (UNSIGNED-BYTE 8) LENGTH) ; (TYPE (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) VECTOR)) ; (COND (SB!VM::LENGTH-ONLY (VALUES 0 (1+ LENGTH) NIL NIL)) ; (T ; (SB!KERNEL:COPY-UB8-FROM-SYSTEM-AREA SB!VM::SAP (1+ SB!VM::OFFSET) ; VECTOR 0 LENGTH) ; (SB!INT:COLLECT (# #) ; (SB!VM::LENGTHS 1) ; (LET* # ; # ; # ; #))))) ; ; note: deleting unreachable code ; (SB!C:READ-VAR-INTEGER VECTOR SB!INT:INDEX) ; --> LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL SB!C::%READ-VAR-INTEGER ; ==> ; SB!INT:INDEX ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (- SB!INT:INDEX SB!VM::OLD-INDEX) ; ==> ; SB!INT:INDEX ; ; note: deleting unreachable code ; (LET ((SB!VM::OLD-INDEX SB!INT:INDEX)) ; (SB!VM::SC-OFFSETS (SB!C:READ-VAR-INTEGER VECTOR SB!INT:INDEX)) ; (SB!VM::LENGTHS (- SB!INT:INDEX SB!VM::OLD-INDEX))) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (>= SB!INT:INDEX LENGTH) ; ==> ; SB!INT:INDEX ; ; note: deleting unreachable code ; (VALUES SB!VM::ERROR-NUMBER (1+ LENGTH) (SB!VM::SC-OFFSETS) (SB!VM::LENGTHS)) ; ==> ; SB!VM::ERROR-NUMBER ; ; note: deleting unreachable code ; (LET* ((SB!INT:INDEX 0) ; (SB!VM::ERROR-NUMBER (SB!C:READ-VAR-INTEGER VECTOR SB!INT:INDEX))) ; (SB!VM::LENGTHS SB!INT:INDEX) ; (LOOP (WHEN (>= SB!INT:INDEX LENGTH) (RETURN)) ; (LET ((SB!VM::OLD-INDEX SB!INT:INDEX)) ; (SB!VM::SC-OFFSETS (SB!C:READ-VAR-INTEGER VECTOR SB!INT:INDEX)) ; (SB!VM::LENGTHS (- SB!INT:INDEX SB!VM::OLD-INDEX)))) ; (VALUES SB!VM::ERROR-NUMBER (1+ LENGTH) (SB!VM::SC-OFFSETS) ; (SB!VM::LENGTHS))) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (SB!KERNEL:COPY-UB8-FROM-SYSTEM-AREA SB!VM::SAP (1+ SB!VM::OFFSET) VECTOR 0 ; LENGTH) ; ==> ; SB!VM::SAP ; ; note: deleting unreachable code ; (1+ LENGTH) ; --> + ; ==> ; LENGTH ; ; note: deleting unreachable code ; (LET* ((LENGTH (SB!SYS:SAP-REF-8 SB!VM::SAP SB!VM::OFFSET)) ; (VECTOR (MAKE-ARRAY LENGTH :ELEMENT-TYPE '(UNSIGNED-BYTE 8)))) ; (DECLARE (TYPE SB!SYS:SYSTEM-AREA-POINTER SB!VM::SAP) ; (TYPE (UNSIGNED-BYTE 8) LENGTH) ; (TYPE (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) VECTOR)) ; (COND (SB!VM::LENGTH-ONLY (VALUES 0 (1+ LENGTH) NIL NIL)) ; (T ; (SB!KERNEL:COPY-UB8-FROM-SYSTEM-AREA SB!VM::SAP (1+ SB!VM::OFFSET) ; VECTOR 0 LENGTH) ; (SB!INT:COLLECT (# #) ; (SB!VM::LENGTHS 1) ; (LET* # ; # ; # ; #))))) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; compiling (DEFUN BREAK-CONTROL ...) ; compiling (DEFINE-INSTRUCTION BREAK ...) ; compiling (DEFINE-INSTRUCTION INT ...) ; compiling (DEFINE-INSTRUCTION INTO ...) ; compiling (DEFINE-INSTRUCTION BOUND ...) ; compiling (DEFINE-INSTRUCTION IRET ...) ; compiling (DEFINE-INSTRUCTION HLT ...) ; compiling (DEFINE-INSTRUCTION NOP ...) ; compiling (DEFINE-INSTRUCTION WAIT ...) ; compiling (DEFINE-INSTRUCTION BYTE ...) ; compiling (DEFINE-INSTRUCTION WORD ...) ; compiling (DEFINE-INSTRUCTION DWORD ...) ; compiling (DEFUN EMIT-HEADER-DATA ...) ; compiling (DEFINE-INSTRUCTION SIMPLE-FUN-HEADER-WORD ...) ; compiling (DEFINE-INSTRUCTION LRA-HEADER-WORD ...) ; compiling (DEFINE-INSTRUCTION FLD ...) ; compiling (DEFINE-INSTRUCTION FLDD ...) ; compiling (DEFINE-INSTRUCTION FLDL ...) ; compiling (DEFINE-INSTRUCTION FST ...) ; compiling (DEFINE-INSTRUCTION FSTD ...) ; compiling (DEFINE-INSTRUCTION FADD ...) ; compiling (DEFINE-INSTRUCTION FADDD ...) ; compiling (DEFINE-INSTRUCTION FADD-STI ...) ; compiling (DEFINE-INSTRUCTION FADDP-STI ...) ; compiling (DEFINE-INSTRUCTION FSUB ...) ; compiling (DEFINE-INSTRUCTION FSUBR ...) ; compiling (DEFINE-INSTRUCTION FSUBD ...) ; compiling (DEFINE-INSTRUCTION FSUBRD ...) ; compiling (DEFINE-INSTRUCTION FSUB-STI ...) ; compiling (DEFINE-INSTRUCTION FSUBP-STI ...) ; compiling (DEFINE-INSTRUCTION FSUBR-STI ...) ; compiling (DEFINE-INSTRUCTION FSUBRP-STI ...) ; compiling (DEFINE-INSTRUCTION FMUL ...) ; compiling (DEFINE-INSTRUCTION FMULD ...) ; compiling (DEFINE-INSTRUCTION FMUL-STI ...) ; compiling (DEFINE-INSTRUCTION FDIV ...) ; compiling (DEFINE-INSTRUCTION FDIVR ...) ; compiling (DEFINE-INSTRUCTION FDIVD ...) ; compiling (DEFINE-INSTRUCTION FDIVRD ...) ; compiling (DEFINE-INSTRUCTION FDIV-STI ...) ; compiling (DEFINE-INSTRUCTION FDIVR-STI ...) ; compiling (DEFINE-INSTRUCTION FXCH ...) ; compiling (DEFINE-INSTRUCTION FILD ...) ; compiling (DEFINE-INSTRUCTION FILDL ...) ; compiling (DEFINE-INSTRUCTION FIST ...) ; compiling (DEFINE-INSTRUCTION FISTP ...) ; compiling (DEFINE-INSTRUCTION FISTPL ...) ; compiling (DEFINE-INSTRUCTION FSTP ...) ; compiling (DEFINE-INSTRUCTION FSTPD ...) ; compiling (DEFINE-INSTRUCTION FSTPL ...) ; compiling (DEFINE-INSTRUCTION FDECSTP ...) ; compiling (DEFINE-INSTRUCTION FINCSTP ...) ; compiling (DEFINE-INSTRUCTION FFREE ...) ; compiling (DEFINE-INSTRUCTION FABS ...) ; compiling (DEFINE-INSTRUCTION FCHS ...) ; compiling (DEFINE-INSTRUCTION FRNDINT ...) ; compiling (DEFINE-INSTRUCTION FNINIT ...) ; compiling (DEFINE-INSTRUCTION FNSTSW ...) ; compiling (DEFINE-INSTRUCTION FLDCW ...) ; compiling (DEFINE-INSTRUCTION FNSTCW ...) ; compiling (DEFINE-INSTRUCTION FSTENV ...) ; compiling (DEFINE-INSTRUCTION FLDENV ...) ; compiling (DEFINE-INSTRUCTION FSAVE ...) ; compiling (DEFINE-INSTRUCTION FRSTOR ...) ; compiling (DEFINE-INSTRUCTION FNCLEX ...) ; compiling (DEFINE-INSTRUCTION FCOM ...) ; compiling (DEFINE-INSTRUCTION FCOMD ...) ; compiling (DEFINE-INSTRUCTION FCOMPP ...) ; compiling (DEFINE-INSTRUCTION FUCOM ...) ; compiling (DEFINE-INSTRUCTION FTST ...) ; compiling (DEFINE-INSTRUCTION FSQRT ...) ; compiling (DEFINE-INSTRUCTION FSCALE ...) ; compiling (DEFINE-INSTRUCTION FXTRACT ...) ; compiling (DEFINE-INSTRUCTION FSIN ...) ; compiling (DEFINE-INSTRUCTION FCOS ...) ; compiling (DEFINE-INSTRUCTION FPREM1 ...) ; compiling (DEFINE-INSTRUCTION FPREM ...) ; compiling (DEFINE-INSTRUCTION FXAM ...) ; compiling (DEFINE-INSTRUCTION FYL2X ...) ; compiling (DEFINE-INSTRUCTION FYL2XP1 ...) ; compiling (DEFINE-INSTRUCTION F2XM1 ...) ; compiling (DEFINE-INSTRUCTION FPTAN ...) ; compiling (DEFINE-INSTRUCTION FPATAN ...) ; compiling (DEFINE-INSTRUCTION FLDZ ...) ; compiling (DEFINE-INSTRUCTION FLD1 ...) ; compiling (DEFINE-INSTRUCTION FLDPI ...) ; compiling (DEFINE-INSTRUCTION FLDL2T ...) ; compiling (DEFINE-INSTRUCTION FLDL2E ...) ; compiling (DEFINE-INSTRUCTION FLDLG2 ...) ; compiling (DEFINE-INSTRUCTION FLDLN2 ...) ; compiling (DEFINE-INSTRUCTION CPUID ...) ; compiling (DEFINE-INSTRUCTION RDTSC ...) ; compiling (DEFUN CANONICALIZE-INLINE-CONSTANT ...) ; compiling (DEFUN INLINE-CONSTANT-VALUE ...) ; compiling (DEFUN EMIT-CONSTANT-SEGMENT-HEADER ...) ; compiling (DEFUN SIZE-NBYTE ...) ; compiling (DEFUN SORT-INLINE-CONSTANTS ...) ; compiling (DEFUN EMIT-INLINE-CONSTANT ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/insts.lisp ; in: DEFUN CANONICALIZE-INLINE-CONSTANT ; (SB!KERNEL:BASE-CHAR-P SB!VM::VALUE) ; ; caught STYLE-WARNING: ; undefined function: BASE-CHAR-P ; in: DEFUN EMIT-HEADER-DATA ; (SB!C:COMPONENT-HEADER-LENGTH) ; ; caught STYLE-WARNING: ; undefined function: COMPONENT-HEADER-LENGTH ; in: DEFUN EMIT-ABSOLUTE-FIXUP ; (SB!C:COMPONENT-HEADER-LENGTH) ; ; caught STYLE-WARNING: ; undefined function: COMPONENT-HEADER-LENGTH ; in: DEFUN SNARF-ERROR-JUNK ; (SB!KERNEL:COPY-UB8-FROM-SYSTEM-AREA SB!VM::SAP (1+ SB!VM::OFFSET) VECTOR 0 ; LENGTH) ; ; caught STYLE-WARNING: ; undefined function: COPY-UB8-FROM-SYSTEM-AREA ; in: DEFUN BREAK-CONTROL ; (SB!DISASSEM:HANDLE-BREAK-ARGS #'SB!VM::SNARF-ERROR-JUNK STREAM SB!VM::DSTATE) ; ; caught STYLE-WARNING: ; undefined function: SB!DISASSEM:HANDLE-BREAK-ARGS ; in: SB!DISASSEM:DEFINE-ARG-TYPE DISPLACEMENT ; (SB!DISASSEM:MAYBE-NOTE-ASSEMBLER-ROUTINE SB!VM::VALUE NIL SB!VM::DSTATE) ; ; caught STYLE-WARNING: ; undefined function: SB!DISASSEM:MAYBE-NOTE-ASSEMBLER-ROUTINE ; in: DEFUN BREAK-CONTROL ; (SB!DISASSEM:NOTE SB!VM::X SB!VM::DSTATE) ; ; caught STYLE-WARNING: ; undefined function: SB!DISASSEM:NOTE ; in: DEFUN PRINT-BYTE-REG/MEM ; (SB!VM::PRINT-MEM-ACCESS SB!VM::VALUE STREAM T SB!VM::DSTATE) ; ; caught STYLE-WARNING: ; undefined function: PRINT-MEM-ACCESS ; in: DEFUN PRINT-SIZED-REG/MEM ; (SB!VM::PRINT-MEM-ACCESS SB!VM::VALUE STREAM T SB!VM::DSTATE) ; ; caught STYLE-WARNING: ; undefined function: PRINT-MEM-ACCESS ; in: DEFUN PRINT-REG/MEM ; (SB!VM::PRINT-MEM-ACCESS SB!VM::VALUE STREAM NIL SB!VM::DSTATE) ; ; caught STYLE-WARNING: ; undefined function: PRINT-MEM-ACCESS ; ; caught STYLE-WARNING: ; 2 more uses of undefined function PRINT-MEM-ACCESS ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/insts.lisp ; in: SB!DISASSEM:DEFINE-ARG-TYPE IMM-DATA ; (SB!DISASSEM:READ-SUFFIX ; (SB!VM::WIDTH-BITS (SB!VM::INST-OPERAND-SIZE SB!VM::DSTATE)) SB!VM::DSTATE) ; ; caught STYLE-WARNING: ; undefined function: SB!DISASSEM:READ-SUFFIX ; in: DEFUN READ-ADDRESS ; (SB!DISASSEM:READ-SUFFIX (SB!VM::WIDTH-BITS SB!VM::*DEFAULT-ADDRESS-SIZE*) ; SB!VM::DSTATE) ; ; caught STYLE-WARNING: ; undefined function: SB!DISASSEM:READ-SUFFIX ; in: DEFUN PREFILTER-REG/MEM ; (SB!DISASSEM:READ-SUFFIX 8 SB!VM::DSTATE) ; ; caught STYLE-WARNING: ; undefined function: SB!DISASSEM:READ-SUFFIX ; ; caught STYLE-WARNING: ; 6 more uses of undefined function SB!DISASSEM:READ-SUFFIX ; ; compilation unit finished ; Undefined functions: ; BASE-CHAR-P COMPONENT-HEADER-LENGTH COPY-UB8-FROM-SYSTEM-AREA SB!DISASSEM:HANDLE-BREAK-ARGS SB!DISASSEM:MAYBE-NOTE-ASSEMBLER-ROUTINE SB!DISASSEM:NOTE PRINT-MEM-ACCESS SB!DISASSEM:READ-SUFFIX ; caught 15 STYLE-WARNING conditions ; printed 16 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/x86/insts.fasl-tmp written ; compilation finished in 0:00:01.506 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/macros.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFMACRO WITH-TN@FP-TOP ...) ; compiling (DEFMACRO WITH-EMPTY-TN@FP-TOP ...) ; compiling (DEFMACRO MOVE ...) ; compiling (DEFMACRO ALIGN-STACK-POINTER ...) ; compiling (DEFMACRO MAKE-EA-FOR-OBJECT-SLOT ...) ; compiling (DEFMACRO LOADW ...) ; compiling (DEFMACRO STOREW ...) ; compiling (DEFMACRO STOREB ...) ; compiling (DEFMACRO PUSHW ...) ; compiling (DEFMACRO POPW ...) ; compiling (DEFMACRO MAKE-EA-FOR-VECTOR-DATA ...) ; compiling (DEFMACRO LOAD-SYMBOL ...) ; compiling (DEFMACRO MAKE-EA-FOR-SYMBOL-VALUE ...) ; compiling (DEFMACRO LOAD-SYMBOL-VALUE ...) ; compiling (DEFMACRO STORE-SYMBOL-VALUE ...) ; compiling (DEFMACRO LOAD-TL-SYMBOL-VALUE ...) ; compiling (DEFMACRO STORE-TL-SYMBOL-VALUE ...) ; compiling (DEFMACRO LOAD-BINDING-STACK-POINTER ...) ; compiling (DEFMACRO STORE-BINDING-STACK-POINTER ...) ; compiling (DEFMACRO LOAD-TYPE ...) ; compiling (DEFUN ALLOCATION-DYNAMIC-EXTENT ...) ; compiling (DEFUN ALLOCATION-NOTINLINE ...) ; compiling (DEFUN ALLOCATION-INLINE ...) ; compiling (DEFUN ALLOCATION ...) ; compiling (DEFMACRO WITH-FIXED-ALLOCATION ...) ; compiling (DEFUN EMIT-ERROR-BREAK ...) ; compiling (DEFUN ERROR-CALL ...) ; compiling (DEFUN GENERATE-ERROR-CODE ...) ; compiling (DEFMACRO MAYBE-PSEUDO-ATOMIC ...) ; compiling (DEFMACRO PSEUDO-ATOMIC ...) ; compiling (DEFMACRO DEFINE-FULL-COMPARE-AND-SWAP ...) ; compiling (DEFMACRO DEFINE-FULL-REFFER ...) ; compiling (DEFMACRO DEFINE-FULL-REFFER+OFFSET ...) ; compiling (DEFMACRO DEFINE-FULL-SETTER ...) ; compiling (DEFMACRO DEFINE-FULL-SETTER+OFFSET ...) ; compiling (DEF!MACRO WITH-PINNED-OBJECTS ...) ; compiling (DEFMACRO WITH-TLS-EA ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/x86/macros.fasl-tmp written ; compilation finished in 0:00:00.218 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/early-type-vops.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFPARAMETER *IMMEDIATE-TYPES* ...) ; compiling (DEFPARAMETER *FUN-HEADER-WIDETAGS* ...) ; compiling (DEFUN CANONICALIZE-HEADERS ...) ; compiling (DEFUN CANONICALIZE-HEADERS-AND-EXCEPTIONS ...) ; compiling (DEFMACRO TEST-TYPE ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/generic/early-type-vops.fasl-tmp written ; compilation finished in 0:00:00.028 creating directory: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/assembly/x86/ ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/assembly/x86/support.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFUN GENERATE-CALL-SEQUENCE ...) ; compiling (DEFUN GENERATE-RETURN-SEQUENCE ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/assembly/x86/support.fasl-tmp written ; compilation finished in 0:00:00.005 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/move.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFINE-MOVE-FUN (LOAD-IMMEDIATE 1) ...) ; compiling (DEFINE-MOVE-FUN (LOAD-NUMBER 1) ...) ; compiling (DEFINE-MOVE-FUN (LOAD-CHARACTER 1) ...) ; compiling (DEFINE-MOVE-FUN (LOAD-SYSTEM-AREA-POINTER 1) ...) ; compiling (DEFINE-MOVE-FUN (LOAD-CONSTANT 5) ...) ; compiling (DEFINE-MOVE-FUN (LOAD-STACK 5) ...) ; compiling (DEFINE-MOVE-FUN (STORE-STACK 5) ...) ; compiling (DEFINE-VOP (MOVE) ...) ; compiling (DEFINE-MOVE-VOP MOVE ...) ; compiling (PRIMITIVE-TYPE-VOP MOVE ...) ; compiling (DEFINE-VOP (MOVE-ARG) ...) ; compiling (DEFINE-MOVE-VOP MOVE-ARG ...) ; compiling (DEFINE-VOP (ILLEGAL-MOVE) ...) ; compiling (DEFINE-VOP (MOVE-TO-WORD/FIXNUM) ...) ; compiling (DEFINE-MOVE-VOP MOVE-TO-WORD/FIXNUM ...) ; compiling (DEFINE-VOP (MOVE-TO-WORD-C) ...) ; compiling (DEFINE-MOVE-VOP MOVE-TO-WORD-C ...) ; compiling (DEFINE-VOP (MOVE-TO-WORD/INTEGER) ...) ; compiling (DEFINE-MOVE-VOP MOVE-TO-WORD/INTEGER ...) ; compiling (DEFINE-VOP (MOVE-FROM-WORD/FIXNUM) ...) ; compiling (DEFINE-MOVE-VOP MOVE-FROM-WORD/FIXNUM ...) ; compiling (DEFINE-VOP (MOVE-FROM-SIGNED) ...) ; compiling (DEFINE-MOVE-VOP MOVE-FROM-SIGNED ...) ; compiling (DEFINE-VOP (MOVE-FROM-UNSIGNED) ...) ; compiling (DEFINE-MOVE-VOP MOVE-FROM-UNSIGNED ...) ; compiling (DEFINE-VOP (WORD-MOVE) ...) ; compiling (DEFINE-MOVE-VOP WORD-MOVE ...) ; compiling (DEFINE-VOP (MOVE-WORD-ARG) ...) ; compiling (DEFINE-MOVE-VOP MOVE-WORD-ARG ...) ; compiling (DEFINE-MOVE-VOP MOVE-ARG ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/x86/move.fasl-tmp written ; compilation finished in 0:00:00.337 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/float.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFUN EA-FOR-SF-DESC ...) ; compiling (DEFUN EA-FOR-DF-DESC ...) ; compiling (DEFUN EA-FOR-CSF-REAL-DESC ...) ; compiling (DEFUN EA-FOR-CSF-IMAG-DESC ...) ; compiling (DEFUN EA-FOR-CDF-REAL-DESC ...) ; compiling (DEFUN EA-FOR-CDF-IMAG-DESC ...) ; compiling (DEFUN EA-FOR-SF-STACK ...) ; compiling (DEFUN EA-FOR-DF-STACK ...) ; compiling (DEFUN MAYBE-FP-WAIT ...) ; compiling (DEFUN EA-FOR-CSF-REAL-STACK ...) ; compiling (DEFUN EA-FOR-CSF-IMAG-STACK ...) ; compiling (DEFUN EA-FOR-CDF-REAL-STACK ...) ; compiling (DEFUN EA-FOR-CDF-IMAG-STACK ...) ; compiling (DEFUN COPY-FP-REG-TO-FR0 ...) ; compiling (DEFINE-MOVE-FUN (LOAD-SINGLE 2) ...) ; compiling (DEFINE-MOVE-FUN (STORE-SINGLE 2) ...) ; compiling (DEFINE-MOVE-FUN (LOAD-DOUBLE 2) ...) ; compiling (DEFINE-MOVE-FUN (STORE-DOUBLE 2) ...) ; compiling (DEFINE-MOVE-FUN (LOAD-FP-CONSTANT 2) ...) ; compiling (DEFINE-MOVE-FUN (LOAD-FP-IMMEDIATE 2) ...) ; compiling (DEFUN COMPLEX-SINGLE-REG-REAL-TN ...) ; compiling (DEFUN COMPLEX-SINGLE-REG-IMAG-TN ...) ; compiling (DEFUN COMPLEX-DOUBLE-REG-REAL-TN ...) ; compiling (DEFUN COMPLEX-DOUBLE-REG-IMAG-TN ...) ; compiling (DEFINE-MOVE-FUN (LOAD-COMPLEX-SINGLE 2) ...) ; compiling (DEFINE-MOVE-FUN (STORE-COMPLEX-SINGLE 2) ...) ; compiling (DEFINE-MOVE-FUN (LOAD-COMPLEX-DOUBLE 2) ...) ; compiling (DEFINE-MOVE-FUN (STORE-COMPLEX-DOUBLE 2) ...) ; compiling (DEFINE-VOP (FLOAT-MOVE) ...) ; compiling (DEFINE-VOP (SINGLE-MOVE FLOAT-MOVE) ...) ; compiling (DEFINE-MOVE-VOP SINGLE-MOVE ...) ; compiling (DEFINE-VOP (DOUBLE-MOVE FLOAT-MOVE) ...) ; compiling (DEFINE-MOVE-VOP DOUBLE-MOVE ...) ; compiling (DEFINE-VOP (COMPLEX-FLOAT-MOVE) ...) ; compiling (DEFINE-VOP (COMPLEX-SINGLE-MOVE COMPLEX-FLOAT-MOVE) ...) ; compiling (DEFINE-MOVE-VOP COMPLEX-SINGLE-MOVE ...) ; compiling (DEFINE-VOP (COMPLEX-DOUBLE-MOVE COMPLEX-FLOAT-MOVE) ...) ; compiling (DEFINE-MOVE-VOP COMPLEX-DOUBLE-MOVE ...) ; compiling (DEFINE-VOP (MOVE-FROM-SINGLE) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/float.lisp ; in: DEFINE-VOP (MOVE-FROM-SINGLE) ; (SB!VM::WITH-FIXED-ALLOCATION (SB!VM::Y SB!VM:SINGLE-FLOAT-WIDETAG ; SB!VM:SINGLE-FLOAT-SIZE SB!VM::NODE) ; NIL) ; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::ALLOCATION ; ==> ; SB!VM::NODE ; ; note: deleting unreachable code ; compiling (DEFINE-MOVE-VOP MOVE-FROM-SINGLE ...) ; compiling (DEFINE-VOP (MOVE-FROM-DOUBLE) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/float.lisp ; in: DEFINE-VOP (MOVE-FROM-DOUBLE) ; (SB!VM::WITH-FIXED-ALLOCATION (SB!VM::Y SB!VM:DOUBLE-FLOAT-WIDETAG ; SB!VM:DOUBLE-FLOAT-SIZE SB!VM::NODE) ; NIL) ; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::ALLOCATION ; ==> ; SB!VM::NODE ; ; note: deleting unreachable code ; compiling (DEFINE-MOVE-VOP MOVE-FROM-DOUBLE ...) ; compiling (DEFINE-VOP (MOVE-FROM-FP-CONSTANT) ...) ; compiling (DEFINE-MOVE-VOP MOVE-FROM-FP-CONSTANT ...) ; compiling (DEFINE-VOP (MOVE-TO-SINGLE) ...) ; compiling (DEFINE-MOVE-VOP MOVE-TO-SINGLE ...) ; compiling (DEFINE-VOP (MOVE-TO-DOUBLE) ...) ; compiling (DEFINE-MOVE-VOP MOVE-TO-DOUBLE ...) ; compiling (DEFINE-VOP (MOVE-FROM-COMPLEX-SINGLE) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/float.lisp ; in: DEFINE-VOP (MOVE-FROM-COMPLEX-SINGLE) ; (SB!VM::WITH-FIXED-ALLOCATION (SB!VM::Y SB!VM:COMPLEX-SINGLE-FLOAT-WIDETAG ; SB!VM:COMPLEX-SINGLE-FLOAT-SIZE SB!VM::NODE) ; (LET ((SB!VM::REAL-TN (SB!VM::COMPLEX-SINGLE-REG-REAL-TN SB!VM::X))) ; (SB!VM::WITH-TN@FP-TOP (SB!VM::REAL-TN) ; (SB!ASSEM:INST SB!VM::FST (SB!VM::EA-FOR-CSF-REAL-DESC SB!VM::Y)))) ; (LET ((SB!VM::IMAG-TN (SB!VM::COMPLEX-SINGLE-REG-IMAG-TN SB!VM::X))) ; (SB!VM::WITH-TN@FP-TOP (SB!VM::IMAG-TN) ; (SB!ASSEM:INST SB!VM::FST (SB!VM::EA-FOR-CSF-IMAG-DESC SB!VM::Y))))) ; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::ALLOCATION ; ==> ; SB!VM::NODE ; ; note: deleting unreachable code ; (LET ((SB!VM::REAL-TN (SB!VM::COMPLEX-SINGLE-REG-REAL-TN SB!VM::X))) ; (SB!VM::WITH-TN@FP-TOP (SB!VM::REAL-TN) ; (SB!ASSEM:INST SB!VM::FST (SB!VM::EA-FOR-CSF-REAL-DESC SB!VM::Y)))) ; ; note: deleting unreachable code ; (SB!VM::EA-FOR-CSF-REAL-DESC SB!VM::Y) ; ==> ; SB!VM::Y ; ; note: deleting unreachable code ; (LET ((SB!VM::REAL-TN (SB!VM::COMPLEX-SINGLE-REG-REAL-TN SB!VM::X))) ; (SB!VM::WITH-TN@FP-TOP (SB!VM::REAL-TN) ; (SB!ASSEM:INST SB!VM::FST (SB!VM::EA-FOR-CSF-REAL-DESC SB!VM::Y)))) ; ; note: deleting unreachable code ; (LET ((SB!VM::IMAG-TN (SB!VM::COMPLEX-SINGLE-REG-IMAG-TN SB!VM::X))) ; (SB!VM::WITH-TN@FP-TOP (SB!VM::IMAG-TN) ; (SB!ASSEM:INST SB!VM::FST (SB!VM::EA-FOR-CSF-IMAG-DESC SB!VM::Y)))) ; ; note: deleting unreachable code ; (SB!VM::EA-FOR-CSF-IMAG-DESC SB!VM::Y) ; ==> ; SB!VM::Y ; ; note: deleting unreachable code ; (LET ((SB!VM::IMAG-TN (SB!VM::COMPLEX-SINGLE-REG-IMAG-TN SB!VM::X))) ; (SB!VM::WITH-TN@FP-TOP (SB!VM::IMAG-TN) ; (SB!ASSEM:INST SB!VM::FST (SB!VM::EA-FOR-CSF-IMAG-DESC SB!VM::Y)))) ; ; note: deleting unreachable code ; compiling (DEFINE-MOVE-VOP MOVE-FROM-COMPLEX-SINGLE ...) ; compiling (DEFINE-VOP (MOVE-FROM-COMPLEX-DOUBLE) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/float.lisp ; in: DEFINE-VOP (MOVE-FROM-COMPLEX-DOUBLE) ; (SB!VM::WITH-FIXED-ALLOCATION (SB!VM::Y SB!VM:COMPLEX-DOUBLE-FLOAT-WIDETAG ; SB!VM:COMPLEX-DOUBLE-FLOAT-SIZE SB!VM::NODE) ; (LET ((SB!VM::REAL-TN (SB!VM::COMPLEX-DOUBLE-REG-REAL-TN SB!VM::X))) ; (SB!VM::WITH-TN@FP-TOP (SB!VM::REAL-TN) ; (SB!ASSEM:INST SB!VM::FSTD (SB!VM::EA-FOR-CDF-REAL-DESC SB!VM::Y)))) ; (LET ((SB!VM::IMAG-TN (SB!VM::COMPLEX-DOUBLE-REG-IMAG-TN SB!VM::X))) ; (SB!VM::WITH-TN@FP-TOP (SB!VM::IMAG-TN) ; (SB!ASSEM:INST SB!VM::FSTD (SB!VM::EA-FOR-CDF-IMAG-DESC SB!VM::Y))))) ; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::ALLOCATION ; ==> ; SB!VM::NODE ; ; note: deleting unreachable code ; (LET ((SB!VM::REAL-TN (SB!VM::COMPLEX-DOUBLE-REG-REAL-TN SB!VM::X))) ; (SB!VM::WITH-TN@FP-TOP (SB!VM::REAL-TN) ; (SB!ASSEM:INST SB!VM::FSTD (SB!VM::EA-FOR-CDF-REAL-DESC SB!VM::Y)))) ; ; note: deleting unreachable code ; (SB!VM::EA-FOR-CDF-REAL-DESC SB!VM::Y) ; ==> ; SB!VM::Y ; ; note: deleting unreachable code ; (LET ((SB!VM::REAL-TN (SB!VM::COMPLEX-DOUBLE-REG-REAL-TN SB!VM::X))) ; (SB!VM::WITH-TN@FP-TOP (SB!VM::REAL-TN) ; (SB!ASSEM:INST SB!VM::FSTD (SB!VM::EA-FOR-CDF-REAL-DESC SB!VM::Y)))) ; ; note: deleting unreachable code ; (LET ((SB!VM::IMAG-TN (SB!VM::COMPLEX-DOUBLE-REG-IMAG-TN SB!VM::X))) ; (SB!VM::WITH-TN@FP-TOP (SB!VM::IMAG-TN) ; (SB!ASSEM:INST SB!VM::FSTD (SB!VM::EA-FOR-CDF-IMAG-DESC SB!VM::Y)))) ; ; note: deleting unreachable code ; (SB!VM::EA-FOR-CDF-IMAG-DESC SB!VM::Y) ; ==> ; SB!VM::Y ; ; note: deleting unreachable code ; (LET ((SB!VM::IMAG-TN (SB!VM::COMPLEX-DOUBLE-REG-IMAG-TN SB!VM::X))) ; (SB!VM::WITH-TN@FP-TOP (SB!VM::IMAG-TN) ; (SB!ASSEM:INST SB!VM::FSTD (SB!VM::EA-FOR-CDF-IMAG-DESC SB!VM::Y)))) ; ; note: deleting unreachable code ; compiling (DEFINE-MOVE-VOP MOVE-FROM-COMPLEX-DOUBLE ...) ; compiling (FROB MOVE-TO-COMPLEX-SINGLE ...) ; compiling (FROB MOVE-TO-COMPLEX-DOUBLE ...) ; compiling (FROB MOVE-SINGLE-FLOAT-ARG ...) ; compiling (FROB MOVE-DOUBLE-FLOAT-ARG ...) ; compiling (FROB MOVE-COMPLEX-SINGLE-FLOAT-ARG ...) ; compiling (FROB MOVE-COMPLEX-DOUBLE-FLOAT-ARG ...) ; compiling (DEFINE-MOVE-VOP MOVE-ARG ...) ; compiling (FROB + ...) ; compiling (FROB - ...) ; compiling (FROB * ...) ; compiling (FROB / ...) ; compiling (FROB ABS/SINGLE-FLOAT ...) ; compiling (FROB ABS/DOUBLE-FLOAT ...) ; compiling (FROB %NEGATE/SINGLE-FLOAT ...) ; compiling (FROB %NEGATE/DOUBLE-FLOAT ...) ; compiling (DEFINE-VOP (=/FLOAT) ...) ; compiling (DEFINE-VOP (=/SINGLE-FLOAT =/FLOAT) ...) ; compiling (DEFINE-VOP (=/DOUBLE-FLOAT =/FLOAT) ...) ; compiling (DEFINE-VOP (SINGLE-FLOAT) ...) ; compiling (DEFINE-VOP (>DOUBLE-FLOAT) ...) ; compiling (DEFINE-VOP (FLOAT-TEST) ...) ; compiling (DEFINE-VOP (=0/SINGLE-FLOAT FLOAT-TEST) ...) ; compiling (DEFINE-VOP (=0/DOUBLE-FLOAT FLOAT-TEST) ...) ; compiling (DEFINE-VOP (<0/SINGLE-FLOAT FLOAT-TEST) ...) ; compiling (DEFINE-VOP (<0/DOUBLE-FLOAT FLOAT-TEST) ...) ; compiling (DEFINE-VOP (>0/SINGLE-FLOAT FLOAT-TEST) ...) ; compiling (DEFINE-VOP (>0/DOUBLE-FLOAT FLOAT-TEST) ...) ; compiling (FROB %SINGLE-FLOAT/SIGNED ...) ; compiling (FROB %DOUBLE-FLOAT/SIGNED ...) ; compiling (FROB %SINGLE-FLOAT/UNSIGNED ...) ; compiling (FROB %DOUBLE-FLOAT/UNSIGNED ...) ; compiling (FROB %SINGLE-FLOAT/DOUBLE-FLOAT ...) ; compiling (FROB %DOUBLE-FLOAT/SINGLE-FLOAT ...) ; compiling (FROB %UNARY-TRUNCATE/SINGLE-FLOAT ...) ; compiling (FROB %UNARY-TRUNCATE/DOUBLE-FLOAT ...) ; compiling (FROB %UNARY-ROUND ...) ; compiling (FROB %UNARY-ROUND ...) ; compiling (FROB %UNARY-TRUNCATE/SINGLE-FLOAT ...) ; compiling (FROB %UNARY-TRUNCATE/DOUBLE-FLOAT ...) ; compiling (FROB %UNARY-ROUND ...) ; compiling (FROB %UNARY-ROUND ...) ; compiling (DEFINE-VOP (MAKE-SINGLE-FLOAT) ...) ; compiling (DEFINE-VOP (MAKE-SINGLE-FLOAT-C) ...) ; compiling (DEFINE-VOP (MAKE-DOUBLE-FLOAT) ...) ; compiling (DEFINE-VOP (MAKE-DOUBLE-FLOAT-C) ...) ; compiling (DEFINE-VOP (SINGLE-FLOAT-BITS) ...) ; compiling (DEFINE-VOP (DOUBLE-FLOAT-HIGH-BITS) ...) ; compiling (DEFINE-VOP (DOUBLE-FLOAT-LOW-BITS) ...) ; compiling (SB-XC:DEFTYPE FLOAT-MODES ...) ; compiling (DEFKNOWN FLOATING-POINT-MODES ...) ; compiling (DEFKNOWN (#) ...) ; compiling (DEF!CONSTANT NPX-ENV-SIZE ...) ; compiling (DEF!CONSTANT NPX-CW-OFFSET ...) ; compiling (DEF!CONSTANT NPX-SW-OFFSET ...) ; compiling (DEFINE-VOP (FLOATING-POINT-MODES) ...) ; compiling (DEFINE-VOP (SET-FLOATING-POINT-MODES) ...) ; compiling (FROB FSIN-QUICK ...) ; compiling (FROB FCOS-QUICK ...) ; compiling (FROB FSQRT ...) ; compiling (DEFINE-VOP (FTAN-QUICK) ...) ; compiling (FROB FSIN ...) ; compiling (FROB FCOS ...) ; compiling (DEFINE-VOP (FTAN) ...) ; compiling (DEFINE-VOP (FEXP) ...) ; compiling (DEFINE-VOP (FEXPM1) ...) ; compiling (DEFINE-VOP (FLOG) ...) ; compiling (DEFINE-VOP (FLOG10) ...) ; compiling (DEFINE-VOP (FPOW) ...) ; compiling (DEFINE-VOP (FSCALEN) ...) ; compiling (DEFINE-VOP (FSCALE) ...) ; compiling (DEFINE-VOP (FLOG1P) ...) ; compiling (DEFINE-VOP (FLOG1P-PENTIUM) ...) ; compiling (DEFINE-VOP (FLOGB) ...) ; compiling (DEFINE-VOP (FATAN) ...) ; compiling (DEFINE-VOP (FATAN2) ...) ; compiling (DEFINE-VOP (MAKE-COMPLEX-SINGLE-FLOAT) ...) ; compiling (DEFINE-VOP (MAKE-COMPLEX-DOUBLE-FLOAT) ...) ; compiling (DEFINE-VOP (COMPLEX-FLOAT-VALUE) ...) ; compiling (DEFINE-VOP (REALPART/COMPLEX-SINGLE-FLOAT COMPLEX-FLOAT-VALUE) ...) ; compiling (DEFINE-VOP (REALPART/COMPLEX-DOUBLE-FLOAT COMPLEX-FLOAT-VALUE) ...) ; compiling (DEFINE-VOP (IMAGPART/COMPLEX-SINGLE-FLOAT COMPLEX-FLOAT-VALUE) ...) ; compiling (DEFINE-VOP (IMAGPART/COMPLEX-DOUBLE-FLOAT COMPLEX-FLOAT-VALUE) ...) ; compiling (DEFKNOWN DOUBLE-FLOAT-REG-BIAS ...) ; compiling (DEFINE-VOP (DOUBLE-FLOAT-REG-BIAS) ...) ; compiling (DEFKNOWN SINGLE-FLOAT-REG-BIAS ...) ; compiling (DEFINE-VOP (SINGLE-FLOAT-REG-BIAS) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/float.lisp ; in: DEFINE-VOP (MAKE-DOUBLE-FLOAT-C) ; (SB!C:REGISTER-INLINE-CONSTANT :DOUBLE-FLOAT-BITS ; (LOGIOR (ASH SB!VM::HI 32) SB!VM::LO)) ; ; caught STYLE-WARNING: ; undefined function: REGISTER-INLINE-CONSTANT ; in: DEFINE-VOP (MAKE-SINGLE-FLOAT-C) ; (SB!C:REGISTER-INLINE-CONSTANT :DWORD SB!VM::BITS) ; ; caught STYLE-WARNING: ; undefined function: REGISTER-INLINE-CONSTANT ; in: DEFINE-MOVE-FUN (LOAD-FP-IMMEDIATE 2) ; (SB!C:REGISTER-INLINE-CONSTANT (SB!C:TN-VALUE SB!VM::X)) ; ; caught STYLE-WARNING: ; undefined function: REGISTER-INLINE-CONSTANT ; ; compilation unit finished ; Undefined function: ; REGISTER-INLINE-CONSTANT ; caught 3 STYLE-WARNING conditions ; printed 16 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/x86/float.fasl-tmp written ; compilation finished in 0:00:02.491 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/sap.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFINE-VOP (MOVE-TO-SAP) ...) ; compiling (DEFINE-MOVE-VOP MOVE-TO-SAP ...) ; compiling (DEFINE-VOP (MOVE-FROM-SAP) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/sap.lisp ; in: DEFINE-VOP (MOVE-FROM-SAP) ; (SB!VM::WITH-FIXED-ALLOCATION (SB!VM::RES SB!VM:SAP-WIDETAG SB!VM:SAP-SIZE ; SB!VM::NODE) ; (SB!VM::STOREW SB!VM::SAP SB!VM::RES SB!VM:SAP-POINTER-SLOT ; SB!VM:OTHER-POINTER-LOWTAG)) ; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::ALLOCATION ; ==> ; SB!VM::NODE ; ; note: deleting unreachable code ; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::STOREW LET ; --> SB!ASSEM:INST SB!VM::MOV-INST-EMITTER SB!VM::MAKE-EA-FOR-OBJECT-SLOT ; --> SB!VM::MAKE-EA - ; ==> ; SB!VM:OTHER-POINTER-LOWTAG ; ; note: deleting unreachable code ; (SB!VM::STOREW SB!VM::SAP SB!VM::RES SB!VM:SAP-POINTER-SLOT ; SB!VM:OTHER-POINTER-LOWTAG) ; --> LET ; ==> ; SB!VM::SAP ; ; note: deleting unreachable code ; --> LET SB!ASSEM:INST SB!VM::MOV-INST-EMITTER SB!VM::MAKE-EA-FOR-OBJECT-SLOT ; --> SB!VM::MAKE-EA ; ==> ; SB!VM::RES ; ; note: deleting unreachable code ; compiling (DEFINE-MOVE-VOP MOVE-FROM-SAP ...) ; compiling (DEFINE-VOP (SAP-MOVE) ...) ; compiling (DEFINE-MOVE-VOP SAP-MOVE ...) ; compiling (DEFINE-VOP (MOVE-SAP-ARG) ...) ; compiling (DEFINE-MOVE-VOP MOVE-SAP-ARG ...) ; compiling (DEFINE-MOVE-VOP MOVE-ARG ...) ; compiling (DEFINE-VOP (SAP-INT) ...) ; compiling (DEFINE-VOP (INT-SAP) ...) ; compiling (DEFINE-VOP (POINTER+) ...) ; compiling (DEFINE-VOP (POINTER-) ...) ; compiling (DEF-SYSTEM-REF-AND-SET SB!C::SAP-REF-8-WITH-OFFSET ...) ; compiling (DEF-SYSTEM-REF-AND-SET SB!C::SIGNED-SAP-REF-8-WITH-OFFSET ...) ; compiling (DEF-SYSTEM-REF-AND-SET SB!C::SAP-REF-16-WITH-OFFSET ...) ; compiling (DEF-SYSTEM-REF-AND-SET SB!C::SIGNED-SAP-REF-16-WITH-OFFSET ...) ; compiling (DEF-SYSTEM-REF-AND-SET SB!C::SAP-REF-32-WITH-OFFSET ...) ; compiling (DEF-SYSTEM-REF-AND-SET SB!C::SIGNED-SAP-REF-32-WITH-OFFSET ...) ; compiling (DEF-SYSTEM-REF-AND-SET SB!C::SAP-REF-SAP-WITH-OFFSET ...) ; compiling (DEF-SYSTEM-REF-AND-SET SB!C::SAP-REF-LISPOBJ-WITH-OFFSET ...) ; compiling (DEFINE-VOP (SAP-REF-DOUBLE-WITH-OFFSET) ...) ; compiling (DEFINE-VOP (%SET-SAP-REF-DOUBLE-WITH-OFFSET) ...) ; compiling (DEFINE-VOP (%SET-SAP-REF-DOUBLE-WITH-OFFSET-C) ...) ; compiling (DEFINE-VOP (SAP-REF-SINGLE-WITH-OFFSET) ...) ; compiling (DEFINE-VOP (%SET-SAP-REF-SINGLE-WITH-OFFSET) ...) ; compiling (DEFINE-VOP (%SET-SAP-REF-SINGLE-WITH-OFFSET-C) ...) ; compiling (DEFINE-VOP (SAP-REF-LONG) ...) ; compiling (DEFINE-VOP (SAP-REF-LONG-C) ...) ; compiling (DEFINE-VOP (VECTOR-SAP) ...); ; compilation unit finished ; printed 4 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/x86/sap.fasl-tmp written ; compilation finished in 0:00:00.535 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/system.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFINE-VOP (LOWTAG-OF) ...) ; compiling (DEFINE-VOP (WIDETAG-OF) ...) ; compiling (DEFINE-VOP (FUN-SUBTYPE) ...) ; compiling (DEFINE-VOP (SET-FUN-SUBTYPE) ...) ; compiling (DEFINE-VOP (GET-HEADER-DATA) ...) ; compiling (DEFINE-VOP (GET-CLOSURE-LENGTH) ...) ; compiling (DEFINE-VOP (SET-HEADER-DATA) ...) ; compiling (DEFINE-VOP (POINTER-HASH) ...) ; compiling (DEFINE-VOP (DYNAMIC-SPACE-FREE-POINTER) ...) ; compiling (DEFINE-VOP (BINDING-STACK-POINTER-SAP) ...) ; compiling (DEFKNOWN (SETF BINDING-STACK-POINTER-SAP) ...) ; compiling (DEFINE-VOP (SET-BINDING-STACK-POINTER-SAP) ...) ; compiling (DEFINE-VOP (CONTROL-STACK-POINTER-SAP) ...) ; compiling (DEFINE-VOP (CODE-INSTRUCTIONS) ...) ; compiling (DEFINE-VOP (COMPUTE-FUN) ...) ; compiling (DEFINE-VOP (%SIMPLE-FUN-SELF) ...) ; compiling (DEFINE-SOURCE-TRANSFORM %CLOSURE-FUN ...) ; compiling (DEFINE-VOP (%SET-FUN-SELF) ...) ; compiling (DEFINE-VOP (SYMBOL-INFO-VECTOR) ...) ; compiling (DEFINE-VOP (SYMBOL-PLIST) ...) ; compiling (DEFKNOWN SB!UNIX::RECEIVE-PENDING-INTERRUPT ...) ; compiling (DEFINE-VOP (SB!UNIX::RECEIVE-PENDING-INTERRUPT) ...) ; compiling (DEFINE-VOP (HALT) ...) ; compiling (DEFKNOWN FLOAT-WAIT ...) ; compiling (DEFINE-VOP (FLOAT-WAIT) ...) ; compiling (DEFKNOWN %READ-CYCLE-COUNTER ...) ; compiling (DEFINE-VOP (%READ-CYCLE-COUNTER) ...) ; compiling (DEFMACRO WITH-CYCLE-COUNTER ...) ; compiling (DEFINE-VOP (%COMPILER-BARRIER) ...) ; compiling (DEFINE-VOP (%MEMORY-BARRIER) ...) ; compiling (DEFINE-VOP (%READ-BARRIER) ...) ; compiling (DEFINE-VOP (%WRITE-BARRIER) ...) ; compiling (DEFINE-VOP (%DATA-DEPENDENCY-BARRIER) ...) ; compiling (DEFINE-VOP (PAUSE) ...) ; compiling (DEFKNOWN %CONS-CAS-PAIR ...) ; compiling (DEFKNOWN %VECTOR-CAS-PAIR ...) ; compiling (DEFKNOWN %INSTANCE-CAS-PAIR ...) ; compiling (DEFINE-CMPXCHG-VOP COMPARE-AND-EXCHANGE-PAIR ...) ; compiling (DEFINE-CMPXCHG-VOP COMPARE-AND-EXCHANGE-PAIR-INDEXED ...) ; compiling (DEFINE-VOP (%VECTOR-CAS-PAIR COMPARE-AND-EXCHANGE-PAIR-INDEXED) ...) ; compiling (DEFINE-VOP (%INSTANCE-CAS-PAIR COMPARE-AND-EXCHANGE-PAIR-INDEXED) ...) ; compiling (DEFKNOWN %CPU-IDENTIFICATION ...) ; compiling (DEFINE-VOP (%CPU-IDENTIFICATION) ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/x86/system.fasl-tmp written ; compilation finished in 0:00:00.324 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/char.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFINE-VOP (MOVE-TO-CHARACTER) ...) ; compiling (DEFINE-MOVE-VOP MOVE-TO-CHARACTER ...) ; compiling (DEFINE-VOP (MOVE-FROM-CHARACTER) ...) ; compiling (DEFINE-MOVE-VOP MOVE-FROM-CHARACTER ...) ; compiling (DEFINE-VOP (CHARACTER-MOVE) ...) ; compiling (DEFINE-MOVE-VOP CHARACTER-MOVE ...) ; compiling (DEFINE-VOP (MOVE-CHARACTER-ARG) ...) ; compiling (DEFINE-MOVE-VOP MOVE-CHARACTER-ARG ...) ; compiling (DEFINE-MOVE-VOP MOVE-ARG ...) ; compiling (DEFINE-VOP (CHAR-CODE) ...) ; compiling (DEFINE-VOP (CODE-CHAR) ...) ; compiling (DEFINE-VOP (CHARACTER-COMPARE) ...) ; compiling (DEFINE-VOP (FAST-CHAR=/CHARACTER CHARACTER-COMPARE) ...) ; compiling (DEFINE-VOP (FAST-CHAR/CHARACTER CHARACTER-COMPARE) ...) ; compiling (DEFINE-VOP (CHARACTER-COMPARE/C) ...) ; compiling (DEFINE-VOP (FAST-CHAR=/CHARACTER/C CHARACTER-COMPARE/C) ...) ; compiling (DEFINE-VOP (FAST-CHAR/CHARACTER/C CHARACTER-COMPARE/C) ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/x86/char.fasl-tmp written ; compilation finished in 0:00:00.146 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/memory.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFINE-VOP (CELL-REF) ...) ; compiling (DEFINE-VOP (CELL-SET) ...) ; compiling (DEFINE-VOP (CELL-SETF) ...) ; compiling (DEFINE-VOP (CELL-SETF-FUN) ...) ; compiling (DEFMACRO DEFINE-CELL-ACCESSORS ...) ; compiling (DEFINE-VOP (CELL-XADD) ...) ; compiling (DEFINE-VOP (SLOT-REF) ...) ; compiling (DEFINE-VOP (SLOT-SET) ...) ; compiling (DEFINE-VOP (SLOT-SET-CONDITIONAL) ...) ; compiling (DEFINE-VOP (SLOT-XADD) ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/x86/memory.fasl-tmp written ; compilation finished in 0:00:00.135 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/static-fn.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFINE-VOP (STATIC-FUN-TEMPLATE) ...) ; compiling (DEFUN STATIC-FUN-TEMPLATE-NAME ...) ; compiling (DEFUN MOVES ...) ; compiling (DEFUN STATIC-FUN-TEMPLATE-VOP ...) ; compiling (FROB 0 ...) ; compiling (FROB 1 ...) ; compiling (FROB 2 ...) ; compiling (FROB 3 ...) ; compiling (DEFMACRO DEFINE-STATIC-FUN ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/static-fn.lisp ; in: ; MACROLET ((FROB (NUM-ARGS NUM-RES) ; (STATIC-FUN-TEMPLATE-VOP (EVAL NUM-ARGS) (EVAL NUM-RES)))) ; (SB!VM::FROB 2 1) ; --> SB!C:DEFINE-VOP PROGN LET LET* SB!ASSEM:ASSEMBLE LET* MACROLET ; --> SYMBOL-MACROLET LET ; ==> ; (SB!VM::DEFAULT-UNKNOWN-VALUES SB!VM::VOP VALUES 1 #:NODE4781) ; ; caught STYLE-WARNING: ; undefined function: DEFAULT-UNKNOWN-VALUES ; (SB!VM::FROB 1 1) ; --> SB!C:DEFINE-VOP PROGN LET LET* SB!ASSEM:ASSEMBLE LET* MACROLET ; --> SYMBOL-MACROLET LET ; ==> ; (SB!VM::DEFAULT-UNKNOWN-VALUES SB!VM::VOP VALUES 1 #:NODE4776) ; ; caught STYLE-WARNING: ; undefined function: DEFAULT-UNKNOWN-VALUES ; (SB!VM::FROB 0 1) ; --> SB!C:DEFINE-VOP PROGN LET LET* SB!ASSEM:ASSEMBLE LET* MACROLET ; --> SYMBOL-MACROLET LET ; ==> ; (SB!VM::DEFAULT-UNKNOWN-VALUES SB!VM::VOP VALUES 1 #:NODE4773) ; ; caught STYLE-WARNING: ; undefined function: DEFAULT-UNKNOWN-VALUES ; ; caught STYLE-WARNING: ; 1 more use of undefined function DEFAULT-UNKNOWN-VALUES ; ; compilation unit finished ; Undefined function: ; DEFAULT-UNKNOWN-VALUES ; caught 4 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/x86/static-fn.fasl-tmp written ; compilation finished in 0:00:00.170 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/arith.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFINE-VOP (FAST-SAFE-ARITH-OP) ...) ; compiling (DEFINE-VOP (FIXNUM-UNOP FAST-SAFE-ARITH-OP) ...) ; compiling (DEFINE-VOP (SIGNED-UNOP FAST-SAFE-ARITH-OP) ...) ; compiling (DEFINE-VOP (FAST-NEGATE/FIXNUM FIXNUM-UNOP) ...) ; compiling (DEFINE-VOP (FAST-NEGATE/SIGNED SIGNED-UNOP) ...) ; compiling (DEFINE-VOP (FAST-NEGATE/UNSIGNED SIGNED-UNOP) ...) ; compiling (DEFINE-VOP (FAST-LOGNOT/FIXNUM FIXNUM-UNOP) ...) ; compiling (DEFINE-VOP (FAST-LOGNOT/SIGNED SIGNED-UNOP) ...) ; compiling (DEFINE-VOP (FAST-FIXNUM-BINOP FAST-SAFE-ARITH-OP) ...) ; compiling (DEFINE-VOP (FAST-UNSIGNED-BINOP FAST-SAFE-ARITH-OP) ...) ; compiling (DEFINE-VOP (FAST-SIGNED-BINOP FAST-SAFE-ARITH-OP) ...) ; compiling (DEFINE-VOP (FAST-FIXNUM-BINOP-C FAST-SAFE-ARITH-OP) ...) ; compiling (DEFINE-VOP (FAST-UNSIGNED-BINOP-C FAST-SAFE-ARITH-OP) ...) ; compiling (DEFINE-VOP (FAST-SIGNED-BINOP-C FAST-SAFE-ARITH-OP) ...) ; compiling (DEFINE-BINOP - ...) ; compiling (DEFINE-BINOP LOGAND ...) ; compiling (DEFINE-BINOP LOGIOR ...) ; compiling (DEFINE-BINOP LOGXOR ...) ; compiling (DEFINE-VOP (FAST-LOGIOR-UNSIGNED-SIGNED=>SIGNED FAST-SAFE-ARITH-OP) ...) ; compiling (DEFINE-VOP (FAST-LOGIOR-SIGNED-UNSIGNED=>SIGNED FAST-SAFE-ARITH-OP) ...) ; compiling (DEFINE-VOP (FAST-+/FIXNUM=>FIXNUM FAST-SAFE-ARITH-OP) ...) ; compiling (DEFINE-VOP (FAST-+-C/FIXNUM=>FIXNUM FAST-SAFE-ARITH-OP) ...) ; compiling (DEFINE-VOP (FAST-+/SIGNED=>SIGNED FAST-SAFE-ARITH-OP) ...) ; compiling (DEFINE-VOP (FAST-LOGAND/SIGNED-UNSIGNED=>UNSIGNED FAST-LOGAND/UNSIGNED=>UNSIGNED) ...) ; compiling (DEFINE-VOP (FAST-LOGAND-C/SIGNED-UNSIGNED=>UNSIGNED FAST-LOGAND-C/UNSIGNED=>UNSIGNED) ...) ; compiling (DEFINE-VOP (FAST-LOGAND/UNSIGNED-SIGNED=>UNSIGNED FAST-LOGAND/UNSIGNED=>UNSIGNED) ...) ; compiling (DEFINE-VOP (FAST-+-C/SIGNED=>SIGNED FAST-SAFE-ARITH-OP) ...) ; compiling (DEFINE-VOP (FAST-+/UNSIGNED=>UNSIGNED FAST-SAFE-ARITH-OP) ...) ; compiling (DEFINE-VOP (FAST-+-C/UNSIGNED=>UNSIGNED FAST-SAFE-ARITH-OP) ...) ; compiling (DEFINE-VOP (FAST-*/FIXNUM=>FIXNUM FAST-SAFE-ARITH-OP) ...) ; compiling (DEFINE-VOP (FAST-*-C/FIXNUM=>FIXNUM FAST-SAFE-ARITH-OP) ...) ; compiling (DEFINE-VOP (FAST-*/SIGNED=>SIGNED FAST-SAFE-ARITH-OP) ...) ; compiling (DEFINE-VOP (FAST-*-C/SIGNED=>SIGNED FAST-SAFE-ARITH-OP) ...) ; compiling (DEFINE-VOP (FAST-*/UNSIGNED=>UNSIGNED FAST-SAFE-ARITH-OP) ...) ; compiling (DEFINE-VOP (FAST-TRUNCATE/FIXNUM=>FIXNUM FAST-SAFE-ARITH-OP) ...) ; compiling (DEFINE-VOP (FAST-TRUNCATE-C/FIXNUM=>FIXNUM FAST-SAFE-ARITH-OP) ...) ; compiling (DEFINE-VOP (FAST-TRUNCATE/UNSIGNED=>UNSIGNED FAST-SAFE-ARITH-OP) ...) ; compiling (DEFINE-VOP (FAST-TRUNCATE-C/UNSIGNED=>UNSIGNED FAST-SAFE-ARITH-OP) ...) ; compiling (DEFINE-VOP (FAST-TRUNCATE/SIGNED=>SIGNED FAST-SAFE-ARITH-OP) ...) ; compiling (DEFINE-VOP (FAST-TRUNCATE-C/SIGNED=>SIGNED FAST-SAFE-ARITH-OP) ...) ; compiling (DEFINE-VOP (FAST-ASH-C/FIXNUM=>FIXNUM) ...) ; compiling (DEFINE-VOP (FAST-ASH-LEFT/FIXNUM=>FIXNUM) ...) ; compiling (DEFINE-VOP (FAST-ASH-C/SIGNED=>SIGNED) ...) ; compiling (DEFINE-VOP (FAST-ASH-C/UNSIGNED=>UNSIGNED) ...) ; compiling (DEFINE-VOP (FAST-ASH-LEFT/SIGNED=>SIGNED) ...) ; compiling (DEFINE-VOP (FAST-ASH-LEFT/UNSIGNED=>UNSIGNED) ...) ; compiling (DEFINE-VOP (FAST-ASH/SIGNED=>SIGNED) ...) ; compiling (DEFINE-VOP (FAST-ASH/UNSIGNED=>UNSIGNED) ...) ; compiling (DEFINE-VOP (FAST-%ASH/RIGHT/UNSIGNED) ...) ; compiling (DEFINE-VOP (FAST-%ASH/RIGHT/SIGNED) ...) ; compiling (DEFINE-VOP (FAST-%ASH/RIGHT/FIXNUM) ...) ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFKNOWN %LEA ...) ; compiling (DEFOPTIMIZER (%LEA DERIVE-TYPE) ...) ; compiling (DEFUN %LEA ...) ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFINE-VOP (%LEA/UNSIGNED=>UNSIGNED) ...) ; compiling (DEFINE-VOP (%LEA/SIGNED=>SIGNED) ...) ; compiling (DEFINE-VOP (%LEA/FIXNUM=>FIXNUM) ...) ; compiling (DEFINE-VOP (FAST-CMOV-ASH/UNSIGNED=>UNSIGNED) ...) ; compiling (DEFINE-VOP (SIGNED-BYTE-32-LEN) ...) ; compiling (DEFINE-VOP (UNSIGNED-BYTE-32-LEN) ...) ; compiling (DEFINE-VOP (UNSIGNED-WORD-FIND-FIRST-BIT) ...) ; compiling (DEFINE-VOP (UNSIGNED-BYTE-32-COUNT) ...) ; compiling (DEFINE-VOP (FAST-CONDITIONAL) ...) ; compiling (DEFINE-VOP (FAST-CONDITIONAL/FIXNUM FAST-CONDITIONAL) ...) ; compiling (DEFINE-VOP (FAST-CONDITIONAL-C/FIXNUM FAST-CONDITIONAL/FIXNUM) ...) ; compiling (DEFINE-VOP (FAST-CONDITIONAL/SIGNED FAST-CONDITIONAL) ...) ; compiling (DEFINE-VOP (FAST-CONDITIONAL-C/SIGNED FAST-CONDITIONAL/SIGNED) ...) ; compiling (DEFINE-VOP (FAST-CONDITIONAL/UNSIGNED FAST-CONDITIONAL) ...) ; compiling (DEFINE-VOP (FAST-CONDITIONAL-C/UNSIGNED FAST-CONDITIONAL/UNSIGNED) ...) ; compiling (DEFINE-LOGTEST-VOPS) ; compiling (DEFKNOWN %LOGBITP ...) ; compiling (DEFUN %LOGBITP ...) ; compiling (DEFINE-VOP (FAST-LOGBITP-C/FIXNUM FAST-CONDITIONAL-C/FIXNUM) ...) ; compiling (DEFINE-VOP (FAST-LOGBITP/SIGNED FAST-CONDITIONAL/SIGNED) ...) ; compiling (DEFINE-VOP (FAST-LOGBITP-C/SIGNED FAST-CONDITIONAL-C/SIGNED) ...) ; compiling (DEFINE-VOP (FAST-LOGBITP/UNSIGNED FAST-CONDITIONAL/UNSIGNED) ...) ; compiling (DEFINE-VOP (FAST-LOGBITP-C/UNSIGNED FAST-CONDITIONAL-C/UNSIGNED) ...) ; compiling (DEFINE-CONDITIONAL-VOP < ...) ; compiling (DEFINE-CONDITIONAL-VOP > ...) ; compiling (DEFINE-VOP (FAST-IF-EQL/SIGNED FAST-CONDITIONAL/SIGNED) ...) ; compiling (DEFINE-VOP (FAST-IF-EQL-C/SIGNED FAST-CONDITIONAL-C/SIGNED) ...) ; compiling (DEFINE-VOP (FAST-IF-EQL/UNSIGNED FAST-CONDITIONAL/UNSIGNED) ...) ; compiling (DEFINE-VOP (FAST-IF-EQL-C/UNSIGNED FAST-CONDITIONAL-C/UNSIGNED) ...) ; compiling (DEFINE-VOP (FAST-EQL/FIXNUM FAST-CONDITIONAL) ...) ; compiling (DEFINE-VOP (GENERIC-EQL/FIXNUM FAST-EQL/FIXNUM) ...) ; compiling (DEFINE-VOP (FAST-EQL-C/FIXNUM FAST-CONDITIONAL/FIXNUM) ...) ; compiling (DEFINE-VOP (GENERIC-EQL-C/FIXNUM FAST-EQL-C/FIXNUM) ...) ; compiling (DEFINE-VOP (SHIFT-TOWARDS-SOMEPLACE) ...) ; compiling (DEFINE-VOP (SHIFT-TOWARDS-START SHIFT-TOWARDS-SOMEPLACE) ...) ; compiling (DEFINE-VOP (SHIFT-TOWARDS-END SHIFT-TOWARDS-SOMEPLACE) ...) ; compiling (DEFMACRO DEFINE-MOD-BINOP ...) ; compiling (DEFMACRO DEFINE-MOD-BINOP-C ...) ; compiling (DEF + ...) ; compiling (DEF - ...) ; compiling (DEF * ...) ; compiling (DEFINE-MODULAR-FUN %NEGATE-MOD32 ...) ; compiling (DEFINE-VOP (%NEGATE-MOD32) ...) ; compiling (DEFINE-MODULAR-FUN %NEGATE-MODFX ...) ; compiling (DEFINE-VOP (%NEGATE-MODFX FAST-NEGATE/FIXNUM) ...) ; compiling (DEFINE-VOP (FAST-ASH-LEFT-MOD32-C/UNSIGNED=>UNSIGNED FAST-ASH-C/UNSIGNED=>UNSIGNED) ...) ; compiling (DEFINE-VOP (FAST-ASH-LEFT-MOD32/UNSIGNED=>UNSIGNED FAST-ASH-LEFT/UNSIGNED=>UNSIGNED)) ; compiling (DEFTRANSFORM ASH-LEFT-MOD32 ...) ; compiling (DEFINE-VOP (FAST-ASH-LEFT-MODFX-C/FIXNUM=>FIXNUM FAST-ASH-C/FIXNUM=>FIXNUM) ...) ; compiling (DEFINE-VOP (FAST-ASH-LEFT-MODFX/FIXNUM=>FIXNUM FAST-ASH-LEFT/FIXNUM=>FIXNUM)) ; compiling (DEFTRANSFORM ASH-LEFT-MODFX ...) ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFKNOWN SB!VM::%LEA-MOD32 ...) ; compiling (DEFKNOWN SB!VM::%LEA-MODFX ...) ; compiling (DEFINE-MODULAR-FUN-OPTIMIZER %LEA ...) ; compiling (DEFINE-MODULAR-FUN-OPTIMIZER %LEA ...) ; compiling (DEFUN SB!VM::%LEA-MOD32 ...) ; compiling (DEFUN SB!VM::%LEA-MODFX ...) ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFINE-VOP (%LEA-MOD32/UNSIGNED=>UNSIGNED %LEA/UNSIGNED=>UNSIGNED) ...) ; compiling (DEFINE-VOP (%LEA-MODFX/FIXNUM=>FIXNUM %LEA/FIXNUM=>FIXNUM) ...) ; compiling (DEFINE-MODULAR-FUN LOGNOT-MOD32 ...) ; compiling (DEFINE-VOP (LOGNOT-MOD32/WORD=>UNSIGNED) ...) ; compiling (DEFINE-SOURCE-TRANSFORM LOGEQV ...) ; compiling (DEFINE-SOURCE-TRANSFORM LOGANDC1 ...) ; compiling (DEFINE-SOURCE-TRANSFORM LOGANDC2 ...) ; compiling (DEFINE-SOURCE-TRANSFORM LOGORC1 ...) ; compiling (DEFINE-SOURCE-TRANSFORM LOGORC2 ...) ; compiling (DEFINE-SOURCE-TRANSFORM LOGNOR ...) ; compiling (DEFINE-SOURCE-TRANSFORM LOGNAND ...) ; compiling (DEFINE-VOP (BIGNUM-LENGTH GET-HEADER-DATA) ...) ; compiling (DEFINE-VOP (BIGNUM-SET-LENGTH SET-HEADER-DATA) ...) ; compiling (DEFINE-FULL-REFFER BIGNUM-REF ...) ; compiling (DEFINE-FULL-REFFER+OFFSET BIGNUM-REF-WITH-OFFSET ...) ; compiling (DEFINE-FULL-SETTER BIGNUM-SET ...) ; compiling (DEFINE-VOP (DIGIT-0-OR-PLUS) ...) ; compiling (DEFINE-VOP (ADD-W/CARRY) ...) ; compiling (DEFINE-VOP (SUB-W/BORROW) ...) ; compiling (DEFINE-VOP (BIGNUM-MULT-AND-ADD-3-ARG) ...) ; compiling (DEFINE-VOP (BIGNUM-MULT-AND-ADD-4-ARG) ...) ; compiling (DEFINE-VOP (BIGNUM-MULT) ...) ; compiling (DEFINE-VOP (MULHI) ...) ; compiling (DEFINE-VOP (MULHI/FX) ...) ; compiling (DEFINE-VOP (BIGNUM-LOGNOT LOGNOT-MOD32/WORD=>UNSIGNED) ...) ; compiling (DEFINE-VOP (FIXNUM-TO-DIGIT) ...) ; compiling (DEFINE-VOP (BIGNUM-FLOOR) ...) ; compiling (DEFINE-VOP (SIGNIFY-DIGIT) ...) ; compiling (DEFINE-VOP (DIGIT-ASHR) ...) ; compiling (DEFINE-VOP (DIGIT-ASHR/C) ...) ; compiling (DEFINE-VOP (DIGIT-LSHR DIGIT-ASHR) ...) ; compiling (DEFINE-VOP (DIGIT-ASHL DIGIT-ASHR) ...) ; compiling (DEFINE-STATIC-FUN TWO-ARG-/ ...) ; compiling (DEFINE-STATIC-FUN TWO-ARG-GCD ...) ; compiling (DEFINE-STATIC-FUN TWO-ARG-LCM ...) ; compiling (DEFINE-STATIC-FUN TWO-ARG-AND ...) ; compiling (DEFINE-STATIC-FUN TWO-ARG-IOR ...) ; compiling (DEFINE-STATIC-FUN TWO-ARG-XOR ...) ; compiling (DEFKNOWN RANDOM-MT19937 ...) ; compiling (DEFINE-VOP (RANDOM-MT19937) ...) ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN MASK-RESULT ...) ; compiling (DEFUN BASIC-DECOMPOSE-MULTIPLICATION ...) ; compiling (DEFUN DECOMPOSE-MULTIPLICATION ...) ; compiling (DEFUN OPTIMIZE-MULTIPLY ...) ; compiling (DEFUN *-TRANSFORMER ...) ; compiling (DEFTRANSFORM * ...) ; compiling (DEFTRANSFORM SB!VM::*-MOD32 ...) ; compiling (DEFTRANSFORM * ...) ; compiling (DEFTRANSFORM SB!VM::*-MODFX ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/arith.lisp ; in: DEFUN SB!VM::%LEA-MODFX ; (SB!C::MASK-SIGNED-FIELD (- SB!VM:N-WORD-BITS SB!VM:N-FIXNUM-TAG-BITS) ; (SB!KERNEL:%LEA SB!C::BASE SB!INT:INDEX SB!C::SCALE SB!C::DISP)) ; ; caught STYLE-WARNING: ; undefined function: MASK-SIGNED-FIELD ; ; compilation unit finished ; Undefined function: ; MASK-SIGNED-FIELD ; caught 1 STYLE-WARNING condition ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/x86/arith.fasl-tmp written ; compilation finished in 0:00:01.927 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/cross-modular.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN MASK-SIGNED-FIELD ...) ; compiling (DEFUN SB!VM::+-MOD32 ...) ; compiling (DEFUN SB!VM::--MOD32 ...) ; compiling (DEFUN SB!VM::*-MOD32 ...) ; compiling (DEFUN SB!VM::%NEGATE-MOD32 ...) ; compiling (DEFUN SB!VM::LOGNOT-MOD32 ...) ; compiling (DEFUN SB!VM::+-MODFX ...) ; compiling (DEFUN SB!VM::--MODFX ...) ; compiling (DEFUN SB!VM::*-MODFX ...) ; compiling (DEFUN SB!VM::%NEGATE-MODFX ...) ; compiling (DEFUN SB!VM::ASH-LEFT-MOD32 ...) ; compiling (DEFUN SB!VM::ASH-LEFT-MODFX ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/cross-modular.fasl-tmp written ; compilation finished in 0:00:00.029 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/type-vops.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFUN GENERATE-FIXNUM-TEST ...) ; compiling (DEFUN %TEST-FIXNUM ...) ; compiling (DEFUN %TEST-FIXNUM-AND-HEADERS ...) ; compiling (DEFUN %TEST-IMMEDIATE ...) ; compiling (DEFUN %TEST-LOWTAG ...) ; compiling (DEFUN %TEST-HEADERS ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/type-vops.lisp ; in: DEFUN %TEST-HEADERS ; (SB!ASSEM:INST SB!VM::JMP SB!VM::LESS-OR-EQUAL SB!VM::TARGET) ; --> SB!VM::JMP-INST-EMITTER ; ==> ; SB!VM::LESS-OR-EQUAL ; ; note: deleting unreachable code ; compiling (DEFINE-VOP (CHECK-TYPE) ...) ; compiling (DEFINE-VOP (TYPE-PREDICATE) ...) ; compiling (DEFINE-VOP (SIMPLE-CHECK-TYPE) ...) ; compiling (DEFINE-VOP (SIMPLE-TYPE-PREDICATE) ...) ; compiling (DEFUN COST-TO-TEST-TYPES ...) ; compiling (DEFMACRO !DEFINE-TYPE-VOPS ...) ; compiling (DEFINE-VOP (FIXNUMP/UNSIGNED-BYTE-32 SIMPLE-TYPE-PREDICATE) ...) ; compiling (DEFINE-VOP (FIXNUMP/SIGNED-BYTE-32 TYPE-PREDICATE) ...) ; compiling (DEFINE-VOP (SIGNED-BYTE-32-P TYPE-PREDICATE) ...) ; compiling (DEFINE-VOP (CHECK-SIGNED-BYTE-32 CHECK-TYPE) ...) ; compiling (DEFINE-VOP (UNSIGNED-BYTE-32-P TYPE-PREDICATE) ...) ; compiling (DEFINE-VOP (CHECK-UNSIGNED-BYTE-32 CHECK-TYPE) ...) ; compiling (DEFUN POWER-OF-TWO-LIMIT-P ...) ; compiling (DEFINE-VOP (TEST-FIXNUM-MOD-POWER-OF-TWO) ...) ; compiling (DEFINE-VOP (TEST-FIXNUM-MOD-TAGGED-UNSIGNED) ...) ; compiling (DEFINE-VOP (TEST-FIXNUM-MOD-*) ...) ; compiling (DEFINE-VOP (SYMBOLP TYPE-PREDICATE) ...) ; compiling (DEFINE-VOP (CHECK-SYMBOL CHECK-TYPE) ...) ; compiling (DEFINE-VOP (CONSP TYPE-PREDICATE) ...) ; compiling (DEFINE-VOP (CHECK-CONS CHECK-TYPE) ...) ; compiling (DEFINE-VOP (%OTHER-POINTER-SUBTYPE-P TYPE-PREDICATE) ...); ; compilation unit finished ; printed 1 note ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/x86/type-vops.fasl-tmp written ; compilation finished in 0:00:00.225 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/subprim.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFINE-VOP (LENGTH/LIST) ...) ; compiling (DEFINE-VOP (FAST-LENGTH/LIST) ...) ; compiling (DEFINE-STATIC-FUN LENGTH ...) ; compiling (DEFINE-STATIC-FUN %COERCE-CALLABLE-TO-FUN ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/x86/subprim.fasl-tmp written ; compilation finished in 0:00:00.029 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/debug.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFINE-VOP (DEBUG-CUR-SP) ...) ; compiling (DEFINE-VOP (DEBUG-CUR-FP) ...) ; compiling (DEFINE-VOP (READ-CONTROL-STACK) ...) ; compiling (DEFINE-VOP (READ-CONTROL-STACK-C) ...) ; compiling (DEFINE-VOP (WRITE-CONTROL-STACK) ...) ; compiling (DEFINE-VOP (WRITE-CONTROL-STACK-C) ...) ; compiling (DEFINE-VOP (CODE-FROM-MUMBLE) ...) ; compiling (DEFINE-VOP (CODE-FROM-LRA CODE-FROM-MUMBLE) ...) ; compiling (DEFINE-VOP (CODE-FROM-FUNCTION CODE-FROM-MUMBLE) ...) ; compiling (DEFINE-VOP (%MAKE-LISP-OBJ) ...) ; compiling (DEFINE-VOP (GET-LISP-OBJ-ADDRESS) ...) ; compiling (DEFINE-VOP (FUN-WORD-OFFSET) ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/x86/debug.fasl-tmp written ; compilation finished in 0:00:00.126 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/early-aliencomp.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFKNOWN %ALIEN-FUNCALL ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/early-aliencomp.fasl-tmp written ; compilation finished in 0:00:00.002 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/c-call.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFUN MY-MAKE-WIRED-TN ...) ; compiling (DEFSTRUCT (ARG-STATE #) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :ARG-TN) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :ARG-TN) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (DOUBLE-FLOAT :ARG-TN) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (SINGLE-FLOAT :ARG-TN) ...) ; compiling (DEFSTRUCT (RESULT-STATE #) ...) ; compiling (DEFUN RESULT-REG-OFFSET ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :RESULT-TN) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :NATURALIZE-GEN) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :RESULT-TN) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (DOUBLE-FLOAT :RESULT-TN) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (SINGLE-FLOAT :RESULT-TN) ...) ; compiling (DEFINE-ALIEN-TYPE-METHOD (VALUES :RESULT-TN) ...) ; compiling (DEFUN MAKE-CALL-OUT-TNS ...) ; compiling (DEFTRANSFORM %ALIEN-FUNCALL ...) ; compiling (DEFKNOWN SIGN-EXTEND ...) ; compiling (DEFINE-VOP (SIGN-EXTEND) ...) ; compiling (DEFUN SIGN-EXTEND ...) ; compiling (DEFINE-VOP (FOREIGN-SYMBOL-SAP) ...) ; compiling (DEFINE-VOP (FOREIGN-SYMBOL-DATAREF-SAP) ...) ; compiling (DEFUN FORCE-X87-TO-MEM ...) ; compiling (DEFINE-VOP (CALL-OUT) ...) ; compiling (DEFINE-VOP (SET-FPU-WORD-FOR-C) ...) ; compiling (DEFINE-VOP (SET-FPU-WORD-FOR-LISP) ...) ; compiling (DEFINE-VOP (ALLOC-NUMBER-STACK-SPACE) ...) ; compiling (DEFINE-VOP (ALLOC-ALIEN-STACK-SPACE) ...) ; compiling (DEFINE-VOP (TOUCH-OBJECT) ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/x86/c-call.fasl-tmp written ; compilation finished in 0:00:00.160 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/cell.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFINE-VOP (SLOT) ...) ; compiling (DEFINE-VOP (SET-SLOT) ...) ; compiling (DEFINE-VOP (INIT-SLOT SET-SLOT)) ; compiling (DEFINE-VOP (COMPARE-AND-SWAP-SLOT) ...) ; compiling (DEFINE-VOP (%COMPARE-AND-SWAP-SYMBOL-VALUE) ...) ; compiling (DEFINE-VOP (%SET-SYMBOL-GLOBAL-VALUE CELL-SET) ...) ; compiling (DEFINE-VOP (FAST-SYMBOL-GLOBAL-VALUE CELL-REF) ...) ; compiling (DEFINE-VOP (SYMBOL-GLOBAL-VALUE) ...) ; compiling (DEFINE-VOP (SYMBOL-VALUE SYMBOL-GLOBAL-VALUE) ...) ; compiling (DEFINE-VOP (FAST-SYMBOL-VALUE FAST-SYMBOL-GLOBAL-VALUE) ...) ; compiling (DEFINE-VOP (SET %SET-SYMBOL-GLOBAL-VALUE)) ; compiling (DEFINE-VOP (BOUNDP) ...) ; compiling (DEFINE-VOP (SYMBOL-HASH) ...) ; compiling (DEFINE-VOP (FDEFN-FUN CELL-REF) ...) ; compiling (DEFINE-VOP (SAFE-FDEFN-FUN) ...) ; compiling (DEFINE-VOP (SET-FDEFN-FUN) ...) ; compiling (DEFINE-VOP (FDEFN-MAKUNBOUND) ...) ; compiling (DEFINE-VOP (BIND) ...) ; compiling (DEFINE-VOP (UNBIND) ...) ; compiling (DEFINE-VOP (UNBIND-TO-HERE) ...) ; compiling (DEFINE-FULL-REFFER CLOSURE-INDEX-REF ...) ; compiling (DEFINE-FULL-SETTER SET-FUNCALLABLE-INSTANCE-INFO ...) ; compiling (DEFINE-FULL-REFFER FUNCALLABLE-INSTANCE-INFO ...) ; compiling (DEFINE-VOP (CLOSURE-REF SLOT-REF) ...) ; compiling (DEFINE-VOP (CLOSURE-INIT SLOT-SET) ...) ; compiling (DEFINE-VOP (CLOSURE-INIT-FROM-FP) ...) ; compiling (DEFINE-VOP (VALUE-CELL-REF CELL-REF) ...) ; compiling (DEFINE-VOP (VALUE-CELL-SET CELL-SET) ...) ; compiling (DEFINE-VOP (INSTANCE-LENGTH) ...) ; compiling (DEFINE-FULL-REFFER INSTANCE-INDEX-REF ...) ; compiling (DEFINE-FULL-SETTER INSTANCE-INDEX-SET ...) ; compiling (DEFINE-FULL-COMPARE-AND-SWAP %COMPARE-AND-SWAP-INSTANCE-REF ...) ; compiling (DEFINE-FULL-REFFER CODE-HEADER-REF ...) ; compiling (DEFINE-FULL-SETTER CODE-HEADER-SET ...) ; compiling (DEFUN MAKE-EA-FOR-RAW-SLOT ...) ; compiling (DEFINE-VOP (RAW-INSTANCE-REF/WORD) ...) ; compiling (DEFINE-VOP (RAW-INSTANCE-SET/WORD) ...) ; compiling (DEFINE-VOP (RAW-INSTANCE-INIT/WORD) ...) ; compiling (DEFINE-VOP (RAW-INSTANCE-ATOMIC-INCF/WORD) ...) ; compiling (DEFINE-VOP (RAW-INSTANCE-REF/SINGLE) ...) ; compiling (DEFINE-VOP (RAW-INSTANCE-SET/SINGLE) ...) ; compiling (DEFINE-VOP (RAW-INSTANCE-INIT/SINGLE) ...) ; compiling (DEFINE-VOP (RAW-INSTANCE-REF/DOUBLE) ...) ; compiling (DEFINE-VOP (RAW-INSTANCE-SET/DOUBLE) ...) ; compiling (DEFINE-VOP (RAW-INSTANCE-INIT/DOUBLE) ...) ; compiling (DEFINE-VOP (RAW-INSTANCE-REF/COMPLEX-SINGLE) ...) ; compiling (DEFINE-VOP (RAW-INSTANCE-SET/COMPLEX-SINGLE) ...) ; compiling (DEFINE-VOP (RAW-INSTANCE-INIT/COMPLEX-SINGLE) ...) ; compiling (DEFINE-VOP (RAW-INSTANCE-REF/COMPLEX-DOUBLE) ...) ; compiling (DEFINE-VOP (RAW-INSTANCE-SET/COMPLEX-DOUBLE) ...) ; compiling (DEFINE-VOP (RAW-INSTANCE-INIT/COMPLEX-DOUBLE) ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/x86/cell.fasl-tmp written ; compilation finished in 0:00:00.606 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/values.lisp" (written 27 FEB 2015 04:49:49 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFINE-VOP (RESET-STACK-POINTER) ...) ; compiling (DEFINE-VOP (%%NIP-VALUES) ...) ; compiling (DEFINE-VOP (PUSH-VALUES) ...) ; compiling (DEFINE-VOP (VALUES-LIST) ...) ; compiling (DEFINE-VOP (%MORE-ARG-VALUES) ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/x86/values.fasl-tmp written ; compilation finished in 0:00:00.069 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/alloc.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFINE-VOP (LIST-OR-LIST*) ...) ; compiling (DEFINE-VOP (LIST LIST-OR-LIST*) ...) ; compiling (DEFINE-VOP (LIST* LIST-OR-LIST*) ...) ; compiling (DEFINE-VOP (ALLOCATE-VECTOR-ON-HEAP) ...) ; compiling (DEFINE-VOP (ALLOCATE-VECTOR-ON-STACK) ...) ; compiling (DEFINE-VOP (MAKE-FDEFN) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/alloc.lisp ; in: DEFINE-VOP (MAKE-FDEFN) ; (SB!VM::WITH-FIXED-ALLOCATION (SB!VM::RESULT SB!VM:FDEFN-WIDETAG ; SB!VM:FDEFN-SIZE SB!VM::NODE) ; (SB!VM::STOREW SB!VM::NAME SB!VM::RESULT SB!VM:FDEFN-NAME-SLOT ; SB!VM:OTHER-POINTER-LOWTAG) ; (SB!VM::STOREW SB!VM::NIL-VALUE SB!VM::RESULT SB!VM:FDEFN-FUN-SLOT ; SB!VM:OTHER-POINTER-LOWTAG) ; (SB!VM::STOREW (SB!C:MAKE-FIXUP "undefined_tramp" :FOREIGN) SB!VM::RESULT ; SB!VM:FDEFN-RAW-ADDR-SLOT SB!VM:OTHER-POINTER-LOWTAG)) ; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::ALLOCATION ; ==> ; SB!VM::NODE ; ; note: deleting unreachable code ; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::STOREW LET ; --> SB!ASSEM:INST SB!VM::MOV-INST-EMITTER SB!VM::MAKE-EA-FOR-OBJECT-SLOT ; --> SB!VM::MAKE-EA - ; ==> ; SB!VM:OTHER-POINTER-LOWTAG ; ; note: deleting unreachable code ; (SB!VM::STOREW SB!VM::NAME SB!VM::RESULT SB!VM:FDEFN-NAME-SLOT ; SB!VM:OTHER-POINTER-LOWTAG) ; --> LET ; ==> ; SB!VM::NAME ; ; note: deleting unreachable code ; --> LET SB!ASSEM:INST SB!VM::MOV-INST-EMITTER SB!VM::MAKE-EA-FOR-OBJECT-SLOT ; --> SB!VM::MAKE-EA ; ==> ; SB!VM::RESULT ; ; note: deleting unreachable code ; (SB!VM::STOREW SB!VM::NIL-VALUE SB!VM::RESULT SB!VM:FDEFN-FUN-SLOT ; SB!VM:OTHER-POINTER-LOWTAG) ; --> LET ; ==> ; SB!VM::NIL-VALUE ; ; note: deleting unreachable code ; --> LET SB!ASSEM:INST SB!VM::MOV-INST-EMITTER SB!VM::MAKE-EA-FOR-OBJECT-SLOT ; --> SB!VM::MAKE-EA ; ==> ; SB!VM::RESULT ; ; note: deleting unreachable code ; (SB!C:MAKE-FIXUP "undefined_tramp" :FOREIGN) ; ==> ; "undefined_tramp" ; ; note: deleting unreachable code ; (SB!VM::STOREW (SB!C:MAKE-FIXUP "undefined_tramp" :FOREIGN) SB!VM::RESULT ; SB!VM:FDEFN-RAW-ADDR-SLOT SB!VM:OTHER-POINTER-LOWTAG) ; --> LET SB!ASSEM:INST SB!VM::MOV-INST-EMITTER SB!VM::MAKE-EA-FOR-OBJECT-SLOT ; --> SB!VM::MAKE-EA ; ==> ; SB!VM::RESULT ; ; note: deleting unreachable code ; compiling (DEFINE-VOP (MAKE-CLOSURE) ...) ; compiling (DEFINE-VOP (MAKE-VALUE-CELL) ...) ; compiling (DEFINE-VOP (MAKE-UNBOUND-MARKER) ...) ; compiling (DEFINE-VOP (MAKE-FUNCALLABLE-INSTANCE-TRAMP) ...) ; compiling (DEFINE-VOP (FIXED-ALLOC) ...) ; compiling (DEFINE-VOP (VAR-ALLOC) ...); ; compilation unit finished ; printed 8 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/x86/alloc.fasl-tmp written ; compilation finished in 0:00:00.200 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/call.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFUN STANDARD-ARG-LOCATION ...) ; compiling (DEFUN STANDARD-ARG-LOCATION-SC ...) ; compiling (DEFCONSTANT ARG-COUNT-SC ...) ; compiling (DEFCONSTANT CLOSURE-SC ...) ; compiling (DEFUN MAKE-RETURN-PC-PASSING-LOCATION ...) ; compiling (DEFUN MAKE-OLD-FP-PASSING-LOCATION ...) ; compiling (DEFUN MAKE-OLD-FP-SAVE-LOCATION ...) ; compiling (DEFUN MAKE-RETURN-PC-SAVE-LOCATION ...) ; compiling (DEFUN MAKE-ARG-COUNT-LOCATION ...) ; compiling (DEFUN MAKE-NFP-TN ...) ; compiling (DEFUN MAKE-STACK-POINTER-TN ...) ; compiling (DEFUN MAKE-NUMBER-STACK-POINTER-TN ...) ; compiling (DEFUN MAKE-UNKNOWN-VALUES-LOCATIONS ...) ; compiling (DEFUN SELECT-COMPONENT-FORMAT ...) ; compiling (DEFINE-VOP (CURRENT-FP) ...) ; compiling (DEFINE-VOP (COMPUTE-OLD-NFP) ...) ; compiling (DEFINE-VOP (ANCESTOR-FRAME-REF) ...) ; compiling (DEFINE-VOP (ANCESTOR-FRAME-SET) ...) ; compiling (DEFINE-FRAME-OP SIGNED-BYTE-32 ...) ; compiling (DEFINE-FRAME-OP UNSIGNED-BYTE-32 ...) ; compiling (DEFINE-FRAME-OP SYSTEM-AREA-POINTER ...) ; compiling (DEFINE-X87-FRAME-OP DOUBLE-FLOAT ...) ; compiling (DEFINE-X87-FRAME-OP SINGLE-FLOAT ...) ; compiling (DEFINE-X87-FRAME-OP COMPLEX-DOUBLE-FLOAT ...) ; compiling (DEFINE-X87-FRAME-OP COMPLEX-SINGLE-FLOAT ...) ; compiling (DEFUN PRIMITIVE-TYPE-INDIRECT-CELL-TYPE ...) ; compiling (DEFINE-VOP (XEP-ALLOCATE-FRAME) ...) ; compiling (DEFINE-VOP (XEP-SETUP-SP) ...) ; compiling (DEFINE-VOP (ALLOCATE-FRAME) ...) ; compiling (DEFINE-VOP (ALLOCATE-FULL-CALL-FRAME) ...) ; compiling (DEFUN DEFAULT-UNKNOWN-VALUES ...) ; compiling (DEFUN RECEIVE-UNKNOWN-VALUES ...) ; compiling (DEFINE-VOP (UNKNOWN-VALUES-RECEIVER) ...) ; compiling (DEFUN CHECK-OCFP-AND-RETURN-PC ...) ; compiling (DEFUN EMIT-BLOCK-HEADER ...) ; compiling (DEFINE-VOP (CALL-LOCAL) ...) ; compiling (DEFINE-VOP (MULTIPLE-CALL-LOCAL UNKNOWN-VALUES-RECEIVER) ...) ; compiling (DEFINE-VOP (KNOWN-CALL-LOCAL) ...) ; compiling (DEFINE-VOP (KNOWN-RETURN) ...) ; compiling (DEFINE-FULL-CALL CALL ...) ; compiling (DEFINE-FULL-CALL CALL-NAMED ...) ; compiling (DEFINE-FULL-CALL MULTIPLE-CALL ...) ; compiling (DEFINE-FULL-CALL MULTIPLE-CALL-NAMED ...) ; compiling (DEFINE-FULL-CALL TAIL-CALL ...) ; compiling (DEFINE-FULL-CALL TAIL-CALL-NAMED ...) ; compiling (DEFINE-FULL-CALL CALL-VARIABLE ...) ; compiling (DEFINE-FULL-CALL MULTIPLE-CALL-VARIABLE ...) ; compiling (DEFINE-VOP (TAIL-CALL-VARIABLE) ...) ; compiling (DEFINE-VOP (RETURN-SINGLE) ...) ; compiling (DEFINE-VOP (RETURN) ...) ; compiling (DEFINE-VOP (RETURN-MULTIPLE) ...) ; compiling (DEFINE-VOP (SETUP-CLOSURE-ENVIRONMENT) ...) ; compiling (DEFINE-VOP (COPY-MORE-ARG) ...) ; compiling (DEFINE-VOP (MORE-KW-ARG) ...) ; compiling (DEFINE-VOP (MORE-ARG) ...) ; compiling (DEFINE-VOP (LISTIFY-REST-ARGS) ...) ; compiling (DEFINE-VOP (MORE-ARG-CONTEXT) ...) ; compiling (DEFINE-VOP (VERIFY-ARG-COUNT) ...) ; compiling (DEF ARG-COUNT-ERROR ...) ; compiling (DEF TYPE-CHECK-ERROR ...) ; compiling (DEF LAYOUT-INVALID-ERROR ...) ; compiling (DEF ODD-KEY-ARGS-ERROR ...) ; compiling (DEF UNKNOWN-KEY-ARG-ERROR ...) ; compiling (DEF NIL-FUN-RETURNED-ERROR ...) ; compiling (DEFUN EMIT-SINGLE-STEP-TEST ...) ; compiling (DEFINE-VOP (STEP-INSTRUMENT-BEFORE-VOP) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/call.lisp ; in: DEFINE-VOP (COPY-MORE-ARG) ; (SB!C:SB-ALLOCATED-SIZE 'SB!VM::STACK) ; ; caught STYLE-WARNING: ; undefined function: SB-ALLOCATED-SIZE ; in: DEFINE-VOP (ALLOCATE-FRAME) ; (SB!C:SB-ALLOCATED-SIZE 'SB!VM::STACK) ; ; caught STYLE-WARNING: ; undefined function: SB-ALLOCATED-SIZE ; in: DEFINE-VOP (XEP-SETUP-SP) ; (SB!C:SB-ALLOCATED-SIZE 'SB!VM::STACK) ; ; caught STYLE-WARNING: ; undefined function: SB-ALLOCATED-SIZE ; ; compilation unit finished ; Undefined function: ; SB-ALLOCATED-SIZE ; caught 3 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/x86/call.fasl-tmp written ; compilation finished in 0:00:00.852 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/nlx.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFUN MAKE-NLX-SP-TN ...) ; compiling (DEFUN MAKE-NLX-ENTRY-ARG-START-LOCATION ...) ; compiling (DEFUN CATCH-BLOCK-EA ...) ; compiling (DEFINE-VOP (SAVE-DYNAMIC-STATE) ...) ; compiling (DEFINE-VOP (RESTORE-DYNAMIC-STATE) ...) ; compiling (DEFINE-VOP (CURRENT-STACK-POINTER) ...) ; compiling (DEFINE-VOP (CURRENT-BINDING-POINTER) ...) ; compiling (DEFINE-VOP (MAKE-UNWIND-BLOCK) ...) ; compiling (DEFINE-VOP (MAKE-CATCH-BLOCK) ...) ; compiling (DEFINE-VOP (SET-UNWIND-PROTECT) ...) ; compiling (DEFINE-VOP (UNLINK-CATCH-BLOCK) ...) ; compiling (DEFINE-VOP (UNLINK-UNWIND-PROTECT) ...) ; compiling (DEFINE-VOP (NLX-ENTRY) ...) ; compiling (DEFINE-VOP (NLX-ENTRY-MULTIPLE) ...) ; compiling (DEFINE-VOP (UWP-ENTRY) ...) ; compiling (DEFINE-VOP (UNWIND-TO-FRAME-AND-CALL) ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/x86/nlx.fasl-tmp written ; compilation finished in 0:00:00.131 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/late-nlx.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFUN MAKE-DYNAMIC-STATE-TNS ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/generic/late-nlx.fasl-tmp written ; compilation finished in 0:00:00.005 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/show.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFINE-VOP (PRINT) ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/x86/show.fasl-tmp written ; compilation finished in 0:00:00.011 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/array.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFINE-VOP (MAKE-ARRAY-HEADER) ...) ; compiling (DEFINE-VOP (MAKE-ARRAY-HEADER/C) ...) ; compiling (DEFINE-FULL-REFFER %ARRAY-DIMENSION ...) ; compiling (DEFINE-FULL-SETTER %SET-ARRAY-DIMENSION ...) ; compiling (DEFINE-VOP (ARRAY-RANK-VOP) ...) ; compiling (DEFINE-VOP (CHECK-BOUND) ...) ; compiling (DEF-FULL-DATA-VECTOR-FROBS SIMPLE-VECTOR ...) ; compiling (DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-32 ...) ; compiling (DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-FIXNUM ...) ; compiling (DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-FIXNUM ...) ; compiling (DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-SIGNED-BYTE-32 ...) ; compiling (DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-31 ...) ; compiling (DEF-FULL-DATA-VECTOR-FROBS SIMPLE-CHARACTER-STRING ...) ; compiling (DEFINE-FULL-COMPARE-AND-SWAP %COMPARE-AND-SWAP-SVREF ...) ; compiling (DEF-SMALL-DATA-VECTOR-FROBS SIMPLE-BIT-VECTOR ...) ; compiling (DEF-SMALL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-2 ...) ; compiling (DEF-SMALL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-4 ...) ; compiling (DEFUN MAKE-EA-FOR-FLOAT-REF ...) ; compiling (DEFINE-VOP (DATA-VECTOR-REF-WITH-OFFSET/SIMPLE-ARRAY-SINGLE-FLOAT) ...) ; compiling (DEFINE-VOP (DATA-VECTOR-SET-WITH-OFFSET/SIMPLE-ARRAY-SINGLE-FLOAT) ...) ; compiling (DEFINE-VOP (DATA-VECTOR-REF-WITH-OFFSET/SIMPLE-ARRAY-DOUBLE-FLOAT) ...) ; compiling (DEFINE-VOP (DATA-VECTOR-SET-WITH-OFFSET/SIMPLE-ARRAY-DOUBLE-FLOAT) ...) ; compiling (DEFINE-VOP (DATA-VECTOR-REF-WITH-OFFSET/SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT) ...) ; compiling (DEFINE-VOP (DATA-VECTOR-SET-WITH-OFFSET/SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT) ...) ; compiling (DEFINE-VOP (DATA-VECTOR-REF-WITH-OFFSET/SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT) ...) ; compiling (DEFINE-VOP (DATA-VECTOR-SET-WITH-OFFSET/SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT) ...) ; compiling (DEFINE-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-7 ...) ; compiling (DEFINE-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-8 ...) ; compiling (DEFINE-DATA-VECTOR-FROBS SIMPLE-ARRAY-SIGNED-BYTE-8 ...) ; compiling (DEFINE-DATA-VECTOR-FROBS SIMPLE-BASE-STRING ...) ; compiling (DEFINE-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-15 ...) ; compiling (DEFINE-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-16 ...) ; compiling (DEFINE-DATA-VECTOR-FROBS SIMPLE-ARRAY-SIGNED-BYTE-16 ...) ; compiling (DEFINE-FULL-REFFER VECTOR-RAW-BITS ...) ; compiling (DEFINE-FULL-SETTER SET-VECTOR-RAW-BITS ...) ; compiling (DEFINE-VOP (ARRAY-ATOMIC-INCF/WORD) ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/x86/array.fasl-tmp written ; compilation finished in 0:00:01.053 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/type-error.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFINE-VOP (DATA-NIL-VECTOR-REF) ...) ; compiling (DEFINE-VOP (DATA-VECTOR-SET/SIMPLE-ARRAY-NIL) ...) ; compiling (DEFINE-VOP (DATA-VECTOR-SET/SIMPLE-ARRAY-NIL) ...) ; compiling (DEFINE-VOP (TYPE-CHECK-ERROR/C) ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/generic/type-error.fasl-tmp written ; compilation finished in 0:00:00.059 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/pred.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFINE-VOP (BRANCH) ...) ; compiling (DEFINE-VOP (BRANCH-IF) ...) ; compiling (DEFVAR *CMOV-PTYPE-REPRESENTATION-VOP* ...) ; compiling (DEFUN CONVERT-CONDITIONAL-MOVE-P ...) ; compiling (DEFINE-VOP (MOVE-IF) ...) ; compiling (DEF-MOVE-IF MOVE-IF/T ...) ; compiling (DEF-MOVE-IF MOVE-IF/FX ...) ; compiling (DEF-MOVE-IF MOVE-IF/UNSIGNED ...) ; compiling (DEF-MOVE-IF MOVE-IF/SIGNED ...) ; compiling (DEF-MOVE-IF MOVE-IF/CHAR ...) ; compiling (DEF-MOVE-IF MOVE-IF/SAP ...) ; compiling (DEFINE-VOP (IF-EQ) ...) ; compiling (DEF FAST-IF-EQ-CHARACTER ...) ; compiling (DEF FAST-IF-EQ-CHARACTER/C ...) ; compiling (DEF FAST-IF-EQ-FIXNUM ...) ; compiling (DEF FAST-IF-EQ-FIXNUM/C ...) ; compiling (DEF FAST-IF-EQ-SIGNED ...) ; compiling (DEF FAST-IF-EQ-SIGNED/C ...) ; compiling (DEF FAST-IF-EQ-UNSIGNED ...) ; compiling (DEF FAST-IF-EQ-UNSIGNED/C ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/x86/pred.fasl-tmp written ; compilation finished in 0:00:00.205 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/late-type-vops.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (!DEFINE-TYPE-VOPS FIXNUMP ...) ; compiling (!DEFINE-TYPE-VOPS FUNCTIONP ...) ; compiling (!DEFINE-TYPE-VOPS LISTP ...) ; compiling (!DEFINE-TYPE-VOPS %INSTANCEP ...) ; compiling (!DEFINE-TYPE-VOPS %OTHER-POINTER-P ...) ; compiling (!DEFINE-TYPE-VOPS BIGNUMP ...) ; compiling (!DEFINE-TYPE-VOPS RATIOP ...) ; compiling (!DEFINE-TYPE-VOPS COMPLEXP ...) ; compiling (!DEFINE-TYPE-VOPS COMPLEX-RATIONAL-P ...) ; compiling (!DEFINE-TYPE-VOPS COMPLEX-FLOAT-P ...) ; compiling (!DEFINE-TYPE-VOPS COMPLEX-SINGLE-FLOAT-P ...) ; compiling (!DEFINE-TYPE-VOPS COMPLEX-DOUBLE-FLOAT-P ...) ; compiling (!DEFINE-TYPE-VOPS SINGLE-FLOAT-P ...) ; compiling (!DEFINE-TYPE-VOPS DOUBLE-FLOAT-P ...) ; compiling (!DEFINE-TYPE-VOPS SIMPLE-STRING-P ...) ; compiling (DEFINE-SIMPLE-ARRAY-TYPE-VOPS) ; compiling (DEF) ; compiling (!DEFINE-TYPE-VOPS CHARACTERP ...) ; compiling (!DEFINE-TYPE-VOPS SYSTEM-AREA-POINTER-P ...) ; compiling (!DEFINE-TYPE-VOPS WEAK-POINTER-P ...) ; compiling (!DEFINE-TYPE-VOPS CODE-COMPONENT-P ...) ; compiling (!DEFINE-TYPE-VOPS LRA-P ...) ; compiling (!DEFINE-TYPE-VOPS FDEFN-P ...) ; compiling (!DEFINE-TYPE-VOPS CLOSUREP ...) ; compiling (!DEFINE-TYPE-VOPS SIMPLE-FUN-P ...) ; compiling (!DEFINE-TYPE-VOPS FUNCALLABLE-INSTANCE-P ...) ; compiling (!DEFINE-TYPE-VOPS ARRAY-HEADER-P ...) ; compiling (!DEFINE-TYPE-VOPS STRINGP ...) ; compiling (!DEFINE-TYPE-VOPS BASE-STRING-P ...) ; compiling (!DEFINE-TYPE-VOPS BIT-VECTOR-P ...) ; compiling (!DEFINE-TYPE-VOPS VECTOR-NIL-P ...) ; compiling (!DEFINE-TYPE-VOPS CHARACTER-STRING-P ...) ; compiling (!DEFINE-TYPE-VOPS VECTORP ...) ; compiling (!DEFINE-TYPE-VOPS COMPLEX-VECTOR-P ...) ; compiling (!DEFINE-TYPE-VOPS SIMPLE-ARRAY-P ...) ; compiling (!DEFINE-TYPE-VOPS ARRAYP ...) ; compiling (!DEFINE-TYPE-VOPS NUMBERP ...) ; compiling (!DEFINE-TYPE-VOPS RATIONALP ...) ; compiling (!DEFINE-TYPE-VOPS INTEGERP ...) ; compiling (!DEFINE-TYPE-VOPS FLOATP ...) ; compiling (!DEFINE-TYPE-VOPS REALP ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/generic/late-type-vops.fasl-tmp written ; compilation finished in 0:00:01.229 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/assembly/x86/assem-rtns.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFINE-ASSEMBLY-ROUTINE (THROW #) ...) ; compiling (DEFINE-ASSEMBLY-ROUTINE (UNWIND # ...) ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/assembly/x86/assem-rtns.fasl-tmp written ; compilation finished in 0:00:00.036 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/assembly/x86/array.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!VM") ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/assembly/x86/array.fasl-tmp written ; compilation finished in 0:00:00.001 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/assembly/x86/arith.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!VM") ; compiling (DEFINE-GENERIC-ARITH-ROUTINE (+ 10) ...) ; compiling (DEFINE-GENERIC-ARITH-ROUTINE (- 10) ...) ; compiling (DEFINE-GENERIC-ARITH-ROUTINE (* 30) ...) ; compiling (DEFINE-ASSEMBLY-ROUTINE (GENERIC-NEGATE # ...) ...) ; compiling (DEFINE-COND-ASSEM-RTN GENERIC-< ...) ; compiling (DEFINE-COND-ASSEM-RTN GENERIC-> ...) ; compiling (DEFINE-ASSEMBLY-ROUTINE (GENERIC-EQL # ...) ...) ; compiling (DEFINE-ASSEMBLY-ROUTINE (GENERIC-= # ...) ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/assembly/x86/arith.fasl-tmp written ; compilation finished in 0:00:00.151 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/assembly/x86/alloc.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!VM") ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/assembly/x86/alloc.fasl-tmp written ; compilation finished in 0:00:00.001 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/pseudo-vops.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFINE-VOP (NOTE-ENVIRONMENT-START) ...) ; compiling (DEFINE-VOP (MOVE-OPERAND) ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/pseudo-vops.fasl-tmp written ; compilation finished in 0:00:00.013 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/aliencomp.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFKNOWN %SAP-ALIEN ...) ; compiling (DEFKNOWN ALIEN-SAP ...) ; compiling (DEFKNOWN SLOT ...) ; compiling (DEFKNOWN %SET-SLOT ...) ; compiling (DEFKNOWN %SLOT-ADDR ...) ; compiling (DEFKNOWN DEREF ...) ; compiling (DEFKNOWN %SET-DEREF ...) ; compiling (DEFKNOWN %DEREF-ADDR ...) ; compiling (DEFKNOWN %HEAP-ALIEN ...) ; compiling (DEFKNOWN %SET-HEAP-ALIEN ...) ; compiling (DEFKNOWN %HEAP-ALIEN-ADDR ...) ; compiling (DEFKNOWN MAKE-LOCAL-ALIEN ...) ; compiling (DEFKNOWN NOTE-LOCAL-ALIEN-TYPE ...) ; compiling (DEFKNOWN LOCAL-ALIEN ...) ; compiling (DEFKNOWN %LOCAL-ALIEN-FORCED-TO-MEMORY-P ...) ; compiling (DEFKNOWN %SET-LOCAL-ALIEN ...) ; compiling (DEFKNOWN %LOCAL-ALIEN-ADDR ...) ; compiling (DEFKNOWN DISPOSE-LOCAL-ALIEN ...) ; compiling (DEFKNOWN %CAST ...) ; compiling (DEFKNOWN NATURALIZE ...) ; compiling (DEFKNOWN DEPORT ...) ; compiling (DEFKNOWN DEPORT-ALLOC ...) ; compiling (DEFKNOWN %ALIEN-VALUE ...) ; compiling (DEFKNOWN (SETF %ALIEN-VALUE) ...) ; compiling (DEFKNOWN ALIEN-FUNCALL ...) ; compiling (DEFTRANSFORM SLOT ...) ; compiling (DEFTRANSFORM %SET-SLOT ...) ; compiling (DEFTRANSFORM %SLOT-ADDR ...) ; compiling (DEFUN FIND-SLOT-OFFSET-AND-TYPE ...) ; compiling (DEFTRANSFORM SLOT ...) ; compiling (DEFTRANSFORM %SET-SLOT ...) ; compiling (DEFOPTIMIZER (%SLOT-ADDR DERIVE-TYPE) ...) ; compiling (DEFTRANSFORM %SLOT-ADDR ...) ; compiling (DEFUN FIND-DEREF-ALIEN-TYPE ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/aliencomp.lisp ; in: DEFUN FIND-DEREF-ALIEN-TYPE ; (SB!C::GIVE-UP-IR1-TRANSFORM) ; ; note: deleting unreachable code ; compiling (DEFUN FIND-DEREF-ELEMENT-TYPE ...) ; compiling (DEFUN COMPUTE-DEREF-GUTS ...) ; compiling (DEFTRANSFORM DEREF ...) ; compiling (DEFTRANSFORM %SET-DEREF ...) ; compiling (DEFOPTIMIZER (%DEREF-ADDR DERIVE-TYPE) ...) ; compiling (DEFTRANSFORM %DEREF-ADDR ...) ; compiling (DEFUN HEAP-ALIEN-SAP-AND-TYPE ...) ; compiling (DEFTRANSFORM %HEAP-ALIEN ...) ; compiling (DEFTRANSFORM %SET-HEAP-ALIEN ...) ; compiling (DEFOPTIMIZER (%HEAP-ALIEN-ADDR DERIVE-TYPE) ...) ; compiling (DEFTRANSFORM %HEAP-ALIEN-ADDR ...) ; compiling (DEFUN ALIEN-INFO-CONSTANT-OR-ABORT ...) ; compiling (DEFTRANSFORM MAKE-LOCAL-ALIEN ...) ; compiling (DEFTRANSFORM NOTE-LOCAL-ALIEN-TYPE ...) ; compiling (DEFTRANSFORM LOCAL-ALIEN ...) ; compiling (DEFTRANSFORM %LOCAL-ALIEN-FORCED-TO-MEMORY-P ...) ; compiling (DEFTRANSFORM %SET-LOCAL-ALIEN ...) ; compiling (DEFOPTIMIZER (%LOCAL-ALIEN-ADDR DERIVE-TYPE) ...) ; compiling (DEFTRANSFORM %LOCAL-ALIEN-ADDR ...) ; compiling (DEFOPTIMIZER (%CAST DERIVE-TYPE) ...) ; compiling (DEFTRANSFORM %CAST ...) ; compiling (DEFTRANSFORM ALIEN-SAP ...) ; compiling (DEFOPTIMIZER (%SAP-ALIEN DERIVE-TYPE) ...) ; compiling (DEFTRANSFORM %SAP-ALIEN ...) ; compiling (FLET (#) ...) ; compiling (DEFUN COUNT-LOW-ORDER-ZEROS ...) ; compiling (DEFTRANSFORM / ...) ; compiling (DEFTRANSFORM ASH ...) ; compiling (DEFTRANSFORM ALIEN-FUNCALL ...) ; compiling (DEFTRANSFORM ALIEN-FUNCALL ...) ; compiling (DEFOPTIMIZER (%ALIEN-FUNCALL DERIVE-TYPE) ...) ; compiling (DEFOPTIMIZER (%ALIEN-FUNCALL LTN-ANNOTATE) ...) ; compiling (DEFOPTIMIZER (%ALIEN-FUNCALL IR2-CONVERT) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/aliencomp.lisp ; in: DEFOPTIMIZER (%ALIEN-FUNCALL LTN-ANNOTATE) ; (SB!C::ANNOTATE-ORDINARY-LVAR FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: ANNOTATE-ORDINARY-LVAR ; in: DEFOPTIMIZER (%ALIEN-FUNCALL IR2-CONVERT) ; (SB!C::LVAR-TN SB!C:CALL BLOCK SB!C::ARG) ; ; caught STYLE-WARNING: ; undefined function: LVAR-TN ; (SB!C::MOVE-LVAR-RESULT SB!C:CALL BLOCK SB!C::RESULT-TNS SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: MOVE-LVAR-RESULT ; ; compilation unit finished ; Undefined functions: ; ANNOTATE-ORDINARY-LVAR LVAR-TN MOVE-LVAR-RESULT ; caught 3 STYLE-WARNING conditions ; printed 1 note ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/aliencomp.fasl-tmp written ; compilation finished in 0:00:00.201 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ltv.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFKNOWN %LOAD-TIME-VALUE ...) ; compiling (DEF-IR1-TRANSLATOR LOAD-TIME-VALUE ...) ; compiling (DEFOPTIMIZER (%LOAD-TIME-VALUE IR2-CONVERT) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ltv.lisp ; in: DEF-IR1-TRANSLATOR LOAD-TIME-VALUE ; (SB!INT:QUASIQUOTE ; (SB!KERNEL:VALUE-CELL-REF ; #S(SB!IMPL::COMMA :EXPR (SB!KERNEL:MAKE-VALUE-CELL SB!C::VALUE) :KIND 0))) ; --> SB!IMPL::|List| ; ==> ; (SB!KERNEL:MAKE-VALUE-CELL SB!C::VALUE) ; ; caught STYLE-WARNING: ; undefined function: MAKE-VALUE-CELL ; in: DEFOPTIMIZER (%LOAD-TIME-VALUE IR2-CONVERT) ; (SB!C::MOVE-LVAR-RESULT SB!C::NODE BLOCK (LIST SB!C:TN) SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: MOVE-LVAR-RESULT ; ; compilation unit finished ; Undefined functions: ; MAKE-VALUE-CELL MOVE-LVAR-RESULT ; caught 2 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/ltv.fasl-tmp written ; compilation finished in 0:00:00.028 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/gtn.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN GTN-ANALYZE ...) ; compiling (DEFUN ASSIGN-LAMBDA-VAR-TNS ...) ; compiling (DEFUN ASSIGN-IR2-PHYSENV ...) ; compiling (DEFUN USE-STANDARD-RETURNS ...) ; compiling (DEFUN RETURN-VALUE-EFFICIENCY-NOTE ...) ; compiling (DEFUN RETURN-INFO-FOR-SET ...) ; compiling (DEFUN ASSIGN-RETURN-LOCATIONS ...) ; compiling (DEFUN ASSIGN-IR2-NLX-INFO ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/gtn.fasl-tmp written ; compilation finished in 0:00:00.075 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ltn.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN NODE-LTN-POLICY ...) ; compiling (DEFUN LTN-POLICY-SAFE-P ...) ; compiling (DEFUN ENSURE-BLOCK-HAS-IR2-BLOCK ...) ; compiling (DEFUN FIXUP-IR2-BLOCKS-FOR-SPLIT-BLOCK ...) ; compiling (DECLAIM (INLINE LVAR-PTYPE)) ; compiling (DEFUN LVAR-PTYPE ...) ; compiling (DEFUN LVAR-DELAYED-LEAF ...) ; compiling (DEFUN ANNOTATE-1-VALUE-LVAR ...) ; compiling (DEFUN ANNOTATE-ORDINARY-LVAR ...) ; compiling (DEFUN ANNOTATE-FUN-LVAR ...) ; compiling (DEFUN FLUSH-FULL-CALL-TAIL-TRANSFER ...) ; compiling (DEFUN LTN-DEFAULT-CALL ...) ; compiling (DEFUN ANNOTATE-UNKNOWN-VALUES-LVAR ...) ; compiling (DEFUN ANNOTATE-FIXED-VALUES-LVAR ...) ; compiling (DEFUN LTN-ANALYZE-RETURN ...) ; compiling (DEFUN LTN-ANALYZE-MV-BIND ...) ; compiling (DEFUN LTN-ANALYZE-MV-CALL ...) ; compiling (DEFUN LTN-ANALYZE-LOCAL-CALL ...) ; compiling (DEFUN SET-TAIL-LOCAL-CALL-SUCCESSOR ...) ; compiling (DEFUN LTN-ANALYZE-SET ...) ; compiling (DEFUN LTN-ANALYZE-IF ...) ; compiling (DEFUN LTN-ANALYZE-EXIT ...) ; compiling (DEFOPTIMIZER (%UNWIND-PROTECT LTN-ANNOTATE) ...) ; compiling (DEFOPTIMIZER (%POP-VALUES LTN-ANNOTATE) ...) ; compiling (DEFOPTIMIZER (%NIP-VALUES LTN-ANNOTATE) ...) ; compiling (DEFOPTIMIZER (%DUMMY-DX-ALLOC LTN-ANNOTATE) ...) ; compiling (DEFUN OPERAND-RESTRICTION-OK ...) ; compiling (DEFUN TEMPLATE-ARGS-OK ...) ; compiling (DEFUN TEMPLATE-RESULTS-OK ...) ; compiling (DEFUN IS-OK-TEMPLATE-USE ...) ; compiling (DEFUN FIND-TEMPLATE ...) ; compiling (DEFUN FIND-TEMPLATE-FOR-LTN-POLICY ...) ; compiling (DEFVAR *EFFICIENCY-NOTE-LIMIT* ...) ; compiling (DECLAIM (TYPE # ...)) ; compiling (DEFVAR *EFFICIENCY-NOTE-COST-THRESHOLD* ...) ; compiling (DECLAIM (TYPE INDEX ...)) ; compiling (DEFUN STRANGE-TEMPLATE-FAILURE ...) ; compiling (DEFUN NOTE-REJECTED-TEMPLATES ...) ; compiling (DEFUN LTN-ANALYZE-KNOWN-CALL ...) ; compiling (DEFUN LTN-ANALYZE-CAST ...) ; compiling (DEFUN LTN-ANNOTATE-CASTS ...) ; compiling (DEFUN LTN-ANNOTATE-CAST ...) ; compiling (DEFUN LTN-ANALYZE-BLOCK ...) ; compiling (DEFUN LTN-ANALYZE ...) ; compiling (DEFUN LTN-ANALYZE-BELATED-BLOCK ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/ltn.fasl-tmp written ; compilation finished in 0:00:00.241 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/stack.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN FIND-PUSHED-LVARS ...) ; compiling (DEFUN NLE-BLOCK-NLX-INFO ...) ; compiling (DEFUN NLE-BLOCK-ENTRY-BLOCK ...) ; compiling (DEFUN MERGE-UVL-LIVE-SETS ...) ; compiling (DEFUN FIND-LOWEST-COMMON-DOMINATOR ...) ; compiling (DEFUN BACK-PROPAGATE-ONE-DX-LVAR ...) ; compiling (DEFUN BACK-PROPAGATE-DX-LVARS ...) ; compiling (DEFUN UPDATE-UVL-LIVE-SETS ...) ; compiling (DEFUN ORDERED-LIST-INTERSECTION ...) ; compiling (DEFUN ORDERED-LIST-UNION ...) ; compiling (DEFUN ORDER-BLOCK-UVL-SETS ...) ; compiling (DEFUN ORDER-UVL-SETS ...) ; compiling (DEFUN INSERT-STACK-CLEANUPS ...) ; compiling (DEFUN FIND-PUSHING-BLOCKS ...) ; compiling (DEFUN STACK-ANALYZE ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/stack.lisp ; in: DEFUN INSERT-STACK-CLEANUPS ; (SB!C::ADD-TO-EMIT-ORDER SB!C::2BLOCK (SB!C::BLOCK-INFO SB!C::BLOCK1)) ; ; caught STYLE-WARNING: ; undefined function: ADD-TO-EMIT-ORDER ; ; compilation unit finished ; Undefined function: ; ADD-TO-EMIT-ORDER ; caught 1 STYLE-WARNING condition ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/stack.fasl-tmp written ; compilation finished in 0:00:00.159 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/control.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN ADD-TO-EMIT-ORDER ...) ; compiling (DEFUN FIND-ROTATED-LOOP-HEAD ...) ; compiling (DEFUN CONTROL-ANALYZE-BLOCK ...) ; compiling (DEFUN CONTROL-ANALYZE-1-FUN ...) ; compiling (DEFEVENT CONTROL-DELETED-BLOCK ...) ; compiling (DEFUN CONTROL-ANALYZE ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/control.fasl-tmp written ; compilation finished in 0:00:00.041 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/entry.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN ENTRY-ANALYZE ...) ; compiling (DEFUN COMPUTE-ENTRY-INFO ...) ; compiling (DEFUN REPLACE-TOPLEVEL-XEPS ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/entry.fasl-tmp written ; compilation finished in 0:00:00.029 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir2tran.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN EMIT-MOVE ...) ; compiling (DEFUN EMIT-STEP-P ...) ; compiling (DEFUN TYPE-CHECK-TEMPLATE ...) ; compiling (DEFUN EMIT-TYPE-CHECK ...) ; compiling (DEFEVENT MAKE-VALUE-CELL-EVENT ...) ; compiling (DEFUN EMIT-MAKE-VALUE-CELL ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN FIND-IN-PHYSENV ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir2tran.lisp ; in: DEFUN FIND-IN-PHYSENV ; (DEFUN SB!C::FIND-IN-PHYSENV (SB!C::THING SB!C::PHYSENV) ; (OR (CDR (ASSOC SB!C::THING (SB!C::IR2-PHYSENV-CLOSURE #))) ; (ETYPECASE SB!C::THING ; (SB!C::LAMBDA-VAR (SB!INT:AVER #) (SB!C::LEAF-INFO SB!C::THING)) ; (SB!C::NLX-INFO (SB!INT:AVER #) (SB!C::IR2-NLX-INFO-HOME #)) ; (SB!C::CLAMBDA (SB!INT:AVER #) (SB!C::ENTRY-INFO-CLOSURE-TN #))) ; (SB!INT:BUG "~@<~2I~_~S ~_not found in ~_~S~:>" SB!C::THING ; SB!C::PHYSENV))) ; --> PROGN ; ==> ; (SB-IMPL::%DEFUN 'SB!C::FIND-IN-PHYSENV ; (SB-INT:NAMED-LAMBDA SB!C::FIND-IN-PHYSENV ; (SB!C::THING SB!C::PHYSENV) ; (BLOCK SB!C::FIND-IN-PHYSENV ; (OR (CDR #) (ETYPECASE SB!C::THING # # #) ; (SB!INT:BUG "~@<~2I~_~S ~_not found in ~_~S~:>" ; SB!C::THING SB!C::PHYSENV)))) ; NIL 'NIL (SB-C:SOURCE-LOCATION)) ; ; note: type assertion too complex to check: ; (VALUES TN &REST T). ; compiling (DEFUN CONSTANT-TN ...) ; compiling (DEFUN LEAF-TN ...) ; compiling (DEFUN EMIT-CONSTANT ...) ; compiling (DEFUN %RETURN-IS-BOXED ...) ; compiling (DEFUN BOXED-REF-P ...) ; compiling (DEFUN IR2-CONVERT-REF ...) ; compiling (DEFUN IR2-CONVERT-GLOBAL-VAR ...) ; compiling (DEFUN ASSERTIONS-ON-IR2-CONVERTED-CLAMBDA ...) ; compiling (DEFUN IR2-CONVERT-CLOSURE ...) ; compiling (DEFUN CLOSURE-INITIAL-VALUE ...) ; compiling (DEFOPTIMIZER (%ALLOCATE-CLOSURES LTN-ANNOTATE) ...) ; compiling (DEFOPTIMIZER (%ALLOCATE-CLOSURES IR2-CONVERT) ...) ; compiling (DEFUN IR2-CONVERT-SET ...) ; compiling (DEFUN LVAR-TN ...) ; compiling (DEFUN LVAR-TNS ...) ; compiling (DEFUN LVAR-RESULT-TNS ...) ; compiling (DEFUN MAKE-STANDARD-VALUE-TNS ...) ; compiling (DEFUN STANDARD-RESULT-TNS ...) ; compiling (DEFUN MOVE-RESULTS-COERCED ...) ; compiling (DEFUN MOVE-RESULTS-CHECKED ...) ; compiling (DEFUN MOVE-LVAR-RESULT ...) ; compiling (DEFUN IR2-CONVERT-CAST ...) ; compiling (DEFUN REFERENCE-ARGS ...) ; compiling (DEFUN IR2-CONVERT-CONDITIONAL ...) ; compiling (DEFUN IR2-CONVERT-IF ...) ; compiling (DEFUN FIND-TEMPLATE-RESULT-TYPES ...) ; compiling (DEFUN MAKE-TEMPLATE-RESULT-TNS ...) ; compiling (DEFUN IR2-CONVERT-TEMPLATE ...) ; compiling (DEFOPTIMIZER (%%PRIMITIVE IR2-CONVERT) ...) ; compiling (DEFOPTIMIZER (%%PRIMITIVE DERIVE-TYPE) ...) ; compiling (DEFUN IR2-CONVERT-LET ...) ; compiling (DEFUN EMIT-PSETQ-MOVES ...) ; compiling (DEFUN IR2-CONVERT-TAIL-LOCAL-CALL ...) ; compiling (DEFUN IR2-CONVERT-ASSIGNMENT ...) ; compiling (DEFUN IR2-CONVERT-LOCAL-CALL-ARGS ...) ; compiling (DEFUN IR2-CONVERT-LOCAL-KNOWN-CALL ...) ; compiling (DEFUN IR2-CONVERT-LOCAL-UNKNOWN-CALL ...) ; compiling (DEFUN IR2-CONVERT-LOCAL-CALL ...) ; compiling (DEFUN FUN-LVAR-TN ...) ; compiling (DEFUN MOVE-TAIL-FULL-CALL-ARGS ...) ; compiling (DEFUN IR2-CONVERT-TAIL-FULL-CALL ...) ; compiling (DEFUN IR2-CONVERT-FULL-CALL-ARGS ...) ; compiling (DEFUN IR2-CONVERT-FIXED-FULL-CALL ...) ; compiling (DEFUN IR2-CONVERT-MULTIPLE-FULL-CALL ...) ; compiling (DECLAIM (TYPE # ...)) ; compiling (DEFVAR *TRACK-FULL-CALLED-FNAMES* ...) ; compiling (DEFUN PONDER-FULL-CALL ...) ; compiling (DEFUN IR2-CONVERT-FULL-CALL ...) ; compiling (DEFUN XEP-VERIFY-ARG-COUNT ...) ; compiling (DEFUN INIT-XEP-ENVIRONMENT ...) ; compiling (DEFUN SAVE-BSP ...) ; compiling (DEFUN IR2-CONVERT-BIND ...) ; compiling (DEFUN IR2-CONVERT-RETURN ...) ; compiling (DEFOPTIMIZER (%CALLER-FRAME IR2-CONVERT) ...) ; compiling (DEFOPTIMIZER (%CALLER-PC IR2-CONVERT) ...) ; compiling (DEFUN IR2-CONVERT-MV-BIND ...) ; compiling (DEFUN IR2-CONVERT-MV-CALL ...) ; compiling (DEFOPTIMIZER (%POP-VALUES IR2-CONVERT) ...) ; compiling (DEFOPTIMIZER (%NIP-VALUES IR2-CONVERT) ...) ; compiling (DEFOPTIMIZER (%DUMMY-DX-ALLOC IR2-CONVERT) ...) ; compiling (DEFOPTIMIZER (VALUES IR2-CONVERT) ...) ; compiling (DEFOPTIMIZER (VALUES-LIST IR2-CONVERT) ...) ; compiling (DEFOPTIMIZER (%MORE-ARG-VALUES IR2-CONVERT) ...) ; compiling (DEFOPTIMIZER (%SPECIAL-BIND IR2-CONVERT) ...) ; compiling (DEFOPTIMIZER (%SPECIAL-UNBIND IR2-CONVERT) ...) ; compiling (DEF-IR1-TRANSLATOR PROGV ...) ; compiling (DEFUN IR2-CONVERT-EXIT ...) ; compiling (DEFOPTIMIZER (%CLEANUP-POINT IR2-CONVERT) ...) ; compiling (DEFOPTIMIZER (%LEXICAL-EXIT-BREAKUP IR2-CONVERT) ...) ; compiling (DEFUN IR2-CONVERT-THROW ...) ; compiling (DEFUN EMIT-NLX-START ...) ; compiling (DEFUN IR2-CONVERT-ENTRY ...) ; compiling (DEFOPTIMIZER (%CATCH IR2-CONVERT) ...) ; compiling (DEFOPTIMIZER (%UNWIND-PROTECT IR2-CONVERT) ...) ; compiling (DEFOPTIMIZER (%NLX-ENTRY IR2-CONVERT) ...) ; compiling (DEF LIST) ; compiling (DEF LIST*) ; compiling (DEFOPTIMIZER (MASK-SIGNED-FIELD IR2-CONVERT) ...) ; compiling (DEFOPTIMIZER (%TYPEP-WRAPPER IR2-CONVERT) ...) ; compiling (DEFUN IR2-CONVERT ...) ; compiling (DEFUN FINISH-IR2-BLOCK ...) ; compiling (DEFUN IR2-CONVERT-BLOCK ...); ; compilation unit finished ; printed 1 note ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/ir2tran.fasl-tmp written ; compilation finished in 0:00:00.762 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/vm-ir2tran.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEF-ALLOC %MAKE-STRUCTURE-INSTANCE ...) ; compiling (DEFOPTIMIZER (%MAKE-STRUCTURE-INSTANCE STACK-ALLOCATE-RESULT) ...) ; compiling (DEFOPTIMIZER IR2-CONVERT-REFFER ...) ; compiling (DEFOPTIMIZER IR2-CONVERT-SETTER ...) ; compiling (DEFOPTIMIZER IR2-CONVERT-SETFER ...) ; compiling (DEFOPTIMIZER IR2-CONVERT-CASSER ...) ; compiling (DEFUN EMIT-INITS ...) ; compiling (DEFUN EMIT-FIXED-ALLOC ...) ; compiling (DEFOPTIMIZER IR2-CONVERT-FIXED-ALLOCATION ...) ; compiling (DEFOPTIMIZER IR2-CONVERT-VARIABLE-ALLOCATION ...) ; compiling (DEFOPTIMIZER IR2-CONVERT-STRUCTURE-ALLOCATION ...) ; compiling (DEFOPTIMIZER (INITIALIZE-VECTOR IR2-CONVERT) ...) ; compiling (LET (#) ...) ; compiling (DEFOPTIMIZER (ALLOCATE-VECTOR STACK-ALLOCATE-RESULT) ...) ; compiling (DEFOPTIMIZER (ALLOCATE-VECTOR LTN-ANNOTATE) ...) ; compiling (DEFOPTIMIZER (LIST STACK-ALLOCATE-RESULT) ...) ; compiling (DEFOPTIMIZER (LIST* STACK-ALLOCATE-RESULT) ...) ; compiling (DEFOPTIMIZER (%LISTIFY-REST-ARGS STACK-ALLOCATE-RESULT) ...) ; compiling (DEFOPTIMIZER (CONS STACK-ALLOCATE-RESULT) ...) ; compiling (DEFOPTIMIZER (%MAKE-COMPLEX STACK-ALLOCATE-RESULT) ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/generic/vm-ir2tran.fasl-tmp written ; compilation finished in 0:00:00.240 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/copyprop.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN TN-IS-COPY-OF ...) ; compiling (DEFUN INIT-COPY-SETS ...) ; compiling (DEFUN COPY-FLOW-ANALYSIS ...) ; compiling (DEFEVENT COPY-DELETED-MOVE ...) ; compiling (DEFUN OK-COPY-REF ...) ; compiling (DEFUN PROPAGATE-COPIES ...) ; compiling (DEFUN COPY-PROPAGATE ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/copyprop.fasl-tmp written ; compilation finished in 0:00:00.059 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/represent.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN GET-OPERAND-INFO ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/represent.lisp ; in: DEFUN GET-OPERAND-INFO ; (SB!C::POSITION-IN #'SB!C:TN-REF-ACROSS SB!C::REF SB!C::REFS) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; compiling (DEFUN LISTIFY-RESTRICTIONS ...) ; compiling (DEFUN BAD-COSTS-ERROR ...) ; compiling (DEFUN BAD-COERCE-ERROR ...) ; compiling (DEFUN BAD-MOVE-ARG-ERROR ...) ; compiling (DEFUN CHECK-MOVE-FUN-CONSISTENCY ...) ; compiling (DEFPARAMETER *IGNORE-COST-VOPS* ...) ; compiling (DEFPARAMETER *SUPPRESS-NOTE-VOPS* ...) ; compiling (DEFUN ADD-REPRESENTATION-COSTS ...) ; compiling (DEFUN SELECT-TN-REPRESENTATION ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/represent.lisp ; in: DEFUN SELECT-TN-REPRESENTATION ; (DEFUN SB!C::SELECT-TN-REPRESENTATION (SB!C:TN SB!C::SCS SB!C::COSTS) ; (DECLARE (TYPE SB!C:TN SB!C:TN) ; (TYPE SB!C::SC-VECTOR SB!C::COSTS) ; (INLINE SB!C::ADD-REPRESENTATION-COSTS)) ; (DOLIST (SB!C::SCN SB!C::SCS) (SETF (SVREF SB!C::COSTS SB!C::SCN) 0)) ; (SB!C::ADD-REPRESENTATION-COSTS (SB!C::TN-READS SB!C:TN) SB!C::SCS ; SB!C::COSTS #'SB!C::VOP-ARGS #'SB!C::VOP-INFO-ARG-COSTS ; #'SB!C::VOP-INFO-MORE-ARG-COSTS NIL) ; (SB!C::ADD-REPRESENTATION-COSTS (SB!C::TN-WRITES SB!C:TN) SB!C::SCS ; SB!C::COSTS #'SB!C::VOP-RESULTS #'SB!C::VOP-INFO-RESULT-COSTS ; #'SB!C::VOP-INFO-MORE-RESULT-COSTS T) ; (LET ((MIN MOST-POSITIVE-FIXNUM) (SB!C::MIN-SCN NIL) (SB!C::UNIQUE NIL)) ; (DOLIST (SB!C::SCN SB!C::SCS) ; (LET (#) ; (COND # #))) ; (VALUES (SVREF SB!C:*BACKEND-SC-NUMBERS* SB!C::MIN-SCN) SB!C::UNIQUE))) ; --> PROGN ; ==> ; (SB-IMPL::%DEFUN 'SB!C::SELECT-TN-REPRESENTATION ; (SB-INT:NAMED-LAMBDA SB!C::SELECT-TN-REPRESENTATION ; (SB!C:TN SB!C::SCS SB!C::COSTS) ; (DECLARE (TYPE SB!C:TN SB!C:TN) ; (TYPE SB!C::SC-VECTOR SB!C::COSTS) ; (INLINE SB!C::ADD-REPRESENTATION-COSTS)) ; (BLOCK SB!C::SELECT-TN-REPRESENTATION ; (DOLIST (SB!C::SCN SB!C::SCS) (SETF #)) ; (SB!C::ADD-REPRESENTATION-COSTS (SB!C::TN-READS SB!C:TN) ; SB!C::SCS SB!C::COSTS #'SB!C::VOP-ARGS ; #'SB!C::VOP-INFO-ARG-COSTS ; #'SB!C::VOP-INFO-MORE-ARG-COSTS NIL) ; (SB!C::ADD-REPRESENTATION-COSTS ; (SB!C::TN-WRITES SB!C:TN) SB!C::SCS SB!C::COSTS ; #'SB!C::VOP-RESULTS #'SB!C::VOP-INFO-RESULT-COSTS ; #'SB!C::VOP-INFO-MORE-RESULT-COSTS T) ; (LET (# # #) ; (DOLIST # #) ; (VALUES # SB!C::UNIQUE)))) ; NIL 'NIL (SB-C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; Call to SB!C::ADD-REPRESENTATION-COSTS could not be inlined because its source ; code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation must be ; in effect to save function definitions for inlining. ; compiling (DEFUN NOTE-NUMBER-STACK-TN ...) ; compiling (DEFUN GET-OPERAND-NAME ...) ; compiling (DEFUN MAYBE-EMIT-COERCE-EFFICIENCY-NOTE ...) ; compiling (DEFUN FIND-MOVE-VOP ...) ; compiling (DEFUN EMIT-COERCE-VOP ...) ; compiling (DECLAIM (INLINE COERCE-SOME-OPERANDS)) ; compiling (DEFUN COERCE-SOME-OPERANDS ...) ; compiling (DEFUN COERCE-VOP-OPERANDS ...) ; compiling (DEFUN EMIT-ARG-MOVES ...) ; compiling (DEFUN EMIT-MOVES-AND-COERCIONS ...) ; compiling (DECLAIM (INLINE NOTE-IF-NUMBER-STACK)) ; compiling (DEFUN NOTE-IF-NUMBER-STACK ...) ; compiling (DEFUN SELECT-REPRESENTATIONS ...); ; compilation unit finished ; caught 1 STYLE-WARNING condition ; printed 2 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/represent.fasl-tmp written ; compilation finished in 0:00:00.246 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir2opt.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DECLAIM (TYPE HASH-TABLE ...)) ; compiling (DEFVAR *2BLOCK-PRED*) ; compiling (DEFVAR *2BLOCK-SUCC*) ; compiling (DEFVAR *LABEL-2BLOCK*) ; compiling (DEFUN INITIALIZE-IR2-BLOCKS-FLOW-INFO ...) ; compiling (DEFUN UPDATE-BLOCK-SUCC ...) ; compiling (DECLAIM (INLINE VOP-NAME)) ; compiling (DEFUN VOP-NAME ...) ; compiling (DEFUN MOVE-VALUE-TARGET ...) ; compiling (DEFUN CMOVP ...) ; compiling (DECLAIM (INLINE CONVERT-ONE-CMOV)) ; compiling (DEFUN CONVERT-ONE-CMOV ...) ; compiling (DEFUN MAYBE-CONVERT-ONE-CMOV ...) ; compiling (DEFUN CONVERT-CMOVS ...) ; compiling (DEFUN DELETE-UNUSED-IR2-BLOCKS ...) ; compiling (DEFUN DELETE-FALL-THROUGH-JUMPS ...) ; compiling (DEFUN IR2-OPTIMIZE ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/ir2opt.fasl-tmp written ; compilation finished in 0:00:00.062 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/pack.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!REGALLOC") ; compiling (DEFVAR *PACK-ASSIGN-COSTS* ...) ; compiling (DEFVAR *PACK-OPTIMIZE-SAVES* ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN OFFSET-CONFLICTS-IN-SB ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN CONFLICTS-IN-SC ...) ; compiling (DEFUN ADD-LOCATION-CONFLICTS ...) ; compiling (DEFUN FIND-LOCATION-USAGE ...) ; compiling (DEFUN IR2-BLOCK-COUNT ...) ; compiling (DEFUN INIT-SB-VECTORS ...) ; compiling (DEFUN GROW-SC ...) ; compiling (DEFUN NO-LOAD-FUN-ERROR ...) ; compiling (DEFUN FAILED-TO-PACK-ERROR ...) ; compiling (DEFUN DESCRIBE-TN-USE ...) ; compiling (DEFUN FAILED-TO-PACK-LOAD-TN-ERROR ...) ; compiling (DEFUN NO-LOAD-SCS-ALLOWED-BY-PRIMITIVE-TYPE-ERROR ...) ; compiling (DEFUN NOTE-SPILLED-TN ...) ; compiling (DEFUN PACK-SAVE-TN ...) ; compiling (DEFUN EMIT-OPERAND-LOAD ...) ; compiling (DEFUN REVERSE-FIND-VOP ...) ; compiling (DEFUN SAVE-COMPLEX-WRITER-TN ...) ; compiling (DEFUN FIND-SINGLE-WRITER ...) ; compiling (DEFUN SAVE-SINGLE-WRITER-TN ...) ; compiling (DEFUN RESTORE-SINGLE-WRITER-TN ...) ; compiling (DEFUN BASIC-SAVE-TN ...) ; compiling (DEFUN EMIT-SAVES ...) ; compiling (DEFUN SAVE-IF-NECESSARY ...) ; compiling (DEFUN RESTORE-TN ...) ; compiling (DEFUN OPTIMIZED-EMIT-SAVES-BLOCK ...) ; compiling (DEFUN OPTIMIZED-EMIT-SAVES ...) ; compiling (DEFVAR *TN-WRITE-COST* ...) ; compiling (DEFVAR *TN-LOOP-DEPTH-MULTIPLIER* ...) ; compiling (DEFUN ASSIGN-TN-COSTS ...) ; compiling (DEFUN ASSIGN-TN-DEPTHS ...) ; compiling (DEFVAR *LIVE-BLOCK*) ; compiling (DEFVAR *LIVE-VOP*) ; compiling (DEFVAR *REPACK-BLOCKS*) ; compiling (DECLAIM (TYPE LIST ...)) ; compiling (DEFUN INIT-LIVE-TNS ...) ; compiling (DEFUN COMPUTE-LIVE-TNS ...) ; compiling (DEFUN LOAD-TN-OFFSET-CONFLICTS-IN-SB ...) ; compiling (DEFUN LOAD-TN-CONFLICTS-IN-SC ...) ; compiling (DEFUN FIND-LOAD-TN-TARGET ...) ; compiling (DEFUN SELECT-LOAD-TN-LOCATION ...) ; compiling (DEFEVENT UNPACK-TN ...) ; compiling (DEFUN UNPACK-TN ...) ; compiling (DEFEVENT UNPACK-FALLBACK ...) ; compiling (DEFUN UNPACK-FOR-LOAD-TN ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/pack.lisp ; in: DEFUN UNPACK-FOR-LOAD-TN ; (SB!C::FIND-IN #'SB!C::TN-NEXT SB!REGALLOC::CONF SB!REGALLOC::NORMAL-TNS) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (SB!C::FIND-IN #'SB!C::TN-NEXT SB!REGALLOC::VICTIM SB!REGALLOC::NORMAL-TNS) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; compiling (DEFUN PACK-LOAD-TN ...) ; compiling (DECLAIM (INLINE CHECK-OPERAND-RESTRICTIONS)) ; compiling (DEFUN CHECK-OPERAND-RESTRICTIONS ...) ; compiling (DEFUN PACK-LOAD-TNS ...) ; compiling (DEFUN TARGET-IF-DESIRABLE ...) ; compiling (DEFUN CHECK-OK-TARGET ...) ; compiling (DECLAIM (INLINE %CALL-WITH-TARGET-TNS)) ; compiling (DEFUN %CALL-WITH-TARGET-TNS ...) ; compiling (DEFMACRO DO-TARGET-TNS ...) ; compiling (DEFUN FIND-OK-TARGET-OFFSET ...) ; compiling (DEFUN SELECT-LOCATION ...) ; compiling (DEFUN ORIGINAL-TN ...) ; compiling (DECLAIM (INLINE UNBOUNDED-SC-P)) ; compiling (DEFUN UNBOUNDED-SC-P ...) ; compiling (DEFUN UNBOUNDED-TN-P ...) ; compiling (DECLAIM (NOTINLINE UNBOUNDED-SC-P)) ; compiling (DEFUN PACK-TN ...) ; compiling (DEFUN PACK-WIRED-TN ...) ; compiling (DEFEVENT REPACK-BLOCK ...) ; compiling (DEFUN CLEAN-UP-PACK-STRUCTURES ...) ; compiling (DEFUN TN-LEXICAL-DEPTH ...) ; compiling (DECLAIM (TYPE # ...)) ; compiling (DEFVAR *REGISTER-ALLOCATION-METHOD* ...) ; compiling (DECLAIM (FTYPE FUNCTION ...)) ; compiling (DEFUN PACK ...) ; compiling (DEFUN PACK-GREEDY ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/pack.lisp ; in: DEFUN DESCRIBE-TN-USE ; (SB!C::PRINT-TN-GUTS SB!C:TN STREAM) ; ; caught STYLE-WARNING: ; undefined function: PRINT-TN-GUTS ; ; compilation unit finished ; Undefined function: ; PRINT-TN-GUTS ; caught 1 STYLE-WARNING condition ; printed 4 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/pack.fasl-tmp written ; compilation finished in 0:00:00.727 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/pack-iterative.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!REGALLOC") ; compiling (DEFSTRUCT (ORDERED-SET # ...) ...) ; compiling (DEFUN OSET-ADJOIN ...) ; compiling (DEFUN OSET-DELETE ...) ; compiling (DEFUN OSET-MEMBER ...) ; compiling (DEFMACRO DO-OSET-ELEMENTS ...) ; compiling (DEF!STRUCT (VERTEX # ...) ...) /entering CLASSOID-MAKE-LOAD-FORM-FUN CLASS=# /entering CLASSOID-MAKE-LOAD-FORM-FUN CLASS=# /entering CLASSOID-MAKE-LOAD-FORM-FUN CLASS=# /entering CLASSOID-MAKE-LOAD-FORM-FUN CLASS=# ; compiling (DECLAIM (INLINE VERTEX-SC)) ; compiling (DEFUN VERTEX-SC ...) ; compiling (DEF!STRUCT (INTERFERENCE-GRAPH # ...) ...) ; compiling (DEFUN INSERT-ONE-EDGE ...) ; compiling (DEFUN BLOCK-GTNS ...) ; compiling (DEFUN INSERT-BLOCK-LOCAL-CONFLICTS-FOR ...) ; compiling (DEFUN INSERT-BLOCK-LOCAL-CONFLICTS ...) ; compiling (DEFUN INSERT-CONFLICT-EDGES ...) ; compiling (DEFUN RESTRICTED-TN-LOCATIONS ...) ; compiling (DEFUN PREPARE-VERTICES ...) ; compiling (DEFUN MAKE-INTERFERENCE-GRAPH ...) ; compiling (DEFUN REMOVE-VERTEX-FROM-INTERFERENCE-GRAPH ...) ; compiling (DEFUN COLOR-NO-CONFLICTS-P ...) ; compiling (DEFUN VERTEX-COLOR-POSSIBLE-P ...) ; compiling (DEFUN VERTEX-DOMAIN ...) ; compiling (DEFUN VERTEX-TARGET-VERTICES ...) ; compiling (DEFUN VERTICES-BEST-COLOR ...) ; compiling (DEFUN FIND-VERTEX-COLOR ...) ; compiling (DEFUN PARTITION-AND-ORDER-VERTICES ...) ; compiling (DEFUN COLOR-INTERFERENCE-GRAPH ...) ; compiling (DEFVAR *PACK-ITERATIONS* ...) ; compiling (DEFUN ITERATE-COLOR ...) ; compiling (DEFUN PACK-COLORED ...) ; compiling (DEFUN PACK-ITERATIVE ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/pack-iterative.fasl-tmp written ; compilation finished in 0:00:00.250 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/codegen.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFUN COMPONENT-HEADER-LENGTH ...) ; compiling (DEFUN SB-ALLOCATED-SIZE ...) ; compiling (DEFUN CURRENT-NFP-TN ...) ; compiling (DEFUN CALLEE-NFP-TN ...) ; compiling (DEFUN CALLEE-RETURN-PC-TN ...) ; compiling (DEFVAR *CODE-SEGMENT* ...) ; compiling (DEFVAR *ELSEWHERE* ...) ; compiling (DEFVAR *ELSEWHERE-LABEL* ...) ; compiling (DEFVAR *CONSTANT-SEGMENT* ...) ; compiling (DEFVAR *CONSTANT-TABLE* ...) ; compiling (DEFVAR *CONSTANT-VECTOR* ...) ; compiling (DEFVAR *PREV-SEGMENT*) ; compiling (DEFVAR *PREV-VOP*) ; compiling (DEFUN TRACE-INSTRUCTION ...) ; compiling (DEFUN DEFAULT-SEGMENT-RUN-SCHEDULER ...) ; compiling (DEFUN DEFAULT-SEGMENT-INST-HOOK ...) ; compiling (DEFUN INIT-ASSEMBLER ...) ; compiling (DEFUN GENERATE-CODE ...) ; compiling (DEFUN EMIT-LABEL-ELSEWHERE ...) ; compiling (DEFUN LABEL-ELSEWHERE-P ...) ; compiling (DEFUN REGISTER-INLINE-CONSTANT ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/codegen.lisp ; in: DEFUN TRACE-INSTRUCTION ; (SB!C::PRINT-VOP SB!C::VOP) ; ; caught STYLE-WARNING: ; undefined function: PRINT-VOP ; ; compilation unit finished ; Undefined function: ; PRINT-VOP ; caught 1 STYLE-WARNING condition ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/codegen.fasl-tmp written ; compilation finished in 0:00:00.075 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/debug.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (DEFVAR *ARGS* ...) ; compiling (DEFVAR *IGNORED-ERRORS* ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN BARF ...) ; compiling (DEFVAR *BURP-ACTION* ...) ; compiling (DECLAIM (TYPE # ...)) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN BURP ...) ; compiling (DEFVAR *SEEN-BLOCKS*) ; compiling (DEFVAR *SEEN-FUNS*) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN CHECK-NODE-REACHED ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN CHECK-IR1-CONSISTENCY ...) ; compiling (DEFUN OBSERVE-FUNCTIONAL ...) ; compiling (DEFUN CHECK-FUN-REACHED ...) ; compiling (DEFUN CHECK-FUN-STUFF ...) ; compiling (DEFUN CHECK-FUN-CONSISTENCY ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN CHECK-BLOCK-CONSISTENCY ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN CHECK-BLOCK-SUCCESSORS ...) ; compiling (DEFUN CHECK-DEST ...) ; compiling (DEFUN CHECK-NODE-CONSISTENCY ...) ; compiling (DEFUN CHECK-TN-REFS ...) ; compiling (DEFUN CHECK-VOP-REFS ...) ; compiling (DEFUN CHECK-IR2-BLOCK-CONSISTENCY ...) ; compiling (DEFUN CHECK-IR2-CONSISTENCY ...) ; compiling (DEFUN PRE-PACK-TN-STATS ...) ; compiling (DEFUN CHECK-MORE-TN-ENTRY ...) ; compiling (DEFUN CHECK-TN-CONFLICTS ...) ; compiling (DEFUN CHECK-BLOCK-CONFLICTS ...) ; compiling (DEFUN CHECK-ENVIRONMENT-LIFETIMES ...) ; compiling (DEFUN CHECK-LIFE-CONSISTENCY ...) ; compiling (DEFUN CHECK-PACK-CONSISTENCY ...) ; compiling (DEF *CONTINUATION-NUMBER* ...) ; compiling (DEF *TN-ID* ...) ; compiling (DEF *LABEL-ID* ...) ; compiling (DEFUN PRINT-LEAF ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN BLOCK-OR-LOSE ...) ; compiling (DEFUN PRINT-CTRAN ...) ; compiling (DEFUN PRINT-LVAR ...) ; compiling (DEFUN PRINT-LVAR-STACK ...) ; compiling (DEFUN PRINT-NODES ...) ; compiling (DEFUN PRINT-TN-GUTS ...) ; compiling (DEFUN PRINT-OPERANDS ...) ; compiling (DEFUN PRINT-VOP ...) ; compiling (DEFUN PRINT-IR2-BLOCK ...) ; compiling (DEFUN PRINT-VOPS ...) ; compiling (DEFUN PRINT-IR2-BLOCKS ...) ; compiling (DEFUN PRINT-BLOCKS ...) ; compiling (DEFUN PRINT-ALL-BLOCKS ...) ; compiling (DEFVAR *LIST-CONFLICTS-TABLE* ...) ; compiling (DEFUN ADD-ALWAYS-LIVE-TNS ...) ; compiling (DEFUN ADD-ALL-LOCAL-TNS ...) ; compiling (DEFUN LISTIFY-CONFLICTS-TABLE ...) ; compiling (DEFUN LIST-CONFLICTS ...) ; compiling (DEFUN NTH-VOP ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/debug.fasl-tmp written ; compilation finished in 0:00:00.555 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/format-time.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFPARAMETER *ABBREV-WEEKDAY-TABLE* ...) ; compiling (DEFPARAMETER *LONG-WEEKDAY-TABLE* ...) ; compiling (DEFPARAMETER *ABBREV-MONTH-TABLE* ...) ; compiling (DEFPARAMETER *LONG-MONTH-TABLE* ...) ; compiling (DEFPARAMETER *TIMEZONE-TABLE* ...) ; compiling (DEFPARAMETER *DAYLIGHT-TABLE* ...) ; compiling (DEFUN VALID-DESTINATION-P ...) ; compiling (DEFUN FORMAT-UNIVERSAL-TIME ...) ; compiling (DEFUN TIMEZONE-NAME ...) ; compiling (DEFUN FORMAT-DECODED-TIME ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/format-time.fasl-tmp written ; compilation finished in 0:00:00.053 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/error.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (DEFUN STYLE-WARN ...) ; compiling (DEFUN COERCE-TO-CONDITION ...) ; compiling (DEFINE-CONDITION LAYOUT-INVALID ...) ; compiling (DEFINE-CONDITION CASE-FAILURE ...) ; compiling (DEFINE-CONDITION COMPILED-PROGRAM-ERROR ...) ; compiling (DEFINE-CONDITION INTERPRETED-PROGRAM-ERROR ...) ; compiling (DEFINE-CONDITION SIMPLE-CONTROL-ERROR ...) ; compiling (DEFINE-CONDITION SIMPLE-FILE-ERROR ...) ; compiling (DEFINE-CONDITION SIMPLE-PROGRAM-ERROR ...) ; compiling (DEFINE-CONDITION SIMPLE-STREAM-ERROR ...) ; compiling (DEFINE-CONDITION SIMPLE-PARSE-ERROR ...) ; compiling (DEFINE-CONDITION CHARACTER-CODING-ERROR ...) ; compiling (DEFINE-CONDITION CHARACTER-ENCODING-ERROR ...) ; compiling (DEFINE-CONDITION CHARACTER-DECODING-ERROR ...) ; compiling (DEFINE-CONDITION STREAM-ENCODING-ERROR ...) ; compiling (DEFINE-CONDITION STREAM-DECODING-ERROR ...) ; compiling (DEFINE-CONDITION C-STRING-ENCODING-ERROR ...) ; compiling (DEFINE-CONDITION C-STRING-DECODING-ERROR ...) ; compiling (DEFINE-CONDITION CONTROL-STACK-EXHAUSTED ...) ; compiling (DEFINE-CONDITION BINDING-STACK-EXHAUSTED ...) ; compiling (DEFINE-CONDITION ALIEN-STACK-EXHAUSTED ...) ; compiling (DEFINE-CONDITION HEAP-EXHAUSTED-ERROR ...) ; compiling (DEFINE-CONDITION SYSTEM-CONDITION ...) ; compiling (DEFINE-CONDITION MEMORY-FAULT-ERROR ...) ; compiling (DEFINE-CONDITION BREAKPOINT-ERROR ...) ; compiling (DEFINE-CONDITION INTERACTIVE-INTERRUPT ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/error.fasl-tmp written ; compilation finished in 0:00:00.125 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/macroexpand.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFUN SB-XC:SPECIAL-OPERATOR-P ...) ; compiling (DEFVAR SB-XC:*MACROEXPAND-HOOK* ...) ; compiling (DEFUN SB-XC:MACROEXPAND-1 ...) ; compiling (DEFUN SB-XC:MACROEXPAND ...) ; compiling (DEFUN %MACROEXPAND-1 ...) ; compiling (DEFUN %MACROEXPAND ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/macroexpand.fasl-tmp written ; compilation finished in 0:00:00.016 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/late-extensions.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFUN LIST-WITH-LENGTH-P ...) ; compiling (DEFSTRUCT (UNPRINTABLE-OBJECT # ...) ...) ; compiling (DEFMACRO DEFINE-STRUCTURE-SLOT-ADDRESSOR ...) ; compiling (DEFUN EXPAND-ATOMIC-FROB ...) ; compiling (DEF!MACRO ATOMIC-INCF ...) ; compiling (DEFMACRO ATOMIC-DECF ...) ; compiling (DEFUN %ARRAY-ATOMIC-INCF/WORD ...) ; compiling (DEFUN %RAW-INSTANCE-ATOMIC-INCF/WORD ...) ; compiling (DEFUN SPIN-LOOP-HINT ...) ; compiling (DEFUN CALL-HOOKS ...) ; compiling (DEFMACRO-MUNDANELY DEFGLOBAL ...) ; compiling (DEFMACRO-MUNDANELY DEFINE-LOAD-TIME-GLOBAL ...) ; compiling (DEFUN %COMPILER-DEFGLOBAL ...) ; compiling (DEFUN %DEFGLOBAL ...) ; compiling (DEFUN %%WAIT-FOR ...) ; compiling (DEFUN %WAIT-FOR ...) ; compiling (DEFMACRO WAIT-FOR ...) ; compiling (DEFMACRO WITH-PROGRESSIVE-TIMEOUT ...) ; compiling (DEFMACRO ATOMIC-UPDATE ...) ; compiling (DEFMACRO ATOMIC-PUSH ...) ; compiling (DEFMACRO ATOMIC-POP ...) ; compiling (DEFUN SPLIT-VERSION-STRING ...) ; compiling (DEFUN VERSION>= ...) ; compiling (DEFUN ASSERT-VERSION->= ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/late-extensions.lisp ; in: DEFUN %%WAIT-FOR ; (SB!SYS:DECODE-INTERNAL-TIME (GET-INTERNAL-REAL-TIME)) ; ; caught STYLE-WARNING: ; undefined function: DECODE-INTERNAL-TIME ; in: DEFUN %WAIT-FOR ; (SB!SYS:DECODE-TIMEOUT SB!EXT:TIMEOUT) ; ; caught STYLE-WARNING: ; undefined function: DECODE-TIMEOUT ; in: DEFMACRO ATOMIC-POP ; (SB!EXT:GET-CAS-EXPANSION SB!IMPL::PLACE SB!IMPL::ENV) ; ; caught STYLE-WARNING: ; undefined function: GET-CAS-EXPANSION ; in: DEFMACRO ATOMIC-PUSH ; (SB!EXT:GET-CAS-EXPANSION SB!IMPL::PLACE SB!IMPL::ENV) ; ; caught STYLE-WARNING: ; undefined function: GET-CAS-EXPANSION ; in: DEFMACRO ATOMIC-UPDATE ; (SB!EXT:GET-CAS-EXPANSION SB!IMPL::PLACE SB!IMPL::ENV) ; ; caught STYLE-WARNING: ; undefined function: GET-CAS-EXPANSION ; in: DEFUN %%WAIT-FOR ; (SB!UNIX:NANOSLEEP SB!IMPL::SEC SB!IMPL::NSEC) ; ; caught STYLE-WARNING: ; undefined function: SB!UNIX:NANOSLEEP ; in: DEFUN %WAIT-FOR ; (SB!SYS:SIGNAL-DEADLINE) ; ; caught STYLE-WARNING: ; undefined function: SIGNAL-DEADLINE ; in: DEFUN %%WAIT-FOR ; (SB!SYS:WITH-INTERRUPTS (SB!UNIX:NANOSLEEP SB!IMPL::SEC SB!IMPL::NSEC)) ; ; caught STYLE-WARNING: ; undefined function: WITH-INTERRUPTS ; ; compilation unit finished ; Undefined functions: ; DECODE-INTERNAL-TIME DECODE-TIMEOUT GET-CAS-EXPANSION SB!UNIX:NANOSLEEP SIGNAL-DEADLINE WITH-INTERRUPTS ; caught 8 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/late-extensions.fasl-tmp written ; compilation finished in 0:00:00.158 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-step.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFVAR *STEPPING* ...) ; compiling (DEFVAR *STEP-OUT* ...) ; compiling (DEFUN (SETF STEPPING) ...) ; compiling (DEFUN STEPPING-ENABLED-P ...) ; compiling (DEFUN ENABLE-STEPPING ...) ; compiling (DEFUN DISABLE-STEPPING ...) ; compiling (DEFMACRO WITH-STEPPING-ENABLED ...) ; compiling (DEFMACRO WITH-STEPPING-DISABLED ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/early-step.fasl-tmp written ; compilation finished in 0:00:00.011 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/parse-defmacro-errors.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!KERNEL") ; compiling (DEFINE-CONDITION DEFMACRO-LAMBDA-LIST-BIND-ERROR ...) ; compiling (DEFMACRO !PRINTING-DEFMACRO-LAMBDA-LIST-BIND-ERROR ...) ; compiling (DEFUN %PRINTING-DEFMACRO-LAMBDA-LIST-BIND-ERROR ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/parse-defmacro-errors.lisp ; in: DEFUN %PRINTING-DEFMACRO-LAMBDA-LIST-BIND-ERROR ; (PPRINT-LOGICAL-BLOCK (STREAM NIL) (FUNCALL SB!KERNEL::FUN STREAM)) ; --> LET LET SB-PRETTY::WITH-PRETTY-STREAM FLET LET IF CATCH BLOCK ; --> SB-C::%WITHIN-CLEANUP LET SB-PRETTY::MAKE-PRETTY-STREAM ; ==> ; STREAM ; ; note: deleting unreachable code ; compiling (DEFINE-CONDITION DEFMACRO-BOGUS-SUBLIST-ERROR ...) ; compiling (DEFINE-CONDITION ARG-COUNT-ERROR ...) ; compiling (DEFINE-CONDITION DEFMACRO-LAMBDA-LIST-BROKEN-KEY-LIST-ERROR ...); ; compilation unit finished ; printed 1 note ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/parse-defmacro-errors.fasl-tmp written ; compilation finished in 0:00:00.040 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/cl-specials.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "COMMON-LISP") ; compiling (SB-XC:PROCLAIM (QUOTE #)) ; compiling (SB-XC:PROCLAIM (QUOTE #)) ; compiling (SB-XC:PROCLAIM (QUOTE #)) ; compiling (SB-XC:PROCLAIM (QUOTE #)) ; compiling (SB-XC:PROCLAIM (QUOTE #)) ; compiling (SB-XC:PROCLAIM (QUOTE #)) ; compiling (SB-XC:PROCLAIM (QUOTE #)) ; compiling (SB-XC:PROCLAIM (QUOTE #)) ; compiling (SB-XC:PROCLAIM (QUOTE #)) ; compiling (SB-XC:PROCLAIM (QUOTE #)) ; compiling (SB-XC:PROCLAIM (QUOTE #)) ; compiling (SB-XC:PROCLAIM (QUOTE #)) ; compiling (SB-XC:PROCLAIM (QUOTE #)) ; compiling (SB-XC:PROCLAIM (QUOTE #)) ; compiling (SB-XC:PROCLAIM (QUOTE #)) ; compiling (SB-XC:PROCLAIM (QUOTE #)) ; compiling (SB-XC:PROCLAIM (QUOTE #)) ; compiling (SB-XC:PROCLAIM (QUOTE #)) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/cl-specials.fasl-tmp written ; compilation finished in 0:00:00.003 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/late-proclaim.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS) ; compiling (!COLD-INIT-FORMS (AVER *TYPE-SYSTEM-INITIALIZED*)) ; compiling (!COLD-INIT-FORMS (MAPCAR # ...)) ; compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !LATE-PROCLAIM-COLD-INIT) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/late-proclaim.fasl-tmp written ; compilation finished in 0:00:00.001 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/defboot.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFMACRO-MUNDANELY IN-PACKAGE ...) ; compiling (DEFUN LIST-OF-SYMBOLS-P ...) ; compiling (DEFMACRO-MUNDANELY MULTIPLE-VALUE-BIND ...) ; compiling (DEFMACRO-MUNDANELY MULTIPLE-VALUE-SETQ ...) ; compiling (DEFMACRO-MUNDANELY MULTIPLE-VALUE-LIST ...) ; compiling (DEFMACRO-MUNDANELY COND ...) ; compiling (DEFMACRO-MUNDANELY WHEN ...) ; compiling (DEFMACRO-MUNDANELY UNLESS ...) ; compiling (DEFMACRO-MUNDANELY AND ...) ; compiling (DEFMACRO-MUNDANELY OR ...) ; compiling (FLET (#) ...) ; compiling (DEFMACRO-MUNDANELY PROG1 ...) ; compiling (DEFMACRO-MUNDANELY PROG2 ...) ; compiling (DEFUN INLINE-FUN-NAME-P ...) ; compiling (DEFMACRO-MUNDANELY DEFUN ...) ; compiling (DEFMACRO-MUNDANELY DEFVAR ...) ; compiling (DEFMACRO-MUNDANELY DEFPARAMETER ...) ; compiling (DEFUN %COMPILER-DEFVAR ...) ; compiling (DEFMACRO-MUNDANELY DO ...) ; compiling (DEFMACRO-MUNDANELY DO* ...) ; compiling (DEFMACRO-MUNDANELY DOTIMES ...) ; compiling (DEFMACRO-MUNDANELY DOLIST ...) ; compiling (SB-XC:PROCLAIM (QUOTE #)) ; compiling (SETF (INFO :VARIABLE ...) ...) ; compiling (SETF (INFO :VARIABLE ...) ...) ; compiling (DEFMACRO-MUNDANELY WITH-CONDITION-RESTARTS ...) ; compiling (DEFMACRO-MUNDANELY RESTART-BIND ...) ; compiling (DEFUN MUNGE-RESTART-CASE-EXPRESSION ...) ; compiling (DEFMACRO-MUNDANELY RESTART-CASE ...) ; compiling (DEFMACRO-MUNDANELY WITH-SIMPLE-RESTART ...) ; compiling (DEFMACRO-MUNDANELY %HANDLER-BIND ...) ; compiling (DEFMACRO-MUNDANELY HANDLER-BIND ...) ; compiling (DEFMACRO-MUNDANELY HANDLER-CASE ...) ; compiling (DEFMACRO-MUNDANELY RETURN ...) ; compiling (DEFMACRO-MUNDANELY PSETQ ...) ; compiling (DEFMACRO-MUNDANELY LAMBDA ...) ; compiling (DEFMACRO-MUNDANELY NAMED-LAMBDA ...) ; compiling (DEFMACRO-MUNDANELY LAMBDA-WITH-LEXENV ...) ; compiling (SB-XC:PROCLAIM (QUOTE #)) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/defboot.fasl-tmp written ; compilation finished in 0:00:00.111 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/destructuring-bind.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFMACRO-MUNDANELY DESTRUCTURING-BIND ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/destructuring-bind.fasl-tmp written ; compilation finished in 0:00:00.003 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-setf.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN SB-XC:GET-SETF-EXPANSION ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN EXPAND-OR-GET-SETF-INVERSE ...) ; compiling (DEFUN GET-SETF-METHOD-INVERSE ...) ; compiling (DEFMACRO-MUNDANELY SETF ...) ; compiling (DEFMACRO-MUNDANELY SHIFTF ...) ; compiling (DEFMACRO-MUNDANELY PUSH ...) ; compiling (DEFMACRO-MUNDANELY PUSHNEW ...) ; compiling (DEFMACRO-MUNDANELY POP ...) ; compiling (DEFMACRO-MUNDANELY REMF ...) ; compiling (DEFMACRO-MUNDANELY INCF ...) ; compiling (DEFMACRO-MUNDANELY DECF ...) ; compiling (DEF!MACRO SB-XC:DEFINE-MODIFY-MACRO ...) ; compiling (DEFUN ASSIGN-SETF-MACRO ...) ; compiling (DEF!MACRO SB-XC:DEFSETF ...) ; compiling (DEFUN %DEFSETF ...) ; compiling (DEF!MACRO SB-XC:DEFINE-SETF-EXPANDER ...) ; compiling (SB-XC:DEFINE-SETF-EXPANDER GETF ...) ; compiling (SB-XC:DEFINE-SETF-EXPANDER GET ...) ; compiling (SB-XC:DEFINE-SETF-EXPANDER GETHASH ...) ; compiling (SB-XC:DEFINE-SETF-EXPANDER LOGBITP ...) ; compiling (SB-XC:DEFINE-SETF-EXPANDER APPLY ...) ; compiling (SB-XC:DEFINE-SETF-EXPANDER LDB ...) ; compiling (SB-XC:DEFINE-SETF-EXPANDER MASK-FIELD ...) ; compiling (DEFUN SETF-EXPAND-THE ...) ; compiling (SB-XC:DEFINE-SETF-EXPANDER THE ...) ; compiling (SB-XC:DEFINE-SETF-EXPANDER TRULY-THE ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/early-setf.fasl-tmp written ; compilation finished in 0:00:00.180 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/macros.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFMACRO-MUNDANELY ASSERT ...) ; compiling (DEFUN ASSERT-PROMPT ...) ; compiling (DEFMACRO-MUNDANELY CHECK-TYPE ...) ; compiling (DEFMACRO-MUNDANELY DEFINE-SYMBOL-MACRO ...) ; compiling (DEFUN SB!C::%DEFINE-SYMBOL-MACRO ...) ; compiling (DEFMACRO-MUNDANELY DEFINE-COMPILER-MACRO ...) ; compiling (DEF (:LOAD-TOPLEVEL :EXECUTE) ...) ; compiling (DEF (:COMPILE-TOPLEVEL) ...) ; compiling (DEFINE-CONDITION DUPLICATE-CASE-KEY-WARNING ...) ; compiling (DEFUN CASE-BODY ...) ; compiling (DEFUN CASE-BODY-AUX ...) ; compiling (DEFMACRO-MUNDANELY CASE ...) ; compiling (DEFMACRO-MUNDANELY CCASE ...) ; compiling (DEFMACRO-MUNDANELY ECASE ...) ; compiling (DEFMACRO-MUNDANELY TYPECASE ...) ; compiling (DEFMACRO-MUNDANELY CTYPECASE ...) ; compiling (DEFMACRO-MUNDANELY ETYPECASE ...) ; compiling (DEFMACRO-MUNDANELY WITH-OPEN-STREAM ...) ; compiling (DEFMACRO-MUNDANELY WITH-OPEN-FILE ...) ; compiling (DEFMACRO-MUNDANELY WITH-INPUT-FROM-STRING ...) ; compiling (DEFMACRO-MUNDANELY WITH-OUTPUT-TO-STRING ...) ; compiling (DEFMACRO-MUNDANELY NTH-VALUE ...) ; compiling (DEFMACRO-MUNDANELY DECLAIM ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFMACRO-MUNDANELY PRINT-UNREADABLE-OBJECT ...) ; compiling (DEFMACRO-MUNDANELY IGNORE-ERRORS ...) ; compiling (DEFUN FUNARG-BIND/CALL-FORMS ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/macros.fasl-tmp written ; compilation finished in 0:00:00.126 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/loop.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!LOOP") ; compiling (SB!INT:DEFMACRO-MUNDANELY WITH-LOOP-LIST-COLLECTION-HEAD ...) ; compiling (SB!INT:DEFMACRO-MUNDANELY LOOP-COLLECT-RPLACD ...) ; compiling (SB!INT:DEFMACRO-MUNDANELY LOOP-COLLECT-ANSWER ...) ; compiling (DEFSTRUCT (LOOP-MINIMAX # ...) ...) ; compiling (DEFVAR *LOOP-MINIMAX-TYPE-INFINITIES-ALIST* ...) ; compiling (DEFUN MAKE-LOOP-MINIMAX ...) ; compiling (DEFUN LOOP-NOTE-MINIMAX-OPERATION ...) ; compiling (SB!INT:DEFMACRO-MUNDANELY WITH-MINIMAX-VALUE ...) ; compiling (SB!INT:DEFMACRO-MUNDANELY LOOP-ACCUMULATE-MINIMAX-VALUE ...) ; compiling (DEFUN LOOP-TEQUAL ...) ; compiling (DEFUN LOOP-TASSOC ...) ; compiling (DEFUN LOOP-TMEMBER ...) ; compiling (DEFUN LOOP-LOOKUP-KEYWORD ...) ; compiling (SB!INT:DEFMACRO-MUNDANELY LOOP-STORE-TABLE-DATA ...) ; compiling (DEFSTRUCT (LOOP-UNIVERSE # ...) ...) ; compiling (SB!INT:DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFVAR *LOOP-UNIVERSE*) ; compiling (DEFUN MAKE-STANDARD-LOOP-UNIVERSE ...) ; compiling (DEFUN LOOP-MAKE-PSETQ ...) ; compiling (DEFUN LOOP-MAKE-DESETQ ...) ; compiling (DEFVAR *LOOP-DESETQ-TEMPORARY* ...) ; compiling (SB!INT:DEFMACRO-MUNDANELY LOOP-REALLY-DESETQ ...) ; compiling (DEFVAR *LOOP-SOURCE-CODE*) ; compiling (DEFVAR *LOOP-ORIGINAL-SOURCE-CODE*) ; compiling (DEFVAR *LOOP-SOURCE-CONTEXT*) ; compiling (DEFVAR *LOOP-NAMES*) ; compiling (DEFVAR *LOOP-MACRO-ENVIRONMENT*) ; compiling (DEFVAR *LOOP-NAMED-VARS*) ; compiling (DEFVAR *LOOP-VARS*) ; compiling (DEFVAR *LOOP-DECLARATIONS*) ; compiling (DEFVAR *LOOP-DESETQ-DECLARATIONS*) ; compiling (DEFVAR *LOOP-DESETQ*) ; compiling (DEFVAR *LOOP-WRAPPERS*) ; compiling (DEFVAR *LOOP-BIND-STACK*) ; compiling (DEFVAR *LOOP-PROLOGUE*) ; compiling (DEFVAR *LOOP-BEFORE-LOOP*) ; compiling (DEFVAR *LOOP-BODY*) ; compiling (DEFVAR *LOOP-AFTER-BODY*) ; compiling (DEFVAR *LOOP-EMITTED-BODY*) ; compiling (DEFVAR *LOOP-EPILOGUE*) ; compiling (DEFVAR *LOOP-AFTER-EPILOGUE*) ; compiling (DEFVAR *LOOP-FINAL-VALUE-CULPRIT*) ; compiling (DEFVAR *LOOP-INSIDE-CONDITIONAL*) ; compiling (DEFVAR *LOOP-WHEN-IT-VAR*) ; compiling (DEFVAR *LOOP-NEVER-STEPPED-VAR*) ; compiling (DEFVAR *LOOP-COLLECTION-CRUFT*) ; compiling (DEFUN LOOP-CONSTANT-FOLD-IF-POSSIBLE ...) ; compiling (SB!INT:DEFMACRO-MUNDANELY LOOP-BODY ...) ; compiling (DEFUN LOOP-CONTEXT ...) ; compiling (DEFUN LOOP-ERROR ...) ; compiling (DEFUN LOOP-WARN ...) ; compiling (DEFUN LOOP-CHECK-DATA-TYPE ...) ; compiling (DEFUN TRANSFORM-DESTRUCTURING ...) ; compiling (SB!INT:DEFMACRO-MUNDANELY LOOP-DESTRUCTURING-BIND ...) ; compiling (DEFUN LOOP-BUILD-DESTRUCTURING-BINDINGS ...) ; compiling (DEFUN LOOP-TRANSLATE ...) ; compiling (DEFUN LOOP-ITERATION-DRIVER ...) ; compiling (DEFUN LOOP-POP-SOURCE ...) ; compiling (DEFUN LOOP-GET-FORM ...) ; compiling (DEFUN LOOP-GET-COMPOUND-FORM ...) ; compiling (DEFUN LOOP-GET-PROGN ...) ; compiling (DEFUN LOOP-CONSTRUCT-RETURN ...) ; compiling (DEFUN LOOP-PSEUDO-BODY ...) ; compiling (DEFUN LOOP-EMIT-BODY ...) ; compiling (DEFUN LOOP-EMIT-FINAL-VALUE ...) ; compiling (DEFUN LOOP-DISALLOW-CONDITIONAL ...) ; compiling (DEFUN LOOP-DISALLOW-ANONYMOUS-COLLECTORS ...) ; compiling (DEFUN LOOP-DISALLOW-AGGREGATE-BOOLEANS ...) ; compiling (DEFUN LOOP-TYPED-INIT ...) ; compiling (DEFUN LOOP-OPTIONAL-TYPE ...) ; compiling (DEFUN LOOP-BIND-BLOCK ...) ; compiling (DEFUN CHECK-VAR-NAME ...) ; compiling (DEFUN LOOP-MAKE-VAR ...) ; compiling (DEFUN TYPE-FOR-DEFAULT-INIT ...) ; compiling (DEFUN LOOP-DECLARE-VAR ...) ; compiling (DEFUN LOOP-MAYBE-BIND-FORM ...) ; compiling (DEFUN LOOP-DO-IF ...) ; compiling (DEFUN LOOP-DO-INITIALLY ...) ; compiling (DEFUN LOOP-DO-FINALLY ...) ; compiling (DEFUN LOOP-DO-DO ...) ; compiling (DEFUN LOOP-DO-NAMED ...) ; compiling (DEFUN LOOP-DO-RETURN ...) ; compiling (DEFSTRUCT (LOOP-COLLECTOR # ...) ...) ; compiling (SB!INT:DEFMACRO-MUNDANELY WITH-SUM-COUNT ...) ; compiling (DEFUN LOOP-GET-COLLECTION-INFO ...) ; compiling (DEFUN LOOP-LIST-COLLECTION ...) ; compiling (DEFUN LOOP-SUM-COLLECTION ...) ; compiling (DEFUN LOOP-MAXMIN-COLLECTION ...) ; compiling (DEFUN LOOP-DO-ALWAYS ...) ; compiling (DEFUN LOOP-DO-THEREIS ...) ; compiling (DEFUN LOOP-DO-WHILE ...) ; compiling (DEFUN LOOP-DO-REPEAT ...) ; compiling (DEFUN LOOP-DO-WITH ...) ; compiling (DEFUN LOOP-HACK-ITERATION ...) ; compiling (DEFUN LOOP-DO-FOR ...) ; compiling (DEFUN LOOP-WHEN-IT-VAR ...) ; compiling (DEFUN LOOP-ANSI-FOR-EQUALS ...) ; compiling (DEFUN LOOP-FOR-ACROSS ...) ; compiling (DEFUN LOOP-LIST-STEP ...) ; compiling (DEFUN LOOP-FOR-ON ...) ; compiling (DEFUN LOOP-FOR-IN ...) ; compiling (DEFSTRUCT (LOOP-PATH # ...) ...) ; compiling (DEFUN ADD-LOOP-PATH ...) ; compiling (DEFUN LOOP-FOR-BEING ...) ; compiling (DEFUN LOOP-NAMED-VAR ...) ; compiling (DEFUN LOOP-COLLECT-PREPOSITIONAL-PHRASES ...) ; compiling (DEFUN LOOP-SEQUENCER ...) ; compiling (DEFUN LOOP-FOR-ARITHMETIC ...) ; compiling (DEFUN LOOP-HASH-TABLE-ITERATION-PATH ...) ; compiling (DEFUN LOOP-PACKAGE-SYMBOLS-ITERATION-PATH ...) ; compiling (DEFUN MAKE-ANSI-LOOP-UNIVERSE ...) ; compiling (DEFPARAMETER *LOOP-ANSI-UNIVERSE* ...) ; compiling (DEFUN LOOP-STANDARD-EXPANSION ...) ; compiling (SB!INT:DEFMACRO-MUNDANELY LOOP ...) ; compiling (SB!INT:DEFMACRO-MUNDANELY LOOP-FINISH ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/loop.fasl-tmp written ; compilation finished in 0:00:00.460 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/late-setf.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFMACRO-MUNDANELY PSETF ...) ; compiling (DEFMACRO-MUNDANELY ROTATEF ...) ; compiling (SB-XC:DEFINE-SETF-EXPANDER VALUES ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/late-setf.fasl-tmp written ; compilation finished in 0:00:00.030 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/cas.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEF!MACRO CAS ...) ; compiling (DEFUN GET-CAS-EXPANSION ...) ; compiling (DEFUN EXPAND-STRUCTURE-SLOT-CAS ...) ; compiling (DEF!MACRO DEFINE-CAS-EXPANDER ...) ; compiling (DEF!MACRO DEFCAS ...) ; compiling (DEF!MACRO COMPARE-AND-SWAP ...) ; compiling (DEF %COMPARE-AND-SWAP-CAR ...) ; compiling (DEF %COMPARE-AND-SWAP-CDR ...) ; compiling (DEF %COMPARE-AND-SWAP-INSTANCE-REF ...) ; compiling (DEF %COMPARE-AND-SWAP-SYMBOL-INFO ...) ; compiling (DEF %COMPARE-AND-SWAP-SYMBOL-VALUE ...) ; compiling (DEF %COMPARE-AND-SWAP-SVREF ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/cas.fasl-tmp written ; compilation finished in 0:00:00.067 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/late-cas.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFCAS CAR ...) ; compiling (DEFCAS CDR ...) ; compiling (DEFCAS FIRST ...) ; compiling (DEFCAS REST ...) ; compiling (DEFCAS SYMBOL-PLIST ...) ; compiling (DEFINE-CAS-EXPANDER SYMBOL-VALUE ...) ; compiling (DEFINE-CAS-EXPANDER SVREF ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/late-cas.fasl-tmp written ; compilation finished in 0:00:00.045 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/late-format.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!FORMAT") ; compiling (DEFINE-CONDITION FORMAT-ERROR ...) ; compiling (DEFUN %PRINT-FORMAT-ERROR ...) ; compiling (DEF!STRUCT FORMAT-DIRECTIVE ...) /entering CLASSOID-MAKE-LOAD-FORM-FUN CLASS=# /entering CLASSOID-MAKE-LOAD-FORM-FUN CLASS=# /entering CLASSOID-MAKE-LOAD-FORM-FUN CLASS=# ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFUN TOKENIZE-CONTROL-STRING ...) ; compiling (DEFUN PARSE-DIRECTIVE ...) ; compiling (SB-XC:DEFMACRO FORMATTER ...) ; compiling (DEFUN %FORMATTER ...) ; compiling (DEFUN ARGS-EXHAUSTED ...) ; compiling (DEFUN EXPAND-CONTROL-STRING ...) ; compiling (DEFUN EXPAND-DIRECTIVE-LIST ...) ; compiling (DEFUN EXPAND-DIRECTIVE ...) ; compiling (DEFMACRO-MUNDANELY EXPANDER-NEXT-ARG ...) ; compiling (DEFUN EXPAND-NEXT-ARG ...) ; compiling (DEFMACRO EXPAND-BIND-DEFAULTS ...) ; compiling (DEFUN %SET-FORMAT-DIRECTIVE-EXPANDER ...) ; compiling (DEFUN %SET-FORMAT-DIRECTIVE-INTERPRETER ...) ; compiling (DEFUN FIND-DIRECTIVE ...) ; compiling (DEF-FORMAT-DIRECTIVE #\A ...) ; compiling (DEF-FORMAT-DIRECTIVE #\S ...) ; compiling (DEF-FORMAT-DIRECTIVE #\C ...) ; compiling (DEF-FORMAT-DIRECTIVE #\W ...) ; compiling (DEFUN EXPAND-FORMAT-INTEGER ...) ; compiling (DEF-FORMAT-DIRECTIVE #\D ...) ; compiling (DEF-FORMAT-DIRECTIVE #\B ...) ; compiling (DEF-FORMAT-DIRECTIVE #\O ...) ; compiling (DEF-FORMAT-DIRECTIVE #\X ...) ; compiling (DEF-FORMAT-DIRECTIVE #\R ...) ; compiling (DEF-FORMAT-DIRECTIVE #\P ...) ; compiling (DEF-FORMAT-DIRECTIVE #\F ...) ; compiling (DEF-FORMAT-DIRECTIVE #\E ...) ; compiling (DEF-FORMAT-DIRECTIVE #\G ...) ; compiling (DEF-FORMAT-DIRECTIVE #\$ ...) ; compiling (DEF-FORMAT-DIRECTIVE #\% ...) ; compiling (DEF-FORMAT-DIRECTIVE #\& ...) ; compiling (DEF-FORMAT-DIRECTIVE #\| ...) ; compiling (DEF-FORMAT-DIRECTIVE #\~ ...) ; compiling (DEF-COMPLEX-FORMAT-DIRECTIVE #\Newline ...) ; compiling (DEF-FORMAT-DIRECTIVE #\T ...) ; compiling (DEF-FORMAT-DIRECTIVE #\_ ...) ; compiling (DEF-FORMAT-DIRECTIVE #\I ...) ; compiling (DEF-FORMAT-DIRECTIVE #\* ...) ; compiling (DEF-FORMAT-DIRECTIVE #\? ...) ; compiling (DEF-COMPLEX-FORMAT-DIRECTIVE #\( ...) ; compiling (DEF-COMPLEX-FORMAT-DIRECTIVE #\) ...) ; compiling (DEF-COMPLEX-FORMAT-DIRECTIVE #\[ ...) ; compiling (DEFUN PARSE-CONDITIONAL-DIRECTIVE ...) ; compiling (DEFUN EXPAND-MAYBE-CONDITIONAL ...) ; compiling (DEFUN EXPAND-TRUE-FALSE-CONDITIONAL ...) ; compiling (DEF-COMPLEX-FORMAT-DIRECTIVE #\; ...) ; compiling (DEF-COMPLEX-FORMAT-DIRECTIVE #\] ...) ; compiling (DEF-FORMAT-DIRECTIVE #\^ ...) ; compiling (DEF-COMPLEX-FORMAT-DIRECTIVE #\{ ...) ; compiling (DEF-COMPLEX-FORMAT-DIRECTIVE #\} ...) ; compiling (DEFPARAMETER *ILLEGAL-INSIDE-JUSTIFICATION* ...) ; compiling (DEFUN ILLEGAL-INSIDE-JUSTIFICATION-P ...) ; compiling (DEF-COMPLEX-FORMAT-DIRECTIVE #\< ...) ; compiling (DEF-COMPLEX-FORMAT-DIRECTIVE #\> ...) ; compiling (DEFUN PARSE-FORMAT-LOGICAL-BLOCK ...) ; compiling (DEFUN ADD-FILL-STYLE-NEWLINES ...) ; compiling (DEFUN ADD-FILL-STYLE-NEWLINES-AUX ...) ; compiling (DEFUN PARSE-FORMAT-JUSTIFICATION ...) ; compiling (SB-XC:DEFMACRO EXPANDER-PPRINT-NEXT-ARG ...) ; compiling (DEFUN EXPAND-FORMAT-LOGICAL-BLOCK ...) ; compiling (DEFUN EXPAND-FORMAT-JUSTIFICATION ...) ; compiling (DEF-FORMAT-DIRECTIVE #\/ ...) ; compiling (DEFUN EXTRACT-USER-FUN-NAME ...) ; compiling (DEFUN %COMPILER-WALK-FORMAT-STRING ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/late-format.fasl-tmp written ; compilation finished in 0:00:00.448 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/sxhash.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!C") ; compiling (SB-XC:DEFINE-MODIFY-MACRO MIXF ...) ; compiling (DEFTRANSFORM SXHASH ...) ; compiling (DEFTRANSFORM SXHASH ...) ; compiling (DEFTRANSFORM SXHASH ...) ; compiling (DEFTRANSFORM SXHASH ...) ; compiling (DEFTRANSFORM SXHASH ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/sxhash.lisp ; in: DEFTRANSFORM SXHASH ; (SB!C::LVAR-VALUE SB!C::X) ; ==> ; SB!C::X ; ; note: deleting unreachable code ; compiling (DEFTRANSFORM SXHASH ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/sxhash.lisp ; in: DEFTRANSFORM SXHASH ; (SB!C::LVAR-VALUE SB!C::X) ; ==> ; SB!C::X ; ; note: deleting unreachable code ; compiling (DEFTRANSFORM PSXHASH ...) ; compiling (DEFTRANSFORM PSXHASH ...); ; compilation unit finished ; printed 2 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/sxhash.fasl-tmp written ; compilation finished in 0:00:00.030 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/signal.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!UNIX") ; compiling (!DEFVAR *INTERRUPTS-ENABLED* ...) ; compiling (!DEFVAR *INTERRUPT-PENDING* ...) ; compiling (!DEFVAR *ALLOW-WITH-INTERRUPTS* ...) ; compiling (!DEFVAR *UNBLOCK-DEFERRABLES-ON-ENABLING-INTERRUPTS-P* ...) ; compiling (SB-XC:DEFMACRO WITHOUT-INTERRUPTS ...) ; compiling (SB-XC:DEFMACRO WITH-INTERRUPTS ...) ; compiling (DEFMACRO ALLOW-WITH-INTERRUPTS ...) ; compiling (DEFMACRO WITH-LOCAL-INTERRUPTS ...) ; compiling (DEFUN %CHECK-INTERRUPTS ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/signal.lisp ; in: DEFUN %CHECK-INTERRUPTS ; (SB!UNIX::RECEIVE-PENDING-INTERRUPT) ; ; caught STYLE-WARNING: ; undefined function: RECEIVE-PENDING-INTERRUPT ; ; compilation unit finished ; Undefined function: ; RECEIVE-PENDING-INTERRUPT ; caught 1 STYLE-WARNING condition ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/signal.fasl-tmp written ; compilation finished in 0:00:00.017 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/late-defbangmethod.lisp" (written 27 FEB 2015 04:49:47 PM): ; compiling (IN-PACKAGE "SB!IMPL") ; compiling (DEFMACRO-MUNDANELY DEF!METHOD ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/code/late-defbangmethod.fasl-tmp written ; compilation finished in 0:00:00.002 creating directory: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/pcl/ ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/pcl/walk.lisp" (written 27 FEB 2015 04:49:49 PM): ; compiling (IN-PACKAGE "SB!WALKER") ; compiling (DEFVAR *KEY-TO-WALKER-ENVIRONMENT*) ; compiling (/SHOW "walk.lisp 108") ; compiling (DEFMACRO WITH-AUGMENTED-ENVIRONMENT ...) ; compiling (DEFVAR *BOGO-FUN-MAGIC-TAG* ...) ; compiling (DEFUN WALKER-INFO-TO-BOGO-FUN ...) ; compiling (DEFUN BOGO-FUN-TO-WALKER-INFO ...) ; compiling (DEFUN WITH-AUGMENTED-ENVIRONMENT-INTERNAL ...) ; compiling (DEFUN ENVIRONMENT-FUNCTION ...) ; compiling (DEFUN ENVIRONMENT-MACRO ...) ; compiling (DEFMACRO WITH-NEW-DEFINITION-IN-ENVIRONMENT ...) ; compiling (DEFUN CONVERT-MACRO-TO-LAMBDA ...) ; compiling (DEFMACRO WALKER-ENVIRONMENT-BIND ...) ; compiling (DEFVAR *KEY-TO-WALKER-ENVIRONMENT* ...) ; compiling (DEFUN ENV-LOCK ...) ; compiling (DEFUN WALKER-ENVIRONMENT-BIND-1 ...) ; compiling (DEFUN ENV-WALK-FUNCTION ...) ; compiling (DEFUN ENV-WALK-FORM ...) ; compiling (DEFUN ENV-DECLARATIONS ...) ; compiling (DEFUN ENV-VAR-TYPE ...) ; compiling (DEFUN ENV-LEXICAL-VARIABLES ...) ; compiling (DEFUN NOTE-DECLARATION ...) ; compiling (DEFUN NOTE-VAR-BINDING ...) ; compiling (DEFUN VAR-LEXICAL-P ...) ; compiling (DEFUN VARIABLE-SYMBOL-MACRO-P ...) ; compiling (DEFUN VAR-GLOBALLY-SYMBOL-MACRO-P ...) ; compiling (DEFUN WALKED-VAR-DECLARATION-P ...) ; compiling (DEFUN %VAR-DECLARATION ...) ; compiling (DEFUN VAR-DECLARATION ...) ; compiling (DEFUN VAR-SPECIAL-P ...) ; compiling (DEFUN VAR-GLOBALLY-SPECIAL-P ...) ; compiling (DEFMACRO GET-WALKER-TEMPLATE-INTERNAL ...) ; compiling (DEFMACRO DEFINE-WALKER-TEMPLATE ...) ; compiling (DEFUN GET-WALKER-TEMPLATE ...) ; compiling (DEFINE-WALKER-TEMPLATE BLOCK ...) ; compiling (DEFINE-WALKER-TEMPLATE CATCH ...) ; compiling (DEFINE-WALKER-TEMPLATE DECLARE ...) ; compiling (DEFINE-WALKER-TEMPLATE EVAL-WHEN ...) ; compiling (DEFINE-WALKER-TEMPLATE FLET ...) ; compiling (DEFINE-WALKER-TEMPLATE FUNCTION ...) ; compiling (DEFINE-WALKER-TEMPLATE GO ...) ; compiling (DEFINE-WALKER-TEMPLATE IF ...) ; compiling (DEFINE-WALKER-TEMPLATE LABELS ...) ; compiling (DEFINE-WALKER-TEMPLATE LAMBDA ...) ; compiling (DEFINE-WALKER-TEMPLATE LET ...) ; compiling (DEFINE-WALKER-TEMPLATE LET* ...) ; compiling (DEFINE-WALKER-TEMPLATE LOAD-TIME-VALUE ...) ; compiling (DEFINE-WALKER-TEMPLATE LOCALLY ...) ; compiling (DEFINE-WALKER-TEMPLATE MACROLET ...) ; compiling (DEFINE-WALKER-TEMPLATE MULTIPLE-VALUE-CALL ...) ; compiling (DEFINE-WALKER-TEMPLATE MULTIPLE-VALUE-PROG1 ...) ; compiling (DEFINE-WALKER-TEMPLATE MULTIPLE-VALUE-SETQ ...) ; compiling (DEFINE-WALKER-TEMPLATE MULTIPLE-VALUE-BIND ...) ; compiling (DEFINE-WALKER-TEMPLATE PROGN ...) ; compiling (DEFINE-WALKER-TEMPLATE PROGV ...) ; compiling (DEFINE-WALKER-TEMPLATE QUOTE ...) ; compiling (DEFINE-WALKER-TEMPLATE RETURN-FROM ...) ; compiling (DEFINE-WALKER-TEMPLATE SETQ ...) ; compiling (DEFINE-WALKER-TEMPLATE SYMBOL-MACROLET ...) ; compiling (DEFINE-WALKER-TEMPLATE TAGBODY ...) ; compiling (DEFINE-WALKER-TEMPLATE THE ...) ; compiling (DEFINE-WALKER-TEMPLATE THROW ...) ; compiling (DEFINE-WALKER-TEMPLATE UNWIND-PROTECT ...) ; compiling (DEFINE-WALKER-TEMPLATE TRULY-THE ...) ; compiling (DEFINE-WALKER-TEMPLATE NAMED-LAMBDA ...) ; compiling (DEFVAR *WALK-FORM-EXPAND-MACROS-P* ...) ; compiling (DEFUN WALK-FORM ...) ; compiling (DEFUN WALK-FORM-INTERNAL ...) ; compiling (DEFUN WALK-TEMPLATE ...) ; compiling (DEFUN WALK-TEMPLATE-HANDLE-REPEAT ...) ; compiling (DEFUN WALK-TEMPLATE-HANDLE-REPEAT-1 ...) ; compiling (DEFUN WALK-REPEAT-EVAL ...) ; compiling (DEFUN RECONS ...) ; compiling (DEFUN RELIST ...) ; compiling (DEFUN RELIST* ...) ; compiling (DEFUN RELIST-INTERNAL ...) ; compiling (DEFUN WALK-DECLARATIONS ...) ; compiling (DEFUN WALK-UNEXPECTED-DECLARE ...) ; compiling (DEFUN WALK-ARGLIST ...) ; compiling (DEFUN WALK-LET ...) ; compiling (DEFUN LET*-BINDING-NAME ...) ; compiling (DEFUN LET*-BINDING-INIT ...) ; compiling (DEFUN LET*-BINDINGS ...) ; compiling (DEFUN WALK-LET* ...) ; compiling (DEFUN WALK-LOAD-TIME-VALUE ...) ; compiling (DEFUN WALK-LOCALLY ...) ; compiling (DEFUN WALK-MULTIPLE-VALUE-SETQ ...) ; compiling (DEFUN WALK-MULTIPLE-VALUE-BIND ...) ; compiling (DEFUN WALK-BINDINGS-1 ...) ; compiling (DEFUN WALK-LAMBDA ...) ; compiling (DEFUN WALK-NAMED-LAMBDA ...) ; compiling (DEFUN WALK-SETQ ...) ; compiling (DEFUN WALK-SYMBOL-MACROLET ...) ; compiling (DEFUN WALK-TAGBODY ...) ; compiling (DEFUN WALK-TAGBODY-1 ...) ; compiling (DEFUN WALK-MACROLET ...) ; compiling (DEFUN WALK-FLET ...) ; compiling (DEFUN WALK-LABELS ...) ; compiling (DEFUN WALK-IF ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/pcl/walk.lisp ; in: DEFUN CONVERT-MACRO-TO-LAMBDA ; (SB!INT:EVAL-IN-LEXENV ; (SB!INT:QUASIQUOTE ; (DEFMACRO #S(SB!IMPL::COMMA :EXPR GENSYM :KIND 0) ; #S(SB!IMPL::COMMA :EXPR SB!WALKER::LLIST :KIND 0) ; #S(SB!IMPL::COMMA :EXPR SB!WALKER::BODY :KIND 2))) ; (SB!C::MAKE-RESTRICTED-LEXENV SB!WALKER::ENV)) ; ; caught STYLE-WARNING: ; undefined function: EVAL-IN-LEXENV ; ; compilation unit finished ; Undefined function: ; EVAL-IN-LEXENV ; caught 1 STYLE-WARNING condition ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/pcl/walk.fasl-tmp written ; compilation finished in 0:00:00.177 /walk.lisp 108 * NIL * T * LATIN SMALL LETTER SHARP S LATIN SMALL LETTER KRA LATIN SMALL LETTER N PRECEDED BY APOSTROPHE LATIN SMALL LETTER TURNED DELTA LATIN SMALL LETTER LAMBDA WITH STROKE LATIN LETTER REVERSED ESH LOOP LATIN SMALL LETTER T WITH PALATAL HOOK LATIN SMALL LETTER EZH WITH TAIL LATIN LETTER INVERTED GLOTTAL STOP WITH STROKE LATIN SMALL LETTER J WITH CARON LATIN SMALL LETTER D WITH CURL LATIN SMALL LETTER L WITH CURL LATIN SMALL LETTER N WITH CURL LATIN SMALL LETTER T WITH CURL LATIN SMALL LETTER DOTLESS J LATIN SMALL LETTER DB DIGRAPH LATIN SMALL LETTER QP DIGRAPH LATIN SMALL LETTER C WITH CURL LATIN SMALL LETTER REVERSED E LATIN SMALL LETTER SCHWA WITH HOOK LATIN SMALL LETTER REVERSED OPEN E WITH HOOK LATIN SMALL LETTER CLOSED REVERSED OPEN E LATIN SMALL LETTER DOTLESS J WITH STROKE LATIN LETTER SMALL CAPITAL G LATIN SMALL LETTER RAMS HORN LATIN SMALL LETTER HENG WITH HOOK LATIN LETTER SMALL CAPITAL I LATIN SMALL LETTER L WITH RETROFLEX HOOK LATIN SMALL LETTER LEZH LATIN SMALL LETTER TURNED M WITH LONG LEG LATIN SMALL LETTER N WITH RETROFLEX HOOK LATIN LETTER SMALL CAPITAL N LATIN LETTER SMALL CAPITAL OE LATIN SMALL LETTER CLOSED OMEGA LATIN SMALL LETTER PHI LATIN SMALL LETTER TURNED R LATIN SMALL LETTER TURNED R WITH LONG LEG LATIN SMALL LETTER TURNED R WITH HOOK LATIN SMALL LETTER R WITH LONG LEG LATIN SMALL LETTER R WITH FISHHOOK LATIN SMALL LETTER REVERSED R WITH FISHHOOK LATIN LETTER SMALL CAPITAL INVERTED R LATIN SMALL LETTER S WITH HOOK LATIN SMALL LETTER DOTLESS J WITH STROKE AND HOOK LATIN SMALL LETTER SQUAT REVERSED ESH LATIN SMALL LETTER ESH WITH CURL LATIN SMALL LETTER TURNED W LATIN SMALL LETTER TURNED Y LATIN LETTER SMALL CAPITAL Y LATIN SMALL LETTER Z WITH RETROFLEX HOOK LATIN SMALL LETTER Z WITH CURL LATIN SMALL LETTER EZH WITH CURL LATIN LETTER PHARYNGEAL VOICED FRICATIVE LATIN LETTER INVERTED GLOTTAL STOP LATIN LETTER STRETCHED C LATIN LETTER BILABIAL CLICK LATIN LETTER SMALL CAPITAL B LATIN SMALL LETTER CLOSED OPEN E LATIN LETTER SMALL CAPITAL G WITH HOOK LATIN LETTER SMALL CAPITAL H LATIN SMALL LETTER J WITH CROSSED-TAIL LATIN LETTER SMALL CAPITAL L LATIN SMALL LETTER Q WITH HOOK LATIN LETTER GLOTTAL STOP WITH STROKE LATIN LETTER REVERSED GLOTTAL STOP WITH STROKE LATIN SMALL LETTER DZ DIGRAPH LATIN SMALL LETTER DEZH DIGRAPH LATIN SMALL LETTER DZ DIGRAPH WITH CURL LATIN SMALL LETTER TS DIGRAPH LATIN SMALL LETTER TESH DIGRAPH LATIN SMALL LETTER TC DIGRAPH WITH CURL LATIN SMALL LETTER FENG DIGRAPH LATIN SMALL LETTER LS DIGRAPH LATIN SMALL LETTER LZ DIGRAPH LATIN LETTER BILABIAL PERCUSSIVE LATIN LETTER BIDENTAL PERCUSSIVE LATIN SMALL LETTER TURNED H WITH FISHHOOK LATIN SMALL LETTER TURNED H WITH FISHHOOK AND TAIL GREEK SMALL LETTER IOTA WITH DIALYTIKA AND TONOS GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND TONOS GREEK UPSILON WITH HOOK SYMBOL GREEK UPSILON WITH ACUTE AND HOOK SYMBOL GREEK UPSILON WITH DIAERESIS AND HOOK SYMBOL GREEK RHO WITH STROKE SYMBOL ARMENIAN SMALL LIGATURE ECH YIWN LATIN LETTER SMALL CAPITAL A LATIN LETTER SMALL CAPITAL AE LATIN SMALL LETTER TURNED AE LATIN LETTER SMALL CAPITAL BARRED B LATIN LETTER SMALL CAPITAL C LATIN LETTER SMALL CAPITAL D LATIN LETTER SMALL CAPITAL ETH LATIN LETTER SMALL CAPITAL E LATIN SMALL LETTER TURNED OPEN E LATIN SMALL LETTER TURNED I LATIN LETTER SMALL CAPITAL J LATIN LETTER SMALL CAPITAL K LATIN LETTER SMALL CAPITAL L WITH STROKE LATIN LETTER SMALL CAPITAL M LATIN LETTER SMALL CAPITAL REVERSED N LATIN LETTER SMALL CAPITAL O LATIN LETTER SMALL CAPITAL OPEN O LATIN SMALL LETTER SIDEWAYS O LATIN SMALL LETTER SIDEWAYS OPEN O LATIN SMALL LETTER SIDEWAYS O WITH STROKE LATIN SMALL LETTER TURNED OE LATIN LETTER SMALL CAPITAL OU LATIN SMALL LETTER TOP HALF O LATIN SMALL LETTER BOTTOM HALF O LATIN LETTER SMALL CAPITAL P LATIN LETTER SMALL CAPITAL REVERSED R LATIN LETTER SMALL CAPITAL TURNED R LATIN LETTER SMALL CAPITAL T LATIN LETTER SMALL CAPITAL U LATIN SMALL LETTER SIDEWAYS U LATIN SMALL LETTER SIDEWAYS DIAERESIZED U LATIN SMALL LETTER SIDEWAYS TURNED M LATIN LETTER SMALL CAPITAL V LATIN LETTER SMALL CAPITAL W LATIN LETTER SMALL CAPITAL Z LATIN LETTER SMALL CAPITAL EZH LATIN LETTER VOICED LARYNGEAL SPIRANT LATIN LETTER AIN GREEK LETTER SMALL CAPITAL GAMMA GREEK LETTER SMALL CAPITAL LAMDA GREEK LETTER SMALL CAPITAL PI GREEK LETTER SMALL CAPITAL RHO GREEK LETTER SMALL CAPITAL PSI CYRILLIC LETTER SMALL CAPITAL EL LATIN SMALL LETTER UE LATIN SMALL LETTER B WITH MIDDLE TILDE LATIN SMALL LETTER D WITH MIDDLE TILDE LATIN SMALL LETTER F WITH MIDDLE TILDE LATIN SMALL LETTER M WITH MIDDLE TILDE LATIN SMALL LETTER N WITH MIDDLE TILDE LATIN SMALL LETTER P WITH MIDDLE TILDE LATIN SMALL LETTER R WITH MIDDLE TILDE LATIN SMALL LETTER R WITH FISHHOOK AND MIDDLE TILDE LATIN SMALL LETTER S WITH MIDDLE TILDE LATIN SMALL LETTER T WITH MIDDLE TILDE LATIN SMALL LETTER Z WITH MIDDLE TILDE LATIN SMALL LETTER TURNED G LATIN SMALL LETTER TH WITH STRIKETHROUGH LATIN SMALL CAPITAL LETTER I WITH STROKE LATIN SMALL LETTER IOTA WITH STROKE LATIN SMALL CAPITAL LETTER U WITH STROKE LATIN SMALL LETTER UPSILON WITH STROKE LATIN SMALL LETTER B WITH PALATAL HOOK LATIN SMALL LETTER D WITH PALATAL HOOK LATIN SMALL LETTER F WITH PALATAL HOOK LATIN SMALL LETTER G WITH PALATAL HOOK LATIN SMALL LETTER K WITH PALATAL HOOK LATIN SMALL LETTER L WITH PALATAL HOOK LATIN SMALL LETTER M WITH PALATAL HOOK LATIN SMALL LETTER N WITH PALATAL HOOK LATIN SMALL LETTER P WITH PALATAL HOOK LATIN SMALL LETTER R WITH PALATAL HOOK LATIN SMALL LETTER S WITH PALATAL HOOK LATIN SMALL LETTER ESH WITH PALATAL HOOK LATIN SMALL LETTER V WITH PALATAL HOOK LATIN SMALL LETTER X WITH PALATAL HOOK LATIN SMALL LETTER Z WITH PALATAL HOOK LATIN SMALL LETTER A WITH RETROFLEX HOOK LATIN SMALL LETTER ALPHA WITH RETROFLEX HOOK LATIN SMALL LETTER D WITH HOOK AND TAIL LATIN SMALL LETTER E WITH RETROFLEX HOOK LATIN SMALL LETTER OPEN E WITH RETROFLEX HOOK LATIN SMALL LETTER REVERSED OPEN E WITH RETROFLEX HOOK LATIN SMALL LETTER SCHWA WITH RETROFLEX HOOK LATIN SMALL LETTER I WITH RETROFLEX HOOK LATIN SMALL LETTER OPEN O WITH RETROFLEX HOOK LATIN SMALL LETTER ESH WITH RETROFLEX HOOK LATIN SMALL LETTER U WITH RETROFLEX HOOK LATIN SMALL LETTER EZH WITH RETROFLEX HOOK LATIN SMALL LETTER H WITH LINE BELOW LATIN SMALL LETTER T WITH DIAERESIS LATIN SMALL LETTER W WITH RING ABOVE LATIN SMALL LETTER Y WITH RING ABOVE LATIN SMALL LETTER A WITH RIGHT HALF RING LATIN SMALL LETTER LONG S WITH DIAGONAL STROKE LATIN SMALL LETTER LONG S WITH HIGH STROKE LATIN SMALL LETTER DELTA GREEK SMALL LETTER UPSILON WITH PSILI GREEK SMALL LETTER UPSILON WITH PSILI AND VARIA GREEK SMALL LETTER UPSILON WITH PSILI AND OXIA GREEK SMALL LETTER UPSILON WITH PSILI AND PERISPOMENI GREEK SMALL LETTER ALPHA WITH VARIA AND YPOGEGRAMMENI GREEK SMALL LETTER ALPHA WITH OXIA AND YPOGEGRAMMENI GREEK SMALL LETTER ALPHA WITH PERISPOMENI GREEK SMALL LETTER ALPHA WITH PERISPOMENI AND YPOGEGRAMMENI GREEK SMALL LETTER ETA WITH VARIA AND YPOGEGRAMMENI GREEK SMALL LETTER ETA WITH OXIA AND YPOGEGRAMMENI GREEK SMALL LETTER ETA WITH PERISPOMENI GREEK SMALL LETTER ETA WITH PERISPOMENI AND YPOGEGRAMMENI GREEK SMALL LETTER IOTA WITH DIALYTIKA AND VARIA GREEK SMALL LETTER IOTA WITH DIALYTIKA AND OXIA GREEK SMALL LETTER IOTA WITH PERISPOMENI GREEK SMALL LETTER IOTA WITH DIALYTIKA AND PERISPOMENI GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND VARIA GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND OXIA GREEK SMALL LETTER RHO WITH PSILI GREEK SMALL LETTER UPSILON WITH PERISPOMENI GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND PERISPOMENI GREEK SMALL LETTER OMEGA WITH VARIA AND YPOGEGRAMMENI GREEK SMALL LETTER OMEGA WITH OXIA AND YPOGEGRAMMENI GREEK SMALL LETTER OMEGA WITH PERISPOMENI GREEK SMALL LETTER OMEGA WITH PERISPOMENI AND YPOGEGRAMMENI DOUBLE-STRUCK CAPITAL C EULER CONSTANT SCRIPT SMALL G SCRIPT CAPITAL H BLACK-LETTER CAPITAL H DOUBLE-STRUCK CAPITAL H PLANCK CONSTANT PLANCK CONSTANT OVER TWO PI SCRIPT CAPITAL I BLACK-LETTER CAPITAL I SCRIPT CAPITAL L SCRIPT SMALL L DOUBLE-STRUCK CAPITAL N DOUBLE-STRUCK CAPITAL P DOUBLE-STRUCK CAPITAL Q SCRIPT CAPITAL R BLACK-LETTER CAPITAL R DOUBLE-STRUCK CAPITAL R DOUBLE-STRUCK CAPITAL Z BLACK-LETTER CAPITAL Z SCRIPT CAPITAL B BLACK-LETTER CAPITAL C SCRIPT SMALL E SCRIPT CAPITAL E SCRIPT CAPITAL F SCRIPT CAPITAL M SCRIPT SMALL O INFORMATION SOURCE DOUBLE-STRUCK SMALL PI DOUBLE-STRUCK SMALL GAMMA DOUBLE-STRUCK CAPITAL GAMMA DOUBLE-STRUCK CAPITAL PI DOUBLE-STRUCK ITALIC CAPITAL D DOUBLE-STRUCK ITALIC SMALL D DOUBLE-STRUCK ITALIC SMALL E DOUBLE-STRUCK ITALIC SMALL I DOUBLE-STRUCK ITALIC SMALL J LATIN SMALL LETTER V WITH RIGHT HOOK LATIN SMALL LETTER V WITH CURL LATIN SMALL LETTER TAILLESS PHI LATIN SMALL LETTER E WITH NOTCH LATIN SMALL LETTER TURNED R WITH TAIL LATIN SMALL LETTER O WITH LOW RING INSIDE LATIN LETTER SMALL CAPITAL TURNED E COPTIC SYMBOL KAI LATIN LETTER SMALL CAPITAL F LATIN LETTER SMALL CAPITAL S LATIN SMALL LETTER DUM LATIN SMALL LETTER LUM LATIN SMALL LETTER MUM LATIN SMALL LETTER NUM LATIN SMALL LETTER RUM LATIN LETTER SMALL CAPITAL RUM LATIN SMALL LETTER TUM LATIN SMALL LETTER UM LATIN SMALL LETTER L WITH RETROFLEX HOOK AND BELT LATIN SMALL LETTER C WITH PALATAL HOOK LATIN SMALL LETTER H WITH PALATAL HOOK LATIN LETTER SMALL CAPITAL TURNED M LATIN SMALL LETTER BARRED ALPHA LATIN SMALL LETTER A REVERSED-SCHWA LATIN SMALL LETTER BLACKLETTER E LATIN SMALL LETTER BARRED E LATIN SMALL LETTER E WITH FLOURISH LATIN SMALL LETTER LENIS F LATIN SMALL LETTER SCRIPT G WITH CROSSED-TAIL LATIN SMALL LETTER L WITH INVERTED LAZY S LATIN SMALL LETTER L WITH DOUBLE MIDDLE TILDE LATIN SMALL LETTER L WITH MIDDLE RING LATIN SMALL LETTER M WITH CROSSED-TAIL LATIN SMALL LETTER N WITH CROSSED-TAIL LATIN SMALL LETTER ENG WITH CROSSED-TAIL LATIN SMALL LETTER BLACKLETTER O LATIN SMALL LETTER BLACKLETTER O WITH STROKE LATIN SMALL LETTER OPEN O WITH STROKE LATIN SMALL LETTER INVERTED OE LATIN SMALL LETTER TURNED OE WITH STROKE LATIN SMALL LETTER TURNED OE WITH HORIZONTAL STROKE LATIN SMALL LETTER TURNED O OPEN-O LATIN SMALL LETTER TURNED O OPEN-O WITH STROKE LATIN SMALL LETTER STIRRUP R LATIN LETTER SMALL CAPITAL R WITH RIGHT LEG LATIN SMALL LETTER R WITHOUT HANDLE LATIN SMALL LETTER DOUBLE R LATIN SMALL LETTER R WITH CROSSED-TAIL LATIN SMALL LETTER DOUBLE R WITH CROSSED-TAIL LATIN SMALL LETTER SCRIPT R LATIN SMALL LETTER SCRIPT R WITH RING LATIN SMALL LETTER BASELINE ESH LATIN SMALL LETTER U WITH SHORT RIGHT LEG LATIN SMALL LETTER U BAR WITH SHORT RIGHT LEG LATIN SMALL LETTER UI LATIN SMALL LETTER TURNED UI LATIN SMALL LETTER U WITH LEFT HOOK LATIN SMALL LETTER CHI LATIN SMALL LETTER CHI WITH LOW RIGHT RING LATIN SMALL LETTER CHI WITH LOW LEFT SERIF LATIN SMALL LETTER X WITH LOW RIGHT RING LATIN SMALL LETTER X WITH LONG LEFT LEG LATIN SMALL LETTER X WITH LONG LEFT LEG AND LOW RIGHT RING LATIN SMALL LETTER X WITH LONG LEFT LEG WITH SERIF LATIN SMALL LETTER Y WITH SHORT RIGHT LEG LATIN SMALL LETTER INVERTED ALPHA GREEK LETTER SMALL CAPITAL OMEGA LATIN SMALL LIGATURE FF LATIN SMALL LIGATURE FI LATIN SMALL LIGATURE FL LATIN SMALL LIGATURE FFI LATIN SMALL LIGATURE FFL LATIN SMALL LIGATURE LONG S T LATIN SMALL LIGATURE ST ARMENIAN SMALL LIGATURE MEN NOW ARMENIAN SMALL LIGATURE MEN ECH ARMENIAN SMALL LIGATURE MEN INI ARMENIAN SMALL LIGATURE VEW NOW ARMENIAN SMALL LIGATURE MEN XEH MATHEMATICAL BOLD CAPITAL A MATHEMATICAL BOLD CAPITAL B MATHEMATICAL BOLD CAPITAL C MATHEMATICAL BOLD CAPITAL D MATHEMATICAL BOLD CAPITAL E MATHEMATICAL BOLD CAPITAL F MATHEMATICAL BOLD CAPITAL G MATHEMATICAL BOLD CAPITAL H MATHEMATICAL BOLD CAPITAL I MATHEMATICAL BOLD CAPITAL J MATHEMATICAL BOLD CAPITAL K MATHEMATICAL BOLD CAPITAL L MATHEMATICAL BOLD CAPITAL M MATHEMATICAL BOLD CAPITAL N MATHEMATICAL BOLD CAPITAL O MATHEMATICAL BOLD CAPITAL P MATHEMATICAL BOLD CAPITAL Q MATHEMATICAL BOLD CAPITAL R MATHEMATICAL BOLD CAPITAL S MATHEMATICAL BOLD CAPITAL T MATHEMATICAL BOLD CAPITAL U MATHEMATICAL BOLD CAPITAL V MATHEMATICAL BOLD CAPITAL W MATHEMATICAL BOLD CAPITAL X MATHEMATICAL BOLD CAPITAL Y MATHEMATICAL BOLD CAPITAL Z MATHEMATICAL BOLD SMALL A MATHEMATICAL BOLD SMALL B MATHEMATICAL BOLD SMALL C MATHEMATICAL BOLD SMALL D MATHEMATICAL BOLD SMALL E MATHEMATICAL BOLD SMALL F MATHEMATICAL BOLD SMALL G MATHEMATICAL BOLD SMALL H MATHEMATICAL BOLD SMALL I MATHEMATICAL BOLD SMALL J MATHEMATICAL BOLD SMALL K MATHEMATICAL BOLD SMALL L MATHEMATICAL BOLD SMALL M MATHEMATICAL BOLD SMALL N MATHEMATICAL BOLD SMALL O MATHEMATICAL BOLD SMALL P MATHEMATICAL BOLD SMALL Q MATHEMATICAL BOLD SMALL R MATHEMATICAL BOLD SMALL S MATHEMATICAL BOLD SMALL T MATHEMATICAL BOLD SMALL U MATHEMATICAL BOLD SMALL V MATHEMATICAL BOLD SMALL W MATHEMATICAL BOLD SMALL X MATHEMATICAL BOLD SMALL Y MATHEMATICAL BOLD SMALL Z MATHEMATICAL ITALIC CAPITAL A MATHEMATICAL ITALIC CAPITAL B MATHEMATICAL ITALIC CAPITAL C MATHEMATICAL ITALIC CAPITAL D MATHEMATICAL ITALIC CAPITAL E MATHEMATICAL ITALIC CAPITAL F MATHEMATICAL ITALIC CAPITAL G MATHEMATICAL ITALIC CAPITAL H MATHEMATICAL ITALIC CAPITAL I MATHEMATICAL ITALIC CAPITAL J MATHEMATICAL ITALIC CAPITAL K MATHEMATICAL ITALIC CAPITAL L MATHEMATICAL ITALIC CAPITAL M MATHEMATICAL ITALIC CAPITAL N MATHEMATICAL ITALIC CAPITAL O MATHEMATICAL ITALIC CAPITAL P MATHEMATICAL ITALIC CAPITAL Q MATHEMATICAL ITALIC CAPITAL R MATHEMATICAL ITALIC CAPITAL S MATHEMATICAL ITALIC CAPITAL T MATHEMATICAL ITALIC CAPITAL U MATHEMATICAL ITALIC CAPITAL V MATHEMATICAL ITALIC CAPITAL W MATHEMATICAL ITALIC CAPITAL X MATHEMATICAL ITALIC CAPITAL Y MATHEMATICAL ITALIC CAPITAL Z MATHEMATICAL ITALIC SMALL A MATHEMATICAL ITALIC SMALL B MATHEMATICAL ITALIC SMALL C MATHEMATICAL ITALIC SMALL D MATHEMATICAL ITALIC SMALL E MATHEMATICAL ITALIC SMALL F MATHEMATICAL ITALIC SMALL G MATHEMATICAL ITALIC SMALL I MATHEMATICAL ITALIC SMALL J MATHEMATICAL ITALIC SMALL K MATHEMATICAL ITALIC SMALL L MATHEMATICAL ITALIC SMALL M MATHEMATICAL ITALIC SMALL N MATHEMATICAL ITALIC SMALL O MATHEMATICAL ITALIC SMALL P MATHEMATICAL ITALIC SMALL Q MATHEMATICAL ITALIC SMALL R MATHEMATICAL ITALIC SMALL S MATHEMATICAL ITALIC SMALL T MATHEMATICAL ITALIC SMALL U MATHEMATICAL ITALIC SMALL V MATHEMATICAL ITALIC SMALL W MATHEMATICAL ITALIC SMALL X MATHEMATICAL ITALIC SMALL Y MATHEMATICAL ITALIC SMALL Z MATHEMATICAL BOLD ITALIC CAPITAL A MATHEMATICAL BOLD ITALIC CAPITAL B MATHEMATICAL BOLD ITALIC CAPITAL C MATHEMATICAL BOLD ITALIC CAPITAL D MATHEMATICAL BOLD ITALIC CAPITAL E MATHEMATICAL BOLD ITALIC CAPITAL F MATHEMATICAL BOLD ITALIC CAPITAL G MATHEMATICAL BOLD ITALIC CAPITAL H MATHEMATICAL BOLD ITALIC CAPITAL I MATHEMATICAL BOLD ITALIC CAPITAL J MATHEMATICAL BOLD ITALIC CAPITAL K MATHEMATICAL BOLD ITALIC CAPITAL L MATHEMATICAL BOLD ITALIC CAPITAL M MATHEMATICAL BOLD ITALIC CAPITAL N MATHEMATICAL BOLD ITALIC CAPITAL O MATHEMATICAL BOLD ITALIC CAPITAL P MATHEMATICAL BOLD ITALIC CAPITAL Q MATHEMATICAL BOLD ITALIC CAPITAL R MATHEMATICAL BOLD ITALIC CAPITAL S MATHEMATICAL BOLD ITALIC CAPITAL T MATHEMATICAL BOLD ITALIC CAPITAL U MATHEMATICAL BOLD ITALIC CAPITAL V MATHEMATICAL BOLD ITALIC CAPITAL W MATHEMATICAL BOLD ITALIC CAPITAL X MATHEMATICAL BOLD ITALIC CAPITAL Y MATHEMATICAL BOLD ITALIC CAPITAL Z MATHEMATICAL BOLD ITALIC SMALL A MATHEMATICAL BOLD ITALIC SMALL B MATHEMATICAL BOLD ITALIC SMALL C MATHEMATICAL BOLD ITALIC SMALL D MATHEMATICAL BOLD ITALIC SMALL E MATHEMATICAL BOLD ITALIC SMALL F MATHEMATICAL BOLD ITALIC SMALL G MATHEMATICAL BOLD ITALIC SMALL H MATHEMATICAL BOLD ITALIC SMALL I MATHEMATICAL BOLD ITALIC SMALL J MATHEMATICAL BOLD ITALIC SMALL K MATHEMATICAL BOLD ITALIC SMALL L MATHEMATICAL BOLD ITALIC SMALL M MATHEMATICAL BOLD ITALIC SMALL N MATHEMATICAL BOLD ITALIC SMALL O MATHEMATICAL BOLD ITALIC SMALL P MATHEMATICAL BOLD ITALIC SMALL Q MATHEMATICAL BOLD ITALIC SMALL R MATHEMATICAL BOLD ITALIC SMALL S MATHEMATICAL BOLD ITALIC SMALL T MATHEMATICAL BOLD ITALIC SMALL U MATHEMATICAL BOLD ITALIC SMALL V MATHEMATICAL BOLD ITALIC SMALL W MATHEMATICAL BOLD ITALIC SMALL X MATHEMATICAL BOLD ITALIC SMALL Y MATHEMATICAL BOLD ITALIC SMALL Z MATHEMATICAL SCRIPT CAPITAL A MATHEMATICAL SCRIPT CAPITAL C MATHEMATICAL SCRIPT CAPITAL D MATHEMATICAL SCRIPT CAPITAL G MATHEMATICAL SCRIPT CAPITAL J MATHEMATICAL SCRIPT CAPITAL K MATHEMATICAL SCRIPT CAPITAL N MATHEMATICAL SCRIPT CAPITAL O MATHEMATICAL SCRIPT CAPITAL P MATHEMATICAL SCRIPT CAPITAL Q MATHEMATICAL SCRIPT CAPITAL S MATHEMATICAL SCRIPT CAPITAL T MATHEMATICAL SCRIPT CAPITAL U MATHEMATICAL SCRIPT CAPITAL V MATHEMATICAL SCRIPT CAPITAL W MATHEMATICAL SCRIPT CAPITAL X MATHEMATICAL SCRIPT CAPITAL Y MATHEMATICAL SCRIPT CAPITAL Z MATHEMATICAL SCRIPT SMALL A MATHEMATICAL SCRIPT SMALL B MATHEMATICAL SCRIPT SMALL C MATHEMATICAL SCRIPT SMALL D MATHEMATICAL SCRIPT SMALL F MATHEMATICAL SCRIPT SMALL H MATHEMATICAL SCRIPT SMALL I MATHEMATICAL SCRIPT SMALL J MATHEMATICAL SCRIPT SMALL K MATHEMATICAL SCRIPT SMALL L MATHEMATICAL SCRIPT SMALL M MATHEMATICAL SCRIPT SMALL N MATHEMATICAL SCRIPT SMALL P MATHEMATICAL SCRIPT SMALL Q MATHEMATICAL SCRIPT SMALL R MATHEMATICAL SCRIPT SMALL S MATHEMATICAL SCRIPT SMALL T MATHEMATICAL SCRIPT SMALL U MATHEMATICAL SCRIPT SMALL V MATHEMATICAL SCRIPT SMALL W MATHEMATICAL SCRIPT SMALL X MATHEMATICAL SCRIPT SMALL Y MATHEMATICAL SCRIPT SMALL Z MATHEMATICAL BOLD SCRIPT CAPITAL A MATHEMATICAL BOLD SCRIPT CAPITAL B MATHEMATICAL BOLD SCRIPT CAPITAL C MATHEMATICAL BOLD SCRIPT CAPITAL D MATHEMATICAL BOLD SCRIPT CAPITAL E MATHEMATICAL BOLD SCRIPT CAPITAL F MATHEMATICAL BOLD SCRIPT CAPITAL G MATHEMATICAL BOLD SCRIPT CAPITAL H MATHEMATICAL BOLD SCRIPT CAPITAL I MATHEMATICAL BOLD SCRIPT CAPITAL J MATHEMATICAL BOLD SCRIPT CAPITAL K MATHEMATICAL BOLD SCRIPT CAPITAL L MATHEMATICAL BOLD SCRIPT CAPITAL M MATHEMATICAL BOLD SCRIPT CAPITAL N MATHEMATICAL BOLD SCRIPT CAPITAL O MATHEMATICAL BOLD SCRIPT CAPITAL P MATHEMATICAL BOLD SCRIPT CAPITAL Q MATHEMATICAL BOLD SCRIPT CAPITAL R MATHEMATICAL BOLD SCRIPT CAPITAL S MATHEMATICAL BOLD SCRIPT CAPITAL T MATHEMATICAL BOLD SCRIPT CAPITAL U MATHEMATICAL BOLD SCRIPT CAPITAL V MATHEMATICAL BOLD SCRIPT CAPITAL W MATHEMATICAL BOLD SCRIPT CAPITAL X MATHEMATICAL BOLD SCRIPT CAPITAL Y MATHEMATICAL BOLD SCRIPT CAPITAL Z MATHEMATICAL BOLD SCRIPT SMALL A MATHEMATICAL BOLD SCRIPT SMALL B MATHEMATICAL BOLD SCRIPT SMALL C MATHEMATICAL BOLD SCRIPT SMALL D MATHEMATICAL BOLD SCRIPT SMALL E MATHEMATICAL BOLD SCRIPT SMALL F MATHEMATICAL BOLD SCRIPT SMALL G MATHEMATICAL BOLD SCRIPT SMALL H MATHEMATICAL BOLD SCRIPT SMALL I MATHEMATICAL BOLD SCRIPT SMALL J MATHEMATICAL BOLD SCRIPT SMALL K MATHEMATICAL BOLD SCRIPT SMALL L MATHEMATICAL BOLD SCRIPT SMALL M MATHEMATICAL BOLD SCRIPT SMALL N MATHEMATICAL BOLD SCRIPT SMALL O MATHEMATICAL BOLD SCRIPT SMALL P MATHEMATICAL BOLD SCRIPT SMALL Q MATHEMATICAL BOLD SCRIPT SMALL R MATHEMATICAL BOLD SCRIPT SMALL S MATHEMATICAL BOLD SCRIPT SMALL T MATHEMATICAL BOLD SCRIPT SMALL U MATHEMATICAL BOLD SCRIPT SMALL V MATHEMATICAL BOLD SCRIPT SMALL W MATHEMATICAL BOLD SCRIPT SMALL X MATHEMATICAL BOLD SCRIPT SMALL Y MATHEMATICAL BOLD SCRIPT SMALL Z MATHEMATICAL FRAKTUR CAPITAL A MATHEMATICAL FRAKTUR CAPITAL B MATHEMATICAL FRAKTUR CAPITAL D MATHEMATICAL FRAKTUR CAPITAL E MATHEMATICAL FRAKTUR CAPITAL F MATHEMATICAL FRAKTUR CAPITAL G MATHEMATICAL FRAKTUR CAPITAL J MATHEMATICAL FRAKTUR CAPITAL K MATHEMATICAL FRAKTUR CAPITAL L MATHEMATICAL FRAKTUR CAPITAL M MATHEMATICAL FRAKTUR CAPITAL N MATHEMATICAL FRAKTUR CAPITAL O MATHEMATICAL FRAKTUR CAPITAL P MATHEMATICAL FRAKTUR CAPITAL Q MATHEMATICAL FRAKTUR CAPITAL S MATHEMATICAL FRAKTUR CAPITAL T MATHEMATICAL FRAKTUR CAPITAL U MATHEMATICAL FRAKTUR CAPITAL V MATHEMATICAL FRAKTUR CAPITAL W MATHEMATICAL FRAKTUR CAPITAL X MATHEMATICAL FRAKTUR CAPITAL Y MATHEMATICAL FRAKTUR SMALL A MATHEMATICAL FRAKTUR SMALL B MATHEMATICAL FRAKTUR SMALL C MATHEMATICAL FRAKTUR SMALL D MATHEMATICAL FRAKTUR SMALL E MATHEMATICAL FRAKTUR SMALL F MATHEMATICAL FRAKTUR SMALL G MATHEMATICAL FRAKTUR SMALL H MATHEMATICAL FRAKTUR SMALL I MATHEMATICAL FRAKTUR SMALL J MATHEMATICAL FRAKTUR SMALL K MATHEMATICAL FRAKTUR SMALL L MATHEMATICAL FRAKTUR SMALL M MATHEMATICAL FRAKTUR SMALL N MATHEMATICAL FRAKTUR SMALL O MATHEMATICAL FRAKTUR SMALL P MATHEMATICAL FRAKTUR SMALL Q MATHEMATICAL FRAKTUR SMALL R MATHEMATICAL FRAKTUR SMALL S MATHEMATICAL FRAKTUR SMALL T MATHEMATICAL FRAKTUR SMALL U MATHEMATICAL FRAKTUR SMALL V MATHEMATICAL FRAKTUR SMALL W MATHEMATICAL FRAKTUR SMALL X MATHEMATICAL FRAKTUR SMALL Y MATHEMATICAL FRAKTUR SMALL Z MATHEMATICAL DOUBLE-STRUCK CAPITAL A MATHEMATICAL DOUBLE-STRUCK CAPITAL B MATHEMATICAL DOUBLE-STRUCK CAPITAL D MATHEMATICAL DOUBLE-STRUCK CAPITAL E MATHEMATICAL DOUBLE-STRUCK CAPITAL F MATHEMATICAL DOUBLE-STRUCK CAPITAL G MATHEMATICAL DOUBLE-STRUCK CAPITAL I MATHEMATICAL DOUBLE-STRUCK CAPITAL J MATHEMATICAL DOUBLE-STRUCK CAPITAL K MATHEMATICAL DOUBLE-STRUCK CAPITAL L MATHEMATICAL DOUBLE-STRUCK CAPITAL M MATHEMATICAL DOUBLE-STRUCK CAPITAL O MATHEMATICAL DOUBLE-STRUCK CAPITAL S MATHEMATICAL DOUBLE-STRUCK CAPITAL T MATHEMATICAL DOUBLE-STRUCK CAPITAL U MATHEMATICAL DOUBLE-STRUCK CAPITAL V MATHEMATICAL DOUBLE-STRUCK CAPITAL W MATHEMATICAL DOUBLE-STRUCK CAPITAL X MATHEMATICAL DOUBLE-STRUCK CAPITAL Y MATHEMATICAL DOUBLE-STRUCK SMALL A MATHEMATICAL DOUBLE-STRUCK SMALL B MATHEMATICAL DOUBLE-STRUCK SMALL C MATHEMATICAL DOUBLE-STRUCK SMALL D MATHEMATICAL DOUBLE-STRUCK SMALL E MATHEMATICAL DOUBLE-STRUCK SMALL F MATHEMATICAL DOUBLE-STRUCK SMALL G MATHEMATICAL DOUBLE-STRUCK SMALL H MATHEMATICAL DOUBLE-STRUCK SMALL I MATHEMATICAL DOUBLE-STRUCK SMALL J MATHEMATICAL DOUBLE-STRUCK SMALL K MATHEMATICAL DOUBLE-STRUCK SMALL L MATHEMATICAL DOUBLE-STRUCK SMALL M MATHEMATICAL DOUBLE-STRUCK SMALL N MATHEMATICAL DOUBLE-STRUCK SMALL O MATHEMATICAL DOUBLE-STRUCK SMALL P MATHEMATICAL DOUBLE-STRUCK SMALL Q MATHEMATICAL DOUBLE-STRUCK SMALL R MATHEMATICAL DOUBLE-STRUCK SMALL S MATHEMATICAL DOUBLE-STRUCK SMALL T MATHEMATICAL DOUBLE-STRUCK SMALL U MATHEMATICAL DOUBLE-STRUCK SMALL V MATHEMATICAL DOUBLE-STRUCK SMALL W MATHEMATICAL DOUBLE-STRUCK SMALL X MATHEMATICAL DOUBLE-STRUCK SMALL Y MATHEMATICAL DOUBLE-STRUCK SMALL Z MATHEMATICAL BOLD FRAKTUR CAPITAL A MATHEMATICAL BOLD FRAKTUR CAPITAL B MATHEMATICAL BOLD FRAKTUR CAPITAL C MATHEMATICAL BOLD FRAKTUR CAPITAL D MATHEMATICAL BOLD FRAKTUR CAPITAL E MATHEMATICAL BOLD FRAKTUR CAPITAL F MATHEMATICAL BOLD FRAKTUR CAPITAL G MATHEMATICAL BOLD FRAKTUR CAPITAL H MATHEMATICAL BOLD FRAKTUR CAPITAL I MATHEMATICAL BOLD FRAKTUR CAPITAL J MATHEMATICAL BOLD FRAKTUR CAPITAL K MATHEMATICAL BOLD FRAKTUR CAPITAL L MATHEMATICAL BOLD FRAKTUR CAPITAL M MATHEMATICAL BOLD FRAKTUR CAPITAL N MATHEMATICAL BOLD FRAKTUR CAPITAL O MATHEMATICAL BOLD FRAKTUR CAPITAL P MATHEMATICAL BOLD FRAKTUR CAPITAL Q MATHEMATICAL BOLD FRAKTUR CAPITAL R MATHEMATICAL BOLD FRAKTUR CAPITAL S MATHEMATICAL BOLD FRAKTUR CAPITAL T MATHEMATICAL BOLD FRAKTUR CAPITAL U MATHEMATICAL BOLD FRAKTUR CAPITAL V MATHEMATICAL BOLD FRAKTUR CAPITAL W MATHEMATICAL BOLD FRAKTUR CAPITAL X MATHEMATICAL BOLD FRAKTUR CAPITAL Y MATHEMATICAL BOLD FRAKTUR CAPITAL Z MATHEMATICAL BOLD FRAKTUR SMALL A MATHEMATICAL BOLD FRAKTUR SMALL B MATHEMATICAL BOLD FRAKTUR SMALL C MATHEMATICAL BOLD FRAKTUR SMALL D MATHEMATICAL BOLD FRAKTUR SMALL E MATHEMATICAL BOLD FRAKTUR SMALL F MATHEMATICAL BOLD FRAKTUR SMALL G MATHEMATICAL BOLD FRAKTUR SMALL H MATHEMATICAL BOLD FRAKTUR SMALL I MATHEMATICAL BOLD FRAKTUR SMALL J MATHEMATICAL BOLD FRAKTUR SMALL K MATHEMATICAL BOLD FRAKTUR SMALL L MATHEMATICAL BOLD FRAKTUR SMALL M MATHEMATICAL BOLD FRAKTUR SMALL N MATHEMATICAL BOLD FRAKTUR SMALL O MATHEMATICAL BOLD FRAKTUR SMALL P MATHEMATICAL BOLD FRAKTUR SMALL Q MATHEMATICAL BOLD FRAKTUR SMALL R MATHEMATICAL BOLD FRAKTUR SMALL S MATHEMATICAL BOLD FRAKTUR SMALL T MATHEMATICAL BOLD FRAKTUR SMALL U MATHEMATICAL BOLD FRAKTUR SMALL V MATHEMATICAL BOLD FRAKTUR SMALL W MATHEMATICAL BOLD FRAKTUR SMALL X MATHEMATICAL BOLD FRAKTUR SMALL Y MATHEMATICAL BOLD FRAKTUR SMALL Z MATHEMATICAL SANS-SERIF CAPITAL A MATHEMATICAL SANS-SERIF CAPITAL B MATHEMATICAL SANS-SERIF CAPITAL C MATHEMATICAL SANS-SERIF CAPITAL D MATHEMATICAL SANS-SERIF CAPITAL E MATHEMATICAL SANS-SERIF CAPITAL F MATHEMATICAL SANS-SERIF CAPITAL G MATHEMATICAL SANS-SERIF CAPITAL H MATHEMATICAL SANS-SERIF CAPITAL I MATHEMATICAL SANS-SERIF CAPITAL J MATHEMATICAL SANS-SERIF CAPITAL K MATHEMATICAL SANS-SERIF CAPITAL L MATHEMATICAL SANS-SERIF CAPITAL M MATHEMATICAL SANS-SERIF CAPITAL N MATHEMATICAL SANS-SERIF CAPITAL O MATHEMATICAL SANS-SERIF CAPITAL P MATHEMATICAL SANS-SERIF CAPITAL Q MATHEMATICAL SANS-SERIF CAPITAL R MATHEMATICAL SANS-SERIF CAPITAL S MATHEMATICAL SANS-SERIF CAPITAL T MATHEMATICAL SANS-SERIF CAPITAL U MATHEMATICAL SANS-SERIF CAPITAL V MATHEMATICAL SANS-SERIF CAPITAL W MATHEMATICAL SANS-SERIF CAPITAL X MATHEMATICAL SANS-SERIF CAPITAL Y MATHEMATICAL SANS-SERIF CAPITAL Z MATHEMATICAL SANS-SERIF SMALL A MATHEMATICAL SANS-SERIF SMALL B MATHEMATICAL SANS-SERIF SMALL C MATHEMATICAL SANS-SERIF SMALL D MATHEMATICAL SANS-SERIF SMALL E MATHEMATICAL SANS-SERIF SMALL F MATHEMATICAL SANS-SERIF SMALL G MATHEMATICAL SANS-SERIF SMALL H MATHEMATICAL SANS-SERIF SMALL I MATHEMATICAL SANS-SERIF SMALL J MATHEMATICAL SANS-SERIF SMALL K MATHEMATICAL SANS-SERIF SMALL L MATHEMATICAL SANS-SERIF SMALL M MATHEMATICAL SANS-SERIF SMALL N MATHEMATICAL SANS-SERIF SMALL O MATHEMATICAL SANS-SERIF SMALL P MATHEMATICAL SANS-SERIF SMALL Q MATHEMATICAL SANS-SERIF SMALL R MATHEMATICAL SANS-SERIF SMALL S MATHEMATICAL SANS-SERIF SMALL T MATHEMATICAL SANS-SERIF SMALL U MATHEMATICAL SANS-SERIF SMALL V MATHEMATICAL SANS-SERIF SMALL W MATHEMATICAL SANS-SERIF SMALL X MATHEMATICAL SANS-SERIF SMALL Y MATHEMATICAL SANS-SERIF SMALL Z MATHEMATICAL SANS-SERIF BOLD CAPITAL A MATHEMATICAL SANS-SERIF BOLD CAPITAL B MATHEMATICAL SANS-SERIF BOLD CAPITAL C MATHEMATICAL SANS-SERIF BOLD CAPITAL D MATHEMATICAL SANS-SERIF BOLD CAPITAL E MATHEMATICAL SANS-SERIF BOLD CAPITAL F MATHEMATICAL SANS-SERIF BOLD CAPITAL G MATHEMATICAL SANS-SERIF BOLD CAPITAL H MATHEMATICAL SANS-SERIF BOLD CAPITAL I MATHEMATICAL SANS-SERIF BOLD CAPITAL J MATHEMATICAL SANS-SERIF BOLD CAPITAL K MATHEMATICAL SANS-SERIF BOLD CAPITAL L MATHEMATICAL SANS-SERIF BOLD CAPITAL M MATHEMATICAL SANS-SERIF BOLD CAPITAL N MATHEMATICAL SANS-SERIF BOLD CAPITAL O MATHEMATICAL SANS-SERIF BOLD CAPITAL P MATHEMATICAL SANS-SERIF BOLD CAPITAL Q MATHEMATICAL SANS-SERIF BOLD CAPITAL R MATHEMATICAL SANS-SERIF BOLD CAPITAL S MATHEMATICAL SANS-SERIF BOLD CAPITAL T MATHEMATICAL SANS-SERIF BOLD CAPITAL U MATHEMATICAL SANS-SERIF BOLD CAPITAL V MATHEMATICAL SANS-SERIF BOLD CAPITAL W MATHEMATICAL SANS-SERIF BOLD CAPITAL X MATHEMATICAL SANS-SERIF BOLD CAPITAL Y MATHEMATICAL SANS-SERIF BOLD CAPITAL Z MATHEMATICAL SANS-SERIF BOLD SMALL A MATHEMATICAL SANS-SERIF BOLD SMALL B MATHEMATICAL SANS-SERIF BOLD SMALL C MATHEMATICAL SANS-SERIF BOLD SMALL D MATHEMATICAL SANS-SERIF BOLD SMALL E MATHEMATICAL SANS-SERIF BOLD SMALL F MATHEMATICAL SANS-SERIF BOLD SMALL G MATHEMATICAL SANS-SERIF BOLD SMALL H MATHEMATICAL SANS-SERIF BOLD SMALL I MATHEMATICAL SANS-SERIF BOLD SMALL J MATHEMATICAL SANS-SERIF BOLD SMALL K MATHEMATICAL SANS-SERIF BOLD SMALL L MATHEMATICAL SANS-SERIF BOLD SMALL M MATHEMATICAL SANS-SERIF BOLD SMALL N MATHEMATICAL SANS-SERIF BOLD SMALL O MATHEMATICAL SANS-SERIF BOLD SMALL P MATHEMATICAL SANS-SERIF BOLD SMALL Q MATHEMATICAL SANS-SERIF BOLD SMALL R MATHEMATICAL SANS-SERIF BOLD SMALL S MATHEMATICAL SANS-SERIF BOLD SMALL T MATHEMATICAL SANS-SERIF BOLD SMALL U MATHEMATICAL SANS-SERIF BOLD SMALL V MATHEMATICAL SANS-SERIF BOLD SMALL W MATHEMATICAL SANS-SERIF BOLD SMALL X MATHEMATICAL SANS-SERIF BOLD SMALL Y MATHEMATICAL SANS-SERIF BOLD SMALL Z MATHEMATICAL SANS-SERIF ITALIC CAPITAL A MATHEMATICAL SANS-SERIF ITALIC CAPITAL B MATHEMATICAL SANS-SERIF ITALIC CAPITAL C MATHEMATICAL SANS-SERIF ITALIC CAPITAL D MATHEMATICAL SANS-SERIF ITALIC CAPITAL E MATHEMATICAL SANS-SERIF ITALIC CAPITAL F MATHEMATICAL SANS-SERIF ITALIC CAPITAL G MATHEMATICAL SANS-SERIF ITALIC CAPITAL H MATHEMATICAL SANS-SERIF ITALIC CAPITAL I MATHEMATICAL SANS-SERIF ITALIC CAPITAL J MATHEMATICAL SANS-SERIF ITALIC CAPITAL K MATHEMATICAL SANS-SERIF ITALIC CAPITAL L MATHEMATICAL SANS-SERIF ITALIC CAPITAL M MATHEMATICAL SANS-SERIF ITALIC CAPITAL N MATHEMATICAL SANS-SERIF ITALIC CAPITAL O MATHEMATICAL SANS-SERIF ITALIC CAPITAL P MATHEMATICAL SANS-SERIF ITALIC CAPITAL Q MATHEMATICAL SANS-SERIF ITALIC CAPITAL R MATHEMATICAL SANS-SERIF ITALIC CAPITAL S MATHEMATICAL SANS-SERIF ITALIC CAPITAL T MATHEMATICAL SANS-SERIF ITALIC CAPITAL U MATHEMATICAL SANS-SERIF ITALIC CAPITAL V MATHEMATICAL SANS-SERIF ITALIC CAPITAL W MATHEMATICAL SANS-SERIF ITALIC CAPITAL X MATHEMATICAL SANS-SERIF ITALIC CAPITAL Y MATHEMATICAL SANS-SERIF ITALIC CAPITAL Z MATHEMATICAL SANS-SERIF ITALIC SMALL A MATHEMATICAL SANS-SERIF ITALIC SMALL B MATHEMATICAL SANS-SERIF ITALIC SMALL C MATHEMATICAL SANS-SERIF ITALIC SMALL D MATHEMATICAL SANS-SERIF ITALIC SMALL E MATHEMATICAL SANS-SERIF ITALIC SMALL F MATHEMATICAL SANS-SERIF ITALIC SMALL G MATHEMATICAL SANS-SERIF ITALIC SMALL H MATHEMATICAL SANS-SERIF ITALIC SMALL I MATHEMATICAL SANS-SERIF ITALIC SMALL J MATHEMATICAL SANS-SERIF ITALIC SMALL K MATHEMATICAL SANS-SERIF ITALIC SMALL L MATHEMATICAL SANS-SERIF ITALIC SMALL M MATHEMATICAL SANS-SERIF ITALIC SMALL N MATHEMATICAL SANS-SERIF ITALIC SMALL O MATHEMATICAL SANS-SERIF ITALIC SMALL P MATHEMATICAL SANS-SERIF ITALIC SMALL Q MATHEMATICAL SANS-SERIF ITALIC SMALL R MATHEMATICAL SANS-SERIF ITALIC SMALL S MATHEMATICAL SANS-SERIF ITALIC SMALL T MATHEMATICAL SANS-SERIF ITALIC SMALL U MATHEMATICAL SANS-SERIF ITALIC SMALL V MATHEMATICAL SANS-SERIF ITALIC SMALL W MATHEMATICAL SANS-SERIF ITALIC SMALL X MATHEMATICAL SANS-SERIF ITALIC SMALL Y MATHEMATICAL SANS-SERIF ITALIC SMALL Z MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL A MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL B MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL C MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL D MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL E MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL F MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL G MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL H MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL I MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL J MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL K MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL L MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL M MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL N MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL O MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL P MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL Q MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL R MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL S MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL T MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL U MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL V MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL W MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL X MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL Y MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL Z MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL A MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL B MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL C MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL D MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL E MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL F MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL G MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL H MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL I MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL J MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL K MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL L MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL M MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL N MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL O MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL P MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL Q MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL R MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL S MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL T MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL U MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL V MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL W MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL X MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL Y MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL Z MATHEMATICAL MONOSPACE CAPITAL A MATHEMATICAL MONOSPACE CAPITAL B MATHEMATICAL MONOSPACE CAPITAL C MATHEMATICAL MONOSPACE CAPITAL D MATHEMATICAL MONOSPACE CAPITAL E MATHEMATICAL MONOSPACE CAPITAL F MATHEMATICAL MONOSPACE CAPITAL G MATHEMATICAL MONOSPACE CAPITAL H MATHEMATICAL MONOSPACE CAPITAL I MATHEMATICAL MONOSPACE CAPITAL J MATHEMATICAL MONOSPACE CAPITAL K MATHEMATICAL MONOSPACE CAPITAL L MATHEMATICAL MONOSPACE CAPITAL M MATHEMATICAL MONOSPACE CAPITAL N MATHEMATICAL MONOSPACE CAPITAL O MATHEMATICAL MONOSPACE CAPITAL P MATHEMATICAL MONOSPACE CAPITAL Q MATHEMATICAL MONOSPACE CAPITAL R MATHEMATICAL MONOSPACE CAPITAL S MATHEMATICAL MONOSPACE CAPITAL T MATHEMATICAL MONOSPACE CAPITAL U MATHEMATICAL MONOSPACE CAPITAL V MATHEMATICAL MONOSPACE CAPITAL W MATHEMATICAL MONOSPACE CAPITAL X MATHEMATICAL MONOSPACE CAPITAL Y MATHEMATICAL MONOSPACE CAPITAL Z MATHEMATICAL MONOSPACE SMALL A MATHEMATICAL MONOSPACE SMALL B MATHEMATICAL MONOSPACE SMALL C MATHEMATICAL MONOSPACE SMALL D MATHEMATICAL MONOSPACE SMALL E MATHEMATICAL MONOSPACE SMALL F MATHEMATICAL MONOSPACE SMALL G MATHEMATICAL MONOSPACE SMALL H MATHEMATICAL MONOSPACE SMALL I MATHEMATICAL MONOSPACE SMALL J MATHEMATICAL MONOSPACE SMALL K MATHEMATICAL MONOSPACE SMALL L MATHEMATICAL MONOSPACE SMALL M MATHEMATICAL MONOSPACE SMALL N MATHEMATICAL MONOSPACE SMALL O MATHEMATICAL MONOSPACE SMALL P MATHEMATICAL MONOSPACE SMALL Q MATHEMATICAL MONOSPACE SMALL R MATHEMATICAL MONOSPACE SMALL S MATHEMATICAL MONOSPACE SMALL T MATHEMATICAL MONOSPACE SMALL U MATHEMATICAL MONOSPACE SMALL V MATHEMATICAL MONOSPACE SMALL W MATHEMATICAL MONOSPACE SMALL X MATHEMATICAL MONOSPACE SMALL Y MATHEMATICAL MONOSPACE SMALL Z MATHEMATICAL ITALIC SMALL DOTLESS I MATHEMATICAL ITALIC SMALL DOTLESS J MATHEMATICAL BOLD CAPITAL ALPHA MATHEMATICAL BOLD CAPITAL BETA MATHEMATICAL BOLD CAPITAL GAMMA MATHEMATICAL BOLD CAPITAL DELTA MATHEMATICAL BOLD CAPITAL EPSILON MATHEMATICAL BOLD CAPITAL ZETA MATHEMATICAL BOLD CAPITAL ETA MATHEMATICAL BOLD CAPITAL THETA MATHEMATICAL BOLD CAPITAL IOTA MATHEMATICAL BOLD CAPITAL KAPPA MATHEMATICAL BOLD CAPITAL LAMDA MATHEMATICAL BOLD CAPITAL MU MATHEMATICAL BOLD CAPITAL NU MATHEMATICAL BOLD CAPITAL XI MATHEMATICAL BOLD CAPITAL OMICRON MATHEMATICAL BOLD CAPITAL PI MATHEMATICAL BOLD CAPITAL RHO MATHEMATICAL BOLD CAPITAL THETA SYMBOL MATHEMATICAL BOLD CAPITAL SIGMA MATHEMATICAL BOLD CAPITAL TAU MATHEMATICAL BOLD CAPITAL UPSILON MATHEMATICAL BOLD CAPITAL PHI MATHEMATICAL BOLD CAPITAL CHI MATHEMATICAL BOLD CAPITAL PSI MATHEMATICAL BOLD CAPITAL OMEGA MATHEMATICAL BOLD SMALL ALPHA MATHEMATICAL BOLD SMALL BETA MATHEMATICAL BOLD SMALL GAMMA MATHEMATICAL BOLD SMALL DELTA MATHEMATICAL BOLD SMALL EPSILON MATHEMATICAL BOLD SMALL ZETA MATHEMATICAL BOLD SMALL ETA MATHEMATICAL BOLD SMALL THETA MATHEMATICAL BOLD SMALL IOTA MATHEMATICAL BOLD SMALL KAPPA MATHEMATICAL BOLD SMALL LAMDA MATHEMATICAL BOLD SMALL MU MATHEMATICAL BOLD SMALL NU MATHEMATICAL BOLD SMALL XI MATHEMATICAL BOLD SMALL OMICRON MATHEMATICAL BOLD SMALL PI MATHEMATICAL BOLD SMALL RHO MATHEMATICAL BOLD SMALL FINAL SIGMA MATHEMATICAL BOLD SMALL SIGMA MATHEMATICAL BOLD SMALL TAU MATHEMATICAL BOLD SMALL UPSILON MATHEMATICAL BOLD SMALL PHI MATHEMATICAL BOLD SMALL CHI MATHEMATICAL BOLD SMALL PSI MATHEMATICAL BOLD SMALL OMEGA MATHEMATICAL BOLD EPSILON SYMBOL MATHEMATICAL BOLD THETA SYMBOL MATHEMATICAL BOLD KAPPA SYMBOL MATHEMATICAL BOLD PHI SYMBOL MATHEMATICAL BOLD RHO SYMBOL MATHEMATICAL BOLD PI SYMBOL MATHEMATICAL ITALIC CAPITAL ALPHA MATHEMATICAL ITALIC CAPITAL BETA MATHEMATICAL ITALIC CAPITAL GAMMA MATHEMATICAL ITALIC CAPITAL DELTA MATHEMATICAL ITALIC CAPITAL EPSILON MATHEMATICAL ITALIC CAPITAL ZETA MATHEMATICAL ITALIC CAPITAL ETA MATHEMATICAL ITALIC CAPITAL THETA MATHEMATICAL ITALIC CAPITAL IOTA MATHEMATICAL ITALIC CAPITAL KAPPA MATHEMATICAL ITALIC CAPITAL LAMDA MATHEMATICAL ITALIC CAPITAL MU MATHEMATICAL ITALIC CAPITAL NU MATHEMATICAL ITALIC CAPITAL XI MATHEMATICAL ITALIC CAPITAL OMICRON MATHEMATICAL ITALIC CAPITAL PI MATHEMATICAL ITALIC CAPITAL RHO MATHEMATICAL ITALIC CAPITAL THETA SYMBOL MATHEMATICAL ITALIC CAPITAL SIGMA MATHEMATICAL ITALIC CAPITAL TAU MATHEMATICAL ITALIC CAPITAL UPSILON MATHEMATICAL ITALIC CAPITAL PHI MATHEMATICAL ITALIC CAPITAL CHI MATHEMATICAL ITALIC CAPITAL PSI MATHEMATICAL ITALIC CAPITAL OMEGA MATHEMATICAL ITALIC SMALL ALPHA MATHEMATICAL ITALIC SMALL BETA MATHEMATICAL ITALIC SMALL GAMMA MATHEMATICAL ITALIC SMALL DELTA MATHEMATICAL ITALIC SMALL EPSILON MATHEMATICAL ITALIC SMALL ZETA MATHEMATICAL ITALIC SMALL ETA MATHEMATICAL ITALIC SMALL THETA MATHEMATICAL ITALIC SMALL IOTA MATHEMATICAL ITALIC SMALL KAPPA MATHEMATICAL ITALIC SMALL LAMDA MATHEMATICAL ITALIC SMALL MU MATHEMATICAL ITALIC SMALL NU MATHEMATICAL ITALIC SMALL XI MATHEMATICAL ITALIC SMALL OMICRON MATHEMATICAL ITALIC SMALL PI MATHEMATICAL ITALIC SMALL RHO MATHEMATICAL ITALIC SMALL FINAL SIGMA MATHEMATICAL ITALIC SMALL SIGMA MATHEMATICAL ITALIC SMALL TAU MATHEMATICAL ITALIC SMALL UPSILON MATHEMATICAL ITALIC SMALL PHI MATHEMATICAL ITALIC SMALL CHI MATHEMATICAL ITALIC SMALL PSI MATHEMATICAL ITALIC SMALL OMEGA MATHEMATICAL ITALIC EPSILON SYMBOL MATHEMATICAL ITALIC THETA SYMBOL MATHEMATICAL ITALIC KAPPA SYMBOL MATHEMATICAL ITALIC PHI SYMBOL MATHEMATICAL ITALIC RHO SYMBOL MATHEMATICAL ITALIC PI SYMBOL MATHEMATICAL BOLD ITALIC CAPITAL ALPHA MATHEMATICAL BOLD ITALIC CAPITAL BETA MATHEMATICAL BOLD ITALIC CAPITAL GAMMA MATHEMATICAL BOLD ITALIC CAPITAL DELTA MATHEMATICAL BOLD ITALIC CAPITAL EPSILON MATHEMATICAL BOLD ITALIC CAPITAL ZETA MATHEMATICAL BOLD ITALIC CAPITAL ETA MATHEMATICAL BOLD ITALIC CAPITAL THETA MATHEMATICAL BOLD ITALIC CAPITAL IOTA MATHEMATICAL BOLD ITALIC CAPITAL KAPPA MATHEMATICAL BOLD ITALIC CAPITAL LAMDA MATHEMATICAL BOLD ITALIC CAPITAL MU MATHEMATICAL BOLD ITALIC CAPITAL NU MATHEMATICAL BOLD ITALIC CAPITAL XI MATHEMATICAL BOLD ITALIC CAPITAL OMICRON MATHEMATICAL BOLD ITALIC CAPITAL PI MATHEMATICAL BOLD ITALIC CAPITAL RHO MATHEMATICAL BOLD ITALIC CAPITAL THETA SYMBOL MATHEMATICAL BOLD ITALIC CAPITAL SIGMA MATHEMATICAL BOLD ITALIC CAPITAL TAU MATHEMATICAL BOLD ITALIC CAPITAL UPSILON MATHEMATICAL BOLD ITALIC CAPITAL PHI MATHEMATICAL BOLD ITALIC CAPITAL CHI MATHEMATICAL BOLD ITALIC CAPITAL PSI MATHEMATICAL BOLD ITALIC CAPITAL OMEGA MATHEMATICAL BOLD ITALIC SMALL ALPHA MATHEMATICAL BOLD ITALIC SMALL BETA MATHEMATICAL BOLD ITALIC SMALL GAMMA MATHEMATICAL BOLD ITALIC SMALL DELTA MATHEMATICAL BOLD ITALIC SMALL EPSILON MATHEMATICAL BOLD ITALIC SMALL ZETA MATHEMATICAL BOLD ITALIC SMALL ETA MATHEMATICAL BOLD ITALIC SMALL THETA MATHEMATICAL BOLD ITALIC SMALL IOTA MATHEMATICAL BOLD ITALIC SMALL KAPPA MATHEMATICAL BOLD ITALIC SMALL LAMDA MATHEMATICAL BOLD ITALIC SMALL MU MATHEMATICAL BOLD ITALIC SMALL NU MATHEMATICAL BOLD ITALIC SMALL XI MATHEMATICAL BOLD ITALIC SMALL OMICRON MATHEMATICAL BOLD ITALIC SMALL PI MATHEMATICAL BOLD ITALIC SMALL RHO MATHEMATICAL BOLD ITALIC SMALL FINAL SIGMA MATHEMATICAL BOLD ITALIC SMALL SIGMA MATHEMATICAL BOLD ITALIC SMALL TAU MATHEMATICAL BOLD ITALIC SMALL UPSILON MATHEMATICAL BOLD ITALIC SMALL PHI MATHEMATICAL BOLD ITALIC SMALL CHI MATHEMATICAL BOLD ITALIC SMALL PSI MATHEMATICAL BOLD ITALIC SMALL OMEGA MATHEMATICAL BOLD ITALIC EPSILON SYMBOL MATHEMATICAL BOLD ITALIC THETA SYMBOL MATHEMATICAL BOLD ITALIC KAPPA SYMBOL MATHEMATICAL BOLD ITALIC PHI SYMBOL MATHEMATICAL BOLD ITALIC RHO SYMBOL MATHEMATICAL BOLD ITALIC PI SYMBOL MATHEMATICAL SANS-SERIF BOLD CAPITAL ALPHA MATHEMATICAL SANS-SERIF BOLD CAPITAL BETA MATHEMATICAL SANS-SERIF BOLD CAPITAL GAMMA MATHEMATICAL SANS-SERIF BOLD CAPITAL DELTA MATHEMATICAL SANS-SERIF BOLD CAPITAL EPSILON MATHEMATICAL SANS-SERIF BOLD CAPITAL ZETA MATHEMATICAL SANS-SERIF BOLD CAPITAL ETA MATHEMATICAL SANS-SERIF BOLD CAPITAL THETA MATHEMATICAL SANS-SERIF BOLD CAPITAL IOTA MATHEMATICAL SANS-SERIF BOLD CAPITAL KAPPA MATHEMATICAL SANS-SERIF BOLD CAPITAL LAMDA MATHEMATICAL SANS-SERIF BOLD CAPITAL MU MATHEMATICAL SANS-SERIF BOLD CAPITAL NU MATHEMATICAL SANS-SERIF BOLD CAPITAL XI MATHEMATICAL SANS-SERIF BOLD CAPITAL OMICRON MATHEMATICAL SANS-SERIF BOLD CAPITAL PI MATHEMATICAL SANS-SERIF BOLD CAPITAL RHO MATHEMATICAL SANS-SERIF BOLD CAPITAL THETA SYMBOL MATHEMATICAL SANS-SERIF BOLD CAPITAL SIGMA MATHEMATICAL SANS-SERIF BOLD CAPITAL TAU MATHEMATICAL SANS-SERIF BOLD CAPITAL UPSILON MATHEMATICAL SANS-SERIF BOLD CAPITAL PHI MATHEMATICAL SANS-SERIF BOLD CAPITAL CHI MATHEMATICAL SANS-SERIF BOLD CAPITAL PSI MATHEMATICAL SANS-SERIF BOLD CAPITAL OMEGA MATHEMATICAL SANS-SERIF BOLD SMALL ALPHA MATHEMATICAL SANS-SERIF BOLD SMALL BETA MATHEMATICAL SANS-SERIF BOLD SMALL GAMMA MATHEMATICAL SANS-SERIF BOLD SMALL DELTA MATHEMATICAL SANS-SERIF BOLD SMALL EPSILON MATHEMATICAL SANS-SERIF BOLD SMALL ZETA MATHEMATICAL SANS-SERIF BOLD SMALL ETA MATHEMATICAL SANS-SERIF BOLD SMALL THETA MATHEMATICAL SANS-SERIF BOLD SMALL IOTA MATHEMATICAL SANS-SERIF BOLD SMALL KAPPA MATHEMATICAL SANS-SERIF BOLD SMALL LAMDA MATHEMATICAL SANS-SERIF BOLD SMALL MU MATHEMATICAL SANS-SERIF BOLD SMALL NU MATHEMATICAL SANS-SERIF BOLD SMALL XI MATHEMATICAL SANS-SERIF BOLD SMALL OMICRON MATHEMATICAL SANS-SERIF BOLD SMALL PI MATHEMATICAL SANS-SERIF BOLD SMALL RHO MATHEMATICAL SANS-SERIF BOLD SMALL FINAL SIGMA MATHEMATICAL SANS-SERIF BOLD SMALL SIGMA MATHEMATICAL SANS-SERIF BOLD SMALL TAU MATHEMATICAL SANS-SERIF BOLD SMALL UPSILON MATHEMATICAL SANS-SERIF BOLD SMALL PHI MATHEMATICAL SANS-SERIF BOLD SMALL CHI MATHEMATICAL SANS-SERIF BOLD SMALL PSI MATHEMATICAL SANS-SERIF BOLD SMALL OMEGA MATHEMATICAL SANS-SERIF BOLD EPSILON SYMBOL MATHEMATICAL SANS-SERIF BOLD THETA SYMBOL MATHEMATICAL SANS-SERIF BOLD KAPPA SYMBOL MATHEMATICAL SANS-SERIF BOLD PHI SYMBOL MATHEMATICAL SANS-SERIF BOLD RHO SYMBOL MATHEMATICAL SANS-SERIF BOLD PI SYMBOL MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL ALPHA MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL BETA MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL GAMMA MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL DELTA MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL EPSILON MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL ZETA MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL ETA MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL THETA MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL IOTA MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL KAPPA MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL LAMDA MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL MU MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL NU MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL XI MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL OMICRON MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL PI MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL RHO MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL THETA SYMBOL MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL SIGMA MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL TAU MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL UPSILON MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL PHI MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL CHI MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL PSI MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL OMEGA MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL ALPHA MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL BETA MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL GAMMA MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL DELTA MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL EPSILON MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL ZETA MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL ETA MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL THETA MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL IOTA MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL KAPPA MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL LAMDA MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL MU MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL NU MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL XI MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL OMICRON MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL PI MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL RHO MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL FINAL SIGMA MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL SIGMA MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL TAU MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL UPSILON MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL PHI MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL CHI MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL PSI MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL OMEGA MATHEMATICAL SANS-SERIF BOLD ITALIC EPSILON SYMBOL MATHEMATICAL SANS-SERIF BOLD ITALIC THETA SYMBOL MATHEMATICAL SANS-SERIF BOLD ITALIC KAPPA SYMBOL MATHEMATICAL SANS-SERIF BOLD ITALIC PHI SYMBOL MATHEMATICAL SANS-SERIF BOLD ITALIC RHO SYMBOL MATHEMATICAL SANS-SERIF BOLD ITALIC PI SYMBOL MATHEMATICAL BOLD CAPITAL DIGAMMA MATHEMATICAL BOLD SMALL DIGAMMA NIL * * 143 8843 * ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/genesis.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!FASL") ; compiling (DEFCONSTANT CORE-MAGIC ...) ; compiling (DEFUN ROUND-UP ...) ; compiling (DEFCONSTANT +SMALLVEC-LENGTH+ ...) ; compiling (DEFTYPE SMALLVEC ...) ; compiling (DEFUN MAKE-SMALLVEC ...) ; compiling (DEFSTRUCT BIGVEC ...) ; compiling (DEFUN BVREF ...) ; compiling (DEFUN (SETF BVREF) ...) ; compiling (DEFUN BVLENGTH ...) ; compiling (DEFUN WRITE-BIGVEC-AS-SEQUENCE ...) ; compiling (DEFUN READ-BIGVEC-AS-SEQUENCE-OR-DIE ...) ; compiling (DEFUN EXPAND-BIGVEC ...) ; compiling (MAKE-BVREF-N 8) ; compiling (MAKE-BVREF-N 16) ; compiling (MAKE-BVREF-N 32) ; compiling (MAKE-BVREF-N 64) ; compiling (DEFUN BVREF-WORD ...) ; compiling (DEFUN (SETF BVREF-WORD) ...) ; compiling (DEFVAR *DYNAMIC*) ; compiling (DEFCONSTANT DYNAMIC-CORE-SPACE-ID ...) ; compiling (DEFVAR *STATIC*) ; compiling (DEFCONSTANT STATIC-CORE-SPACE-ID ...) ; compiling (DEFVAR *READ-ONLY*) ; compiling (DEFCONSTANT READ-ONLY-CORE-SPACE-ID ...) ; compiling (DEFCONSTANT MAX-CORE-SPACE-ID ...) ; compiling (DEFCONSTANT DEFLATED-CORE-SPACE-ID-FLAG ...) ; compiling (DEFCONSTANT TARGET-SPACE-ALIGNMENT ...) ; compiling (DEFSTRUCT (GSPACE # ...) ...) ; compiling (DEFUN GSPACE-BYTE-ADDRESS ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFUN MAKE-GSPACE ...) ; compiling (DEFUN IS-FIXNUM-LOWTAG ...) ; compiling (DEFUN IS-OTHER-IMMEDIATE-LOWTAG ...) ; compiling (DEFSTRUCT (DESCRIPTOR # ...) ...) ; compiling (DEFUN MAKE-RANDOM-DESCRIPTOR ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFUN ALLOCATE-COLD-DESCRIPTOR ...) ; compiling (DEFUN DESCRIPTOR-LOWTAG ...) ; compiling (DEFUN DESCRIPTOR-FIXNUM ...) ; compiling (DEFUN DESCRIPTOR-WORD-SIZED-INTEGER ...) ; compiling (DEFUN DESCRIPTOR-BYTES ...) ; compiling (DEFUN DESCRIPTOR-BYTE-OFFSET ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN DESCRIPTOR-INTUIT-GSPACE ...) ; compiling (DEFUN %FIXNUM-DESCRIPTOR-IF-POSSIBLE ...) ; compiling (DEFUN MAKE-FIXNUM-DESCRIPTOR ...) ; compiling (DEFUN MAKE-OTHER-IMMEDIATE-DESCRIPTOR ...) ; compiling (DEFUN MAKE-CHARACTER-DESCRIPTOR ...) ; compiling (DEFUN DESCRIPTOR-BEYOND ...) ; compiling (DEFVAR *FOREIGN-SYMBOL-PLACEHOLDER-VALUE*) ; compiling (DEFVAR *UNBOUND-MARKER*) ; compiling (DEFVAR *NIL-DESCRIPTOR*) ; compiling (DEFVAR *CURRENT-REVERSED-COLD-TOPLEVELS*) ; compiling (DEFVAR *CURRENT-DEBUG-SOURCES*) ; compiling (DEFPARAMETER *COLD-FOREIGN-UNDEFINED-SYMBOLS* ...) ; compiling (DEFVAR *COLD-LOAD-FILENAME* ...) ; compiling (DECLAIM (TYPE # ...)) ; compiling (DEFMACRO COLD-PUSH ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN READ-BITS-WORDINDEXED ...) ; compiling (DEFUN READ-WORDINDEXED ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN READ-MEMORY ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN NOTE-LOAD-TIME-VALUE-REFERENCE ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN WRITE-WORDINDEXED ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN WRITE-MEMORY ...) ; compiling (DEFUN WRITE-HEADER-WORD ...) ; compiling (DEFUN ALLOCATE-OBJECT ...) ; compiling (DEFUN ALLOCATE-HEADER+OBJECT ...) ; compiling (DEFUN ALLOCATE-VECTOR-OBJECT ...) ; compiling (DEFUN COLD-LAYOUT-LENGTH ...) ; compiling (DEFUN ALLOCATE-STRUCT ...) ; compiling (DEFUN BASE-STRING-TO-CORE ...) ; compiling (DEFUN BASE-STRING-FROM-CORE ...) ; compiling (DEFUN BIGNUM-TO-CORE ...) ; compiling (DEFUN BIGNUM-FROM-CORE ...) ; compiling (DEFUN NUMBER-PAIR-TO-CORE ...) ; compiling (DEFUN WRITE-DOUBLE-FLOAT-BITS ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/genesis.lisp ; in: DEFUN WRITE-DOUBLE-FLOAT-BITS ; (LET ((SB!FASL::BITS ; (SB!FASL::MAKE-RANDOM-DESCRIPTOR (ECASE SB!C:*BACKEND-BYTE-ORDER* #)))) ; (SB!FASL::WRITE-WORDINDEXED SB!FASL::ADDRESS SB!INT:INDEX SB!FASL::BITS)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (LOGIOR SB!FASL::LO (ASH SB!FASL::HI 32)) ; ==> ; SB!FASL::LO ; ; note: deleting unreachable code ; (SB!FASL::MAKE-RANDOM-DESCRIPTOR ; (ECASE SB!C:*BACKEND-BYTE-ORDER* ; (:LITTLE-ENDIAN (LOGIOR SB!FASL::LO (ASH SB!FASL::HI 32))))) ; ; note: deleting unreachable code ; compiling (DEFUN FLOAT-TO-CORE ...) ; compiling (DEFUN COMPLEX-SINGLE-FLOAT-TO-CORE ...) ; compiling (DEFUN COMPLEX-DOUBLE-FLOAT-TO-CORE ...) ; compiling (DEFUN NUMBER-TO-CORE ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN SAP-INT-TO-CORE ...) ; compiling (DEFUN COLD-CONS ...) ; compiling (DEFUN VECTOR-IN-CORE ...) ; compiling (DEFUN VECTOR-FROM-CORE ...) ; compiling (DEFVAR *GENESIS-TLS-COUNTER* ...) ; compiling (DEFUN ALLOCATE-SYMBOL ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN COLD-SET ...) ; compiling (DEFVAR *COLD-LAYOUTS* ...) ; compiling (DEFVAR *COLD-LAYOUT-NAMES* ...) ; compiling (DEFVAR *LAYOUT-LAYOUT*) ; compiling (DEFVAR *PACKAGE-LAYOUT*) ; compiling (DEFCONSTANT TARGET-LAYOUT-LENGTH ...) ; compiling (DEFUN LISTIFY-COLD-INHERITS ...) ; compiling (DEFUN WRITE-SLOTS ...) ; compiling (DEFUN READ-SLOT ...) ; compiling (DEFVAR *SIMPLE-VECTOR-0-DESCRIPTOR*) ; compiling (DEFVAR *VACUOUS-SLOT-TABLE*) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN MAKE-COLD-LAYOUT ...) ; compiling (DEFUN PATCH-INSTANCE-LAYOUT ...) ; compiling (DEFUN INITIALIZE-LAYOUTS ...) ; compiling (DEFVAR *COLD-PACKAGE-SYMBOLS*) ; compiling (DECLAIM (TYPE HASH-TABLE ...)) ; compiling (DEFVAR *COLD-SYMBOLS*) ; compiling (DECLAIM (TYPE HASH-TABLE ...)) ; compiling (DEFUN INITIALIZE-PACKAGES ...) ; compiling (DEFUN PACKAGE-OK-FOR-TARGET-SYMBOL-P ...) ; compiling (DEFUN SYMBOL-PACKAGE-FOR-TARGET-SYMBOL ...) ; compiling (DEFVAR *UNINTERNED-SYMBOL-TABLE* ...) ; compiling (DEFUN GET-UNINTERNED-SYMBOL ...) ; compiling (DEFUN HOST-CONSTANT-TO-CORE ...) ; compiling (DEFUN COLD-INTERN ...) ; compiling (DEFUN RECORD-ACCESSIBILITY ...) ; compiling (DEFUN MAKE-NIL-DESCRIPTOR ...) ; compiling (DEFUN INITIALIZE-NON-NIL-SYMBOLS ...) ; compiling (DEFUN COLD-LIST-ALL-LAYOUTS ...) ; compiling (DEFUN FINISH-SYMBOLS ...) ; compiling (DEFVAR *COLD-FDEFN-OBJECTS*) ; compiling (DEFVAR *COLD-FDEFN-GSPACE* ...) ; compiling (DEFUN WARM-SYMBOL ...) ; compiling (DEFUN COLD-CAR ...) ; compiling (DEFUN COLD-CDR ...) ; compiling (DEFUN COLD-NULL ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN WARM-FUN-NAME ...) ; compiling (DEFUN COLD-FDEFINITION-OBJECT ...) ; compiling (DEFUN STATIC-FSET ...) ; compiling (DEFPARAMETER *COLD-FSET-WARM-NAMES* ...) ; compiling (DEFUN COLD-FSET ...) ; compiling (DEFUN INITIALIZE-STATIC-FNS ...) ; compiling (DEFUN ATTACH-FDEFINITIONS-TO-SYMBOLS ...) ; compiling (DEFVAR *COLD-FOREIGN-SYMBOL-TABLE*) ; compiling (DECLAIM (TYPE HASH-TABLE ...)) ; compiling (DEFUN LOAD-COLD-FOREIGN-SYMBOL-TABLE ...) ; compiling (DEFUN COLD-FOREIGN-SYMBOL-ADDRESS ...) ; compiling (DEFVAR *COLD-ASSEMBLER-ROUTINES*) ; compiling (DEFVAR *COLD-ASSEMBLER-FIXUPS*) ; compiling (DEFUN RECORD-COLD-ASSEMBLER-ROUTINE ...) ; compiling (DEFUN RECORD-COLD-ASSEMBLER-FIXUP ...) ; compiling (DEFUN LOOKUP-ASSEMBLER-REFERENCE ...) ; compiling (DEFVAR *LOAD-TIME-CODE-FIXUPS*) ; compiling (DEFUN NOTE-LOAD-TIME-CODE-FIXUP ...) ; compiling (DEFUN OUTPUT-LOAD-TIME-CODE-FIXUPS ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN CALC-OFFSET ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN DO-COLD-FIXUP ...) ; compiling (DEFUN RESOLVE-ASSEMBLER-FIXUPS ...) ; compiling (DEFUN FOREIGN-SYMBOLS-TO-CORE ...) ; compiling (DEFVAR *COLD-FOP-FUNS* ...) ; compiling (DEFUN POP-FOP-STACK ...) ; compiling (DEFMACRO DEFINE-COLD-FOP ...) ; compiling (DEFMACRO NOT-COLD-FOP ...) ; compiling (DEFUN COLD-LOAD ...) ; compiling (DEFINE-COLD-FOP (FOP-MISC-TRAP) ...) ; compiling (DEFINE-COLD-FOP (FOP-CHARACTER #) ...) ; compiling (DEFINE-COLD-FOP (FOP-EMPTY-LIST) ...) ; compiling (DEFINE-COLD-FOP (FOP-TRUTH) ...) ; compiling (DEFINE-COLD-FOP (FOP-STRUCT #) ...) ; compiling (DEFINE-COLD-FOP (FOP-LAYOUT) ...) ; compiling (DEFUN COLD-LOAD-SYMBOL ...) ; compiling (FLET (#) ...) ; compiling (DEFINE-COLD-FOP (FOP-LISP-SYMBOL-SAVE #) ...) ; compiling (DEFINE-COLD-FOP (FOP-KEYWORD-SYMBOL-SAVE #) ...) ; compiling (DEFINE-COLD-FOP (FOP-UNINTERNED-SYMBOL-SAVE #) ...) ; compiling (DEFINE-COLD-FOP (FOP-COPY-SYMBOL-SAVE #) ...) ; compiling (DEFINE-COLD-FOP (FOP-NAMED-PACKAGE-SAVE #) ...) ; compiling (DEFMACRO COLD-STACK-LIST ...) ; compiling (DEFINE-COLD-FOP (FOP-LIST) ...) ; compiling (DEFINE-COLD-FOP (FOP-LIST*) ...) ; compiling (DEFINE-COLD-FOP (FOP-LIST-1) ...) ; compiling (DEFINE-COLD-FOP (FOP-LIST-2) ...) ; compiling (DEFINE-COLD-FOP (FOP-LIST-3) ...) ; compiling (DEFINE-COLD-FOP (FOP-LIST-4) ...) ; compiling (DEFINE-COLD-FOP (FOP-LIST-5) ...) ; compiling (DEFINE-COLD-FOP (FOP-LIST-6) ...) ; compiling (DEFINE-COLD-FOP (FOP-LIST-7) ...) ; compiling (DEFINE-COLD-FOP (FOP-LIST-8) ...) ; compiling (DEFINE-COLD-FOP (FOP-LIST*-1) ...) ; compiling (DEFINE-COLD-FOP (FOP-LIST*-2) ...) ; compiling (DEFINE-COLD-FOP (FOP-LIST*-3) ...) ; compiling (DEFINE-COLD-FOP (FOP-LIST*-4) ...) ; compiling (DEFINE-COLD-FOP (FOP-LIST*-5) ...) ; compiling (DEFINE-COLD-FOP (FOP-LIST*-6) ...) ; compiling (DEFINE-COLD-FOP (FOP-LIST*-7) ...) ; compiling (DEFINE-COLD-FOP (FOP-LIST*-8) ...) ; compiling (DEFINE-COLD-FOP (FOP-BASE-STRING #) ...) ; compiling (DEFINE-COLD-FOP (FOP-CHARACTER-STRING #) ...) ; compiling (DEFINE-COLD-FOP (FOP-VECTOR #) ...) ; compiling (DEFINE-COLD-FOP (FOP-SPEC-VECTOR) ...) ; compiling (NOT-COLD-FOP FOP-ARRAY) ; compiling (DEFMACRO DEFINE-COLD-NUMBER-FOP ...) ; compiling (DEFINE-COLD-NUMBER-FOP FOP-SINGLE-FLOAT) ; compiling (DEFINE-COLD-NUMBER-FOP FOP-DOUBLE-FLOAT) ; compiling (DEFINE-COLD-NUMBER-FOP FOP-WORD-INTEGER) ; compiling (DEFINE-COLD-NUMBER-FOP FOP-BYTE-INTEGER) ; compiling (DEFINE-COLD-NUMBER-FOP FOP-COMPLEX-SINGLE-FLOAT) ; compiling (DEFINE-COLD-NUMBER-FOP FOP-COMPLEX-DOUBLE-FLOAT) ; compiling (DEFINE-COLD-NUMBER-FOP FOP-INTEGER ...) ; compiling (DEFINE-COLD-FOP (FOP-RATIO) ...) ; compiling (DEFINE-COLD-FOP (FOP-COMPLEX) ...) ; compiling (NOT-COLD-FOP FOP-EVAL) ; compiling (NOT-COLD-FOP FOP-EVAL-FOR-EFFECT) ; compiling (DEFVAR *LOAD-TIME-VALUE-COUNTER*) ; compiling (DEFINE-COLD-FOP (FOP-FUNCALL) ...) ; compiling (DEFUN FINALIZE-LOAD-TIME-VALUE-NOISE ...) ; compiling (DEFINE-COLD-FOP (FOP-FUNCALL-FOR-EFFECT) ...) ; compiling (DEFINE-COLD-FOP (FOP-RPLACA) ...) ; compiling (DEFINE-COLD-FOP (FOP-RPLACD) ...) ; compiling (DEFINE-COLD-FOP (FOP-SVSET) ...) ; compiling (DEFINE-COLD-FOP (FOP-STRUCTSET) ...) ; compiling (DEFINE-COLD-FOP (FOP-NTHCDR) ...) ; compiling (DEFUN COLD-NTHCDR ...) ; compiling (DEFINE-COLD-FOP (FOP-NOTE-DEBUG-SOURCE) ...) ; compiling (DEFINE-COLD-FOP (FOP-FDEFN) ...) ; compiling (DEFVAR *SHOW-PRE-FIXUP-CODE-P* ...) ; compiling (DEFUN COLD-LOAD-CODE ...) ; compiling (DOTIMES (I 16) ...) ; compiling (DEFINE-COLD-FOP (FOP-ALTER-CODE #) ...) ; compiling (DEFVAR *SIMPLE-FUN-METADATA* ...) ; compiling (DEFUN MAKE-EQUAL-COMPARABLE-THING ...) ; compiling (DEFINE-COLD-FOP (FOP-FUN-ENTRY) ...) ; compiling (DEFINE-COLD-FOP (FOP-FOREIGN-FIXUP) ...) ; compiling (DEFINE-COLD-FOP (FOP-FOREIGN-DATAREF-FIXUP) ...) ; compiling (DEFINE-COLD-FOP (FOP-ASSEMBLER-CODE) ...) ; compiling (DEFINE-COLD-FOP (FOP-ASSEMBLER-ROUTINE) ...) ; compiling (DEFINE-COLD-FOP (FOP-ASSEMBLER-FIXUP) ...) ; compiling (DEFINE-COLD-FOP (FOP-CODE-OBJECT-FIXUP) ...) ; compiling (DEFUN CHECK-SPACES ...) ; compiling (DEFUN TAILWISE-EQUAL ...) ; compiling (DEFUN WRITE-BOILERPLATE ...) ; compiling (DEFUN C-NAME ...) ; compiling (DEFUN C-SYMBOL-NAME ...) ; compiling (DEFUN WRITE-MAKEFILE-FEATURES ...) ; compiling (DEFUN WRITE-CONFIG-H ...) ; compiling (DEFUN WRITE-CONSTANTS-H ...) ; compiling (DEFUN WRITE-TAGNAMES-H ...) ; compiling (DEFUN WRITE-PRIMITIVE-OBJECT ...) ; compiling (DEFUN WRITE-STRUCTURE-OBJECT ...) ; compiling (DEFUN WRITE-STATIC-SYMBOLS ...) ; compiling (DEFUN WRITE-MAP ...) ; compiling (DEFVAR *CORE-FILE*) ; compiling (DEFVAR *DATA-PAGE*) ; compiling (DEFCONSTANT BUILD-ID-CORE-ENTRY-TYPE-CODE ...) ; compiling (DEFCONSTANT NEW-DIRECTORY-CORE-ENTRY-TYPE-CODE ...) ; compiling (DEFCONSTANT INITIAL-FUN-CORE-ENTRY-TYPE-CODE ...) ; compiling (DEFCONSTANT PAGE-TABLE-CORE-ENTRY-TYPE-CODE ...) ; compiling (DEFCONSTANT END-CORE-ENTRY-TYPE-CODE ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN WRITE-WORD ...) ; compiling (DEFUN ADVANCE-TO-PAGE ...) ; compiling (DEFUN OUTPUT-GSPACE ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN WRITE-INITIAL-CORE-FILE ...) ; compiling (DEFUN SB!VM:GENESIS ...) ; compiling (DEFUN WARMELIZE ...); ; compilation unit finished ; printed 4 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/generic/genesis.fasl-tmp written ; compilation finished in 0:00:01.410 T * beginning GENESIS, creating headers in "src/runtime/genesis" /back from FINISH-SYMBOLS /done setting free pointers NIL * + set -e + echo //entering make-target-1.sh //entering make-target-1.sh + LANG=C + LC_ALL=C + export LANG LC_ALL + . output/build-config ++ DEVNULL=/dev/null ++ export DEVNULL ++ GNUMAKE=make ++ export GNUMAKE ++ SBCL_XC_HOST='sh /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-binary/run-sbcl.sh --no-sysinit --no-userinit' ++ export SBCL_XC_HOST ++ legacy_xc_spec='sh /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-binary/run-sbcl.sh --no-sysinit --no-userinit' ++ export legacy_xc_spec + '[' -n '' ']' + echo //building runtime system and symbol table file //building runtime system and symbol table file + make -C src/runtime clean make: Entering directory '/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/runtime' rm -f *.[do] sbcl sbcl.nm sbcl.h core *.tmp make: Leaving directory '/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/runtime' + make -C src/runtime all make: Entering directory '/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/runtime' echo '#include "genesis/config.h"' >sbcl.h echo '#include "genesis/constants.h"' >>sbcl.h i686-pc-linux-gnu-gcc -O2 -march=native -pipe -g -Wall -Wsign-compare -O3 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -m32 -fno-omit-frame-pointer -I. -DSBCL_PREFIX=\"'/usr'\" -c -o alloc.o alloc.c i686-pc-linux-gnu-gcc -O2 -march=native -pipe -g -Wall -Wsign-compare -O3 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -m32 -fno-omit-frame-pointer -I. -DSBCL_PREFIX=\"'/usr'\" -c -o backtrace.o backtrace.c backtrace.c: In function 'backtrace_from_fp': backtrace.c:561:20: warning: format '%lx' expects argument of type 'long unsigned int', but argument 3 has type 'unsigned int' [-Wformat=] (uword_t) ra); ^ backtrace.c:561:20: warning: format '%lx' expects argument of type 'long unsigned int', but argument 4 has type 'unsigned int' [-Wformat=] i686-pc-linux-gnu-gcc -O2 -march=native -pipe -g -Wall -Wsign-compare -O3 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -m32 -fno-omit-frame-pointer -I. -DSBCL_PREFIX=\"'/usr'\" -c -o breakpoint.o breakpoint.c i686-pc-linux-gnu-gcc -O2 -march=native -pipe -g -Wall -Wsign-compare -O3 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -m32 -fno-omit-frame-pointer -I. -DSBCL_PREFIX=\"'/usr'\" -c -o coreparse.o coreparse.c In file included from /usr/include/sys/mman.h:22:0, from coreparse.c:23: /usr/include/features.h:148:3: warning: #warning "_BSD_SOURCE and _SVID_SOURCE are deprecated, use _DEFAULT_SOURCE" [-Wcpp] # warning "_BSD_SOURCE and _SVID_SOURCE are deprecated, use _DEFAULT_SOURCE" ^ coreparse.c: In function 'process_directory': coreparse.c:342:25: warning: format '%ld' expects argument of type 'long int', but argument 3 has type 'uword_t' [-Wformat=] (uword_t)dynamic_space_size >> 10); ^ coreparse.c:342:25: warning: format '%ld' expects argument of type 'long int', but argument 4 has type 'os_vm_size_t' [-Wformat=] coreparse.c: In function 'load_core_file': coreparse.c:413:15: warning: comparison between signed and unsigned integer expressions [-Wsign-compare] if (count < os_vm_page_size) { ^ i686-pc-linux-gnu-gcc -O2 -march=native -pipe -g -Wall -Wsign-compare -O3 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -m32 -fno-omit-frame-pointer -I. -DSBCL_PREFIX=\"'/usr'\" -c -o dynbind.o dynbind.c i686-pc-linux-gnu-gcc -O2 -march=native -pipe -g -Wall -Wsign-compare -O3 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -m32 -fno-omit-frame-pointer -I. -DSBCL_PREFIX=\"'/usr'\" -c -o funcall.o funcall.c i686-pc-linux-gnu-gcc -O2 -march=native -pipe -g -Wall -Wsign-compare -O3 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -m32 -fno-omit-frame-pointer -I. -DSBCL_PREFIX=\"'/usr'\" -c -o gc-common.o gc-common.c gc-common.c: In function 'scav_code_header': gc-common.c:350:9: warning: format '%lx' expects argument of type 'long unsigned int', but argument 3 has type 'int' [-Wformat=] gc_assert_verbose(is_lisp_pointer(entry_point), ^ i686-pc-linux-gnu-gcc -O2 -march=native -pipe -g -Wall -Wsign-compare -O3 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -m32 -fno-omit-frame-pointer -I. -DSBCL_PREFIX=\"'/usr'\" -c -o globals.o globals.c i686-pc-linux-gnu-gcc -O2 -march=native -pipe -g -Wall -Wsign-compare -O3 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -m32 -fno-omit-frame-pointer -I. -DSBCL_PREFIX=\"'/usr'\" -c -o interr.o interr.c i686-pc-linux-gnu-gcc -O2 -march=native -pipe -g -Wall -Wsign-compare -O3 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -m32 -fno-omit-frame-pointer -I. -DSBCL_PREFIX=\"'/usr'\" -c -o interrupt.o interrupt.c i686-pc-linux-gnu-gcc -O2 -march=native -pipe -g -Wall -Wsign-compare -O3 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -m32 -fno-omit-frame-pointer -I. -DSBCL_PREFIX=\"'/usr'\" -c -o largefile.o largefile.c i686-pc-linux-gnu-gcc -O2 -march=native -pipe -g -Wall -Wsign-compare -O3 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -m32 -fno-omit-frame-pointer -I. -DSBCL_PREFIX=\"'/usr'\" -c -o monitor.o monitor.c monitor.c: In function 'catchers_cmd': monitor.c:440:20: warning: format '%lX' expects argument of type 'long unsigned int', but argument 2 has type 'unsigned int' [-Wformat=] (uword_t)(catch->entry_pc)); ^ monitor.c:440:20: warning: format '%lX' expects argument of type 'long unsigned int', but argument 3 has type 'unsigned int' [-Wformat=] monitor.c:440:20: warning: format '%lX' expects argument of type 'long unsigned int', but argument 4 has type 'unsigned int' [-Wformat=] monitor.c:440:20: warning: format '%lX' expects argument of type 'long unsigned int', but argument 5 has type 'unsigned int' [-Wformat=] monitor.c:440:20: warning: format '%lX' expects argument of type 'long unsigned int', but argument 6 has type 'lispobj' [-Wformat=] i686-pc-linux-gnu-gcc -O2 -march=native -pipe -g -Wall -Wsign-compare -O3 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -m32 -fno-omit-frame-pointer -I. -DSBCL_PREFIX=\"'/usr'\" -c -o os-common.o os-common.c i686-pc-linux-gnu-gcc -O2 -march=native -pipe -g -Wall -Wsign-compare -O3 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -m32 -fno-omit-frame-pointer -I. -DSBCL_PREFIX=\"'/usr'\" -c -o parse.o parse.c i686-pc-linux-gnu-gcc -O2 -march=native -pipe -g -Wall -Wsign-compare -O3 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -m32 -fno-omit-frame-pointer -I. -DSBCL_PREFIX=\"'/usr'\" -c -o print.o print.c i686-pc-linux-gnu-gcc -O2 -march=native -pipe -g -Wall -Wsign-compare -O3 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -m32 -fno-omit-frame-pointer -I. -DSBCL_PREFIX=\"'/usr'\" -c -o purify.o purify.c i686-pc-linux-gnu-gcc -O2 -march=native -pipe -g -Wall -Wsign-compare -O3 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -m32 -fno-omit-frame-pointer -I. -DSBCL_PREFIX=\"'/usr'\" -c -o pthread-futex.o pthread-futex.c i686-pc-linux-gnu-gcc -O2 -march=native -pipe -g -Wall -Wsign-compare -O3 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -m32 -fno-omit-frame-pointer -I. -DSBCL_PREFIX=\"'/usr'\" -c -o regnames.o regnames.c i686-pc-linux-gnu-gcc -O2 -march=native -pipe -g -Wall -Wsign-compare -O3 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -m32 -fno-omit-frame-pointer -I. -DSBCL_PREFIX=\"'/usr'\" -c -o run-program.o run-program.c i686-pc-linux-gnu-gcc -O2 -march=native -pipe -g -Wall -Wsign-compare -O3 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -m32 -fno-omit-frame-pointer -I. -DSBCL_PREFIX=\"'/usr'\" -c -o runtime.o runtime.c i686-pc-linux-gnu-gcc -O2 -march=native -pipe -g -Wall -Wsign-compare -O3 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -m32 -fno-omit-frame-pointer -I. -DSBCL_PREFIX=\"'/usr'\" -c -o safepoint.o safepoint.c i686-pc-linux-gnu-gcc -O2 -march=native -pipe -g -Wall -Wsign-compare -O3 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -m32 -fno-omit-frame-pointer -I. -DSBCL_PREFIX=\"'/usr'\" -c -o save.o save.c save.c: In function 'output_space': save.c:198:12: warning: format '%lu' expects argument of type 'long unsigned int', but argument 2 has type 'size_t' [-Wformat=] bytes, names[id], addr); ^ i686-pc-linux-gnu-gcc -O2 -march=native -pipe -g -Wall -Wsign-compare -O3 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -m32 -fno-omit-frame-pointer -I. -DSBCL_PREFIX=\"'/usr'\" -c -o search.o search.c i686-pc-linux-gnu-gcc -O2 -march=native -pipe -g -Wall -Wsign-compare -O3 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -m32 -fno-omit-frame-pointer -I. -DSBCL_PREFIX=\"'/usr'\" -c -o thread.o thread.c thread.c: In function 'create_thread_struct': thread.c:666:36: warning: unused variable 'nonpointer_data' [-Wunused-variable] struct nonpointer_thread_data *nonpointer_data ^ i686-pc-linux-gnu-gcc -O2 -march=native -pipe -g -Wall -Wsign-compare -O3 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -m32 -fno-omit-frame-pointer -I. -DSBCL_PREFIX=\"'/usr'\" -c -o time.o time.c i686-pc-linux-gnu-gcc -O2 -march=native -pipe -g -Wall -Wsign-compare -O3 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -m32 -fno-omit-frame-pointer -I. -DSBCL_PREFIX=\"'/usr'\" -c -o util.o util.c i686-pc-linux-gnu-gcc -O2 -march=native -pipe -g -Wall -Wsign-compare -O3 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -m32 -fno-omit-frame-pointer -I. -DSBCL_PREFIX=\"'/usr'\" -c -o validate.o validate.c validate.c: In function 'ensure_space': validate.c:35:17: warning: format '%lu' expects argument of type 'long unsigned int', but argument 3 has type 'uword_t' [-Wformat=] (uword_t)start); ^ validate.c:35:17: warning: format '%lx' expects argument of type 'long unsigned int', but argument 4 has type 'unsigned int' [-Wformat=] i686-pc-linux-gnu-gcc -O2 -march=native -pipe -g -Wall -Wsign-compare -O3 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -m32 -fno-omit-frame-pointer -I. -DSBCL_PREFIX=\"'/usr'\" -c -o vars.o vars.c i686-pc-linux-gnu-gcc -O2 -march=native -pipe -g -Wall -Wsign-compare -O3 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -m32 -fno-omit-frame-pointer -I. -DSBCL_PREFIX=\"'/usr'\" -c -o wrap.o wrap.c wrap.c: In function 'sb_gettimeofday': wrap.c:544:9: warning: implicit declaration of function 'gettimeofday' [-Wimplicit-function-declaration] return gettimeofday(tp, tzp); ^ wrap.c: At top level: wrap.c:558:36: warning: 'struct itimerval' declared inside parameter list int sb_getitimer(int which, struct itimerval *value) ^ wrap.c:558:36: warning: its scope is only this definition or declaration, which is probably not what you want wrap.c: In function 'sb_getitimer': wrap.c:560:9: warning: implicit declaration of function 'getitimer' [-Wimplicit-function-declaration] return getitimer(which, value); ^ wrap.c: At top level: wrap.c:563:61: warning: 'struct itimerval' declared inside parameter list int sb_setitimer(int which, struct itimerval *value, struct itimerval *ovalue) ^ wrap.c: In function 'sb_setitimer': wrap.c:565:9: warning: implicit declaration of function 'setitimer' [-Wimplicit-function-declaration] return setitimer(which, value, ovalue); ^ wrap.c: In function 'sb_utimes': wrap.c:570:5: warning: implicit declaration of function 'utimes' [-Wimplicit-function-declaration] return utimes(path, times); ^ i686-pc-linux-gnu-gcc -O2 -march=native -pipe -g -Wall -Wsign-compare -O3 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -m32 -fno-omit-frame-pointer -I. -DSBCL_PREFIX=\"'/usr'\" -c -o x86-arch.o x86-arch.c i686-pc-linux-gnu-gcc -O2 -march=native -pipe -g -Wall -Wsign-compare -O3 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -m32 -fno-omit-frame-pointer -I. -DSBCL_PREFIX=\"'/usr'\" -c -o linux-os.o linux-os.c In file included from linux-os.c:54:0: gencgc-internal.h:163:1: warning: 'from_space_p' defined but not used [-Wunused-function] from_space_p(lispobj obj) ^ i686-pc-linux-gnu-gcc -O2 -march=native -pipe -g -Wall -Wsign-compare -O3 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -m32 -fno-omit-frame-pointer -I. -DSBCL_PREFIX=\"'/usr'\" -c -o x86-linux-os.o x86-linux-os.c In file included from os.h:21:0, from x86-linux-os.c:27: x86-linux-os.c: In function 'arch_os_thread_cleanup': runtime.h:39:30: warning: statement with no effect [-Wunused-value] #define thread_mutex_lock(l) 0 ^ x86-linux-os.c:159:5: note: in expansion of macro 'thread_mutex_lock' thread_mutex_lock(&modify_ldt_lock); ^ runtime.h:40:32: warning: statement with no effect [-Wunused-value] #define thread_mutex_unlock(l) 0 ^ x86-linux-os.c:161:5: note: in expansion of macro 'thread_mutex_unlock' thread_mutex_unlock(&modify_ldt_lock); ^ i686-pc-linux-gnu-gcc -O2 -march=native -pipe -g -Wall -Wsign-compare -O3 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -m32 -fno-omit-frame-pointer -I. -DSBCL_PREFIX=\"'/usr'\" -c -o gencgc.o gencgc.c gencgc.c: In function 'write_generation_stats': gencgc.c:558:17: warning: format '%ld' expects argument of type 'long int', but argument 4 has type 'page_index_t' [-Wformat=] generations[i].alloc_large_unboxed_start_page); ^ gencgc.c:558:17: warning: format '%ld' expects argument of type 'long int', but argument 5 has type 'page_index_t' [-Wformat=] gencgc.c:558:17: warning: format '%ld' expects argument of type 'long int', but argument 6 has type 'page_index_t' [-Wformat=] gencgc.c:558:17: warning: format '%ld' expects argument of type 'long int', but argument 7 has type 'page_index_t' [-Wformat=] gencgc.c:563:17: warning: format '%ld' expects argument of type 'long int', but argument 3 has type 'page_index_t' [-Wformat=] large_unboxed_cnt, pinned_cnt); ^ gencgc.c:563:17: warning: format '%ld' expects argument of type 'long int', but argument 4 has type 'page_index_t' [-Wformat=] gencgc.c:563:17: warning: format '%ld' expects argument of type 'long int', but argument 5 has type 'page_index_t' [-Wformat=] gencgc.c:563:17: warning: format '%ld' expects argument of type 'long int', but argument 6 has type 'page_index_t' [-Wformat=] gencgc.c:563:17: warning: format '%ld' expects argument of type 'long int', but argument 7 has type 'page_index_t' [-Wformat=] gencgc.c:574:17: warning: format '%ld' expects argument of type 'long int', but argument 6 has type 'page_index_t' [-Wformat=] generation_average_age(i)); ^ gencgc.c: In function 'gencgc_apply_code_fixups': gencgc.c:1844:38: warning: variable 'code_end_addr' set but not used [-Wunused-but-set-variable] os_vm_address_t code_start_addr, code_end_addr; ^ gencgc.c:1843:43: warning: variable 'constants_end_addr' set but not used [-Wunused-but-set-variable] os_vm_address_t constants_start_addr, constants_end_addr; ^ gencgc.c:1843:21: warning: variable 'constants_start_addr' set but not used [-Wunused-but-set-variable] os_vm_address_t constants_start_addr, constants_end_addr; ^ gencgc.c: In function 'verify_space': gencgc.c:3158:43: warning: taking address of expression of type 'void' && (thing != (lispobj)&funcallable_instance_tramp) ^ gencgc.c: In function 'garbage_collect_generation': gencgc.c:3588:13: warning: variable 'bytes_freed' set but not used [-Wunused-but-set-variable] uword_t bytes_freed; ^ gencgc.c: In function 'general_alloc_internal': gencgc.c:4454:16: warning: comparison between signed and unsigned integer expressions [-Wsign-compare] if (nbytes > large_allocation) ^ gencgc.c:4471:16: warning: comparison between signed and unsigned integer expressions [-Wsign-compare] if (nbytes >= bytes_consed_between_gcs) ^ gencgc.c: In function 'gencgc_handle_wp_violation': gencgc.c:4658:25: warning: format '%ld' expects argument of type 'long int', but argument 4 has type 'page_index_t' [-Wformat=] page_table[page_index].gen); ^ gencgc.c:4658:25: warning: format '%ld' expects argument of type 'long int', but argument 5 has type 'page_index_t' [-Wformat=] gencgc.c:4658:25: warning: format '%ld' expects argument of type 'long int', but argument 6 has type 'page_index_t' [-Wformat=] i686-pc-linux-gnu-gcc -O2 -march=native -pipe -g -Wall -Wsign-compare -O3 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -m32 -fno-omit-frame-pointer -I. -DSBCL_PREFIX=\"'/usr'\" -c -o x86-assem.o x86-assem.S i686-pc-linux-gnu-gcc -O2 -march=native -pipe -g -Wall -Wsign-compare -O3 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -m32 -fno-omit-frame-pointer -I. -DSBCL_PREFIX=\"'/usr'\" -c -o ldso-stubs.o ldso-stubs.S i686-pc-linux-gnu-gcc -Wl,-O1 -Wl,--as-needed -g -Wl,--export-dynamic -m32 -o sbcl alloc.o backtrace.o breakpoint.o coreparse.o dynbind.o funcall.o gc-common.o globals.o interr.o interrupt.o largefile.o monitor.o os-common.o parse.o print.o purify.o pthread-futex.o regnames.o run-program.o runtime.o safepoint.o save.o search.o thread.o time.o util.o validate.o vars.o wrap.o x86-arch.o linux-os.o x86-linux-os.o gencgc.o x86-assem.o ldso-stubs.o -ldl -lz -lm ./linux-nm sbcl | grep -v " [FUw] " > ,sbcl.nm mv -f ,sbcl.nm sbcl.nm etags alloc.c backtrace.c breakpoint.c coreparse.c dynbind.c funcall.c gc-common.c globals.c interr.c interrupt.c largefile.c monitor.c os-common.c parse.c print.c purify.c pthread-futex.c regnames.c run-program.c runtime.c safepoint.c save.c search.c thread.c time.c util.c validate.c vars.c wrap.c x86-arch.c linux-os.c x86-linux-os.c gencgc.c x86-assem.S ldso-stubs.S || true make: Leaving directory '/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/runtime' + make -C tools-for-build -I../src/runtime grovel-headers make: Entering directory '/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/tools-for-build' i686-pc-linux-gnu-gcc -O2 -march=native -pipe -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -m32 -fno-omit-frame-pointer -I../src/runtime -Wl,-O1 -Wl,--as-needed grovel-headers.c -ldl -lz -o grovel-headers make: Leaving directory '/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/tools-for-build' + tools-for-build/grovel-headers + make -C src/runtime after-grovel-headers make: Entering directory '/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/runtime' make: Nothing to be done for 'after-grovel-headers'. make: Leaving directory '/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/runtime' + '[' -n '' ']' + set -e + echo //entering make-host-2.sh //entering make-host-2.sh + LANG=C + LC_ALL=C + export LANG LC_ALL + . output/build-config ++ DEVNULL=/dev/null ++ export DEVNULL ++ GNUMAKE=make ++ export GNUMAKE ++ SBCL_XC_HOST='sh /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-binary/run-sbcl.sh --no-sysinit --no-userinit' ++ export SBCL_XC_HOST ++ legacy_xc_spec='sh /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-binary/run-sbcl.sh --no-sysinit --no-userinit' ++ export legacy_xc_spec + rm -f output/after-xc.core + echo //running cross-compiler to create target object files //running cross-compiler to create target object files + sh /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-binary/run-sbcl.sh --no-sysinit --no-userinit (running SBCL from: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-binary) This is SBCL 1.2.7, 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. * 5 * target features *SHEBANG-FEATURES*=(:SB-CORE-COMPRESSION :OS-PROVIDES-POLL :OS-PROVIDES-GETPROTOBY-R :OS-PROVIDES-SUSECONDS-T :OS-PROVIDES-BLKSIZE-T :OS-PROVIDES-PUTWC :OS-PROVIDES-DLADDR :OS-PROVIDES-DLOPEN :LITTLE-ENDIAN :LINKAGE-TABLE :SYMBOL-INFO-VOPS :ASH-RIGHT-VOPS :MULTIPLY-HIGH-VOPS :MEMORY-BARRIER-VOPS :PRECISE-ARG-COUNT-ERROR :INLINE-CONSTANTS :CYCLE-COUNTER :ALIEN-CALLBACKS :STACK-ALLOCATABLE-FIXED-OBJECTS :STACK-ALLOCATABLE-LISTS :STACK-ALLOCATABLE-VECTORS :STACK-ALLOCATABLE-CLOSURES :RAW-INSTANCE-INIT-VOPS :UNWIND-TO-FRAME-AND-CALL-VOP :COMPARE-AND-SWAP-VOPS :C-STACK-IS-CONTROL-STACK :STACK-GROWS-DOWNWARD-NOT-UPWARD :GENCGC :LARGEFILE :SB-FUTEX :LINUX :ELF :UNIX :X86 :IEEE-FLOATING-POINT :PACKAGE-LOCAL-NICKNAMES :SB-SOURCE-LOCATIONS :SB-EVAL :SB-UNICODE :SB-PACKAGE-LOCKS :SB-LDB :SB-SHOW :SB-DOC :SBCL :COMMON-LISP :ANSI-CL) target backend-subfeatures *SHEBANG-BACKEND-FEATURES*=NIL T * # * "obj/from-xc/" * T * T * /done with show.lisp /entering backq.lisp /backq.lisp 50 /backq.lisp 64 /backq.lisp 83 /backq.lisp 139 /done with backq.lisp /entering defsetfs.lisp /leaving defsetfs.lisp /binding *DELAYED-DEF!TYPES* /done binding *DELAYED-DEF!TYPES* /binding *DELAYED-DEF!CONSTANTS* /done binding *DELAYED-DEF!CONSTANTS* /entering parse-body.lisp /leaving parse-body.lisp ; in: LAMBDA (SB-KERNEL::NEW-VALUE SB-KERNEL:INSTANCE) ; (THE SB!C::CLAMBDA #:NEW-VALUE734) ; ; caught STYLE-WARNING: ; undefined type: CLAMBDA ; ; compilation unit finished ; Undefined type: ; CLAMBDA ; caught 1 STYLE-WARNING condition ; (THE SB!C:TN #:NEW-VALUE750) ; ; caught STYLE-WARNING: ; undefined type: TN ; ; compilation unit finished ; Undefined type: ; TN ; caught 1 STYLE-WARNING condition /early in globaldb.lisp cold init /done setting *INFO-ENVIRONMENT* /beginning *INFO-TYPES* initialization /done with *INFO-TYPES* initialization ; in: SB-XC:DEFMACRO DEFTYPE ; (SB!INT:BAD-TYPE SB!IMPL::NAME 'SYMBOL "Type name is not a symbol:~% ~S" ; SB!KERNEL:FORM) ; ; caught STYLE-WARNING: ; undefined function: BAD-TYPE ; ; compilation unit finished ; Undefined function: ; BAD-TYPE ; caught 1 STYLE-WARNING condition /in DEFINE-STORAGE-BASE /not :NON-PACKED, i.e. hairy case /doing second SETF /doing third SETF /doing fourth SETF /finished with DEFINE-STORAGE-BASE expansion /in DEFINE-STORAGE-BASE /not :NON-PACKED, i.e. hairy case /doing second SETF /doing third SETF /doing fourth SETF /finished with DEFINE-STORAGE-BASE expansion /in DEFINE-STORAGE-BASE /not :NON-PACKED, i.e. hairy case /doing second SETF /doing third SETF /doing fourth SETF /finished with DEFINE-STORAGE-BASE expansion /in DEFINE-STORAGE-BASE /finished with DEFINE-STORAGE-BASE expansion /in DEFINE-STORAGE-BASE /finished with DEFINE-STORAGE-BASE expansion /in DEFINE-STORAGE-BASE /not :NON-PACKED, i.e. hairy case /doing second SETF /doing third SETF /doing fourth SETF /finished with DEFINE-STORAGE-BASE expansion /done with loop over *!BUILT-IN-CLASSES* /about to define temporary STANDARD-CLASSes /defining temporary STANDARD-CLASS /done defining temporary STANDARD-CLASSes /primtype.lisp 17 /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) T /done with !DEF-PRIMITIVE-TYPE /primtype.lisp 20 /primtype.lisp 24 /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) POSITIVE-FIXNUM /done with !DEF-PRIMITIVE-TYPE /primtype.lisp 27 /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) UNSIGNED-BYTE-31 /done with !DEF-PRIMITIVE-TYPE /primtype.lisp 31 /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) UNSIGNED-BYTE-32 /done with !DEF-PRIMITIVE-TYPE /primtype.lisp 35 /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) FIXNUM /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SIGNED-BYTE-32 /done with !DEF-PRIMITIVE-TYPE /primtype.lisp 53 /primtype.lisp 68 /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) CHARACTER /done with !DEF-PRIMITIVE-TYPE /primtype.lisp 73 /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) FUNCTION /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) LIST /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) INSTANCE /done with !DEF-PRIMITIVE-TYPE /primtype.lisp 77 /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) FUNCALLABLE-INSTANCE /done with !DEF-PRIMITIVE-TYPE /primtype.lisp 81 /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) BIGNUM /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) RATIO /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) COMPLEX /done with !DEF-PRIMITIVE-TYPE /about to !DEF-PRIMITIVE-TYPE SINGLE-FLOAT /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SINGLE-FLOAT /done with !DEF-PRIMITIVE-TYPE /about to !DEF-PRIMITIVE-TYPE DOUBLE-FLOAT /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) DOUBLE-FLOAT /done with !DEF-PRIMITIVE-TYPE /about to !DEF-PRIMITIVE-TYPE COMPLEX-SINGLE-FLOAT /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) COMPLEX-SINGLE-FLOAT /done with !DEF-PRIMITIVE-TYPE /about to !DEF-PRIMITIVE-TYPE COMPLEX-DOUBLE-FLOAT /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) COMPLEX-DOUBLE-FLOAT /done with !DEF-PRIMITIVE-TYPE /primtype.lisp 96 /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SIMPLE-ARRAY-NIL /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SIMPLE-BASE-STRING /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SIMPLE-CHARACTER-STRING /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SIMPLE-ARRAY-SINGLE-FLOAT /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SIMPLE-ARRAY-DOUBLE-FLOAT /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SIMPLE-BIT-VECTOR /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SIMPLE-ARRAY-UNSIGNED-BYTE-2 /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SIMPLE-ARRAY-UNSIGNED-BYTE-4 /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SIMPLE-ARRAY-UNSIGNED-BYTE-7 /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SIMPLE-ARRAY-UNSIGNED-BYTE-8 /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SIMPLE-ARRAY-UNSIGNED-BYTE-15 /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SIMPLE-ARRAY-UNSIGNED-BYTE-16 /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SIMPLE-ARRAY-UNSIGNED-FIXNUM /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SIMPLE-ARRAY-UNSIGNED-BYTE-31 /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SIMPLE-ARRAY-UNSIGNED-BYTE-32 /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SIMPLE-ARRAY-SIGNED-BYTE-8 /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SIMPLE-ARRAY-SIGNED-BYTE-16 /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SIMPLE-ARRAY-FIXNUM /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SIMPLE-ARRAY-SIGNED-BYTE-32 /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SIMPLE-VECTOR /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SYSTEM-AREA-POINTER /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) WEAK-POINTER /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) CATCH-BLOCK /done with !DEF-PRIMITIVE-TYPE /primtype.lisp 147 /primtype.lisp 188 /primtype.lisp 191 /primtype.lisp end of file /parse-lambda-list.lisp 12 /parse-lambda-list.lisp end of file /host-alieneval.lisp 15 /host-alieneval.lisp end of file /host-c-call.lisp 12 /host-c-call.lisp end of file /compiler-deftype.lisp 14 /compiler-deftype.lisp end of file /late-type.lisp 19 /late-type.lisp end of file /deftypes-for-target.lisp 14 /about to force delayed DEF!TYPEs /done forcing delayed DEF!TYPEs /deftypes-for-target.lisp end of file /knownfun.lisp 17 /knownfun.lisp end of file /beginning class-init.lisp /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="T" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="CHARACTER" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SYMBOL" /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SYSTEM-AREA-POINTER" /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="WEAK-POINTER" /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="CODE-COMPONENT" /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="LRA" /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="FDEFN" /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="RANDOM-CLASS" /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="FUNCTION" /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="NUMBER" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="COMPLEX" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="COMPLEX-SINGLE-FLOAT" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="COMPLEX-DOUBLE-FLOAT" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="REAL" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="FLOAT" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SINGLE-FLOAT" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="DOUBLE-FLOAT" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="RATIONAL" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="RATIO" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="INTEGER" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="FIXNUM" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="BIGNUM" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="ARRAY" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-ARRAY" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SEQUENCE" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="VECTOR" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-VECTOR" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="BIT-VECTOR" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-BIT-VECTOR" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-ARRAY-UNSIGNED-BYTE-2" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-ARRAY-UNSIGNED-BYTE-4" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-ARRAY-UNSIGNED-BYTE-7" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-ARRAY-UNSIGNED-BYTE-8" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-ARRAY-UNSIGNED-BYTE-15" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-ARRAY-UNSIGNED-BYTE-16" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-ARRAY-UNSIGNED-FIXNUM" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-ARRAY-UNSIGNED-BYTE-31" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-ARRAY-UNSIGNED-BYTE-32" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-ARRAY-SIGNED-BYTE-8" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-ARRAY-SIGNED-BYTE-16" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-ARRAY-FIXNUM" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-ARRAY-SIGNED-BYTE-32" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-ARRAY-SINGLE-FLOAT" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-ARRAY-DOUBLE-FLOAT" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="STRING" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-STRING" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="VECTOR-NIL" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-ARRAY-NIL" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="BASE-STRING" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-BASE-STRING" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="CHARACTER-STRING" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-CHARACTER-STRING" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="LIST" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="CONS" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="NULL" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="STREAM" /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="FILE-STREAM" /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="STRING-STREAM" /done with class-init.lisp /code/defstruct.lisp 15 /code/defstruct.lisp end of file /code/alien-type.lisp 16 /code/alien-type.lisp end of file /precomputing numeric types /precomputing built-in symbol type specifiers /done with type-init.lisp STYLE-WARNING: redefining SB!THREAD:BARRIER in DEFMACRO STYLE-WARNING: redefining SB!THREAD:MAKE-MUTEX in DEFUN /about to set CxR source transforms /done setting CxR source transforms /walk.lisp 108 * PROCLAIM-TARGET-OPTIMIZATION * PROCLAIM-TARGET-OPTIMIZATION NIL NIL * IN-TARGET-CROSS-COMPILATION-MODE * IN-TARGET-CROSS-COMPILATION-MODE NIL NIL * # * # * # * NIL * # * :MINIMAL * creating directory: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/ creating directory: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/ creating directory: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/ ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-source-location.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFINE-COMPILER-MACRO SOURCE-LOCATION ...) ; x-compiling (DEFUN SOURCE-LOCATION ...) ; x-compiling (DEFCONSTANT +CODE-COVERAGE-UNMARKED+ ...) ; x-compiling (DEFMACRO WITH-SOURCE-LOCATION ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-source-location.lisp ; in: DEFMACRO WITH-SOURCE-LOCATION ; (DEFMACRO SB!C:WITH-SOURCE-LOCATION ((SB!C:SOURCE-LOCATION) &BODY SB!C::BODY) ; (SB!INT:QUASIQUOTE ; (WHEN #S(SB!IMPL::COMMA :EXPR SB!C:SOURCE-LOCATION :KIND 0) ; #S(SB!IMPL::COMMA :EXPR SB!C::BODY :KIND 2)))) ; --> PROGN EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* LET UNLESS ; --> IF ; ==> ; (SB!INT:LIST-OF-LENGTH-AT-LEAST-P #:ARGS6 1) ; ; caught STYLE-WARNING: ; undefined function: LIST-OF-LENGTH-AT-LEAST-P ; in: DEFUN SOURCE-LOCATION ; (SB!C::MAKE-DEFINITION-SOURCE-LOCATION) ; ; caught STYLE-WARNING: ; undefined function: MAKE-DEFINITION-SOURCE-LOCATION ; in: DEFINE-COMPILER-MACRO SOURCE-LOCATION ; (SB!C::MAKE-DEFINITION-SOURCE-LOCATION) ; ; caught STYLE-WARNING: ; undefined function: MAKE-DEFINITION-SOURCE-LOCATION ; in: DEFMACRO WITH-SOURCE-LOCATION ; (DEFMACRO SB!C:WITH-SOURCE-LOCATION ((SB!C:SOURCE-LOCATION) &BODY SB!C::BODY) ; (SB!INT:QUASIQUOTE ; (WHEN #S(SB!IMPL::COMMA :EXPR SB!C:SOURCE-LOCATION :KIND 0) ; #S(SB!IMPL::COMMA :EXPR SB!C::BODY :KIND 2)))) ; --> PROGN EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* LET UNLESS ; --> IF ; ==> ; (SB!INT:PROPER-LIST-OF-LENGTH-P #:ARGS5 1 1) ; ; caught STYLE-WARNING: ; undefined function: PROPER-LIST-OF-LENGTH-P ; in: DEFINE-COMPILER-MACRO SOURCE-LOCATION ; (DEFINE-COMPILER-MACRO SB!C:SOURCE-LOCATION ; NIL ; (SB!C::MAKE-DEFINITION-SOURCE-LOCATION)) ; --> PROGN EVAL-WHEN SB!C::%DEFINE-COMPILER-MACRO SB!C::%DEFINE-COMPILER-MACRO ; --> FUNCTION LET* LET UNLESS IF ; ==> ; (SB!INT:PROPER-LIST-OF-LENGTH-P #:ARGS2 0 0) ; ; caught STYLE-WARNING: ; undefined function: PROPER-LIST-OF-LENGTH-P ; ; compilation unit finished ; Undefined functions: ; LIST-OF-LENGTH-AT-LEAST-P MAKE-DEFINITION-SOURCE-LOCATION PROPER-LIST-OF-LENGTH-P ; caught 5 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/early-source-location.lisp-obj-tmp written ; compilation finished in 0:00:00.024 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/show.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!INT") ; x-compiling (DEFVAR */SHOW* ...) ; x-compiling (DEFUN CANNOT-/SHOW ...) ; x-compiling (DEFUN SUPPRESS-/SHOW-P ...) ; x-compiling (DEFMACRO /SHOW ...) ; x-compiling (DEFMACRO /NOSHOW ...) ; x-compiling (DEFMACRO /XHOW ...) ; x-compiling (DEFMACRO /NOXHOW ...) ; x-compiling (DEFMACRO /SHOW0 ...) ; x-compiling (DEFMACRO /NOSHOW0 ...) ; x-compiling (DEFMACRO /PRIMITIVE-PRINT ...) ; x-compiling (DEFMACRO /HEXSTR ...) ; x-compiling (DEFMACRO /NOHEXSTR ...) ; x-compiling (/SHOW0 "done with show.lisp") ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/show.lisp ; in: DEFUN CANNOT-/SHOW ; (CONCATENATE 'SIMPLE-BASE-STRING "/can't /SHOW:" ; (THE SIMPLE-BASE-STRING STRING)) ; ; caught STYLE-WARNING: ; undefined type: SB!EXT:CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; undefined type: SB!EXT:COMPILER-NOTE ; in: DEFMACRO /NOHEXSTR ; (DEFMACRO SB!INT:/NOHEXSTR (SB!INT::THING) (DECLARE (IGNORE SB!INT::THING))) ; --> PROGN EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* LET UNLESS ; --> IF ; ==> ; (SB!INT:PROPER-LIST-OF-LENGTH-P #:ARGS206 1 1) ; ; caught STYLE-WARNING: ; undefined function: PROPER-LIST-OF-LENGTH-P ; in: DEFMACRO /HEXSTR ; (DEFMACRO SB!INT:/HEXSTR (SB!INT::THING) ; (DECLARE (IGNORABLE SB!INT::THING)) ; (PROGN (SB!INT:QUASIQUOTE (SB!SYS:%PRIMITIVE PRINT (SB!INT:HEXSTR #))))) ; --> PROGN EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* LET UNLESS ; --> IF ; ==> ; (SB!INT:PROPER-LIST-OF-LENGTH-P #:ARGS203 1 1) ; ; caught STYLE-WARNING: ; undefined function: PROPER-LIST-OF-LENGTH-P ; in: DEFMACRO /PRIMITIVE-PRINT ; (DEFMACRO SB!INT:/PRIMITIVE-PRINT (SB!INT::THING) ; (DECLARE (IGNORABLE SB!INT::THING)) ; (PROGN (SB!INT:QUASIQUOTE (SB!SYS:%PRIMITIVE PRINT (THE SIMPLE-STRING #))))) ; --> PROGN EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* LET UNLESS ; --> IF ; ==> ; (SB!INT:PROPER-LIST-OF-LENGTH-P #:ARGS200 1 1) ; ; caught STYLE-WARNING: ; undefined function: PROPER-LIST-OF-LENGTH-P ; in: DEFMACRO /SHOW ; (DEFMACRO SB!INT:/SHOW (&REST SB!INT::XLIST) ; (FLET ((SB!INT::LITERAL-P (SB!INT::X) ; (OR # #))) ; (LET ((SB!INT::FORMAT-STREAM #) ; (SB!INT::FORMAT-REVERSE-REST) ; (SB!INT::FIRST-P T)) ; (WRITE-STRING "~&~<~;/" SB!INT::FORMAT-STREAM) ; (DOLIST (SB!INT::X SB!INT::XLIST) ; (IF SB!INT::FIRST-P ; # ; #) ; (IF # ; # ; #)) ; (WRITE-STRING "~;~:>~%" SB!INT::FORMAT-STREAM) ; (LET (# #) ; (SB!INT:QUASIQUOTE #))))) ; --> PROGN EVAL-WHEN ; ==> ; (SB!C::%DEFMACRO 'SB!INT:/SHOW ; #'(LAMBDA (#:.WHOLE. #:.ENVIRONMENT.) ; (DECLARE (IGNORE #:.ENVIRONMENT.)) ; (LET* () ; (LET* (#) ; (BLOCK SB!INT:/SHOW #)))) ; '(&REST SB!INT::XLIST) NIL '(MACRO-FUNCTION SB!INT:/SHOW) ; (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined type: SB!C::STRING-OUTPUT-STREAM ; ; compilation unit finished ; Undefined types: ; SB!EXT:CODE-DELETION-NOTE SB!EXT:COMPILER-NOTE SB!C::STRING-OUTPUT-STREAM ; Undefined function: ; PROPER-LIST-OF-LENGTH-P ; caught 6 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/show.lisp-obj-tmp written ; compilation finished in 0:00:00.227 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-constants.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEF SB-XC:LAMBDA-LIST-KEYWORDS ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/early-constants.lisp-obj-tmp written ; compilation finished in 0:00:00.008 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/backq.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (/SHOW0 "entering backq.lisp") ; x-compiling (DEFSTRUCT (COMMA # ...) ...) ; x-compiling (DECLAIM (FREEZE-TYPE COMMA)) ; x-compiling (DEFCONSTANT !+COMMA-DOT+ ...) ; x-compiling (DEFCONSTANT !+COMMA-AT+ ...) ; x-compiling (DEFUN UNQUOTE-NSPLICE ...) ; x-compiling (DEFUN UNQUOTE-SPLICE ...) ; x-compiling (DEFUN UNQUOTE* ...) ; x-compiling (DEFUN UNQUOTE*-SPLICE ...) ; x-compiling (DECLAIM (INLINE COMMA-CONSTRUCTOR ...)) ; x-compiling (DEFUN COMMA-CONSTRUCTOR ...) ; x-compiling (DEFUN COMMA-SPLICING-P ...) ; x-compiling (DECLAIM (INLINE SINGLETON-P)) ; x-compiling (DEFUN SINGLETON-P ...) ; x-compiling (DECLAIM (TYPE # ...)) ; x-compiling (DEFVAR *BACKQUOTE-DEPTH* ...) ; x-compiling (DEFVAR *BQ-ERROR* ...) ; x-compiling (/SHOW0 "backq.lisp 50") ; x-compiling (DEFUN BACKQUOTE-CHARMACRO ...) ; x-compiling (/SHOW0 "backq.lisp 64") ; x-compiling (DEFUN COMMA-CHARMACRO ...) ; x-compiling (/SHOW0 "backq.lisp 83") ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DECLAIM (INLINE QQ-SUBFORM-SPLICING-P)) ; x-compiling (DEFUN QQ-SUBFORM-SPLICING-P ...) ; x-compiling (DEFUN EXPAND-QUASIQUOTE ...) ; x-compiling (DEFINE-COMPILER-MACRO QUASIQUOTE ...) ; x-compiling (DEFMACRO QUASIQUOTE ...) ; x-compiling (DEFUN QQ-TEMPLATE-TO-SEXPR ...) ; x-compiling (/SHOW0 "backq.lisp 139") ; x-compiling (DEFUN QQ-FOLD-SUFFIX ...) ; x-compiling (DEFUN QQ-MAP-TEMPLATE-TO-LIST ...) ; x-compiling (DEFUN QQ-TEMPLATE-1 ...) ; x-compiling (SETF (SYMBOL-FUNCTION #) ...) ; x-compiling (DEFUN !BACKQ-COLD-INIT ...) ; x-compiling (/SHOW0 "done with backq.lisp") ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/backq.lisp ; in: DEFSTRUCT COMMA ; (DEFSTRUCT ; (SB!IMPL::COMMA ; (:CONSTRUCTOR SB!INT:UNQUOTE ; (SB!IMPL::EXPR &OPTIONAL (SB!IMPL::KIND 0))) ; (:CONSTRUCTOR SB!IMPL::%DEFAULT-COMMA-CONSTRUCTOR) (:COPIER NIL)) ; (SB!IMPL::EXPR NIL :READ-ONLY T) ; (SB!IMPL::KIND NIL :READ-ONLY T :TYPE (MEMBER 0 1 2))) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: DEFUN QQ-TEMPLATE-TO-SEXPR ; (MULTIPLE-VALUE-BIND (SB!IMPL::SUBEXPR SB!IMPL::OPERATOR) ; (SB!IMPL::QQ-TEMPLATE-TO-SEXPR (SB!INT:COMMA-EXPR SB!IMPL::EXPR) ; (1- SB!IMPL::DEPTH) SB!IMPL::COMPILER-P) ; (WHEN (EQ SB!IMPL::OPERATOR 'QUOTE) ; (SETQ SB!IMPL::SUBEXPR (LIST 'QUOTE SB!IMPL::SUBEXPR) ; SB!IMPL::OPERATOR 'EVAL)) ; (VALUES ; (LIST (COND (# #) (# 'SB!IMPL::UNQUOTE*-SPLICE) (T 'SB!IMPL::UNQUOTE*)) ; SB!IMPL::SUBEXPR) ; SB!IMPL::OPERATOR)) ; --> MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!IMPL::SUBEXPR SB!IMPL::OPERATOR #:G66) {C27C951}> ; SB!IMPL::SUBEXPR SB!IMPL::OPERATOR NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN EXPAND-QUASIQUOTE ; (MULTIPLE-VALUE-BIND (SB!IMPL::EXPR SB!IMPL::OPERATOR) ; (SB!IMPL::QQ-TEMPLATE-TO-SEXPR SB!IMPL::THING 0 SB!IMPL::COMPILER-P) ; (ECASE SB!IMPL::OPERATOR ; (EVAL SB!IMPL::EXPR) ; (QUOTE (LIST 'QUOTE SB!IMPL::EXPR)))) ; --> MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!IMPL::EXPR SB!IMPL::OPERATOR #:G52) {C19D289}> ; SB!IMPL::EXPR SB!IMPL::OPERATOR NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFSTRUCT COMMA ; (DEFSTRUCT ; (SB!IMPL::COMMA ; (:CONSTRUCTOR SB!INT:UNQUOTE ; (SB!IMPL::EXPR &OPTIONAL (SB!IMPL::KIND 0))) ; (:CONSTRUCTOR SB!IMPL::%DEFAULT-COMMA-CONSTRUCTOR) (:COPIER NIL)) ; (SB!IMPL::EXPR NIL :READ-ONLY T) ; (SB!IMPL::KIND NIL :READ-ONLY T :TYPE (MEMBER 0 1 2))) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:.DEFAULTING-TEMP. #:.DEFAULTING-TEMP.) {BEE7C51}> ; NIL NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 10 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/backq.lisp ; in: DEFUN QQ-FOLD-SUFFIX ; (MAPCAR #'CAR SB!IMPL::CONST-TAIL) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN UNQUOTE*-SPLICE ; (MAPCAR #'SB!IMPL::UNQUOTE-SPLICE LIST) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN UNQUOTE* ; (MAPCAR #'SB!INT:UNQUOTE LIST) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; ; caught STYLE-WARNING: ; 2 more uses of undefined type COMPILER-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/backq.lisp ; in: DEFMACRO QUASIQUOTE ; (DEFMACRO SB!INT:QUASIQUOTE (SB!IMPL::THING) ; (SB!IMPL::EXPAND-QUASIQUOTE SB!IMPL::THING NIL)) ; --> PROGN EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* LET UNLESS ; --> IF ; ==> ; (SB!INT:PROPER-LIST-OF-LENGTH-P #:ARGS62 1 1) ; ; caught STYLE-WARNING: ; undefined function: PROPER-LIST-OF-LENGTH-P ; in: DEFINE-COMPILER-MACRO QUASIQUOTE ; (DEFINE-COMPILER-MACRO SB!INT:QUASIQUOTE ; (SB!IMPL::THING) ; (SB!IMPL::EXPAND-QUASIQUOTE SB!IMPL::THING T)) ; --> PROGN EVAL-WHEN SB!C::%DEFINE-COMPILER-MACRO SB!C::%DEFINE-COMPILER-MACRO ; --> FUNCTION LET* LET UNLESS IF ; ==> ; (SB!INT:PROPER-LIST-OF-LENGTH-P #:ARGS59 1 1) ; ; caught STYLE-WARNING: ; undefined function: PROPER-LIST-OF-LENGTH-P ; ; compilation unit finished ; Undefined types: ; CODE-DELETION-NOTE COMPILER-NOTE ; Undefined functions: ; SB!KERNEL::%TARGET-DEFSTRUCT PROPER-LIST-OF-LENGTH-P ; caught 11 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/backq.lisp-obj-tmp written ; compilation finished in 0:00:00.165 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/globals.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DECLAIM (SPECIAL SB!PRETTY::*STANDARD-PPRINT-DISPATCH-TABLE* ...)) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DECLAIM (FTYPE # ...)) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/globals.lisp-obj-tmp written ; compilation finished in 0:00:00.006 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/defsetfs.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (SB!INT:/SHOW0 "entering defsetfs.lisp") ; x-compiling (IN-PACKAGE "SB!ALIEN") ; x-compiling (DEFSETF SLOT ...) ; x-compiling (DEFSETF DEREF ...) ; x-compiling (DEFSETF %HEAP-ALIEN ...) ; x-compiling (IN-PACKAGE "SB!BIGNUM") ; x-compiling (DEFSETF %BIGNUM-REF ...) ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFSETF WORD-SAP-REF ...) ; x-compiling (IN-PACKAGE "SB!DI") ; x-compiling (DEFSETF STACK-REF ...) ; x-compiling (DEFSETF DEBUG-VAR-VALUE ...) ; x-compiling (DEFSETF DEBUG-VAR-VALUE ...) ; x-compiling (DEFSETF BREAKPOINT-INFO ...) ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (DEFSETF %INSTANCE-REF ...) ; x-compiling (DEFSETF %RAW-INSTANCE-REF/WORD ...) ; x-compiling (DEFSETF %RAW-INSTANCE-REF/SINGLE ...) ; x-compiling (DEFSETF %RAW-INSTANCE-REF/DOUBLE ...) ; x-compiling (DEFSETF %RAW-INSTANCE-REF/COMPLEX-SINGLE ...) ; x-compiling (DEFSETF %RAW-INSTANCE-REF/COMPLEX-DOUBLE ...) ; x-compiling (DEFSETF %INSTANCE-LAYOUT ...) ; x-compiling (DEFSETF %FUNCALLABLE-INSTANCE-INFO ...) ; x-compiling (DEFSETF %FUNCALLABLE-INSTANCE-LAYOUT ...) ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFSETF CAR ...) ; x-compiling (DEFSETF CDR ...) ; x-compiling (DEFSETF CAAR ...) ; x-compiling (DEFSETF CADR ...) ; x-compiling (DEFSETF CDAR ...) ; x-compiling (DEFSETF CDDR ...) ; x-compiling (DEFSETF CAAAR ...) ; x-compiling (DEFSETF CADAR ...) ; x-compiling (DEFSETF CDAAR ...) ; x-compiling (DEFSETF CDDAR ...) ; x-compiling (DEFSETF CAADR ...) ; x-compiling (DEFSETF CADDR ...) ; x-compiling (DEFSETF CDADR ...) ; x-compiling (DEFSETF CDDDR ...) ; x-compiling (DEFSETF CAAAAR ...) ; x-compiling (DEFSETF CADAAR ...) ; x-compiling (DEFSETF CDAAAR ...) ; x-compiling (DEFSETF CDDAAR ...) ; x-compiling (DEFSETF CAADAR ...) ; x-compiling (DEFSETF CADDAR ...) ; x-compiling (DEFSETF CDADAR ...) ; x-compiling (DEFSETF CDDDAR ...) ; x-compiling (DEFSETF CAAADR ...) ; x-compiling (DEFSETF CADADR ...) ; x-compiling (DEFSETF CDAADR ...) ; x-compiling (DEFSETF CDDADR ...) ; x-compiling (DEFSETF CAADDR ...) ; x-compiling (DEFSETF CADDDR ...) ; x-compiling (DEFSETF CDADDR ...) ; x-compiling (DEFSETF CDDDDR ...) ; x-compiling (DEFSETF FIRST ...) ; x-compiling (DEFSETF SECOND ...) ; x-compiling (DEFSETF THIRD ...) ; x-compiling (DEFSETF FOURTH ...) ; x-compiling (DEFSETF FIFTH ...) ; x-compiling (DEFSETF SIXTH ...) ; x-compiling (DEFSETF SEVENTH ...) ; x-compiling (DEFSETF EIGHTH ...) ; x-compiling (DEFSETF NINTH ...) ; x-compiling (DEFSETF TENTH ...) ; x-compiling (DEFSETF REST ...) ; x-compiling (DEFSETF ELT ...) ; x-compiling (DEFSETF ROW-MAJOR-AREF ...) ; x-compiling (DEFSETF SVREF ...) ; x-compiling (DEFSETF CHAR ...) ; x-compiling (DEFSETF SCHAR ...) ; x-compiling (DEFSETF %ARRAY-DIMENSION ...) ; x-compiling (DEFSETF %VECTOR-RAW-BITS ...) ; x-compiling (DEFSETF SYMBOL-VALUE ...) ; x-compiling (DEFSETF SYMBOL-GLOBAL-VALUE ...) ; x-compiling (DEFSETF SYMBOL-PLIST ...) ; x-compiling (DEFSETF NTH ...) ; x-compiling (DEFSETF FILL-POINTER ...) ; x-compiling (DEFSETF SAP-REF-8 ...) ; x-compiling (DEFSETF SIGNED-SAP-REF-8 ...) ; x-compiling (DEFSETF SAP-REF-16 ...) ; x-compiling (DEFSETF SIGNED-SAP-REF-16 ...) ; x-compiling (DEFSETF SAP-REF-32 ...) ; x-compiling (DEFSETF SIGNED-SAP-REF-32 ...) ; x-compiling (DEFSETF SAP-REF-64 ...) ; x-compiling (DEFSETF SIGNED-SAP-REF-64 ...) ; x-compiling (DEFSETF SAP-REF-WORD ...) ; x-compiling (DEFSETF SIGNED-SAP-REF-WORD ...) ; x-compiling (DEFSETF SAP-REF-SAP ...) ; x-compiling (DEFSETF SAP-REF-LISPOBJ ...) ; x-compiling (DEFSETF SAP-REF-SINGLE ...) ; x-compiling (DEFSETF SAP-REF-DOUBLE ...) ; x-compiling (DEFSETF SUBSEQ ...) ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFSETF FDEFINITION ...) ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (DEFSETF CODE-HEADER-REF ...) ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFSETF CONTEXT-REGISTER ...) ; x-compiling (DEFSETF CONTEXT-FLOAT-REGISTER ...) ; x-compiling (/SHOW0 "leaving defsetfs.lisp") ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/defsetfs.lisp ; in: DEFSETF %HEAP-ALIEN ; (DEFSETF SB!ALIEN-INTERNALS:%HEAP-ALIEN SB!ALIEN-INTERNALS:%SET-HEAP-ALIEN) ; --> EVAL-WHEN SB!IMPL::ASSIGN-SETF-MACRO ; ==> ; (SB!IMPL::ASSIGN-SETF-MACRO 'SB!ALIEN-INTERNALS:%HEAP-ALIEN NIL NIL ; 'SB!ALIEN-INTERNALS:%SET-HEAP-ALIEN NIL) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::ASSIGN-SETF-MACRO ; in: DEFSETF DEREF ; (DEFSETF SB!ALIEN:DEREF (SB!ALIEN:ALIEN &REST SB!ALIEN::INDICES) ; (SB!ALIEN::VALUE) ; (SB!INT:QUASIQUOTE ; (SB!ALIEN-INTERNALS:%SET-DEREF ; #S(SB!IMPL::COMMA :EXPR SB!ALIEN:ALIEN :KIND 0) ; #S(SB!IMPL::COMMA :EXPR SB!ALIEN::VALUE :KIND 0) ; #S(SB!IMPL::COMMA :EXPR SB!ALIEN::INDICES :KIND 2)))) ; --> EVAL-WHEN SB!IMPL::ASSIGN-SETF-MACRO ; ==> ; (SB!IMPL::ASSIGN-SETF-MACRO 'SB!ALIEN:DEREF ; (LAMBDA (#:ACCESS-FORM-1 #:ENVIRONMENT2) ; (DECLARE (IGNORE #:ENVIRONMENT2)) ; (SB!IMPL::%DEFSETF #:ACCESS-FORM-1 1 ; (LAMBDA (#:WHOLE0) ; (LET* # ; # ; # ; #)))) ; '(SB!ALIEN:ALIEN &REST SB!ALIEN::INDICES) NIL ; 'NIL) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::ASSIGN-SETF-MACRO ; in: DEFSETF SLOT ; (DEFSETF SB!ALIEN:SLOT SB!ALIEN-INTERNALS:%SET-SLOT) ; --> EVAL-WHEN SB!IMPL::ASSIGN-SETF-MACRO ; ==> ; (SB!IMPL::ASSIGN-SETF-MACRO 'SB!ALIEN:SLOT NIL NIL ; 'SB!ALIEN-INTERNALS:%SET-SLOT NIL) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::ASSIGN-SETF-MACRO ; ; caught STYLE-WARNING: ; 87 more uses of undefined function SB!IMPL::ASSIGN-SETF-MACRO ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/defsetfs.lisp ; in: DEFSETF DEREF ; (DEFSETF SB!ALIEN:DEREF (SB!ALIEN:ALIEN &REST SB!ALIEN::INDICES) ; (SB!ALIEN::VALUE) ; (SB!INT:QUASIQUOTE ; (SB!ALIEN-INTERNALS:%SET-DEREF ; #S(SB!IMPL::COMMA :EXPR SB!ALIEN:ALIEN :KIND 0) ; #S(SB!IMPL::COMMA :EXPR SB!ALIEN::VALUE :KIND 0) ; #S(SB!IMPL::COMMA :EXPR SB!ALIEN::INDICES :KIND 2)))) ; --> EVAL-WHEN SB!IMPL::ASSIGN-SETF-MACRO SB!IMPL::ASSIGN-SETF-MACRO LAMBDA ; --> FUNCTION SB!IMPL::%DEFSETF LAMBDA FUNCTION LET* LET UNLESS IF ; ==> ; (SB!INT:LIST-OF-LENGTH-AT-LEAST-P #:ARGS3 1) ; ; caught STYLE-WARNING: ; undefined function: LIST-OF-LENGTH-AT-LEAST-P ; in: DEFSETF CADR ; (DEFSETF CADR (SB!IMPL::X) ; (SB!IMPL::V) ; (SB!INT:QUASIQUOTE ; (SB!KERNEL:%RPLACA (CDR #S(SB!IMPL::COMMA :EXPR SB!IMPL::X :KIND 0)) ; #S(SB!IMPL::COMMA :EXPR SB!IMPL::V :KIND 0)))) ; --> EVAL-WHEN SB!IMPL::ASSIGN-SETF-MACRO SB!IMPL::ASSIGN-SETF-MACRO LAMBDA ; --> FUNCTION SB!IMPL::%DEFSETF LAMBDA FUNCTION LET* LET UNLESS IF ; ==> ; (SB!INT:PROPER-LIST-OF-LENGTH-P #:ARGS29 2 2) ; ; caught STYLE-WARNING: ; undefined function: PROPER-LIST-OF-LENGTH-P ; in: DEFSETF CAAR ; (DEFSETF CAAR (SB!IMPL::X) ; (SB!IMPL::V) ; (SB!INT:QUASIQUOTE ; (SB!KERNEL:%RPLACA (CAR #S(SB!IMPL::COMMA :EXPR SB!IMPL::X :KIND 0)) ; #S(SB!IMPL::COMMA :EXPR SB!IMPL::V :KIND 0)))) ; --> EVAL-WHEN SB!IMPL::ASSIGN-SETF-MACRO SB!IMPL::ASSIGN-SETF-MACRO LAMBDA ; --> FUNCTION SB!IMPL::%DEFSETF LAMBDA FUNCTION LET* LET UNLESS IF ; ==> ; (SB!INT:PROPER-LIST-OF-LENGTH-P #:ARGS16 2 2) ; ; caught STYLE-WARNING: ; undefined function: PROPER-LIST-OF-LENGTH-P ; in: DEFSETF DEREF ; (DEFSETF SB!ALIEN:DEREF (SB!ALIEN:ALIEN &REST SB!ALIEN::INDICES) ; (SB!ALIEN::VALUE) ; (SB!INT:QUASIQUOTE ; (SB!ALIEN-INTERNALS:%SET-DEREF ; #S(SB!IMPL::COMMA :EXPR SB!ALIEN:ALIEN :KIND 0) ; #S(SB!IMPL::COMMA :EXPR SB!ALIEN::VALUE :KIND 0) ; #S(SB!IMPL::COMMA :EXPR SB!ALIEN::INDICES :KIND 2)))) ; --> EVAL-WHEN SB!IMPL::ASSIGN-SETF-MACRO SB!IMPL::ASSIGN-SETF-MACRO LAMBDA ; --> FUNCTION SB!IMPL::%DEFSETF LAMBDA FUNCTION LET* LET UNLESS IF ; ==> ; (SB!INT:PROPER-LIST-OF-LENGTH-P #:ARGS4 2 2) ; ; caught STYLE-WARNING: ; undefined function: PROPER-LIST-OF-LENGTH-P ; ; caught STYLE-WARNING: ; 36 more uses of undefined function PROPER-LIST-OF-LENGTH-P ; ; compilation unit finished ; Undefined functions: ; SB!IMPL::ASSIGN-SETF-MACRO LIST-OF-LENGTH-AT-LEAST-P PROPER-LIST-OF-LENGTH-P ; caught 9 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/defsetfs.lisp-obj-tmp written ; compilation finished in 0:00:00.386 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/cold-init-helper-macros.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (DEFVAR *!COLD-INIT-FORMS*) ; x-compiling (DEFMACRO !BEGIN-COLLECTING-COLD-INIT-FORMS ...) ; x-compiling (DEFMACRO !COLD-INIT-FORMS ...) ; x-compiling (DEFMACRO !DEFUN-FROM-COLLECTED-COLD-INIT-FORMS ...) ; x-compiling (DEF !DEFGLOBAL ...) ; x-compiling (DEF !DEFPARAMETER ...) ; x-compiling (DEF !DEFVAR ...) ; x-compiling (DEFUN !DELAYED-COLD-SET-SYMBOL-VALUE ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/cold-init-helper-macros.lisp ; in: DEF !DEFGLOBAL ; (SB!KERNEL::DEF SB!INT:!DEFGLOBAL SB!EXT:DEFGLOBAL) ; --> DEFMACRO PROGN EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* ; --> LET UNLESS IF ; ==> ; (SB!INT:PROPER-LIST-OF-LENGTH-P #:ARGS20 2 3) ; ; caught STYLE-WARNING: ; undefined function: PROPER-LIST-OF-LENGTH-P ; in: DEFMACRO !DEFUN-FROM-COLLECTED-COLD-INIT-FORMS ; (DEFMACRO SB!INT:!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS (SB!KERNEL::NAME) ; (SB!INT:QUASIQUOTE ; (PROGN ; (DEFUN #S(SB!IMPL::COMMA :EXPR SB!KERNEL::NAME :KIND 0) () ; #S(SB!IMPL::COMMA :EXPR SB!KERNEL::*!COLD-INIT-FORMS* :KIND 2) ; (VALUES)) ; (EVAL-WHEN (:COMPILE-TOPLEVEL :EXECUTE) ; (MAKUNBOUND 'SB!KERNEL::*!COLD-INIT-FORMS*))))) ; --> PROGN EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* LET UNLESS ; --> IF ; ==> ; (SB!INT:PROPER-LIST-OF-LENGTH-P #:ARGS5 1 1) ; ; caught STYLE-WARNING: ; undefined function: PROPER-LIST-OF-LENGTH-P ; in: DEFMACRO !BEGIN-COLLECTING-COLD-INIT-FORMS ; (DEFMACRO SB!INT:!BEGIN-COLLECTING-COLD-INIT-FORMS () ; '(EVAL-WHEN (:COMPILE-TOPLEVEL :EXECUTE) ; (WHEN (BOUNDP 'SB!KERNEL::*!COLD-INIT-FORMS*) ; (WARN "discarding old *!COLD-INIT-FORMS* value")) ; (SETF SB!KERNEL::*!COLD-INIT-FORMS* NIL))) ; --> PROGN EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* LET UNLESS ; --> IF ; ==> ; (SB!INT:PROPER-LIST-OF-LENGTH-P #:ARGS0 0 0) ; ; caught STYLE-WARNING: ; undefined function: PROPER-LIST-OF-LENGTH-P ; ; caught STYLE-WARNING: ; 2 more uses of undefined function PROPER-LIST-OF-LENGTH-P ; ; compilation unit finished ; Undefined function: ; PROPER-LIST-OF-LENGTH-P ; caught 4 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/cold-init-helper-macros.lisp-obj-tmp written ; compilation finished in 0:00:00.042 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/uncross.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!INT") ; x-compiling (DECLAIM (INLINE UNCROSS)) ; x-compiling (DEFUN UNCROSS ...) ; x-compiling (DEFMACRO !UNCROSS-FORMAT-CONTROL ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/uncross.lisp ; in: DEFMACRO !UNCROSS-FORMAT-CONTROL ; (DEFMACRO SB!INT:!UNCROSS-FORMAT-CONTROL (STRING) ; (LET ((SB!INT::P 0)) ; (LOOP (SETQ SB!INT::P #) ; (UNLESS SB!INT::P (RETURN STRING)) ; (SETF # #\-)))) ; --> PROGN EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* LET UNLESS ; --> IF ; ==> ; (SB!INT:PROPER-LIST-OF-LENGTH-P #:ARGS1 1 1) ; ; caught STYLE-WARNING: ; undefined function: PROPER-LIST-OF-LENGTH-P ; ; compilation unit finished ; Undefined function: ; PROPER-LIST-OF-LENGTH-P ; caught 1 STYLE-WARNING condition ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/uncross.lisp-obj-tmp written ; compilation finished in 0:00:00.104 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/primordial-type.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (!DEFGLOBAL *TYPE-SYSTEM-INITIALIZED* ...) ; x-compiling (DEFGLOBAL *WILD-TYPE* ...) ; x-compiling (DEFGLOBAL *EMPTY-TYPE* ...) ; x-compiling (DEFGLOBAL *UNIVERSAL-TYPE* ...) ; x-compiling (DEFGLOBAL *INSTANCE-TYPE* ...) ; x-compiling (DEFGLOBAL *FUNCALLABLE-INSTANCE-TYPE* ...) ; x-compiling (DEFGLOBAL *EXTENDED-SEQUENCE-TYPE* ...) ; x-compiling (DEFGLOBAL *UNIVERSAL-FUN-TYPE* ...) ; x-compiling (DEFGLOBAL **BUILT-IN-CLASS-CODES** ...) ; x-compiling (DECLAIM (TYPE SIMPLE-VECTOR ...)) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/primordial-type.lisp ; in: DEFGLOBAL *EMPTY-TYPE* ; (SB!EXT:DEFGLOBAL SB!KERNEL:*EMPTY-TYPE* -1) ; --> PROGN LET LET ; ==> ; (SB!IMPL::%DEFGLOBAL 'SB!KERNEL:*EMPTY-TYPE* (UNLESS #:BOUNDP -1) #:BOUNDP ; 'NIL NIL (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::%DEFGLOBAL ; in: DEFGLOBAL *WILD-TYPE* ; (SB!EXT:DEFGLOBAL SB!KERNEL:*WILD-TYPE* -1) ; --> PROGN LET LET ; ==> ; (SB!IMPL::%DEFGLOBAL 'SB!KERNEL:*WILD-TYPE* (UNLESS #:BOUNDP -1) #:BOUNDP ; 'NIL NIL (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::%DEFGLOBAL ; in: !DEFGLOBAL *TYPE-SYSTEM-INITIALIZED* ; (SB!INT:!DEFGLOBAL SB!KERNEL:*TYPE-SYSTEM-INITIALIZED* NIL) ; --> PROGN SB!EXT:DEFGLOBAL PROGN LET LET ; ==> ; (SB!IMPL::%DEFGLOBAL 'SB!KERNEL:*TYPE-SYSTEM-INITIALIZED* ; (UNLESS #:BOUNDP NIL) #:BOUNDP 'NIL NIL ; (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::%DEFGLOBAL ; ; caught STYLE-WARNING: ; 6 more uses of undefined function SB!IMPL::%DEFGLOBAL ; ; compilation unit finished ; Undefined function: ; SB!IMPL::%DEFGLOBAL ; caught 4 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/primordial-type.lisp-obj-tmp written ; compilation finished in 0:00:00.026 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-defbangmethod.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFMACRO SB-XC:DEFMETHOD ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/early-defbangmethod.lisp-obj-tmp written ; compilation finished in 0:00:00.006 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/defbangtype.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (DEFMACRO DEF!TYPE ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/defbangtype.lisp ; in: DEFMACRO DEF!TYPE ; (DEFMACRO SB!INT:DEF!TYPE (SB!KERNEL::NAME &REST REST) ; (SB!INT:QUASIQUOTE ; (PROGN ; (DEFTYPE #S(SB!IMPL::COMMA :EXPR SB!KERNEL::NAME :KIND 0) ; #S(SB!IMPL::COMMA :EXPR REST :KIND 2))))) ; --> PROGN EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* LET UNLESS ; --> IF ; ==> ; (SB!INT:LIST-OF-LENGTH-AT-LEAST-P #:ARGS0 1) ; ; caught STYLE-WARNING: ; undefined function: LIST-OF-LENGTH-AT-LEAST-P ; ; compilation unit finished ; Undefined function: ; LIST-OF-LENGTH-AT-LEAST-P ; caught 1 STYLE-WARNING condition ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/defbangtype.lisp-obj-tmp written ; compilation finished in 0:00:00.009 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/defbangmacro.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFMACRO DEF!MACRO ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/defbangmacro.lisp ; in: DEFMACRO DEF!MACRO ; (DEFMACRO SB!INT:DEF!MACRO (SB!IMPL::NAME &REST REST) ; (SB!INT:QUASIQUOTE ; (SB!INT:DEFMACRO-MUNDANELY #S(SB!IMPL::COMMA :EXPR SB!IMPL::NAME :KIND 0) ; #S(SB!IMPL::COMMA :EXPR REST :KIND 2)))) ; --> PROGN EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* LET UNLESS ; --> IF ; ==> ; (SB!INT:LIST-OF-LENGTH-AT-LEAST-P #:ARGS0 1) ; ; caught STYLE-WARNING: ; undefined function: LIST-OF-LENGTH-AT-LEAST-P ; ; compilation unit finished ; Undefined function: ; LIST-OF-LENGTH-AT-LEAST-P ; caught 1 STYLE-WARNING condition ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/defbangmacro.lisp-obj-tmp written ; compilation finished in 0:00:00.009 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/defbangconstant.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (DEFMACRO DEF!CONSTANT ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/defbangconstant.lisp ; in: DEFMACRO DEF!CONSTANT ; (DEFMACRO SB!INT:DEF!CONSTANT ; (&WHOLE SB!KERNEL::WHOLE SB!KERNEL::NAME SB!KERNEL::VALUE ; &OPTIONAL SB!KERNEL::DOC) ; (DECLARE (IGNORE SB!KERNEL::VALUE SB!KERNEL::DOC SB!KERNEL::NAME)) ; (SB!INT:QUASIQUOTE ; (PROGN (DEFCONSTANT #S(SB!IMPL::COMMA :EXPR # :KIND 2))))) ; --> PROGN EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* LET UNLESS ; --> IF ; ==> ; (SB!INT:PROPER-LIST-OF-LENGTH-P #:ARGS0 2 3) ; ; caught STYLE-WARNING: ; undefined function: PROPER-LIST-OF-LENGTH-P ; ; compilation unit finished ; Undefined function: ; PROPER-LIST-OF-LENGTH-P ; caught 1 STYLE-WARNING condition ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/defbangconstant.lisp-obj-tmp written ; compilation finished in 0:00:00.011 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/primordial-extensions.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEF!CONSTANT +EMPTY-HT-SLOT+ ...) ; x-compiling (DEFUN FROB-DO-BODY ...) ; x-compiling (DEFMACRO WITH-UNIQUE-NAMES ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN MAKE-GENSYM-LIST ...) ; x-compiling (DECLAIM (TYPE PACKAGE ...)) ; x-compiling (DEFGLOBAL *CL-PACKAGE* ...) ; x-compiling (DEFGLOBAL *KEYWORD-PACKAGE* ...) ; x-compiling (DEFUN SYMBOLICATE ...) ; x-compiling (DEFUN GENSYMIFY ...) ; x-compiling (DEFUN KEYWORDICATE ...) ; x-compiling (DEFUN SANE-PACKAGE ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/primordial-extensions.lisp ; in: DEFUN SANE-PACKAGE ; (TYPE-OF SB!IMPL::MAYBE-PACKAGE) ; ==> ; SB!IMPL::MAYBE-PACKAGE ; ; note: deleting unreachable code ; x-compiling (DEFUN SANE-DEFAULT-PATHNAME-DEFAULTS ...) ; x-compiling (DEF!MACRO STRING-DISPATCH ...) ; x-compiling (DEFMACRO DEFENUM ...) ; x-compiling (DEFMACRO DEFCONSTANT-EQX ...) ; x-compiling (DEFUN %DEFCONSTANT-EQX-VALUE ...) ; x-compiling (DEFUN PROPER-LIST-OF-LENGTH-P ...) ; x-compiling (DEFUN PROPER-LIST-P ...) ; x-compiling (DEFMACRO DEFINE-UNSUPPORTED-FUN ...) ; x-compiling (DEF!MACRO DO-ANONYMOUS ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/primordial-extensions.lisp ; in: DEFGLOBAL *KEYWORD-PACKAGE* ; (SB!EXT:DEFGLOBAL SB!INT:*KEYWORD-PACKAGE* (FIND-PACKAGE "KEYWORD")) ; --> PROGN LET LET ; ==> ; (SB!IMPL::%DEFGLOBAL 'SB!INT:*KEYWORD-PACKAGE* ; (UNLESS #:BOUNDP (FIND-PACKAGE "KEYWORD")) #:BOUNDP 'NIL ; NIL (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: %DEFGLOBAL ; in: DEFGLOBAL *CL-PACKAGE* ; (SB!EXT:DEFGLOBAL SB!INT:*CL-PACKAGE* (FIND-PACKAGE "COMMON-LISP")) ; --> PROGN LET LET ; ==> ; (SB!IMPL::%DEFGLOBAL 'SB!INT:*CL-PACKAGE* ; (UNLESS #:BOUNDP (FIND-PACKAGE "COMMON-LISP")) #:BOUNDP ; 'NIL NIL (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: %DEFGLOBAL ; in: DEFUN MAKE-GENSYM-LIST ; (DEFUN SB!INT:MAKE-GENSYM-LIST (SB!IMPL::N &OPTIONAL SB!IMPL::NAME) ; (WHEN (EQ T SB!IMPL::NAME) (BREAK)) ; (IF SB!IMPL::NAME ; (LOOP SB!IMPL::REPEAT SB!IMPL::N ; SB!INT:COLLECT (SB-XC:GENSYM (STRING SB!IMPL::NAME))) ; (LOOP SB!IMPL::REPEAT SB!IMPL::N ; SB!INT:COLLECT (SB-XC:GENSYM)))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!IMPL::N SB!IMPL::NAME) {D12DD61}> ; SB!IMPL::N 'NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFMACRO WITH-UNIQUE-NAMES ; (SB!INT:QUASIQUOTE ; (LET #S(SB!IMPL::COMMA :EXPR (MAPCAR (LAMBDA # #) SB!IMPL::SYMBOLS) :KIND 0) ; #S(SB!IMPL::COMMA :EXPR SB!IMPL::BODY :KIND 2))) ; --> SB!IMPL::|List*| MAPCAR LET SB!KERNEL:%COERCE-CALLABLE-TO-FUN LAMBDA ; --> FUNCTION LET* IF ; ==> ; (CONCATENATE 'STRING SYMBOL-NAME "-") ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN FROB-DO-BODY ; (MULTIPLE-VALUE-BIND (SB!IMPL::CODE SB!IMPL::DECLS) ; (SB!INT:PARSE-BODY SB!IMPL::DECLS-AND-CODE :DOC-STRING-ALLOWED NIL) ; (SB!INT:QUASIQUOTE ; (BLOCK #S(SB!IMPL::COMMA :EXPR BLOCK :KIND 0) ; (#S(SB!IMPL::COMMA :EXPR SB!IMPL::BIND :KIND 0) ; #S(SB!IMPL::COMMA :EXPR # :KIND 0) ; #S(SB!IMPL::COMMA :EXPR SB!IMPL::DECLS :KIND 2) ; (TAGBODY # # # # # # #))))) ; --> MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!IMPL::CODE SB!IMPL::DECLS #:G0) {C8B9049}> ; SB!IMPL::CODE SB!IMPL::DECLS NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 10 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/primordial-extensions.lisp ; in: DEFMACRO WITH-UNIQUE-NAMES ; (SB!INT:QUASIQUOTE ; (LET #S(SB!IMPL::COMMA :EXPR (MAPCAR (LAMBDA # #) SB!IMPL::SYMBOLS) :KIND 0) ; #S(SB!IMPL::COMMA :EXPR SB!IMPL::BODY :KIND 2))) ; --> SB!IMPL::|List*| MAPCAR LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFMACRO DEFENUM ; (DEFMACRO SB!INT:DEFENUM ; ((&KEY (SB!IMPL::START 0) (STEP 1)) &REST SB!IMPL::IDENTIFIERS) ; (LET ((SB!IMPL::RESULTS NIL) ; (SB!INT:INDEX 0) ; (SB!IMPL::START (EVAL SB!IMPL::START)) ; (STEP (EVAL STEP))) ; (DOLIST (SB!IMPL::ID SB!IMPL::IDENTIFIERS) ; (WHEN SB!IMPL::ID (MULTIPLE-VALUE-BIND # # #)) ; (INCF SB!INT:INDEX)) ; (SB!INT:QUASIQUOTE (PROGN #S(SB!IMPL::COMMA :EXPR # :KIND 2))))) ; --> PROGN EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* ; ==> ; (SB!KERNEL::KEYWORD-SUPPLIED-P ':STEP #:KEYWORDS-1475) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::KEYWORD-SUPPLIED-P ; --> PROGN EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* LET UNLESS ; --> IF ; ==> ; (SB!INT:LIST-OF-LENGTH-AT-LEAST-P #:ARGS260 1) ; ; caught STYLE-WARNING: ; undefined function: LIST-OF-LENGTH-AT-LEAST-P ; in: DEF!MACRO STRING-DISPATCH ; (SB!INT:DEF!MACRO SB!IMPL::STRING-DISPATCH ; ((&REST SB!IMPL::TYPES) SB!DEBUG:VAR &BODY SB!IMPL::BODY) ; (LET ((SB!IMPL::FUN (SB-XC:GENSYM "STRING-DISPATCH-FUN"))) ; (SB!INT:QUASIQUOTE ; (FLET (#) ; (DECLARE #) ; (ETYPECASE # #))))) ; --> SB!INT:DEFMACRO-MUNDANELY LET LET SB-XC:DEFMACRO PROGN EVAL-WHEN ; --> SB!C::%DEFMACRO FUNCTION LET* LET UNLESS IF ; ==> ; (SB!INT:LIST-OF-LENGTH-AT-LEAST-P #:ARGS229 2) ; ; caught STYLE-WARNING: ; undefined function: LIST-OF-LENGTH-AT-LEAST-P ; in: DEFMACRO WITH-UNIQUE-NAMES ; (DEFMACRO SB!INT:WITH-UNIQUE-NAMES (SB!IMPL::SYMBOLS &BODY SB!IMPL::BODY) ; (SB!INT:QUASIQUOTE ; (LET #S(SB!IMPL::COMMA :EXPR (MAPCAR # SB!IMPL::SYMBOLS) :KIND 0) ; #S(SB!IMPL::COMMA :EXPR SB!IMPL::BODY :KIND 2)))) ; --> PROGN EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* LET UNLESS ; --> IF ; ==> ; (SB!INT:LIST-OF-LENGTH-AT-LEAST-P #:ARGS43 1) ; ; caught STYLE-WARNING: ; undefined function: LIST-OF-LENGTH-AT-LEAST-P ; ; caught STYLE-WARNING: ; 1 more use of undefined function LIST-OF-LENGTH-AT-LEAST-P ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/primordial-extensions.lisp ; in: DEFMACRO DEFENUM ; (DEFMACRO SB!INT:DEFENUM ; ((&KEY (SB!IMPL::START 0) (STEP 1)) &REST SB!IMPL::IDENTIFIERS) ; (LET ((SB!IMPL::RESULTS NIL) ; (SB!INT:INDEX 0) ; (SB!IMPL::START (EVAL SB!IMPL::START)) ; (STEP (EVAL STEP))) ; (DOLIST (SB!IMPL::ID SB!IMPL::IDENTIFIERS) ; (WHEN SB!IMPL::ID (MULTIPLE-VALUE-BIND # # #)) ; (INCF SB!INT:INDEX)) ; (SB!INT:QUASIQUOTE (PROGN #S(SB!IMPL::COMMA :EXPR # :KIND 2))))) ; --> PROGN EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* LET* IF ; ==> ; (SB!KERNEL::LOOKUP-KEYWORD ':STEP #:KEYWORDS-1475) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::LOOKUP-KEYWORD ; in: DEFUN SANE-PACKAGE ; (SB!IMPL::PACKAGE-%NAME SB!IMPL::MAYBE-PACKAGE) ; ; caught STYLE-WARNING: ; undefined function: PACKAGE-%NAME ; in: DEFUN FROB-DO-BODY ; (SB!INT:PARSE-BODY SB!IMPL::DECLS-AND-CODE :DOC-STRING-ALLOWED NIL) ; ; caught STYLE-WARNING: ; undefined function: PARSE-BODY ; in: DEFMACRO DEFENUM ; (DEFMACRO SB!INT:DEFENUM ; ((&KEY (SB!IMPL::START 0) (STEP 1)) &REST SB!IMPL::IDENTIFIERS) ; (LET ((SB!IMPL::RESULTS NIL) ; (SB!INT:INDEX 0) ; (SB!IMPL::START (EVAL SB!IMPL::START)) ; (STEP (EVAL STEP))) ; (DOLIST (SB!IMPL::ID SB!IMPL::IDENTIFIERS) ; (WHEN SB!IMPL::ID (MULTIPLE-VALUE-BIND # # #)) ; (INCF SB!INT:INDEX)) ; (SB!INT:QUASIQUOTE (PROGN #S(SB!IMPL::COMMA :EXPR # :KIND 2))))) ; --> PROGN EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; (SB!KERNEL::VERIFY-KEYWORDS #:KEYWORDS-1475 '(:STEP :START) 'NIL NIL) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::VERIFY-KEYWORDS ; ; compilation unit finished ; Undefined types: ; CODE-DELETION-NOTE COMPILER-NOTE ; Undefined functions: ; %DEFGLOBAL SB!KERNEL::KEYWORD-SUPPLIED-P LIST-OF-LENGTH-AT-LEAST-P SB!KERNEL::LOOKUP-KEYWORD PACKAGE-%NAME PARSE-BODY SB!KERNEL::VERIFY-KEYWORDS ; caught 16 STYLE-WARNING conditions ; printed 1 note ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/primordial-extensions.lisp-obj-tmp written ; compilation finished in 0:00:00.199 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/function-names.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFVAR *VALID-FUN-NAMES-ALIST* ...) ; x-compiling (DEFUN %DEFINE-FUN-NAME-SYNTAX ...) ; x-compiling (DEFMACRO DEFINE-FUNCTION-NAME-SYNTAX ...) ; x-compiling (DEFUN VALID-FUNCTION-NAME-P ...) ; x-compiling (DEFINE-FUNCTION-NAME-SYNTAX SETF ...) ; x-compiling (%DEFINE-FUN-NAME-SYNTAX (QUOTE CAS) ...) ; x-compiling (DEFUN MACRO-FUNCTION-NAME ...) ; x-compiling (DEFINE-FUNCTION-NAME-SYNTAX DEFMACRO ...) ; x-compiling (DEFINE-FUNCTION-NAME-SYNTAX MACROLET ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/function-names.lisp ; in: DEFINE-FUNCTION-NAME-SYNTAX SETF ; (MEMBER (CAR SB!IMPL::FUN) '(SB!EXT:CAS SETF)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN VALID-FUNCTION-NAME-P ; (ASSOC (CAR SB!IMPL::NAME) SB!IMPL::*VALID-FUN-NAMES-ALIST* :TEST #'EQ) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN %DEFINE-FUN-NAME-SYNTAX ; (ASSOC SYMBOL SB!IMPL::*VALID-FUN-NAMES-ALIST* :TEST #'EQ) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN MACRO-FUNCTION-NAME ; (DESTRUCTURING-BIND ; (SB!IMPL::FUN &REST REST) ; (CDR SB!IMPL::NAME) ; (WHEN (NULL REST) ; (TYPECASE SB!IMPL::FUN ; (SYMBOL (VALUES T SB!IMPL::FUN)) ; (CONS (WHEN # #))))) ; --> LET LET* LET UNLESS IF ; ==> ; (SB!INT:LIST-OF-LENGTH-AT-LEAST-P #:ARGS78 1) ; ; caught STYLE-WARNING: ; undefined function: LIST-OF-LENGTH-AT-LEAST-P ; in: DEFMACRO DEFINE-FUNCTION-NAME-SYNTAX ; (DEFMACRO SB!INT:DEFINE-FUNCTION-NAME-SYNTAX ; (SYMBOL (SB!DEBUG:VAR) &BODY SB!IMPL::BODY) ; "Define function names of the form of a list headed by SYMBOL to be ; a legal function name, subject to restrictions imposed by BODY. BODY ; is evaluated with VAR bound to the form required to check, and should ; return two values: the first value is a generalized boolean indicating ; legality, and the second a symbol for use as a BLOCK name or similar ; situations." ; (DECLARE (TYPE SYMBOL SYMBOL)) ; (LET ((SB!IMPL::SYNTAX-CHECKER ; (SB!INT:SYMBOLICATE 'SB!IMPL::%CHECK- SYMBOL 'SB!IMPL::-FUN-NAME))) ; (SB!INT:QUASIQUOTE ; (PROGN (DEFUN # # #) (SB!IMPL::%DEFINE-FUN-NAME-SYNTAX '# #'#))))) ; --> PROGN EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* LET UNLESS ; --> IF ; ==> ; (SB!INT:LIST-OF-LENGTH-AT-LEAST-P #:ARGS24 2) ; ; caught STYLE-WARNING: ; undefined function: LIST-OF-LENGTH-AT-LEAST-P ; ; compilation unit finished ; Undefined type: ; CODE-DELETION-NOTE ; Undefined function: ; LIST-OF-LENGTH-AT-LEAST-P ; caught 5 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/function-names.lisp-obj-tmp written ; compilation finished in 0:00:00.035 creating directory: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/ creating directory: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/generic/ ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/parms.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEF!MACRO !CONFIGURE-DYNAMIC-SPACE-END ...) ; x-compiling (DEF!MACRO !GENCGC-SPACE-SETUP ...) ; x-compiling (DEFPARAMETER *C-CALLABLE-STATIC-SYMBOLS* ...) ; x-compiling (DEFPARAMETER *COMMON-STATIC-SYMBOLS* ...) ; x-compiling (DEF!CONSTANT TLS-SIZE ...) ; x-compiling (DEF!CONSTANT MAX-INTERRUPTS ...) ; x-compiling (DEF!CONSTANT +HIGHEST-NORMAL-GENERATION+ ...) ; x-compiling (DEF!CONSTANT +PSEUDO-STATIC-GENERATION+ ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/parms.lisp ; in: DEF!MACRO !CONFIGURE-DYNAMIC-SPACE-END ; (MEMBER SB!VM::EXT '("MB MIB") :TEST #'EQUALP) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; (MULTIPLE-VALUE-BIND (NUMBER SB!VM::END) ; (PARSE-INTEGER SB!VM::LINE :JUNK-ALLOWED T) ; (IF NUMBER ; (LET* ((SB!VM::EXT #) (SB!VM::MULT #)) ; (SB!INT:QUASIQUOTE (+ SB!VM:DYNAMIC-SPACE-START #))) ; (OR SB!VM::DEFAULT ; (SB!INT:QUASIQUOTE (+ SB!VM:DYNAMIC-SPACE-START #))))) ; --> MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (NUMBER SB!VM::END #:G10) {D9DCB71}> ; NUMBER SB!VM::END NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; (WITH-OPEN-FILE (SB!VM::F "output/dynamic-space-size.txt") ; (LET ((SB!VM::LINE (READ-LINE SB!VM::F))) ; (MULTIPLE-VALUE-BIND (NUMBER SB!VM::END) ; (PARSE-INTEGER SB!VM::LINE :JUNK-ALLOWED T) ; (IF NUMBER ; (LET* # ; #) ; (OR SB!VM::DEFAULT #))))) ; --> WITH-OPEN-STREAM LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:NEXT4 #:START5 #:COUNT6 #:G7) {D9CE9E1}> ; #:NEXT4 #:START5 #:COUNT6 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 4 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/parms.lisp ; in: DEF!MACRO !CONFIGURE-DYNAMIC-SPACE-END ; (SUBSEQ SB!VM::LINE SB!VM::END) ; ; caught STYLE-WARNING: ; undefined function: VECTOR-SUBSEQ* ; ; compilation unit finished ; Undefined type: ; CODE-DELETION-NOTE ; Undefined function: ; VECTOR-SUBSEQ* ; caught 5 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/generic/parms.lisp-obj-tmp written ; compilation finished in 0:00:00.036 creating directory: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/x86/ ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/parms.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEF!CONSTANT N-WORD-BITS ...) ; x-compiling (DEF!CONSTANT N-MACHINE-WORD-BITS ...) ; x-compiling (DEF!CONSTANT N-BYTE-BITS ...) ; x-compiling (DEF!CONSTANT MINIMUM-IMMEDIATE-OFFSET ...) ; x-compiling (DEF!CONSTANT MAXIMUM-IMMEDIATE-OFFSET ...) ; x-compiling (DEF!CONSTANT FLOAT-SIGN-SHIFT ...) ; x-compiling (DEF!CONSTANT SINGLE-FLOAT-BIAS ...) ; x-compiling (DEFCONSTANT-EQX SINGLE-FLOAT-EXPONENT-BYTE ...) ; x-compiling (DEFCONSTANT-EQX SINGLE-FLOAT-SIGNIFICAND-BYTE ...) ; x-compiling (DEF!CONSTANT SINGLE-FLOAT-NORMAL-EXPONENT-MIN ...) ; x-compiling (DEF!CONSTANT SINGLE-FLOAT-NORMAL-EXPONENT-MAX ...) ; x-compiling (DEF!CONSTANT SINGLE-FLOAT-HIDDEN-BIT ...) ; x-compiling (DEF!CONSTANT SINGLE-FLOAT-TRAPPING-NAN-BIT ...) ; x-compiling (DEF!CONSTANT DOUBLE-FLOAT-BIAS ...) ; x-compiling (DEFCONSTANT-EQX DOUBLE-FLOAT-EXPONENT-BYTE ...) ; x-compiling (DEFCONSTANT-EQX DOUBLE-FLOAT-SIGNIFICAND-BYTE ...) ; x-compiling (DEF!CONSTANT DOUBLE-FLOAT-NORMAL-EXPONENT-MIN ...) ; x-compiling (DEF!CONSTANT DOUBLE-FLOAT-NORMAL-EXPONENT-MAX ...) ; x-compiling (DEF!CONSTANT DOUBLE-FLOAT-HIDDEN-BIT ...) ; x-compiling (DEF!CONSTANT DOUBLE-FLOAT-TRAPPING-NAN-BIT ...) ; x-compiling (DEF!CONSTANT LONG-FLOAT-BIAS ...) ; x-compiling (DEFCONSTANT-EQX LONG-FLOAT-EXPONENT-BYTE ...) ; x-compiling (DEFCONSTANT-EQX LONG-FLOAT-SIGNIFICAND-BYTE ...) ; x-compiling (DEF!CONSTANT LONG-FLOAT-NORMAL-EXPONENT-MIN ...) ; x-compiling (DEF!CONSTANT LONG-FLOAT-NORMAL-EXPONENT-MAX ...) ; x-compiling (DEF!CONSTANT LONG-FLOAT-HIDDEN-BIT ...) ; x-compiling (DEF!CONSTANT LONG-FLOAT-TRAPPING-NAN-BIT ...) ; x-compiling (DEF!CONSTANT SINGLE-FLOAT-DIGITS ...) ; x-compiling (DEF!CONSTANT DOUBLE-FLOAT-DIGITS ...) ; x-compiling (DEF!CONSTANT LONG-FLOAT-DIGITS ...) ; x-compiling (DEF!CONSTANT FLOAT-INVALID-TRAP-BIT ...) ; x-compiling (DEF!CONSTANT FLOAT-DENORMAL-TRAP-BIT ...) ; x-compiling (DEF!CONSTANT FLOAT-DIVIDE-BY-ZERO-TRAP-BIT ...) ; x-compiling (DEF!CONSTANT FLOAT-OVERFLOW-TRAP-BIT ...) ; x-compiling (DEF!CONSTANT FLOAT-UNDERFLOW-TRAP-BIT ...) ; x-compiling (DEF!CONSTANT FLOAT-INEXACT-TRAP-BIT ...) ; x-compiling (DEF!CONSTANT FLOAT-ROUND-TO-NEAREST ...) ; x-compiling (DEF!CONSTANT FLOAT-ROUND-TO-NEGATIVE ...) ; x-compiling (DEF!CONSTANT FLOAT-ROUND-TO-POSITIVE ...) ; x-compiling (DEF!CONSTANT FLOAT-ROUND-TO-ZERO ...) ; x-compiling (DEF!CONSTANT FLOAT-PRECISION-24-BIT ...) ; x-compiling (DEF!CONSTANT FLOAT-PRECISION-53-BIT ...) ; x-compiling (DEF!CONSTANT FLOAT-PRECISION-64-BIT ...) ; x-compiling (DEFCONSTANT-EQX FLOAT-ROUNDING-MODE ...) ; x-compiling (DEFCONSTANT-EQX FLOAT-STICKY-BITS ...) ; x-compiling (DEFCONSTANT-EQX FLOAT-TRAPS-BYTE ...) ; x-compiling (DEFCONSTANT-EQX FLOAT-EXCEPTIONS-BYTE ...) ; x-compiling (DEFCONSTANT-EQX FLOAT-PRECISION-CONTROL ...) ; x-compiling (DEF!CONSTANT FLOAT-FAST-BIT ...) ; x-compiling (!GENCGC-SPACE-SETUP 16777216 ...) ; x-compiling (DEF!CONSTANT LINKAGE-TABLE-ENTRY-SIZE ...) ; x-compiling (DEF!CONSTANT NIL-VALUE ...) ; x-compiling (DEFENUM (:START 8) ...) ; x-compiling (DEFENUM (:START 24) ...) ; x-compiling (DEFVAR *ALLOCATION-POINTER*) ; x-compiling (DEFVAR *BINDING-STACK-POINTER*) ; x-compiling (DEFPARAMETER *STATIC-SYMBOLS* ...) ; x-compiling (DEFPARAMETER *STATIC-FUNS* ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/x86/parms.lisp-obj-tmp written ; compilation finished in 0:00:00.078 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/early-vm.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEF!CONSTANT N-LOWTAG-BITS ...) ; x-compiling (DEF!CONSTANT LOWTAG-MASK ...) ; x-compiling (DEF!CONSTANT LOWTAG-LIMIT ...) ; x-compiling (DEF!CONSTANT N-FIXNUM-TAG-BITS ...) ; x-compiling (DEF!CONSTANT FIXNUM-TAG-MASK ...) ; x-compiling (DEF!CONSTANT N-FIXNUM-BITS ...) ; x-compiling (DEF!CONSTANT N-POSITIVE-FIXNUM-BITS ...) ; x-compiling (DEF!CONSTANT WORD-SHIFT ...) ; x-compiling (DEF!CONSTANT N-WORD-BYTES ...) ; x-compiling (DEF!CONSTANT N-WIDETAG-BITS ...) ; x-compiling (DEF!CONSTANT WIDETAG-MASK ...) ; x-compiling (DEF!CONSTANT SB-XC:MOST-POSITIVE-FIXNUM ...) ; x-compiling (DEF!CONSTANT SB-XC:MOST-NEGATIVE-FIXNUM ...) ; x-compiling (DEF!CONSTANT MOST-POSITIVE-WORD ...) ; x-compiling (DEF!CONSTANT MOST-POSITIVE-EXACTLY-SINGLE-FLOAT-FIXNUM ...) ; x-compiling (DEF!CONSTANT MOST-NEGATIVE-EXACTLY-SINGLE-FLOAT-FIXNUM ...) ; x-compiling (DEF!CONSTANT MOST-POSITIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM ...) ; x-compiling (DEF!CONSTANT MOST-NEGATIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM ...) ; x-compiling (DEF!CONSTANT MAX-DYNAMIC-SPACE-END ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/early-vm.lisp ; in: DEF!CONSTANT MAX-DYNAMIC-SPACE-END ; (MIN SB!VM::STOP SB!VM::OTHER-START) ; --> LET ; ==> ; SB!VM::STOP ; ; note: deleting unreachable code ; --> LET LET MIN LET ; ==> ; SB!VM::OTHER-START ; ; note: deleting unreachable code ; x-compiling (DEF!CONSTANT INSTANCE-DATA-START ...); ; compilation unit finished ; printed 2 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/generic/early-vm.lisp-obj-tmp written ; compilation finished in 0:00:00.028 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/early-objdef.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFENUM NIL ...) ; x-compiling (DEF!CONSTANT NIL-VALUE ...) ; x-compiling (DEFCONSTANT-EQX FIXNUM-LOWTAGS ...) ; x-compiling (DEFENUM (:START # ...) ...) ; x-compiling (DEFENUM NIL ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/generic/early-objdef.lisp-obj-tmp written ; compilation finished in 0:00:00.050 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-array.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEF!CONSTANT SB-XC:ARRAY-RANK-LIMIT ...) ; x-compiling (DEF!CONSTANT SB-XC:ARRAY-DIMENSION-LIMIT ...) ; x-compiling (DEF!CONSTANT SB-XC:ARRAY-TOTAL-SIZE-LIMIT ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/early-array.lisp-obj-tmp written ; compilation finished in 0:00:00.006 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-extensions.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFVAR *CORE-PATHNAME* ...) ; x-compiling (DEFVAR *RUNTIME-PATHNAME* ...) ; x-compiling (DEFGLOBAL *EOF-OBJECT* ...) ; x-compiling (DEFCONSTANT MAX-HASH ...) ; x-compiling (DEF!TYPE HASH ...) ; x-compiling (DEF!TYPE INDEX ...) ; x-compiling (DEF!TYPE INDEX/2 ...) ; x-compiling (DEF!TYPE INDEX-OR-MINUS-1 ...) ; x-compiling (DEF!TYPE UNSIGNED-BYTE-WITH-A-BITE-OUT ...) ; x-compiling (DEF!TYPE SIGNED-BYTE-WITH-A-BITE-OUT ...) ; x-compiling (DEF!TYPE LOAD/STORE-INDEX ...) ; x-compiling (DEFUN DISPLACEMENT-BOUNDS ...) ; x-compiling (DEF!TYPE CONSTANT-DISPLACEMENT ...) ; x-compiling (DEF!TYPE SFUNCTION ...) ; x-compiling (DEF!TYPE TYPE-SPECIFIER ...) ; x-compiling (DEFPARAMETER *DEFAULT-INIT-CHAR-FORM* ...) ; x-compiling (DEF!CONSTANT BELL-CHAR-CODE ...) ; x-compiling (DEF!CONSTANT BACKSPACE-CHAR-CODE ...) ; x-compiling (DEF!CONSTANT TAB-CHAR-CODE ...) ; x-compiling (DEF!CONSTANT LINE-FEED-CHAR-CODE ...) ; x-compiling (DEF!CONSTANT FORM-FEED-CHAR-CODE ...) ; x-compiling (DEF!CONSTANT RETURN-CHAR-CODE ...) ; x-compiling (DEF!CONSTANT ESCAPE-CHAR-CODE ...) ; x-compiling (DEF!CONSTANT RUBOUT-CHAR-CODE ...) ; x-compiling (DEFUN MAYBE-CYCLIC-P ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN LIST-OF-LENGTH-AT-LEAST-P ...) ; x-compiling (DEFUN POSITIVE-PRIMEP ...) ; x-compiling (DEFUN COMPOUND-OBJECT-P ...) ; x-compiling (DEFUN COLLECT-NORMAL-EXPANDER ...) ; x-compiling (DEFUN COLLECT-LIST-EXPANDER ...) ; x-compiling (DEFMACRO COLLECT ...) ; x-compiling (DEFUN MEMQ ...) ; x-compiling (DEFUN ASSQ ...) ; x-compiling (DEFUN DELQ ...) ; x-compiling (DEFUN POSQ ...) ; x-compiling (DECLAIM (INLINE NEQ)) ; x-compiling (DEFUN NEQ ...) ; x-compiling (DECLAIM (INLINE NTH-BUT-WITH-SANE-ARG-ORDER)) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN NTH-BUT-WITH-SANE-ARG-ORDER ...) ; x-compiling (DEFUN ADJUST-LIST ...) ; x-compiling (DEFMACRO NAMED-LET ...) ; x-compiling (DEFUN FILTER-DOLIST-DECLARATIONS ...) ; x-compiling (DEFMACRO DOVECTOR ...) ; x-compiling (DEFMACRO DOHASH ...) ; x-compiling (DEFMACRO DOPLIST ...) ; x-compiling (DEFVAR *PROFILE-HASH-CACHE* ...) ; x-compiling (DEFVAR *CACHE-VECTOR-SYMBOLS* ...) ; x-compiling (DEFUN DROP-ALL-HASH-CACHES ...) ; x-compiling (DEFUN ALLOC-HASH-CACHE ...) ; x-compiling (DEF 2) ; x-compiling (DEF 3) ; x-compiling (DEF 4) ; x-compiling (DEF 5) ; x-compiling (DEF 6) ; x-compiling (DEFMACRO DEFINE-HASH-CACHE ...) ; x-compiling (DEFMACRO DEFUN-CACHED ...) ; x-compiling (DEFUN EQUAL-BUT-NO-CAR-RECURSION ...) ; x-compiling (DEFUN %FIND-PACKAGE-OR-LOSE ...) ; x-compiling (DEFUN FIND-UNDELETED-PACKAGE-OR-LOSE ...) ; x-compiling (DECLAIM (INLINE LEGAL-FUN-NAME-P)) ; x-compiling (DEFUN LEGAL-FUN-NAME-P ...) ; x-compiling (DEFTYPE FUNCTION-NAME ...) ; x-compiling (DEFUN LEGAL-FUN-NAME-OR-TYPE-ERROR ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN FUN-NAME-BLOCK-NAME ...) ; x-compiling (DEFUN LOOKS-LIKE-NAME-OF-SPECIAL-VAR-P ...) ; x-compiling (DEFMACRO ONCE-ONLY ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN MISSING-ARG ...) ; x-compiling (DEFMACRO AVER ...) ; x-compiling (DEFUN %FAILED-AVER ...) ; x-compiling (DEFUN BUG ...) ; x-compiling (DEFMACRO ENFORCE-TYPE ...) ; x-compiling (DEFUN %FAILED-ENFORCE-TYPE ...) ; x-compiling (DECLAIM (INLINE SWAPPED-ARGS-FUN)) ; x-compiling (DEFUN SWAPPED-ARGS-FUN ...) ; x-compiling (DEFUN TYPE-BOUND-NUMBER ...) ; x-compiling (DEF-CONSTANTLY-FUN CONSTANTLY-T ...) ; x-compiling (DEF-CONSTANTLY-FUN CONSTANTLY-NIL ...) ; x-compiling (DEF-CONSTANTLY-FUN CONSTANTLY-0 ...) ; x-compiling (DEFUN FEATUREP ...) ; x-compiling (DEFMACRO NOT/TYPE ...) ; x-compiling (DEFMACRO AND/TYPE ...) ; x-compiling (DEFUN ANY/TYPE ...) ; x-compiling (DEFUN EVERY/TYPE ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN DEFPRINTER-PRIN1 ...) ; x-compiling (DEFUN DEFPRINTER-PRINC ...) ; x-compiling (DEFUN DEFPRINTER-PRINX ...) ; x-compiling (DEFUN DEFPRINTER-PRINT-SPACE ...) ; x-compiling (DEFMACRO DEFPRINTER ...) ; x-compiling (DEFUN PHYSICALIZE-PATHNAME ...) ; x-compiling (DEFUN NORMALIZE-DEPRECATION-REPLACEMENTS ...) ; x-compiling (DEFUN DEPRECATION-ERROR ...) ; x-compiling (DEFUN DEPRECATION-WARNING ...) ; x-compiling (DEFUN DEPRECATED-FUNCTION ...) ; x-compiling (DEFUN DEPRECATION-COMPILER-MACRO ...) ; x-compiling (DEFMACRO DEFINE-DEPRECATED-FUNCTION ...) ; x-compiling (DEFUN CHECK-DEPRECATED-VARIABLE ...) ; x-compiling (DEFMACRO DEFINE-DEPRECATED-VARIABLE ...) ; x-compiling (DEFMACRO AWHEN ...) ; x-compiling (DEFMACRO ACOND ...) ; x-compiling (DEFUN EXTRACT-VAR-DECLS ...) ; x-compiling (DEFMACRO BINDING* ...) ; x-compiling (DEFMACRO DELAY ...) ; x-compiling (DEFUN FORCE ...) ; x-compiling (DEFUN PROMISE-READY-P ...) ; x-compiling (DEFMACRO WITH-REBOUND-IO-SYNTAX ...) ; x-compiling (DEFUN %WITH-REBOUND-IO-SYNTAX ...) ; x-compiling (DEFMACRO WITH-SANE-IO-SYNTAX ...) ; x-compiling (DEFUN CALL-WITH-SANE-IO-SYNTAX ...) ; x-compiling (DEFUN LIST-MEMBERS ...) ; x-compiling (DECLAIM (TYPE # ...)) ; x-compiling (!DEFPARAMETER *EVALUATOR-MODE* ...) ; x-compiling (DEFMACRO DX-FLET ...) ; x-compiling (DEFMACRO DX-LET ...) ; x-compiling NIL ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (DEFUN FP-ZERO-P ...) ; x-compiling (DEFUN NEG-FP-ZERO ...) ; x-compiling (DEFUN FILE-POSITION-OR-NIL-FOR-ERROR ...) ; x-compiling (DEFUN STREAM-ERROR-POSITION-INFO ...) ; x-compiling (DECLAIM (INLINE SCHWARTZIAN-STABLE-SORT-LIST)) ; x-compiling (DEFUN SCHWARTZIAN-STABLE-SORT-LIST ...) ; x-compiling (DEFMACRO WITH-SIMPLE-OUTPUT-TO-STRING ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-extensions.lisp ; in: DEFGLOBAL *EOF-OBJECT* ; (SB!EXT:DEFGLOBAL SB!INT:*EOF-OBJECT* (MAKE-SYMBOL "EOF-OBJECT")) ; --> PROGN LET LET ; ==> ; (SB!IMPL::%DEFGLOBAL 'SB!INT:*EOF-OBJECT* ; (UNLESS #:BOUNDP (MAKE-SYMBOL "EOF-OBJECT")) #:BOUNDP ; 'NIL NIL (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::%DEFGLOBAL ; in: DEF!TYPE SB!IMPL::INDEX/2 ; (SB!INT:DEF!TYPE SB!IMPL::INDEX/2 NIL ; (SB!INT:QUASIQUOTE ; (INTEGER 0 (#S(SB!IMPL::COMMA :EXPR # :KIND 0))))) ; --> PROGN DEFTYPE PROGN SB!IMPL::%DEFTYPE ; ==> ; (SB!IMPL::%DEFTYPE 'SB!IMPL::INDEX/2) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::%DEFTYPE ; in: DEF!TYPE INDEX ; (SB!INT:DEF!TYPE SB!INT:INDEX NIL ; (SB!INT:QUASIQUOTE ; (INTEGER 0 ; (#S(SB!IMPL::COMMA ; :EXPR SB-XC:ARRAY-DIMENSION-LIMIT ; :KIND 0))))) ; --> PROGN DEFTYPE PROGN SB!IMPL::%DEFTYPE ; ==> ; (SB!IMPL::%DEFTYPE 'SB!INT:INDEX) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::%DEFTYPE ; in: DEF!TYPE HASH ; (SB!INT:DEF!TYPE SB!INT:HASH NIL ; (SB!INT:QUASIQUOTE ; (INTEGER 0 ; #S(SB!IMPL::COMMA :EXPR SB!INT:MAX-HASH :KIND 0)))) ; --> PROGN DEFTYPE PROGN SB!IMPL::%DEFTYPE ; ==> ; (SB!IMPL::%DEFTYPE 'SB!INT:HASH) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::%DEFTYPE ; ; caught STYLE-WARNING: ; 8 more uses of undefined function SB!IMPL::%DEFTYPE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-extensions.lisp ; in: DEFUN SB!IMPL::DEFPRINTER-PRINC ; (DEFUN SB!IMPL::DEFPRINTER-PRINC (SB!IMPL::NAME SB!IMPL::VALUE STREAM) ; (SB!IMPL::DEFPRINTER-PRINX #'PRINC SB!IMPL::NAME SB!IMPL::VALUE STREAM)) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; --> SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET ; --> SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT1944 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: %FUNCALLABLE-INSTANCE-LAYOUT ; in: DEFUN SB!IMPL::DEFPRINTER-PRIN1 ; (DEFUN SB!IMPL::DEFPRINTER-PRIN1 (SB!IMPL::NAME SB!IMPL::VALUE STREAM) ; (SB!IMPL::DEFPRINTER-PRINX #'PRIN1 SB!IMPL::NAME SB!IMPL::VALUE STREAM)) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; --> SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET ; --> SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT1939 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: %FUNCALLABLE-INSTANCE-LAYOUT ; in: DEFUN COMPOUND-OBJECT-P ; (TYPEP SB!IMPL::X '(ARRAY T *)) ; --> LET SB!C::%TYPEP-WRAPPER LET AND IF AND THE DO BLOCK LET TAGBODY ; --> RETURN-FROM PROGN EQ IF EQ ; ==> ; (SB!KERNEL:%OTHER-POINTER-WIDETAG #:DATA103) ; ; caught STYLE-WARNING: ; undefined function: %OTHER-POINTER-WIDETAG ; in: DEFUN MAYBE-CYCLIC-P ; (DEFUN SB!INT:MAYBE-CYCLIC-P (SB!IMPL::X &OPTIONAL (SB!IMPL::DEPTH-LIMIT 12)) ; (AND (LISTP SB!IMPL::X) ; (LABELS ((SB!IMPL::SAFE-CDDR # ; #) ; (SB!IMPL::CHECK-CYCLE # ; #) ; (SB!IMPL::CIRCULARP # ; #)) ; (SB!IMPL::CIRCULARP SB!IMPL::X (LIST SB!IMPL::X) 0)))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!IMPL::X SB!IMPL::DEPTH-LIMIT) {D00D5E1}> ; SB!IMPL::X '12)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEF!TYPE CONSTANT-DISPLACEMENT ; (MULTIPLE-VALUE-BIND (MIN MAX) ; (SB!IMPL::DISPLACEMENT-BOUNDS SB!IMPL::LOWTAG SB!IMPL::ELEMENT-SIZE ; SB!IMPL::DATA-OFFSET) ; (SB!INT:QUASIQUOTE ; (INTEGER #S(SB!IMPL::COMMA :EXPR MIN :KIND 0) ; #S(SB!IMPL::COMMA :EXPR MAX :KIND 0)))) ; --> MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (MIN MAX #:G44) {CE9F329}> ; MIN MAX NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN SB!IMPL::DISPLACEMENT-BOUNDS ; (CEILING SB!IMPL::ELEMENT-SIZE SB!VM:N-BYTE-BITS) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 811 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-extensions.lisp ; in: DEFMACRO COLLECT ; (CONCATENATE 'STRING (SYMBOL-NAME SB!IMPL::NAME) "-N-VALUE-") ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN SB!IMPL::COLLECT-LIST-EXPANDER ; (SB!INT:QUASIQUOTE ; (PROGN ; #S(SB!IMPL::COMMA :EXPR (MAPCAR (LAMBDA # #) SB!IMPL::FORMS) :KIND 2) ; #S(SB!IMPL::COMMA :EXPR SB!IMPL::N-VALUE :KIND 0))) ; --> SB!IMPL::|List*| SB!IMPL::|Append| MAPCAR LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN SB!IMPL::COLLECT-NORMAL-EXPANDER ; (SB!INT:QUASIQUOTE ; (PROGN ; #S(SB!IMPL::COMMA :EXPR (MAPCAR (LAMBDA # #) SB!IMPL::FORMS) :KIND 2) ; #S(SB!IMPL::COMMA :EXPR SB!IMPL::N-VALUE :KIND 0))) ; --> SB!IMPL::|List*| SB!IMPL::|Append| MAPCAR LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; ; caught STYLE-WARNING: ; 463 more uses of undefined type COMPILER-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-extensions.lisp ; in: DEFTYPE SB!IMPL::FUNCTION-NAME ; (DEFTYPE SB!IMPL::FUNCTION-NAME () '(SATISFIES SB!INT:LEGAL-FUN-NAME-P)) ; --> PROGN EVAL-WHEN SB!IMPL::%COMPILER-DEFTYPE SB!IMPL::%COMPILER-DEFTYPE ; ==> ; (SB!IMPL::CONSTANT-TYPE-EXPANDER '(SATISFIES SB!INT:LEGAL-FUN-NAME-P)) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::CONSTANT-TYPE-EXPANDER ; in: DEF!TYPE TYPE-SPECIFIER ; (SB!INT:DEF!TYPE SB!KERNEL:TYPE-SPECIFIER NIL ; '(OR LIST SYMBOL SB!KERNEL:INSTANCE)) ; --> PROGN DEFTYPE PROGN EVAL-WHEN SB!IMPL::%COMPILER-DEFTYPE ; --> SB!IMPL::%COMPILER-DEFTYPE ; ==> ; (SB!IMPL::CONSTANT-TYPE-EXPANDER '(OR LIST SYMBOL SB!KERNEL:INSTANCE)) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::CONSTANT-TYPE-EXPANDER ; in: DEFUN STREAM-ERROR-POSITION-INFO ; (IGNORE-ERRORS (INTERACTIVE-STREAM-P STREAM)) ; --> HANDLER-CASE SB!INT:DX-FLET FLET BLOCK SB!INT:DX-LET LET TAGBODY ; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK ; ==> ; (TYPEP CONDITION 'ERROR) ; ; caught STYLE-WARNING: ; undefined type: ERROR ; (IGNORE-ERRORS (STREAM-ELEMENT-TYPE STREAM)) ; --> HANDLER-CASE SB!INT:DX-FLET FLET BLOCK SB!INT:DX-LET LET TAGBODY ; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK ; ==> ; (TYPEP CONDITION 'ERROR) ; ; caught STYLE-WARNING: ; undefined type: ERROR ; in: DEFUN FILE-POSITION-OR-NIL-FOR-ERROR ; (IGNORE-ERRORS ; (IF SB!KERNEL::POSP ; (FILE-POSITION STREAM SB!KERNEL::POS) ; (FILE-POSITION STREAM))) ; --> HANDLER-CASE SB!INT:DX-FLET FLET BLOCK SB!INT:DX-LET LET TAGBODY ; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK ; ==> ; (TYPEP CONDITION 'ERROR) ; ; caught STYLE-WARNING: ; undefined type: ERROR ; ; caught STYLE-WARNING: ; 5 more uses of undefined type ERROR ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-extensions.lisp ; in: DEFUN EXTRACT-VAR-DECLS ; (SB!INT:INFO :TYPE :KIND SB!IMPL::ID) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; (SB!C::GET-INFO-VALUE SB!IMPL::ID 22) ; ; caught STYLE-WARNING: ; undefined function: SB!C::GET-INFO-VALUE ; in: DEFUN CHECK-DEPRECATED-VARIABLE ; (SB!INT:INFO :VARIABLE :DEPRECATED SB!IMPL::NAME) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; (SB!C::GET-INFO-VALUE SB!IMPL::NAME 15) ; ; caught STYLE-WARNING: ; undefined function: SB!C::GET-INFO-VALUE ; in: DEFUN EXTRACT-VAR-DECLS ; (SB!INT:INFO :TYPE :KIND SB!IMPL::ID) ; ; caught STYLE-WARNING: ; undefined function: INFO ; in: DEFUN CHECK-DEPRECATED-VARIABLE ; (SB!INT:INFO :VARIABLE :DEPRECATED SB!IMPL::NAME) ; ; caught STYLE-WARNING: ; undefined function: INFO ; in: DEFUN STREAM-ERROR-POSITION-INFO ; (INTERACTIVE-STREAM-P STREAM) ; ; caught STYLE-WARNING: ; undefined function: INTERACTIVE-STREAM-P ; in: DEFMACRO DEFUN-CACHED ; (DEFMACRO SB!INT:DEFUN-CACHED ; ((SB!IMPL::NAME ; &REST SB!IMPL::OPTIONS ; &KEY ; (SB!IMPL::MEMOIZER ; (MAKE-SYMBOL "MEMOIZE") ; SB!IMPL::MEMOIZER-SUPPLIED-P) ; &ALLOW-OTHER-KEYS) ; SB!IMPL::ARGS ; &BODY SB!IMPL::BODY-DECLS-DOC) ; (LET ((SB!IMPL::ARG-NAMES (MAPCAR #'CAR SB!IMPL::ARGS))) ; (MULTIPLE-VALUE-BIND (SB!IMPL::FORMS SB!IMPL::DECLS SB!IMPL::DOC) ; (SB!INT:PARSE-BODY SB!IMPL::BODY-DECLS-DOC) ; (SB!INT:QUASIQUOTE (PROGN # #))))) ; --> PROGN EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* ; ==> ; (SB!KERNEL::KEYWORD-SUPPLIED-P ':MEMOIZER #:KEYWORDS-1852) ; ; caught STYLE-WARNING: ; undefined function: KEYWORD-SUPPLIED-P ; in: DEFMACRO DEFINE-HASH-CACHE ; (DEFMACRO SB!INT:DEFINE-HASH-CACHE ; (SB!IMPL::NAME SB!IMPL::ARGS ; &KEY SB!IMPL::HASH-FUNCTION SB!IMPL::HASH-BITS SB!IMPL::MEMOIZER ; (VALUES 1)) ; (DECLARE (IGNORE SB!IMPL::MEMOIZER)) ; (DOLIST (SB!DEBUG:ARG SB!IMPL::ARGS) ; (UNLESS (= (LENGTH SB!DEBUG:ARG) 2) ; (ERROR "bad argument spec: ~S" SB!DEBUG:ARG))) ; (ASSERT (TYPEP SB!IMPL::HASH-BITS '(INTEGER 5 14))) ; (LET* ((SB!IMPL::FUN-NAME ; (SB!INT:SYMBOLICATE SB!IMPL::NAME "-MEMO-WRAPPER")) ; (SB!IMPL::VAR-NAME ; (SB!INT:SYMBOLICATE "**" SB!IMPL::NAME "-CACHE-VECTOR**")) ; (SB!IMPL::STATISTICS-NAME (WHEN SB!IMPL::*PROFILE-HASH-CACHE* #)) ; (SB!IMPL::NARGS (LENGTH SB!IMPL::ARGS)) ; (SB!IMPL::SIZE (ASH 1 SB!IMPL::HASH-BITS)) ; (SB!IMPL::HASHVAL (MAKE-SYMBOL "HASH")) ; (SB!IMPL::CACHE (MAKE-SYMBOL "CACHE")) ; (SB!IMPL::ENTRY (MAKE-SYMBOL "LINE")) ; (SB!IMPL::THUNK (MAKE-SYMBOL "THUNK")) ; (SB!IMPL::ARG-VARS (MAPCAR #'FIRST SB!IMPL::ARGS)) ; (SB!IMPL::RESULT-TEMPS ; (LOOP SB!IMPL::FOR SB!IMPL::I SB!IMPL::FROM 1 SB!IMPL::TO VALUES ; SB!INT:COLLECT #)) ; (SB!IMPL::TEMPS (APPEND # SB!IMPL::RESULT-TEMPS)) ; ...) ; (SB!INT:QUASIQUOTE ; (PROGN ; (PUSHNEW '# SB!IMPL::*CACHE-VECTOR-SYMBOLS*) ; (SB!EXT:DEFGLOBAL # NIL) ; #S(SB!IMPL::COMMA :EXPR # :KIND 2) ; (DECLAIM #) ; (DEFUN # # #) ; (DECLAIM #) ; #S(SB!IMPL::COMMA :EXPR SB!IMPL::FUN :KIND 0))))) ; --> PROGN EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* LET* IF ; ==> ; (SB!KERNEL::KEYWORD-SUPPLIED-P :MEMOIZER #:KEYWORDS-1801) ; ; caught STYLE-WARNING: ; undefined function: KEYWORD-SUPPLIED-P ; in: DEFMACRO DOHASH ; (DEFMACRO SB!INT:DOHASH ; (((SB!IMPL::KEY-VAR SB!IMPL::VALUE-VAR) SB!IMPL::TABLE ; &KEY SB!IMPL::RESULT SB!IMPL::LOCKED) ; &BODY SB!IMPL::BODY) ; (MULTIPLE-VALUE-BIND (SB!IMPL::FORMS SB!IMPL::DECLS) ; (SB!INT:PARSE-BODY SB!IMPL::BODY :DOC-STRING-ALLOWED NIL) ; (SB!INT:WITH-UNIQUE-NAMES (SB!IMPL::GEN SB!IMPL::N-MORE SB!IMPL::N-TABLE) ; (LET (#) ; (SB!INT:QUASIQUOTE #))))) ; --> PROGN EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* LET* IF ; ==> ; (SB!KERNEL::KEYWORD-SUPPLIED-P :LOCKED #:KEYWORDS-1779) ; ; caught STYLE-WARNING: ; undefined function: KEYWORD-SUPPLIED-P ; ; caught STYLE-WARNING: ; 2 more uses of undefined function KEYWORD-SUPPLIED-P ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-extensions.lisp ; in: DEFUN SB!IMPL::DEFPRINTER-PRINC ; (DEFUN SB!IMPL::DEFPRINTER-PRINC (SB!IMPL::NAME SB!IMPL::VALUE STREAM) ; (SB!IMPL::DEFPRINTER-PRINX #'PRINC SB!IMPL::NAME SB!IMPL::VALUE STREAM)) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; --> SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET ; --> SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT1944 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-INVALID ; in: DEFUN SB!IMPL::DEFPRINTER-PRIN1 ; (DEFUN SB!IMPL::DEFPRINTER-PRIN1 (SB!IMPL::NAME SB!IMPL::VALUE STREAM) ; (SB!IMPL::DEFPRINTER-PRINX #'PRIN1 SB!IMPL::NAME SB!IMPL::VALUE STREAM)) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; --> SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET ; --> SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT1939 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-INVALID ; in: DEFMACRO DEFUN-CACHED ; (DEFMACRO SB!INT:DEFUN-CACHED ; ((SB!IMPL::NAME ; &REST SB!IMPL::OPTIONS ; &KEY ; (SB!IMPL::MEMOIZER ; (MAKE-SYMBOL "MEMOIZE") ; SB!IMPL::MEMOIZER-SUPPLIED-P) ; &ALLOW-OTHER-KEYS) ; SB!IMPL::ARGS ; &BODY SB!IMPL::BODY-DECLS-DOC) ; (LET ((SB!IMPL::ARG-NAMES (MAPCAR #'CAR SB!IMPL::ARGS))) ; (MULTIPLE-VALUE-BIND (SB!IMPL::FORMS SB!IMPL::DECLS SB!IMPL::DOC) ; (SB!INT:PARSE-BODY SB!IMPL::BODY-DECLS-DOC) ; (SB!INT:QUASIQUOTE (PROGN # #))))) ; --> PROGN EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* LET* IF ; ==> ; (SB!KERNEL::LOOKUP-KEYWORD ':MEMOIZER #:KEYWORDS-1852) ; ; caught STYLE-WARNING: ; undefined function: LOOKUP-KEYWORD ; in: DEFMACRO DEFINE-HASH-CACHE ; (DEFMACRO SB!INT:DEFINE-HASH-CACHE ; (SB!IMPL::NAME SB!IMPL::ARGS ; &KEY SB!IMPL::HASH-FUNCTION SB!IMPL::HASH-BITS SB!IMPL::MEMOIZER ; (VALUES 1)) ; (DECLARE (IGNORE SB!IMPL::MEMOIZER)) ; (DOLIST (SB!DEBUG:ARG SB!IMPL::ARGS) ; (UNLESS (= (LENGTH SB!DEBUG:ARG) 2) ; (ERROR "bad argument spec: ~S" SB!DEBUG:ARG))) ; (ASSERT (TYPEP SB!IMPL::HASH-BITS '(INTEGER 5 14))) ; (LET* ((SB!IMPL::FUN-NAME ; (SB!INT:SYMBOLICATE SB!IMPL::NAME "-MEMO-WRAPPER")) ; (SB!IMPL::VAR-NAME ; (SB!INT:SYMBOLICATE "**" SB!IMPL::NAME "-CACHE-VECTOR**")) ; (SB!IMPL::STATISTICS-NAME (WHEN SB!IMPL::*PROFILE-HASH-CACHE* #)) ; (SB!IMPL::NARGS (LENGTH SB!IMPL::ARGS)) ; (SB!IMPL::SIZE (ASH 1 SB!IMPL::HASH-BITS)) ; (SB!IMPL::HASHVAL (MAKE-SYMBOL "HASH")) ; (SB!IMPL::CACHE (MAKE-SYMBOL "CACHE")) ; (SB!IMPL::ENTRY (MAKE-SYMBOL "LINE")) ; (SB!IMPL::THUNK (MAKE-SYMBOL "THUNK")) ; (SB!IMPL::ARG-VARS (MAPCAR #'FIRST SB!IMPL::ARGS)) ; (SB!IMPL::RESULT-TEMPS ; (LOOP SB!IMPL::FOR SB!IMPL::I SB!IMPL::FROM 1 SB!IMPL::TO VALUES ; SB!INT:COLLECT #)) ; (SB!IMPL::TEMPS (APPEND # SB!IMPL::RESULT-TEMPS)) ; ...) ; (SB!INT:QUASIQUOTE ; (PROGN ; (PUSHNEW '# SB!IMPL::*CACHE-VECTOR-SYMBOLS*) ; (SB!EXT:DEFGLOBAL # NIL) ; #S(SB!IMPL::COMMA :EXPR # :KIND 2) ; (DECLAIM #) ; (DEFUN # # #) ; (DECLAIM #) ; #S(SB!IMPL::COMMA :EXPR SB!IMPL::FUN :KIND 0))))) ; --> PROGN EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* LET* IF ; ==> ; (SB!KERNEL::LOOKUP-KEYWORD ':VALUES #:KEYWORDS-1801) ; ; caught STYLE-WARNING: ; undefined function: LOOKUP-KEYWORD ; in: DEFMACRO DOHASH ; (DEFMACRO SB!INT:DOHASH ; (((SB!IMPL::KEY-VAR SB!IMPL::VALUE-VAR) SB!IMPL::TABLE ; &KEY SB!IMPL::RESULT SB!IMPL::LOCKED) ; &BODY SB!IMPL::BODY) ; (MULTIPLE-VALUE-BIND (SB!IMPL::FORMS SB!IMPL::DECLS) ; (SB!INT:PARSE-BODY SB!IMPL::BODY :DOC-STRING-ALLOWED NIL) ; (SB!INT:WITH-UNIQUE-NAMES (SB!IMPL::GEN SB!IMPL::N-MORE SB!IMPL::N-TABLE) ; (LET (#) ; (SB!INT:QUASIQUOTE #))))) ; --> PROGN EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* LET* IF ; ==> ; (SB!KERNEL::LOOKUP-KEYWORD :LOCKED #:KEYWORDS-1779) ; ; caught STYLE-WARNING: ; undefined function: LOOKUP-KEYWORD ; ; caught STYLE-WARNING: ; 2 more uses of undefined function LOOKUP-KEYWORD ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-extensions.lisp ; in: DEFUN NEG-FP-ZERO ; (SB!KERNEL:MAKE-UNPORTABLE-FLOAT :SINGLE-FLOAT-NEGATIVE-ZERO) ; ; caught STYLE-WARNING: ; undefined function: MAKE-UNPORTABLE-FLOAT ; in: DEFMACRO DEFUN-CACHED ; (SB!INT:PARSE-BODY SB!IMPL::BODY-DECLS-DOC) ; ; caught STYLE-WARNING: ; undefined function: PARSE-BODY ; in: DEFMACRO DOHASH ; (SB!INT:PARSE-BODY SB!IMPL::BODY :DOC-STRING-ALLOWED NIL) ; ; caught STYLE-WARNING: ; undefined function: PARSE-BODY ; in: DEFMACRO DOVECTOR ; (SB!INT:PARSE-BODY SB!IMPL::BODY :DOC-STRING-ALLOWED NIL) ; ; caught STYLE-WARNING: ; undefined function: PARSE-BODY ; ; caught STYLE-WARNING: ; 2 more uses of undefined function PARSE-BODY ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-extensions.lisp ; in: DEFUN SB!IMPL::DEFPRINTER-PRINC ; (DEFUN SB!IMPL::DEFPRINTER-PRINC (SB!IMPL::NAME SB!IMPL::VALUE STREAM) ; (SB!IMPL::DEFPRINTER-PRINX #'PRINC SB!IMPL::NAME SB!IMPL::VALUE STREAM)) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; --> SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET ; --> SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT1944 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: UPDATE-OBJECT-LAYOUT-OR-INVALID ; in: DEFUN SB!IMPL::DEFPRINTER-PRIN1 ; (DEFUN SB!IMPL::DEFPRINTER-PRIN1 (SB!IMPL::NAME SB!IMPL::VALUE STREAM) ; (SB!IMPL::DEFPRINTER-PRINX #'PRIN1 SB!IMPL::NAME SB!IMPL::VALUE STREAM)) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; --> SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET ; --> SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT1939 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: UPDATE-OBJECT-LAYOUT-OR-INVALID ; in: DEFMACRO DEFUN-CACHED ; (DEFMACRO SB!INT:DEFUN-CACHED ; ((SB!IMPL::NAME ; &REST SB!IMPL::OPTIONS ; &KEY ; (SB!IMPL::MEMOIZER ; (MAKE-SYMBOL "MEMOIZE") ; SB!IMPL::MEMOIZER-SUPPLIED-P) ; &ALLOW-OTHER-KEYS) ; SB!IMPL::ARGS ; &BODY SB!IMPL::BODY-DECLS-DOC) ; (LET ((SB!IMPL::ARG-NAMES (MAPCAR #'CAR SB!IMPL::ARGS))) ; (MULTIPLE-VALUE-BIND (SB!IMPL::FORMS SB!IMPL::DECLS SB!IMPL::DOC) ; (SB!INT:PARSE-BODY SB!IMPL::BODY-DECLS-DOC) ; (SB!INT:QUASIQUOTE (PROGN # #))))) ; --> PROGN EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; (SB!KERNEL::VERIFY-KEYWORDS #:KEYWORDS-1852 '(:MEMOIZER) 'T NIL) ; ; caught STYLE-WARNING: ; undefined function: VERIFY-KEYWORDS ; in: DEFMACRO DEFINE-HASH-CACHE ; (DEFMACRO SB!INT:DEFINE-HASH-CACHE ; (SB!IMPL::NAME SB!IMPL::ARGS ; &KEY SB!IMPL::HASH-FUNCTION SB!IMPL::HASH-BITS SB!IMPL::MEMOIZER ; (VALUES 1)) ; (DECLARE (IGNORE SB!IMPL::MEMOIZER)) ; (DOLIST (SB!DEBUG:ARG SB!IMPL::ARGS) ; (UNLESS (= (LENGTH SB!DEBUG:ARG) 2) ; (ERROR "bad argument spec: ~S" SB!DEBUG:ARG))) ; (ASSERT (TYPEP SB!IMPL::HASH-BITS '(INTEGER 5 14))) ; (LET* ((SB!IMPL::FUN-NAME ; (SB!INT:SYMBOLICATE SB!IMPL::NAME "-MEMO-WRAPPER")) ; (SB!IMPL::VAR-NAME ; (SB!INT:SYMBOLICATE "**" SB!IMPL::NAME "-CACHE-VECTOR**")) ; (SB!IMPL::STATISTICS-NAME (WHEN SB!IMPL::*PROFILE-HASH-CACHE* #)) ; (SB!IMPL::NARGS (LENGTH SB!IMPL::ARGS)) ; (SB!IMPL::SIZE (ASH 1 SB!IMPL::HASH-BITS)) ; (SB!IMPL::HASHVAL (MAKE-SYMBOL "HASH")) ; (SB!IMPL::CACHE (MAKE-SYMBOL "CACHE")) ; (SB!IMPL::ENTRY (MAKE-SYMBOL "LINE")) ; (SB!IMPL::THUNK (MAKE-SYMBOL "THUNK")) ; (SB!IMPL::ARG-VARS (MAPCAR #'FIRST SB!IMPL::ARGS)) ; (SB!IMPL::RESULT-TEMPS ; (LOOP SB!IMPL::FOR SB!IMPL::I SB!IMPL::FROM 1 SB!IMPL::TO VALUES ; SB!INT:COLLECT #)) ; (SB!IMPL::TEMPS (APPEND # SB!IMPL::RESULT-TEMPS)) ; ...) ; (SB!INT:QUASIQUOTE ; (PROGN ; (PUSHNEW '# SB!IMPL::*CACHE-VECTOR-SYMBOLS*) ; (SB!EXT:DEFGLOBAL # NIL) ; #S(SB!IMPL::COMMA :EXPR # :KIND 2) ; (DECLAIM #) ; (DEFUN # # #) ; (DECLAIM #) ; #S(SB!IMPL::COMMA :EXPR SB!IMPL::FUN :KIND 0))))) ; --> PROGN EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; (SB!KERNEL::VERIFY-KEYWORDS #:KEYWORDS-1801 ; '(:VALUES :MEMOIZER :HASH-BITS :HASH-FUNCTION) ; 'NIL NIL) ; ; caught STYLE-WARNING: ; undefined function: VERIFY-KEYWORDS ; in: DEFMACRO DOHASH ; (DEFMACRO SB!INT:DOHASH ; (((SB!IMPL::KEY-VAR SB!IMPL::VALUE-VAR) SB!IMPL::TABLE ; &KEY SB!IMPL::RESULT SB!IMPL::LOCKED) ; &BODY SB!IMPL::BODY) ; (MULTIPLE-VALUE-BIND (SB!IMPL::FORMS SB!IMPL::DECLS) ; (SB!INT:PARSE-BODY SB!IMPL::BODY :DOC-STRING-ALLOWED NIL) ; (SB!INT:WITH-UNIQUE-NAMES (SB!IMPL::GEN SB!IMPL::N-MORE SB!IMPL::N-TABLE) ; (LET (#) ; (SB!INT:QUASIQUOTE #))))) ; --> PROGN EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; (SB!KERNEL::VERIFY-KEYWORDS #:KEYWORDS-1779 '(:LOCKED :RESULT) 'NIL NIL) ; ; caught STYLE-WARNING: ; undefined function: VERIFY-KEYWORDS ; ; caught STYLE-WARNING: ; 2 more uses of undefined function VERIFY-KEYWORDS ; ; compilation unit finished ; Undefined types: ; CODE-DELETION-NOTE COMPILER-NOTE ERROR ; Undefined functions: ; SB!IMPL::%DEFGLOBAL SB!IMPL::%DEFTYPE %FUNCALLABLE-INSTANCE-LAYOUT %OTHER-POINTER-WIDETAG SB!IMPL::CONSTANT-TYPE-EXPANDER SB!C::GET-INFO-VALUE INFO INTERACTIVE-STREAM-P KEYWORD-SUPPLIED-P LAYOUT-INVALID LOOKUP-KEYWORD MAKE-UNPORTABLE-FLOAT PARSE-BODY UPDATE-OBJECT-LAYOUT-OR-INVALID VERIFY-KEYWORDS ; caught 48 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/early-extensions.lisp-obj-tmp written ; compilation finished in 0:00:01.429 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/parse-body.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!INT") ; x-compiling (/SHOW0 "entering parse-body.lisp") ; x-compiling (DEFUN PARSE-BODY ...) ; x-compiling (/SHOW0 "leaving parse-body.lisp") ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/parse-body.lisp ; in: DEFUN PARSE-BODY ; (DEFUN SB!INT:PARSE-BODY ; (SB!INT::BODY ; &KEY (SB!INT::DOC-STRING-ALLOWED T) (SB!INT::TOPLEVEL NIL)) ; (LET ((SB!INT::REVERSED-DECLS NIL) ; (SB!INT::FORMS SB!INT::BODY) ; (SB!INT::DOC NIL)) ; (FLET ((SB!INT::DOC-STRING-P # ; #) ; (SB!INT::DECLARATION-P # ; #)) ; (TAGBODY ; :AGAIN ; (IF SB!INT::FORMS ; #) ; :DONE) ; (VALUES SB!INT::FORMS (NREVERSE SB!INT::REVERSED-DECLS) SB!INT::DOC)))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!INT::BODY #:.DEFAULTING-TEMP. #:.DEFAULTING-TEMP.) {B5F4601}> ; SB!INT::BODY T NIL)) ; ; caught STYLE-WARNING: ; undefined type: SB!EXT:CODE-DELETION-NOTE ; ; compilation unit finished ; Undefined type: ; SB!EXT:CODE-DELETION-NOTE ; caught 1 STYLE-WARNING condition ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/parse-body.lisp-obj-tmp written ; compilation finished in 0:00:00.015 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/parse-defmacro.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (DEFVAR *ARG-TESTS*) ; x-compiling (DECLAIM (TYPE LIST ...)) ; x-compiling (DEFVAR *SYSTEM-LETS*) ; x-compiling (DECLAIM (TYPE LIST ...)) ; x-compiling (DEFVAR *USER-LETS*) ; x-compiling (DECLAIM (TYPE LIST ...)) ; x-compiling (DEFVAR *ENV-VAR*) ; x-compiling (DEFVAR *DEFAULT-DEFAULT*) ; x-compiling (DEFVAR *IGNORABLE-VARS*) ; x-compiling (DECLAIM (TYPE LIST ...)) ; x-compiling (DEFUN PARSE-DEFMACRO ...) ; x-compiling (DEFUN PARSE-DEFMACRO-LAMBDA-LIST ...) ; x-compiling (DEFUN ARG-COUNT-ERROR ...) ; x-compiling (DEFUN PUSH-SUBLIST-BINDING ...) ; x-compiling (DEFUN PUSH-LET-BINDING ...) ; x-compiling (DEFUN PUSH-OPTIONAL-BINDING ...) ; x-compiling (DEFUN DEFMACRO-ERROR ...) ; x-compiling (DEFUN CHECK-DEFMACRO-ARG ...) ; x-compiling (DEFUN VERIFY-KEYWORDS ...) ; x-compiling (DEFUN LOOKUP-KEYWORD ...) ; x-compiling (DEFUN KEYWORD-SUPPLIED-P ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/parse-defmacro.lisp ; in: DEFUN PARSE-DEFMACRO ; (SB!INT:BAD-TYPE SB!KERNEL::LAMBDA-LIST 'LIST ; "~S lambda-list is not a list: ~S" SB!KERNEL::CONTEXT SB!KERNEL::LAMBDA-LIST) ; ; caught STYLE-WARNING: ; undefined function: BAD-TYPE ; (DEFUN SB!KERNEL:PARSE-DEFMACRO ; (SB!KERNEL::LAMBDA-LIST SB!KERNEL::WHOLE-VAR SB!KERNEL::BODY ; SB!KERNEL::NAME SB!KERNEL::CONTEXT ; &KEY (SB!KERNEL::ANONYMOUSP NIL) (SB!KERNEL::DOC-STRING-ALLOWED T) ; ((:ENVIRONMENT SB!KERNEL::ENV-ARG-NAME)) ; ((:DEFAULT-DEFAULT SB!KERNEL::*DEFAULT-DEFAULT*)) ; (SB!KERNEL::ERROR-FUN 'ERROR) (SB!KERNEL::WRAP-BLOCK T)) ; (UNLESS (LISTP SB!KERNEL::LAMBDA-LIST) ; (SB!INT:BAD-TYPE SB!KERNEL::LAMBDA-LIST 'LIST ; "~S lambda-list is not a list: ~S" SB!KERNEL::CONTEXT ; SB!KERNEL::LAMBDA-LIST)) ; (MULTIPLE-VALUE-BIND ; (SB!KERNEL::FORMS SB!KERNEL::DECLARATIONS DOCUMENTATION) ; (SB!INT:PARSE-BODY SB!KERNEL::BODY :DOC-STRING-ALLOWED ; SB!KERNEL::DOC-STRING-ALLOWED) ; (LET ((SB!KERNEL::*ARG-TESTS* NIL) ; (SB!KERNEL::*USER-LETS* NIL) ; (SB!KERNEL::*SYSTEM-LETS* NIL) ; (SB!KERNEL::*IGNORABLE-VARS* NIL) ; (SB!KERNEL::*ENV-VAR* NIL)) ; (MULTIPLE-VALUE-BIND ; (SB!KERNEL::ENV-ARG-USED SB!KERNEL::MINIMUM SB!KERNEL::MAXIMUM) ; (SB!KERNEL::PARSE-DEFMACRO-LAMBDA-LIST SB!KERNEL::LAMBDA-LIST ; SB!KERNEL::WHOLE-VAR ; SB!KERNEL::NAME ; SB!KERNEL::CONTEXT ; :ERROR-FUN ; SB!KERNEL::ERROR-FUN ; :ANONYMOUSP ; SB!KERNEL::ANONYMOUSP) ; (VALUES # # DOCUMENTATION SB!KERNEL::MINIMUM SB!KERNEL::MAXIMUM))))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!KERNEL::LAMBDA-LIST SB!KERNEL::WHOLE-VAR SB!KERNEL::BODY ; SB!KERNEL::NAME SB!KERNEL::CONTEXT #:.DEFAULTING-TEMP. ; #:.DEFAULTING-TEMP. #:.DEFAULTING-TEMP. #:.DEFAULTING-TEMP. ; #:.DEFAULTING-TEMP. #:.DEFAULTING-TEMP.) ; {B75AE61}> ; SB!KERNEL::LAMBDA-LIST SB!KERNEL::WHOLE-VAR SB!KERNEL::BODY SB!KERNEL::NAME ; SB!KERNEL::CONTEXT NIL T NIL NIL 'ERROR ...)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; (MULTIPLE-VALUE-BIND (SB!KERNEL::FORMS SB!KERNEL::DECLARATIONS DOCUMENTATION) ; (SB!INT:PARSE-BODY SB!KERNEL::BODY :DOC-STRING-ALLOWED ; SB!KERNEL::DOC-STRING-ALLOWED) ; (LET ((SB!KERNEL::*ARG-TESTS* NIL) ; (SB!KERNEL::*USER-LETS* NIL) ; (SB!KERNEL::*SYSTEM-LETS* NIL) ; (SB!KERNEL::*IGNORABLE-VARS* NIL) ; (SB!KERNEL::*ENV-VAR* NIL)) ; (MULTIPLE-VALUE-BIND ; (SB!KERNEL::ENV-ARG-USED SB!KERNEL::MINIMUM SB!KERNEL::MAXIMUM) ; (SB!KERNEL::PARSE-DEFMACRO-LAMBDA-LIST SB!KERNEL::LAMBDA-LIST ; SB!KERNEL::WHOLE-VAR ; SB!KERNEL::NAME ; SB!KERNEL::CONTEXT :ERROR-FUN ; SB!KERNEL::ERROR-FUN ; :ANONYMOUSP ; SB!KERNEL::ANONYMOUSP) ; (VALUES (SB!INT:QUASIQUOTE #) (SB!INT:QUASIQUOTE #) DOCUMENTATION ; SB!KERNEL::MINIMUM SB!KERNEL::MAXIMUM)))) ; --> MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!KERNEL::FORMS SB!KERNEL::DECLARATIONS DOCUMENTATION #:G0) ; {B760D01}> ; SB!KERNEL::FORMS SB!KERNEL::DECLARATIONS DOCUMENTATION NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; (MULTIPLE-VALUE-BIND ; (SB!KERNEL::ENV-ARG-USED SB!KERNEL::MINIMUM SB!KERNEL::MAXIMUM) ; (SB!KERNEL::PARSE-DEFMACRO-LAMBDA-LIST SB!KERNEL::LAMBDA-LIST ; SB!KERNEL::WHOLE-VAR ; SB!KERNEL::NAME SB!KERNEL::CONTEXT ; :ERROR-FUN SB!KERNEL::ERROR-FUN ; :ANONYMOUSP SB!KERNEL::ANONYMOUSP) ; (VALUES ; (SB!INT:QUASIQUOTE ; (LET* (#) ; (DECLARE #) ; #S(SB!IMPL::COMMA :EXPR # :KIND 2) ; #S(SB!IMPL::COMMA :EXPR SB!KERNEL::*ARG-TESTS* :KIND 2) ; (LET* # ; # ; #))) ; (SB!INT:QUASIQUOTE (#S(SB!IMPL::COMMA :EXPR # :KIND 2))) DOCUMENTATION ; SB!KERNEL::MINIMUM SB!KERNEL::MAXIMUM)) ; --> MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!KERNEL::ENV-ARG-USED SB!KERNEL::MINIMUM SB!KERNEL::MAXIMUM ; #:G1) ; {B763C59}> ; SB!KERNEL::ENV-ARG-USED SB!KERNEL::MINIMUM SB!KERNEL::MAXIMUM NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 18 more uses of undefined type CODE-DELETION-NOTE ; ; compilation unit finished ; Undefined type: ; CODE-DELETION-NOTE ; Undefined function: ; BAD-TYPE ; caught 5 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/parse-defmacro.lisp-obj-tmp written ; compilation finished in 0:00:00.150 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/deftype.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFUN CONSTANT-TYPE-EXPANDER ...) ; x-compiling (DEFUN %DEFTYPE ...) ; x-compiling (DEF!MACRO SB-XC:DEFTYPE ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/deftype.lisp ; in: DEFUN %DEFTYPE ; (SETF (SB!KERNEL:CLASSOID-CELL-PCL-CLASS ; (SB!KERNEL:FIND-CLASSOID-CELL SB!IMPL::NAME :CREATE T)) ; NIL) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!KERNEL:CLASSOID-CELL-PCL-CLASS) #:NEW2 #:G3) ; ; caught STYLE-WARNING: ; undefined function: (SETF CLASSOID-CELL-PCL-CLASS) ; in: DEF!MACRO SB-XC:DEFTYPE ; (SB!INT:BAD-TYPE SB!IMPL::NAME 'SYMBOL "Type name is not a symbol:~% ~S" ; SB!KERNEL:FORM) ; ; caught STYLE-WARNING: ; undefined function: BAD-TYPE ; (MULTIPLE-VALUE-BIND (SB!IMPL::FORMS SB!IMPL::DECLS SB!IMPL::DOC) ; (SB!INT:PARSE-BODY SB!IMPL::BODY) ; (IF (AND (NOT SB!IMPL::LAMBDA-LIST) (NOT SB!IMPL::DECLS) ; (NOT (CDR SB!IMPL::FORMS)) (OR (MEMBER # '#) (AND # #))) ; (VALUES (SB!INT:QUASIQUOTE (SB!IMPL::CONSTANT-TYPE-EXPANDER #)) ; SB!IMPL::DOC '(SB!C:SOURCE-LOCATION)) ; (SB!INT:WITH-UNIQUE-NAMES (SB!IMPL::WHOLE) ; (MULTIPLE-VALUE-BIND ; (SB!IMPL::MACRO-BODY SB!IMPL::LOCAL-DECS SB!IMPL::DOC) ; (SB!KERNEL:PARSE-DEFMACRO SB!IMPL::LAMBDA-LIST SB!IMPL::WHOLE ; SB!IMPL::BODY SB!IMPL::NAME 'DEFTYPE ; :DEFAULT-DEFAULT ''*) ; (VALUES # SB!IMPL::DOC NIL))))) ; --> MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!IMPL::FORMS SB!IMPL::DECLS SB!IMPL::DOC #:G11) {C302509}> ; SB!IMPL::FORMS SB!IMPL::DECLS SB!IMPL::DOC NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; (MULTIPLE-VALUE-BIND (SB!IMPL::MACRO-BODY SB!IMPL::LOCAL-DECS SB!IMPL::DOC) ; (SB!KERNEL:PARSE-DEFMACRO SB!IMPL::LAMBDA-LIST SB!IMPL::WHOLE ; SB!IMPL::BODY SB!IMPL::NAME 'DEFTYPE ; :DEFAULT-DEFAULT ''*) ; (VALUES ; (SB!INT:QUASIQUOTE ; (LAMBDA (#) ; #S(SB!IMPL::COMMA :EXPR SB!IMPL::LOCAL-DECS :KIND 2) ; #S(SB!IMPL::COMMA :EXPR SB!IMPL::MACRO-BODY :KIND 0))) ; SB!IMPL::DOC NIL)) ; --> MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!IMPL::MACRO-BODY SB!IMPL::LOCAL-DECS SB!IMPL::DOC #:G12) ; {C308049}> ; SB!IMPL::MACRO-BODY SB!IMPL::LOCAL-DECS SB!IMPL::DOC NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; (MULTIPLE-VALUE-BIND ; (SB!IMPL::EXPANDER-FORM SB!IMPL::DOC SB!IMPL::SOURCE-LOCATION-FORM) ; (MULTIPLE-VALUE-BIND (SB!IMPL::FORMS SB!IMPL::DECLS SB!IMPL::DOC) ; (SB!INT:PARSE-BODY SB!IMPL::BODY) ; (IF (AND (NOT SB!IMPL::LAMBDA-LIST) (NOT SB!IMPL::DECLS) (NOT #) ; (OR # #)) ; (VALUES (SB!INT:QUASIQUOTE #) SB!IMPL::DOC '(SB!C:SOURCE-LOCATION)) ; (SB!INT:WITH-UNIQUE-NAMES (SB!IMPL::WHOLE) ; (MULTIPLE-VALUE-BIND # # #)))) ; (SB!INT:QUASIQUOTE ; (PROGN ; (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) ; (SB!IMPL::%COMPILER-DEFTYPE '# '# # # #)) ; (SB!IMPL::%DEFTYPE '#S(SB!IMPL::COMMA :EXPR SB!IMPL::NAME :KIND 0)) ; '#S(SB!IMPL::COMMA :EXPR SB!IMPL::NAME :KIND 0)))) ; --> MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!IMPL::EXPANDER-FORM SB!IMPL::DOC SB!IMPL::SOURCE-LOCATION-FORM ; #:G8) ; {C2EC2B1}> ; SB!IMPL::EXPANDER-FORM SB!IMPL::DOC SB!IMPL::SOURCE-LOCATION-FORM NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 2 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/deftype.lisp ; in: DEFUN %DEFTYPE ; (SB!KERNEL:FIND-CLASSOID-CELL SB!IMPL::NAME :CREATE T) ; ; caught STYLE-WARNING: ; undefined function: FIND-CLASSOID-CELL ; ; compilation unit finished ; Undefined type: ; CODE-DELETION-NOTE ; Undefined functions: ; (SETF CLASSOID-CELL-PCL-CLASS) BAD-TYPE FIND-CLASSOID-CELL ; caught 7 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/deftype.lisp-obj-tmp written ; compilation finished in 0:00:00.022 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/defconstant.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEF!MACRO SB-XC:DEFCONSTANT ...) ; x-compiling (DEFUN SB!C::%DEFCONSTANT ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/defconstant.lisp ; in: DEFUN SB!C::%DEFCONSTANT ; (WITH-SIMPLE-RESTART (ABORT "Keep the old value.") ; (CERROR "Go ahead and change the value." 'SB!EXT:DEFCONSTANT-UNEQL :NAME ; SB!IMPL::NAME :OLD-VALUE SB!IMPL::OLD :NEW-VALUE SB!IMPL::VALUE)) ; --> RESTART-CASE BLOCK LET TAGBODY RESTART-BIND LET CONS LIST CONS ; --> SB!KERNEL:MAKE-RESTART FUNCTION SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> UNLESS IF TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT2377 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: %FUNCALLABLE-INSTANCE-LAYOUT ; (SETF (SB!KERNEL:FDOCUMENTATION SB!IMPL::NAME 'VARIABLE) SB!IMPL::DOC) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!KERNEL:FDOCUMENTATION) #:NEW43 #:NAME44 'VARIABLE) ; ; caught STYLE-WARNING: ; undefined function: (SETF FDOCUMENTATION) ; (SETF (SB!INT:INFO :SOURCE-LOCATION :CONSTANT SB!IMPL::NAME) ; SB!IMPL::SOURCE-LOCATION) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!INT:INFO) #:NEW15 :SOURCE-LOCATION :CONSTANT ; #:NAME16) ; ; caught STYLE-WARNING: ; undefined function: (SETF INFO) ; (WITH-SIMPLE-RESTART (ABORT "Keep the old value.") ; (CERROR "Go ahead and change the value." 'SB!EXT:DEFCONSTANT-UNEQL :NAME ; SB!IMPL::NAME :OLD-VALUE SB!IMPL::OLD :NEW-VALUE SB!IMPL::VALUE)) ; --> RESTART-CASE BLOCK LET TAGBODY RESTART-BIND LET RETURN-FROM LET ; --> WITH-CONDITION-RESTARTS LET UNWIND-PROTECT FLET BLOCK DOLIST BLOCK LET ; --> TAGBODY UNLESS IF PROGN LET TAGBODY POP LET* FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!KERNEL:RESTART-ASSOCIATED-CONDITIONS) #:NEW33 ; #:RESTART2634) ; ; caught STYLE-WARNING: ; undefined function: (SETF RESTART-ASSOCIATED-CONDITIONS) ; (SB!INT:CLEAR-INFO :VARIABLE :MACRO-EXPANSION SB!IMPL::NAME) ; ; caught STYLE-WARNING: ; undefined function: CLEAR-INFO ; ==> ; (SB!C::CLEAR-INFO-VALUES SB!IMPL::NAME '(18)) ; ; caught STYLE-WARNING: ; undefined function: SB!C::CLEAR-INFO-VALUES ; (SB!INT:INFO :VARIABLE :KIND SB!IMPL::NAME) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:VALUE40 #:FOUNDP41 #:G40) {DD90DC9}> ; #:VALUE40 #:FOUNDP41 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; (WITH-SIMPLE-RESTART (ABORT "Keep the old value.") ; (CERROR "Go ahead and change the value." 'SB!EXT:DEFCONSTANT-UNEQL :NAME ; SB!IMPL::NAME :OLD-VALUE SB!IMPL::OLD :NEW-VALUE SB!IMPL::VALUE)) ; --> RESTART-CASE BLOCK LET TAGBODY RESTART-BIND LET RETURN-FROM LET ; --> WITH-CONDITION-RESTARTS LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:NEXT30 #:START31 #:COUNT32 #:G35) {DD64951}> ; #:NEXT30 #:START31 #:COUNT32 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; (MULTIPLE-VALUE-BIND (IGNORE SB!IMPL::ABORTED) ; (WITH-SIMPLE-RESTART (ABORT "Keep the old value.") ; (CERROR "Go ahead and change the value." 'SB!EXT:DEFCONSTANT-UNEQL ; :NAME SB!IMPL::NAME :OLD-VALUE SB!IMPL::OLD :NEW-VALUE ; SB!IMPL::VALUE)) ; (DECLARE (IGNORE IGNORE)) ; (WHEN SB!IMPL::ABORTED (RETURN-FROM SB!C::%DEFCONSTANT SB!IMPL::NAME))) ; --> MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (IGNORE SB!IMPL::ABORTED #:G18) {DD40F21}> ; IGNORE SB!IMPL::ABORTED NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 2 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/defconstant.lisp ; in: DEFUN SB!C::%DEFCONSTANT ; (WITH-SIMPLE-RESTART (ABORT "Keep the old value.") ; (CERROR "Go ahead and change the value." 'SB!EXT:DEFCONSTANT-UNEQL :NAME ; SB!IMPL::NAME :OLD-VALUE SB!IMPL::OLD :NEW-VALUE SB!IMPL::VALUE)) ; --> RESTART-CASE BLOCK LET TAGBODY RESTART-BIND LET RETURN-FROM LET ; ==> ; (SB!KERNEL:COERCE-TO-CONDITION 'SB!EXT:DEFCONSTANT-UNEQL ; (LIST :NAME SB!IMPL::NAME :OLD-VALUE ; SB!IMPL::OLD :NEW-VALUE SB!IMPL::VALUE) ; 'SIMPLE-ERROR 'CERROR) ; ; caught STYLE-WARNING: ; undefined type: CONDITION ; (SB!INT:INFO :VARIABLE :KIND SB!IMPL::NAME) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; (SB!C::GET-INFO-VALUE SB!IMPL::NAME 13) ; ; caught STYLE-WARNING: ; undefined function: SB!C::GET-INFO-VALUE ; ; caught STYLE-WARNING: ; undefined function: INFO ; (WITH-SIMPLE-RESTART (ABORT "Keep the old value.") ; (CERROR "Go ahead and change the value." 'SB!EXT:DEFCONSTANT-UNEQL :NAME ; SB!IMPL::NAME :OLD-VALUE SB!IMPL::OLD :NEW-VALUE SB!IMPL::VALUE)) ; --> RESTART-CASE BLOCK LET TAGBODY RESTART-BIND LET CONS LIST CONS ; --> SB!KERNEL:MAKE-RESTART FUNCTION SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> UNLESS IF TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT2377 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-INVALID ; --> RESTART-CASE BLOCK LET TAGBODY RESTART-BIND LET CONS LIST CONS ; ==> ; (SB!KERNEL:MAKE-RESTART 'ABORT ; (LAMBDA () (LOCALLY (DECLARE (OPTIMIZE #)) (GO #:TAG23))) ; #'(LAMBDA (#:STREAM21) ; (DECLARE (TYPE STREAM #:STREAM21)) ; (FORMAT #:STREAM21 "Keep the old value."))) ; ; caught STYLE-WARNING: ; undefined function: MAKE-RESTART ; --> RESTART-CASE BLOCK LET TAGBODY RESTART-BIND LET RETURN-FROM LET ; --> WITH-CONDITION-RESTARTS LET UNWIND-PROTECT FLET BLOCK DOLIST BLOCK LET ; --> TAGBODY UNLESS IF PROGN LET TAGBODY POP LET* ; ==> ; (SB!KERNEL:RESTART-ASSOCIATED-CONDITIONS #:RESTART2634) ; ; caught STYLE-WARNING: ; undefined function: RESTART-ASSOCIATED-CONDITIONS ; (SETF (SB!INT:INFO :SOURCE-LOCATION :CONSTANT SB!IMPL::NAME) ; SB!IMPL::SOURCE-LOCATION) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL SB!C::%FUNCALL (SETF SB!INT:INFO) ; --> LET LET ; ==> ; (SB!C::SET-INFO-VALUE #:NAME16 47 #:NEW17) ; ; caught STYLE-WARNING: ; undefined type: SB!C::TYPE-NUMBER ; (WITH-SIMPLE-RESTART (ABORT "Keep the old value.") ; (CERROR "Go ahead and change the value." 'SB!EXT:DEFCONSTANT-UNEQL :NAME ; SB!IMPL::NAME :OLD-VALUE SB!IMPL::OLD :NEW-VALUE SB!IMPL::VALUE)) ; --> RESTART-CASE BLOCK LET TAGBODY RESTART-BIND LET CONS LIST CONS ; --> SB!KERNEL:MAKE-RESTART FUNCTION SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> UNLESS IF TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT2377 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: UPDATE-OBJECT-LAYOUT-OR-INVALID ; ; compilation unit finished ; Undefined types: ; CODE-DELETION-NOTE CONDITION SB!C::TYPE-NUMBER ; Undefined functions: ; %FUNCALLABLE-INSTANCE-LAYOUT (SETF FDOCUMENTATION) (SETF INFO) (SETF RESTART-ASSOCIATED-CONDITIONS) CLEAR-INFO SB!C::CLEAR-INFO-VALUES SB!C::GET-INFO-VALUE INFO LAYOUT-INVALID MAKE-RESTART RESTART-ASSOCIATED-CONDITIONS UPDATE-OBJECT-LAYOUT-OR-INVALID ; caught 18 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/defconstant.lisp-obj-tmp written ; compilation finished in 0:00:00.036 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-alieneval.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!ALIEN") ; x-compiling (DEFVAR *ALIEN-TYPE-CLASSES* ...) ; x-compiling (DEFVAR *NEW-AUXILIARY-TYPES* ...) ; x-compiling (DEFVAR *RECORD-TYPES-ALREADY-UNPARSED*) ; x-compiling (DEFVAR *VALUES-TYPE-OKAY* ...) ; x-compiling (DEFVAR *DEFAULT-C-STRING-EXTERNAL-FORMAT* ...) ; x-compiling (DEFVAR *SAVED-FP-AND-PCS*) ; x-compiling (DECLAIM (INLINE INVOKE-WITH-SAVED-FP-AND-PC)) ; x-compiling (DEFUN INVOKE-WITH-SAVED-FP-AND-PC ...) ; x-compiling (DEFUN FIND-SAVED-FP-AND-PC ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-alieneval.lisp ; in: DEFUN INVOKE-WITH-SAVED-FP-AND-PC ; (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; ; compilation unit finished ; Undefined type: ; COMPILER-NOTE ; caught 1 STYLE-WARNING condition ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/early-alieneval.lisp-obj-tmp written ; compilation finished in 0:00:00.014 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/specializable-array.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (DEFMACRO !MAKE-SPECIALIZED-ARRAY ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/specializable-array.lisp-obj-tmp written ; compilation finished in 0:00:00.008 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-cl.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (PROCLAIM (QUOTE #)) ; x-compiling (DEFPARAMETER *!STANDARD-TYPE-NAMES* ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/early-cl.lisp-obj-tmp written ; compilation finished in 0:00:00.004 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-fasl.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!FASL") ; x-compiling (DEFPARAMETER *FASL-HEADER-STRING-START-STRING* ...) ; x-compiling (DEFINE-FASL-FORMAT-FEATURES) ; x-compiling (DEF!CONSTANT +FASL-HEADER-STRING-STOP-CHAR-CODE+ ...) ; x-compiling (DEF!CONSTANT +FASL-FILE-VERSION+ ...) ; x-compiling (DECLAIM (TYPE SIMPLE-STRING ...)) ; x-compiling (DEFVAR *FASL-FILE-TYPE* ...) ; x-compiling (DECLAIM (TYPE HASH-TABLE ...)) ; x-compiling (DEFVAR *ASSEMBLER-ROUTINES* ...) ; x-compiling (DECLAIM (SIMPLE-VECTOR *FOP-NAMES* ...)) ; x-compiling (DEFVAR *FOP-NAMES* ...) ; x-compiling (DEFVAR *FOP-FUNS* ...) ; x-compiling (DECLAIM (TYPE # ...)) ; x-compiling (DEFGLOBAL *FOP-SIGNATURES* ...) ; x-compiling (DEFVAR *LOAD-DEPTH* ...) ; x-compiling (DECLAIM (TYPE INDEX ...)) ; x-compiling (DEFVAR *FASL-INPUT-STREAM*) ; x-compiling (DECLAIM (TYPE ANSI-STREAM ...)) ; x-compiling (DEFVAR *LOAD-CODE-VERBOSE* ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-fasl.lisp ; in: DEFGLOBAL *FOP-SIGNATURES* ; (SB!EXT:DEFGLOBAL SB!FASL::*FOP-SIGNATURES* ; (CONS (MAKE-ARRAY 64 :ELEMENT-TYPE 'BIT :INITIAL-ELEMENT 0) ; (MAKE-ARRAY 256 :ELEMENT-TYPE 'BIT :INITIAL-ELEMENT ; 0))) ; --> PROGN LET LET ; ==> ; (SB!IMPL::%DEFGLOBAL 'SB!FASL::*FOP-SIGNATURES* ; (UNLESS #:BOUNDP ; (CONS ; (MAKE-ARRAY 64 :ELEMENT-TYPE 'BIT :INITIAL-ELEMENT 0) ; (MAKE-ARRAY 256 :ELEMENT-TYPE 'BIT :INITIAL-ELEMENT ; 0))) ; #:BOUNDP 'NIL NIL (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::%DEFGLOBAL ; in: DECLAIM (TYPE ANSI-STREAM *FASL-INPUT-STREAM*) ; (DECLAIM (TYPE SB!KERNEL:ANSI-STREAM SB!FASL::*FASL-INPUT-STREAM*)) ; --> EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(TYPE SB!KERNEL:ANSI-STREAM SB!FASL::*FASL-INPUT-STREAM*)) ; ; caught STYLE-WARNING: ; undefined type: ANSI-STREAM ; in: DEFVAR *FOP-NAMES* ; (MAKE-ARRAY 256 :INITIAL-ELEMENT NIL) ; --> LOCALLY MAKE-ARRAY SB!EXT:TRULY-THE ; ==> ; (FILL ; (SB!EXT:TRULY-THE (SIMPLE-ARRAY T (256)) ; (SB!KERNEL:ALLOCATE-VECTOR 214 (THE SB!INT:INDEX LENGTH) ; 256)) ; (THE T 'NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; compilation unit finished ; Undefined types: ; ANSI-STREAM CODE-DELETION-NOTE ; Undefined function: ; SB!IMPL::%DEFGLOBAL ; caught 3 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/early-fasl.lisp-obj-tmp written ; compilation finished in 0:00:00.066 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/debug-var-io.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFUN %READ-VAR-INTEGER ...) ; x-compiling (DEFMACRO READ-VAR-INTEGER ...) ; x-compiling (DEFUN WRITE-VAR-INTEGER ...) ; x-compiling (DEFMACRO READ-VAR-STRING ...) ; x-compiling (DEFUN WRITE-VAR-STRING ...) ; x-compiling (DEFMACRO READ-PACKED-BIT-VECTOR ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/debug-var-io.lisp-obj-tmp written ; compilation finished in 0:00:00.049 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-thread.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!THREAD") ; x-compiling (DEFVAR *CURRENT-THREAD* ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/early-thread.lisp-obj-tmp written ; compilation finished in 0:00:00.004 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-defbangmethod.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFVAR *DELAYED-DEF!METHOD-ARGS* ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/target-defbangmethod.lisp-obj-tmp written ; compilation finished in 0:00:00.003 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-print.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DECLAIM (INDEX *CURRENT-LEVEL-IN-PRINT*)) ; x-compiling (!DEFVAR *CURRENT-LEVEL-IN-PRINT* ...) ; x-compiling (DEFMACRO DESCEND-INTO ...) ; x-compiling (DEFMACRO PUNT-PRINT-IF-TOO-LONG ...) ; x-compiling (DEFVAR *CIRCULARITY-HASH-TABLE* ...) ; x-compiling (DEFVAR *CIRCULARITY-COUNTER* ...) ; x-compiling (DEFUN CHECK-FOR-CIRCULARITY ...) ; x-compiling (DEFUN HANDLE-CIRCULARITY ...) ; x-compiling (DEFMACRO WITH-CIRCULARITY-DETECTION ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-print.lisp ; in: DEFUN CHECK-FOR-CIRCULARITY ; (DEFUN SB!KERNEL:CHECK-FOR-CIRCULARITY ; (SB!IMPL::OBJECT &OPTIONAL SB!IMPL::ASSIGN (SB!IMPL::MODE T)) ; (COND ((NULL *PRINT-CIRCLE*) NIL) ; ((NULL SB!IMPL::*CIRCULARITY-HASH-TABLE*) (VALUES NIL :INITIATE)) ; ((NULL SB!IMPL::*CIRCULARITY-COUNTER*) ; (ECASE (GETHASH SB!IMPL::OBJECT SB!IMPL::*CIRCULARITY-HASH-TABLE*) ; (# # NIL) ; (# # T) ; (# #) ; (# T))) ; (T ; (LET (#) ; (CASE SB!IMPL::VALUE # # # #))))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!IMPL::OBJECT SB!IMPL::ASSIGN SB!IMPL::MODE) {B587001}> ; SB!IMPL::OBJECT SB!IMPL::ASSIGN 'T)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN HANDLE-CIRCULARITY ; (SB!IMPL::OUTPUT-INTEGER (- SB!IMPL::MARKER) STREAM) ; ; caught STYLE-WARNING: ; undefined function: OUTPUT-INTEGER ; ; compilation unit finished ; Undefined type: ; CODE-DELETION-NOTE ; Undefined function: ; OUTPUT-INTEGER ; caught 2 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/early-print.lisp-obj-tmp written ; compilation finished in 0:00:00.047 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-pprint.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!PRETTY") ; x-compiling (DEFMACRO WITH-PRETTY-STREAM ...) ; x-compiling (DEFMACRO PPRINT-LOGICAL-BLOCK ...) ; x-compiling (DEFMACRO PPRINT-EXIT-IF-LIST-EXHAUSTED ...) ; x-compiling (DEFMACRO PPRINT-POP ...) ; x-compiling (DECLAIM (INLINE LISTP-FOR-PPRINT)) ; x-compiling (DEFUN LISTP-FOR-PPRINT ...) ; x-compiling (DEFUN %PPRINT-DOTTED-TAIL ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-pprint.lisp ; in: DEFMACRO PPRINT-LOGICAL-BLOCK ; (MULTIPLE-VALUE-BIND (SB!PRETTY::STREAM-VAR SB!PRETTY::STREAM-EXPRESSION) ; (CASE SB!PRETTY::STREAM-SYMBOL ; ((NIL) (VALUES '*STANDARD-OUTPUT* '*STANDARD-OUTPUT*)) ; ((T) (VALUES '*TERMINAL-IO* '*TERMINAL-IO*)) ; (T ; (VALUES SB!PRETTY::STREAM-SYMBOL ; (SB!INT:ONCE-ONLY # ; #)))) ; (LET* ((SB!PRETTY::BLOCK-NAME (SB-XC:GENSYM "PPRINT-LOGICAL-BLOCK-")) ; (SB!PRETTY::COUNT-NAME (GENSYM "PPRINT-LOGICAL-BLOCK-LENGTH-")) ; (SB!PRETTY::PP-POP-NAME (SB-XC:GENSYM "PPRINT-POP-")) ; (SB!PRETTY::BODY (SB!INT:QUASIQUOTE #))) ; (WHEN SB!PRETTY::OBJECT (SETF SB!PRETTY::BODY #)) ; (SB!INT:QUASIQUOTE ; (SB!PRETTY::WITH-PRETTY-STREAM (# #) ; #S(SB!IMPL::COMMA :EXPR SB!PRETTY::BODY :KIND 0))))) ; --> MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!PRETTY::STREAM-VAR SB!PRETTY::STREAM-EXPRESSION #:G41) ; {B9F13B1}> ; SB!PRETTY::STREAM-VAR SB!PRETTY::STREAM-EXPRESSION NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; (DEFMACRO PPRINT-LOGICAL-BLOCK ; ((SB!PRETTY::STREAM-SYMBOL SB!PRETTY::OBJECT ; &KEY (SB!PRETTY::PREFIX NIL SB!PRETTY::PREFIXP) ; (SB!PRETTY::PER-LINE-PREFIX NIL SB!PRETTY::PER-LINE-PREFIX-P) ; (SB!PRETTY::SUFFIX "" SB!PRETTY::SUFFIXP)) ; &BODY SB!PRETTY::BODY) ; "Group some output into a logical block. STREAM-SYMBOL should be either a ; stream, T (for *TERMINAL-IO*), or NIL (for *STANDARD-OUTPUT*). The printer ; control variable *PRINT-LEVEL* is automatically handled." ; (LET ((SB!PRETTY::PREFIX (COND # # #))) ; (LET ((SB!PRETTY::OBJECT-VAR #)) ; (SB!INT:ONCE-ONLY (# #) ; (MULTIPLE-VALUE-BIND # # #))))) ; --> PROGN EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:PROBLEM35 #:INFO36 #:G38) {B9D7359}> ; #:PROBLEM35 #:INFO36 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; compilation unit finished ; Undefined type: ; CODE-DELETION-NOTE ; caught 2 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/early-pprint.lisp-obj-tmp written ; compilation finished in 0:00:00.062 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-impl.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DECLAIM (SPECIAL *POSIX-ARGV* ...)) ; x-compiling (!DEFVAR SB!VM:*ALLOC-SIGNAL* ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/early-impl.lisp-obj-tmp written ; compilation finished in 0:00:00.005 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-extensions.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFVAR *SAVE-HOOKS* ...) ; x-compiling (DEFVAR *INIT-HOOKS* ...) ; x-compiling (DEFVAR *EXIT-HOOKS* ...) ; x-compiling (DEFUN BINARY-SEARCH ...) ; x-compiling (DEFUN DOUBLE-VECTOR-BINARY-SEARCH ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-extensions.lisp ; in: DEFUN DOUBLE-VECTOR-BINARY-SEARCH ; (< SB!IMPL::VALUE ELT) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; (> SB!IMPL::VALUE ELT) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; (LET* ((SB!IMPL::I (+ SB!IMPL::START (TRUNCATE # 2))) ; (ELT (SVREF VECTOR (SB!EXT:TRULY-THE SB!INT:INDEX #)))) ; (DECLARE (TYPE INTEGER ELT) ; (TYPE SB!INT:INDEX SB!IMPL::I)) ; (COND ((< SB!IMPL::VALUE ELT) (SB!IMPL::RECURSE SB!IMPL::START SB!IMPL::I)) ; ((> SB!IMPL::VALUE ELT) ; (SB!IMPL::RECURSE (1+ SB!IMPL::I) SB!IMPL::END)) ; (T (SVREF VECTOR (SB!EXT:TRULY-THE SB!INT:INDEX #))))) ; --> MULTIPLE-VALUE-BIND LET UNLESS IF PROGN ; ==> ; (SB!C::%TYPE-CHECK-ERROR/C #:G32 'SB!KERNEL::OBJECT-NOT-INDEX-ERROR) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of TYPE-CHECK-ERROR/C ; x-compiling (DEFUN LISTEN-SKIP-WHITESPACE ...) ; x-compiling (DEFUN SIMPLE-PERROR ...) ; x-compiling (DEFMACRO WITH-PUSH-CHAR ...) ; x-compiling (DEFUN POWER-OF-TWO-CEILING ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-extensions.lisp ; in: DEFUN SIMPLE-PERROR ; (DEFUN SB!INT:SIMPLE-PERROR ; (SB!IMPL::PREFIX-STRING ; &KEY (SB!IMPL::ERRNO (SB!ALIEN:GET-ERRNO)) ; (SIMPLE-ERROR 'SIMPLE-ERROR) SB!IMPL::OTHER-CONDITION-ARGS) ; (DECLARE (TYPE SYMBOL SIMPLE-ERROR)) ; (SB!INT:AVER (SUBTYPEP SIMPLE-ERROR 'SIMPLE-CONDITION)) ; (SB!INT:AVER (SUBTYPEP SIMPLE-ERROR 'ERROR)) ; (APPLY #'ERROR SIMPLE-ERROR :FORMAT-CONTROL "~@<~A: ~2I~_~A~:>" ; :FORMAT-ARGUMENTS ; (LIST SB!IMPL::PREFIX-STRING (SB!INT:STRERROR SB!IMPL::ERRNO)) ; SB!IMPL::OTHER-CONDITION-ARGS)) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!IMPL::PREFIX-STRING #:.DEFAULTING-TEMP. #:N-SUPPLIED-40 ; #:.DEFAULTING-TEMP. #:.DEFAULTING-TEMP.) ; {BF85271}> ; SB!IMPL::PREFIX-STRING NIL NIL 'SIMPLE-ERROR NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN LISTEN-SKIP-WHITESPACE ; (DEFUN SB!INT:LISTEN-SKIP-WHITESPACE (&OPTIONAL (STREAM *STANDARD-INPUT*)) ; (DO ((CHAR (READ-CHAR-NO-HANG STREAM NIL NIL NIL) ; (READ-CHAR-NO-HANG STREAM NIL NIL NIL))) ; ((NULL CHAR) NIL) ; (COND ((NOT #) (UNREAD-CHAR CHAR STREAM) (RETURN T))))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION LET ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (STREAM) {BF4E7F1}> ; #:G38)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN BINARY-SEARCH ; (DEFUN SB!INT:BINARY-SEARCH ; (SB!IMPL::VALUE SB!IMPL::SEQ &KEY (SB!IMPL::KEY #'IDENTITY)) ; (DECLARE (SIMPLE-VECTOR SB!IMPL::SEQ)) ; (LABELS ((SB!IMPL::RECURSE (SB!IMPL::START SB!IMPL::END) ; (WHEN # #))) ; (SB!IMPL::RECURSE 0 (LENGTH SB!IMPL::SEQ)))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!IMPL::VALUE SB!IMPL::SEQ #:.DEFAULTING-TEMP. #:N-SUPPLIED-0) ; {BD85379}> ; SB!IMPL::VALUE SB!IMPL::SEQ NIL NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 1 more use of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-extensions.lisp ; in: DEFUN SIMPLE-PERROR ; (SB!ALIEN:GET-ERRNO) ; ; caught STYLE-WARNING: ; undefined function: GET-ERRNO ; (SB!INT:STRERROR SB!IMPL::ERRNO) ; ; caught STYLE-WARNING: ; undefined function: STRERROR ; in: DEFUN LISTEN-SKIP-WHITESPACE ; (SB!IMPL::WHITESPACE[1]P CHAR) ; ; caught STYLE-WARNING: ; undefined function: WHITESPACE[1]P ; ; compilation unit finished ; Undefined type: ; CODE-DELETION-NOTE ; Undefined functions: ; GET-ERRNO STRERROR WHITESPACE[1]P ; caught 7 STYLE-WARNING conditions ; printed 3 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/target-extensions.lisp-obj-tmp written ; compilation finished in 0:00:00.070 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-package.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (!DEFVAR *IGNORED-PACKAGE-LOCKS* ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFMACRO WITH-SINGLE-PACKAGE-LOCKED-ERROR ...) ; x-compiling (DEFUN PROGRAM-ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ...) ; x-compiling (DEFMACRO WITHOUT-PACKAGE-LOCKS ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-package.lisp ; in: DEFUN PROGRAM-ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ; (SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR (:SYMBOL SYMBOL SB!IMPL::CONTROL)) ; --> PROGN LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:NEXT49 #:START50 #:COUNT51 #:G52) {DC27511}> ; #:NEXT49 #:START50 #:COUNT51 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; (SB!IMPL::EVAL-ERROR CONDITION) ; ; caught STYLE-WARNING: ; undefined function: EVAL-ERROR ; (HANDLER-BIND ((SB!EXT:PACKAGE-LOCK-VIOLATION ; (LAMBDA (CONDITION) (ECASE SB!IMPL::CONTEXT # #)))) ; (SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR (:SYMBOL SYMBOL ; SB!IMPL::CONTROL))) ; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK ; ==> ; (TYPEP CONDITION 'SB!EXT:PACKAGE-LOCK-VIOLATION) ; ; caught STYLE-WARNING: ; undefined type: PACKAGE-LOCK-VIOLATION ; ; compilation unit finished ; Undefined types: ; CODE-DELETION-NOTE PACKAGE-LOCK-VIOLATION ; Undefined function: ; EVAL-ERROR ; caught 3 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/early-package.lisp-obj-tmp written ; compilation finished in 0:00:00.030 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-defstructs.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (/SHOW0 "entering early-defstructs.lisp") ; x-compiling (DEFSTRUCT (ALIEN-VALUE) ...) ; x-compiling (/SHOW0 "done with early-defstructs.lisp") ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-defstructs.lisp ; in: DEFSTRUCT ALIEN-VALUE ; (DEFSTRUCT (SB!ALIEN-INTERNALS:ALIEN-VALUE) ; (SB!KERNEL::SAP (SB!INT:MISSING-ARG) :TYPE SB!SYS:SYSTEM-AREA-POINTER) ; (TYPE (SB!INT:MISSING-ARG) :TYPE SB!ALIEN-INTERNALS:ALIEN-TYPE)) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: %TARGET-DEFSTRUCT ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:.DEFAULTING-TEMP. #:N-SUPPLIED-19 #:.DEFAULTING-TEMP. ; #:N-SUPPLIED-20) ; {DE3E7A1}> ; NIL NIL NIL NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; compilation unit finished ; Undefined type: ; CODE-DELETION-NOTE ; Undefined function: ; %TARGET-DEFSTRUCT ; caught 2 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/early-defstructs.lisp-obj-tmp written ; compilation finished in 0:00:00.038 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-raw-slots.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (DEF!TYPE WORD ...) ; x-compiling (DEF!TYPE SB!VM:SIGNED-WORD ...) ; x-compiling (DEFTYPE LAYOUT-RAW-SLOT-METADATA-TYPE ...) ; x-compiling (DEFMACRO LAYOUT-RAW-SLOT-METADATA ...) ; x-compiling (DEFSTRUCT (RAW-SLOT-DATA # ...) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-raw-slots.lisp ; in: DEFSTRUCT RAW-SLOT-DATA ; (DEFSTRUCT (SB!KERNEL::RAW-SLOT-DATA (:COPIER NIL) (:PREDICATE NIL)) ; (SB!KERNEL::RAW-TYPE (SB!INT:MISSING-ARG) :TYPE (OR SYMBOL CONS) :READ-ONLY ; T) ; (SB!KERNEL::ACCESSOR-NAME (SB!INT:MISSING-ARG) :TYPE SYMBOL :READ-ONLY T) ; (SB!KERNEL::INIT-VOP (SB!INT:MISSING-ARG) :TYPE SYMBOL :READ-ONLY T) ; (SB!KERNEL::N-WORDS (SB!INT:MISSING-ARG) :TYPE ; (AND SB!INT:INDEX (INTEGER 1)) :READ-ONLY T) ; (SB!KERNEL::ALIGNMENT 1 :TYPE (INTEGER 1 2) :READ-ONLY T) ; (SB!KERNEL::COMPARER (SB!INT:MISSING-ARG) :TYPE FUNCTION :READ-ONLY T)) ; ; caught STYLE-WARNING: ; redefining SB!KERNEL::RAW-SLOT-DATA-RAW-TYPE in DEFUN ; ; caught STYLE-WARNING: ; redefining SB!KERNEL::RAW-SLOT-DATA-ACCESSOR-NAME in DEFUN ; ; caught STYLE-WARNING: ; redefining SB!KERNEL::RAW-SLOT-DATA-INIT-VOP in DEFUN ; ; caught STYLE-WARNING: ; redefining SB!KERNEL::RAW-SLOT-DATA-N-WORDS in DEFUN ; ; caught STYLE-WARNING: ; redefining SB!KERNEL::RAW-SLOT-DATA-ALIGNMENT in DEFUN ; ; caught STYLE-WARNING: ; redefining SB!KERNEL::RAW-SLOT-DATA-COMPARER in DEFUN ; ; caught STYLE-WARNING: ; redefining SB!KERNEL::MAKE-RAW-SLOT-DATA in DEFUN ; x-compiling (DECLAIM (FREEZE-TYPE RAW-SLOT-DATA)) ; x-compiling (DEFGLOBAL *RAW-SLOT-DATA-LIST* ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-raw-slots.lisp ; in: DEFGLOBAL *RAW-SLOT-DATA-LIST* ; (SB!EXT:DEFGLOBAL SB!KERNEL::*RAW-SLOT-DATA-LIST* ; (MACROLET ((SB!KERNEL::MAKE-COMPARER ; (SB!KERNEL::ACCESSOR-NAME) ; (SB!INT:QUASIQUOTE #))) ; (LET ((SB!KERNEL::DOUBLE-FLOAT-ALIGNMENT 1)) ; (LIST ; (SB!KERNEL::MAKE-RAW-SLOT-DATA :RAW-TYPE 'SB!EXT:WORD ; :ACCESSOR-NAME ; 'SB!KERNEL:%RAW-INSTANCE-REF/WORD ; :INIT-VOP ; 'SB!VM::RAW-INSTANCE-INIT/WORD ; :N-WORDS 1 :COMPARER #) ; (SB!KERNEL::MAKE-RAW-SLOT-DATA :RAW-TYPE 'SINGLE-FLOAT ; :ACCESSOR-NAME ; 'SB!KERNEL:%RAW-INSTANCE-REF/SINGLE ; :INIT-VOP ; 'SB!VM::RAW-INSTANCE-INIT/SINGLE ; :N-WORDS 1 :COMPARER #) ; (SB!KERNEL::MAKE-RAW-SLOT-DATA :RAW-TYPE 'DOUBLE-FLOAT ; :ACCESSOR-NAME ; 'SB!KERNEL:%RAW-INSTANCE-REF/DOUBLE ; :INIT-VOP ; 'SB!VM::RAW-INSTANCE-INIT/DOUBLE ; :ALIGNMENT ; SB!KERNEL::DOUBLE-FLOAT-ALIGNMENT ; :N-WORDS # :COMPARER ; ...) ; (SB!KERNEL::MAKE-RAW-SLOT-DATA :RAW-TYPE ; 'SB!KERNEL::COMPLEX-SINGLE-FLOAT ; :ACCESSOR-NAME ; 'SB!KERNEL:%RAW-INSTANCE-REF/COMPLEX-SINGLE ; :INIT-VOP ; 'SB!VM::RAW-INSTANCE-INIT/COMPLEX-SINGLE ; :N-WORDS # :COMPARER #) ; (SB!KERNEL::MAKE-RAW-SLOT-DATA :RAW-TYPE ; 'SB!KERNEL::COMPLEX-DOUBLE-FLOAT ; :ACCESSOR-NAME ; 'SB!KERNEL:%RAW-INSTANCE-REF/COMPLEX-DOUBLE ; :INIT-VOP ; 'SB!VM::RAW-INSTANCE-INIT/COMPLEX-DOUBLE ; :ALIGNMENT ; SB!KERNEL::DOUBLE-FLOAT-ALIGNMENT ; :N-WORDS # :COMPARER ; ...))))) ; --> PROGN ; ==> ; (EVAL-WHEN (:COMPILE-TOPLEVEL) ; (LET ((#:BOUNDP (BOUNDP 'SB!KERNEL::*RAW-SLOT-DATA-LIST*))) ; (SB!IMPL::%COMPILER-DEFGLOBAL 'SB!KERNEL::*RAW-SLOT-DATA-LIST* ; :ALWAYS-BOUND ; (UNLESS #:BOUNDP ; (MACROLET # ; #)) ; (NOT #:BOUNDP)))) ; ; caught STYLE-WARNING: ; undefined function: %RAW-INSTANCE-REF/COMPLEX-DOUBLE ; ; caught STYLE-WARNING: ; undefined function: %RAW-INSTANCE-REF/COMPLEX-SINGLE ; ; caught STYLE-WARNING: ; undefined function: %RAW-INSTANCE-REF/DOUBLE ; ; caught STYLE-WARNING: ; undefined function: %RAW-INSTANCE-REF/SINGLE ; ; caught STYLE-WARNING: ; undefined function: %RAW-INSTANCE-REF/WORD ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN RAW-SLOT-DATA-OR-LOSE ...) ; x-compiling (DEFUN RAW-SLOT-WORDS ...) ; x-compiling (DEFMACRO DO-INSTANCE-TAGGED-SLOT ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-raw-slots.lisp ; in: DEFGLOBAL *RAW-SLOT-DATA-LIST* ; (SB!EXT:DEFGLOBAL SB!KERNEL::*RAW-SLOT-DATA-LIST* ; (MACROLET ((SB!KERNEL::MAKE-COMPARER ; (SB!KERNEL::ACCESSOR-NAME) ; (SB!INT:QUASIQUOTE #))) ; (LET ((SB!KERNEL::DOUBLE-FLOAT-ALIGNMENT 1)) ; (LIST ; (SB!KERNEL::MAKE-RAW-SLOT-DATA :RAW-TYPE 'SB!EXT:WORD ; :ACCESSOR-NAME ; 'SB!KERNEL:%RAW-INSTANCE-REF/WORD ; :INIT-VOP ; 'SB!VM::RAW-INSTANCE-INIT/WORD ; :N-WORDS 1 :COMPARER #) ; (SB!KERNEL::MAKE-RAW-SLOT-DATA :RAW-TYPE 'SINGLE-FLOAT ; :ACCESSOR-NAME ; 'SB!KERNEL:%RAW-INSTANCE-REF/SINGLE ; :INIT-VOP ; 'SB!VM::RAW-INSTANCE-INIT/SINGLE ; :N-WORDS 1 :COMPARER #) ; (SB!KERNEL::MAKE-RAW-SLOT-DATA :RAW-TYPE 'DOUBLE-FLOAT ; :ACCESSOR-NAME ; 'SB!KERNEL:%RAW-INSTANCE-REF/DOUBLE ; :INIT-VOP ; 'SB!VM::RAW-INSTANCE-INIT/DOUBLE ; :ALIGNMENT ; SB!KERNEL::DOUBLE-FLOAT-ALIGNMENT ; :N-WORDS # :COMPARER ; ...) ; (SB!KERNEL::MAKE-RAW-SLOT-DATA :RAW-TYPE ; 'SB!KERNEL::COMPLEX-SINGLE-FLOAT ; :ACCESSOR-NAME ; 'SB!KERNEL:%RAW-INSTANCE-REF/COMPLEX-SINGLE ; :INIT-VOP ; 'SB!VM::RAW-INSTANCE-INIT/COMPLEX-SINGLE ; :N-WORDS # :COMPARER #) ; (SB!KERNEL::MAKE-RAW-SLOT-DATA :RAW-TYPE ; 'SB!KERNEL::COMPLEX-DOUBLE-FLOAT ; :ACCESSOR-NAME ; 'SB!KERNEL:%RAW-INSTANCE-REF/COMPLEX-DOUBLE ; :INIT-VOP ; 'SB!VM::RAW-INSTANCE-INIT/COMPLEX-DOUBLE ; :ALIGNMENT ; SB!KERNEL::DOUBLE-FLOAT-ALIGNMENT ; :N-WORDS # :COMPARER ; ...))))) ; --> PROGN LET LET ; ==> ; (SB!IMPL::%DEFGLOBAL 'SB!KERNEL::*RAW-SLOT-DATA-LIST* ; (UNLESS #:BOUNDP ; (MACROLET ((SB!KERNEL::MAKE-COMPARER # ; #)) ; (LET (#) ; (LIST # # # # #)))) ; #:BOUNDP 'NIL NIL (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::%DEFGLOBAL ; in: DEFSTRUCT RAW-SLOT-DATA ; (DEFSTRUCT (SB!KERNEL::RAW-SLOT-DATA (:COPIER NIL) (:PREDICATE NIL)) ; (SB!KERNEL::RAW-TYPE (SB!INT:MISSING-ARG) :TYPE (OR SYMBOL CONS) :READ-ONLY ; T) ; (SB!KERNEL::ACCESSOR-NAME (SB!INT:MISSING-ARG) :TYPE SYMBOL :READ-ONLY T) ; (SB!KERNEL::INIT-VOP (SB!INT:MISSING-ARG) :TYPE SYMBOL :READ-ONLY T) ; (SB!KERNEL::N-WORDS (SB!INT:MISSING-ARG) :TYPE ; (AND SB!INT:INDEX (INTEGER 1)) :READ-ONLY T) ; (SB!KERNEL::ALIGNMENT 1 :TYPE (INTEGER 1 2) :READ-ONLY T) ; (SB!KERNEL::COMPARER (SB!INT:MISSING-ARG) :TYPE FUNCTION :READ-ONLY T)) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: %TARGET-DEFSTRUCT ; in: DEFMACRO DO-INSTANCE-TAGGED-SLOT ; (DEFMACRO SB!KERNEL:DO-INSTANCE-TAGGED-SLOT ; ((SB!KERNEL::INDEX-VAR SB!KERNEL::THING ; &KEY (SB!KERNEL:LAYOUT NIL SB!KERNEL::LAYOUT-P) ; SB!KERNEL::EXCLUDE-PADDING) ; &BODY SB!KERNEL::BODY) ; (SB!INT:WITH-UNIQUE-NAMES (SB!KERNEL:INSTANCE SB!KERNEL::N-LAYOUT ; SB!KERNEL::LIMIT SB!KERNEL::BITMAP) ; (DECLARE (IGNORABLE SB!KERNEL::BITMAP)) ; (LET ((SB!KERNEL::END-EXPR #)) ; (SB!INT:QUASIQUOTE ; (LET* # ; #))))) ; --> PROGN EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:PROBLEM103 #:INFO104 #:G106) {B50E4B9}> ; #:PROBLEM103 #:INFO104 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN RAW-SLOT-DATA-OR-LOSE ; (MEMBER TYPE SB!KERNEL::*RAW-SLOT-DATA-LIST* :KEY ; #'SB!KERNEL::RAW-SLOT-DATA-RAW-TYPE) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFSTRUCT RAW-SLOT-DATA ; (DEFSTRUCT (SB!KERNEL::RAW-SLOT-DATA (:COPIER NIL) (:PREDICATE NIL)) ; (SB!KERNEL::RAW-TYPE (SB!INT:MISSING-ARG) :TYPE (OR SYMBOL CONS) :READ-ONLY ; T) ; (SB!KERNEL::ACCESSOR-NAME (SB!INT:MISSING-ARG) :TYPE SYMBOL :READ-ONLY T) ; (SB!KERNEL::INIT-VOP (SB!INT:MISSING-ARG) :TYPE SYMBOL :READ-ONLY T) ; (SB!KERNEL::N-WORDS (SB!INT:MISSING-ARG) :TYPE ; (AND SB!INT:INDEX (INTEGER 1)) :READ-ONLY T) ; (SB!KERNEL::ALIGNMENT 1 :TYPE (INTEGER 1 2) :READ-ONLY T) ; (SB!KERNEL::COMPARER (SB!INT:MISSING-ARG) :TYPE FUNCTION :READ-ONLY T)) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:.DEFAULTING-TEMP. #:N-SUPPLIED-23 #:.DEFAULTING-TEMP. ; #:N-SUPPLIED-24 #:.DEFAULTING-TEMP. #:N-SUPPLIED-25 ; #:.DEFAULTING-TEMP. #:N-SUPPLIED-26 #:.DEFAULTING-TEMP. ; #:.DEFAULTING-TEMP. #:N-SUPPLIED-27) ; {B06B499}> ; NIL NIL NIL NIL NIL NIL NIL NIL 1 NIL ...)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; compilation unit finished ; Undefined type: ; CODE-DELETION-NOTE ; Undefined functions: ; SB!IMPL::%DEFGLOBAL %TARGET-DEFSTRUCT ; caught 17 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/early-raw-slots.lisp-obj-tmp written ; compilation finished in 0:00:00.150 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/defbangstruct.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (DEFTYPE DEF!STRUCT-TYPE-MAKE-LOAD-FORM-FUN ...) ; x-compiling (DEFVAR *DEF!STRUCT-SUPERTYPE* ...) ; x-compiling (DEFUN DEF!STRUCT-SUPERTYPE ...) ; x-compiling (DEFUN (SETF DEF!STRUCT-SUPERTYPE) ...) ; x-compiling (DEFVAR *DEF!STRUCT-TYPE-MAKE-LOAD-FORM-FUN* ...) ; x-compiling (DEFUN DEF!STRUCT-TYPE-MAKE-LOAD-FORM-FUN ...) ; x-compiling (DEFUN (SETF DEF!STRUCT-TYPE-MAKE-LOAD-FORM-FUN) ...) ; x-compiling (DEFUN JUST-DUMP-IT-NORMALLY ...) ; x-compiling (DEFUN IGNORE-IT ...) ; x-compiling (DEFUN PARSE-DEF!STRUCT-ARGS ...) ; x-compiling (DEFMACRO DEF!STRUCT ...) ; x-compiling (DEF!STRUCT (STRUCTURE!OBJECT # ...)) ; x-compiling (DEFUN STRUCTURE!OBJECT-MAKE-LOAD-FORM ...) ; x-compiling (SETF (SYMBOL-FUNCTION #) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/defbangstruct.lisp ; in: ; DEF!STRUCT (STRUCTURE!OBJECT (:CONSTRUCTOR NIL) (:COPIER NIL) (:PREDICATE NIL)) ; (SB!INT:DEF!STRUCT ; (SB!SYS:STRUCTURE!OBJECT (:CONSTRUCTOR NIL) (:COPIER NIL) (:PREDICATE NIL))) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: %TARGET-DEFSTRUCT ; in: DEFUN PARSE-DEF!STRUCT-ARGS ; (FIND :INCLUDE SB!KERNEL::OPTIONS :KEY #'FIRST) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB!KERNEL:%FIND-POSITION ; ==> ; (SB!KERNEL:%FIND-POSITION-IF ; (LET ((SB!C::TEST-FUN (SB!KERNEL:%COERCE-CALLABLE-TO-FUN SB!C::TEST))) ; (LAMBDA (SB!C::I) (FUNCALL SB!C::TEST-FUN SB!C::ITEM SB!C::I))) ; SEQUENCE SB!C::FROM-END SB!C::START SB!C::END ; (SB!KERNEL:%COERCE-CALLABLE-TO-FUN SB!C::KEY)) ; ; caught STYLE-WARNING: ; undefined function: CIRCULAR-LIST-ERROR ; in: DEFUN JUST-DUMP-IT-NORMALLY ; (DEFUN SB!KERNEL:JUST-DUMP-IT-NORMALLY ; (SB!KERNEL::OBJECT &OPTIONAL (SB!KERNEL::ENV NIL SB!KERNEL::ENV-P)) ; (DECLARE (TYPE SB!SYS:STRUCTURE!OBJECT SB!KERNEL::OBJECT)) ; (DECLARE (IGNORABLE SB!KERNEL::ENV SB!KERNEL::ENV-P SB!KERNEL::OBJECT)) ; :SB-JUST-DUMP-IT-NORMALLY) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!KERNEL::OBJECT SB!KERNEL::ENV SB!KERNEL::ENV-P) {B721C41}> ; SB!KERNEL::OBJECT SB!KERNEL::ENV T)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN DEF!STRUCT-TYPE-MAKE-LOAD-FORM-FUN ; (MULTIPLE-VALUE-BIND (SB!KERNEL::VALUE SB!KERNEL::VALUE-P) ; (GETHASH SB!KERNEL::SUPERTYPE ; SB!KERNEL::*DEF!STRUCT-TYPE-MAKE-LOAD-FORM-FUN*) ; (UNLESS SB!KERNEL::VALUE-P ; (ERROR "~S (supertype of ~S) is not a DEF!STRUCT-defined type." ; SB!KERNEL::SUPERTYPE TYPE)) ; (WHEN SB!KERNEL::VALUE (RETURN SB!KERNEL::VALUE)) ; (SETF SB!KERNEL::SUPERTYPE ; (SB!KERNEL::DEF!STRUCT-SUPERTYPE SB!KERNEL::SUPERTYPE)) ; (UNLESS SB!KERNEL::SUPERTYPE ; (ERROR "There is no MAKE-LOAD-FORM function for bootstrap type ~S." ; TYPE))) ; --> MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!KERNEL::VALUE SB!KERNEL::VALUE-P #:G6) {B6C01F1}> ; SB!KERNEL::VALUE SB!KERNEL::VALUE-P NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN DEF!STRUCT-SUPERTYPE ; (MULTIPLE-VALUE-BIND (SB!KERNEL::VALUE SB!KERNEL::VALUE-P) ; (GETHASH TYPE SB!KERNEL::*DEF!STRUCT-SUPERTYPE*) ; (UNLESS SB!KERNEL::VALUE-P ; (ERROR "~S is not a DEF!STRUCT-defined type." TYPE)) ; SB!KERNEL::VALUE) ; --> MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!KERNEL::VALUE SB!KERNEL::VALUE-P #:G0) {B671019}> ; SB!KERNEL::VALUE SB!KERNEL::VALUE-P NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 12 more uses of undefined type CODE-DELETION-NOTE ; ; compilation unit finished ; Undefined type: ; CODE-DELETION-NOTE ; Undefined functions: ; %TARGET-DEFSTRUCT CIRCULAR-LIST-ERROR ; caught 6 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/defbangstruct.lisp-obj-tmp written ; compilation finished in 0:00:00.071 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/unportable-float.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFUN MAKE-UNPORTABLE-FLOAT ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/unportable-float.lisp-obj-tmp written ; compilation finished in 0:00:00.006 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/funutils.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFUN IDENTITY ...) ; x-compiling (DEFUN COMPLEMENT ...) ; x-compiling (DEFUN CONSTANTLY ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/funutils.lisp ; in: DEFUN CONSTANTLY ; (LAMBDA (&REST SB!IMPL::ARGUMENTS) ; (DECLARE (IGNORE SB!IMPL::ARGUMENTS)) ; (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0) (DEBUG 0))) ; SB!IMPL::VALUE) ; --> FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!IMPL::ARGUMENTS) {BC08E69}> ; NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN COMPLEMENT ; (LAMBDA ; (&OPTIONAL (SB!IMPL::ARG0 () SB!IMPL::ARG0-P) ; (SB!IMPL::ARG1 () SB!IMPL::ARG1-P) (SB!IMPL::ARG2 () SB!IMPL::ARG2-P) ; &REST SB!IMPL::MORE-ARGS) ; (NOT ; (COND ; (SB!IMPL::MORE-ARGS ; (APPLY FUNCTION SB!IMPL::ARG0 SB!IMPL::ARG1 SB!IMPL::ARG2 ; SB!IMPL::MORE-ARGS)) ; (SB!IMPL::ARG2-P ; (FUNCALL FUNCTION SB!IMPL::ARG0 SB!IMPL::ARG1 SB!IMPL::ARG2)) ; (SB!IMPL::ARG1-P (FUNCALL FUNCTION SB!IMPL::ARG0 SB!IMPL::ARG1)) ; (SB!IMPL::ARG0-P (FUNCALL FUNCTION SB!IMPL::ARG0)) ; (T (FUNCALL FUNCTION))))) ; --> FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!IMPL::ARG0 SB!IMPL::ARG0-P SB!IMPL::ARG1 SB!IMPL::ARG1-P ; SB!IMPL::ARG2 SB!IMPL::ARG2-P SB!IMPL::MORE-ARGS #:REST-CONTEXT-1 ; #:REST-COUNT-2) ; {BB86591}> ; SB!IMPL::ARG0 SB!IMPL::ARG0-P SB!IMPL::ARG1 SB!IMPL::ARG1-P SB!IMPL::ARG2 ; SB!IMPL::ARG2-P NIL NIL 0)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; compilation unit finished ; Undefined type: ; CODE-DELETION-NOTE ; caught 2 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/funutils.lisp-obj-tmp written ; compilation finished in 0:00:00.014 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/type-class.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS) ; x-compiling (DEF) ; x-compiling (DEFUN TYPE-CLASS-OR-LOSE ...) ; x-compiling (DEFINE-COMPILER-MACRO TYPE-CLASS-OR-LOSE ...) ; x-compiling (DEFUN MUST-SUPPLY-THIS ...) ; x-compiling (DEF!STRUCT (TYPE-CLASS #) ...) ; x-compiling (DECLAIM (FREEZE-TYPE TYPE-CLASS)) ; x-compiling (DEFUN !TYPE-CLASS-FUN-SLOT ...) ; x-compiling (DEFCONSTANT-EQX !TYPE-CLASS-FUN-SLOTS ...) ; x-compiling (DEFMACRO !DEFINE-TYPE-METHOD ...) ; x-compiling (DEFMACRO !DEFINE-TYPE-CLASS ...) ; x-compiling (DEFMACRO !INVOKE-TYPE-METHOD ...) ; x-compiling (DEFUN INVOKE-COMPLEX-SUBTYPEP-ARG1-METHOD ...) ; x-compiling (DEFUN INVOKE-COMPLEX-=-OTHER-METHOD ...) ; x-compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !TYPE-CLASS-COLD-INIT) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/type-class.lisp ; in: DEF ; (SB!KERNEL::DEF) ; --> PROGN SB!EXT:DEFGLOBAL PROGN LET LET ; ==> ; (SB!IMPL::%DEFGLOBAL 'SB!KERNEL::*CTYPE-HASH-STATE* ; (UNLESS #:BOUNDP ; (MAKE-ARRAY 1 :ELEMENT-TYPE '(UNSIGNED-BYTE 29))) ; #:BOUNDP 'NIL NIL (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::%DEFGLOBAL ; in: ; DEF!STRUCT (TYPE-CLASS ; (:PRINT-OBJECT (LAMBDA (X STREAM) (PRINT-UNREADABLE-OBJECT # #)))) ; (SB!INT:DEF!STRUCT ; (SB!KERNEL::TYPE-CLASS ; (:PRINT-OBJECT ; (LAMBDA (SB!KERNEL::X STREAM) (PRINT-UNREADABLE-OBJECT # #)))) ; (SB!KERNEL::NAME (SB!INT:MISSING-ARG) :TYPE SYMBOL :READ-ONLY T) ; (SB!KERNEL::SIMPLE-SUBTYPEP #'SB!KERNEL::MUST-SUPPLY-THIS :TYPE FUNCTION) ; (SB!KERNEL::COMPLEX-SUBTYPEP-ARG1 NIL :TYPE (OR FUNCTION NULL)) ; (SB!KERNEL::COMPLEX-SUBTYPEP-ARG2 NIL :TYPE (OR FUNCTION NULL)) ; (SB!KERNEL::SIMPLE-UNION2 #'SB!KERNEL::HIERARCHICAL-UNION2 :TYPE FUNCTION) ; (SB!KERNEL::COMPLEX-UNION2 NIL :TYPE (OR FUNCTION NULL)) ; (SB!KERNEL::SIMPLE-INTERSECTION2 #'SB!KERNEL::HIERARCHICAL-INTERSECTION2 ; :TYPE FUNCTION) ; (SB!KERNEL::COMPLEX-INTERSECTION2 NIL :TYPE (OR FUNCTION NULL)) ; (SB!KERNEL::SIMPLE-= #'SB!KERNEL::MUST-SUPPLY-THIS :TYPE FUNCTION) ; (SB!KERNEL::COMPLEX-= NIL :TYPE (OR FUNCTION NULL)) ...) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: %TARGET-DEFSTRUCT ; in: DEFUN MUST-SUPPLY-THIS ; (DEFUN SB!KERNEL::MUST-SUPPLY-THIS (&REST SB!KERNEL::FOO) ; (SB!INT:/SHOW0 "failing in MUST-SUPPLY-THIS") ; (ERROR "missing type method for ~S" SB!KERNEL::FOO)) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!KERNEL::FOO #:REST-CONTEXT-116 #:REST-COUNT-117) {BF6CCB1}> ; NIL NIL 0)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFINE-COMPILER-MACRO TYPE-CLASS-OR-LOSE ; (SB!INT:QUASIQUOTE ; (AREF SB!KERNEL::*TYPE-CLASSES* ; #S(SB!IMPL::COMMA ; :EXPR (OR ; (POSITION SB!KERNEL::NAME SB!KERNEL::*TYPE-CLASSES* :KEY ; #'SB!KERNEL::TYPE-CLASS-NAME) ; (ERROR "~S is not a defined type class." SB!KERNEL::NAME)) ; :KIND 0))) ; --> SB!IMPL::|List| OR LET ; ==> ; (POSITION SB!KERNEL::NAME SB!KERNEL::*TYPE-CLASSES* :KEY ; #'SB!KERNEL::TYPE-CLASS-NAME) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN TYPE-CLASS-OR-LOSE ; (FIND SB!KERNEL::NAME SB!KERNEL::*TYPE-CLASSES* :KEY ; #'SB!KERNEL::TYPE-CLASS-NAME) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 13 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/type-class.lisp ; in: DEFMACRO !DEFINE-TYPE-METHOD ; (SB!INT:QUASIQUOTE ; (PROGN ; (DEFUN #S(SB!IMPL::COMMA :EXPR SB!KERNEL::NAME :KIND 0) ; #S(SB!IMPL::COMMA :EXPR SB!KERNEL::LAMBDA-LIST :KIND 0) ; #S(SB!IMPL::COMMA :EXPR SB!KERNEL::BODY :KIND 2)) ; (SB!INT:!COLD-INIT-FORMS #S(SB!IMPL::COMMA :EXPR (MAPCAR # #) :KIND 2)) ; '#S(SB!IMPL::COMMA :EXPR SB!KERNEL::NAME :KIND 0))) ; --> SB!IMPL::|List| SB!IMPL::|List*| MAPCAR LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFINE-COMPILER-MACRO TYPE-CLASS-OR-LOSE ; (SB!INT:CONSTANT-FORM-VALUE SB!KERNEL::NAME) ; ; caught STYLE-WARNING: ; undefined function: CONSTANT-FORM-VALUE ; in: ; DEF!STRUCT (TYPE-CLASS ; (:PRINT-OBJECT (LAMBDA (X STREAM) (PRINT-UNREADABLE-OBJECT # #)))) ; #'SB!KERNEL::HIERARCHICAL-INTERSECTION2 ; ; caught STYLE-WARNING: ; undefined function: HIERARCHICAL-INTERSECTION2 ; #'SB!KERNEL::HIERARCHICAL-UNION2 ; ; caught STYLE-WARNING: ; undefined function: HIERARCHICAL-UNION2 ; in: DEFUN INVOKE-COMPLEX-=-OTHER-METHOD ; (SB!KERNEL::TYPE-CLASS-INFO SB!KERNEL::TYPE1) ; ; caught STYLE-WARNING: ; undefined function: TYPE-CLASS-INFO ; in: DEFUN INVOKE-COMPLEX-SUBTYPEP-ARG1-METHOD ; (SB!KERNEL::TYPE-CLASS-INFO SB!KERNEL::TYPE1) ; ; caught STYLE-WARNING: ; undefined function: TYPE-CLASS-INFO ; ; compilation unit finished ; Undefined types: ; CODE-DELETION-NOTE COMPILER-NOTE ; Undefined functions: ; SB!IMPL::%DEFGLOBAL %TARGET-DEFSTRUCT CONSTANT-FORM-VALUE HIERARCHICAL-INTERSECTION2 HIERARCHICAL-UNION2 TYPE-CLASS-INFO ; caught 12 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/type-class.lisp-obj-tmp written ; compilation finished in 0:00:00.282 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/ansi-stream.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFCONSTANT +ANSI-STREAM-IN-BUFFER-LENGTH+ ...) ; x-compiling (DEFTYPE ANSI-STREAM-IN-BUFFER ...) ; x-compiling (DEFTYPE ANSI-STREAM-CIN-BUFFER ...) ; x-compiling (DEFSTRUCT (ANSI-STREAM # ...) ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/ansi-stream.lisp ; in: DEFSTRUCT ANSI-STREAM ; (DEFSTRUCT (SB!KERNEL:ANSI-STREAM (:CONSTRUCTOR NIL) (:COPIER NIL)) ; (SB!IMPL::IN-BUFFER NIL :TYPE (OR SB!KERNEL:ANSI-STREAM-IN-BUFFER NULL)) ; (SB!IMPL::CIN-BUFFER NIL :TYPE (OR SB!IMPL::ANSI-STREAM-CIN-BUFFER NULL)) ; (SB!IMPL::IN-INDEX SB!IMPL::+ANSI-STREAM-IN-BUFFER-LENGTH+ :TYPE ; SB!INT:INDEX) ; (SB!IMPL::IN #'SB!KERNEL:ILL-IN :TYPE FUNCTION) ; (SB!IMPL::BIN #'SB!KERNEL:ILL-BIN :TYPE FUNCTION) ; (SB!IMPL::N-BIN #'SB!KERNEL:ILL-BIN :TYPE FUNCTION) ; (SB!IMPL::OUT #'SB!KERNEL:ILL-OUT :TYPE FUNCTION) ; (SB!IMPL::BOUT #'SB!KERNEL:ILL-BOUT :TYPE FUNCTION) ; (SB!IMPL::SOUT #'SB!KERNEL:ILL-OUT :TYPE FUNCTION) ; (SB!IMPL::MISC #'SB!IMPL::NO-OP-PLACEHOLDER :TYPE FUNCTION)) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; ; compilation unit finished ; Undefined function: ; SB!KERNEL::%TARGET-DEFSTRUCT ; caught 1 STYLE-WARNING condition ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/ansi-stream.lisp-obj-tmp written ; compilation finished in 0:00:00.070 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/sysmacs.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (!DEFVAR *IN-WITHOUT-GCING* ...) ; x-compiling (!DEFVAR *GC-INHIBIT* ...) ; x-compiling (!DEFVAR *GC-PENDING* ...) ; x-compiling (DEFMACRO WITHOUT-GCING ...) ; x-compiling (DEFMACRO EOF-OR-LOSE ...) ; x-compiling (DEFMACRO IN-SYNONYM-OF ...) ; x-compiling (DEFMACRO OUT-SYNONYM-OF ...) ; x-compiling (DEFMACRO WITH-IN-STREAM ...) ; x-compiling (DEFMACRO WITH-OUT-STREAM/NO-SYNONYM ...) ; x-compiling (DEFMACRO WITH-OUT-STREAM ...) ; x-compiling (DEFMACRO PREPARE-FOR-FAST-READ-CHAR ...) ; x-compiling (DEFMACRO DONE-WITH-FAST-READ-CHAR ...) ; x-compiling (DEFMACRO FAST-READ-CHAR ...) ; x-compiling (DEFMACRO WITH-FAST-READ-BYTE ...) ; x-compiling (DEFMACRO DO-REST-ARG ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/sysmacs.lisp-obj-tmp written ; compilation finished in 0:00:00.111 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-error.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (DEFUN MUFFLE-WARNING-P ...) ; x-compiling (DEFGLOBAL **INITIAL-HANDLER-CLUSTERS** ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-error.lisp ; in: DEFGLOBAL **INITIAL-HANDLER-CLUSTERS** ; (SB!EXT:DEFGLOBAL SB!KERNEL::**INITIAL-HANDLER-CLUSTERS** ; (SB!INT:QUASIQUOTE (((# . #))))) ; --> PROGN ; ==> ; (EVAL-WHEN (:COMPILE-TOPLEVEL) ; (LET ((#:BOUNDP (BOUNDP 'SB!KERNEL::**INITIAL-HANDLER-CLUSTERS**))) ; (SB!IMPL::%COMPILER-DEFGLOBAL 'SB!KERNEL::**INITIAL-HANDLER-CLUSTERS** ; :ALWAYS-BOUND ; (UNLESS #:BOUNDP (SB!INT:QUASIQUOTE #)) ; (NOT #:BOUNDP)))) ; ; caught STYLE-WARNING: ; undefined function: MUFFLE-WARNING-P ; x-compiling (DEFVAR *HANDLER-CLUSTERS* ...) ; x-compiling (DEFVAR *RESTART-CLUSTERS* ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-error.lisp ; in: DEFVAR *RESTART-CLUSTERS* ; 'NIL ; ; note: deleting unreachable code ; x-compiling (DECLAIM (INLINE MAKE-RESTART)) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-error.lisp ; in: DECLAIM (INLINE MAKE-RESTART) ; (DECLAIM (INLINE SB!KERNEL:MAKE-RESTART)) ; --> EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE SB!KERNEL:MAKE-RESTART)) ; ; caught STYLE-WARNING: ; Proclaiming SB!KERNEL:MAKE-RESTART to be INLINE, but 1 call to it was ; previously compiled. A declaration of NOTINLINE at the call site will eliminate ; this warning, as will proclaiming and defining the function before its first ; potential use. ; x-compiling (DEFSTRUCT (RESTART # ...) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-error.lisp ; in: DEFSTRUCT RESTART ; (DEFSTRUCT ; (RESTART ; (:CONSTRUCTOR SB!KERNEL:MAKE-RESTART ; (SB!KERNEL::NAME FUNCTION &OPTIONAL SB!KERNEL::REPORT-FUNCTION ; SB!KERNEL::INTERACTIVE-FUNCTION SB!KERNEL::TEST-FUNCTION)) ; (:COPIER NIL) (:PREDICATE NIL)) ; (SB!KERNEL::NAME (SB!INT:MISSING-ARG) :TYPE SYMBOL :READ-ONLY T) ; (FUNCTION (SB!INT:MISSING-ARG) :TYPE FUNCTION :READ-ONLY T) ; (SB!KERNEL::REPORT-FUNCTION NIL :TYPE (OR NULL FUNCTION) :READ-ONLY T) ; (SB!KERNEL::INTERACTIVE-FUNCTION NIL :TYPE (OR NULL FUNCTION) :READ-ONLY T) ; (SB!KERNEL::TEST-FUNCTION (LAMBDA (COND) (DECLARE (IGNORE COND)) T) :TYPE ; FUNCTION :READ-ONLY T) ; (SB!KERNEL::ASSOCIATED-CONDITIONS 'NIL :TYPE LIST)) ; --> PROGN EVAL-WHEN ; ==> ; (SB!KERNEL::%COMPILER-DEFSTRUCT ; '# ; '#(# ; #)) ; ; caught STYLE-WARNING: ; Previously compiled calls to SB!KERNEL:RESTART-ASSOCIATED-CONDITIONS and ; (COMMON-LISP:SETF SB!KERNEL:RESTART-ASSOCIATED-CONDITIONS) could not be inlined ; because the structure definition for COMMON-LISP:RESTART was not yet seen. To ; avoid this warning, DEFSTRUCT should precede references to the affected ; functions, or they must be declared locally notinline at each call site. ; x-compiling (DECLAIM (NOTINLINE MAKE-RESTART)) ; x-compiling (DECLAIM (FREEZE-TYPE RESTART)) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (SETF (FDOCUMENTATION # ...) ...) ; x-compiling (DEFUN RESTART-REPORT ...) ; x-compiling (DEFVAR *RESTART-TEST-STACK* ...) ; x-compiling (DEFUN MAP-RESTARTS ...) ; x-compiling (DEFUN COMPUTE-RESTARTS ...) ; x-compiling (DEFUN %FIND-RESTART ...) ; x-compiling (DEFUN FIND-RESTART ...) ; x-compiling (DEFUN FIND-RESTART-OR-CONTROL-ERROR ...) ; x-compiling (DEFUN INVOKE-RESTART ...) ; x-compiling (DEFUN INTERACTIVE-RESTART-ARGUMENTS ...) ; x-compiling (DEFUN INVOKE-RESTART-INTERACTIVELY ...) ; x-compiling (DEFUN ASSERT-ERROR ...) ; x-compiling (DEFUN READ-EVALUATED-FORM ...) ; x-compiling (DEFUN CHECK-TYPE-ERROR ...) ; x-compiling (DEFUN CASE-FAILURE ...) ; x-compiling (DEFUN CASE-BODY-ERROR ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-error.lisp ; in: DEFGLOBAL **INITIAL-HANDLER-CLUSTERS** ; (SB!EXT:DEFGLOBAL SB!KERNEL::**INITIAL-HANDLER-CLUSTERS** ; (SB!INT:QUASIQUOTE (((# . #))))) ; --> PROGN LET LET ; ==> ; (SB!IMPL::%DEFGLOBAL 'SB!KERNEL::**INITIAL-HANDLER-CLUSTERS** ; (UNLESS #:BOUNDP (SB!INT:QUASIQUOTE ((#)))) #:BOUNDP ; 'NIL NIL (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::%DEFGLOBAL ; in: DEFSTRUCT RESTART ; (DEFSTRUCT ; (RESTART ; (:CONSTRUCTOR SB!KERNEL:MAKE-RESTART ; (SB!KERNEL::NAME FUNCTION &OPTIONAL SB!KERNEL::REPORT-FUNCTION ; SB!KERNEL::INTERACTIVE-FUNCTION SB!KERNEL::TEST-FUNCTION)) ; (:COPIER NIL) (:PREDICATE NIL)) ; (SB!KERNEL::NAME (SB!INT:MISSING-ARG) :TYPE SYMBOL :READ-ONLY T) ; (FUNCTION (SB!INT:MISSING-ARG) :TYPE FUNCTION :READ-ONLY T) ; (SB!KERNEL::REPORT-FUNCTION NIL :TYPE (OR NULL FUNCTION) :READ-ONLY T) ; (SB!KERNEL::INTERACTIVE-FUNCTION NIL :TYPE (OR NULL FUNCTION) :READ-ONLY T) ; (SB!KERNEL::TEST-FUNCTION (LAMBDA (COND) (DECLARE (IGNORE COND)) T) :TYPE ; FUNCTION :READ-ONLY T) ; (SB!KERNEL::ASSOCIATED-CONDITIONS 'NIL :TYPE LIST)) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: %TARGET-DEFSTRUCT ; in: SETF (FDOCUMENTATION 'RESTART-NAME 'FUNCTION) ; (SETF (SB!KERNEL:FDOCUMENTATION 'RESTART-NAME 'FUNCTION) ; "Return the name of the given restart object.") ; --> LET* LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!KERNEL:FDOCUMENTATION) #:NEW42 'RESTART-NAME ; 'FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: (SETF FDOCUMENTATION) ; in: DEFUN COMPUTE-RESTARTS ; (DEFUN COMPUTE-RESTARTS (&OPTIONAL CONDITION) ; "Return a list of all the currently active restarts ordered from most recently ; established to less recently established. If CONDITION is specified, then only ; restarts associated with CONDITION (or with no condition) will be returned." ; (SB!INT:COLLECT ((SB!KERNEL::RESULT)) ; (SB!KERNEL::MAP-RESTARTS (LAMBDA (RESTART) (SB!KERNEL::RESULT RESTART)) ; CONDITION) ; (SB!KERNEL::RESULT))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (CONDITION) {DC2B251}> ; 'NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN MAP-RESTARTS ; (DEFUN SB!KERNEL::MAP-RESTARTS ; (FUNCTION &OPTIONAL CONDITION (SB!KERNEL::CALL-TEST-P T)) ; (DECLARE (FUNCTION FUNCTION)) ; (LET ((SB!KERNEL::STACK SB!KERNEL::*RESTART-TEST-STACK*)) ; (DOLIST (SB!KERNEL::RESTART-CLUSTER SB!KERNEL:*RESTART-CLUSTERS*) ; (DOLIST (RESTART SB!KERNEL::RESTART-CLUSTER) (WHEN # #))))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (FUNCTION CONDITION SB!KERNEL::CALL-TEST-P) {C2EC381}> ; FUNCTION CONDITION 'T)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFSTRUCT RESTART ; (DEFSTRUCT ; (RESTART ; (:CONSTRUCTOR SB!KERNEL:MAKE-RESTART ; (SB!KERNEL::NAME FUNCTION &OPTIONAL SB!KERNEL::REPORT-FUNCTION ; SB!KERNEL::INTERACTIVE-FUNCTION SB!KERNEL::TEST-FUNCTION)) ; (:COPIER NIL) (:PREDICATE NIL)) ; (SB!KERNEL::NAME (SB!INT:MISSING-ARG) :TYPE SYMBOL :READ-ONLY T) ; (FUNCTION (SB!INT:MISSING-ARG) :TYPE FUNCTION :READ-ONLY T) ; (SB!KERNEL::REPORT-FUNCTION NIL :TYPE (OR NULL FUNCTION) :READ-ONLY T) ; (SB!KERNEL::INTERACTIVE-FUNCTION NIL :TYPE (OR NULL FUNCTION) :READ-ONLY T) ; (SB!KERNEL::TEST-FUNCTION (LAMBDA (COND) (DECLARE (IGNORE COND)) T) :TYPE ; FUNCTION :READ-ONLY T) ; (SB!KERNEL::ASSOCIATED-CONDITIONS 'NIL :TYPE LIST)) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION LET ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!KERNEL::NAME FUNCTION SB!KERNEL::REPORT-FUNCTION ; SB!KERNEL::INTERACTIVE-FUNCTION SB!KERNEL::TEST-FUNCTION) ; {C1AD451}> ; SB!KERNEL::NAME FUNCTION SB!KERNEL::REPORT-FUNCTION ; SB!KERNEL::INTERACTIVE-FUNCTION #:G24)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 16 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-error.lisp ; in: DEFUN FIND-RESTART ; (DEFUN FIND-RESTART (SB!KERNEL::IDENTIFIER &OPTIONAL CONDITION) ; "Return the first restart identified by IDENTIFIER. If IDENTIFIER is a symbol, ; then the innermost applicable restart with that name is returned. If IDENTIFIER ; is a restart, it is returned if it is currently active. Otherwise NIL is ; returned. If CONDITION is specified and not NIL, then only restarts associated ; with that condition (or with no condition) will be returned." ; (SB!KERNEL::%FIND-RESTART SB!KERNEL::IDENTIFIER CONDITION)) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION COND ; --> IF COND THE PROGN SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP ; --> LET SB!C::%TYPEP-WRAPPER LET OR LET ; ==> ; (TYPEP #:N-OBJ70 'CONDITION) ; ; caught STYLE-WARNING: ; undefined type: CONDITION ; in: DEFUN COMPUTE-RESTARTS ; (DEFUN COMPUTE-RESTARTS (&OPTIONAL CONDITION) ; "Return a list of all the currently active restarts ordered from most recently ; established to less recently established. If CONDITION is specified, then only ; restarts associated with CONDITION (or with no condition) will be returned." ; (SB!INT:COLLECT ((SB!KERNEL::RESULT)) ; (SB!KERNEL::MAP-RESTARTS (LAMBDA (RESTART) (SB!KERNEL::RESULT RESTART)) ; CONDITION) ; (SB!KERNEL::RESULT))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION COND ; --> IF COND THE PROGN ; ==> ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (CONDITION) {DC2B251}> ; #:G55) ; ; caught STYLE-WARNING: ; undefined type: CONDITION ; in: DEFGLOBAL **INITIAL-HANDLER-CLUSTERS** ; (SB!INT:QUASIQUOTE ; (((#S(SB!IMPL::COMMA :EXPR # :KIND 0) ; . #S(SB!IMPL::COMMA :EXPR # :KIND 0))))) ; --> SB!IMPL::|List| SB!IMPL::|List| SB!IMPL::|List*| LAMBDA FUNCTION WHEN IF ; --> PROGN ; ==> ; (MUFFLE-WARNING WARNING) ; ; caught STYLE-WARNING: ; undefined type: CONDITION ; ; caught STYLE-WARNING: ; 21 more uses of undefined type CONDITION ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-error.lisp ; in: DEFGLOBAL **INITIAL-HANDLER-CLUSTERS** ; (SB!INT:QUASIQUOTE ; (((#S(SB!IMPL::COMMA :EXPR # :KIND 0) ; . #S(SB!IMPL::COMMA :EXPR # :KIND 0))))) ; --> SB!IMPL::|List| SB!IMPL::|List| SB!IMPL::|List*| LAMBDA FUNCTION ; ==> ; (TYPEP CONDITION 'WARNING) ; ; caught STYLE-WARNING: ; undefined type: WARNING ; ; compilation unit finished ; Undefined types: ; CODE-DELETION-NOTE CONDITION WARNING ; Undefined functions: ; SB!IMPL::%DEFGLOBAL %TARGET-DEFSTRUCT (SETF FDOCUMENTATION) ; caught 15 STYLE-WARNING conditions ; printed 1 note ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/target-error.lisp-obj-tmp written ; compilation finished in 0:00:00.187 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/early-backend.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFVAR *BACKEND-PAGE-BYTES* ...) ; x-compiling (DECLAIM (TYPE INDEX ...)) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/early-backend.lisp-obj-tmp written ; compilation finished in 0:00:00.005 creating directory: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/output/ ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/output/stuff-groveled-from-headers.lisp" (written 18 MAR 2015 12:52:21 PM): ; x-compiling (IN-PACKAGE "SB!ALIEN") ; x-compiling (DEFCONSTANT RTLD-LAZY ...) ; x-compiling (DEFCONSTANT RTLD-NOW ...) ; x-compiling (DEFCONSTANT RTLD-GLOBAL ...) ; x-compiling (IN-PACKAGE "SB!UNIX") ; x-compiling (DEFCONSTANT FD-SETSIZE ...) ; x-compiling (DEFCONSTANT POLLIN ...) ; x-compiling (DEFCONSTANT POLLOUT ...) ; x-compiling (DEFCONSTANT POLLPRI ...) ; x-compiling (DEFCONSTANT POLLHUP ...) ; x-compiling (DEFCONSTANT POLLNVAL ...) ; x-compiling (DEFCONSTANT POLLERR ...) ; x-compiling (DEFINE-ALIEN-TYPE NFDS-T ...) ; x-compiling (DEFCONSTANT CODESET ...) ; x-compiling (DEFINE-ALIEN-TYPE CLOCK-T ...) ; x-compiling (DEFINE-ALIEN-TYPE DEV-T ...) ; x-compiling (DEFINE-ALIEN-TYPE GID-T ...) ; x-compiling (DEFINE-ALIEN-TYPE INO-T ...) ; x-compiling (DEFINE-ALIEN-TYPE MODE-T ...) ; x-compiling (DEFINE-ALIEN-TYPE NLINK-T ...) ; x-compiling (DEFINE-ALIEN-TYPE OFF-T ...) ; x-compiling (DEFINE-ALIEN-TYPE SIZE-T ...) ; x-compiling (DEFINE-ALIEN-TYPE TIME-T ...) ; x-compiling (DEFINE-ALIEN-TYPE SUSECONDS-T ...) ; x-compiling (DEFINE-ALIEN-TYPE UID-T ...) ; x-compiling (DEFINE-ALIEN-TYPE WST-INO-T ...) ; x-compiling (DEFINE-ALIEN-TYPE WST-DEV-T ...) ; x-compiling (DEFINE-ALIEN-TYPE WST-OFF-T ...) ; x-compiling (DEFINE-ALIEN-TYPE WST-BLKSIZE-T ...) ; x-compiling (DEFINE-ALIEN-TYPE WST-BLKCNT-T ...) ; x-compiling (DEFINE-ALIEN-TYPE WST-NLINK-T ...) ; x-compiling (DEFINE-ALIEN-TYPE WST-UID-T ...) ; x-compiling (DEFINE-ALIEN-TYPE WST-GID-T ...) ; x-compiling (DEFCONSTANT R_OK ...) ; x-compiling (DEFCONSTANT W_OK ...) ; x-compiling (DEFCONSTANT X_OK ...) ; x-compiling (DEFCONSTANT F_OK ...) ; x-compiling (DEFCONSTANT O_RDONLY ...) ; x-compiling (DEFCONSTANT O_WRONLY ...) ; x-compiling (DEFCONSTANT O_RDWR ...) ; x-compiling (DEFCONSTANT O_ACCMODE ...) ; x-compiling (DEFCONSTANT O_CREAT ...) ; x-compiling (DEFCONSTANT O_EXCL ...) ; x-compiling (DEFCONSTANT O_NOCTTY ...) ; x-compiling (DEFCONSTANT O_TRUNC ...) ; x-compiling (DEFCONSTANT O_APPEND ...) ; x-compiling (DEFCONSTANT O_LARGEFILE ...) ; x-compiling (DEFCONSTANT S-IFMT ...) ; x-compiling (DEFCONSTANT S-IFIFO ...) ; x-compiling (DEFCONSTANT S-IFCHR ...) ; x-compiling (DEFCONSTANT S-IFDIR ...) ; x-compiling (DEFCONSTANT S-IFBLK ...) ; x-compiling (DEFCONSTANT S-IFREG ...) ; x-compiling (DEFCONSTANT S-IFLNK ...) ; x-compiling (DEFCONSTANT S-IFSOCK ...) ; x-compiling (DEFCONSTANT EBADF ...) ; x-compiling (DEFCONSTANT ENOENT ...) ; x-compiling (DEFCONSTANT EINTR ...) ; x-compiling (DEFCONSTANT EAGAIN ...) ; x-compiling (DEFCONSTANT EIO ...) ; x-compiling (DEFCONSTANT EEXIST ...) ; x-compiling (DEFCONSTANT ELOOP ...) ; x-compiling (DEFCONSTANT ESPIPE ...) ; x-compiling (DEFCONSTANT EWOULDBLOCK ...) ; x-compiling (DEFCONSTANT WNOHANG ...) ; x-compiling (DEFCONSTANT WUNTRACED ...) ; x-compiling (DEFCONSTANT TIOCGPGRP ...) ; x-compiling (DEFCONSTANT TIOCSPGRP ...) ; x-compiling (DEFCONSTANT TIOCGWINSZ ...) ; x-compiling (DEFCONSTANT TIOCSWINSZ ...) ; x-compiling (DEFCONSTANT SIG-DFL ...) ; x-compiling (DEFCONSTANT SIG-IGN ...) ; x-compiling (DEFCONSTANT SIGALRM ...) ; x-compiling (DEFCONSTANT SIGBUS ...) ; x-compiling (DEFCONSTANT SIGCHLD ...) ; x-compiling (DEFCONSTANT SIGCONT ...) ; x-compiling (DEFCONSTANT SIGFPE ...) ; x-compiling (DEFCONSTANT SIGHUP ...) ; x-compiling (DEFCONSTANT SIGILL ...) ; x-compiling (DEFCONSTANT SIGINT ...) ; x-compiling (DEFCONSTANT SIGIO ...) ; x-compiling (DEFCONSTANT SIGIOT ...) ; x-compiling (DEFCONSTANT SIGKILL ...) ; x-compiling (DEFCONSTANT SIGPIPE ...) ; x-compiling (DEFCONSTANT SIGPROF ...) ; x-compiling (DEFCONSTANT SIGQUIT ...) ; x-compiling (DEFCONSTANT SIGSEGV ...) ; x-compiling (DEFCONSTANT SIGSTKFLT ...) ; x-compiling (DEFCONSTANT SIGSTOP ...) ; x-compiling (DEFCONSTANT SIGSYS ...) ; x-compiling (DEFCONSTANT SIGTERM ...) ; x-compiling (DEFCONSTANT SIGTRAP ...) ; x-compiling (DEFCONSTANT SIGTSTP ...) ; x-compiling (DEFCONSTANT SIGTTIN ...) ; x-compiling (DEFCONSTANT SIGTTOU ...) ; x-compiling (DEFCONSTANT SIGURG ...) ; x-compiling (DEFCONSTANT SIGUSR1 ...) ; x-compiling (DEFCONSTANT SIGUSR2 ...) ; x-compiling (DEFCONSTANT SIGVTALRM ...) ; x-compiling (DEFCONSTANT SIGWINCH ...) ; x-compiling (DEFCONSTANT SIGXCPU ...) ; x-compiling (DEFCONSTANT SIGXFSZ ...) ; x-compiling (DEFCONSTANT FPE-INTOVF ...) ; x-compiling (DEFCONSTANT FPE-INTDIV ...) ; x-compiling (DEFCONSTANT FPE-FLTDIV ...) ; x-compiling (DEFCONSTANT FPE-FLTOVF ...) ; x-compiling (DEFCONSTANT FPE-FLTUND ...) ; x-compiling (DEFCONSTANT FPE-FLTRES ...) ; x-compiling (DEFCONSTANT FPE-FLTINV ...) ; x-compiling (DEFCONSTANT FPE-FLTSUB ...) ; x-compiling (DEFINE-ALIEN-TYPE NIL ...) ; x-compiling (DEFINE-ALIEN-TYPE NIL ...) ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (DEFINE-ALIEN-TYPE PAGE-INDEX-T ...) ; x-compiling (DEFINE-ALIEN-TYPE GENERATION-INDEX-T ...) ; x-compiling (DEFINE-ALIEN-TYPE OS-VM-SIZE-T ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/output/stuff-groveled-from-headers.lisp ; in: DEFINE-ALIEN-TYPE () ; (SB!ALIEN:DEFINE-ALIEN-TYPE NIL ; (SB!ALIEN:STRUCT SB!UNIX::TIMESPEC ; (SB!UNIX:TV-SEC (SB!ALIEN:SIGNED 32)) ; (SB!UNIX::TV-NSEC (SB!ALIEN:SIGNED 32)))) ; --> SYMBOL-MACROLET EVAL-WHEN SB!ALIEN::%DEF-AUXILIARY-ALIEN-TYPES ; ==> ; (SB!ALIEN::%DEF-AUXILIARY-ALIEN-TYPES ; '((:STRUCT SB!UNIX::TIMESPEC ; #))) ; ; caught STYLE-WARNING: ; undefined function: SB!ALIEN::%DEF-AUXILIARY-ALIEN-TYPES ; (SB!ALIEN:DEFINE-ALIEN-TYPE NIL ; (SB!ALIEN:STRUCT SB!UNIX:TIMEVAL ; (SB!UNIX:TV-SEC (SB!ALIEN:SIGNED 32)) ; (SB!UNIX:TV-USEC (SB!ALIEN:SIGNED 32)))) ; --> SYMBOL-MACROLET EVAL-WHEN SB!ALIEN::%DEF-AUXILIARY-ALIEN-TYPES ; ==> ; (SB!ALIEN::%DEF-AUXILIARY-ALIEN-TYPES ; '((:STRUCT SB!UNIX:TIMEVAL ; #))) ; ; caught STYLE-WARNING: ; undefined function: SB!ALIEN::%DEF-AUXILIARY-ALIEN-TYPES ; in: DEFINE-ALIEN-TYPE SB!UNIX:DEV-T ; (SB!ALIEN:DEFINE-ALIEN-TYPE SB!UNIX:DEV-T (SB!ALIEN:UNSIGNED 64)) ; --> SYMBOL-MACROLET EVAL-WHEN SB!ALIEN::%DEFINE-ALIEN-TYPE ; ==> ; (SB!ALIEN::%DEFINE-ALIEN-TYPE 'SB!UNIX:DEV-T ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!ALIEN::%DEFINE-ALIEN-TYPE ; in: DEFINE-ALIEN-TYPE SB!UNIX::CLOCK-T ; (SB!ALIEN:DEFINE-ALIEN-TYPE SB!UNIX::CLOCK-T (SB!ALIEN:SIGNED 32)) ; --> SYMBOL-MACROLET EVAL-WHEN SB!ALIEN::%DEFINE-ALIEN-TYPE ; ==> ; (SB!ALIEN::%DEFINE-ALIEN-TYPE 'SB!UNIX::CLOCK-T ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!ALIEN::%DEFINE-ALIEN-TYPE ; in: DEFINE-ALIEN-TYPE SB!UNIX::NFDS-T ; (SB!ALIEN:DEFINE-ALIEN-TYPE SB!UNIX::NFDS-T (SB!ALIEN:UNSIGNED 32)) ; --> SYMBOL-MACROLET EVAL-WHEN SB!ALIEN::%DEFINE-ALIEN-TYPE ; ==> ; (SB!ALIEN::%DEFINE-ALIEN-TYPE 'SB!UNIX::NFDS-T ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!ALIEN::%DEFINE-ALIEN-TYPE ; ; caught STYLE-WARNING: ; 20 more uses of undefined function SB!ALIEN::%DEFINE-ALIEN-TYPE ; ; compilation unit finished ; Undefined functions: ; SB!ALIEN::%DEF-AUXILIARY-ALIEN-TYPES SB!ALIEN::%DEFINE-ALIEN-TYPE ; caught 6 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/output/stuff-groveled-from-headers.lisp-obj-tmp written ; compilation finished in 0:00:00.096 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/kernel.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (DEFUN GET-HEADER-DATA ...) ; x-compiling (DEFUN SET-HEADER-DATA ...) ; x-compiling (DEFUN GET-CLOSURE-LENGTH ...) ; x-compiling (DEFUN LOWTAG-OF ...) ; x-compiling (DEFUN WIDETAG-OF ...) ; x-compiling (DECLAIM (INLINE %OTHER-POINTER-WIDETAG)) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/kernel.lisp ; in: DECLAIM (INLINE %OTHER-POINTER-WIDETAG) ; (DECLAIM (INLINE SB!KERNEL:%OTHER-POINTER-WIDETAG)) ; --> EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE SB!KERNEL:%OTHER-POINTER-WIDETAG)) ; ; caught STYLE-WARNING: ; Proclaiming SB!KERNEL:%OTHER-POINTER-WIDETAG to be INLINE, but 1 call to it was ; previously compiled. A declaration of NOTINLINE at the call site will eliminate ; this warning, as will proclaiming and defining the function before its first ; potential use. ; x-compiling (DEFUN %OTHER-POINTER-WIDETAG ...) ; x-compiling (DEFUN VECTOR-SAP ...) ; x-compiling (DEFUN BINDING-STACK-POINTER-SAP ...) ; x-compiling (DEFUN DYNAMIC-SPACE-FREE-POINTER ...) ; x-compiling (DEFUN CONTROL-STACK-POINTER-SAP ...) ; x-compiling (DEFUN FUN-SUBTYPE ...) ; x-compiling (DEFUN (SETF FUN-SUBTYPE) ...) ; x-compiling (DEFUN SIMPLE-FUN-P ...) ; x-compiling (DEFTYPE SIMPLE-FUN ...) ; x-compiling (DEFUN %SIMPLE-FUN-DOC ...) ; x-compiling (DEFUN (SETF %SIMPLE-FUN-DOC) ...) ; x-compiling (DEFUN %SIMPLE-FUN-XREFS ...) ; x-compiling (DEFUN %SIMPLE-FUN-ARGLIST ...) ; x-compiling (DEFUN (SETF %SIMPLE-FUN-ARGLIST) ...) ; x-compiling (DEFUN %SIMPLE-FUN-NAME ...) ; x-compiling (DEFUN (SETF %SIMPLE-FUN-NAME) ...) ; x-compiling (DEFUN %SIMPLE-FUN-TYPE ...) ; x-compiling (DEFUN %SIMPLE-FUN-NEXT ...) ; x-compiling (DEFUN %SIMPLE-FUN-SELF ...) ; x-compiling (DEFUN CLOSUREP ...) ; x-compiling (DEFTYPE CLOSURE ...) ; x-compiling (DEFMACRO DO-CLOSURE-VALUES ...) ; x-compiling (DEFUN %CLOSURE-VALUES ...) ; x-compiling (DEFUN %CLOSURE-FUN ...) ; x-compiling (DEFUN %CLOSURE-INDEX-REF ...) ; x-compiling (DEFUN SB!C::VECTOR-LENGTH ...) ; x-compiling (DEFUN ALLOCATE-VECTOR ...) ; x-compiling (DEFUN MAKE-ARRAY-HEADER ...) ; x-compiling (DEFUN CODE-INSTRUCTIONS ...) ; x-compiling (DEFUN CODE-N-UNBOXED-DATA-WORDS ...) ; x-compiling (DEFUN CODE-HEADER-REF ...) ; x-compiling (DEFUN CODE-HEADER-SET ...) ; x-compiling (DEFUN %VECTOR-RAW-BITS ...) ; x-compiling (DEFUN %SET-VECTOR-RAW-BITS ...) ; x-compiling (DEFUN MAKE-SINGLE-FLOAT ...) ; x-compiling (DEFUN MAKE-DOUBLE-FLOAT ...) ; x-compiling (DEFUN SINGLE-FLOAT-BITS ...) ; x-compiling (DEFUN DOUBLE-FLOAT-HIGH-BITS ...) ; x-compiling (DEFUN DOUBLE-FLOAT-LOW-BITS ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/kernel.lisp ; in: DEFUN CODE-N-UNBOXED-DATA-WORDS ; (SB!SYS:WITH-PINNED-OBJECTS (SB!KERNEL::F) ; (SB!SYS:SAP-REF-WORD ; (SB!SYS:INT-SAP (SB!KERNEL:GET-LISP-OBJ-ADDRESS SB!KERNEL::F)) ; (- SB!VM:FUN-POINTER-LOWTAG))) ; ==> ; (FLET ((#:WITH-PINNED-OBJECTS-THUNK3482 () ; (PROGN (SB!SYS:SAP-REF-WORD # #)))) ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) ; (SB!INT:DX-LET ((#:G113 SB!KERNEL::F)) ; (MULTIPLE-VALUE-PROG1 (#:WITH-PINNED-OBJECTS-THUNK3482) ; (SB!VM::TOUCH-OBJECT #:G113)))) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; ; compilation unit finished ; Undefined type: ; COMPILER-NOTE ; caught 2 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/kernel.lisp-obj-tmp written ; compilation finished in 0:00:00.097 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/toplevel.lisp" (written 18 MAR 2015 12:46:52 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFVAR SB!VM:*CURRENT-CATCH-BLOCK*) ; x-compiling (DEFVAR SB!VM::*CURRENT-UNWIND-PROTECT-BLOCK*) ; x-compiling (DEFVAR *FREE-INTERRUPT-CONTEXT-INDEX*) ; x-compiling (DECLAIM (SPECIAL *PSEUDO-ATOMIC-BITS* ...)) ; x-compiling (!DEFGLOBAL *COLD-INIT-COMPLETE-P* ...) ; x-compiling (!DEFVAR *MAXIMUM-ERROR-DEPTH* ...) ; x-compiling (!DEFVAR *CURRENT-ERROR-DEPTH* ...) ; x-compiling (DEFUN SYSINIT-PATHNAME ...) ; x-compiling (DEFUN USERINIT-PATHNAME ...) ; x-compiling (DEFVAR *SYSINIT-PATHNAME-FUNCTION* ...) ; x-compiling (DEFVAR *USERINIT-PATHNAME-FUNCTION* ...) ; x-compiling (DEFMACRO HANDLING-END-OF-THE-WORLD ...) ; x-compiling (DEFVAR *EXIT-LOCK*) ; x-compiling (DEFVAR *EXIT-IN-PROCESS* ...) ; x-compiling (DECLAIM (TYPE # ...)) ; x-compiling (DEFVAR *EXIT-TIMEOUT* ...) ; x-compiling (DEFUN OS-EXIT-HANDLER ...) ; x-compiling (DEFVAR *EXIT-ERROR-HANDLER* ...) ; x-compiling (DEFUN CALL-EXIT-HOOKS ...) ; x-compiling (DEFUN %EXIT ...) ; x-compiling (DEFMACRO INFINITE-ERROR-PROTECT ...) ; x-compiling (DEFUN INFINITE-ERROR-PROTECTOR ...) ; x-compiling (DEFUN SPLIT-SECONDS-FOR-SLEEP ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/toplevel.lisp ; in: DEFUN SPLIT-SECONDS-FOR-SLEEP ; (* 10 (TRUNCATE 100000000 (DENOMINATOR SB!IMPL::SECONDS))) ; ; note: unable to ; recode as leas, shifts and adds ; due to type uncertainty: ; The first argument is a (INTEGER -100000000 100000000), not a (UNSIGNED-BYTE ; 32). ; The result is a (VALUES (INTEGER -1000000000 1000000000) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32) &REST T). ; ; note: unable to ; recode as leas, shifts and adds ; due to type uncertainty: ; The result is a (VALUES (INTEGER -1000000000 1000000000) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; (TRUNCATE SB!IMPL::FRAC (LOAD-TIME-VALUE 1.e-9 T)) ; ; 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. ; (TRUNCATE SB!IMPL::SECONDS) ; --> TRUNCATE LET ; ==> ; (SB!KERNEL:%UNARY-TRUNCATE SB!C::X) ; ; 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. ; --> TRUNCATE LET VALUES ; ==> ; (- SB!C::X SB!C::RES) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 32) arithmetic (cost 5) because: ; The first argument is a REAL, not a (SIGNED-BYTE 32). ; The second argument is a INTEGER, not a (SIGNED-BYTE 32). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 32) ; &REST T). ; etc. ; (* REM (* 10 (TRUNCATE 100000000 (DENOMINATOR SB!IMPL::SECONDS)))) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (INTEGER -1000000000 1000000000), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 32) arithmetic (cost 5) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 32). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 32) &REST ; T). ; etc. ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; (SB!EXT:TRULY-THE (INTEGER 0 1000000000) ; (SB!KERNEL:%UNARY-TRUNCATE ; (* (- SB!IMPL::SECONDS (FLOAT SB!IMPL::WHOLE-SECONDS)) ; (LOAD-TIME-VALUE 1.e9 T)))) ; ; note: doing signed word to integer coercion (cost 20) ; ; note: doing signed word to integer coercion (cost 20) ; x-compiling (DEFUN SLEEP ...) ; x-compiling (DEFVAR / ...) ; x-compiling (DEFVAR // ...) ; x-compiling (DEFVAR /// ...) ; x-compiling (DEFVAR * ...) ; x-compiling (DEFVAR ** ...) ; x-compiling (DEFVAR *** ...) ; x-compiling (DEFVAR + ...) ; x-compiling (DEFVAR ++ ...) ; x-compiling (DEFVAR +++ ...) ; x-compiling (DEFVAR - ...) ; x-compiling (DEFUN INTERACTIVE-EVAL ...) ; x-compiling (DEFUN FLUSH-STANDARD-OUTPUT-STREAMS ...) ; x-compiling (DEFUN PROCESS-INIT-FILE ...) ; x-compiling (DEFUN PROCESS-EVAL/LOAD-OPTIONS ...) ; x-compiling (DEFUN PROCESS-SCRIPT ...) ; x-compiling (DEFUN STARTUP-ERROR ...) ; x-compiling (DEFUN TOPLEVEL-INIT ...) ; x-compiling (DEFVAR *REPL-READ-FORM-FUN* ...) ; x-compiling (DEFVAR *REPL-PROMPT-FUN* ...) ; x-compiling (DEFVAR *REPL-FUN-GENERATOR* ...) ; x-compiling (DEFUN TOPLEVEL-REPL ...) ; x-compiling (DEFUN REPL-PROMPT-FUN ...) ; x-compiling (DEFUN REPL-READ-FORM-FUN ...) ; x-compiling (DEFUN REPL-FUN ...) ; x-compiling (DEFUN %HALT ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/toplevel.lisp ; in: !DEFGLOBAL *COLD-INIT-COMPLETE-P* ; (SB!INT:!DEFGLOBAL SB!KERNEL:*COLD-INIT-COMPLETE-P* NIL) ; --> PROGN SB!EXT:DEFGLOBAL PROGN LET LET ; ==> ; (SB!IMPL::%DEFGLOBAL 'SB!KERNEL:*COLD-INIT-COMPLETE-P* (UNLESS #:BOUNDP NIL) ; #:BOUNDP 'NIL NIL (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: %DEFGLOBAL ; in: DEFUN %EXIT ; (SB!THREAD::%EXIT-OTHER-THREADS) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD::%EXIT-OTHER-THREADS ; in: DEFUN TOPLEVEL-REPL ; (WITH-SIMPLE-RESTART (ABORT "~@") ; (CATCH 'SB!INT:TOPLEVEL-CATCHER ; (SB!KERNEL::RESET-CONTROL-STACK-GUARD-PAGE) ; (FUNCALL SB!IMPL::REPL-FUN SB!IMPL::NOPRINT) ; (SB!IMPL::CRITICALLY-UNREACHABLE "after REPL"))) ; --> RESTART-CASE BLOCK LET TAGBODY RESTART-BIND LET CONS LIST CONS ; --> SB!KERNEL:MAKE-RESTART FUNCTION SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> UNLESS IF TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT3666 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: %FUNCALLABLE-INSTANCE-LAYOUT ; in: DEFUN PROCESS-SCRIPT ; (LET ((*TERMINAL-IO* (MAKE-TWO-WAY-STREAM SB!SYS:*STDIN* SB!SYS:*STDOUT*)) ; (*DEBUG-IO* (MAKE-TWO-WAY-STREAM SB!SYS:*STDIN* SB!SYS:*STDERR*)) ; (*STANDARD-INPUT* SB!SYS:*STDIN*) ; (*STANDARD-OUTPUT* SB!SYS:*STDOUT*) ; (*ERROR-OUTPUT* SB!SYS:*STDERR*)) ; (LOAD STREAM :VERBOSE NIL :PRINT NIL)) ; --> MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT3606 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: %FUNCALLABLE-INSTANCE-LAYOUT ; in: DEFUN PROCESS-EVAL/LOAD-OPTIONS ; (WITH-SIMPLE-RESTART ; (CONTINUE "Ignore runtime option --eval ~S." SB!IMPL::VALUE) ; (MULTIPLE-VALUE-BIND (SB!IMPL::EXPR SB!IMPL::POS) ; (READ-FROM-STRING SB!IMPL::VALUE) ; (IF (EQ SB!IMPL::VALUE ; (READ-FROM-STRING SB!IMPL::VALUE NIL SB!IMPL::VALUE :START ; SB!IMPL::POS)) ; (EVAL SB!IMPL::EXPR) ; (ERROR "Multiple expressions in --eval option: ~S" SB!IMPL::VALUE)))) ; --> RESTART-CASE BLOCK LET TAGBODY RESTART-BIND LET CONS LIST CONS ; --> SB!KERNEL:MAKE-RESTART FUNCTION SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> UNLESS IF TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT3576 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: %FUNCALLABLE-INSTANCE-LAYOUT ; ; caught STYLE-WARNING: ; 1 more use of undefined function %FUNCALLABLE-INSTANCE-LAYOUT ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/toplevel.lisp ; in: DEFUN CALL-EXIT-HOOKS ; (SB!INT:CALL-HOOKS "exit" SB!EXT:*EXIT-HOOKS* :ON-ERROR :WARN) ; ; caught STYLE-WARNING: ; undefined function: CALL-HOOKS ; in: DEFUN TOPLEVEL-INIT ; (FIND "--end-toplevel-options" SB!IMPL::OPTIONS :TEST #'STRING=) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB!KERNEL:%FIND-POSITION ; ==> ; (SB!KERNEL:%FIND-POSITION-IF ; (LET ((SB!C::TEST-FUN (SB!KERNEL:%COERCE-CALLABLE-TO-FUN SB!C::TEST))) ; (LAMBDA (SB!C::I) (FUNCALL SB!C::TEST-FUN SB!C::ITEM SB!C::I))) ; SEQUENCE SB!C::FROM-END SB!C::START SB!C::END ; (SB!KERNEL:%COERCE-CALLABLE-TO-FUN SB!C::KEY)) ; ; caught STYLE-WARNING: ; undefined function: CIRCULAR-LIST-ERROR ; in: DEFUN SPLIT-SECONDS-FOR-SLEEP ; (MULTIPLE-VALUE-BIND (SB!IMPL::SEC SB!IMPL::FRAC) ; (TRUNCATE SB!IMPL::SECONDS) ; (VALUES SB!IMPL::SEC (TRUNCATE SB!IMPL::FRAC (LOAD-TIME-VALUE 1.e-9 T)))) ; --> MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!IMPL::SEC SB!IMPL::FRAC #:G50) {BEC2359}> ; SB!IMPL::SEC SB!IMPL::FRAC NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; (MULTIPLE-VALUE-BIND (SB!IMPL::QUOT REM) ; (TRUNCATE (NUMERATOR SB!IMPL::SECONDS) (DENOMINATOR SB!IMPL::SECONDS)) ; (VALUES SB!IMPL::QUOT (* REM (* 10 (TRUNCATE 100000000 #))))) ; --> MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!IMPL::QUOT REM #:G44) {BEB14F1}> ; SB!IMPL::QUOT REM NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN %EXIT ; (UNWIND-PROTECT ; (PROGN ; (SB!INT:FLUSH-STANDARD-OUTPUT-STREAMS) ; (SB!THREAD::%EXIT-OTHER-THREADS) ; (SETF SB!IMPL::OK T)) ; (SB!SYS:OS-EXIT SB!IMPL::CODE :ABORT (NOT SB!IMPL::OK))) ; --> FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:NEXT24 #:START25 #:COUNT26 #:G27) {BDC3A01}> ; #:NEXT24 #:START25 #:COUNT26 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 47 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/toplevel.lisp ; in: DEFUN PROCESS-SCRIPT ; (HANDLER-BIND (((OR STYLE-WARNING SB!EXT:COMPILER-NOTE) #'MUFFLE-WARNING) ; (STREAM-ERROR (LAMBDA (SB!IMPL::E) (WHEN # #)))) ; (LET ((*TERMINAL-IO* (MAKE-TWO-WAY-STREAM SB!SYS:*STDIN* SB!SYS:*STDOUT*)) ; (*DEBUG-IO* (MAKE-TWO-WAY-STREAM SB!SYS:*STDIN* SB!SYS:*STDERR*)) ; (*STANDARD-INPUT* SB!SYS:*STDIN*) ; (*STANDARD-OUTPUT* SB!SYS:*STDOUT*) ; (*ERROR-OUTPUT* SB!SYS:*STDERR*)) ; (LOAD STREAM :VERBOSE NIL :PRINT NIL))) ; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK ; ==> ; (TYPEP CONDITION '(OR STYLE-WARNING SB!EXT:COMPILER-NOTE)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN TOPLEVEL-REPL ; (SB!IMPL::CRITICALLY-UNREACHABLE "after REPL") ; ; caught STYLE-WARNING: ; undefined function: CRITICALLY-UNREACHABLE ; in: DEFUN TOPLEVEL-INIT ; (SB!IMPL::CRITICALLY-UNREACHABLE "after TOPLEVEL-REPL") ; ; caught STYLE-WARNING: ; undefined function: CRITICALLY-UNREACHABLE ; (SB!EXT:DISABLE-DEBUGGER) ; ; caught STYLE-WARNING: ; undefined function: DISABLE-DEBUGGER ; in: DEFUN REPL-FUN ; (SB!IMPL::DISABLE-STEPPING) ; ; caught STYLE-WARNING: ; undefined function: DISABLE-STEPPING ; in: DEFUN INFINITE-ERROR-PROTECTOR ; (SB!IMPL::ERROR-ERROR "Help! " SB!IMPL::CUR " nested errors. " ; "SB-KERNEL:*MAXIMUM-ERROR-DEPTH* exceeded.") ; ; caught STYLE-WARNING: ; undefined function: ERROR-ERROR ; in: DEFUN STARTUP-ERROR ; (SB!EXT:EXIT :CODE 1) ; ; caught STYLE-WARNING: ; undefined function: EXIT ; in: DEFUN PROCESS-SCRIPT ; (SB!EXT:EXIT) ; ; caught STYLE-WARNING: ; undefined function: EXIT ; in: DEFUN PROCESS-EVAL/LOAD-OPTIONS ; (SB!EXT:EXIT) ; ; caught STYLE-WARNING: ; undefined function: EXIT ; ; caught STYLE-WARNING: ; 2 more uses of undefined function EXIT ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/toplevel.lisp ; in: DEFUN REPL-FUN ; (SB!THREAD::GET-FOREGROUND) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD::GET-FOREGROUND ; in: DEFUN INFINITE-ERROR-PROTECTOR ; (SB!INT:/HEXSTR SB!IMPL::*CURRENT-ERROR-DEPTH*) ; --> SB!SYS:%PRIMITIVE SB!C::%%PRIMITIVE ; ==> ; (SB!INT:HEXSTR SB!IMPL::*CURRENT-ERROR-DEPTH*) ; ; caught STYLE-WARNING: ; undefined function: HEXSTR ; in: DEFUN TOPLEVEL-REPL ; (WITH-SIMPLE-RESTART (ABORT "~@") ; (CATCH 'SB!INT:TOPLEVEL-CATCHER ; (SB!KERNEL::RESET-CONTROL-STACK-GUARD-PAGE) ; (FUNCALL SB!IMPL::REPL-FUN SB!IMPL::NOPRINT) ; (SB!IMPL::CRITICALLY-UNREACHABLE "after REPL"))) ; --> RESTART-CASE BLOCK LET TAGBODY RESTART-BIND LET CONS LIST CONS ; --> SB!KERNEL:MAKE-RESTART FUNCTION SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> UNLESS IF TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT3666 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-INVALID ; in: DEFUN PROCESS-SCRIPT ; (LET ((*TERMINAL-IO* (MAKE-TWO-WAY-STREAM SB!SYS:*STDIN* SB!SYS:*STDOUT*)) ; (*DEBUG-IO* (MAKE-TWO-WAY-STREAM SB!SYS:*STDIN* SB!SYS:*STDERR*)) ; (*STANDARD-INPUT* SB!SYS:*STDIN*) ; (*STANDARD-OUTPUT* SB!SYS:*STDOUT*) ; (*ERROR-OUTPUT* SB!SYS:*STDERR*)) ; (LOAD STREAM :VERBOSE NIL :PRINT NIL)) ; --> MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT3606 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-INVALID ; in: DEFUN PROCESS-EVAL/LOAD-OPTIONS ; (WITH-SIMPLE-RESTART ; (CONTINUE "Ignore runtime option --eval ~S." SB!IMPL::VALUE) ; (MULTIPLE-VALUE-BIND (SB!IMPL::EXPR SB!IMPL::POS) ; (READ-FROM-STRING SB!IMPL::VALUE) ; (IF (EQ SB!IMPL::VALUE ; (READ-FROM-STRING SB!IMPL::VALUE NIL SB!IMPL::VALUE :START ; SB!IMPL::POS)) ; (EVAL SB!IMPL::EXPR) ; (ERROR "Multiple expressions in --eval option: ~S" SB!IMPL::VALUE)))) ; --> RESTART-CASE BLOCK LET TAGBODY RESTART-BIND LET CONS LIST CONS ; --> SB!KERNEL:MAKE-RESTART FUNCTION SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> UNLESS IF TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT3576 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-INVALID ; ; caught STYLE-WARNING: ; 1 more use of undefined function LAYOUT-INVALID ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/toplevel.lisp ; in: DEFUN PROCESS-INIT-FILE ; (SB!INT:LOAD-AS-SOURCE STREAM :CONTEXT SB!IMPL::CONTEXT) ; ; caught STYLE-WARNING: ; undefined function: LOAD-AS-SOURCE ; in: DEFUN PROCESS-SCRIPT ; (SB!FASL::MAYBE-SKIP-SHEBANG-LINE SB!IMPL::F) ; ; caught STYLE-WARNING: ; undefined function: SB!FASL::MAYBE-SKIP-SHEBANG-LINE ; in: DEFUN SLEEP ; (SB!UNIX:NANOSLEEP (EXPT 10 8) 0) ; ; caught STYLE-WARNING: ; undefined function: SB!UNIX:NANOSLEEP ; in: DEFUN PROCESS-SCRIPT ; (SB!EXT:NATIVE-PATHNAME SB!IMPL::SCRIPT) ; ; caught STYLE-WARNING: ; undefined function: NATIVE-PATHNAME ; in: DEFUN PROCESS-EVAL/LOAD-OPTIONS ; (SB!EXT:NATIVE-PATHNAME SB!IMPL::VALUE) ; ; caught STYLE-WARNING: ; undefined function: NATIVE-PATHNAME ; in: DEFUN %EXIT ; (SB!SYS:OS-EXIT (CAR SB!IMPL::CODE) :ABORT NIL) ; ; caught STYLE-WARNING: ; undefined function: OS-EXIT ; in: DEFUN OS-EXIT-HANDLER ; (SB!SYS:OS-EXIT SB!SYS:*EXIT-IN-PROCESS* :ABORT T) ; ; caught STYLE-WARNING: ; undefined function: OS-EXIT ; in: DEFUN PROCESS-INIT-FILE ; (SB!EXT:PARSE-NATIVE-NAMESTRING SB!IMPL::SPECIFIED-PATHNAME) ; ; caught STYLE-WARNING: ; undefined function: PARSE-NATIVE-NAMESTRING ; in: DEFUN TOPLEVEL-REPL ; (SB!KERNEL::RESET-CONTROL-STACK-GUARD-PAGE) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::RESET-CONTROL-STACK-GUARD-PAGE ; in: DEFUN SYSINIT-PATHNAME ; (SB!INT:SBCL-HOMEDIR-PATHNAME) ; ; caught STYLE-WARNING: ; undefined function: SBCL-HOMEDIR-PATHNAME ; in: DEFUN REPL-FUN ; (SB!SYS:SCRUB-CONTROL-STACK) ; ; caught STYLE-WARNING: ; undefined function: SCRUB-CONTROL-STACK ; in: DEFUN %EXIT ; (HANDLER-BIND ((SERIOUS-CONDITION SB!SYS:*EXIT-ERROR-HANDLER*)) ; (LET ((SB!IMPL::OK NIL) (SB!IMPL::CODE SB!SYS:*EXIT-IN-PROCESS*)) ; (IF (CONSP SB!IMPL::CODE) ; (SB!SYS:OS-EXIT (CAR SB!IMPL::CODE) :ABORT NIL) ; (UNWIND-PROTECT (PROGN # # #) ; (SB!SYS:OS-EXIT SB!IMPL::CODE :ABORT #))))) ; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK ; ==> ; (TYPEP CONDITION 'SERIOUS-CONDITION) ; ; caught STYLE-WARNING: ; undefined type: SERIOUS-CONDITION ; in: DEFUN CALL-EXIT-HOOKS ; (HANDLER-BIND ((SERIOUS-CONDITION SB!SYS:*EXIT-ERROR-HANDLER*)) ; (SB!INT:CALL-HOOKS "exit" SB!EXT:*EXIT-HOOKS* :ON-ERROR :WARN)) ; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK ; ==> ; (TYPEP CONDITION 'SERIOUS-CONDITION) ; ; caught STYLE-WARNING: ; undefined type: SERIOUS-CONDITION ; in: DEFUN TOPLEVEL-REPL ; (HANDLER-BIND ((SB!EXT:STEP-CONDITION 'SB!IMPL::INVOKE-STEPPER)) ; (LOOP (SB!INT:/SHOW0 "about to set up restarts in TOPLEVEL-REPL") ; (WITH-SIMPLE-RESTART ; (ABORT "~@") ; (CATCH 'SB!INT:TOPLEVEL-CATCHER ; (SB!KERNEL::RESET-CONTROL-STACK-GUARD-PAGE) ; (FUNCALL SB!IMPL::REPL-FUN SB!IMPL::NOPRINT) ; (SB!IMPL::CRITICALLY-UNREACHABLE "after REPL"))))) ; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK ; ==> ; (TYPEP CONDITION 'SB!EXT:STEP-CONDITION) ; ; caught STYLE-WARNING: ; undefined type: STEP-CONDITION ; in: DEFUN PROCESS-SCRIPT ; (HANDLER-BIND (((OR STYLE-WARNING SB!EXT:COMPILER-NOTE) #'MUFFLE-WARNING) ; (STREAM-ERROR (LAMBDA (SB!IMPL::E) (WHEN # #)))) ; (LET ((*TERMINAL-IO* (MAKE-TWO-WAY-STREAM SB!SYS:*STDIN* SB!SYS:*STDOUT*)) ; (*DEBUG-IO* (MAKE-TWO-WAY-STREAM SB!SYS:*STDIN* SB!SYS:*STDERR*)) ; (*STANDARD-INPUT* SB!SYS:*STDIN*) ; (*STANDARD-OUTPUT* SB!SYS:*STDOUT*) ; (*ERROR-OUTPUT* SB!SYS:*STDERR*)) ; (LOAD STREAM :VERBOSE NIL :PRINT NIL))) ; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK ; ==> ; (TYPEP CONDITION 'STREAM-ERROR) ; ; caught STYLE-WARNING: ; undefined type: STREAM-ERROR ; in: DEFUN FLUSH-STANDARD-OUTPUT-STREAMS ; (HANDLER-BIND ((STREAM-ERROR (LAMBDA (SB!IMPL::C) (WHEN # #)))) ; (FORCE-OUTPUT STREAM)) ; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK ; ==> ; (TYPEP CONDITION 'STREAM-ERROR) ; ; caught STYLE-WARNING: ; undefined type: STREAM-ERROR ; in: DEFUN PROCESS-SCRIPT ; (STREAM-ERROR-STREAM SB!IMPL::E) ; ; caught STYLE-WARNING: ; undefined function: STREAM-ERROR-STREAM ; in: DEFUN FLUSH-STANDARD-OUTPUT-STREAMS ; (STREAM-ERROR-STREAM SB!IMPL::C) ; ; caught STYLE-WARNING: ; undefined function: STREAM-ERROR-STREAM ; (SB!IMPL::STREAM-OUTPUT-STREAM (SYMBOL-VALUE SB!IMPL::NAME)) ; ; caught STYLE-WARNING: ; undefined function: STREAM-OUTPUT-STREAM ; in: DEFUN PROCESS-SCRIPT ; (HANDLER-BIND (((OR STYLE-WARNING SB!EXT:COMPILER-NOTE) #'MUFFLE-WARNING) ; (STREAM-ERROR (LAMBDA (SB!IMPL::E) (WHEN # #)))) ; (LET ((*TERMINAL-IO* (MAKE-TWO-WAY-STREAM SB!SYS:*STDIN* SB!SYS:*STDOUT*)) ; (*DEBUG-IO* (MAKE-TWO-WAY-STREAM SB!SYS:*STDIN* SB!SYS:*STDERR*)) ; (*STANDARD-INPUT* SB!SYS:*STDIN*) ; (*STANDARD-OUTPUT* SB!SYS:*STDOUT*) ; (*ERROR-OUTPUT* SB!SYS:*STDERR*)) ; (LOAD STREAM :VERBOSE NIL :PRINT NIL))) ; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK ; ==> ; (TYPEP CONDITION '(OR STYLE-WARNING SB!EXT:COMPILER-NOTE)) ; ; caught STYLE-WARNING: ; undefined type: STYLE-WARNING ; (SB!IMPL::HANDLING-END-OF-THE-WORLD ; (IF (EQ T SB!IMPL::SCRIPT) ; (SB!IMPL::LOAD-SCRIPT SB!SYS:*STDIN*) ; (WITH-OPEN-FILE ; (SB!IMPL::F (SB!EXT:NATIVE-PATHNAME SB!IMPL::SCRIPT) :ELEMENT-TYPE ; :DEFAULT) ; (SB!FASL::MAYBE-SKIP-SHEBANG-LINE SB!IMPL::F) ; (SB!IMPL::LOAD-SCRIPT SB!IMPL::F)))) ; --> SB!SYS:WITHOUT-INTERRUPTS SB!INT:DX-FLET FLET BLOCK MACROLET LET CATCH ; --> BLOCK SB!C::%WITHIN-CLEANUP UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM ; --> SB!SYS:WITH-LOCAL-INTERRUPTS LET WHEN IF PROGN WHEN IF PROGN ; ==> ; (SB!UNIX::UNBLOCK-DEFERRABLE-SIGNALS) ; ; caught STYLE-WARNING: ; undefined function: SB!UNIX::UNBLOCK-DEFERRABLE-SIGNALS ; in: DEFUN TOPLEVEL-REPL ; (WITH-SIMPLE-RESTART (ABORT "~@") ; (CATCH 'SB!INT:TOPLEVEL-CATCHER ; (SB!KERNEL::RESET-CONTROL-STACK-GUARD-PAGE) ; (FUNCALL SB!IMPL::REPL-FUN SB!IMPL::NOPRINT) ; (SB!IMPL::CRITICALLY-UNREACHABLE "after REPL"))) ; --> RESTART-CASE BLOCK LET TAGBODY RESTART-BIND LET CONS LIST CONS ; --> SB!KERNEL:MAKE-RESTART FUNCTION SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> UNLESS IF TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT3666 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: UPDATE-OBJECT-LAYOUT-OR-INVALID ; in: DEFUN PROCESS-SCRIPT ; (LET ((*TERMINAL-IO* (MAKE-TWO-WAY-STREAM SB!SYS:*STDIN* SB!SYS:*STDOUT*)) ; (*DEBUG-IO* (MAKE-TWO-WAY-STREAM SB!SYS:*STDIN* SB!SYS:*STDERR*)) ; (*STANDARD-INPUT* SB!SYS:*STDIN*) ; (*STANDARD-OUTPUT* SB!SYS:*STDOUT*) ; (*ERROR-OUTPUT* SB!SYS:*STDERR*)) ; (LOAD STREAM :VERBOSE NIL :PRINT NIL)) ; --> MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT3606 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: UPDATE-OBJECT-LAYOUT-OR-INVALID ; in: DEFUN PROCESS-EVAL/LOAD-OPTIONS ; (WITH-SIMPLE-RESTART ; (CONTINUE "Ignore runtime option --eval ~S." SB!IMPL::VALUE) ; (MULTIPLE-VALUE-BIND (SB!IMPL::EXPR SB!IMPL::POS) ; (READ-FROM-STRING SB!IMPL::VALUE) ; (IF (EQ SB!IMPL::VALUE ; (READ-FROM-STRING SB!IMPL::VALUE NIL SB!IMPL::VALUE :START ; SB!IMPL::POS)) ; (EVAL SB!IMPL::EXPR) ; (ERROR "Multiple expressions in --eval option: ~S" SB!IMPL::VALUE)))) ; --> RESTART-CASE BLOCK LET TAGBODY RESTART-BIND LET CONS LIST CONS ; --> SB!KERNEL:MAKE-RESTART FUNCTION SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> UNLESS IF TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT3576 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: UPDATE-OBJECT-LAYOUT-OR-INVALID ; ; caught STYLE-WARNING: ; 1 more use of undefined function UPDATE-OBJECT-LAYOUT-OR-INVALID ; ; compilation unit finished ; Undefined types: ; CODE-DELETION-NOTE COMPILER-NOTE SERIOUS-CONDITION STEP-CONDITION STREAM-ERROR STYLE-WARNING ; Undefined functions: ; %DEFGLOBAL SB!THREAD::%EXIT-OTHER-THREADS %FUNCALLABLE-INSTANCE-LAYOUT CALL-HOOKS CIRCULAR-LIST-ERROR CRITICALLY-UNREACHABLE DISABLE-DEBUGGER DISABLE-STEPPING ERROR-ERROR EXIT SB!THREAD::GET-FOREGROUND HEXSTR LAYOUT-INVALID LOAD-AS-SOURCE SB!FASL::MAYBE-SKIP-SHEBANG-LINE SB!UNIX:NANOSLEEP NATIVE-PATHNAME OS-EXIT PARSE-NATIVE-NAMESTRING SB!KERNEL::RESET-CONTROL-STACK-GUARD-PAGE SBCL-HOMEDIR-PATHNAME SCRUB-CONTROL-STACK STREAM-ERROR-STREAM STREAM-OUTPUT-STREAM SB!UNIX::UNBLOCK-DEFERRABLE-SIGNALS UPDATE-OBJECT-LAYOUT-OR-INVALID ; caught 53 STYLE-WARNING conditions ; printed 11 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/toplevel.lisp-obj-tmp written ; compilation finished in 0:00:00.323 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/cold-error.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (!DEFVAR *BREAK-ON-SIGNALS* ...) ; x-compiling (DEFUN MAYBE-BREAK-ON-SIGNAL ...) ; x-compiling (DEFUN SIGNAL ...) ; x-compiling (DEFUN ERROR ...) ; x-compiling (DEFUN CERROR ...) ; x-compiling (DEFUN %BREAK ...) ; x-compiling (DEFUN BREAK ...) ; x-compiling (DEFUN WARN ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/cold-error.lisp ; in: DEFUN %BREAK ; (WITH-SIMPLE-RESTART (CONTINUE "Return from ~S." SB!KERNEL::WHAT) ; (LET ((SB!DEBUG:*STACK-TOP-HINT* ; (OR SB!DEBUG:*STACK-TOP-HINT* 'SB!INT:%BREAK))) ; (INVOKE-DEBUGGER ; (SB!KERNEL:COERCE-TO-CONDITION SB!KERNEL::DATUM SB!KERNEL::ARGUMENTS ; 'SIMPLE-CONDITION SB!KERNEL::WHAT)))) ; --> RESTART-CASE BLOCK LET TAGBODY RESTART-BIND LET CONS LIST CONS ; --> SB!KERNEL:MAKE-RESTART FUNCTION SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> UNLESS IF TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT3752 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: %FUNCALLABLE-INSTANCE-LAYOUT ; in: DEFUN CERROR ; (WITH-SIMPLE-RESTART ; (CONTINUE "~A" ; (APPLY #'FORMAT NIL SB!KERNEL::CONTINUE-STRING ; SB!KERNEL::ARGUMENTS)) ; (LET ((CONDITION ; (SB!KERNEL:COERCE-TO-CONDITION SB!KERNEL::DATUM SB!KERNEL::ARGUMENTS ; 'SIMPLE-ERROR 'CERROR))) ; (WITH-CONDITION-RESTARTS CONDITION ; (LIST (FIND-RESTART 'CONTINUE)) ; (LET (#) ; (SIGNAL CONDITION) ; (INVOKE-DEBUGGER CONDITION))))) ; --> RESTART-CASE BLOCK LET TAGBODY RESTART-BIND LET CONS LIST CONS ; --> SB!KERNEL:MAKE-RESTART FUNCTION SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> UNLESS IF TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT3731 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: %FUNCALLABLE-INSTANCE-LAYOUT ; (WITH-CONDITION-RESTARTS CONDITION ; (LIST (FIND-RESTART 'CONTINUE)) ; (LET ((SB!DEBUG:*STACK-TOP-HINT* (OR SB!DEBUG:*STACK-TOP-HINT* 'CERROR))) ; (SIGNAL CONDITION) ; (INVOKE-DEBUGGER CONDITION))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:NEXT41 #:START42 #:COUNT43 #:G47) {BC30B19}> ; #:NEXT41 #:START42 #:COUNT43 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN ERROR ; (DEFUN ERROR (SB!KERNEL::DATUM &REST SB!KERNEL::ARGUMENTS) ; "Invoke the signal facility on a condition formed from DATUM and ARGUMENTS. ; If the condition is not handled, the debugger is invoked." ; (SB!INT:/SHOW0 "entering ERROR, argument list=..") ; (SB!INT:/HEXSTR SB!KERNEL::ARGUMENTS) ; (SB!INT:/SHOW0 "cold-printing ERROR arguments one by one..") ; (DOLIST (SB!KERNEL::ARGUMENT SB!KERNEL::ARGUMENTS) ; (SB!IMPL::COLD-PRINT SB!KERNEL::ARGUMENT)) ; (SB!INT:/SHOW0 "done cold-printing ERROR arguments") ; (SB!KERNEL:INFINITE-ERROR-PROTECT ; (LET ((CONDITION #) (SB!DEBUG:*STACK-TOP-HINT* #)) ; (SB!INT:/SHOW0 "done coercing DATUM to CONDITION") ; (SB!INT:/SHOW0 "signalling CONDITION from within ERROR") ; (SIGNAL CONDITION) ; (SB!INT:/SHOW0 "done signalling CONDITION within ERROR") ; (INVOKE-DEBUGGER CONDITION)))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!KERNEL::DATUM SB!KERNEL::ARGUMENTS #:REST-CONTEXT-21 ; #:REST-COUNT-22) ; {BB92991}> ; SB!KERNEL::DATUM NIL NIL 0)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN SIGNAL ; (DEFUN SIGNAL (SB!KERNEL::DATUM &REST SB!KERNEL::ARGUMENTS) ; "Invokes the signal facility on a condition formed from DATUM and ; ARGUMENTS. If the condition is not handled, NIL is returned. If ; (TYPEP condition *BREAK-ON-SIGNALS*) is true, the debugger is invoked ; before any signalling is done." ; (LET ((CONDITION ; (SB!KERNEL:COERCE-TO-CONDITION SB!KERNEL::DATUM SB!KERNEL::ARGUMENTS ; 'SIMPLE-CONDITION 'SIGNAL)) ; (SB!KERNEL::HANDLER-CLUSTERS SB!KERNEL:*HANDLER-CLUSTERS*) ; (SB!DEBUG:*STACK-TOP-HINT* (OR SB!DEBUG:*STACK-TOP-HINT* 'SIGNAL))) ; (WHEN *BREAK-ON-SIGNALS* (SB!KERNEL::MAYBE-BREAK-ON-SIGNAL CONDITION)) ; (DO ((SB!KERNEL::CLUSTER # #)) ; ((NULL SB!KERNEL::CLUSTER) NIL) ; (LET (#) ; (DOLIST # #))))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!KERNEL::DATUM SB!KERNEL::ARGUMENTS #:REST-CONTEXT-8 ; #:REST-COUNT-9) ; {BB2A661}> ; SB!KERNEL::DATUM NIL NIL 0)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 11 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/cold-error.lisp ; in: DEFUN ERROR ; (SB!IMPL::COLD-PRINT SB!KERNEL::ARGUMENT) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::COLD-PRINT ; (INVOKE-DEBUGGER CONDITION) ; ; caught STYLE-WARNING: ; undefined type: CONDITION ; (SB!INT:/HEXSTR SB!KERNEL::ARGUMENTS) ; --> SB!SYS:%PRIMITIVE SB!C::%%PRIMITIVE ; ==> ; (SB!INT:HEXSTR SB!KERNEL::ARGUMENTS) ; ; caught STYLE-WARNING: ; undefined function: HEXSTR ; in: DEFUN %BREAK ; (WITH-SIMPLE-RESTART (CONTINUE "Return from ~S." SB!KERNEL::WHAT) ; (LET ((SB!DEBUG:*STACK-TOP-HINT* ; (OR SB!DEBUG:*STACK-TOP-HINT* 'SB!INT:%BREAK))) ; (INVOKE-DEBUGGER ; (SB!KERNEL:COERCE-TO-CONDITION SB!KERNEL::DATUM SB!KERNEL::ARGUMENTS ; 'SIMPLE-CONDITION SB!KERNEL::WHAT)))) ; --> RESTART-CASE BLOCK LET TAGBODY RESTART-BIND LET CONS LIST CONS ; --> SB!KERNEL:MAKE-RESTART FUNCTION SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> UNLESS IF TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT3752 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-INVALID ; in: DEFUN CERROR ; (WITH-SIMPLE-RESTART ; (CONTINUE "~A" ; (APPLY #'FORMAT NIL SB!KERNEL::CONTINUE-STRING ; SB!KERNEL::ARGUMENTS)) ; (LET ((CONDITION ; (SB!KERNEL:COERCE-TO-CONDITION SB!KERNEL::DATUM SB!KERNEL::ARGUMENTS ; 'SIMPLE-ERROR 'CERROR))) ; (WITH-CONDITION-RESTARTS CONDITION ; (LIST (FIND-RESTART 'CONTINUE)) ; (LET (#) ; (SIGNAL CONDITION) ; (INVOKE-DEBUGGER CONDITION))))) ; --> RESTART-CASE BLOCK LET TAGBODY RESTART-BIND LET CONS LIST CONS ; --> SB!KERNEL:MAKE-RESTART FUNCTION SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> UNLESS IF TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT3731 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-INVALID ; in: DEFUN %BREAK ; (SB!KERNEL:INFINITE-ERROR-PROTECT ; (WITH-SIMPLE-RESTART (CONTINUE "Return from ~S." SB!KERNEL::WHAT) ; (LET ((SB!DEBUG:*STACK-TOP-HINT* #)) ; (INVOKE-DEBUGGER ; (SB!KERNEL:COERCE-TO-CONDITION SB!KERNEL::DATUM SB!KERNEL::ARGUMENTS ; 'SIMPLE-CONDITION SB!KERNEL::WHAT))))) ; --> UNLESS IF PROGN LET ; ==> ; (SB!DEBUG:PRINT-BACKTRACE :COUNT 8) ; ; caught STYLE-WARNING: ; undefined function: SB!DEBUG:PRINT-BACKTRACE ; in: DEFUN CERROR ; (SB!KERNEL:INFINITE-ERROR-PROTECT ; (WITH-SIMPLE-RESTART ; (CONTINUE "~A" ; (APPLY #'FORMAT NIL SB!KERNEL::CONTINUE-STRING ; SB!KERNEL::ARGUMENTS)) ; (LET ((CONDITION #)) ; (WITH-CONDITION-RESTARTS CONDITION ; (LIST #) ; (LET # ; # ; #))))) ; --> UNLESS IF PROGN LET ; ==> ; (SB!DEBUG:PRINT-BACKTRACE :COUNT 8) ; ; caught STYLE-WARNING: ; undefined function: SB!DEBUG:PRINT-BACKTRACE ; in: DEFUN ERROR ; (SB!KERNEL:INFINITE-ERROR-PROTECT ; (LET ((CONDITION ; (SB!KERNEL:COERCE-TO-CONDITION SB!KERNEL::DATUM SB!KERNEL::ARGUMENTS ; 'SIMPLE-ERROR 'ERROR)) ; (SB!DEBUG:*STACK-TOP-HINT* (OR SB!DEBUG:*STACK-TOP-HINT* 'ERROR))) ; (SB!INT:/SHOW0 "done coercing DATUM to CONDITION") ; (SB!INT:/SHOW0 "signalling CONDITION from within ERROR") ; (SIGNAL CONDITION) ; (SB!INT:/SHOW0 "done signalling CONDITION within ERROR") ; (INVOKE-DEBUGGER CONDITION))) ; --> UNLESS IF PROGN LET ; ==> ; (SB!DEBUG:PRINT-BACKTRACE :COUNT 8) ; ; caught STYLE-WARNING: ; undefined function: SB!DEBUG:PRINT-BACKTRACE ; ; caught STYLE-WARNING: ; 1 more use of undefined function SB!DEBUG:PRINT-BACKTRACE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/cold-error.lisp ; in: DEFUN WARN ; (ETYPECASE CONDITION (STYLE-WARNING 'STYLE-WARNING) (WARNING 'WARNING)) ; --> LET COND IF ; ==> ; (TYPEP #:G3776 'STYLE-WARNING) ; ; caught STYLE-WARNING: ; undefined type: STYLE-WARNING ; in: DEFUN %BREAK ; (WITH-SIMPLE-RESTART (CONTINUE "Return from ~S." SB!KERNEL::WHAT) ; (LET ((SB!DEBUG:*STACK-TOP-HINT* ; (OR SB!DEBUG:*STACK-TOP-HINT* 'SB!INT:%BREAK))) ; (INVOKE-DEBUGGER ; (SB!KERNEL:COERCE-TO-CONDITION SB!KERNEL::DATUM SB!KERNEL::ARGUMENTS ; 'SIMPLE-CONDITION SB!KERNEL::WHAT)))) ; --> RESTART-CASE BLOCK LET TAGBODY RESTART-BIND LET CONS LIST CONS ; --> SB!KERNEL:MAKE-RESTART FUNCTION SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> UNLESS IF TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT3752 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: UPDATE-OBJECT-LAYOUT-OR-INVALID ; in: DEFUN CERROR ; (WITH-SIMPLE-RESTART ; (CONTINUE "~A" ; (APPLY #'FORMAT NIL SB!KERNEL::CONTINUE-STRING ; SB!KERNEL::ARGUMENTS)) ; (LET ((CONDITION ; (SB!KERNEL:COERCE-TO-CONDITION SB!KERNEL::DATUM SB!KERNEL::ARGUMENTS ; 'SIMPLE-ERROR 'CERROR))) ; (WITH-CONDITION-RESTARTS CONDITION ; (LIST (FIND-RESTART 'CONTINUE)) ; (LET (#) ; (SIGNAL CONDITION) ; (INVOKE-DEBUGGER CONDITION))))) ; --> RESTART-CASE BLOCK LET TAGBODY RESTART-BIND LET CONS LIST CONS ; --> SB!KERNEL:MAKE-RESTART FUNCTION SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> UNLESS IF TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT3731 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: UPDATE-OBJECT-LAYOUT-OR-INVALID ; in: DEFUN WARN ; (ETYPECASE CONDITION (STYLE-WARNING 'STYLE-WARNING) (WARNING 'WARNING)) ; --> LET COND IF COND IF ; ==> ; (TYPEP #:G3776 'WARNING) ; ; caught STYLE-WARNING: ; undefined type: WARNING ; (SB!INT:ENFORCE-TYPE CONDITION WARNING) ; --> LET UNLESS IF ; ==> ; (TYPEP #:VALUE102 'WARNING) ; ; caught STYLE-WARNING: ; undefined type: WARNING ; ; compilation unit finished ; Undefined types: ; CODE-DELETION-NOTE CONDITION STYLE-WARNING WARNING ; Undefined functions: ; %FUNCALLABLE-INSTANCE-LAYOUT SB!IMPL::COLD-PRINT HEXSTR LAYOUT-INVALID SB!DEBUG:PRINT-BACKTRACE UPDATE-OBJECT-LAYOUT-OR-INVALID ; caught 20 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/cold-error.lisp-obj-tmp written ; compilation finished in 0:00:00.095 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/info-vector.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFCONSTANT +EMPTY-KEY+ ...) ; x-compiling (DEFCONSTANT +UNAVAILABLE-KEY+ ...) ; x-compiling (DEFTYPE INFO-CELL-INDEX ...) ; x-compiling (DEFCONSTANT +INFO-KEYS-OFFSET+ ...) ; x-compiling (DEFSTRUCT (INFO-STORAGE # ...) ...) ; x-compiling (DEFUN MAKE-INFO-STORAGE ...) ; x-compiling (DEFSTRUCT (INFO-HASHTABLE #) ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFMACRO INFO-CAS ...) ; x-compiling (DECLAIM (INLINE INFO-ENV-ADJUST-COUNT)) ; x-compiling (DEFUN INFO-ENV-ADJUST-COUNT ...) ; x-compiling (DECLAIM (INLINE MAKE-INFO-FORWARDING-POINTER ...) ...) ; x-compiling (DEFUN MAKE-INFO-FORWARDING-POINTER ...) ; x-compiling (DEFUN INFO-FORWARDING-POINTER-TARGET ...) ; x-compiling (DEFUN INFO-VALUE-MOVED-P ...) ; x-compiling (DEFMACRO DO-PROBE-SEQUENCE ...) ; x-compiling (DEFUN %WAIT-FOR-REHASH ...) ; x-compiling (DEFUN INFO-GETHASH ...) ; x-compiling (DEFUN INFO-PUTHASH ...) ; x-compiling (DEFUN INFO-ENV-REHASH ...) ; x-compiling (DEFMACRO INFO-MAPHASH ...) ; x-compiling (DEFUN (SETF INFO-GETHASH) ...) ; x-compiling (DEFUN SHOW-INFO-ENV ...) ; x-compiling (DEF!CONSTANT TYPE-NUMBER-BITS ...) ; x-compiling (DEFTYPE TYPE-NUMBER ...) ; x-compiling (DEFCONSTANT INFO-TYPE-MASK ...) ; x-compiling (DEFCONSTANT +INFOS-PER-WORD+ ...) ; x-compiling (DEFTYPE INFO-DESCRIPTOR ...) ; x-compiling (DEFCONSTANT +NO-AUXILLIARY-KEY+ ...) ; x-compiling (DEFCONSTANT-EQX +NIL-PACKED-INFOS+ ...) ; x-compiling (DEFCONSTANT +FDEFN-TYPE-NUM+ ...) ; x-compiling (DECLAIM (INLINE PACKED-INFO-FIELD)) ; x-compiling (DEFUN PACKED-INFO-FIELD ...) ; x-compiling (DEFUN COMPUTE-PACKIFIED-INFO-SIZE ...) ; x-compiling (DEFMACRO MAKE-INFO-DESCRIPTOR ...) ; x-compiling (DEFUN PACKIFY-INFOS ...) ; x-compiling (DEFMACRO WITH-PACKED-INFO-ITERATOR ...) ; x-compiling (DEFMACRO DO-PACKED-INFO-VECTOR-AUX-KEY ...) ; x-compiling (DEFUN COMPUTE-UNPACKIFIED-INFO-SIZE ...) ; x-compiling (DEFUN UNPACKIFY-INFOS ...) ; x-compiling (DEFUN INFO-FIND-AUX-KEY/UNPACKED ...) ; x-compiling (DEFUN INFO-FIND-AUX-KEY/PACKED ...) ; x-compiling (DEFUN %PACKED-INFO-INSERT ...) ; x-compiling (DECLAIM (INLINE INFO-QUICKLY-INSERTABLE-P)) ; x-compiling (DEFUN INFO-QUICKLY-INSERTABLE-P ...) ; x-compiling (DEFUN QUICK-PACKED-INFO-INSERT ...) ; x-compiling (DECLAIM (MAYBE-INLINE PACKED-INFO-INSERT)) ; x-compiling (DEFUN PACKED-INFO-INSERT ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN PACKED-INFO-VALUE-INDEX ...) ; x-compiling (DEFUN PACKED-INFO-REMOVE ...) ; x-compiling (DEFCONSTANT-EQX !+PCL-READER-NAME+ ...) ; x-compiling (DEFCONSTANT-EQX !+PCL-WRITER-NAME+ ...) ; x-compiling (DEFCONSTANT-EQX !+PCL-BOUNDP-NAME+ ...) ; x-compiling (DEFUN PCL-GLOBAL-ACCESSOR-NAME-P ...) ; x-compiling (DEFUN CONSTRUCT-GLOBALDB-NAME ...) ; x-compiling (DEFUN %CALL-WITH-EACH-INFO ...) ; x-compiling (DEFUN !TEST-PACKIFY-INFOS ...) ; x-compiling (DEFMACRO WITH-GLOBALDB-NAME ...) ; x-compiling (DECLAIM (INLINE INFO-VECTOR-FDEFN)) ; x-compiling (DEFUN INFO-VECTOR-FDEFN ...) ; x-compiling (DEFUN SYMBOL-INFO-VECTOR ...) ; x-compiling (DECLAIM (TYPE INFO-HASHTABLE ...)) ; x-compiling (DEFVAR *INFO-ENVIRONMENT*) ; x-compiling (DEFUN SET-INFO-VALUE ...) ; x-compiling (DEFUN %ATOMIC-SET-INFO-VALUE ...) ; x-compiling (DEFUN %GET-INFO-VALUE-INITIALIZING ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/info-vector.lisp ; in: DEFSTRUCT INFO-HASHTABLE ; (DEFSTRUCT (SB!C::INFO-HASHTABLE (:CONC-NAME SB!C::INFO-ENV-)) ; (SB!C::STORAGE (SB!C::MAKE-INFO-STORAGE 30) :TYPE SIMPLE-VECTOR) ; (SB!C::COMPARATOR #'EQUAL :TYPE FUNCTION) ; (SB!C::HASH-FUNCTION #'SB!C::GLOBALDB-SXHASHOID :TYPE FUNCTION) ; (SB!C::MUTEX (SB!THREAD:MAKE-MUTEX)) ; (COUNT 0 :TYPE SB!EXT:WORD)) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: DEFSTRUCT INFO-STORAGE ; (DEFSTRUCT ; (SB!C::INFO-STORAGE (:TYPE VECTOR) (:CONSTRUCTOR NIL) (:COPIER NIL)) ; (SB!C::CAPACITY 0 :TYPE (AND (INTEGER 3 *) SB!C::INFO-CELL-INDEX)) ; (SB!C::THRESHOLD 0 :TYPE SB!C::INFO-CELL-INDEX) ; (SB!C::NEXT NIL :TYPE SIMPLE-VECTOR)) ; --> PROGN EVAL-WHEN SETF LET* LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!INT:INFO) #:NEW3 :TYPED-STRUCTURE :INFO ; 'SB!C::INFO-STORAGE) ; ; caught STYLE-WARNING: ; undefined function: (SETF INFO) ; in: DEFUN INFO-PUTHASH ; (SB!THREAD:WITH-MUTEX ((SB!C::INFO-ENV-MUTEX SB!C::ENV)) ; (WHEN (EQ (SB!C::INFO-ENV-STORAGE SB!C::ENV) SB!C::STORAGE) ; (SB!C::INFO-ENV-REHASH SB!C::ENV))) ; --> SB!INT:DX-FLET FLET ; ==> ; (SB!THREAD::CALL-WITH-MUTEX #'SB!THREAD::WITH-MUTEX-THUNK ; (SB!C::INFO-ENV-MUTEX SB!C::ENV) NIL T NIL) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD::CALL-WITH-MUTEX ; in: DEFUN %WAIT-FOR-REHASH ; (SB!THREAD:WITH-MUTEX ((SB!C::INFO-ENV-MUTEX SB!C::ENV))) ; --> SB!INT:DX-FLET FLET ; ==> ; (SB!THREAD::CALL-WITH-MUTEX #'SB!THREAD::WITH-MUTEX-THUNK ; (SB!C::INFO-ENV-MUTEX SB!C::ENV) NIL T NIL) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD::CALL-WITH-MUTEX ; in: DEFUN MAKE-INFO-STORAGE ; (CEILING SB!C::N-CELLS-MIN SB!C::LOAD-FACTOR) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; (DEFUN SB!C::MAKE-INFO-STORAGE ; (SB!C::N-CELLS-MIN &OPTIONAL (SB!C::LOAD-FACTOR 0.7)) ; (LET* ((SB!C::N-CELLS (SB!C::PRIMIFY #)) ; (SB!C::A (MAKE-ARRAY #)) ; (SB!C::END (+ SB!C::+INFO-KEYS-OFFSET+ SB!C::N-CELLS))) ; (SETF (SB!C::INFO-STORAGE-CAPACITY SB!C::A) SB!C::N-CELLS ; (SB!C::INFO-STORAGE-THRESHOLD SB!C::A) (FLOOR #) ; (SB!C::INFO-STORAGE-NEXT SB!C::A) #()) ; (FILL SB!C::A SB!C::+EMPTY-KEY+ :START SB!C::+INFO-KEYS-OFFSET+ :END ; SB!C::END) ; (FILL SB!C::A NIL :START SB!C::END) ; SB!C::A)) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!C::N-CELLS-MIN SB!C::LOAD-FACTOR) {C295941}> ; SB!C::N-CELLS-MIN '0.7)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFSTRUCT INFO-STORAGE ; (DEFSTRUCT ; (SB!C::INFO-STORAGE (:TYPE VECTOR) (:CONSTRUCTOR NIL) (:COPIER NIL)) ; (SB!C::CAPACITY 0 :TYPE (AND (INTEGER 3 *) SB!C::INFO-CELL-INDEX)) ; (SB!C::THRESHOLD 0 :TYPE SB!C::INFO-CELL-INDEX) ; (SB!C::NEXT NIL :TYPE SIMPLE-VECTOR)) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK THE ELT AREF SB!KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ; --> THE ; ==> ; (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY ; (SB!KERNEL:%CHECK-BOUND ARRAY (ARRAY-DIMENSION ARRAY 0) SB!INT:INDEX)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 81 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/info-vector.lisp ; in: DEFUN !TEST-PACKIFY-INFOS ; (MAPCAR ; (LAMBDA (SB!C::MORE) ; (CONS (CAR SB!C::MORE) (SB!C::ADD-LENGTH-PREFIX (CDR SB!C::MORE)))) ; (REST SB!C::LISTS)) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFSTRUCT INFO-HASHTABLE ; #'SB!C::GLOBALDB-SXHASHOID ; ; caught STYLE-WARNING: ; undefined function: GLOBALDB-SXHASHOID ; (SB!THREAD:MAKE-MUTEX) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD:MAKE-MUTEX ; in: DEFUN MAKE-INFO-STORAGE ; (SB!C::PRIMIFY (CEILING SB!C::N-CELLS-MIN SB!C::LOAD-FACTOR)) ; ; caught STYLE-WARNING: ; undefined function: PRIMIFY ; in: DEFUN CONSTRUCT-GLOBALDB-NAME ; (SB!PCL::SLOT-BOUNDP-NAME SB!C::STEM) ; ; caught STYLE-WARNING: ; undefined function: SB!PCL::SLOT-BOUNDP-NAME ; (SB!PCL::SLOT-READER-NAME SB!C::STEM) ; ; caught STYLE-WARNING: ; undefined function: SB!PCL::SLOT-READER-NAME ; (SB!PCL::SLOT-WRITER-NAME SB!C::STEM) ; ; caught STYLE-WARNING: ; undefined function: SB!PCL::SLOT-WRITER-NAME ; in: DEFUN %WAIT-FOR-REHASH ; (SB!THREAD:THREAD-YIELD) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD:THREAD-YIELD ; in: DEFUN %GET-INFO-VALUE-INITIALIZING ; (SB!INT:UPDATE-SYMBOL-INFO SB!C::KEY1 #'SB!C::SIMPLE-NAME) ; ; caught STYLE-WARNING: ; undefined function: UPDATE-SYMBOL-INFO ; in: DEFUN %ATOMIC-SET-INFO-VALUE ; (SB!INT:UPDATE-SYMBOL-INFO SB!C::KEY1 #'SB!C::SIMPLE-NAME) ; ; caught STYLE-WARNING: ; undefined function: UPDATE-SYMBOL-INFO ; in: DEFUN SET-INFO-VALUE ; (SB!INT:UPDATE-SYMBOL-INFO SB!C::KEY1 #'SB!C::SIMPLE-NAME) ; ; caught STYLE-WARNING: ; undefined function: UPDATE-SYMBOL-INFO ; ; compilation unit finished ; Undefined types: ; CODE-DELETION-NOTE COMPILER-NOTE ; Undefined functions: ; SB!KERNEL::%TARGET-DEFSTRUCT (SETF INFO) SB!THREAD::CALL-WITH-MUTEX GLOBALDB-SXHASHOID SB!THREAD:MAKE-MUTEX PRIMIFY SB!PCL::SLOT-BOUNDP-NAME SB!PCL::SLOT-READER-NAME SB!PCL::SLOT-WRITER-NAME SB!THREAD:THREAD-YIELD UPDATE-SYMBOL-INFO ; caught 19 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/info-vector.lisp-obj-tmp written ; compilation finished in 0:00:00.866 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/fdefinition.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (/SHOW0 "fdefinition.lisp 22") ; x-compiling (DEFUN MAKE-FDEFN ...) ; x-compiling (DEFUN FDEFN-NAME ...) ; x-compiling (DEFUN FDEFN-FUN ...) ; x-compiling (DEFUN (SETF FDEFN-FUN) ...) ; x-compiling (DEFUN FDEFN-MAKUNBOUND ...) ; x-compiling (DECLAIM (INLINE SYMBOL-FDEFN)) ; x-compiling (DEFUN SYMBOL-FDEFN ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN FIND-FDEFN ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN FIND-OR-CREATE-FDEFN ...) ; x-compiling (DEFUN MAYBE-CLOBBER-FTYPE ...) ; x-compiling (DEFMACRO !COERCE-NAME-TO-FUN ...) ; x-compiling (DECLAIM (INLINE %COERCE-NAME-TO-FUN)) ; x-compiling (DEFUN %COERCE-NAME-TO-FUN ...) ; x-compiling (DEFUN (SETF %COERCE-NAME-TO-FUN) ...) ; x-compiling (DEFUN %COERCE-CALLABLE-TO-FUN ...) ; x-compiling (DEFSTRUCT (ENCAPSULATION-INFO # ...) ...) ; x-compiling (DEFUN ENCAPSULATE ...) ; x-compiling (DEFUN FIND-IF-IN-CLOSURE ...) ; x-compiling (DEFUN ENCAPSULATION-INFO ...) ; x-compiling (DEFUN UNENCAPSULATE ...) ; x-compiling (DEFUN ENCAPSULATED-P ...) ; x-compiling (DEFUN FDEFINITION ...) ; x-compiling (DEFVAR *SETF-FDEFINITION-HOOK* ...) ; x-compiling (DEFUN %SET-FDEFINITION ...) ; x-compiling (DEFUN FBOUNDP ...) ; x-compiling (DEFUN FMAKUNBOUND ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/fdefinition.lisp ; in: DEFSTRUCT ENCAPSULATION-INFO ; (DEFSTRUCT ; (SB!IMPL::ENCAPSULATION-INFO ; (:CONSTRUCTOR SB!IMPL::MAKE-ENCAPSULATION-INFO ; (TYPE SB!IMPL::DEFINITION)) ; (:COPIER NIL)) ; TYPE ; (SB!IMPL::DEFINITION NIL :TYPE FUNCTION)) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: DEFUN MAYBE-CLOBBER-FTYPE ; (SB!INT:CLEAR-INFO :FUNCTION :TYPE SB!IMPL::NAME) ; ; caught STYLE-WARNING: ; undefined function: CLEAR-INFO ; ==> ; (SB!C::CLEAR-INFO-VALUES SB!IMPL::NAME '(2)) ; ; caught STYLE-WARNING: ; undefined function: SB!C::CLEAR-INFO-VALUES ; in: DEFUN FIND-FDEFN ; (AREF SB!INT:IT (1- (THE SB!INT:INDEX SB!IMPL::DATA-IDX))) ; ==> ; (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; (MULTIPLE-VALUE-BIND ; (SB!IMPL::DATA-IDX SB!IMPL::DESCRIPTOR-IDX SB!IMPL::FIELD-IDX) ; (SB!INT:INFO-FIND-AUX-KEY/PACKED SB!INT:IT SB!IMPL::KEY2) ; (DECLARE (TYPE SB!INT:INDEX SB!IMPL::DESCRIPTOR-IDX) ; (TYPE (INTEGER 0 5) SB!IMPL::FIELD-IDX)) ; (WHEN SB!IMPL::DATA-IDX ; (WHEN (EQL (INCF SB!IMPL::FIELD-IDX) SB!INT:+INFOS-PER-WORD+) ; (SETQ SB!IMPL::FIELD-IDX 0 ; SB!IMPL::DESCRIPTOR-IDX #)) ; (WHEN ; (EQL ; (SB!INT:PACKED-INFO-FIELD SB!INT:IT SB!IMPL::DESCRIPTOR-IDX ; SB!IMPL::FIELD-IDX) ; SB!INT:+FDEFN-TYPE-NUM+) ; (RETURN-FROM SB!INT:FIND-FDEFN (AREF SB!INT:IT #))))) ; --> MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!IMPL::DATA-IDX SB!IMPL::DESCRIPTOR-IDX SB!IMPL::FIELD-IDX ; #:G22) ; {C0A2179}> ; SB!IMPL::DATA-IDX SB!IMPL::DESCRIPTOR-IDX SB!IMPL::FIELD-IDX NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; (SB!INT:WITH-GLOBALDB-NAME (SB!IMPL::KEY1 SB!IMPL::KEY2 NIL) SB!IMPL::NAME ; :HAIRY ; (SB!INT:AWHEN (SB!INT:INFO-VECTOR-FDEFN ; (SB!INT:INFO-GETHASH SB!IMPL::NAME ; SB!INT:*INFO-ENVIRONMENT*)) ; (RETURN-FROM SB!INT:FIND-FDEFN SB!INT:IT)) ; :SIMPLE ; (PROGN ; (SB!INT:AWHEN (SB!KERNEL:SYMBOL-INFO-VECTOR ; SB!IMPL::KEY1) ; (MULTIPLE-VALUE-BIND ; (SB!IMPL::DATA-IDX SB!IMPL::DESCRIPTOR-IDX ; SB!IMPL::FIELD-IDX) ; (SB!INT:INFO-FIND-AUX-KEY/PACKED SB!INT:IT ; SB!IMPL::KEY2) ; (DECLARE # ; #) ; (WHEN SB!IMPL::DATA-IDX # #))) ; (WHEN (EQ SB!IMPL::KEY1 'SETF) ; (RETURN-FROM SB!INT:FIND-FDEFN NIL)))) ; --> LET IF OR THE IF LET WHEN IF PROGN COND IF COND IF PROGN ; --> MULTIPLE-VALUE-SETQ VALUES PROG1 LET SETF LET* MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:NEW17 #:NEW18 #:G19) {C087CA9}> ; #:NEW17 #:NEW18 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 6 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/fdefinition.lisp ; in: DEFUN ENCAPSULATE ; (SB!IMPL::ENCAPSULATE-GENERIC-FUNCTION (SB!KERNEL:FDEFN-FUN SB!KERNEL:FDEFN) ; TYPE FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: ENCAPSULATE-GENERIC-FUNCTION ; in: DEFUN ENCAPSULATED-P ; (SB!IMPL::ENCAPSULATED-GENERIC-FUNCTION-P ; (SB!KERNEL:FDEFN-FUN SB!KERNEL:FDEFN) TYPE) ; ; caught STYLE-WARNING: ; undefined function: ENCAPSULATED-GENERIC-FUNCTION-P ; (TYPEP (SB!KERNEL:FDEFN-FUN SB!KERNEL:FDEFN) 'GENERIC-FUNCTION) ; ; caught STYLE-WARNING: ; undefined type: GENERIC-FUNCTION ; in: DEFUN UNENCAPSULATE ; (TYPEP (SB!KERNEL:FDEFN-FUN SB!KERNEL:FDEFN) 'GENERIC-FUNCTION) ; ; caught STYLE-WARNING: ; undefined type: GENERIC-FUNCTION ; in: DEFUN ENCAPSULATE ; (TYPEP (SB!KERNEL:FDEFN-FUN SB!KERNEL:FDEFN) 'GENERIC-FUNCTION) ; ; caught STYLE-WARNING: ; undefined type: GENERIC-FUNCTION ; in: DEFUN MAYBE-CLOBBER-FTYPE ; (SB!INT:INFO :FUNCTION :WHERE-FROM SB!IMPL::NAME) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; (SB!C::GET-INFO-VALUE SB!IMPL::NAME 4) ; ; caught STYLE-WARNING: ; undefined function: SB!C::GET-INFO-VALUE ; ; caught STYLE-WARNING: ; undefined function: INFO ; in: DEFUN FMAKUNBOUND ; (SB!KERNEL:UNDEFINE-FUN-NAME SB!IMPL::NAME) ; ; caught STYLE-WARNING: ; undefined function: UNDEFINE-FUN-NAME ; in: DEFUN UNENCAPSULATE ; (SB!IMPL::UNENCAPSULATE-GENERIC-FUNCTION ; (SB!KERNEL:FDEFN-FUN SB!KERNEL:FDEFN) TYPE) ; ; caught STYLE-WARNING: ; undefined function: UNENCAPSULATE-GENERIC-FUNCTION ; ; compilation unit finished ; Undefined types: ; CODE-DELETION-NOTE GENERIC-FUNCTION ; Undefined functions: ; SB!KERNEL::%TARGET-DEFSTRUCT CLEAR-INFO SB!C::CLEAR-INFO-VALUES ENCAPSULATE-GENERIC-FUNCTION ENCAPSULATED-GENERIC-FUNCTION-P SB!C::GET-INFO-VALUE INFO UNDEFINE-FUN-NAME UNENCAPSULATE-GENERIC-FUNCTION ; caught 16 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/fdefinition.lisp-obj-tmp written ; compilation finished in 0:00:00.143 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-type.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS) ; x-compiling (DEFUN CTYPEP ...) ; x-compiling (DECLAIM (INLINE LAYOUT-OF)) ; x-compiling (DEFUN LAYOUT-OF ...) ; x-compiling (DECLAIM (INLINE CLASSOID-OF)) ; x-compiling (DEFUN CLASSOID-OF ...) ; x-compiling (DEFUN CLEAR-TYPE-CACHES ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN-CACHED (CTYPE-OF :HASH-FUNCTION ...) ...) ; x-compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !TARGET-TYPE-COLD-INIT) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-type.lisp ; in: DEFUN-CACHED (CTYPE-OF :HASH-FUNCTION #'SXHASH :HASH-BITS 9) ; (SB!INT:DEFUN-CACHED (SB!KERNEL:CTYPE-OF :HASH-FUNCTION #'SXHASH :HASH-BITS 9) ; ((SB!KERNEL::X EQ)) ; (TYPECASE SB!KERNEL::X ; (FUNCTION ; (IF (SB!KERNEL:FUNCALLABLE-INSTANCE-P SB!KERNEL::X) ; (SB!KERNEL:CLASSOID-OF SB!KERNEL::X) ; (SB!KERNEL:SPECIFIER-TYPE #))) ; (SYMBOL (SB!KERNEL:MAKE-MEMBER-TYPE :MEMBERS (LIST SB!KERNEL::X))) ; (NUMBER (SB!KERNEL::CTYPE-OF-NUMBER SB!KERNEL::X)) ; (ARRAY ; (LET (#) ; (SB!KERNEL:MAKE-ARRAY-TYPE # :COMPLEXP # :ELEMENT-TYPE ; SB!KERNEL::ETYPE :SPECIALIZED-ELEMENT-TYPE ; SB!KERNEL::ETYPE))) ; (CONS ; (SB!KERNEL:MAKE-CONS-TYPE SB!KERNEL:*UNIVERSAL-TYPE* ; SB!KERNEL:*UNIVERSAL-TYPE*)) ; (CHARACTER (SB!KERNEL:SPECIFIER-TYPE 'CHARACTER)) ; (T (SB!KERNEL:CLASSOID-OF SB!KERNEL::X)))) ; --> PROGN SB!INT:DEFINE-HASH-CACHE PROGN SB!EXT:DEFGLOBAL PROGN LET LET ; ==> ; (SB!IMPL::%DEFGLOBAL 'SB!KERNEL::**CTYPE-OF-CACHE-VECTOR** ; (UNLESS #:BOUNDP NIL) #:BOUNDP 'NIL NIL ; (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::%DEFGLOBAL ; (SB!IMPL::%FUN-TYPE SB!KERNEL::X) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::%FUN-TYPE ; (SB!KERNEL:CLASSOID-OF SB!KERNEL::X) ; --> BLOCK SB!KERNEL:LAYOUT-CLASSOID SB!EXT:TRULY-THE SB!KERNEL:%INSTANCE-REF ; --> THE SB!KERNEL:LAYOUT-OF BLOCK COND IF COND IF PROGN ; ==> ; (SB!KERNEL:%FUNCALLABLE-INSTANCE-LAYOUT SB!KERNEL::X) ; ; caught STYLE-WARNING: ; undefined function: %FUNCALLABLE-INSTANCE-LAYOUT ; in: DEFUN CLASSOID-OF ; (SB!KERNEL:LAYOUT-OF SB!KERNEL::OBJECT) ; --> BLOCK COND IF COND IF PROGN ; ==> ; (SB!KERNEL:%FUNCALLABLE-INSTANCE-LAYOUT SB!KERNEL::X) ; ; caught STYLE-WARNING: ; undefined function: %FUNCALLABLE-INSTANCE-LAYOUT ; in: DEFUN LAYOUT-OF ; (SB!KERNEL:%FUNCALLABLE-INSTANCE-LAYOUT SB!KERNEL::X) ; ; caught STYLE-WARNING: ; undefined function: %FUNCALLABLE-INSTANCE-LAYOUT ; in: DEFUN CTYPEP ; (ETYPECASE TYPE ; ((OR SB!KERNEL:NUMERIC-TYPE SB!KERNEL:NAMED-TYPE SB!KERNEL:MEMBER-TYPE ; SB!KERNEL:ARRAY-TYPE SB!KERNEL:CHARACTER-SET-TYPE ; SB!KERNEL:BUILT-IN-CLASSOID SB!KERNEL:CONS-TYPE) ; (VALUES (SB!KERNEL:%TYPEP SB!KERNEL::OBJ TYPE) T)) ; (SB!KERNEL:CLASSOID ; (IF (IF (SB!KERNEL:CSUBTYPEP TYPE #) ; (SB!KERNEL:FUNCALLABLE-INSTANCE-P SB!KERNEL::OBJ) ; (SB!KERNEL:%INSTANCEP SB!KERNEL::OBJ)) ; (IF (EQ # #) ; (VALUES # T) ; (VALUES NIL NIL)) ; (VALUES NIL T))) ; (SB!KERNEL:COMPOUND-TYPE ; (FUNCALL ; (ETYPECASE TYPE ; (SB!KERNEL:INTERSECTION-TYPE #'SB!INT:EVERY/TYPE) ; (SB!KERNEL:UNION-TYPE #'SB!INT:ANY/TYPE)) ; #'SB!KERNEL:CTYPEP SB!KERNEL::OBJ (SB!KERNEL:COMPOUND-TYPE-TYPES TYPE))) ; (SB!KERNEL:FUN-TYPE (VALUES (FUNCTIONP SB!KERNEL::OBJ) T)) ; (SB!KERNEL:UNKNOWN-TYPE (VALUES NIL NIL)) ; (SB!KERNEL:ALIEN-TYPE-TYPE ; (VALUES ; (SB!ALIEN-INTERNALS:ALIEN-TYPEP SB!KERNEL::OBJ ; (SB!KERNEL:ALIEN-TYPE-TYPE-ALIEN-TYPE TYPE)) ; T)) ; (SB!KERNEL:NEGATION-TYPE ; (MULTIPLE-VALUE-BIND (SB!KERNEL::RES SB!KERNEL::WIN) ; (SB!KERNEL:CTYPEP SB!KERNEL::OBJ (SB!KERNEL:NEGATION-TYPE-TYPE TYPE)) ; (IF SB!KERNEL::WIN ; (VALUES # T) ; (VALUES NIL NIL)))) ; (SB!KERNEL:HAIRY-TYPE ; (LET* ((SB!KERNEL::HAIRY-SPEC #) (SYMBOL #)) ; (ECASE SYMBOL (AND #) (NOT #) (SATISFIES #))))) ; --> LET COND IF COND IF COND IF COND IF COND IF COND IF ; ==> ; (TYPEP #:G4589 'SB!KERNEL:ALIEN-TYPE-TYPE) ; ; caught STYLE-WARNING: ; undefined type: ALIEN-TYPE-TYPE ; (SB!KERNEL:ALIEN-TYPE-TYPE-ALIEN-TYPE TYPE) ; ; caught STYLE-WARNING: ; undefined function: ALIEN-TYPE-TYPE-ALIEN-TYPE ; (SB!ALIEN-INTERNALS:ALIEN-TYPEP SB!KERNEL::OBJ ; (SB!KERNEL:ALIEN-TYPE-TYPE-ALIEN-TYPE TYPE)) ; ; caught STYLE-WARNING: ; undefined function: ALIEN-TYPEP ; (ETYPECASE TYPE ; ((OR SB!KERNEL:NUMERIC-TYPE SB!KERNEL:NAMED-TYPE SB!KERNEL:MEMBER-TYPE ; SB!KERNEL:ARRAY-TYPE SB!KERNEL:CHARACTER-SET-TYPE ; SB!KERNEL:BUILT-IN-CLASSOID SB!KERNEL:CONS-TYPE) ; (VALUES (SB!KERNEL:%TYPEP SB!KERNEL::OBJ TYPE) T)) ; (SB!KERNEL:CLASSOID ; (IF (IF (SB!KERNEL:CSUBTYPEP TYPE #) ; (SB!KERNEL:FUNCALLABLE-INSTANCE-P SB!KERNEL::OBJ) ; (SB!KERNEL:%INSTANCEP SB!KERNEL::OBJ)) ; (IF (EQ # #) ; (VALUES # T) ; (VALUES NIL NIL)) ; (VALUES NIL T))) ; (SB!KERNEL:COMPOUND-TYPE ; (FUNCALL ; (ETYPECASE TYPE ; (SB!KERNEL:INTERSECTION-TYPE #'SB!INT:EVERY/TYPE) ; (SB!KERNEL:UNION-TYPE #'SB!INT:ANY/TYPE)) ; #'SB!KERNEL:CTYPEP SB!KERNEL::OBJ (SB!KERNEL:COMPOUND-TYPE-TYPES TYPE))) ; (SB!KERNEL:FUN-TYPE (VALUES (FUNCTIONP SB!KERNEL::OBJ) T)) ; (SB!KERNEL:UNKNOWN-TYPE (VALUES NIL NIL)) ; (SB!KERNEL:ALIEN-TYPE-TYPE ; (VALUES ; (SB!ALIEN-INTERNALS:ALIEN-TYPEP SB!KERNEL::OBJ ; (SB!KERNEL:ALIEN-TYPE-TYPE-ALIEN-TYPE TYPE)) ; T)) ; (SB!KERNEL:NEGATION-TYPE ; (MULTIPLE-VALUE-BIND (SB!KERNEL::RES SB!KERNEL::WIN) ; (SB!KERNEL:CTYPEP SB!KERNEL::OBJ (SB!KERNEL:NEGATION-TYPE-TYPE TYPE)) ; (IF SB!KERNEL::WIN ; (VALUES # T) ; (VALUES NIL NIL)))) ; (SB!KERNEL:HAIRY-TYPE ; (LET* ((SB!KERNEL::HAIRY-SPEC #) (SYMBOL #)) ; (ECASE SYMBOL (AND #) (NOT #) (SATISFIES #))))) ; --> LET COND IF ; ==> ; (TYPEP #:G4589 ; '(OR SB!KERNEL:NUMERIC-TYPE SB!KERNEL:NAMED-TYPE SB!KERNEL:MEMBER-TYPE ; SB!KERNEL:ARRAY-TYPE SB!KERNEL:CHARACTER-SET-TYPE ; SB!KERNEL:BUILT-IN-CLASSOID SB!KERNEL:CONS-TYPE)) ; ; caught STYLE-WARNING: ; undefined type: ARRAY-TYPE ; ; caught STYLE-WARNING: ; undefined type: CHARACTER-SET-TYPE ; (SB!KERNEL:CLASSOID-LAYOUT TYPE) ; ; caught STYLE-WARNING: ; undefined function: CLASSOID-LAYOUT ; (MULTIPLE-VALUE-BIND (SB!KERNEL::RES SB!KERNEL::WIN) ; (SB!KERNEL:CTYPEP SB!KERNEL::OBJ ; (SB!KERNEL:SPECIFIER-TYPE SB!KERNEL::SPEC)) ; (UNLESS SB!KERNEL::WIN (RETURN (VALUES NIL NIL))) ; (UNLESS SB!KERNEL::RES (RETURN (VALUES NIL T)))) ; --> MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!KERNEL::RES SB!KERNEL::WIN #:G7) {E34BAA1}> ; SB!KERNEL::RES SB!KERNEL::WIN NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; (MULTIPLE-VALUE-BIND (SB!KERNEL::RES SB!KERNEL::WIN) ; (SB!KERNEL:CTYPEP SB!KERNEL::OBJ (SB!KERNEL:NEGATION-TYPE-TYPE TYPE)) ; (IF SB!KERNEL::WIN ; (VALUES (NOT SB!KERNEL::RES) T) ; (VALUES NIL NIL))) ; --> MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!KERNEL::RES SB!KERNEL::WIN #:G4) {E31F509}> ; SB!KERNEL::RES SB!KERNEL::WIN NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; (SB!INT:INFO :TYPE :COMPILER-LAYOUT (SB!KERNEL:CLASSOID-NAME TYPE)) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:VALUE1 #:FOUNDP2 #:G1) {E274691}> ; #:VALUE1 #:FOUNDP2 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 4 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-type.lisp ; in: DEFUN CTYPEP ; (ETYPECASE TYPE ; ((OR SB!KERNEL:NUMERIC-TYPE SB!KERNEL:NAMED-TYPE SB!KERNEL:MEMBER-TYPE ; SB!KERNEL:ARRAY-TYPE SB!KERNEL:CHARACTER-SET-TYPE ; SB!KERNEL:BUILT-IN-CLASSOID SB!KERNEL:CONS-TYPE) ; (VALUES (SB!KERNEL:%TYPEP SB!KERNEL::OBJ TYPE) T)) ; (SB!KERNEL:CLASSOID ; (IF (IF (SB!KERNEL:CSUBTYPEP TYPE #) ; (SB!KERNEL:FUNCALLABLE-INSTANCE-P SB!KERNEL::OBJ) ; (SB!KERNEL:%INSTANCEP SB!KERNEL::OBJ)) ; (IF (EQ # #) ; (VALUES # T) ; (VALUES NIL NIL)) ; (VALUES NIL T))) ; (SB!KERNEL:COMPOUND-TYPE ; (FUNCALL ; (ETYPECASE TYPE ; (SB!KERNEL:INTERSECTION-TYPE #'SB!INT:EVERY/TYPE) ; (SB!KERNEL:UNION-TYPE #'SB!INT:ANY/TYPE)) ; #'SB!KERNEL:CTYPEP SB!KERNEL::OBJ (SB!KERNEL:COMPOUND-TYPE-TYPES TYPE))) ; (SB!KERNEL:FUN-TYPE (VALUES (FUNCTIONP SB!KERNEL::OBJ) T)) ; (SB!KERNEL:UNKNOWN-TYPE (VALUES NIL NIL)) ; (SB!KERNEL:ALIEN-TYPE-TYPE ; (VALUES ; (SB!ALIEN-INTERNALS:ALIEN-TYPEP SB!KERNEL::OBJ ; (SB!KERNEL:ALIEN-TYPE-TYPE-ALIEN-TYPE TYPE)) ; T)) ; (SB!KERNEL:NEGATION-TYPE ; (MULTIPLE-VALUE-BIND (SB!KERNEL::RES SB!KERNEL::WIN) ; (SB!KERNEL:CTYPEP SB!KERNEL::OBJ (SB!KERNEL:NEGATION-TYPE-TYPE TYPE)) ; (IF SB!KERNEL::WIN ; (VALUES # T) ; (VALUES NIL NIL)))) ; (SB!KERNEL:HAIRY-TYPE ; (LET* ((SB!KERNEL::HAIRY-SPEC #) (SYMBOL #)) ; (ECASE SYMBOL (AND #) (NOT #) (SATISFIES #))))) ; --> LET COND IF COND IF COND IF ; ==> ; (TYPEP #:G4589 'SB!KERNEL:COMPOUND-TYPE) ; ; caught STYLE-WARNING: ; undefined type: COMPOUND-TYPE ; (SB!KERNEL:COMPOUND-TYPE-TYPES TYPE) ; ; caught STYLE-WARNING: ; undefined function: COMPOUND-TYPE-TYPES ; (ETYPECASE TYPE ; ((OR SB!KERNEL:NUMERIC-TYPE SB!KERNEL:NAMED-TYPE SB!KERNEL:MEMBER-TYPE ; SB!KERNEL:ARRAY-TYPE SB!KERNEL:CHARACTER-SET-TYPE ; SB!KERNEL:BUILT-IN-CLASSOID SB!KERNEL:CONS-TYPE) ; (VALUES (SB!KERNEL:%TYPEP SB!KERNEL::OBJ TYPE) T)) ; (SB!KERNEL:CLASSOID ; (IF (IF (SB!KERNEL:CSUBTYPEP TYPE #) ; (SB!KERNEL:FUNCALLABLE-INSTANCE-P SB!KERNEL::OBJ) ; (SB!KERNEL:%INSTANCEP SB!KERNEL::OBJ)) ; (IF (EQ # #) ; (VALUES # T) ; (VALUES NIL NIL)) ; (VALUES NIL T))) ; (SB!KERNEL:COMPOUND-TYPE ; (FUNCALL ; (ETYPECASE TYPE ; (SB!KERNEL:INTERSECTION-TYPE #'SB!INT:EVERY/TYPE) ; (SB!KERNEL:UNION-TYPE #'SB!INT:ANY/TYPE)) ; #'SB!KERNEL:CTYPEP SB!KERNEL::OBJ (SB!KERNEL:COMPOUND-TYPE-TYPES TYPE))) ; (SB!KERNEL:FUN-TYPE (VALUES (FUNCTIONP SB!KERNEL::OBJ) T)) ; (SB!KERNEL:UNKNOWN-TYPE (VALUES NIL NIL)) ; (SB!KERNEL:ALIEN-TYPE-TYPE ; (VALUES ; (SB!ALIEN-INTERNALS:ALIEN-TYPEP SB!KERNEL::OBJ ; (SB!KERNEL:ALIEN-TYPE-TYPE-ALIEN-TYPE TYPE)) ; T)) ; (SB!KERNEL:NEGATION-TYPE ; (MULTIPLE-VALUE-BIND (SB!KERNEL::RES SB!KERNEL::WIN) ; (SB!KERNEL:CTYPEP SB!KERNEL::OBJ (SB!KERNEL:NEGATION-TYPE-TYPE TYPE)) ; (IF SB!KERNEL::WIN ; (VALUES # T) ; (VALUES NIL NIL)))) ; (SB!KERNEL:HAIRY-TYPE ; (LET* ((SB!KERNEL::HAIRY-SPEC #) (SYMBOL #)) ; (ECASE SYMBOL (AND #) (NOT #) (SATISFIES #))))) ; --> LET COND IF ; ==> ; (TYPEP #:G4589 ; '(OR SB!KERNEL:NUMERIC-TYPE SB!KERNEL:NAMED-TYPE SB!KERNEL:MEMBER-TYPE ; SB!KERNEL:ARRAY-TYPE SB!KERNEL:CHARACTER-SET-TYPE ; SB!KERNEL:BUILT-IN-CLASSOID SB!KERNEL:CONS-TYPE)) ; ; caught STYLE-WARNING: ; undefined type: CONS-TYPE ; (SB!C::CONSTANT-FUNCTION-CALL-P SB!KERNEL:FORM NIL NIL) ; ; caught STYLE-WARNING: ; undefined function: SB!C::CONSTANT-FUNCTION-CALL-P ; (SB!KERNEL:CSUBTYPEP TYPE (SB!KERNEL:SPECIFIER-TYPE 'FUNCTION)) ; ; caught STYLE-WARNING: ; undefined function: CSUBTYPEP ; in: DEFUN-CACHED (CTYPE-OF :HASH-FUNCTION #'SXHASH :HASH-BITS 9) ; (SB!KERNEL::CTYPE-OF-NUMBER SB!KERNEL::X) ; ; caught STYLE-WARNING: ; undefined function: CTYPE-OF-NUMBER ; in: DEFUN CTYPEP ; (ETYPECASE TYPE ; ((OR SB!KERNEL:NUMERIC-TYPE SB!KERNEL:NAMED-TYPE SB!KERNEL:MEMBER-TYPE ; SB!KERNEL:ARRAY-TYPE SB!KERNEL:CHARACTER-SET-TYPE ; SB!KERNEL:BUILT-IN-CLASSOID SB!KERNEL:CONS-TYPE) ; (VALUES (SB!KERNEL:%TYPEP SB!KERNEL::OBJ TYPE) T)) ; (SB!KERNEL:CLASSOID ; (IF (IF (SB!KERNEL:CSUBTYPEP TYPE #) ; (SB!KERNEL:FUNCALLABLE-INSTANCE-P SB!KERNEL::OBJ) ; (SB!KERNEL:%INSTANCEP SB!KERNEL::OBJ)) ; (IF (EQ # #) ; (VALUES # T) ; (VALUES NIL NIL)) ; (VALUES NIL T))) ; (SB!KERNEL:COMPOUND-TYPE ; (FUNCALL ; (ETYPECASE TYPE ; (SB!KERNEL:INTERSECTION-TYPE #'SB!INT:EVERY/TYPE) ; (SB!KERNEL:UNION-TYPE #'SB!INT:ANY/TYPE)) ; #'SB!KERNEL:CTYPEP SB!KERNEL::OBJ (SB!KERNEL:COMPOUND-TYPE-TYPES TYPE))) ; (SB!KERNEL:FUN-TYPE (VALUES (FUNCTIONP SB!KERNEL::OBJ) T)) ; (SB!KERNEL:UNKNOWN-TYPE (VALUES NIL NIL)) ; (SB!KERNEL:ALIEN-TYPE-TYPE ; (VALUES ; (SB!ALIEN-INTERNALS:ALIEN-TYPEP SB!KERNEL::OBJ ; (SB!KERNEL:ALIEN-TYPE-TYPE-ALIEN-TYPE TYPE)) ; T)) ; (SB!KERNEL:NEGATION-TYPE ; (MULTIPLE-VALUE-BIND (SB!KERNEL::RES SB!KERNEL::WIN) ; (SB!KERNEL:CTYPEP SB!KERNEL::OBJ (SB!KERNEL:NEGATION-TYPE-TYPE TYPE)) ; (IF SB!KERNEL::WIN ; (VALUES # T) ; (VALUES NIL NIL)))) ; (SB!KERNEL:HAIRY-TYPE ; (LET* ((SB!KERNEL::HAIRY-SPEC #) (SYMBOL #)) ; (ECASE SYMBOL (AND #) (NOT #) (SATISFIES #))))) ; --> LET COND IF COND IF COND IF COND IF ; ==> ; (TYPEP #:G4589 'SB!KERNEL:FUN-TYPE) ; ; caught STYLE-WARNING: ; undefined type: FUN-TYPE ; (SB!INT:INFO :TYPE :COMPILER-LAYOUT (SB!KERNEL:CLASSOID-NAME TYPE)) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; (SB!C::GET-INFO-VALUE (SB!KERNEL:CLASSOID-NAME TYPE) 28) ; ; caught STYLE-WARNING: ; undefined function: SB!C::GET-INFO-VALUE ; (ETYPECASE TYPE ; ((OR SB!KERNEL:NUMERIC-TYPE SB!KERNEL:NAMED-TYPE SB!KERNEL:MEMBER-TYPE ; SB!KERNEL:ARRAY-TYPE SB!KERNEL:CHARACTER-SET-TYPE ; SB!KERNEL:BUILT-IN-CLASSOID SB!KERNEL:CONS-TYPE) ; (VALUES (SB!KERNEL:%TYPEP SB!KERNEL::OBJ TYPE) T)) ; (SB!KERNEL:CLASSOID ; (IF (IF (SB!KERNEL:CSUBTYPEP TYPE #) ; (SB!KERNEL:FUNCALLABLE-INSTANCE-P SB!KERNEL::OBJ) ; (SB!KERNEL:%INSTANCEP SB!KERNEL::OBJ)) ; (IF (EQ # #) ; (VALUES # T) ; (VALUES NIL NIL)) ; (VALUES NIL T))) ; (SB!KERNEL:COMPOUND-TYPE ; (FUNCALL ; (ETYPECASE TYPE ; (SB!KERNEL:INTERSECTION-TYPE #'SB!INT:EVERY/TYPE) ; (SB!KERNEL:UNION-TYPE #'SB!INT:ANY/TYPE)) ; #'SB!KERNEL:CTYPEP SB!KERNEL::OBJ (SB!KERNEL:COMPOUND-TYPE-TYPES TYPE))) ; (SB!KERNEL:FUN-TYPE (VALUES (FUNCTIONP SB!KERNEL::OBJ) T)) ; (SB!KERNEL:UNKNOWN-TYPE (VALUES NIL NIL)) ; (SB!KERNEL:ALIEN-TYPE-TYPE ; (VALUES ; (SB!ALIEN-INTERNALS:ALIEN-TYPEP SB!KERNEL::OBJ ; (SB!KERNEL:ALIEN-TYPE-TYPE-ALIEN-TYPE TYPE)) ; T)) ; (SB!KERNEL:NEGATION-TYPE ; (MULTIPLE-VALUE-BIND (SB!KERNEL::RES SB!KERNEL::WIN) ; (SB!KERNEL:CTYPEP SB!KERNEL::OBJ (SB!KERNEL:NEGATION-TYPE-TYPE TYPE)) ; (IF SB!KERNEL::WIN ; (VALUES # T) ; (VALUES NIL NIL)))) ; (SB!KERNEL:HAIRY-TYPE ; (LET* ((SB!KERNEL::HAIRY-SPEC #) (SYMBOL #)) ; (ECASE SYMBOL (AND #) (NOT #) (SATISFIES #))))) ; --> LET COND IF COND IF COND IF COND IF COND IF COND IF COND IF COND IF ; ==> ; (TYPEP #:G4589 'SB!KERNEL:HAIRY-TYPE) ; ; caught STYLE-WARNING: ; undefined type: HAIRY-TYPE ; (SB!KERNEL:HAIRY-TYPE-SPECIFIER TYPE) ; ; caught STYLE-WARNING: ; undefined function: HAIRY-TYPE-SPECIFIER ; (SB!INT:INFO :TYPE :COMPILER-LAYOUT (SB!KERNEL:CLASSOID-NAME TYPE)) ; ; caught STYLE-WARNING: ; undefined function: INFO ; (ETYPECASE TYPE ; (SB!KERNEL:INTERSECTION-TYPE #'SB!INT:EVERY/TYPE) ; (SB!KERNEL:UNION-TYPE #'SB!INT:ANY/TYPE)) ; --> LET COND IF ; ==> ; (TYPEP #:G4607 'SB!KERNEL:INTERSECTION-TYPE) ; ; caught STYLE-WARNING: ; undefined type: INTERSECTION-TYPE ; in: DEFUN-CACHED (CTYPE-OF :HASH-FUNCTION #'SXHASH :HASH-BITS 9) ; (SB!KERNEL:CLASSOID-OF SB!KERNEL::X) ; --> BLOCK ; ==> ; (SB!KERNEL:LAYOUT-CLASSOID (SB!KERNEL:LAYOUT-OF SB!KERNEL::OBJECT)) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-CLASSOID ; in: DEFUN CLASSOID-OF ; (SB!KERNEL:LAYOUT-CLASSOID (SB!KERNEL:LAYOUT-OF SB!KERNEL::OBJECT)) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-CLASSOID ; in: DEFUN-CACHED (CTYPE-OF :HASH-FUNCTION #'SXHASH :HASH-BITS 9) ; (SB!KERNEL:MAKE-ARRAY-TYPE (ARRAY-DIMENSIONS SB!KERNEL::X) :COMPLEXP ; (NOT (TYPEP SB!KERNEL::X 'SIMPLE-ARRAY)) ; :ELEMENT-TYPE SB!KERNEL::ETYPE ; :SPECIALIZED-ELEMENT-TYPE SB!KERNEL::ETYPE) ; ; caught STYLE-WARNING: ; undefined function: MAKE-ARRAY-TYPE ; (SB!KERNEL:MAKE-CONS-TYPE SB!KERNEL:*UNIVERSAL-TYPE* ; SB!KERNEL:*UNIVERSAL-TYPE*) ; ; caught STYLE-WARNING: ; undefined function: MAKE-CONS-TYPE ; (SB!KERNEL:MAKE-MEMBER-TYPE :MEMBERS (LIST SB!KERNEL::X)) ; ; caught STYLE-WARNING: ; undefined function: MAKE-MEMBER-TYPE ; in: DEFUN CTYPEP ; (ETYPECASE TYPE ; ((OR SB!KERNEL:NUMERIC-TYPE SB!KERNEL:NAMED-TYPE SB!KERNEL:MEMBER-TYPE ; SB!KERNEL:ARRAY-TYPE SB!KERNEL:CHARACTER-SET-TYPE ; SB!KERNEL:BUILT-IN-CLASSOID SB!KERNEL:CONS-TYPE) ; (VALUES (SB!KERNEL:%TYPEP SB!KERNEL::OBJ TYPE) T)) ; (SB!KERNEL:CLASSOID ; (IF (IF (SB!KERNEL:CSUBTYPEP TYPE #) ; (SB!KERNEL:FUNCALLABLE-INSTANCE-P SB!KERNEL::OBJ) ; (SB!KERNEL:%INSTANCEP SB!KERNEL::OBJ)) ; (IF (EQ # #) ; (VALUES # T) ; (VALUES NIL NIL)) ; (VALUES NIL T))) ; (SB!KERNEL:COMPOUND-TYPE ; (FUNCALL ; (ETYPECASE TYPE ; (SB!KERNEL:INTERSECTION-TYPE #'SB!INT:EVERY/TYPE) ; (SB!KERNEL:UNION-TYPE #'SB!INT:ANY/TYPE)) ; #'SB!KERNEL:CTYPEP SB!KERNEL::OBJ (SB!KERNEL:COMPOUND-TYPE-TYPES TYPE))) ; (SB!KERNEL:FUN-TYPE (VALUES (FUNCTIONP SB!KERNEL::OBJ) T)) ; (SB!KERNEL:UNKNOWN-TYPE (VALUES NIL NIL)) ; (SB!KERNEL:ALIEN-TYPE-TYPE ; (VALUES ; (SB!ALIEN-INTERNALS:ALIEN-TYPEP SB!KERNEL::OBJ ; (SB!KERNEL:ALIEN-TYPE-TYPE-ALIEN-TYPE TYPE)) ; T)) ; (SB!KERNEL:NEGATION-TYPE ; (MULTIPLE-VALUE-BIND (SB!KERNEL::RES SB!KERNEL::WIN) ; (SB!KERNEL:CTYPEP SB!KERNEL::OBJ (SB!KERNEL:NEGATION-TYPE-TYPE TYPE)) ; (IF SB!KERNEL::WIN ; (VALUES # T) ; (VALUES NIL NIL)))) ; (SB!KERNEL:HAIRY-TYPE ; (LET* ((SB!KERNEL::HAIRY-SPEC #) (SYMBOL #)) ; (ECASE SYMBOL (AND #) (NOT #) (SATISFIES #))))) ; --> LET COND IF ; ==> ; (TYPEP #:G4589 ; '(OR SB!KERNEL:NUMERIC-TYPE SB!KERNEL:NAMED-TYPE SB!KERNEL:MEMBER-TYPE ; SB!KERNEL:ARRAY-TYPE SB!KERNEL:CHARACTER-SET-TYPE ; SB!KERNEL:BUILT-IN-CLASSOID SB!KERNEL:CONS-TYPE)) ; ; caught STYLE-WARNING: ; undefined type: MEMBER-TYPE ; ; caught STYLE-WARNING: ; undefined type: NAMED-TYPE ; --> LET COND IF COND IF COND IF COND IF COND IF COND IF COND IF ; ==> ; (TYPEP #:G4589 'SB!KERNEL:NEGATION-TYPE) ; ; caught STYLE-WARNING: ; undefined type: NEGATION-TYPE ; (SB!KERNEL:NEGATION-TYPE-TYPE TYPE) ; ; caught STYLE-WARNING: ; undefined function: NEGATION-TYPE-TYPE ; (ETYPECASE TYPE ; ((OR SB!KERNEL:NUMERIC-TYPE SB!KERNEL:NAMED-TYPE SB!KERNEL:MEMBER-TYPE ; SB!KERNEL:ARRAY-TYPE SB!KERNEL:CHARACTER-SET-TYPE ; SB!KERNEL:BUILT-IN-CLASSOID SB!KERNEL:CONS-TYPE) ; (VALUES (SB!KERNEL:%TYPEP SB!KERNEL::OBJ TYPE) T)) ; (SB!KERNEL:CLASSOID ; (IF (IF (SB!KERNEL:CSUBTYPEP TYPE #) ; (SB!KERNEL:FUNCALLABLE-INSTANCE-P SB!KERNEL::OBJ) ; (SB!KERNEL:%INSTANCEP SB!KERNEL::OBJ)) ; (IF (EQ # #) ; (VALUES # T) ; (VALUES NIL NIL)) ; (VALUES NIL T))) ; (SB!KERNEL:COMPOUND-TYPE ; (FUNCALL ; (ETYPECASE TYPE ; (SB!KERNEL:INTERSECTION-TYPE #'SB!INT:EVERY/TYPE) ; (SB!KERNEL:UNION-TYPE #'SB!INT:ANY/TYPE)) ; #'SB!KERNEL:CTYPEP SB!KERNEL::OBJ (SB!KERNEL:COMPOUND-TYPE-TYPES TYPE))) ; (SB!KERNEL:FUN-TYPE (VALUES (FUNCTIONP SB!KERNEL::OBJ) T)) ; (SB!KERNEL:UNKNOWN-TYPE (VALUES NIL NIL)) ; (SB!KERNEL:ALIEN-TYPE-TYPE ; (VALUES ; (SB!ALIEN-INTERNALS:ALIEN-TYPEP SB!KERNEL::OBJ ; (SB!KERNEL:ALIEN-TYPE-TYPE-ALIEN-TYPE TYPE)) ; T)) ; (SB!KERNEL:NEGATION-TYPE ; (MULTIPLE-VALUE-BIND (SB!KERNEL::RES SB!KERNEL::WIN) ; (SB!KERNEL:CTYPEP SB!KERNEL::OBJ (SB!KERNEL:NEGATION-TYPE-TYPE TYPE)) ; (IF SB!KERNEL::WIN ; (VALUES # T) ; (VALUES NIL NIL)))) ; (SB!KERNEL:HAIRY-TYPE ; (LET* ((SB!KERNEL::HAIRY-SPEC #) (SYMBOL #)) ; (ECASE SYMBOL (AND #) (NOT #) (SATISFIES #))))) ; --> LET COND IF ; ==> ; (TYPEP #:G4589 ; '(OR SB!KERNEL:NUMERIC-TYPE SB!KERNEL:NAMED-TYPE SB!KERNEL:MEMBER-TYPE ; SB!KERNEL:ARRAY-TYPE SB!KERNEL:CHARACTER-SET-TYPE ; SB!KERNEL:BUILT-IN-CLASSOID SB!KERNEL:CONS-TYPE)) ; ; caught STYLE-WARNING: ; undefined type: NUMERIC-TYPE ; in: DEFUN-CACHED (CTYPE-OF :HASH-FUNCTION #'SXHASH :HASH-BITS 9) ; (SB!KERNEL:SPECIFIER-TYPE (SB!IMPL::%FUN-TYPE SB!KERNEL::X)) ; ; caught STYLE-WARNING: ; undefined function: SPECIFIER-TYPE ; in: DEFUN CTYPEP ; (SB!KERNEL:SPECIFIER-TYPE 'FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: SPECIFIER-TYPE ; (ETYPECASE TYPE ; (SB!KERNEL:INTERSECTION-TYPE #'SB!INT:EVERY/TYPE) ; (SB!KERNEL:UNION-TYPE #'SB!INT:ANY/TYPE)) ; --> LET COND IF COND IF ; ==> ; (TYPEP #:G4607 'SB!KERNEL:UNION-TYPE) ; ; caught STYLE-WARNING: ; undefined type: UNION-TYPE ; (ETYPECASE TYPE ; ((OR SB!KERNEL:NUMERIC-TYPE SB!KERNEL:NAMED-TYPE SB!KERNEL:MEMBER-TYPE ; SB!KERNEL:ARRAY-TYPE SB!KERNEL:CHARACTER-SET-TYPE ; SB!KERNEL:BUILT-IN-CLASSOID SB!KERNEL:CONS-TYPE) ; (VALUES (SB!KERNEL:%TYPEP SB!KERNEL::OBJ TYPE) T)) ; (SB!KERNEL:CLASSOID ; (IF (IF (SB!KERNEL:CSUBTYPEP TYPE #) ; (SB!KERNEL:FUNCALLABLE-INSTANCE-P SB!KERNEL::OBJ) ; (SB!KERNEL:%INSTANCEP SB!KERNEL::OBJ)) ; (IF (EQ # #) ; (VALUES # T) ; (VALUES NIL NIL)) ; (VALUES NIL T))) ; (SB!KERNEL:COMPOUND-TYPE ; (FUNCALL ; (ETYPECASE TYPE ; (SB!KERNEL:INTERSECTION-TYPE #'SB!INT:EVERY/TYPE) ; (SB!KERNEL:UNION-TYPE #'SB!INT:ANY/TYPE)) ; #'SB!KERNEL:CTYPEP SB!KERNEL::OBJ (SB!KERNEL:COMPOUND-TYPE-TYPES TYPE))) ; (SB!KERNEL:FUN-TYPE (VALUES (FUNCTIONP SB!KERNEL::OBJ) T)) ; (SB!KERNEL:UNKNOWN-TYPE (VALUES NIL NIL)) ; (SB!KERNEL:ALIEN-TYPE-TYPE ; (VALUES ; (SB!ALIEN-INTERNALS:ALIEN-TYPEP SB!KERNEL::OBJ ; (SB!KERNEL:ALIEN-TYPE-TYPE-ALIEN-TYPE TYPE)) ; T)) ; (SB!KERNEL:NEGATION-TYPE ; (MULTIPLE-VALUE-BIND (SB!KERNEL::RES SB!KERNEL::WIN) ; (SB!KERNEL:CTYPEP SB!KERNEL::OBJ (SB!KERNEL:NEGATION-TYPE-TYPE TYPE)) ; (IF SB!KERNEL::WIN ; (VALUES # T) ; (VALUES NIL NIL)))) ; (SB!KERNEL:HAIRY-TYPE ; (LET* ((SB!KERNEL::HAIRY-SPEC #) (SYMBOL #)) ; (ECASE SYMBOL (AND #) (NOT #) (SATISFIES #))))) ; --> LET COND IF COND IF COND IF COND IF COND IF ; ==> ; (TYPEP #:G4589 'SB!KERNEL:UNKNOWN-TYPE) ; ; caught STYLE-WARNING: ; undefined type: UNKNOWN-TYPE ; ; compilation unit finished ; Undefined types: ; ALIEN-TYPE-TYPE ARRAY-TYPE CHARACTER-SET-TYPE CODE-DELETION-NOTE COMPOUND-TYPE CONS-TYPE FUN-TYPE HAIRY-TYPE INTERSECTION-TYPE MEMBER-TYPE NAMED-TYPE NEGATION-TYPE NUMERIC-TYPE UNION-TYPE UNKNOWN-TYPE ; Undefined functions: ; SB!IMPL::%DEFGLOBAL SB!IMPL::%FUN-TYPE %FUNCALLABLE-INSTANCE-LAYOUT ALIEN-TYPE-TYPE-ALIEN-TYPE ALIEN-TYPEP CLASSOID-LAYOUT COMPOUND-TYPE-TYPES SB!C::CONSTANT-FUNCTION-CALL-P CSUBTYPEP CTYPE-OF-NUMBER SB!C::GET-INFO-VALUE HAIRY-TYPE-SPECIFIER INFO LAYOUT-CLASSOID MAKE-ARRAY-TYPE MAKE-CONS-TYPE MAKE-MEMBER-TYPE NEGATION-TYPE-TYPE SPECIFIER-TYPE ; caught 41 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/target-type.lisp-obj-tmp written ; compilation finished in 0:00:00.108 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/pred.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DECLAIM (INLINE STREAMP)) ; x-compiling (DEFUN STREAMP ...) ; x-compiling (DEF) ; x-compiling (DECLAIM (MAYBE-INLINE EXTENDED-SEQUENCE-P)) ; x-compiling (DEFUN EXTENDED-SEQUENCE-P ...) ; x-compiling (DEFUN SEQUENCEP ...) ; x-compiling (DEFUN NOT ...) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER ARRAY-HEADER-P) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER ARRAYP) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER ATOM) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER BASE-CHAR-P) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER BASE-STRING-P) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER CHARACTER-STRING-P) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER BIGNUMP) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER BIT-VECTOR-P) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER CHARACTERP) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER CODE-COMPONENT-P) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER CONSP) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER COMPILED-FUNCTION-P) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER COMPLEXP) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER COMPLEX-DOUBLE-FLOAT-P) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER COMPLEX-FLOAT-P) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER COMPLEX-RATIONAL-P) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER COMPLEX-SINGLE-FLOAT-P) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER DOUBLE-FLOAT-P) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER EXTENDED-CHAR-P) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER FDEFN-P) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER FIXNUMP) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER FLOATP) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER FUNCTIONP) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER INTEGERP) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER LISTP) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER LONG-FLOAT-P) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER LRA-P) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER NULL) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER NUMBERP) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER RATIONALP) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER RATIOP) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER REALP) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER SHORT-FLOAT-P) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER SINGLE-FLOAT-P) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER %INSTANCEP) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER SYMBOLP) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER %OTHER-POINTER-P) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER SYSTEM-AREA-POINTER-P) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER WEAK-POINTER-P) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER UNSIGNED-BYTE-32-P) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER SIGNED-BYTE-32-P) ; x-compiling (SAETP-DEFS) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER SIMPLE-ARRAY-P) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER SIMPLE-RANK-1-ARRAY-*-P) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER SIMPLE-STRING-P) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER STRINGP) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER VECTORP) ; x-compiling (DEF-TYPE-PREDICATE-WRAPPER VECTOR-NIL-P) ; x-compiling (DEFUN FIXNUM-MOD-P ...) ; x-compiling (DEFUN %OTHER-POINTER-SUBTYPE-P ...) ; x-compiling (DEFUN TYPE-OF ...) ; x-compiling (DEFUN EQ ...) ; x-compiling (DECLAIM (INLINE %EQL)) ; x-compiling (DEFUN %EQL ...) ; x-compiling (DEFUN EQL ...) ; x-compiling (DEFUN BIT-VECTOR-= ...) ; x-compiling (DEFUN EQUAL ...) ; x-compiling (DEFUN HASH-TABLE-EQUALP ...) ; x-compiling (DEFUN EQUALP ...) ; x-compiling (/SHOW0 "about to do test cases in pred.lisp") ; x-compiling (/SHOW0 "done with test cases in pred.lisp") ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/pred.lisp ; in: DEFUN SEQUENCEP ; (SB!KERNEL:EXTENDED-SEQUENCE-P SB!IMPL::X) ; --> BLOCK LET* COND IF COND IF PROGN ; ==> ; (SB!KERNEL:%FUNCALLABLE-INSTANCE-LAYOUT SB!IMPL::X) ; ; caught STYLE-WARNING: ; undefined function: %FUNCALLABLE-INSTANCE-LAYOUT ; in: DEFUN EXTENDED-SEQUENCE-P ; (SB!KERNEL:%FUNCALLABLE-INSTANCE-LAYOUT SB!IMPL::X) ; ; caught STYLE-WARNING: ; undefined function: %FUNCALLABLE-INSTANCE-LAYOUT ; in: DEFUN STREAMP ; (TYPEP STREAM 'STREAM) ; --> LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT4663 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: %FUNCALLABLE-INSTANCE-LAYOUT ; ; caught STYLE-WARNING: ; 1 more use of undefined function %FUNCALLABLE-INSTANCE-LAYOUT ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/pred.lisp ; in: DEFUN EQUAL ; (SB!KERNEL:%EQL SB!IMPL::X SB!IMPL::Y) ; --> BLOCK OR LET IF OR THE IF MACROLET SB!IMPL::FOO TYPECASE LET COND IF COND ; --> IF COND IF PROGN AND IF AND THE ; --> (LAMBDA (SB!IMPL::X SB!IMPL::Y) (ZEROP (SB!BIGNUM:BIGNUM-COMPARE SB!IMPL::X SB!IMPL::Y))) ; --> SB!C::%FUNCALL ZEROP = IF = ; ==> ; (SB!BIGNUM:BIGNUM-COMPARE SB!IMPL::X SB!IMPL::Y) ; ; caught STYLE-WARNING: ; undefined function: BIGNUM-COMPARE ; in: DEFUN EQL ; (SB!KERNEL:%EQL SB!IMPL::X SB!IMPL::Y) ; --> BLOCK OR LET IF OR THE IF MACROLET SB!IMPL::FOO TYPECASE LET COND IF COND ; --> IF COND IF PROGN AND IF AND THE ; --> (LAMBDA (SB!IMPL::X SB!IMPL::Y) (ZEROP (SB!BIGNUM:BIGNUM-COMPARE SB!IMPL::X SB!IMPL::Y))) ; --> SB!C::%FUNCALL ZEROP = IF = ; ==> ; (SB!BIGNUM:BIGNUM-COMPARE SB!IMPL::X SB!IMPL::Y) ; ; caught STYLE-WARNING: ; undefined function: BIGNUM-COMPARE ; in: DEFUN %EQL ; (SB!BIGNUM:BIGNUM-COMPARE SB!IMPL::X SB!IMPL::Y) ; ; caught STYLE-WARNING: ; undefined function: BIGNUM-COMPARE ; in: DEFUN TYPE-OF ; (SB!KERNEL:CLASSOID-PCL-CLASS SB!IMPL::PNAME) ; ; caught STYLE-WARNING: ; undefined function: CLASSOID-PCL-CLASS ; (SB!KERNEL:CLASSOID-PROPER-NAME SB!KERNEL:CLASSOID) ; ; caught STYLE-WARNING: ; undefined function: CLASSOID-PROPER-NAME ; in: DEFUN HASH-TABLE-EQUALP ; (MULTIPLE-VALUE-BIND (SB!IMPL::Y-VALUE SB!IMPL::Y-VALUE-P) ; (GETHASH SB!IMPL::KEY SB!IMPL::Y) ; (UNLESS (AND SB!IMPL::Y-VALUE-P (EQUALP SB!IMPL::X-VALUE SB!IMPL::Y-VALUE)) ; (RETURN-FROM SB!IMPL::COMPARISON-OF-ENTRIES NIL))) ; --> MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!IMPL::Y-VALUE SB!IMPL::Y-VALUE-P #:G202) {DE3BCF1}> ; SB!IMPL::Y-VALUE SB!IMPL::Y-VALUE-P NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN EQUAL ; (STRING= SB!IMPL::X SB!IMPL::Y) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN %OTHER-POINTER-SUBTYPE-P ; (MEMBER (SB!KERNEL:%OTHER-POINTER-WIDETAG SB!IMPL::X) SB!IMPL::CHOICES) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 2 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/pred.lisp ; in: DEF-TYPE-PREDICATE-WRAPPER COMPILED-FUNCTION-P ; (SB!IMPL::DEF-TYPE-PREDICATE-WRAPPER COMPILED-FUNCTION-P) ; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; --> BLOCK COMPILED-FUNCTION-P LET AND IF AND THE NOT IF ; ==> ; (SB!EVAL:INTERPRETED-FUNCTION-P #:X60) ; ; caught STYLE-WARNING: ; undefined function: SB!EVAL:INTERPRETED-FUNCTION-P ; in: DEFUN EQUALP ; (SB!KERNEL:LAYOUT-CLASSOID SB!IMPL::LAYOUT-X) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-CLASSOID ; in: DEFUN TYPE-OF ; (SB!KERNEL:LAYOUT-CLASSOID (SB!KERNEL:LAYOUT-OF SB!IMPL::OBJECT)) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-CLASSOID ; in: DEFUN SEQUENCEP ; (SB!KERNEL:EXTENDED-SEQUENCE-P SB!IMPL::X) ; --> BLOCK LET* WHEN IF ; ==> ; (SB!KERNEL:LAYOUT-INVALID SB!KERNEL:LAYOUT) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-INVALID ; in: DEFUN EXTENDED-SEQUENCE-P ; (SB!KERNEL:LAYOUT-INVALID SB!KERNEL:LAYOUT) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-INVALID ; in: DEFUN STREAMP ; (TYPEP STREAM 'STREAM) ; --> LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT4663 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-INVALID ; in: DEFUN EQUALP ; (SB!KERNEL:LAYOUT-LENGTH SB!IMPL::LAYOUT-X) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-LENGTH ; (SB!KERNEL:LAYOUT-N-UNTAGGED-SLOTS SB!IMPL::LAYOUT-X) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-N-UNTAGGED-SLOTS ; (SB!KERNEL:RAW-INSTANCE-SLOTS-EQUALP SB!IMPL::LAYOUT-X SB!IMPL::X SB!IMPL::Y) ; ; caught STYLE-WARNING: ; undefined function: RAW-INSTANCE-SLOTS-EQUALP ; in: DEFUN TYPE-OF ; (SB!KERNEL:TYPE-SPECIFIER (SB!KERNEL:CTYPE-OF SB!IMPL::OBJECT)) ; ; caught STYLE-WARNING: ; undefined function: TYPE-SPECIFIER ; (SB!INT:QUASIQUOTE ; (SB!ALIEN:ALIEN ; #S(SB!IMPL::COMMA ; :EXPR (SB!ALIEN-INTERNALS:UNPARSE-ALIEN-TYPE ; (SB!ALIEN-INTERNALS:ALIEN-VALUE-TYPE SB!IMPL::OBJECT)) ; :KIND 0))) ; --> SB!IMPL::|List| ; ==> ; (SB!ALIEN-INTERNALS:UNPARSE-ALIEN-TYPE ; (SB!ALIEN-INTERNALS:ALIEN-VALUE-TYPE SB!IMPL::OBJECT)) ; ; caught STYLE-WARNING: ; undefined function: SB!ALIEN-INTERNALS:UNPARSE-ALIEN-TYPE ; in: DEFUN SEQUENCEP ; (SB!KERNEL:EXTENDED-SEQUENCE-P SB!IMPL::X) ; --> BLOCK LET* WHEN IF PROGN SETQ THE ; ==> ; (SB!KERNEL:UPDATE-OBJECT-LAYOUT-OR-INVALID SB!IMPL::X SB!IMPL::SLAYOUT) ; ; caught STYLE-WARNING: ; undefined function: UPDATE-OBJECT-LAYOUT-OR-INVALID ; in: DEFUN EXTENDED-SEQUENCE-P ; (SB!KERNEL:UPDATE-OBJECT-LAYOUT-OR-INVALID SB!IMPL::X SB!IMPL::SLAYOUT) ; ; caught STYLE-WARNING: ; undefined function: UPDATE-OBJECT-LAYOUT-OR-INVALID ; in: DEFUN STREAMP ; (TYPEP STREAM 'STREAM) ; --> LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT4663 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: UPDATE-OBJECT-LAYOUT-OR-INVALID ; ; compilation unit finished ; Undefined type: ; CODE-DELETION-NOTE ; Undefined functions: ; %FUNCALLABLE-INSTANCE-LAYOUT BIGNUM-COMPARE CLASSOID-PCL-CLASS CLASSOID-PROPER-NAME SB!EVAL:INTERPRETED-FUNCTION-P LAYOUT-CLASSOID LAYOUT-INVALID LAYOUT-LENGTH LAYOUT-N-UNTAGGED-SLOTS RAW-INSTANCE-SLOTS-EQUALP TYPE-SPECIFIER SB!ALIEN-INTERNALS:UNPARSE-ALIEN-TYPE UPDATE-OBJECT-LAYOUT-OR-INVALID ; caught 27 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/pred.lisp-obj-tmp written ; compilation finished in 0:00:00.323 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-alieneval.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!ALIEN") ; x-compiling (/SHOW0 "target-alieneval.lisp 15") ; x-compiling (DEFUN GUESS-ALIEN-NAME-FROM-LISP-NAME ...) ; x-compiling (DEFUN GUESS-LISP-NAME-FROM-ALIEN-NAME ...) ; x-compiling (DEFUN PICK-LISP-AND-ALIEN-NAMES ...) ; x-compiling (DEFMACRO DEFINE-ALIEN-VARIABLE ...) ; x-compiling (DEFUN %DEFINE-ALIEN-VARIABLE ...) ; x-compiling (DEFUN ALIEN-VALUE ...) ; x-compiling (DEFMACRO EXTERN-ALIEN ...) ; x-compiling (DEFMACRO WITH-ALIEN ...) ; x-compiling (DECLAIM (FREEZE-TYPE ALIEN-VALUE)) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DECLAIM (INLINE NULL-ALIEN)) ; x-compiling (DEFUN NULL-ALIEN ...) ; x-compiling (DEFMACRO SAP-ALIEN ...) ; x-compiling (DEFUN %SAP-ALIEN ...) ; x-compiling (DEFUN ALIEN-SAP ...) ; x-compiling (DEFMACRO MAKE-ALIEN ...) ; x-compiling (DEFUN MALLOC-ERROR ...) ; x-compiling (DECLAIM (INLINE %MAKE-ALIEN)) ; x-compiling (DEFUN %MAKE-ALIEN ...) ; x-compiling (DECLAIM (INLINE FREE-ALIEN)) ; x-compiling (DEFUN FREE-ALIEN ...) ; x-compiling (DECLAIM (TYPE # ...)) ; x-compiling (DEFUN %MAKE-ALIEN-STRING ...) ; x-compiling (DEFUN MAKE-ALIEN-STRING ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-alieneval.lisp ; in: DEFUN MAKE-ALIEN-STRING ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN::SAP ; (SB!ALIEN-INTERNALS:PARSE-ALIEN-TYPE '(* CHAR) NIL)) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; x-compiling (DEFINE-COMPILER-MACRO MAKE-ALIEN-STRING ...) ; x-compiling (DEFUN SLOT-OR-LOSE ...) ; x-compiling (DEFUN SLOT ...) ; x-compiling (DEFUN %SET-SLOT ...) ; x-compiling (DEFUN %SLOT-ADDR ...) ; x-compiling (DEFUN DEREF-GUTS ...) ; x-compiling (DEFUN DEREF ...) ; x-compiling (DEFUN %SET-DEREF ...) ; x-compiling (DEFUN %DEREF-ADDR ...) ; x-compiling (DEFUN %HEAP-ALIEN ...) ; x-compiling (DEFUN %SET-HEAP-ALIEN ...) ; x-compiling (DEFUN %HEAP-ALIEN-ADDR ...) ; x-compiling (DEFUN MAKE-LOCAL-ALIEN ...) ; x-compiling (DEFUN NOTE-LOCAL-ALIEN-TYPE ...) ; x-compiling (DEFUN LOCAL-ALIEN ...) ; x-compiling (DEFUN %SET-LOCAL-ALIEN ...) ; x-compiling (DEFINE-SETF-EXPANDER LOCAL-ALIEN ...) ; x-compiling (DEFUN %LOCAL-ALIEN-FORCED-TO-MEMORY-P ...) ; x-compiling (DEFUN %LOCAL-ALIEN-ADDR ...) ; x-compiling (DEFMACRO CAST ...) ; x-compiling (DEFUN %CAST ...) ; x-compiling (DEFMACRO ALIEN-SIZE ...) ; x-compiling (DEFUN COERCE-TO-INTERPRETED-FUNCTION ...) ; x-compiling (DEFUN NATURALIZE ...) ; x-compiling (DEFUN DEPORT ...) ; x-compiling (DEFUN DEPORT-ALLOC ...) ; x-compiling (DEFUN %ALIEN-VALUE ...) ; x-compiling (DEFUN (SETF %ALIEN-VALUE) ...) ; x-compiling (DEFUN ALIEN-FUNCALL ...) ; x-compiling (DEFMACRO DEFINE-ALIEN-ROUTINE ...) ; x-compiling (DEFUN ALIEN-TYPEP ...) ; x-compiling (DEFUN ALIEN-VALUE-TYPEP ...) ; x-compiling (DEFVAR *ALIEN-CALLBACK-INFO* ...) ; x-compiling (DEFSTRUCT CALLBACK-INFO ...) ; x-compiling (DEFUN CALLBACK-INFO-KEY ...) ; x-compiling (DEFUN ALIEN-CALLBACK-INFO ...) ; x-compiling (DEFVAR *ALIEN-CALLBACKS* ...) ; x-compiling (DEFVAR *ALIEN-CALLBACK-WRAPPERS* ...) ; x-compiling (DEFVAR *ALIEN-CALLBACK-TRAMPOLINES* ...) ; x-compiling (DEFUN %ALIEN-CALLBACK-SAP ...) ; x-compiling (DEFUN ALIEN-CALLBACK-LISP-TRAMPOLINE ...) ; x-compiling (DEFUN ALIEN-CALLBACK-LISP-WRAPPER-LAMBDA ...) ; x-compiling (DEFUN INVALID-ALIEN-CALLBACK ...) ; x-compiling (DEFUN PARSE-CALLBACK-SPECIFICATION ...) ; x-compiling (DEFUN PARSE-ALIEN-FTYPE ...) ; x-compiling (DEFUN ALIEN-VOID-TYPE-P ...) ; x-compiling (DEFUN ALIEN-TYPE-WORD-ALIGNED-BITS ...) ; x-compiling (DEFUN ALIEN-CALLBACK-ARGUMENT-BYTES ...) ; x-compiling (DEFUN ENTER-ALIEN-CALLBACK ...) ; x-compiling (DEFVAR *ENTER-ALIEN-CALLBACK* ...) ; x-compiling (DEFMACRO ALIEN-CALLBACK ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-alieneval.lisp ; in: DEFMACRO ALIEN-CALLBACK ; (DEFMACRO SB!ALIEN-INTERNALS:ALIEN-CALLBACK ; (SB!ALIEN::SPECIFIER FUNCTION &ENVIRONMENT SB!ALIEN::ENV) ; "Returns an alien-value with of alien ftype SPECIFIER, that can be passed to ; an alien function as a pointer to the FUNCTION. If a callback for the given ; SPECIFIER and FUNCTION already exists, it is returned instead of consing a new ; one." ; (MULTIPLE-VALUE-BIND ; (SB!ALIEN::RESULT-TYPE SB!ALIEN::ARGUMENT-TYPES SB!ALIEN::CALL-TYPE) ; (SB!ALIEN::PARSE-ALIEN-FTYPE SB!ALIEN::SPECIFIER SB!ALIEN::ENV) ; (SB!INT:QUASIQUOTE ; (SB!ALIEN-INTERNALS:%SAP-ALIEN ; (SB!ALIEN::%ALIEN-CALLBACK-SAP '# '# '# # # #) ; '#S(SB!IMPL::COMMA :EXPR # :KIND 0))))) ; --> PROGN EVAL-WHEN ; ==> ; (SB!C::%DEFMACRO 'SB!ALIEN-INTERNALS:ALIEN-CALLBACK ; #'(LAMBDA (#:.WHOLE. #:.ENVIRONMENT.) ; (LET* () ; (LET (#) ; (UNLESS # #)) ; (LET* (# # #) ; (BLOCK SB!ALIEN-INTERNALS:ALIEN-CALLBACK #)))) ; '(SB!ALIEN::SPECIFIER FUNCTION &ENVIRONMENT SB!ALIEN::ENV) ; "Returns an alien-value with of alien ftype SPECIFIER, that can be passed to ; an alien function as a pointer to the FUNCTION. If a callback for the given ; SPECIFIER and FUNCTION already exists, it is returned instead of consing a new ; one." ; '(MACRO-FUNCTION SB!ALIEN-INTERNALS:ALIEN-CALLBACK) ; (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: ALIEN-CALLBACK-LISP-WRAPPER-LAMBDA ; ; caught STYLE-WARNING: ; undefined function: PARSE-ALIEN-FTYPE ; x-compiling (DEFUN ALIEN-CALLBACK-P ...) ; x-compiling (DEFUN ALIEN-CALLBACK-FUNCTION ...) ; x-compiling (DEFUN (SETF ALIEN-CALLBACK-FUNCTION) ...) ; x-compiling (DEFUN INVALIDATE-ALIEN-CALLBACK ...) ; x-compiling (DEFMACRO ALIEN-LAMBDA ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-alieneval.lisp ; in: DEFMACRO ALIEN-LAMBDA ; (DEFMACRO SB!ALIEN::ALIEN-LAMBDA ; (SB!ALIEN::RESULT-TYPE SB!ALIEN::TYPED-LAMBDA-LIST ; &BODY SB!ALIEN::FORMS) ; (MULTIPLE-VALUE-BIND (SB!ALIEN::SPECIFIER SB!ALIEN::LAMBDA-LIST) ; (SB!ALIEN::PARSE-CALLBACK-SPECIFICATION SB!ALIEN::RESULT-TYPE ; SB!ALIEN::TYPED-LAMBDA-LIST) ; (SB!INT:QUASIQUOTE ; (SB!ALIEN-INTERNALS:ALIEN-CALLBACK ; #S(SB!IMPL::COMMA :EXPR SB!ALIEN::SPECIFIER :KIND 0) (LAMBDA # #))))) ; --> PROGN EVAL-WHEN ; ==> ; (SB!C::%DEFMACRO 'SB!ALIEN::ALIEN-LAMBDA ; #'(LAMBDA (#:.WHOLE. #:.ENVIRONMENT.) ; (DECLARE (IGNORE #:.ENVIRONMENT.)) ; (LET* () ; (LET (#) ; (UNLESS # #)) ; (LET* (# # #) ; (BLOCK SB!ALIEN::ALIEN-LAMBDA #)))) ; '(SB!ALIEN::RESULT-TYPE SB!ALIEN::TYPED-LAMBDA-LIST &BODY ; SB!ALIEN::FORMS) ; NIL '(MACRO-FUNCTION SB!ALIEN::ALIEN-LAMBDA) ; (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: PARSE-CALLBACK-SPECIFICATION ; x-compiling (DEFMACRO DEFINE-ALIEN-CALLBACK ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-alieneval.lisp ; in: DEFMACRO DEFINE-ALIEN-CALLBACK ; (DEFMACRO SB!ALIEN::DEFINE-ALIEN-CALLBACK ; (SB!ALIEN::NAME SB!ALIEN::RESULT-TYPE SB!ALIEN::TYPED-LAMBDA-LIST ; &BODY SB!ALIEN::FORMS) ; "Defines #'NAME as a function with the given body and lambda-list, and NAME as ; the alien callback for that function with the given alien type." ; (DECLARE (SYMBOL SB!ALIEN::NAME)) ; (MULTIPLE-VALUE-BIND (SB!ALIEN::SPECIFIER SB!ALIEN::LAMBDA-LIST) ; (SB!ALIEN::PARSE-CALLBACK-SPECIFICATION SB!ALIEN::RESULT-TYPE ; SB!ALIEN::TYPED-LAMBDA-LIST) ; (SB!INT:QUASIQUOTE (PROGN (DEFUN # # #) (DEFPARAMETER # #))))) ; --> PROGN EVAL-WHEN ; ==> ; (SB!C::%DEFMACRO 'SB!ALIEN::DEFINE-ALIEN-CALLBACK ; #'(LAMBDA (#:.WHOLE. #:.ENVIRONMENT.) ; (DECLARE (IGNORE #:.ENVIRONMENT.)) ; (LET* () ; (LET (#) ; (UNLESS # #)) ; (LET* (# # # #) ; (DECLARE #) ; (BLOCK SB!ALIEN::DEFINE-ALIEN-CALLBACK #)))) ; '(SB!ALIEN::NAME SB!ALIEN::RESULT-TYPE ; SB!ALIEN::TYPED-LAMBDA-LIST &BODY SB!ALIEN::FORMS) ; "Defines #'NAME as a function with the given body and lambda-list, and NAME as ; the alien callback for that function with the given alien type." ; '(MACRO-FUNCTION SB!ALIEN::DEFINE-ALIEN-CALLBACK) ; (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: PARSE-CALLBACK-SPECIFICATION ; in: DEFSTRUCT CALLBACK-INFO ; (DEFSTRUCT SB!ALIEN::CALLBACK-INFO ; SB!ALIEN::SPECIFIER ; FUNCTION ; SB!ALIEN::WRAPPER ; SB!INT:INDEX) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: DEFMACRO MAKE-ALIEN ; (SETF (SB!ALIEN-INTERNALS:ALIEN-ARRAY-TYPE-DIMENSIONS ; SB!ALIEN-INTERNALS:ALIEN-TYPE) ; (CONS (SB!INT:CONSTANT-FORM-VALUE SB!ALIEN::SIZE) ; (CDR SB!ALIEN::DIMS))) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!ALIEN-INTERNALS:ALIEN-ARRAY-TYPE-DIMENSIONS) ; #:NEW192 #:ALIEN-TYPE193) ; ; caught STYLE-WARNING: ; undefined function: (SETF ALIEN-ARRAY-TYPE-DIMENSIONS) ; in: DEFUN ALIEN-FUNCALL ; (SETF (SB!ALIEN::ALIEN-FUN-TYPE-STUB TYPE) SB!ALIEN::STUB) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!ALIEN::ALIEN-FUN-TYPE-STUB) #:NEW542 #:TYPE543) ; ; caught STYLE-WARNING: ; undefined function: (SETF ALIEN-FUN-TYPE-STUB) ; in: DEFUN %DEFINE-ALIEN-VARIABLE ; (SETF (SB!INT:INFO :VARIABLE :KIND SB!ALIEN::LISP-NAME) :ALIEN) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!INT:INFO) #:NEW39 :VARIABLE :KIND #:LISP-NAME40) ; ; caught STYLE-WARNING: ; undefined function: (SETF INFO) ; in: DEFUN DEREF-GUTS ; (SB!ALIEN-INTERNALS:ALIEN-ARRAY-TYPE-DIMENSIONS TYPE) ; ; caught STYLE-WARNING: ; undefined function: ALIEN-ARRAY-TYPE-DIMENSIONS ; in: DEFMACRO MAKE-ALIEN ; (SB!ALIEN-INTERNALS:ALIEN-ARRAY-TYPE-DIMENSIONS SB!ALIEN-INTERNALS:ALIEN-TYPE) ; ; caught STYLE-WARNING: ; undefined function: ALIEN-ARRAY-TYPE-DIMENSIONS ; in: DEFUN DEREF-GUTS ; (SB!ALIEN-INTERNALS:ALIEN-ARRAY-TYPE-ELEMENT-TYPE TYPE) ; ; caught STYLE-WARNING: ; undefined function: ALIEN-ARRAY-TYPE-ELEMENT-TYPE ; in: DEFMACRO MAKE-ALIEN ; (SB!ALIEN-INTERNALS:ALIEN-ARRAY-TYPE-ELEMENT-TYPE ; SB!ALIEN-INTERNALS:ALIEN-TYPE) ; ; caught STYLE-WARNING: ; undefined function: ALIEN-ARRAY-TYPE-ELEMENT-TYPE ; in: DEFUN ALIEN-CALLBACK-LISP-WRAPPER-LAMBDA ; (SB!INT:QUASIQUOTE ; (LAMBDA (SB!ALIEN::ARGS-POINTER SB!ALIEN::RESULT-POINTER FUNCTION) ; (LET ((SB!ALIEN::ARGS-SAP #) (SB!ALIEN::RES-SAP #)) ; (DECLARE (IGNORABLE SB!ALIEN::ARGS-SAP SB!ALIEN::RES-SAP)) ; (SB!ALIEN:WITH-ALIEN #S(SB!IMPL::COMMA :EXPR # :KIND 0) ; #S(SB!IMPL::COMMA :EXPR # :KIND 0))) ; (VALUES))) ; --> SB!IMPL::|List*| SB!IMPL::|List| SB!IMPL::|List| LOOP BLOCK LET LET ; --> SB!LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* SB!LOOP::LOOP-BODY TAGBODY ; --> SB!LOOP::LOOP-COLLECT-RPLACD RPLACD LET PROGN SETF SB!KERNEL:%RPLACD SETQ ; --> THE LIST CONS SB!INT:QUASIQUOTE SB!IMPL::|List| ; ==> ; (SB!ALIEN-INTERNALS:ALIEN-CALLBACK-ACCESSOR-FORM SB!ALIEN::SPEC ; 'SB!ALIEN::ARGS-SAP SB!ALIEN::OFFSET) ; ; caught STYLE-WARNING: ; undefined function: ALIEN-CALLBACK-ACCESSOR-FORM ; in: DEFUN %ALIEN-CALLBACK-SAP ; (SB!ALIEN-INTERNALS:ALIEN-CALLBACK-ASSEMBLER-WRAPPER SB!INT:INDEX ; SB!ALIEN::RESULT-TYPE SB!ALIEN::ARGUMENT-TYPES ; (IF (EQ SB!ALIEN::CALL-TYPE :STDCALL) ; (CEILING ; (APPLY #'+ ; (MAPCAR 'SB!ALIEN::ALIEN-TYPE-WORD-ALIGNED-BITS ; SB!ALIEN::ARGUMENT-TYPES)) ; 8) ; 0)) ; ; caught STYLE-WARNING: ; undefined function: ALIEN-CALLBACK-ASSEMBLER-WRAPPER ; in: DEFUN ALIEN-FUNCALL ; (SB!ALIEN-INTERNALS:ALIEN-FUN-TYPE-ARG-TYPES TYPE) ; ; caught STYLE-WARNING: ; undefined function: ALIEN-FUN-TYPE-ARG-TYPES ; (SB!ALIEN::ALIEN-FUN-TYPE-STUB TYPE) ; ; caught STYLE-WARNING: ; undefined function: ALIEN-FUN-TYPE-STUB ; in: DEFUN ALIEN-CALLBACK-LISP-WRAPPER-LAMBDA ; (SB!INT:QUASIQUOTE ; (LAMBDA (SB!ALIEN::ARGS-POINTER SB!ALIEN::RESULT-POINTER FUNCTION) ; (LET ((SB!ALIEN::ARGS-SAP #) (SB!ALIEN::RES-SAP #)) ; (DECLARE (IGNORABLE SB!ALIEN::ARGS-SAP SB!ALIEN::RES-SAP)) ; (SB!ALIEN:WITH-ALIEN #S(SB!IMPL::COMMA :EXPR # :KIND 0) ; #S(SB!IMPL::COMMA :EXPR # :KIND 0))) ; (VALUES))) ; --> SB!IMPL::|List*| SB!IMPL::|List| SB!IMPL::|List| FLET COND IF COND IF ; --> PROGN IF ; ==> ; (SB!ALIEN-INTERNALS:ALIEN-INTEGER-TYPE-SIGNED SB!ALIEN::RESULT-TYPE) ; ; caught STYLE-WARNING: ; undefined function: ALIEN-INTEGER-TYPE-SIGNED ; in: DEFUN DEREF-GUTS ; (SB!ALIEN-INTERNALS:ALIEN-POINTER-TYPE-TO TYPE) ; ; caught STYLE-WARNING: ; undefined function: ALIEN-POINTER-TYPE-TO ; in: DEFUN SLOT-OR-LOSE ; #'SB!ALIEN-INTERNALS:ALIEN-RECORD-FIELD-NAME ; ; caught STYLE-WARNING: ; undefined function: ALIEN-RECORD-FIELD-NAME ; (SB!ALIEN-INTERNALS:ALIEN-RECORD-TYPE-FIELDS TYPE) ; ; caught STYLE-WARNING: ; undefined function: ALIEN-RECORD-TYPE-FIELDS ; in: DEFUN ALIEN-VALUE-TYPEP ; (SB!ALIEN-INTERNALS:ALIEN-SUBTYPE-P ; (SB!ALIEN-INTERNALS:ALIEN-VALUE-TYPE SB!ALIEN::OBJECT) TYPE) ; ; caught STYLE-WARNING: ; undefined function: ALIEN-SUBTYPE-P ; in: DEFUN ALIEN-TYPEP ; (SB!ALIEN-INTERNALS:ALIEN-SUBTYPE-P ; (SB!ALIEN-INTERNALS:ALIEN-VALUE-TYPE SB!ALIEN::OBJECT) TYPE) ; ; caught STYLE-WARNING: ; undefined function: ALIEN-SUBTYPE-P ; in: DEFUN DEREF-GUTS ; (SB!ALIEN-INTERNALS:ALIEN-TYPE-ALIGNMENT SB!ALIEN::ELEMENT-TYPE) ; ; caught STYLE-WARNING: ; undefined function: ALIEN-TYPE-ALIGNMENT ; in: DEFMACRO MAKE-ALIEN ; (SB!ALIEN-INTERNALS:ALIEN-TYPE-ALIGNMENT SB!ALIEN::ELEMENT-TYPE) ; ; caught STYLE-WARNING: ; undefined function: ALIEN-TYPE-ALIGNMENT ; in: DEFMACRO ALIEN-SIZE ; (SB!ALIEN-INTERNALS:ALIEN-TYPE-BITS SB!ALIEN-INTERNALS:ALIEN-TYPE) ; ; caught STYLE-WARNING: ; undefined function: ALIEN-TYPE-BITS ; in: DEFUN DEREF-GUTS ; (SB!ALIEN-INTERNALS:ALIEN-TYPE-BITS SB!ALIEN::ELEMENT-TYPE) ; ; caught STYLE-WARNING: ; undefined function: ALIEN-TYPE-BITS ; in: DEFMACRO MAKE-ALIEN ; (SB!ALIEN-INTERNALS:ALIEN-TYPE-BITS SB!ALIEN::ELEMENT-TYPE) ; ; caught STYLE-WARNING: ; undefined function: ALIEN-TYPE-BITS ; ; caught STYLE-WARNING: ; 2 more uses of undefined function ALIEN-TYPE-BITS ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-alieneval.lisp ; in: DEFUN ALIEN-VOID-TYPE-P ; (SB!ALIEN-INTERNALS:ALIEN-VALUES-TYPE-VALUES TYPE) ; ; caught STYLE-WARNING: ; undefined function: ALIEN-VALUES-TYPE-VALUES ; in: DEFUN ALIEN-TYPE-WORD-ALIGNED-BITS ; (SB!ALIEN-INTERNALS:ALIGN-OFFSET (SB!ALIEN-INTERNALS:ALIEN-TYPE-BITS TYPE) ; SB!VM:N-WORD-BITS) ; ; caught STYLE-WARNING: ; undefined function: ALIGN-OFFSET ; in: DEFUN DEREF-GUTS ; (SB!ALIEN-INTERNALS:ALIGN-OFFSET ; (SB!ALIEN-INTERNALS:ALIEN-TYPE-BITS SB!ALIEN::ELEMENT-TYPE) ; (SB!ALIEN-INTERNALS:ALIEN-TYPE-ALIGNMENT SB!ALIEN::ELEMENT-TYPE)) ; ; caught STYLE-WARNING: ; undefined function: ALIGN-OFFSET ; in: DEFMACRO MAKE-ALIEN ; (SB!INT:QUASIQUOTE ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) ; (SB!ALIEN-INTERNALS:%SAP-ALIEN (SB!ALIEN::%MAKE-ALIEN (* # #)) ; '#S(SB!IMPL::COMMA ; :EXPR (SB!ALIEN-INTERNALS:MAKE-ALIEN-POINTER-TYPE :TO ; SB!ALIEN-INTERNALS:ALIEN-TYPE) ; :KIND 0)))) ; --> SB!IMPL::|List| SB!IMPL::|List| SB!IMPL::|List| SB!IMPL::|List| ASH + ; ==> ; (SB!ALIEN-INTERNALS:ALIGN-OFFSET SB!ALIEN::BITS SB!ALIEN::ALIGNMENT) ; ; caught STYLE-WARNING: ; undefined function: ALIGN-OFFSET ; in: DEFINE-SETF-EXPANDER LOCAL-ALIEN ; (DEFINE-SETF-EXPANDER SB!ALIEN-INTERNALS:LOCAL-ALIEN ; (&WHOLE SB!ALIEN::WHOLE SB!INT:INFO SB!ALIEN:ALIEN) ; (LET ((SB!ALIEN::VALUE (GENSYM)) ; (SB!ALIEN::INFO-VAR (GENSYM)) ; (SB!ALIEN::ALLOC-TMP (GENSYM)) ; (SB!INT:INFO ; (IF # ; # ; #))) ; (VALUES NIL NIL (LIST SB!ALIEN::VALUE) ; (SB!INT:QUASIQUOTE ; (IF # ; # ; #)) ; SB!ALIEN::WHOLE))) ; --> EVAL-WHEN SB!IMPL::ASSIGN-SETF-MACRO ; ==> ; (SB!IMPL::ASSIGN-SETF-MACRO 'SB!ALIEN-INTERNALS:LOCAL-ALIEN ; (LAMBDA (#:WHOLE439 #:ENVIRONMENT440) ; (DECLARE (IGNORE #:ENVIRONMENT440)) ; (LET* () ; (LET (#) ; (UNLESS # #)) ; (LET* (# # #) ; (BLOCK SB!ALIEN-INTERNALS:LOCAL-ALIEN #)))) ; '(&WHOLE SB!ALIEN::WHOLE SB!INT:INFO ; SB!ALIEN:ALIEN) ; NIL 'NIL) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::ASSIGN-SETF-MACRO ; in: DEFMACRO WITH-ALIEN ; (SB!ALIEN::WITH-AUXILIARY-ALIEN-TYPES SB!ALIEN::ENV ; (DOLIST (SB!ALIEN::BINDING (REVERSE SB!ALIEN::BINDINGS)) ; (SB!INT:/SHOW SB!ALIEN::BINDING) ; (DESTRUCTURING-BIND ; (SYMBOL TYPE ; &OPTIONAL SB!ALIEN::OPT1 (SB!ALIEN::OPT2 NIL SB!ALIEN::OPT2P)) ; SB!ALIEN::BINDING ; (SB!INT:/SHOW SYMBOL TYPE SB!ALIEN::OPT1 SB!ALIEN::OPT2) ; (LET* (# #) ; (SB!INT:/SHOW SB!ALIEN-INTERNALS:ALIEN-TYPE) ; (MULTIPLE-VALUE-BIND # # # #)))) ; (SB!INT:/SHOW "revised" SB!ALIEN::BODY) ; (SB!ALIEN::VERIFY-LOCAL-AUXILIARIES-OKAY) ; (SB!INT:/SHOW0 "back from VERIFY-LOCAL-AUXILIARIES-OK, returning") ; (SB!INT:QUASIQUOTE ; (SYMBOL-MACROLET ((SB!ALIEN::&AUXILIARY-TYPE-DEFINITIONS& #)) ; (LET (#) ; #S(SB!IMPL::COMMA :EXPR SB!ALIEN::BODY :KIND 2))))) ; --> SB!INT:QUASIQUOTE SB!IMPL::|List| SB!IMPL::|List| SB!IMPL::|List| APPEND ; ==> ; (SB!ALIEN::AUXILIARY-TYPE-DEFINITIONS SB!ALIEN::ENV) ; ; caught STYLE-WARNING: ; undefined function: AUXILIARY-TYPE-DEFINITIONS ; in: DEFMACRO DEFINE-ALIEN-VARIABLE ; (SB!ALIEN::WITH-AUXILIARY-ALIEN-TYPES SB!ALIEN::ENV ; (LET ((SB!ALIEN-INTERNALS:ALIEN-TYPE ; (SB!ALIEN-INTERNALS:PARSE-ALIEN-TYPE TYPE SB!ALIEN::ENV))) ; (SB!INT:QUASIQUOTE ; (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) ; #S(SB!IMPL::COMMA :EXPR # :KIND 2) ; (SB!ALIEN::%DEFINE-ALIEN-VARIABLE '# '# '#))))) ; --> SB!INT:QUASIQUOTE SB!IMPL::|List| SB!IMPL::|List| SB!IMPL::|List| APPEND ; ==> ; (SB!ALIEN::AUXILIARY-TYPE-DEFINITIONS SB!ALIEN::ENV) ; ; caught STYLE-WARNING: ; undefined function: AUXILIARY-TYPE-DEFINITIONS ; in: DEFUN SLOT-OR-LOSE ; (FIND SB!ALIEN:SLOT (SB!ALIEN-INTERNALS:ALIEN-RECORD-TYPE-FIELDS TYPE) :KEY ; #'SB!ALIEN-INTERNALS:ALIEN-RECORD-FIELD-NAME) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET SB!KERNEL:%FIND-POSITION ; ==> ; (SB!KERNEL:%FIND-POSITION-IF ; (LET ((SB!C::TEST-FUN (SB!KERNEL:%COERCE-CALLABLE-TO-FUN SB!C::TEST))) ; (LAMBDA (SB!C::I) (FUNCALL SB!C::TEST-FUN SB!C::ITEM SB!C::I))) ; SEQUENCE SB!C::FROM-END SB!C::START SB!C::END ; (SB!KERNEL:%COERCE-CALLABLE-TO-FUN SB!C::KEY)) ; ; caught STYLE-WARNING: ; undefined function: CIRCULAR-LIST-ERROR ; in: DEFMACRO WITH-ALIEN ; (MULTIPLE-VALUE-BIND (SB!ALIEN::ALLOCATION SB!ALIEN::INITIAL-VALUE) ; (IF SB!ALIEN::OPT2P ; (VALUES SB!ALIEN::OPT1 SB!ALIEN::OPT2) ; (CASE SB!ALIEN::OPT1 ; (:EXTERN (VALUES SB!ALIEN::OPT1 #)) ; (:STATIC (VALUES SB!ALIEN::OPT1 NIL)) ; (T (VALUES :LOCAL SB!ALIEN::OPT1)))) ; (SB!INT:/SHOW SB!ALIEN::ALLOCATION SB!ALIEN::INITIAL-VALUE) ; (SETF SB!ALIEN::BODY ; (ECASE SB!ALIEN::ALLOCATION (:EXTERN # #) (:LOCAL # #)))) ; --> MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!ALIEN::ALLOCATION SB!ALIEN::INITIAL-VALUE #:G69) {E6CC589}> ; SB!ALIEN::ALLOCATION SB!ALIEN::INITIAL-VALUE NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN ALIEN-VALUE ; (SB!INT:INFO :VARIABLE :ALIEN-INFO SYMBOL) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:VALUE50 #:FOUNDP51 #:G50) {E4A6051}> ; #:VALUE50 #:FOUNDP51 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFMACRO DEFINE-ALIEN-VARIABLE ; (MULTIPLE-VALUE-BIND (SB!ALIEN::LISP-NAME SB!ALIEN::ALIEN-NAME) ; (SB!ALIEN::PICK-LISP-AND-ALIEN-NAMES SB!ALIEN::NAME) ; (SB!ALIEN::WITH-AUXILIARY-ALIEN-TYPES SB!ALIEN::ENV ; (LET ((SB!ALIEN-INTERNALS:ALIEN-TYPE #)) ; (SB!INT:QUASIQUOTE (EVAL-WHEN # # #))))) ; --> MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!ALIEN::LISP-NAME SB!ALIEN::ALIEN-NAME #:G7) {E3B0691}> ; SB!ALIEN::LISP-NAME SB!ALIEN::ALIEN-NAME NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 47 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-alieneval.lisp ; in: DEFUN COERCE-TO-INTERPRETED-FUNCTION ; (COERCE SB!ALIEN::LAMBDA-FORM 'FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL:COERCE-TO-FUN ; in: DEFUN %ALIEN-CALLBACK-SAP ; (MAPCAR 'SB!ALIEN::ALIEN-TYPE-WORD-ALIGNED-BITS SB!ALIEN::ARGUMENT-TYPES) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN MAKE-LOCAL-ALIEN ; (SB!ALIEN:ALIEN-FUNCALL ; (SB!ALIEN:EXTERN-ALIEN "free" ; (FUNCTION (VALUES) SB!SYS:SYSTEM-AREA-POINTER)) ; SB!ALIEN:ALIEN-SAP) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN FREE-ALIEN ; (SB!ALIEN:ALIEN-FUNCALL ; (SB!ALIEN:EXTERN-ALIEN "free" ; (FUNCTION (VALUES) SB!SYS:SYSTEM-AREA-POINTER)) ; (SB!ALIEN:ALIEN-SAP SB!ALIEN:ALIEN)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; ; caught STYLE-WARNING: ; 3 more uses of undefined type COMPILER-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-alieneval.lisp ; in: DEFMACRO SAP-ALIEN ; (SB!ALIEN-INTERNALS:COMPUTE-ALIEN-REP-TYPE SB!ALIEN-INTERNALS:ALIEN-TYPE) ; ; caught STYLE-WARNING: ; undefined function: COMPUTE-ALIEN-REP-TYPE ; in: DEFUN DEPORT-ALLOC ; (SB!ALIEN-INTERNALS:COMPUTE-DEPORT-ALLOC-LAMBDA TYPE) ; ; caught STYLE-WARNING: ; undefined function: COMPUTE-DEPORT-ALLOC-LAMBDA ; in: DEFUN DEPORT ; (SB!ALIEN-INTERNALS:COMPUTE-DEPORT-LAMBDA TYPE) ; ; caught STYLE-WARNING: ; undefined function: COMPUTE-DEPORT-LAMBDA ; in: DEFUN (SETF %ALIEN-VALUE) ; (SB!ALIEN-INTERNALS:COMPUTE-DEPOSIT-LAMBDA TYPE) ; ; caught STYLE-WARNING: ; undefined function: COMPUTE-DEPOSIT-LAMBDA ; in: DEFUN %ALIEN-VALUE ; (SB!ALIEN-INTERNALS:COMPUTE-EXTRACT-LAMBDA TYPE) ; ; caught STYLE-WARNING: ; undefined function: COMPUTE-EXTRACT-LAMBDA ; in: DEFUN ALIEN-TYPEP ; (SB!ALIEN-INTERNALS:COMPUTE-LISP-REP-TYPE TYPE) ; ; caught STYLE-WARNING: ; undefined function: COMPUTE-LISP-REP-TYPE ; in: DEFUN NATURALIZE ; (SB!ALIEN-INTERNALS:COMPUTE-NATURALIZE-LAMBDA TYPE) ; ; caught STYLE-WARNING: ; undefined function: COMPUTE-NATURALIZE-LAMBDA ; in: DEFMACRO MAKE-ALIEN ; (SB!INT:CONSTANT-FORM-VALUE SB!ALIEN::SIZE) ; ; caught STYLE-WARNING: ; undefined function: CONSTANT-FORM-VALUE ; in: DEFUN MAKE-LOCAL-ALIEN ; (SB!EXT:FINALIZE SB!ALIEN:ALIEN ; (LAMBDA () ; (SB!ALIEN:ALIEN-FUNCALL ; (SB!ALIEN:EXTERN-ALIEN "free" (FUNCTION # SB!SYS:SYSTEM-AREA-POINTER)) ; SB!ALIEN:ALIEN-SAP)) ; :DONT-SAVE T) ; ; caught STYLE-WARNING: ; undefined function: FINALIZE ; in: DEFUN %MAKE-ALIEN-STRING ; (SB!ALIEN::%MAKE-ALIEN COUNT) ; --> BLOCK LET IF SB!ALIEN::MALLOC-ERROR ; ==> ; (SB!ALIEN:GET-ERRNO) ; ; caught STYLE-WARNING: ; undefined function: GET-ERRNO ; in: DEFUN %MAKE-ALIEN ; (SB!ALIEN:GET-ERRNO) ; ; caught STYLE-WARNING: ; undefined function: GET-ERRNO ; in: DEFUN ALIEN-VALUE ; (SB!INT:INFO :VARIABLE :ALIEN-INFO SYMBOL) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; (SB!C::GET-INFO-VALUE SYMBOL 19) ; ; caught STYLE-WARNING: ; undefined function: SB!C::GET-INFO-VALUE ; ; caught STYLE-WARNING: ; undefined function: INFO ; in: DEFUN %LOCAL-ALIEN-ADDR ; (SB!ALIEN-INTERNALS:LOCAL-ALIEN-INFO-FORCE-TO-MEMORY-P SB!INT:INFO) ; ; caught STYLE-WARNING: ; undefined function: LOCAL-ALIEN-INFO-FORCE-TO-MEMORY-P ; in: DEFUN %LOCAL-ALIEN-FORCED-TO-MEMORY-P ; (SB!ALIEN-INTERNALS:LOCAL-ALIEN-INFO-FORCE-TO-MEMORY-P SB!INT:INFO) ; ; caught STYLE-WARNING: ; undefined function: LOCAL-ALIEN-INFO-FORCE-TO-MEMORY-P ; in: DEFINE-SETF-EXPANDER LOCAL-ALIEN ; (SB!INT:QUASIQUOTE ; (IF (SB!ALIEN-INTERNALS:%LOCAL-ALIEN-FORCED-TO-MEMORY-P ; '#S(SB!IMPL::COMMA :EXPR SB!INT:INFO :KIND 0)) ; (SB!ALIEN-INTERNALS:%SET-LOCAL-ALIEN ; '#S(SB!IMPL::COMMA :EXPR SB!INT:INFO :KIND 0) ; #S(SB!IMPL::COMMA :EXPR SB!ALIEN:ALIEN :KIND 0) ; #S(SB!IMPL::COMMA :EXPR SB!ALIEN::VALUE :KIND 0)) ; (LET* ((# '#) (# #)) ; (SB!ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS (#) ; (#) ; (SETF #))))) ; --> SB!IMPL::|List| SB!IMPL::|List| SB!IMPL::|List| SB!IMPL::|List| ; --> SB!IMPL::|List| ; ==> ; (SB!ALIEN-INTERNALS:LOCAL-ALIEN-INFO-TYPE SB!INT:INFO) ; ; caught STYLE-WARNING: ; undefined function: LOCAL-ALIEN-INFO-TYPE ; in: DEFUN MAKE-LOCAL-ALIEN ; (SB!INT:QUASIQUOTE ; (SB!ALIEN:MAKE-ALIEN ; #S(SB!IMPL::COMMA ; :EXPR (SB!ALIEN-INTERNALS:LOCAL-ALIEN-INFO-TYPE SB!INT:INFO) ; :KIND 0))) ; --> SB!IMPL::|List| ; ==> ; (SB!ALIEN-INTERNALS:LOCAL-ALIEN-INFO-TYPE SB!INT:INFO) ; ; caught STYLE-WARNING: ; undefined function: LOCAL-ALIEN-INFO-TYPE ; in: DEFMACRO MAKE-ALIEN ; (SB!INT:QUASIQUOTE ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) ; (SB!ALIEN-INTERNALS:%SAP-ALIEN (SB!ALIEN::%MAKE-ALIEN (* # #)) ; '#S(SB!IMPL::COMMA ; :EXPR (SB!ALIEN-INTERNALS:MAKE-ALIEN-POINTER-TYPE :TO ; SB!ALIEN-INTERNALS:ALIEN-TYPE) ; :KIND 0)))) ; --> SB!IMPL::|List| SB!IMPL::|List| SB!IMPL::|List| ; ==> ; (SB!ALIEN-INTERNALS:MAKE-ALIEN-POINTER-TYPE :TO SB!ALIEN-INTERNALS:ALIEN-TYPE) ; ; caught STYLE-WARNING: ; undefined function: MAKE-ALIEN-POINTER-TYPE ; in: DEFUN %DEFINE-ALIEN-VARIABLE ; (SB!ALIEN::MAKE-HEAP-ALIEN-INFO :TYPE TYPE :ALIEN-NAME SB!ALIEN::ALIEN-NAME ; :DATAP T) ; ; caught STYLE-WARNING: ; undefined function: MAKE-HEAP-ALIEN-INFO ; in: DEFMACRO WITH-ALIEN ; (SB!ALIEN::MAKE-LOCAL-ALIEN-INFO :TYPE SB!ALIEN-INTERNALS:ALIEN-TYPE) ; ; caught STYLE-WARNING: ; undefined function: MAKE-LOCAL-ALIEN-INFO ; (SB!ALIEN-INTERNALS:PARSE-ALIEN-TYPE TYPE SB!ALIEN::ENV) ; ; caught STYLE-WARNING: ; undefined function: PARSE-ALIEN-TYPE ; in: DEFMACRO EXTERN-ALIEN ; (SB!ALIEN-INTERNALS:PARSE-ALIEN-TYPE TYPE SB!ALIEN::ENV) ; ; caught STYLE-WARNING: ; undefined function: PARSE-ALIEN-TYPE ; in: DEFMACRO DEFINE-ALIEN-VARIABLE ; (SB!ALIEN-INTERNALS:PARSE-ALIEN-TYPE TYPE SB!ALIEN::ENV) ; ; caught STYLE-WARNING: ; undefined function: PARSE-ALIEN-TYPE ; ; caught STYLE-WARNING: ; 10 more uses of undefined function PARSE-ALIEN-TYPE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-alieneval.lisp ; in: DEFUN MALLOC-ERROR ; (SB!INT:STRERROR SB!ALIEN::ERRNO) ; ; caught STYLE-WARNING: ; undefined function: STRERROR ; in: DEFUN %MAKE-ALIEN-STRING ; (SB!EXT:STRING-TO-OCTETS STRING :START SB!ALIEN::START :END SB!ALIEN::END ; :EXTERNAL-FORMAT SB!ALIEN::EXTERNAL-FORMAT :NULL-TERMINATE ; SB!ALIEN::NULL-TERMINATE) ; ; caught STYLE-WARNING: ; undefined function: STRING-TO-OCTETS ; in: DEFUN ALIEN-CALLBACK-LISP-WRAPPER-LAMBDA ; (SB!INT:QUASIQUOTE ; (LAMBDA (SB!ALIEN::ARGS-POINTER SB!ALIEN::RESULT-POINTER FUNCTION) ; (LET ((SB!ALIEN::ARGS-SAP #) (SB!ALIEN::RES-SAP #)) ; (DECLARE (IGNORABLE SB!ALIEN::ARGS-SAP SB!ALIEN::RES-SAP)) ; (SB!ALIEN:WITH-ALIEN #S(SB!IMPL::COMMA :EXPR # :KIND 0) ; #S(SB!IMPL::COMMA :EXPR # :KIND 0))) ; (VALUES))) ; --> SB!IMPL::|List*| SB!IMPL::|List| SB!IMPL::|List| FLET COND IF COND IF ; --> COND THE PROGN SB!ALIEN::STORE ; ==> ; (SB!ALIEN-INTERNALS:UNPARSE-ALIEN-TYPE SB!ALIEN::RESULT-TYPE) ; ; caught STYLE-WARNING: ; undefined function: UNPARSE-ALIEN-TYPE ; in: DEFMACRO ALIEN-SIZE ; (SB!ALIEN-INTERNALS:UNPARSE-ALIEN-TYPE SB!ALIEN-INTERNALS:ALIEN-TYPE) ; ; caught STYLE-WARNING: ; undefined function: UNPARSE-ALIEN-TYPE ; in: DEFMACRO MAKE-ALIEN ; (SB!ALIEN-INTERNALS:UNPARSE-ALIEN-TYPE SB!ALIEN::ELEMENT-TYPE) ; ; caught STYLE-WARNING: ; undefined function: UNPARSE-ALIEN-TYPE ; in: DEFMACRO WITH-ALIEN ; (SB!ALIEN::VERIFY-LOCAL-AUXILIARIES-OKAY) ; ; caught STYLE-WARNING: ; undefined function: VERIFY-LOCAL-AUXILIARIES-OKAY ; ; compilation unit finished ; Undefined types: ; CODE-DELETION-NOTE COMPILER-NOTE ; Undefined functions: ; SB!KERNEL::%TARGET-DEFSTRUCT (SETF ALIEN-ARRAY-TYPE-DIMENSIONS) (SETF ALIEN-FUN-TYPE-STUB) (SETF INFO) ALIEN-ARRAY-TYPE-DIMENSIONS ALIEN-ARRAY-TYPE-ELEMENT-TYPE ALIEN-CALLBACK-ACCESSOR-FORM ALIEN-CALLBACK-ASSEMBLER-WRAPPER ALIEN-FUN-TYPE-ARG-TYPES ALIEN-FUN-TYPE-STUB ALIEN-INTEGER-TYPE-SIGNED ALIEN-POINTER-TYPE-TO ALIEN-RECORD-FIELD-NAME ALIEN-RECORD-TYPE-FIELDS ALIEN-SUBTYPE-P ALIEN-TYPE-ALIGNMENT ALIEN-TYPE-BITS ALIEN-VALUES-TYPE-VALUES ALIGN-OFFSET SB!IMPL::ASSIGN-SETF-MACRO AUXILIARY-TYPE-DEFINITIONS CIRCULAR-LIST-ERROR SB!KERNEL:COERCE-TO-FUN COMPUTE-ALIEN-REP-TYPE COMPUTE-DEPORT-ALLOC-LAMBDA COMPUTE-DEPORT-LAMBDA COMPUTE-DEPOSIT-LAMBDA COMPUTE-EXTRACT-LAMBDA COMPUTE-LISP-REP-TYPE COMPUTE-NATURALIZE-LAMBDA CONSTANT-FORM-VALUE FINALIZE GET-ERRNO SB!C::GET-INFO-VALUE INFO LOCAL-ALIEN-INFO-FORCE-TO-MEMORY-P LOCAL-ALIEN-INFO-TYPE MAKE-ALIEN-POINTER-TYPE MAKE-HEAP-ALIEN-INFO MAKE-LOCAL-ALIEN-INFO PARSE-ALIEN-TYPE STRERROR STRING-TO-OCTETS UNPARSE-ALIEN-TYPE VERIFY-LOCAL-AUXILIARIES-OKAY ; caught 75 STYLE-WARNING conditions ; printed 1 note ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/target-alieneval.lisp-obj-tmp written ; compilation finished in 0:00:00.763 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-c-call.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!ALIEN") ; x-compiling (DEFINE-ALIEN-TYPE CHAR ...) ; x-compiling (DEFINE-ALIEN-TYPE SHORT ...) ; x-compiling (DEFINE-ALIEN-TYPE INT ...) ; x-compiling (DEFINE-ALIEN-TYPE LONG ...) ; x-compiling (DEFINE-ALIEN-TYPE LONG-LONG ...) ; x-compiling (DEFINE-ALIEN-TYPE UNSIGNED-CHAR ...) ; x-compiling (DEFINE-ALIEN-TYPE UNSIGNED-SHORT ...) ; x-compiling (DEFINE-ALIEN-TYPE UNSIGNED-INT ...) ; x-compiling (DEFINE-ALIEN-TYPE UNSIGNED-LONG ...) ; x-compiling (DEFINE-ALIEN-TYPE UNSIGNED-LONG-LONG ...) ; x-compiling (DEFINE-ALIEN-TYPE FLOAT ...) ; x-compiling (DEFINE-ALIEN-TYPE DOUBLE ...) ; x-compiling (DEFINE-ALIEN-TYPE UTF8-STRING ...) ; x-compiling (DEFINE-ALIEN-TYPE-TRANSLATOR VOID ...) ; x-compiling (DEFUN DEFAULT-C-STRING-EXTERNAL-FORMAT ...) ; x-compiling (DEFUN %NATURALIZE-C-STRING ...) ; x-compiling (DEFUN STRING-TO-C-STRING ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-c-call.lisp ; in: DEFUN STRING-TO-C-STRING ; (FUNCALL (SB!IMPL::EF-WRITE-C-STRING-FUN SB!ALIEN::EXTERNAL-FORMAT) STRING) ; --> SB!C::%FUNCALL THE ; ==> ; (SB!KERNEL:%COERCE-CALLABLE-TO-FUN ; (SB!IMPL::EF-WRITE-C-STRING-FUN SB!ALIEN::EXTERNAL-FORMAT)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; not known to be a function ; x-compiling (DEFUN C-STRING-TO-STRING ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-c-call.lisp ; in: DEFUN C-STRING-TO-STRING ; (FUNCALL (SB!IMPL::EF-READ-C-STRING-FUN SB!ALIEN::EXTERNAL-FORMAT) ; SB!ALIEN::SAP SB!ALIEN::ELEMENT-TYPE) ; --> SB!C::%FUNCALL THE ; ==> ; (SB!KERNEL:%COERCE-CALLABLE-TO-FUN ; (SB!IMPL::EF-READ-C-STRING-FUN SB!ALIEN::EXTERNAL-FORMAT)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; not known to be a function ; in: DEFINE-ALIEN-TYPE INT ; (SB!ALIEN:DEFINE-ALIEN-TYPE SB!ALIEN:INT (INTEGER 32)) ; --> SYMBOL-MACROLET EVAL-WHEN SB!ALIEN::%DEFINE-ALIEN-TYPE ; ==> ; (SB!ALIEN::%DEFINE-ALIEN-TYPE 'SB!ALIEN:INT ; '#) ; ; caught STYLE-WARNING: ; undefined function: %DEFINE-ALIEN-TYPE ; in: DEFINE-ALIEN-TYPE SHORT ; (SB!ALIEN:DEFINE-ALIEN-TYPE SB!ALIEN:SHORT (INTEGER 16)) ; --> SYMBOL-MACROLET EVAL-WHEN SB!ALIEN::%DEFINE-ALIEN-TYPE ; ==> ; (SB!ALIEN::%DEFINE-ALIEN-TYPE 'SB!ALIEN:SHORT ; '#) ; ; caught STYLE-WARNING: ; undefined function: %DEFINE-ALIEN-TYPE ; in: DEFINE-ALIEN-TYPE CHAR ; (SB!ALIEN:DEFINE-ALIEN-TYPE CHAR (INTEGER 8)) ; --> SYMBOL-MACROLET EVAL-WHEN SB!ALIEN::%DEFINE-ALIEN-TYPE ; ==> ; (SB!ALIEN::%DEFINE-ALIEN-TYPE 'CHAR ; '#) ; ; caught STYLE-WARNING: ; undefined function: %DEFINE-ALIEN-TYPE ; ; caught STYLE-WARNING: ; 10 more uses of undefined function %DEFINE-ALIEN-TYPE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-c-call.lisp ; in: DEFINE-ALIEN-TYPE-TRANSLATOR VOID ; (SB!ALIEN-INTERNALS:DEFINE-ALIEN-TYPE-TRANSLATOR SB!ALIEN:VOID ; NIL ; (SB!ALIEN-INTERNALS:PARSE-ALIEN-TYPE '(VALUES) ; (SB!KERNEL:MAKE-NULL-LEXENV))) ; --> EVAL-WHEN SB!ALIEN::%DEFINE-ALIEN-TYPE-TRANSLATOR ; ==> ; (SB!ALIEN::%DEFINE-ALIEN-TYPE-TRANSLATOR 'SB!ALIEN:VOID ; #'SB!ALIEN::ALIEN-VOID-TYPE-TRANSLATOR ; NIL) ; ; caught STYLE-WARNING: ; undefined function: %DEFINE-ALIEN-TYPE-TRANSLATOR ; in: DEFUN %NATURALIZE-C-STRING ; (MAKE-STRING LENGTH :ELEMENT-TYPE 'BASE-CHAR) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN DEFAULT-C-STRING-EXTERNAL-FORMAT => SB!IMPL::DEFAULT-EXTERNAL-FORMAT ; (SB!IMPL::DEFAULT-EXTERNAL-FORMAT) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::DEFAULT-EXTERNAL-FORMAT ; in: DEFUN C-STRING-TO-STRING ; (SB!IMPL::EF-READ-C-STRING-FUN SB!ALIEN::EXTERNAL-FORMAT) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::EF-READ-C-STRING-FUN ; in: DEFUN STRING-TO-C-STRING ; (SB!IMPL::EF-WRITE-C-STRING-FUN SB!ALIEN::EXTERNAL-FORMAT) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::EF-WRITE-C-STRING-FUN ; in: DEFUN C-STRING-TO-STRING ; (SB!IMPL::GET-EXTERNAL-FORMAT-OR-LOSE SB!ALIEN::EXTERNAL-FORMAT) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::GET-EXTERNAL-FORMAT-OR-LOSE ; in: DEFUN STRING-TO-C-STRING ; (SB!IMPL::GET-EXTERNAL-FORMAT-OR-LOSE SB!ALIEN::EXTERNAL-FORMAT) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::GET-EXTERNAL-FORMAT-OR-LOSE ; in: DEFINE-ALIEN-TYPE-TRANSLATOR VOID ; (SB!KERNEL:MAKE-NULL-LEXENV) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL:MAKE-NULL-LEXENV ; (SB!ALIEN-INTERNALS:PARSE-ALIEN-TYPE '(VALUES) (SB!KERNEL:MAKE-NULL-LEXENV)) ; ; caught STYLE-WARNING: ; undefined function: PARSE-ALIEN-TYPE ; ; compilation unit finished ; Undefined type: ; CODE-DELETION-NOTE ; Undefined functions: ; %DEFINE-ALIEN-TYPE %DEFINE-ALIEN-TYPE-TRANSLATOR SB!IMPL::DEFAULT-EXTERNAL-FORMAT SB!IMPL::EF-READ-C-STRING-FUN SB!IMPL::EF-WRITE-C-STRING-FUN SB!IMPL::GET-EXTERNAL-FORMAT-OR-LOSE SB!KERNEL:MAKE-NULL-LEXENV PARSE-ALIEN-TYPE ; caught 13 STYLE-WARNING conditions ; printed 2 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/target-c-call.lisp-obj-tmp written ; compilation finished in 0:00:00.038 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-allocate.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (DEFINE-ALIEN-ROUTINE ("os_allocate" ALLOCATE-SYSTEM-MEMORY) ...) /entering WITH-ALIEN BINDINGS=((ALLOCATE-SYSTEM-MEMORY (FUNCTION SYSTEM-AREA-POINTER UNSIGNED) :EXTERN "os_allocate")) /BINDING=(ALLOCATE-SYSTEM-MEMORY (FUNCTION SYSTEM-AREA-POINTER UNSIGNED) :EXTERN "os_allocate") /SYMBOL=ALLOCATE-SYSTEM-MEMORY TYPE=(FUNCTION SYSTEM-AREA-POINTER UNSIGNED) OPT1=:EXTERN OPT2="os_allocate" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="os_allocate" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((ALLOCATE-SYSTEM-MEMORY #)) (VALUES (ALIEN-FUNCALL ALLOCATE-SYSTEM-MEMORY BYTES)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; x-compiling (DEFINE-ALIEN-ROUTINE ("os_deallocate" DEALLOCATE-SYSTEM-MEMORY) ...) /entering WITH-ALIEN BINDINGS=((DEALLOCATE-SYSTEM-MEMORY (FUNCTION VOID SYSTEM-AREA-POINTER UNSIGNED) :EXTERN "os_deallocate")) /BINDING=(DEALLOCATE-SYSTEM-MEMORY (FUNCTION VOID SYSTEM-AREA-POINTER UNSIGNED) :EXTERN "os_deallocate") /SYMBOL=DEALLOCATE-SYSTEM-MEMORY TYPE=(FUNCTION VOID SYSTEM-AREA-POINTER UNSIGNED) OPT1=:EXTERN OPT2="os_deallocate" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="os_deallocate" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((DEALLOCATE-SYSTEM-MEMORY #)) (ALIEN-FUNCALL DEALLOCATE-SYSTEM-MEMORY ADDR BYTES) (VALUES NIL))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-allocate.lisp ; in: DEFINE-ALIEN-ROUTINE ("os_deallocate" DEALLOCATE-SYSTEM-MEMORY) ; (SB!ALIEN:DEFINE-ALIEN-ROUTINE ; ("os_deallocate" SB!SYS:DEALLOCATE-SYSTEM-MEMORY) SB!ALIEN:VOID ; (SB!ALIEN:ADDR SB!SYS:SYSTEM-AREA-POINTER) ; (SB!KERNEL::BYTES SB!ALIEN:UNSIGNED)) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK SB!ALIEN:WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET ; --> SYMBOL-MACROLET ; ==> ; (SB!ALIEN:ALIEN-FUNCALL SB!SYS:DEALLOCATE-SYSTEM-MEMORY SB!ALIEN:ADDR ; SB!KERNEL::BYTES) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFINE-ALIEN-ROUTINE ("os_allocate" ALLOCATE-SYSTEM-MEMORY) ; (SB!ALIEN:DEFINE-ALIEN-ROUTINE ("os_allocate" SB!SYS:ALLOCATE-SYSTEM-MEMORY) ; SB!SYS:SYSTEM-AREA-POINTER (SB!KERNEL::BYTES SB!ALIEN:UNSIGNED)) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK SB!ALIEN:WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET ; --> SYMBOL-MACROLET VALUES PROG1 LET ; ==> ; (SB!ALIEN:ALIEN-FUNCALL SB!SYS:ALLOCATE-SYSTEM-MEMORY SB!KERNEL::BYTES) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; ; compilation unit finished ; Undefined types: ; CODE-DELETION-NOTE COMPILER-NOTE ; caught 3 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/target-allocate.lisp-obj-tmp written ; compilation finished in 0:00:00.021 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/misc-aliens.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DECLAIM (INLINE MEMMOVE)) ; x-compiling (DEFINE-ALIEN-ROUTINE ("memmove" MEMMOVE) ...) /entering WITH-ALIEN BINDINGS=((MEMMOVE (FUNCTION VOID (* CHAR) (* CHAR) UNSIGNED-INT) :EXTERN "memmove")) /BINDING=(MEMMOVE (FUNCTION VOID (* CHAR) (* CHAR) UNSIGNED-INT) :EXTERN "memmove") /SYMBOL=MEMMOVE TYPE=(FUNCTION VOID (* CHAR) (* CHAR) UNSIGNED-INT) OPT1=:EXTERN OPT2="memmove" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="memmove" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((MEMMOVE #)) (ALIEN-FUNCALL MEMMOVE DEST SRC N) (VALUES NIL))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; x-compiling (DEFINE-ALIEN-ROUTINE ("os_get_errno" GET-ERRNO) ...) /entering WITH-ALIEN BINDINGS=((GET-ERRNO #'INTEGER :EXTERN "os_get_errno")) /BINDING=(GET-ERRNO #'INTEGER :EXTERN "os_get_errno") /SYMBOL=GET-ERRNO TYPE=#'INTEGER OPT1=:EXTERN OPT2="os_get_errno" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="os_get_errno" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((GET-ERRNO #)) (VALUES (ALIEN-FUNCALL GET-ERRNO)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; x-compiling (SETF (FDOCUMENTATION # ...) ...) ; x-compiling (DEFUN STRERROR ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/misc-aliens.lisp ; in: SETF (FDOCUMENTATION 'GET-ERRNO 'FUNCTION) ; (SETF (SB!KERNEL:FDOCUMENTATION 'SB!ALIEN:GET-ERRNO 'FUNCTION) ; "Return the value of the C library pseudo-variable named \"errno\".") ; --> LET* LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!KERNEL:FDOCUMENTATION) #:NEW15 'SB!ALIEN:GET-ERRNO ; 'FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: (SETF FDOCUMENTATION) ; in: DEFUN STRERROR ; (SB!ALIEN:ALIEN-FUNCALL ; (SB!ALIEN:EXTERN-ALIEN "strerror" (FUNCTION SB!ALIEN:C-STRING SB!ALIEN:INT)) ; SB!IMPL::ERRNO) ; --> SB!ALIEN-INTERNALS:INVOKE-WITH-SAVED-FP-AND-PC LAMBDA FUNCTION ; ==> ; (SB!ALIEN-INTERNALS:NATURALIZE ; (LET ((#:G5601 (SB!ALIEN-INTERNALS:DEPORT-ALLOC #:G5601 '#))) ; (SB!ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS (#:G5601) ; (#) ; (SB!C:%ALIEN-FUNCALL (SB!ALIEN-INTERNALS:DEPORT FUNCTION '#) ; '# ; (SB!ALIEN-INTERNALS:DEPORT #:G5601 '#)))) ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE ; ; caught STYLE-WARNING: ; undefined function: SB!ALIEN::C-STRING-EXTERNAL-FORMAT ; (DEFUN SB!INT:STRERROR (&OPTIONAL (SB!IMPL::ERRNO (SB!ALIEN:GET-ERRNO))) ; (SB!ALIEN:ALIEN-FUNCALL ; (SB!ALIEN:EXTERN-ALIEN "strerror" ; (FUNCTION SB!ALIEN:C-STRING SB!ALIEN:INT)) ; SB!IMPL::ERRNO)) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION LET ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!IMPL::ERRNO) {C629001}> ; #:G16)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFINE-ALIEN-ROUTINE ("memmove" MEMMOVE) ; (SB!ALIEN:DEFINE-ALIEN-ROUTINE ("memmove" SB!SYS:MEMMOVE) SB!ALIEN:VOID ; (SB!IMPL::DEST (* CHAR)) (SB!IMPL::SRC (* CHAR)) ; (SB!IMPL::N SB!ALIEN:UNSIGNED-INT)) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK SB!ALIEN:WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET ; --> SYMBOL-MACROLET ; ==> ; (SB!ALIEN:ALIEN-FUNCALL SB!SYS:MEMMOVE SB!IMPL::DEST SB!IMPL::SRC SB!IMPL::N) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN STRERROR ; (SB!ALIEN:ALIEN-FUNCALL ; (SB!ALIEN:EXTERN-ALIEN "strerror" (FUNCTION SB!ALIEN:C-STRING SB!ALIEN:INT)) ; SB!IMPL::ERRNO) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFINE-ALIEN-ROUTINE ("os_get_errno" GET-ERRNO) ; (SB!ALIEN:DEFINE-ALIEN-ROUTINE ("os_get_errno" SB!ALIEN:GET-ERRNO) INTEGER) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK SB!ALIEN:WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET ; --> SYMBOL-MACROLET VALUES PROG1 LET ; ==> ; (SB!ALIEN:ALIEN-FUNCALL SB!ALIEN:GET-ERRNO) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFINE-ALIEN-ROUTINE ("memmove" MEMMOVE) ; (SB!ALIEN:DEFINE-ALIEN-ROUTINE ("memmove" SB!SYS:MEMMOVE) SB!ALIEN:VOID ; (SB!IMPL::DEST (* CHAR)) (SB!IMPL::SRC (* CHAR)) ; (SB!IMPL::N SB!ALIEN:UNSIGNED-INT)) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK SB!ALIEN:WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET ; --> SYMBOL-MACROLET ; ==> ; (SB!ALIEN:ALIEN-FUNCALL SB!SYS:MEMMOVE SB!IMPL::DEST SB!IMPL::SRC SB!IMPL::N) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; ; compilation unit finished ; Undefined types: ; CODE-DELETION-NOTE COMPILER-NOTE ; Undefined functions: ; (SETF FDOCUMENTATION) SB!ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE SB!ALIEN::C-STRING-EXTERNAL-FORMAT ; caught 8 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/misc-aliens.lisp-obj-tmp written ; compilation finished in 0:00:00.038 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/typedefs.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS) ; x-compiling (DEFMACRO !DEF-TYPE-TRANSLATOR ...) ; x-compiling (DEFCONSTANT +CTYPE-HASH-MASK+ ...) ; x-compiling (DEF!STRUCT (CTYPE # ...) ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFCONSTANT +TYPE-ADMITS-TYPE=-OPTIMIZATION+ ...) ; x-compiling (DEFUN MARK-CTYPE-INTERNED ...) ; x-compiling (DECLAIM (INLINE TYPE-MIGHT-CONTAIN-OTHER-TYPES-P)) ; x-compiling (DEFUN TYPE-MIGHT-CONTAIN-OTHER-TYPES-P ...) ; x-compiling (DECLAIM (INLINE TYPE-ENUMERABLE)) ; x-compiling (DEFUN TYPE-ENUMERABLE ...) ; x-compiling (DEFUN MAKE-TYPE-LOAD-FORM ...) ; x-compiling (DEFUN HIERARCHICAL-INTERSECTION2 ...) ; x-compiling (DEFUN HIERARCHICAL-UNION2 ...) ; x-compiling (DECLAIM (INLINE TYPE-CACHE-HASH)) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN TYPE-CACHE-HASH ...) ; x-compiling (DECLAIM (INLINE TYPE-LIST-CACHE-HASH)) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN TYPE-LIST-CACHE-HASH ...) ; x-compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !TYPEDEFS-COLD-INIT) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/typedefs.lisp ; in: ; DEF!STRUCT (CTYPE (:CONC-NAME TYPE-) (:CONSTRUCTOR NIL) ; (:MAKE-LOAD-FORM-FUN MAKE-TYPE-LOAD-FORM) (:PURE T)) ; (SB!INT:DEF!STRUCT ; (SB!KERNEL:CTYPE (:CONC-NAME SB!KERNEL::TYPE-) (:CONSTRUCTOR NIL) ; (:MAKE-LOAD-FORM-FUN SB!KERNEL::MAKE-TYPE-LOAD-FORM) (:PURE T)) ; (SB!KERNEL::CLASS-INFO (SB!INT:MISSING-ARG) :TYPE SB!KERNEL::TYPE-CLASS) ; (SB!KERNEL::HASH-VALUE ; (SB!IMPL::QUASI-RANDOM-ADDRESS-BASED-HASH SB!KERNEL::*CTYPE-HASH-STATE* ; SB!KERNEL::+CTYPE-HASH-MASK+) ; :TYPE (SIGNED-BYTE 30) :READ-ONLY NIL)) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: %TARGET-DEFSTRUCT ; --> PROGN DEFSTRUCT PROGN LOCALLY SETF LET* LET* MULTIPLE-VALUE-BIND LET ; --> FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!KERNEL:LAYOUT-PURE) #:NEW72 #:G73) ; ; caught STYLE-WARNING: ; undefined function: (SETF LAYOUT-PURE) ; --> PROGN DEFSTRUCT PROGN LOCALLY SETF LET* LET* ; ==> ; (SB!KERNEL:CLASSOID-LAYOUT (SB!KERNEL:FIND-CLASSOID 'SB!KERNEL:CTYPE)) ; ; caught STYLE-WARNING: ; undefined function: CLASSOID-LAYOUT ; in: DEFUN HIERARCHICAL-INTERSECTION2 ; (MULTIPLE-VALUE-BIND (SB!KERNEL::SUBTYPEP2 SB!KERNEL::WIN2) ; (SB!KERNEL:CSUBTYPEP SB!KERNEL::TYPE2 SB!KERNEL::TYPE1) ; (COND (SB!KERNEL::SUBTYPEP1 SB!KERNEL::TYPE1) ; (SB!KERNEL::SUBTYPEP2 SB!KERNEL::TYPE2) ; ((AND SB!KERNEL::WIN1 SB!KERNEL::WIN2) SB!KERNEL:*EMPTY-TYPE*) ; (T NIL))) ; --> MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!KERNEL::SUBTYPEP2 SB!KERNEL::WIN2 #:G96) {CAAE729}> ; SB!KERNEL::SUBTYPEP2 SB!KERNEL::WIN2 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFMACRO !DEF-TYPE-TRANSLATOR ; (MULTIPLE-VALUE-BIND (SB!KERNEL::WHOLE SB!KERNEL::WHOLELESS-ARGLIST) ; (IF (EQ '&WHOLE (CAR SB!KERNEL::ARGLIST)) ; (VALUES (CADR SB!KERNEL::ARGLIST) (CDDR SB!KERNEL::ARGLIST)) ; (VALUES (SB-XC:GENSYM) SB!KERNEL::ARGLIST)) ; (MULTIPLE-VALUE-BIND (SB!KERNEL::FORMS SB!KERNEL::DECLS) ; (SB!INT:PARSE-BODY SB!KERNEL::BODY :DOC-STRING-ALLOWED NIL) ; (SB!INT:QUASIQUOTE ; (PROGN ; (SB!INT:!COLD-INIT-FORMS #) ; '#S(SB!IMPL::COMMA :EXPR SB!KERNEL::NAME :KIND 0))))) ; --> MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!KERNEL::WHOLE SB!KERNEL::WHOLELESS-ARGLIST #:G1) {C799131}> ; SB!KERNEL::WHOLE SB!KERNEL::WHOLELESS-ARGLIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; (MULTIPLE-VALUE-BIND (SB!KERNEL::FORMS SB!KERNEL::DECLS) ; (SB!INT:PARSE-BODY SB!KERNEL::BODY :DOC-STRING-ALLOWED NIL) ; (SB!INT:QUASIQUOTE ; (PROGN ; (SB!INT:!COLD-INIT-FORMS ; (LET # ; # ; #)) ; '#S(SB!IMPL::COMMA :EXPR SB!KERNEL::NAME :KIND 0)))) ; --> MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!KERNEL::FORMS SB!KERNEL::DECLS #:G2) {C799AA9}> ; SB!KERNEL::FORMS SB!KERNEL::DECLS NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 1 more use of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/typedefs.lisp ; in: DEFUN HIERARCHICAL-UNION2 ; (SB!KERNEL:CSUBTYPEP SB!KERNEL::TYPE1 SB!KERNEL::TYPE2) ; ; caught STYLE-WARNING: ; undefined function: CSUBTYPEP ; in: DEFUN HIERARCHICAL-INTERSECTION2 ; (SB!KERNEL:CSUBTYPEP SB!KERNEL::TYPE2 SB!KERNEL::TYPE1) ; ; caught STYLE-WARNING: ; undefined function: CSUBTYPEP ; in: DEFUN MAKE-TYPE-LOAD-FORM ; (SB!INT:QUASIQUOTE ; (SB!KERNEL:SPECIFIER-TYPE ; '#S(SB!IMPL::COMMA :EXPR (SB!KERNEL:TYPE-SPECIFIER TYPE) :KIND 0))) ; --> SB!IMPL::|List| SB!IMPL::|List| ; ==> ; (SB!KERNEL:TYPE-SPECIFIER TYPE) ; ; caught STYLE-WARNING: ; undefined function: TYPE-SPECIFIER ; ; compilation unit finished ; Undefined type: ; CODE-DELETION-NOTE ; Undefined functions: ; %TARGET-DEFSTRUCT (SETF LAYOUT-PURE) CLASSOID-LAYOUT CSUBTYPEP TYPE-SPECIFIER ; caught 10 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/typedefs.lisp-obj-tmp written ; compilation finished in 0:00:00.082 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/vm-array.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFSTRUCT (SPECIALIZED-ARRAY-ELEMENT-TYPE-PROPERTIES # ...) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/vm-array.lisp ; in: DEFSTRUCT SPECIALIZED-ARRAY-ELEMENT-TYPE-PROPERTIES ; (DEFSTRUCT ; (SB!VM::SPECIALIZED-ARRAY-ELEMENT-TYPE-PROPERTIES ; (:CONC-NAME SB!VM::SAETP-) ; (:CONSTRUCTOR SB!VM::!MAKE-SAETP ; (SB!VM::SPECIFIER SB!VM::INITIAL-ELEMENT-DEFAULT SB!VM::N-BITS ; SB!C:PRIMITIVE-TYPE-NAME &KEY (SB!VM::N-PAD-ELEMENTS 0) ; SB!VM::COMPLEX-TYPECODE (SB!VM::IMPORTANCE 0) SB!VM::FIXNUM-P &AUX ; (SB!VM::TYPECODE #))) ; (:COPIER NIL)) ; (SB!VM::SPECIFIER (SB!INT:MISSING-ARG) :TYPE SB!KERNEL:TYPE-SPECIFIER ; :READ-ONLY T) ; (SB!KERNEL:CTYPE NIL :TYPE (OR SB!KERNEL:CTYPE NULL)) ; (SB!VM::FIXNUM-P NIL :TYPE BOOLEAN :READ-ONLY T) ; (SB!VM::INITIAL-ELEMENT-DEFAULT (SB!INT:MISSING-ARG) :READ-ONLY T) ; (SB!VM::N-BITS (SB!INT:MISSING-ARG) :TYPE SB!INT:INDEX :READ-ONLY T) ; (SB!VM::TYPECODE (SB!INT:MISSING-ARG) :TYPE SB!INT:INDEX :READ-ONLY T) ; (SB!VM::COMPLEX-TYPECODE NIL :TYPE (OR SB!INT:INDEX NULL) :READ-ONLY T) ; (SB!C:PRIMITIVE-TYPE-NAME (SB!INT:MISSING-ARG) :TYPE SYMBOL :READ-ONLY T) ; (SB!VM::N-PAD-ELEMENTS (SB!INT:MISSING-ARG) :TYPE SB!INT:INDEX :READ-ONLY ; T) ; (SB!VM::IMPORTANCE (SB!INT:MISSING-ARG) :TYPE FIXNUM :READ-ONLY T)) ; ; caught STYLE-WARNING: ; redefining SB!VM::SPECIALIZED-ARRAY-ELEMENT-TYPE-PROPERTIES-P in DEFUN ; ; caught STYLE-WARNING: ; redefining SB!VM:SAETP-SPECIFIER in DEFUN ; ; caught STYLE-WARNING: ; redefining SB!VM:SAETP-CTYPE in DEFUN ; ; caught STYLE-WARNING: ; redefining (COMMON-LISP:SETF SB!VM:SAETP-CTYPE) in DEFUN ; ; caught STYLE-WARNING: ; redefining SB!VM:SAETP-FIXNUM-P in DEFUN ; ; caught STYLE-WARNING: ; redefining SB!VM:SAETP-INITIAL-ELEMENT-DEFAULT in DEFUN ; ; caught STYLE-WARNING: ; redefining SB!VM:SAETP-N-BITS in DEFUN ; ; caught STYLE-WARNING: ; redefining SB!VM:SAETP-TYPECODE in DEFUN ; ; caught STYLE-WARNING: ; redefining SB!VM:SAETP-COMPLEX-TYPECODE in DEFUN ; ; caught STYLE-WARNING: ; redefining SB!VM:SAETP-PRIMITIVE-TYPE-NAME in DEFUN ; ; caught STYLE-WARNING: ; redefining SB!VM:SAETP-N-PAD-ELEMENTS in DEFUN ; ; caught STYLE-WARNING: ; redefining SB!VM:SAETP-IMPORTANCE in DEFUN ; ; caught STYLE-WARNING: ; redefining SB!VM::!MAKE-SAETP in DEFUN ; x-compiling (DEFGLOBAL *SPECIALIZED-ARRAY-ELEMENT-TYPE-PROPERTIES* ...) ; x-compiling (PROCLAIM (QUASIQUOTE #)) ; x-compiling (DEFUN VALID-BIT-BASH-SAETP-P ...) ; x-compiling (DEFVAR SB!KERNEL::*SPECIALIZED-ARRAY-ELEMENT-TYPES* ...) ; x-compiling (DEFUN !VM-TYPE-COLD-INIT ...) ; x-compiling (DEFVAR *SIMPLE-ARRAY-PRIMITIVE-TYPES* ...) ; x-compiling (DEFVAR *VECTOR-WITHOUT-COMPLEX-TYPECODE-INFOS* ...) ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFUN FIND-SAETP ...) ; x-compiling (DEFUN FIND-SAETP-BY-CTYPE ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/vm-array.lisp ; in: DEFGLOBAL SB!VM:*SPECIALIZED-ARRAY-ELEMENT-TYPE-PROPERTIES* ; (SB!EXT:DEFGLOBAL SB!VM:*SPECIALIZED-ARRAY-ELEMENT-TYPE-PROPERTIES* ; (MAP 'SIMPLE-VECTOR ; (LAMBDA (SB!VM::ARGS) ; (APPLY #'SB!VM::!MAKE-SAETP SB!VM::ARGS)) ; (SB!INT:QUASIQUOTE ; ((NIL #:MU 0 SB!VM::SIMPLE-ARRAY-NIL ; :COMPLEX-TYPECODE 238 :IMPORTANCE 0) ; (BASE-CHAR # 8 SIMPLE-BASE-STRING :N-PAD-ELEMENTS 1 ; :COMPLEX-TYPECODE 234 :IMPORTANCE 17) ; (CHARACTER # 32 SB!VM::SIMPLE-CHARACTER-STRING ; :N-PAD-ELEMENTS 1 :COMPLEX-TYPECODE 230 ; :IMPORTANCE 17) ; (SINGLE-FLOAT 0.0 32 ; SB!VM::SIMPLE-ARRAY-SINGLE-FLOAT :IMPORTANCE 6) ; (DOUBLE-FLOAT 0.0d0 64 ; SB!VM::SIMPLE-ARRAY-DOUBLE-FLOAT :IMPORTANCE 5) ; (BIT 0 1 SIMPLE-BIT-VECTOR :COMPLEX-TYPECODE 242 ; :IMPORTANCE 16) ; (# 0 2 SB!VM::SIMPLE-ARRAY-UNSIGNED-BYTE-2 ; :IMPORTANCE 15) ; (# 0 4 SB!VM::SIMPLE-ARRAY-UNSIGNED-BYTE-4 ; :IMPORTANCE 14) ; (# 0 8 SB!VM::SIMPLE-ARRAY-UNSIGNED-BYTE-7 ; :IMPORTANCE 13) ; (# 0 8 SB!VM::SIMPLE-ARRAY-UNSIGNED-BYTE-8 ; :IMPORTANCE 13) ; (# 0 16 SB!VM::SIMPLE-ARRAY-UNSIGNED-BYTE-15 ; :IMPORTANCE 12) ; (# 0 16 SB!VM::SIMPLE-ARRAY-UNSIGNED-BYTE-16 ; :IMPORTANCE 12) ; ...)))) ; --> PROGN LET LET ; ==> ; (SB!IMPL::%DEFGLOBAL 'SB!VM:*SPECIALIZED-ARRAY-ELEMENT-TYPE-PROPERTIES* ; (UNLESS #:BOUNDP ; (MAP 'SIMPLE-VECTOR ; (LAMBDA (SB!VM::ARGS) ; (APPLY #'SB!VM::!MAKE-SAETP SB!VM::ARGS)) ; (SB!INT:QUASIQUOTE ; (# # # # # # # # # # # # ...)))) ; #:BOUNDP 'NIL NIL (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::%DEFGLOBAL ; in: DEFSTRUCT SB!VM::SPECIALIZED-ARRAY-ELEMENT-TYPE-PROPERTIES ; (DEFSTRUCT ; (SB!VM::SPECIALIZED-ARRAY-ELEMENT-TYPE-PROPERTIES ; (:CONC-NAME SB!VM::SAETP-) ; (:CONSTRUCTOR SB!VM::!MAKE-SAETP ; (SB!VM::SPECIFIER SB!VM::INITIAL-ELEMENT-DEFAULT SB!VM::N-BITS ; SB!C:PRIMITIVE-TYPE-NAME &KEY (SB!VM::N-PAD-ELEMENTS 0) ; SB!VM::COMPLEX-TYPECODE (SB!VM::IMPORTANCE 0) SB!VM::FIXNUM-P &AUX ; (SB!VM::TYPECODE #))) ; (:COPIER NIL)) ; (SB!VM::SPECIFIER (SB!INT:MISSING-ARG) :TYPE SB!KERNEL:TYPE-SPECIFIER ; :READ-ONLY T) ; (SB!KERNEL:CTYPE NIL :TYPE (OR SB!KERNEL:CTYPE NULL)) ; (SB!VM::FIXNUM-P NIL :TYPE BOOLEAN :READ-ONLY T) ; (SB!VM::INITIAL-ELEMENT-DEFAULT (SB!INT:MISSING-ARG) :READ-ONLY T) ; (SB!VM::N-BITS (SB!INT:MISSING-ARG) :TYPE SB!INT:INDEX :READ-ONLY T) ; (SB!VM::TYPECODE (SB!INT:MISSING-ARG) :TYPE SB!INT:INDEX :READ-ONLY T) ; (SB!VM::COMPLEX-TYPECODE NIL :TYPE (OR SB!INT:INDEX NULL) :READ-ONLY T) ; (SB!C:PRIMITIVE-TYPE-NAME (SB!INT:MISSING-ARG) :TYPE SYMBOL :READ-ONLY T) ; (SB!VM::N-PAD-ELEMENTS (SB!INT:MISSING-ARG) :TYPE SB!INT:INDEX :READ-ONLY ; T) ; (SB!VM::IMPORTANCE (SB!INT:MISSING-ARG) :TYPE FIXNUM :READ-ONLY T)) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: DEFVAR SB!KERNEL::*SPECIALIZED-ARRAY-ELEMENT-TYPES* ; (MAP 'LIST #'SB!VM:SAETP-SPECIFIER ; SB!VM:*SPECIALIZED-ARRAY-ELEMENT-TYPE-PROPERTIES*) ; --> SB!EXT:TRULY-THE ; ==> ; (SB!KERNEL:%MAP SB!C::RESULT-TYPE-ARG SB!C::FUN #:G107) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFGLOBAL SB!VM:*SPECIALIZED-ARRAY-ELEMENT-TYPE-PROPERTIES* ; (MAP 'SIMPLE-VECTOR ; (LAMBDA (SB!VM::ARGS) (APPLY #'SB!VM::!MAKE-SAETP SB!VM::ARGS)) ; (SB!INT:QUASIQUOTE ; ((NIL #:MU 0 SB!VM::SIMPLE-ARRAY-NIL :COMPLEX-TYPECODE 238 :IMPORTANCE ; 0) ; (BASE-CHAR #S(SB!IMPL::COMMA :EXPR # :KIND 0) 8 SIMPLE-BASE-STRING ; :N-PAD-ELEMENTS 1 :COMPLEX-TYPECODE 234 :IMPORTANCE 17) ; (CHARACTER #S(SB!IMPL::COMMA :EXPR # :KIND 0) 32 ; SB!VM::SIMPLE-CHARACTER-STRING :N-PAD-ELEMENTS 1 ; :COMPLEX-TYPECODE 230 :IMPORTANCE 17) ; (SINGLE-FLOAT 0.0 32 SB!VM::SIMPLE-ARRAY-SINGLE-FLOAT :IMPORTANCE 6) ; (DOUBLE-FLOAT 0.0d0 64 SB!VM::SIMPLE-ARRAY-DOUBLE-FLOAT :IMPORTANCE 5) ; (BIT 0 1 SIMPLE-BIT-VECTOR :COMPLEX-TYPECODE 242 :IMPORTANCE 16) ; ((UNSIGNED-BYTE 2) 0 2 SB!VM::SIMPLE-ARRAY-UNSIGNED-BYTE-2 :IMPORTANCE ; 15) ; ((UNSIGNED-BYTE 4) 0 4 SB!VM::SIMPLE-ARRAY-UNSIGNED-BYTE-4 :IMPORTANCE ; 14) ; ((UNSIGNED-BYTE 7) 0 8 SB!VM::SIMPLE-ARRAY-UNSIGNED-BYTE-7 :IMPORTANCE ; 13) ; ((UNSIGNED-BYTE 8) 0 8 SB!VM::SIMPLE-ARRAY-UNSIGNED-BYTE-8 :IMPORTANCE ; 13) ; ((UNSIGNED-BYTE 15) 0 16 SB!VM::SIMPLE-ARRAY-UNSIGNED-BYTE-15 ; :IMPORTANCE 12) ; ((UNSIGNED-BYTE 16) 0 16 SB!VM::SIMPLE-ARRAY-UNSIGNED-BYTE-16 ; :IMPORTANCE 12) ; ...))) ; --> SB!EXT:TRULY-THE ; ==> ; (SB!KERNEL:%MAP SB!C::RESULT-TYPE-ARG SB!C::FUN #:G95) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFSTRUCT SB!VM::SPECIALIZED-ARRAY-ELEMENT-TYPE-PROPERTIES ; (DEFSTRUCT ; (SB!VM::SPECIALIZED-ARRAY-ELEMENT-TYPE-PROPERTIES ; (:CONC-NAME SB!VM::SAETP-) ; (:CONSTRUCTOR SB!VM::!MAKE-SAETP ; (SB!VM::SPECIFIER SB!VM::INITIAL-ELEMENT-DEFAULT SB!VM::N-BITS ; SB!C:PRIMITIVE-TYPE-NAME &KEY (SB!VM::N-PAD-ELEMENTS 0) ; SB!VM::COMPLEX-TYPECODE (SB!VM::IMPORTANCE 0) SB!VM::FIXNUM-P &AUX ; (SB!VM::TYPECODE #))) ; (:COPIER NIL)) ; (SB!VM::SPECIFIER (SB!INT:MISSING-ARG) :TYPE SB!KERNEL:TYPE-SPECIFIER ; :READ-ONLY T) ; (SB!KERNEL:CTYPE NIL :TYPE (OR SB!KERNEL:CTYPE NULL)) ; (SB!VM::FIXNUM-P NIL :TYPE BOOLEAN :READ-ONLY T) ; (SB!VM::INITIAL-ELEMENT-DEFAULT (SB!INT:MISSING-ARG) :READ-ONLY T) ; (SB!VM::N-BITS (SB!INT:MISSING-ARG) :TYPE SB!INT:INDEX :READ-ONLY T) ; (SB!VM::TYPECODE (SB!INT:MISSING-ARG) :TYPE SB!INT:INDEX :READ-ONLY T) ; (SB!VM::COMPLEX-TYPECODE NIL :TYPE (OR SB!INT:INDEX NULL) :READ-ONLY T) ; (SB!C:PRIMITIVE-TYPE-NAME (SB!INT:MISSING-ARG) :TYPE SYMBOL :READ-ONLY T) ; (SB!VM::N-PAD-ELEMENTS (SB!INT:MISSING-ARG) :TYPE SB!INT:INDEX :READ-ONLY ; T) ; (SB!VM::IMPORTANCE (SB!INT:MISSING-ARG) :TYPE FIXNUM :READ-ONLY T)) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!VM::SPECIFIER SB!VM::INITIAL-ELEMENT-DEFAULT SB!VM::N-BITS ; SB!C:PRIMITIVE-TYPE-NAME #:.DEFAULTING-TEMP. #:.DEFAULTING-TEMP. ; #:.DEFAULTING-TEMP. #:.DEFAULTING-TEMP.) ; {D30C679}> ; SB!VM::SPECIFIER SB!VM::INITIAL-ELEMENT-DEFAULT SB!VM::N-BITS ; SB!C:PRIMITIVE-TYPE-NAME 0 NIL 0 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 1 more use of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/vm-array.lisp ; in: DEFUN FIND-SAETP-BY-CTYPE ; #'SB!KERNEL:CSUBTYPEP ; ; caught STYLE-WARNING: ; undefined function: CSUBTYPEP ; ; compilation unit finished ; Undefined type: ; CODE-DELETION-NOTE ; Undefined functions: ; SB!IMPL::%DEFGLOBAL SB!KERNEL::%TARGET-DEFSTRUCT CSUBTYPEP ; caught 20 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/generic/vm-array.lisp-obj-tmp written ; compilation finished in 0:00:00.156 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/array.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DECLAIM (INLINE ADJUSTABLE-ARRAY-P ...)) ; x-compiling (DEF %ARRAY-FILL-POINTER) ; x-compiling (DEF %ARRAY-FILL-POINTER-P) ; x-compiling (DEF %ARRAY-AVAILABLE-ELEMENTS) ; x-compiling (DEF %ARRAY-DATA-VECTOR) ; x-compiling (DEF %ARRAY-DISPLACEMENT) ; x-compiling (DEF %ARRAY-DISPLACED-P) ; x-compiling (DEF %ARRAY-DIPLACED-FROM) ; x-compiling (DEFUN %ARRAY-RANK ...) ; x-compiling (DEFUN %ARRAY-DIMENSION ...) ; x-compiling (DEFUN %SET-ARRAY-DIMENSION ...) ; x-compiling (DEFUN %CHECK-BOUND ...) ; x-compiling (DEFUN %WITH-ARRAY-DATA/FP ...) ; x-compiling (DEFUN %WITH-ARRAY-DATA ...) ; x-compiling (DEFUN %DATA-VECTOR-AND-INDEX ...) ; x-compiling (DEFUN %INTEGER-VECTOR-WIDETAG-AND-N-BITS ...) ; x-compiling (DEFUN %VECTOR-WIDETAG-AND-N-BITS ...) ; x-compiling (DEFUN %COMPLEX-VECTOR-WIDETAG ...) ; x-compiling (DEFGLOBAL %%SIMPLE-ARRAY-N-BITS%% ...) ; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...) ; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...) ; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...) ; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...) ; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...) ; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...) ; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...) ; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...) ; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...) ; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...) ; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...) ; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...) ; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...) ; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...) ; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...) ; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...) ; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...) ; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...) ; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...) ; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...) ; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...) ; x-compiling (SETF (AREF %%SIMPLE-ARRAY-N-BITS%% ...) ...) ; x-compiling (DECLAIM (TYPE # ...)) ; x-compiling (DEFUN ALLOCATE-VECTOR-WITH-WIDETAG ...) ; x-compiling (DEFUN ARRAY-UNDERLYING-WIDETAG ...) ; x-compiling (DEFUN VALIDATE-ARRAY-INITARGS ...) ; x-compiling (DEFUN %MAKE-ARRAY ...) ; x-compiling (DEFUN MAKE-ARRAY ...) ; x-compiling (DEFUN MAKE-STATIC-VECTOR ...) ; x-compiling (DEFUN DATA-VECTOR-FROM-INITS ...) ; x-compiling (DEFUN VECTOR ...) ; x-compiling (DEF !FIND-DATA-VECTOR-SETTER ...) ; x-compiling (DEF !FIND-DATA-VECTOR-SETTER/CHECK-BOUNDS ...) ; x-compiling (DEF %FIND-DATA-VECTOR-REFFER ...) ; x-compiling (DEF !FIND-DATA-VECTOR-REFFER/CHECK-BOUNDS ...) ; x-compiling (DEFMACRO DO-VECTOR-DATA ...) ; x-compiling (DEFINE HAIRY-DATA-VECTOR-REF ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/array.lisp ; in: DEFINE HAIRY-DATA-VECTOR-REF ; (SB!IMPL::DEFINE SB!KERNEL:HAIRY-DATA-VECTOR-REF ; SB!IMPL::SLOW-HAIRY-DATA-VECTOR-REF SB!IMPL::%FIND-DATA-VECTOR-REFFER NIL ; (PROGN)) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK IF SB!KERNEL:WITH-ARRAY-DATA LET LET LET ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB!KERNEL:%WITH-ARRAY-DATA-MACRO LET* ; ==> ; (ARRAY-TOTAL-SIZE #:N-ARRAY712) ; ; note: unable to optimize because: can't tell the rank at compile time ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK IF SB!KERNEL:WITH-ARRAY-DATA LET LET LET ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (SB!KERNEL:HAIRY-DATA-VECTOR-REF VECTOR SB!INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; x-compiling (DEFINE HAIRY-DATA-VECTOR-SET ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/array.lisp ; in: DEFINE HAIRY-DATA-VECTOR-SET ; (SB!IMPL::DEFINE SB!KERNEL:HAIRY-DATA-VECTOR-SET ; SB!IMPL::SLOW-HAIRY-DATA-VECTOR-SET SB!IMPL::!FIND-DATA-VECTOR-SETTER ; (SB!IMPL::NEW-VALUE) (PROGN)) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK IF SB!KERNEL:WITH-ARRAY-DATA LET LET LET ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB!KERNEL:%WITH-ARRAY-DATA-MACRO LET* ; ==> ; (ARRAY-TOTAL-SIZE #:N-ARRAY733) ; ; note: unable to optimize because: can't tell the rank at compile time ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK IF SB!KERNEL:WITH-ARRAY-DATA LET LET LET ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (SB!KERNEL:HAIRY-DATA-VECTOR-SET VECTOR SB!INT:INDEX SB!IMPL::NEW-VALUE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; x-compiling (DEFINE HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/array.lisp ; in: DEFINE HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ; (SB!IMPL::DEFINE SB!KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ; SB!IMPL::SLOW-HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ; SB!IMPL::!FIND-DATA-VECTOR-REFFER/CHECK-BOUNDS NIL ; (SB!KERNEL:%CHECK-BOUND ARRAY (ARRAY-DIMENSION ARRAY 0))) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK IF SB!KERNEL:WITH-ARRAY-DATA LET LET LET ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB!KERNEL:%WITH-ARRAY-DATA-MACRO LET* ; ==> ; (ARRAY-TOTAL-SIZE #:N-ARRAY754) ; ; note: unable to optimize because: can't tell the rank at compile time ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK IF SB!KERNEL:WITH-ARRAY-DATA LET LET LET ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION ; --> SB!KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS THE ; ==> ; (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY ; (SB!KERNEL:%CHECK-BOUND ARRAY (ARRAY-DIMENSION ARRAY 0) SB!INT:INDEX)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; x-compiling (DEFINE HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/array.lisp ; in: DEFINE HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS ; (SB!IMPL::DEFINE SB!KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS ; SB!IMPL::SLOW-HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS ; SB!IMPL::!FIND-DATA-VECTOR-SETTER/CHECK-BOUNDS (SB!IMPL::NEW-VALUE) ; (SB!KERNEL:%CHECK-BOUND ARRAY (ARRAY-DIMENSION ARRAY 0))) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK IF SB!KERNEL:WITH-ARRAY-DATA LET LET LET ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB!KERNEL:%WITH-ARRAY-DATA-MACRO LET* ; ==> ; (ARRAY-TOTAL-SIZE #:N-ARRAY776) ; ; note: unable to optimize because: can't tell the rank at compile time ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK IF SB!KERNEL:WITH-ARRAY-DATA LET LET LET ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION ; --> SB!KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS SB!EXT:TRULY-THE ; ==> ; (SB!KERNEL:HAIRY-DATA-VECTOR-SET ARRAY ; (SB!KERNEL:%CHECK-BOUND ARRAY (ARRAY-DIMENSION ARRAY 0) SB!INT:INDEX) ; (THE * SB!C::NEW-VALUE)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; x-compiling (DEFUN HAIRY-REF-ERROR ...) ; x-compiling (DEFUN !HAIRY-DATA-VECTOR-REFFER-INIT ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/array.lisp ; in: DEFUN !HAIRY-DATA-VECTOR-REFFER-INIT => DEFINE-REFFERS %%DATA-VECTOR-SETTERS%% ; (SB!IMPL::DEFINE-REFFERS SB!IMPL::%%DATA-VECTOR-SETTERS%% ; SB!IMPL::DEFINE-SETTER (PROGN) #'SB!IMPL::SLOW-HAIRY-DATA-VECTOR-SET) ; --> PROGN SETF SB!KERNEL:%SVSET LET SB!EXT:TRULY-THE ; --> SB!KERNEL:DATA-VECTOR-SET SB!KERNEL:DATA-VECTOR-SET-WITH-OFFSET THE ; --> SB!IMPL::DEFINE-SETTER SB!INT:NAMED-LAMBDA FUNCTION ; --> SB!KERNEL:DATA-VECTOR-SET ; ==> ; (SB!KERNEL:DATA-VECTOR-SET-WITH-OFFSET (THE (SIMPLE-ARRAY NIL (*)) VECTOR) ; (LOCALLY ; (DECLARE (OPTIMIZE (SAFETY 1))) ; (THE SB!INT:INDEX (PROGN SB!INT:INDEX))) ; 0 ; (LOCALLY ; (DECLARE (OPTIMIZE (SPEED 1) (SAFETY 1))) ; (THE NIL SB!IMPL::NEW-VALUE))) ; ; note: The fourth argument never returns a value. ; in: DEFUN !HAIRY-DATA-VECTOR-REFFER-INIT => DEFINE-REFFERS %%DATA-VECTOR-SETTERS/CHECK-BOUNDS%% ; (SB!IMPL::DEFINE-REFFERS SB!IMPL::%%DATA-VECTOR-SETTERS/CHECK-BOUNDS%% ; SB!IMPL::DEFINE-SETTER (SB!KERNEL:%CHECK-BOUND VECTOR (LENGTH VECTOR)) ; #'SB!IMPL::SLOW-HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS) ; --> PROGN SETF SB!KERNEL:%SVSET LET SB!EXT:TRULY-THE ; --> SB!KERNEL:DATA-VECTOR-SET SB!KERNEL:DATA-VECTOR-SET-WITH-OFFSET THE ; --> SB!IMPL::DEFINE-SETTER SB!INT:NAMED-LAMBDA FUNCTION ; --> SB!KERNEL:DATA-VECTOR-SET ; ==> ; (SB!KERNEL:DATA-VECTOR-SET-WITH-OFFSET (THE (SIMPLE-ARRAY NIL (*)) VECTOR) ; (LOCALLY ; (DECLARE (OPTIMIZE (SAFETY 1))) ; (THE SB!INT:INDEX ; (SB!KERNEL:%CHECK-BOUND VECTOR (LENGTH VECTOR) SB!INT:INDEX))) ; 0 ; (LOCALLY ; (DECLARE (OPTIMIZE (SPEED 1) (SAFETY 1))) ; (THE NIL SB!IMPL::NEW-VALUE))) ; ; note: The fourth argument never returns a value. ; in: DEFUN !HAIRY-DATA-VECTOR-REFFER-INIT => DEFINE-REFFERS %%DATA-VECTOR-REFFERS%% ; (SB!IMPL::DEFINE-REFFERS SB!IMPL::%%DATA-VECTOR-REFFERS%% ; SB!IMPL::DEFINE-REFFER (PROGN) #'SB!IMPL::SLOW-HAIRY-DATA-VECTOR-REF) ; --> PROGN SETF SB!KERNEL:%SVSET LET SB!EXT:TRULY-THE ; --> SB!KERNEL:DATA-VECTOR-SET SB!KERNEL:DATA-VECTOR-SET-WITH-OFFSET THE ; --> SB!IMPL::DEFINE-REFFER SB!INT:NAMED-LAMBDA ; ==> ; #'(SB!INT:NAMED-LAMBDA SB!IMPL::OPTIMIZED-DATA-VECTOR-REF ; (VECTOR SB!INT:INDEX) ; (DECLARE (OPTIMIZE SPEED (SAFETY 0)) ; (IGNORABLE SB!INT:INDEX)) ; (SB!KERNEL:DATA-VECTOR-REF (THE (SIMPLE-ARRAY SINGLE-FLOAT (*)) VECTOR) ; (LOCALLY ; (DECLARE (OPTIMIZE #)) ; (THE SB!INT:INDEX (PROGN SB!INT:INDEX))))) ; ; note: doing float to pointer coercion (cost 13) to "" ; ==> ; #'(SB!INT:NAMED-LAMBDA SB!IMPL::OPTIMIZED-DATA-VECTOR-REF ; (VECTOR SB!INT:INDEX) ; (DECLARE (OPTIMIZE SPEED (SAFETY 0)) ; (IGNORABLE SB!INT:INDEX)) ; (SB!KERNEL:DATA-VECTOR-REF (THE (SIMPLE-ARRAY DOUBLE-FLOAT (*)) VECTOR) ; (LOCALLY ; (DECLARE (OPTIMIZE #)) ; (THE SB!INT:INDEX (PROGN SB!INT:INDEX))))) ; ; note: doing float to pointer coercion (cost 13) to "" ; ==> ; #'(SB!INT:NAMED-LAMBDA SB!IMPL::OPTIMIZED-DATA-VECTOR-REF ; (VECTOR SB!INT:INDEX) ; (DECLARE (OPTIMIZE SPEED (SAFETY 0)) ; (IGNORABLE SB!INT:INDEX)) ; (SB!KERNEL:DATA-VECTOR-REF ; (THE (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)) VECTOR) ; (LOCALLY ; (DECLARE (OPTIMIZE #)) ; (THE SB!INT:INDEX (PROGN SB!INT:INDEX))))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; ==> ; #'(SB!INT:NAMED-LAMBDA SB!IMPL::OPTIMIZED-DATA-VECTOR-REF ; (VECTOR SB!INT:INDEX) ; (DECLARE (OPTIMIZE SPEED (SAFETY 0)) ; (IGNORABLE SB!INT:INDEX)) ; (SB!KERNEL:DATA-VECTOR-REF ; (THE (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)) VECTOR) ; (LOCALLY ; (DECLARE (OPTIMIZE #)) ; (THE SB!INT:INDEX (PROGN SB!INT:INDEX))))) ; ; note: doing unsigned word to integer coercion (cost 20) to "" ; ==> ; #'(SB!INT:NAMED-LAMBDA SB!IMPL::OPTIMIZED-DATA-VECTOR-REF ; (VECTOR SB!INT:INDEX) ; (DECLARE (OPTIMIZE SPEED (SAFETY 0)) ; (IGNORABLE SB!INT:INDEX)) ; (SB!KERNEL:DATA-VECTOR-REF ; (THE (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)) VECTOR) ; (LOCALLY ; (DECLARE (OPTIMIZE #)) ; (THE SB!INT:INDEX (PROGN SB!INT:INDEX))))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; ==> ; #'(SB!INT:NAMED-LAMBDA SB!IMPL::OPTIMIZED-DATA-VECTOR-REF ; (VECTOR SB!INT:INDEX) ; (DECLARE (OPTIMIZE SPEED (SAFETY 0)) ; (IGNORABLE SB!INT:INDEX)) ; (SB!KERNEL:DATA-VECTOR-REF ; (THE (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*)) VECTOR) ; (LOCALLY ; (DECLARE (OPTIMIZE #)) ; (THE SB!INT:INDEX (PROGN SB!INT:INDEX))))) ; ; note: doing complex float to pointer coercion (cost 13) to "" ; ==> ; #'(SB!INT:NAMED-LAMBDA SB!IMPL::OPTIMIZED-DATA-VECTOR-REF ; (VECTOR SB!INT:INDEX) ; (DECLARE (OPTIMIZE SPEED (SAFETY 0)) ; (IGNORABLE SB!INT:INDEX)) ; (SB!KERNEL:DATA-VECTOR-REF ; (THE (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT) (*)) VECTOR) ; (LOCALLY ; (DECLARE (OPTIMIZE #)) ; (THE SB!INT:INDEX (PROGN SB!INT:INDEX))))) ; ; note: doing complex float to pointer coercion (cost 13) to "" ; in: DEFUN !HAIRY-DATA-VECTOR-REFFER-INIT => DEFINE-REFFERS %%DATA-VECTOR-REFFERS/CHECK-BOUNDS%% ; (SB!IMPL::DEFINE-REFFERS SB!IMPL::%%DATA-VECTOR-REFFERS/CHECK-BOUNDS%% ; SB!IMPL::DEFINE-REFFER (SB!KERNEL:%CHECK-BOUND VECTOR (LENGTH VECTOR)) ; #'SB!IMPL::SLOW-HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS) ; --> PROGN SETF SB!KERNEL:%SVSET LET SB!EXT:TRULY-THE ; --> SB!KERNEL:DATA-VECTOR-SET SB!KERNEL:DATA-VECTOR-SET-WITH-OFFSET THE ; --> SB!IMPL::DEFINE-REFFER SB!INT:NAMED-LAMBDA ; ==> ; #'(SB!INT:NAMED-LAMBDA SB!IMPL::OPTIMIZED-DATA-VECTOR-REF ; (VECTOR SB!INT:INDEX) ; (DECLARE (OPTIMIZE SPEED (SAFETY 0)) ; (IGNORABLE SB!INT:INDEX)) ; (SB!KERNEL:DATA-VECTOR-REF (THE (SIMPLE-ARRAY SINGLE-FLOAT (*)) VECTOR) ; (LOCALLY ; (DECLARE (OPTIMIZE #)) ; (THE SB!INT:INDEX (SB!KERNEL:%CHECK-BOUND VECTOR # SB!INT:INDEX))))) ; ; note: doing float to pointer coercion (cost 13) to "" ; ==> ; #'(SB!INT:NAMED-LAMBDA SB!IMPL::OPTIMIZED-DATA-VECTOR-REF ; (VECTOR SB!INT:INDEX) ; (DECLARE (OPTIMIZE SPEED (SAFETY 0)) ; (IGNORABLE SB!INT:INDEX)) ; (SB!KERNEL:DATA-VECTOR-REF (THE (SIMPLE-ARRAY DOUBLE-FLOAT (*)) VECTOR) ; (LOCALLY ; (DECLARE (OPTIMIZE #)) ; (THE SB!INT:INDEX (SB!KERNEL:%CHECK-BOUND VECTOR # SB!INT:INDEX))))) ; ; note: doing float to pointer coercion (cost 13) to "" ; ==> ; #'(SB!INT:NAMED-LAMBDA SB!IMPL::OPTIMIZED-DATA-VECTOR-REF ; (VECTOR SB!INT:INDEX) ; (DECLARE (OPTIMIZE SPEED (SAFETY 0)) ; (IGNORABLE SB!INT:INDEX)) ; (SB!KERNEL:DATA-VECTOR-REF ; (THE (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)) VECTOR) ; (LOCALLY ; (DECLARE (OPTIMIZE #)) ; (THE SB!INT:INDEX (SB!KERNEL:%CHECK-BOUND VECTOR # SB!INT:INDEX))))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; ==> ; #'(SB!INT:NAMED-LAMBDA SB!IMPL::OPTIMIZED-DATA-VECTOR-REF ; (VECTOR SB!INT:INDEX) ; (DECLARE (OPTIMIZE SPEED (SAFETY 0)) ; (IGNORABLE SB!INT:INDEX)) ; (SB!KERNEL:DATA-VECTOR-REF ; (THE (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)) VECTOR) ; (LOCALLY ; (DECLARE (OPTIMIZE #)) ; (THE SB!INT:INDEX (SB!KERNEL:%CHECK-BOUND VECTOR # SB!INT:INDEX))))) ; ; note: doing unsigned word to integer coercion (cost 20) to "" ; ==> ; #'(SB!INT:NAMED-LAMBDA SB!IMPL::OPTIMIZED-DATA-VECTOR-REF ; (VECTOR SB!INT:INDEX) ; (DECLARE (OPTIMIZE SPEED (SAFETY 0)) ; (IGNORABLE SB!INT:INDEX)) ; (SB!KERNEL:DATA-VECTOR-REF ; (THE (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)) VECTOR) ; (LOCALLY ; (DECLARE (OPTIMIZE #)) ; (THE SB!INT:INDEX (SB!KERNEL:%CHECK-BOUND VECTOR # SB!INT:INDEX))))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; ==> ; #'(SB!INT:NAMED-LAMBDA SB!IMPL::OPTIMIZED-DATA-VECTOR-REF ; (VECTOR SB!INT:INDEX) ; (DECLARE (OPTIMIZE SPEED (SAFETY 0)) ; (IGNORABLE SB!INT:INDEX)) ; (SB!KERNEL:DATA-VECTOR-REF ; (THE (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*)) VECTOR) ; (LOCALLY ; (DECLARE (OPTIMIZE #)) ; (THE SB!INT:INDEX (SB!KERNEL:%CHECK-BOUND VECTOR # SB!INT:INDEX))))) ; ; note: doing complex float to pointer coercion (cost 13) to "" ; ==> ; #'(SB!INT:NAMED-LAMBDA SB!IMPL::OPTIMIZED-DATA-VECTOR-REF ; (VECTOR SB!INT:INDEX) ; (DECLARE (OPTIMIZE SPEED (SAFETY 0)) ; (IGNORABLE SB!INT:INDEX)) ; (SB!KERNEL:DATA-VECTOR-REF ; (THE (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT) (*)) VECTOR) ; (LOCALLY ; (DECLARE (OPTIMIZE #)) ; (THE SB!INT:INDEX (SB!KERNEL:%CHECK-BOUND VECTOR # SB!INT:INDEX))))) ; ; note: doing complex float to pointer coercion (cost 13) to "" ; x-compiling (DEFUN DATA-VECTOR-REF ...) ; x-compiling (DEFUN DATA-VECTOR-REF-WITH-OFFSET ...) ; x-compiling (DEFUN INVALID-ARRAY-P ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN INVALID-ARRAY-ERROR ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN INVALID-ARRAY-INDEX-ERROR ...) ; x-compiling (DEFUN %ARRAY-ROW-MAJOR-INDEX ...) ; x-compiling (DEFUN ARRAY-IN-BOUNDS-P ...) ; x-compiling (DEFUN ARRAY-ROW-MAJOR-INDEX ...) ; x-compiling (DEFUN AREF ...) ; x-compiling (DEFUN (SETF AREF) ...) ; x-compiling (DEFUN ROW-MAJOR-AREF ...) ; x-compiling (DEFUN %SET-ROW-MAJOR-AREF ...) ; x-compiling (DEFUN SVREF ...) ; x-compiling (DEFUN %SVSET ...) ; x-compiling (DEFUN BIT ...) ; x-compiling (DEFUN (SETF BIT) ...) ; x-compiling (DEFUN SBIT ...) ; x-compiling (DEFUN (SETF SBIT) ...) ; x-compiling (DEFUN ARRAY-ELEMENT-TYPE ...) ; x-compiling (DEFUN ARRAY-RANK ...) ; x-compiling (DEFUN ARRAY-DIMENSION ...) ; x-compiling (DEFUN ARRAY-DIMENSIONS ...) ; x-compiling (DEFUN ARRAY-TOTAL-SIZE ...) ; x-compiling (DEFUN ARRAY-DISPLACEMENT ...) ; x-compiling (DEFUN ADJUSTABLE-ARRAY-P ...) ; x-compiling (DECLAIM (INLINE ARRAY-HAS-FILL-POINTER-P)) ; x-compiling (DEFUN ARRAY-HAS-FILL-POINTER-P ...) ; x-compiling (DEFUN FILL-POINTER-ERROR ...) ; x-compiling (DECLAIM (INLINE FILL-POINTER)) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/array.lisp ; in: DECLAIM (INLINE FILL-POINTER) ; (DECLAIM (INLINE FILL-POINTER)) ; --> EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE FILL-POINTER)) ; ; caught STYLE-WARNING: ; Proclaiming COMMON-LISP:FILL-POINTER to be INLINE, but 1 call to it was ; previously compiled. A declaration of NOTINLINE at the call site will eliminate ; this warning, as will proclaiming and defining the function before its first ; potential use. ; x-compiling (DEFUN FILL-POINTER ...) ; x-compiling (DEFUN %SET-FILL-POINTER ...) ; x-compiling (DEFUN VECTOR-PUSH ...) ; x-compiling (DEFUN VECTOR-PUSH-EXTEND ...) ; x-compiling (DEFUN VECTOR-POP ...) ; x-compiling (DEFUN ADJUST-ARRAY ...) ; x-compiling (DEFUN GET-NEW-FILL-POINTER ...) ; x-compiling (DEFUN %SHRINK-VECTOR ...) ; x-compiling (DEFUN SHRINK-VECTOR ...) ; x-compiling (DEFUN %SAVE-DISPLACED-ARRAY-BACKPOINTER ...) ; x-compiling (DEFUN %WALK-DISPLACED-ARRAY-BACKPOINTERS ...) ; x-compiling (DEFUN SET-ARRAY-HEADER ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN ARRAY-STORAGE-VECTOR ...) ; x-compiling (DEFUN ZAP-ARRAY-DATA ...) ; x-compiling (DEFUN ZAP-ARRAY-DATA-AUX ...) ; x-compiling (DEFUN ROW-MAJOR-INDEX-FROM-DIMS ...) ; x-compiling (DEFUN BIT-ARRAY-SAME-DIMENSIONS-P ...) ; x-compiling (DEFUN PICK-RESULT-ARRAY ...) ; x-compiling (DEFMACRO DEF-BIT-ARRAY-OP ...) ; x-compiling (DEF-BIT-ARRAY-OP BIT-AND ...) ; x-compiling (DEF-BIT-ARRAY-OP BIT-IOR ...) ; x-compiling (DEF-BIT-ARRAY-OP BIT-XOR ...) ; x-compiling (DEF-BIT-ARRAY-OP BIT-EQV ...) ; x-compiling (DEF-BIT-ARRAY-OP BIT-NAND ...) ; x-compiling (DEF-BIT-ARRAY-OP BIT-NOR ...) ; x-compiling (DEF-BIT-ARRAY-OP BIT-ANDC1 ...) ; x-compiling (DEF-BIT-ARRAY-OP BIT-ANDC2 ...) ; x-compiling (DEF-BIT-ARRAY-OP BIT-ORC1 ...) ; x-compiling (DEF-BIT-ARRAY-OP BIT-ORC2 ...) ; x-compiling (DEFUN BIT-NOT ...) ; x-compiling (DEFMACRO DEFINE-ARRAY-DISPATCH ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/array.lisp ; in: DEF !FIND-DATA-VECTOR-SETTER/CHECK-BOUNDS ; (SB!IMPL::DEF SB!IMPL::!FIND-DATA-VECTOR-SETTER/CHECK-BOUNDS ; SB!IMPL::%%DATA-VECTOR-SETTERS/CHECK-BOUNDS%%) ; --> PROGN SB!EXT:DEFGLOBAL PROGN LET LET ; ==> ; (SB!IMPL::%DEFGLOBAL 'SB!IMPL::%%DATA-VECTOR-SETTERS/CHECK-BOUNDS%% ; (UNLESS #:BOUNDP (MAKE-ARRAY 256)) #:BOUNDP 'NIL NIL ; (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: %DEFGLOBAL ; in: DEF !FIND-DATA-VECTOR-SETTER ; (SB!IMPL::DEF SB!IMPL::!FIND-DATA-VECTOR-SETTER ; SB!IMPL::%%DATA-VECTOR-SETTERS%%) ; --> PROGN SB!EXT:DEFGLOBAL PROGN LET LET ; ==> ; (SB!IMPL::%DEFGLOBAL 'SB!IMPL::%%DATA-VECTOR-SETTERS%% ; (UNLESS #:BOUNDP (MAKE-ARRAY 256)) #:BOUNDP 'NIL NIL ; (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: %DEFGLOBAL ; in: DEFGLOBAL %%SIMPLE-ARRAY-N-BITS%% ; (SB!EXT:DEFGLOBAL SB!IMPL::%%SIMPLE-ARRAY-N-BITS%% ; (MAKE-ARRAY (1+ SB!VM:WIDETAG-MASK))) ; --> PROGN LET LET ; ==> ; (SB!IMPL::%DEFGLOBAL 'SB!IMPL::%%SIMPLE-ARRAY-N-BITS%% ; (UNLESS #:BOUNDP (MAKE-ARRAY (1+ SB!VM:WIDETAG-MASK))) ; #:BOUNDP 'NIL NIL (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: %DEFGLOBAL ; ; caught STYLE-WARNING: ; 2 more uses of undefined function %DEFGLOBAL ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/array.lisp ; in: DEFUN MAKE-STATIC-VECTOR ; (SB!KERNEL:ALLOCATE-STATIC-VECTOR TYPE LENGTH ; (CEILING (* LENGTH SB!IMPL::N-BITS) SB!VM:N-WORD-BITS)) ; ; caught STYLE-WARNING: ; undefined function: ALLOCATE-STATIC-VECTOR ; in: DEFUN %VECTOR-WIDETAG-AND-N-BITS ; (TYPECASE SB!KERNEL:CTYPE ; (SB!KERNEL:UNION-TYPE ; (LET ((SB!IMPL::TYPES #)) ; (COND (# #) (# #) (# #) (# #) (T #)))) ; (SB!KERNEL:CHARACTER-SET-TYPE ; (IF (LOOP SB!IMPL::FOR (SB!IMPL::START ; . SB!IMPL::END) SB!IMPL::IN (SB!KERNEL:CHARACTER-SET-TYPE-PAIRS ; SB!KERNEL:CTYPE) ; SB!IMPL::ALWAYS (AND # #)) ; (SB!IMPL::RESULT SB!VM:SIMPLE-BASE-STRING-WIDETAG) ; (SB!IMPL::RESULT SB!VM:SIMPLE-CHARACTER-STRING-WIDETAG))) ; (T ; (LET ((SB!IMPL::EXPANSION #)) ; (IF (EQUAL SB!IMPL::EXPANSION TYPE) ; (SB!IMPL::RESULT SB!VM:SIMPLE-VECTOR-WIDETAG) ; (SB!IMPL::%VECTOR-WIDETAG-AND-N-BITS SB!IMPL::EXPANSION))))) ; --> LET COND IF COND IF ; ==> ; (TYPEP #:G5979 'SB!KERNEL:CHARACTER-SET-TYPE) ; ; caught STYLE-WARNING: ; undefined type: CHARACTER-SET-TYPE ; (SB!KERNEL:CHARACTER-SET-TYPE-PAIRS SB!KERNEL:CTYPE) ; ; caught STYLE-WARNING: ; undefined function: CHARACTER-SET-TYPE-PAIRS ; in: DEFUN %DATA-VECTOR-AND-INDEX ; (DEFUN SB!KERNEL:%DATA-VECTOR-AND-INDEX (ARRAY SB!INT:INDEX) ; (IF (SB!KERNEL:ARRAY-HEADER-P ARRAY) ; (MULTIPLE-VALUE-BIND (VECTOR SB!INT:INDEX) ; (SB!KERNEL:%WITH-ARRAY-DATA ARRAY SB!INT:INDEX NIL) ; (VALUES VECTOR SB!INT:INDEX)) ; (VALUES ARRAY SB!INT:INDEX))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:G132 #:G133 #:G134) {B8CA9A9}> ; #:G132 #:G133 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; (MULTIPLE-VALUE-BIND (VECTOR SB!INT:INDEX) ; (SB!KERNEL:%WITH-ARRAY-DATA ARRAY SB!INT:INDEX NIL) ; (VALUES VECTOR SB!INT:INDEX)) ; --> MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (VECTOR SB!INT:INDEX #:G127) {B8B6AA9}> ; VECTOR SB!INT:INDEX NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEF %ARRAY-FILL-POINTER-P ; (SB!IMPL::DEF SB!KERNEL:%ARRAY-FILL-POINTER-P) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET ; --> SB!C::%TYPEP-WRAPPER IF ; ==> ; (MEMBER #:OBJECT5800 '(T NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 214 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/array.lisp ; in: DEFUN ZAP-ARRAY-DATA-AUX ; (MAPCAR ; (LAMBDA (SB!IMPL::X SB!IMPL::Y) ; (DECLARE (FIXNUM SB!IMPL::X SB!IMPL::Y)) ; (1- (THE FIXNUM (MIN SB!IMPL::X SB!IMPL::Y)))) ; SB!IMPL::OLD-DIMS SB!IMPL::NEW-DIMS) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN %VECTOR-WIDETAG-AND-N-BITS ; (SB!KERNEL:CSUBTYPEP SB!KERNEL:CTYPE ; (SB!KERNEL:SPECIFIER-TYPE '(COMPLEX DOUBLE-FLOAT))) ; ; caught STYLE-WARNING: ; undefined function: CSUBTYPEP ; (SB!KERNEL:NUMERIC-TYPE-FORMAT SB!KERNEL:CTYPE) ; ; caught STYLE-WARNING: ; undefined function: NUMERIC-TYPE-FORMAT ; #'SB!KERNEL:NUMERIC-TYPE-HIGH ; ; caught STYLE-WARNING: ; undefined function: NUMERIC-TYPE-HIGH ; #'SB!KERNEL:NUMERIC-TYPE-LOW ; ; caught STYLE-WARNING: ; undefined function: NUMERIC-TYPE-LOW ; #'SB!KERNEL:NUMERIC-TYPE-P ; ; caught STYLE-WARNING: ; undefined function: NUMERIC-TYPE-P ; (HANDLER-CASE (SB!KERNEL:SPECIFIER-TYPE TYPE) ; (SB!KERNEL:PARSE-UNKNOWN-TYPE NIL ; (RETURN (SB!IMPL::RESULT SB!VM:SIMPLE-VECTOR-WIDETAG)))) ; --> SB!INT:DX-FLET FLET BLOCK SB!INT:DX-LET LET TAGBODY ; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK ; ==> ; (TYPEP CONDITION 'SB!KERNEL:PARSE-UNKNOWN-TYPE) ; ; caught STYLE-WARNING: ; undefined type: PARSE-UNKNOWN-TYPE ; (SB!KERNEL:SPECIFIER-TYPE '(COMPLEX DOUBLE-FLOAT)) ; ; caught STYLE-WARNING: ; undefined function: SPECIFIER-TYPE ; (SB!KERNEL:TYPE-SPECIFIER SB!KERNEL:CTYPE) ; ; caught STYLE-WARNING: ; undefined function: TYPE-SPECIFIER ; in: DEFUN %SHRINK-VECTOR ; (SB!IMPL::FROB VECTOR ((SIMPLE-ARRAY BASE-CHAR (*)) (CODE-CHAR 0)) ; ((SIMPLE-ARRAY CHARACTER (*)) (CODE-CHAR 0)) ; ((SIMPLE-ARRAY SINGLE-FLOAT (*)) 0.0) ; ((SIMPLE-ARRAY DOUBLE-FLOAT (*)) 0.0d0) ((SIMPLE-ARRAY BIT (*)) 0) ; ((SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)) 0) ; ((SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)) 0) ; ((SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)) 0) ; ((SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) 0) ; ((SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)) 0) ...) ; --> ETYPECASE LET COND IF COND IF COND IF COND IF COND IF COND IF PROGN ; ==> ; (FILL (SB!EXT:TRULY-THE (SIMPLE-ARRAY BIT (*)) VECTOR) 0 :START ; SB!IMPL::NEW-LENGTH) ; ; caught STYLE-WARNING: ; undefined function: UB1-BASH-FILL ; --> ETYPECASE LET COND IF COND IF COND IF COND IF COND IF COND IF COND IF ; --> COND IF COND IF COND IF COND IF PROGN ; ==> ; (FILL (SB!EXT:TRULY-THE (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)) VECTOR) 0 ; :START SB!IMPL::NEW-LENGTH) ; ; caught STYLE-WARNING: ; undefined function: UB16-BASH-FILL ; --> ETYPECASE LET COND IF COND IF COND IF COND IF COND IF COND IF COND IF ; --> PROGN ; ==> ; (FILL (SB!EXT:TRULY-THE (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)) VECTOR) 0 :START ; SB!IMPL::NEW-LENGTH) ; ; caught STYLE-WARNING: ; undefined function: UB2-BASH-FILL ; --> ETYPECASE LET COND IF COND IF COND IF COND IF PROGN ; ==> ; (FILL (SB!EXT:TRULY-THE (SIMPLE-ARRAY SINGLE-FLOAT (*)) VECTOR) 0.0 :START ; SB!IMPL::NEW-LENGTH) ; ; caught STYLE-WARNING: ; undefined function: UB32-BASH-FILL ; --> ETYPECASE LET COND IF COND IF COND IF COND IF COND IF COND IF COND IF ; --> COND IF PROGN ; ==> ; (FILL (SB!EXT:TRULY-THE (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)) VECTOR) 0 :START ; SB!IMPL::NEW-LENGTH) ; ; caught STYLE-WARNING: ; undefined function: UB4-BASH-FILL ; --> ETYPECASE LET COND IF COND IF COND IF COND IF COND IF COND IF COND IF ; --> COND IF COND IF PROGN ; ==> ; (FILL (SB!EXT:TRULY-THE (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)) VECTOR) 0 :START ; SB!IMPL::NEW-LENGTH) ; ; caught STYLE-WARNING: ; undefined function: UB8-BASH-FILL ; in: DEFUN %VECTOR-WIDETAG-AND-N-BITS ; (TYPECASE SB!KERNEL:CTYPE ; (SB!KERNEL:UNION-TYPE ; (LET ((SB!IMPL::TYPES #)) ; (COND (# #) (# #) (# #) (# #) (T #)))) ; (SB!KERNEL:CHARACTER-SET-TYPE ; (IF (LOOP SB!IMPL::FOR (SB!IMPL::START ; . SB!IMPL::END) SB!IMPL::IN (SB!KERNEL:CHARACTER-SET-TYPE-PAIRS ; SB!KERNEL:CTYPE) ; SB!IMPL::ALWAYS (AND # #)) ; (SB!IMPL::RESULT SB!VM:SIMPLE-BASE-STRING-WIDETAG) ; (SB!IMPL::RESULT SB!VM:SIMPLE-CHARACTER-STRING-WIDETAG))) ; (T ; (LET ((SB!IMPL::EXPANSION #)) ; (IF (EQUAL SB!IMPL::EXPANSION TYPE) ; (SB!IMPL::RESULT SB!VM:SIMPLE-VECTOR-WIDETAG) ; (SB!IMPL::%VECTOR-WIDETAG-AND-N-BITS SB!IMPL::EXPANSION))))) ; --> LET COND IF ; ==> ; (TYPEP #:G5979 'SB!KERNEL:UNION-TYPE) ; ; caught STYLE-WARNING: ; undefined type: UNION-TYPE ; (SB!KERNEL:UNION-TYPE-P SB!KERNEL:CTYPE) ; ; caught STYLE-WARNING: ; undefined function: UNION-TYPE-P ; (SB!KERNEL:UNION-TYPE-TYPES SB!KERNEL:CTYPE) ; ; caught STYLE-WARNING: ; undefined function: UNION-TYPE-TYPES ; in: DEFUN SHRINK-VECTOR ; (SUBSEQ VECTOR 0 SB!IMPL::NEW-LENGTH) ; ; caught STYLE-WARNING: ; undefined function: VECTOR-SUBSEQ* ; in: DEFUN %WALK-DISPLACED-ARRAY-BACKPOINTERS ; (SB!EXT:WEAK-POINTER-VALUE SB!IMPL::P) ; ; caught STYLE-WARNING: ; undefined function: WEAK-POINTER-VALUE ; in: DEFUN %SAVE-DISPLACED-ARRAY-BACKPOINTER ; #'SB!EXT:WEAK-POINTER-VALUE ; ; caught STYLE-WARNING: ; undefined function: WEAK-POINTER-VALUE ; ; compilation unit finished ; Undefined types: ; CHARACTER-SET-TYPE CODE-DELETION-NOTE COMPILER-NOTE PARSE-UNKNOWN-TYPE UNION-TYPE ; Undefined functions: ; %DEFGLOBAL ALLOCATE-STATIC-VECTOR CHARACTER-SET-TYPE-PAIRS CSUBTYPEP NUMERIC-TYPE-FORMAT NUMERIC-TYPE-HIGH NUMERIC-TYPE-LOW NUMERIC-TYPE-P SPECIFIER-TYPE TYPE-SPECIFIER UB1-BASH-FILL UB16-BASH-FILL UB2-BASH-FILL UB32-BASH-FILL UB4-BASH-FILL UB8-BASH-FILL UNION-TYPE-P UNION-TYPE-TYPES VECTOR-SUBSEQ* WEAK-POINTER-VALUE ; caught 33 STYLE-WARNING conditions ; printed 28 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/array.lisp-obj-tmp written ; compilation finished in 0:00:02.001 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-float.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (DEFUN SINGLE-FROM-BITS ...) ; x-compiling (DEFUN DOUBLE-FROM-BITS ...) ; x-compiling (DEFCONSTANT LEAST-POSITIVE-SINGLE-FLOAT ...) ; x-compiling (DEFCONSTANT LEAST-POSITIVE-SHORT-FLOAT ...) ; x-compiling (DEFCONSTANT LEAST-NEGATIVE-SINGLE-FLOAT ...) ; x-compiling (DEFCONSTANT LEAST-NEGATIVE-SHORT-FLOAT ...) ; x-compiling (DEFCONSTANT LEAST-POSITIVE-DOUBLE-FLOAT ...) ; x-compiling (DEFCONSTANT LEAST-POSITIVE-LONG-FLOAT ...) ; x-compiling (DEFCONSTANT LEAST-NEGATIVE-DOUBLE-FLOAT ...) ; x-compiling (DEFCONSTANT LEAST-NEGATIVE-LONG-FLOAT ...) ; x-compiling (DEFCONSTANT LEAST-POSITIVE-NORMALIZED-SINGLE-FLOAT ...) ; x-compiling (DEFCONSTANT LEAST-POSITIVE-NORMALIZED-SHORT-FLOAT ...) ; x-compiling (DEFCONSTANT LEAST-NEGATIVE-NORMALIZED-SINGLE-FLOAT ...) ; x-compiling (DEFCONSTANT LEAST-NEGATIVE-NORMALIZED-SHORT-FLOAT ...) ; x-compiling (DEFCONSTANT LEAST-POSITIVE-NORMALIZED-DOUBLE-FLOAT ...) ; x-compiling (DEFCONSTANT LEAST-POSITIVE-NORMALIZED-LONG-FLOAT ...) ; x-compiling (DEFCONSTANT LEAST-NEGATIVE-NORMALIZED-DOUBLE-FLOAT ...) ; x-compiling (DEFCONSTANT LEAST-NEGATIVE-NORMALIZED-LONG-FLOAT ...) ; x-compiling (DEFCONSTANT MOST-POSITIVE-SINGLE-FLOAT ...) ; x-compiling (DEFCONSTANT MOST-POSITIVE-SHORT-FLOAT ...) ; x-compiling (DEFCONSTANT MOST-NEGATIVE-SINGLE-FLOAT ...) ; x-compiling (DEFCONSTANT MOST-NEGATIVE-SHORT-FLOAT ...) ; x-compiling (DEFCONSTANT MOST-POSITIVE-DOUBLE-FLOAT ...) ; x-compiling (DEFCONSTANT MOST-POSITIVE-LONG-FLOAT ...) ; x-compiling (DEFCONSTANT MOST-NEGATIVE-DOUBLE-FLOAT ...) ; x-compiling (DEFCONSTANT MOST-NEGATIVE-LONG-FLOAT ...) ; x-compiling (LET NIL ...) ; x-compiling (DEFCONSTANT SINGLE-FLOAT-EPSILON ...) ; x-compiling (DEFCONSTANT SHORT-FLOAT-EPSILON ...) ; x-compiling (DEFCONSTANT SINGLE-FLOAT-NEGATIVE-EPSILON ...) ; x-compiling (DEFCONSTANT SHORT-FLOAT-NEGATIVE-EPSILON ...) ; x-compiling (DEFCONSTANT DOUBLE-FLOAT-EPSILON ...) ; x-compiling (DEFCONSTANT LONG-FLOAT-EPSILON ...) ; x-compiling (DEFCONSTANT DOUBLE-FLOAT-NEGATIVE-EPSILON ...) ; x-compiling (DEFCONSTANT LONG-FLOAT-NEGATIVE-EPSILON ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/early-float.lisp-obj-tmp written ; compilation finished in 0:00:00.059 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-sxhash.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFUN POINTER-HASH ...) ; x-compiling (DEFCONSTANT +MAX-HASH-DEPTHOID+ ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DECLAIM (INLINE MIX)) ; x-compiling (DEFUN MIX ...) ; x-compiling (DECLAIM (INLINE ADDRESS-BASED-COUNTER-VAL)) ; x-compiling (DEFUN ADDRESS-BASED-COUNTER-VAL ...) ; x-compiling (DEFUN QUASI-RANDOM-ADDRESS-BASED-HASH ...) ; x-compiling (DECLAIM (INLINE %SXHASH-SUBSTRING)) ; x-compiling (DEFUN %SXHASH-SUBSTRING ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-sxhash.lisp ; in: DEFUN %SXHASH-SUBSTRING ; (AREF STRING SB!IMPL::I) ; ==> ; (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (VECTOR CHARACTER) ; BASE-STRING), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR (VECTOR CHARACTER) ; BASE-STRING), not a SIMPLE-ARRAY. ; x-compiling (DEFUN %SXHASH-SIMPLE-STRING ...) ; x-compiling (DEFUN %SXHASH-SIMPLE-SUBSTRING ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN SXHASH ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-sxhash.lisp ; in: DEFUN SXHASH ; (TYPECASE SB!IMPL::X ; (PATHNAME ; (LET ((SB!INT:HASH #)) ; (SB!INT:MIXF SB!INT:HASH (SB!IMPL::SXHASH-RECURSE # SB!IMPL::DEPTHOID)) ; (SB!INT:MIXF SB!INT:HASH (SB!IMPL::SXHASH-RECURSE # SB!IMPL::DEPTHOID)) ; (SB!INT:MIXF SB!INT:HASH (SB!IMPL::SXHASH-RECURSE # SB!IMPL::DEPTHOID)) ; (SB!INT:MIXF SB!INT:HASH (SB!IMPL::SXHASH-RECURSE # SB!IMPL::DEPTHOID)) ; (LET (#) ; (SB!INT:MIXF SB!INT:HASH #)))) ; (SB!KERNEL:LAYOUT (SB!KERNEL:LAYOUT-CLOS-HASH SB!IMPL::X)) ; ((OR STRUCTURE-OBJECT CONDITION) ; (LOGXOR 422371266 (SXHASH (SB!KERNEL:CLASSOID-NAME #)))) ; (T (SB!IMPL::SXHASH-INSTANCE SB!IMPL::X))) ; --> LET COND IF COND IF COND IF TYPEP LET SB!C::%TYPEP-WRAPPER LET OR LET IF ; --> OR THE ; ==> ; (TYPEP #:N-OBJ52 'CONDITION) ; ; note: can't open-code test of unknown type CONDITION ; (TYPECASE SB!IMPL::X ; (LIST ; (IF (NULL SB!IMPL::X) ; (SXHASH SB!IMPL::X) ; (IF (PLUSP SB!IMPL::DEPTHOID) ; (SB!INT:MIX # #) ; 261835505))) ; (SB!KERNEL:INSTANCE ; (TYPECASE SB!IMPL::X ; (PATHNAME ; (LET # ; # ; # ; # ; # ; #)) ; (SB!KERNEL:LAYOUT (SB!KERNEL:LAYOUT-CLOS-HASH SB!IMPL::X)) ; ((OR STRUCTURE-OBJECT CONDITION) (LOGXOR 422371266 #)) ; (T (SB!IMPL::SXHASH-INSTANCE SB!IMPL::X)))) ; (SYMBOL (SXHASH SB!IMPL::X)) ; (ARRAY ; (TYPECASE SB!IMPL::X ; (SIMPLE-STRING (SXHASH SB!IMPL::X)) ; (STRING (SB!IMPL::%SXHASH-SUBSTRING SB!IMPL::X)) ; (SIMPLE-BIT-VECTOR (SXHASH SB!IMPL::X)) ; (BIT-VECTOR (SB!IMPL::SXHASH-RECURSE # SB!IMPL::DEPTHOID)) ; (T (LOGXOR 191020317 #)))) ; (CHARACTER (LOGXOR 72185131 (SXHASH (CHAR-CODE SB!IMPL::X)))) ; (NUMBER (SB!IMPL::SXHASH-NUMBER SB!IMPL::X)) ; (GENERIC-FUNCTION (SB!IMPL::SXHASH-INSTANCE SB!IMPL::X)) ; (T 42)) ; --> LET COND IF COND IF COND IF COND IF COND IF COND IF COND IF ; ==> ; (TYPEP #:G7881 'GENERIC-FUNCTION) ; ; note: can't open-code test of unknown type GENERIC-FUNCTION ; (REALPART SB!IMPL::X) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a COMPLEX, not a (COMPLEX RATIONAL). ; (IMAGPART SB!IMPL::X) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a COMPLEX, not a (COMPLEX RATIONAL). ; (SB!IMPL::%SXHASH-SUBSTRING SB!IMPL::X) ; --> BLOCK MACROLET LET UNLESS IF PROGN DOTIMES DO BLOCK LET TAGBODY TAGBODY ; --> SB!IMPL::SET-RESULT SETF SETQ THE SB-XC:LDB SB!KERNEL:%LDB + CHAR-CODE ; --> AREF ; ==> ; (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (REALPART SB!IMPL::X) ; ; note: forced to do full call ; unable to do complex float realpart (cost 3) because: ; The first argument is a COMPLEX, not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). ; unable to do complex float realpart (cost 3) because: ; The first argument is a COMPLEX, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST ; T). ; (IMAGPART SB!IMPL::X) ; ; note: forced to do full call ; unable to do complex float imagpart (cost 3) because: ; The first argument is a COMPLEX, not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). ; unable to do complex float imagpart (cost 3) because: ; The first argument is a COMPLEX, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST ; T). ; x-compiling (DEFUN PSXHASH ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-sxhash.lisp ; in: DEFUN PSXHASH ; (CHAR-UPCASE SB!IMPL::KEY) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (SXHASH SB!IMPL::KEY) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a FIXNUM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a SIMPLE-BIT-VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a SIMPLE-STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a SYMBOL. ; x-compiling (DEFUN ARRAY-PSXHASH ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-sxhash.lisp ; in: DEFUN ARRAY-PSXHASH ; (SB!IMPL::MAKE-DISPATCH ; (SIMPLE-BASE-STRING (SIMPLE-ARRAY CHARACTER (*)) SIMPLE-VECTOR ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) (SIMPLE-ARRAY FIXNUM (*)) T)) ; --> TYPECASE LET COND IF COND IF PROGN SB!IMPL::FROB LET WHEN IF PROGN ; --> DOTIMES DO BLOCK LET TAGBODY TAGBODY SB!INT:MIXF LET* SB!INT:MIX ; --> SB!INT:PSXHASH CHAR-CODE ; ==> ; (CHAR-UPCASE SB!C::X) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; --> TYPECASE LET COND IF COND IF COND IF PROGN SB!IMPL::FROB LET WHEN IF ; --> PROGN DOTIMES DO BLOCK LET TAGBODY TAGBODY SB!INT:MIXF LET* SB!INT:MIX ; ==> ; (SB!INT:PSXHASH (AREF SB!IMPL::KEY SB!IMPL::I) SB!IMPL::DEPTHOID) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a CHARACTER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a INTEGER. ; --> TYPECASE LET COND IF COND IF COND IF COND IF COND IF COND THE PROGN ; --> SB!IMPL::FROB LET WHEN IF PROGN DOTIMES DO BLOCK LET TAGBODY TAGBODY ; --> SB!INT:MIXF LET* SB!INT:MIX SB!INT:PSXHASH AREF ; ==> ; (SB!KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB!INT:INDEX) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> TYPECASE LET COND IF COND IF COND IF COND IF COND IF COND THE PROGN ; --> SB!IMPL::FROB LET WHEN IF PROGN DOTIMES DO BLOCK LET TAGBODY TAGBODY ; --> SB!INT:MIXF LET* SB!INT:MIX ; ==> ; (SB!INT:PSXHASH (AREF SB!IMPL::KEY SB!IMPL::I) SB!IMPL::DEPTHOID) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a CHARACTER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a INTEGER. ; (ARRAY-TOTAL-SIZE SB!IMPL::KEY) ; ; note: unable to optimize because: can't tell the rank at compile time ; (ROW-MAJOR-AREF SB!IMPL::KEY SB!IMPL::I) ; --> SB!KERNEL:HAIRY-DATA-VECTOR-REF SB!KERNEL:%CHECK-BOUND ; ==> ; (ARRAY-TOTAL-SIZE ARRAY) ; ; note: unable to optimize because: can't tell the rank at compile time ; ==> ; (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY ; (SB!KERNEL:%CHECK-BOUND ARRAY (ARRAY-TOTAL-SIZE ARRAY) SB!INT:INDEX)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a ARRAY, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a ARRAY, not a SIMPLE-ARRAY. ; (SB!INT:PSXHASH (ROW-MAJOR-AREF SB!IMPL::KEY SB!IMPL::I) SB!IMPL::DEPTHOID) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a CHARACTER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a INTEGER. ; (ARRAY-DIMENSION SB!IMPL::KEY SB!IMPL::I) ; ; note: unable to optimize because: The axis is not constant. ; x-compiling (DEFUN STRUCTURE-OBJECT-PSXHASH ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-sxhash.lisp ; in: DEFUN STRUCTURE-OBJECT-PSXHASH ; (SB!INT:PSXHASH (SB!KERNEL:%INSTANCE-REF SB!IMPL::KEY SB!IMPL::I) ; SB!IMPL::DEPTHOID) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a CHARACTER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a INTEGER. ; (DECF SB!IMPL::MAX-ITERATIONS) ; --> LET* ; ==> ; (- SB!IMPL::MAX-ITERATIONS #:G7986) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER * 4), not a FIXNUM. ; The result is a (VALUES (INTEGER * 3) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER * 4), not a FIXNUM. ; The result is a (VALUES (INTEGER * 3) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; x-compiling (DEFUN LIST-PSXHASH ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-sxhash.lisp ; in: DEFUN LIST-PSXHASH ; (SB!INT:PSXHASH (CAR SB!IMPL::KEY) (1- SB!IMPL::DEPTHOID)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a CHARACTER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a INTEGER. ; (SB!INT:PSXHASH (CDR SB!IMPL::KEY) (1- SB!IMPL::DEPTHOID)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a CHARACTER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a INTEGER. ; x-compiling (DEFUN HASH-TABLE-PSXHASH ...) ; x-compiling (DEFUN NUMBER-PSXHASH ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-sxhash.lisp ; in: DEFUN NUMBER-PSXHASH ; (SB!IMPL::FROB DOUBLE-FLOAT) ; --> COND IF COND THE PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION ; --> IF ; ==> ; (SXHASH SB!IMPL::Q) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a INTEGER, not a FIXNUM. ; (SB!IMPL::FROB SINGLE-FLOAT) ; --> COND IF COND THE PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION ; --> IF ; ==> ; (SXHASH SB!IMPL::Q) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a INTEGER, not a FIXNUM. ; (SB!IMPL::FROB DOUBLE-FLOAT) ; --> COND IF PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF ; ==> ; (SXHASH SB!IMPL::Q) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a INTEGER, not a FIXNUM. ; (SXHASH SB!IMPL::KEY) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a INTEGER, not a FIXNUM. ; (= (COERCE SB!IMPL::KEY 'DOUBLE-FLOAT) SB!IMPL::KEY) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; because: ; The RATIONAL value isn't known at compile time. ; ; note: unable to open code because: The operands might not be the same type. ; (SXHASH SB!IMPL::KEY) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a RATIONAL, not a FIXNUM. ; (IMAGPART SB!IMPL::KEY) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a COMPLEX, not a (COMPLEX RATIONAL). ; (ZEROP (IMAGPART SB!IMPL::KEY)) ; ==> ; (= (IMAGPART SB!IMPL::KEY) 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (REALPART SB!IMPL::KEY) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a COMPLEX, not a (COMPLEX RATIONAL). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a COMPLEX, not a (COMPLEX RATIONAL). ; (IMAGPART SB!IMPL::KEY) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a COMPLEX, not a (COMPLEX RATIONAL). ; (SB!IMPL::FROB SINGLE-FLOAT) ; --> COND IF PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF ; ==> ; (SXHASH SB!IMPL::Q) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a INTEGER, not a FIXNUM. ; (COERCE SB!IMPL::KEY 'DOUBLE-FLOAT) ; --> THE ; ==> ; (SB!KERNEL:%DOUBLE-FLOAT SB!C::X) ; ; note: forced to do full call ; unable to do inline float coercion (cost 5) because: ; The first argument is a RATIONAL, not a (SIGNED-BYTE 32). ; unable to do inline float coercion (cost 6) because: ; The first argument is a RATIONAL, not a (UNSIGNED-BYTE 32). ; ; note: forced to do full call ; unable to do inline float coercion (cost 5) because: ; The first argument is a RATIONAL, not a (SIGNED-BYTE 32). ; unable to do inline float coercion (cost 6) because: ; The first argument is a RATIONAL, not a (UNSIGNED-BYTE 32). ; (IMAGPART SB!IMPL::KEY) ; ; note: forced to do full call ; unable to do complex float imagpart (cost 3) because: ; The first argument is a COMPLEX, not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). ; unable to do complex float imagpart (cost 3) because: ; The first argument is a COMPLEX, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST ; T). ; (REALPART SB!IMPL::KEY) ; ; note: forced to do full call ; unable to do complex float realpart (cost 3) because: ; The first argument is a COMPLEX, not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). ; unable to do complex float realpart (cost 3) because: ; The first argument is a COMPLEX, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST ; T). ; (IMAGPART SB!IMPL::KEY) ; ; note: forced to do full call ; unable to do complex float imagpart (cost 3) because: ; The first argument is a COMPLEX, not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). ; unable to do complex float imagpart (cost 3) because: ; The first argument is a COMPLEX, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST ; T). ; (REALPART SB!IMPL::KEY) ; ; note: forced to do full call ; unable to do complex float realpart (cost 3) because: ; The first argument is a COMPLEX, not a (COMPLEX SINGLE-FLOAT). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). ; unable to do complex float realpart (cost 3) because: ; The first argument is a COMPLEX, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST ; T). ; in: DEFUN SXHASH ; (SB!IMPL::%PATHNAME-VERSION SB!IMPL::X) ; ; caught STYLE-WARNING: ; undefined function: %PATHNAME-VERSION ; in: DEFUN %SXHASH-SIMPLE-STRING ; (SB!IMPL::%SXHASH-SUBSTRING SB!IMPL::X) ; --> LET ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (STRING COUNT) {DBFC121}> ; STRING #:G28)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN %SXHASH-SUBSTRING ; (DEFUN SB!IMPL::%SXHASH-SUBSTRING (STRING &OPTIONAL (COUNT (LENGTH STRING))) ; (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0))) ; (DECLARE (TYPE STRING STRING)) ; (DECLARE (TYPE SB!INT:INDEX COUNT)) ; (MACROLET ((SB!IMPL::SET-RESULT (SB!KERNEL:FORM) ; (SB!INT:QUASIQUOTE #))) ; (LET ((SB!IMPL::RESULT 0)) ; (DECLARE (TYPE # SB!IMPL::RESULT)) ; (UNLESS (TYPEP STRING '#) (DOTIMES # # # # #)) ; (SB!IMPL::SET-RESULT (+ SB!IMPL::RESULT #)) ; (SB!IMPL::SET-RESULT (LOGXOR SB!IMPL::RESULT #)) ; (SB!IMPL::SET-RESULT (LOGXOR SB!IMPL::RESULT #)) ; (LOGAND SB!IMPL::RESULT MOST-POSITIVE-FIXNUM)))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION LET ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (STRING COUNT) {DB137C9}> ; STRING #:G21)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN QUASI-RANDOM-ADDRESS-BASED-HASH ; (SETF (AREF SB!IMPL::STATE 0) ; (SB!INT:MIX (SB!IMPL::ADDRESS-BASED-COUNTER-VAL) ; (AREF SB!IMPL::STATE 0))) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL SB!C::%FUNCALL (SETF AREF) ; --> SB!KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS SB!EXT:TRULY-THE ; ==> ; (SB!KERNEL:HAIRY-DATA-VECTOR-SET ARRAY ; (SB!KERNEL:%CHECK-BOUND ARRAY (ARRAY-DIMENSION ARRAY 0) SB!INT:INDEX) ; (THE (UNSIGNED-BYTE 29) SB!C::NEW-VALUE)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 12 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-sxhash.lisp ; in: DEFUN SXHASH ; (DEFUN SXHASH (SB!IMPL::X) ; (DECLARE (OPTIMIZE SPEED)) ; (LABELS ((SB!IMPL::SXHASH-NUMBER (SB!IMPL::X) ; (ETYPECASE SB!IMPL::X # # # # # #)) ; (SB!IMPL::SXHASH-RECURSE (SB!IMPL::X SB!IMPL::DEPTHOID) ; (DECLARE #) ; (TYPECASE SB!IMPL::X # # # # # # # #))) ; (SB!IMPL::SXHASH-RECURSE SB!IMPL::X SB!IMPL::+MAX-HASH-DEPTHOID+))) ; --> PROGN ; ==> ; (SB!IMPL::%DEFUN 'SXHASH ; (SB!INT:NAMED-LAMBDA SXHASH ; (SB!IMPL::X) ; (DECLARE (OPTIMIZE SPEED)) ; (BLOCK SXHASH ; (LABELS (# #) ; (SB!IMPL::SXHASH-RECURSE SB!IMPL::X SB!IMPL::+MAX-HASH-DEPTHOID+)))) ; NIL 'NIL (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined type: CONDITION ; (TYPECASE SB!IMPL::X ; (PATHNAME ; (LET ((SB!INT:HASH #)) ; (SB!INT:MIXF SB!INT:HASH (SB!IMPL::SXHASH-RECURSE # SB!IMPL::DEPTHOID)) ; (SB!INT:MIXF SB!INT:HASH (SB!IMPL::SXHASH-RECURSE # SB!IMPL::DEPTHOID)) ; (SB!INT:MIXF SB!INT:HASH (SB!IMPL::SXHASH-RECURSE # SB!IMPL::DEPTHOID)) ; (SB!INT:MIXF SB!INT:HASH (SB!IMPL::SXHASH-RECURSE # SB!IMPL::DEPTHOID)) ; (LET (#) ; (SB!INT:MIXF SB!INT:HASH #)))) ; (SB!KERNEL:LAYOUT (SB!KERNEL:LAYOUT-CLOS-HASH SB!IMPL::X)) ; ((OR STRUCTURE-OBJECT CONDITION) ; (LOGXOR 422371266 (SXHASH (SB!KERNEL:CLASSOID-NAME #)))) ; (T (SB!IMPL::SXHASH-INSTANCE SB!IMPL::X))) ; --> LET COND IF COND IF COND IF ; ==> ; (TYPEP #:G7884 '(OR STRUCTURE-OBJECT CONDITION)) ; ; caught STYLE-WARNING: ; undefined type: CONDITION ; in: DEFUN HASH-TABLE-PSXHASH ; (SXHASH (HASH-TABLE-TEST SB!IMPL::KEY)) ; ; caught STYLE-WARNING: ; undefined function: ENSURE-SYMBOL-HASH ; in: DEFUN STRUCTURE-OBJECT-PSXHASH ; (SXHASH SB!IMPL::NAME) ; ; caught STYLE-WARNING: ; undefined function: ENSURE-SYMBOL-HASH ; in: DEFUN SXHASH ; (SXHASH ; (SB!KERNEL:CLASSOID-NAME ; (SB!KERNEL:LAYOUT-CLASSOID (SB!KERNEL:%INSTANCE-LAYOUT SB!IMPL::X)))) ; ; caught STYLE-WARNING: ; undefined function: ENSURE-SYMBOL-HASH ; (TYPECASE SB!IMPL::X ; (LIST ; (IF (NULL SB!IMPL::X) ; (SXHASH SB!IMPL::X) ; (IF (PLUSP SB!IMPL::DEPTHOID) ; (SB!INT:MIX # #) ; 261835505))) ; (SB!KERNEL:INSTANCE ; (TYPECASE SB!IMPL::X ; (PATHNAME ; (LET # ; # ; # ; # ; # ; #)) ; (SB!KERNEL:LAYOUT (SB!KERNEL:LAYOUT-CLOS-HASH SB!IMPL::X)) ; ((OR STRUCTURE-OBJECT CONDITION) (LOGXOR 422371266 #)) ; (T (SB!IMPL::SXHASH-INSTANCE SB!IMPL::X)))) ; (SYMBOL (SXHASH SB!IMPL::X)) ; (ARRAY ; (TYPECASE SB!IMPL::X ; (SIMPLE-STRING (SXHASH SB!IMPL::X)) ; (STRING (SB!IMPL::%SXHASH-SUBSTRING SB!IMPL::X)) ; (SIMPLE-BIT-VECTOR (SXHASH SB!IMPL::X)) ; (BIT-VECTOR (SB!IMPL::SXHASH-RECURSE # SB!IMPL::DEPTHOID)) ; (T (LOGXOR 191020317 #)))) ; (CHARACTER (LOGXOR 72185131 (SXHASH (CHAR-CODE SB!IMPL::X)))) ; (NUMBER (SB!IMPL::SXHASH-NUMBER SB!IMPL::X)) ; (GENERIC-FUNCTION (SB!IMPL::SXHASH-INSTANCE SB!IMPL::X)) ; (T 42)) ; --> LET COND IF COND IF COND IF COND IF COND IF COND IF COND IF ; ==> ; (TYPEP #:G7881 'GENERIC-FUNCTION) ; ; caught STYLE-WARNING: ; undefined type: GENERIC-FUNCTION ; in: DEFUN STRUCTURE-OBJECT-PSXHASH ; (SB!KERNEL:LAYOUT-CLASSOID SB!KERNEL:LAYOUT) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-CLASSOID ; in: DEFUN SXHASH ; (SB!KERNEL:LAYOUT-CLASSOID (SB!KERNEL:%INSTANCE-LAYOUT SB!IMPL::X)) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-CLASSOID ; (SB!KERNEL:LAYOUT-CLOS-HASH SB!IMPL::X) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-CLOS-HASH ; in: DEFUN STRUCTURE-OBJECT-PSXHASH ; (SB!KERNEL:DO-INSTANCE-TAGGED-SLOT (SB!IMPL::I SB!IMPL::KEY :LAYOUT ; SB!KERNEL:LAYOUT :EXCLUDE-PADDING T) ; (SB!INT:MIXF SB!IMPL::RESULT ; (SB!INT:PSXHASH (SB!KERNEL:%INSTANCE-REF SB!IMPL::KEY SB!IMPL::I) ; SB!IMPL::DEPTHOID)) ; (IF (ZEROP (DECF SB!IMPL::MAX-ITERATIONS)) ; (RETURN))) ; --> LET* DO BLOCK LET - ; ==> ; (SB!KERNEL:LAYOUT-LENGTH #:N-LAYOUT-128) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-LENGTH ; ==> ; (SB!KERNEL:LAYOUT-N-UNTAGGED-SLOTS #:N-LAYOUT-128) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-N-UNTAGGED-SLOTS ; in: DEFUN SXHASH ; (COPY-SEQ SB!IMPL::X) ; ; caught STYLE-WARNING: ; undefined function: VECTOR-SUBSEQ* ; ; compilation unit finished ; Undefined types: ; CODE-DELETION-NOTE CONDITION GENERIC-FUNCTION ; Undefined functions: ; %PATHNAME-VERSION ENSURE-SYMBOL-HASH LAYOUT-CLASSOID LAYOUT-CLOS-HASH LAYOUT-LENGTH LAYOUT-N-UNTAGGED-SLOTS VECTOR-SUBSEQ* ; caught 17 STYLE-WARNING conditions ; printed 57 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/target-sxhash.lisp-obj-tmp written ; compilation finished in 0:00:00.516 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/list.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DECLAIM (MAYBE-INLINE TREE-EQUAL ...)) ; x-compiling (DEFUN CAR ...) ; x-compiling (DEFUN CDR ...) ; x-compiling (DEFUN CADR ...) ; x-compiling (DEFUN CDAR ...) ; x-compiling (DEFUN CAAR ...) ; x-compiling (DEFUN CDDR ...) ; x-compiling (DEFUN CADDR ...) ; x-compiling (DEFUN CAADR ...) ; x-compiling (DEFUN CAAAR ...) ; x-compiling (DEFUN CDAAR ...) ; x-compiling (DEFUN CDDAR ...) ; x-compiling (DEFUN CDDDR ...) ; x-compiling (DEFUN CADAR ...) ; x-compiling (DEFUN CDADR ...) ; x-compiling (DEFUN CAAAAR ...) ; x-compiling (DEFUN CAAADR ...) ; x-compiling (DEFUN CAADDR ...) ; x-compiling (DEFUN CADDDR ...) ; x-compiling (DEFUN CDDDDR ...) ; x-compiling (DEFUN CDAAAR ...) ; x-compiling (DEFUN CDDAAR ...) ; x-compiling (DEFUN CDDDAR ...) ; x-compiling (DEFUN CAADAR ...) ; x-compiling (DEFUN CADAAR ...) ; x-compiling (DEFUN CADADR ...) ; x-compiling (DEFUN CADDAR ...) ; x-compiling (DEFUN CDAADR ...) ; x-compiling (DEFUN CDADAR ...) ; x-compiling (DEFUN CDADDR ...) ; x-compiling (DEFUN CDDADR ...) ; x-compiling (DEFUN CONS ...) ; x-compiling (DECLAIM (MAYBE-INLINE TREE-EQUAL-TEST ...)) ; x-compiling (DEFUN TREE-EQUAL-TEST-NOT ...) ; x-compiling (DEFUN TREE-EQUAL-TEST ...) ; x-compiling (DEFUN TREE-EQUAL ...) ; x-compiling (DEFUN ENDP ...) ; x-compiling (DEFUN LIST-LENGTH ...) ; x-compiling (DEFUN NTH ...) ; x-compiling (DEFUN FIRST ...) ; x-compiling (DEFUN SECOND ...) ; x-compiling (DEFUN THIRD ...) ; x-compiling (DEFUN FOURTH ...) ; x-compiling (DEFUN FIFTH ...) ; x-compiling (DEFUN SIXTH ...) ; x-compiling (DEFUN SEVENTH ...) ; x-compiling (DEFUN EIGHTH ...) ; x-compiling (DEFUN NINTH ...) ; x-compiling (DEFUN TENTH ...) ; x-compiling (DEFUN REST ...) ; x-compiling (DEFUN NTHCDR ...) ; x-compiling (DEFUN %LAST0 ...) ; x-compiling (DEFUN %LAST1 ...) ; x-compiling (DEFUN %LASTN/FIXNUM ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/list.lisp ; in: DEFUN %LASTN/FIXNUM ; (SB!IMPL::LASTN-MACRO FIXNUM) ; --> LET TAGBODY IF ZEROP = SB!EXT:TRULY-THE DECF LET* SETQ ; ==> ; (THE FIXNUM #:NEW143) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; x-compiling (DEFUN %LASTN/BIGNUM ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/list.lisp ; in: DEFUN %LASTN/BIGNUM ; (SB!IMPL::LASTN-MACRO UNSIGNED-BYTE) ; --> LET TAGBODY IF ZEROP = SB!EXT:TRULY-THE DECF LET* ; ==> ; (- SB!IMPL::N #:G8145) ; ; 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 -1) &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 -1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> LET TAGBODY IF ZEROP = SB!EXT:TRULY-THE DECF LET* SETQ THE ; --> MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET SB!C::%TYPEP-WRAPPER LET OR ; --> LET IF OR LET IF OR THE TYPEP LET SB!C::%TYPEP-WRAPPER LET AND IF AND THE ; --> LOCALLY AND THE >= IF ; ==> ; (< SB!C::X SB!C::Y) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER -1), not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -1), not a FIXNUM. ; etc. ; (DEFUN SB!KERNEL:%LASTN/BIGNUM (LIST SB!IMPL::N) ; (DECLARE (OPTIMIZE SPEED (SB!C:VERIFY-ARG-COUNT 0)) ; (TYPE (AND UNSIGNED-BYTE BIGNUM) SB!IMPL::N)) ; (SB!IMPL::LASTN-MACRO UNSIGNED-BYTE)) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; --> SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET ; --> SB!C::%TYPEP-WRAPPER LET AND IF AND THE LOCALLY AND THE >= IF ; ==> ; (< SB!C::X SB!C::Y) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline (unsigned-byte 32) comparison (cost 5) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32). ; unable to do inline (signed-byte 32) comparison (cost 5) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 32). ; x-compiling (DEFUN LAST ...) ; x-compiling (DEFINE-COMPILER-MACRO LAST ...) ; x-compiling (DEFUN LIST ...) ; x-compiling (DEFUN LIST* ...) ; x-compiling (DEFUN MAKE-LIST ...) ; x-compiling (DEFUN APPEND ...) ; x-compiling (DEFUN APPEND2 ...) ; x-compiling (DEFINE-COMPILER-MACRO APPEND ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/list.lisp ; in: DEFINE-COMPILER-MACRO APPEND ; (DEFINE-COMPILER-MACRO APPEND ; (&WHOLE SB!KERNEL:FORM &REST SB!IMPL::LISTS) ; (CASE (LENGTH SB!IMPL::LISTS) ; (0 NIL) ; (1 (CAR SB!IMPL::LISTS)) ; (2 (SB!INT:QUASIQUOTE (SB!IMPL::APPEND2 #))) ; (T SB!KERNEL:FORM))) ; --> PROGN EVAL-WHEN ; ==> ; (SB!C::%DEFINE-COMPILER-MACRO 'APPEND ; #'(LAMBDA (#:WHOLE261 #:ENVIRONMENT262) ; (DECLARE (IGNORE #:ENVIRONMENT262)) ; (LET* ((#:CMACRO-&WHOLE8213 #:WHOLE261) ; (#:WHOLE261 #)) ; (DECLARE (IGNORABLE #:CMACRO-&WHOLE8213)) ; (LET* (# #) ; (BLOCK APPEND #)))) ; '(&WHOLE SB!KERNEL:FORM &REST SB!IMPL::LISTS) ; NIL '(COMPILER-MACRO-FUNCTION APPEND)) ; ; caught STYLE-WARNING: ; 51 calls to COMMON-LISP:APPEND were compiled before a compiler-macro was ; defined for it. A declaration of NOTINLINE at the call sites will eliminate ; this warning, as will defining the compiler-macro before its first potential ; use. ; x-compiling (SB-XC:DEFMACRO !COPY-LIST-MACRO ...) ; x-compiling (DEFUN COPY-LIST ...) ; x-compiling (DEFUN COPY-ALIST ...) ; x-compiling (DEFUN COPY-TREE ...) ; x-compiling (DEFUN REVAPPEND ...) ; x-compiling (DEFUN NCONC ...) ; x-compiling (DEFUN NRECONC ...) ; x-compiling (DEFUN BUTLAST ...) ; x-compiling (DEFUN NBUTLAST ...) ; x-compiling (DEFUN LDIFF ...) ; x-compiling (DEFUN RPLACA ...) ; x-compiling (DEFUN RPLACD ...) ; x-compiling (DEFUN %RPLACA ...) ; x-compiling (DEFUN %RPLACD ...) ; x-compiling (DEFUN %SETNTH ...) ; x-compiling (DEFMACRO APPLY-KEY ...) ; x-compiling (DEFMACRO WITH-SET-KEYS ...) ; x-compiling (DEFMACRO SATISFIES-THE-TEST ...) ; x-compiling (DEFUN SUBST ...) ; x-compiling (DEFUN SUBST-IF ...) ; x-compiling (DEFUN SUBST-IF-NOT ...) ; x-compiling (DEFUN NSUBST ...) ; x-compiling (DEFUN NSUBST-IF ...) ; x-compiling (DEFUN NSUBST-IF-NOT ...) ; x-compiling (DEFUN SUBLIS ...) ; x-compiling (DEFMACRO NSUBLIS-MACRO ...) ; x-compiling (DEFUN NSUBLIS ...) ; x-compiling (DEFUN MEMBER ...) ; x-compiling (DEFUN MEMBER-IF ...) ; x-compiling (DEFUN MEMBER-IF-NOT ...) ; x-compiling (DEFUN TAILP ...) ; x-compiling (DEFUN ADJOIN ...) ; x-compiling (DEFCONSTANT +LIST-BASED-UNION-LIMIT+ ...) ; x-compiling (DEFUN UNION ...) ; x-compiling (DEFMACRO STEVE-SPLICE ...) ; x-compiling (DEFUN NUNION ...) ; x-compiling (DEFUN INTERSECTION ...) ; x-compiling (DEFUN NINTERSECTION ...) ; x-compiling (DEFUN SET-DIFFERENCE ...) ; x-compiling (DEFUN NSET-DIFFERENCE ...) ; x-compiling (DEFUN SET-EXCLUSIVE-OR ...) ; x-compiling (DEFUN NSET-EXCLUSIVE-OR ...) ; x-compiling (DEFUN SUBSETP ...) ; x-compiling (DEFUN ACONS ...) ; x-compiling (DEFUN PAIRLIS ...) ; x-compiling (DEFUN ASSOC ...) ; x-compiling (DEFUN ASSOC-IF ...) ; x-compiling (DEFUN ASSOC-IF-NOT ...) ; x-compiling (DEFUN RASSOC ...) ; x-compiling (DEFUN RASSOC-IF ...) ; x-compiling (DEFUN RASSOC-IF-NOT ...) ; x-compiling (DEFUN MAP1 ...) ; x-compiling (DEFUN MAPC ...) ; x-compiling (DEFUN MAPCAR ...) ; x-compiling (DEFUN MAPCAN ...) ; x-compiling (DEFUN MAPL ...) ; x-compiling (DEFUN MAPLIST ...) ; x-compiling (DEFUN MAPCON ...) ; x-compiling (DEF NIL ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/list.lisp ; in: DEF () ; (EQL SB!IMPL::X SB!IMPL::TARGET) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; ; note: forced to do GENERIC-EQL (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; ; note: forced to do GENERIC-EQL (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; ; note: forced to do GENERIC-EQL (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; ; note: forced to do GENERIC-EQL (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; x-compiling (DEF NIL ...) ; x-compiling (DEF (KEY) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/list.lisp ; in: DEF (KEY) ; (EQL SB!IMPL::X (FUNCALL SB!IMPL::KEY SB!IMPL::TARGET)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; ; note: forced to do GENERIC-EQL (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; ; note: forced to do GENERIC-EQL (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; ; note: forced to do GENERIC-EQL (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; ; note: forced to do GENERIC-EQL (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; x-compiling (DEF (KEY) ...) ; x-compiling (DEF (KEY TEST) ...) ; x-compiling (DEF (KEY TEST-NOT) ...) ; x-compiling (DEF (TEST) ...) ; x-compiling (DEF (TEST-NOT) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/list.lisp ; in: DEFUN LAST ; (DEFUN LAST (LIST &OPTIONAL (SB!IMPL::N 1)) ; "Return the last N conses (not the last element!) of a list." ; (CASE SB!IMPL::N ; (1 (SB!IMPL::LAST1-MACRO)) ; (0 (SB!IMPL::LAST0-MACRO)) ; (T (TYPECASE SB!IMPL::N (FIXNUM #) (BIGNUM #))))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (LIST SB!IMPL::N) {C6557B9}> ; LIST '1)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN NTHCDR ; (MOD SB!IMPL::N SB!IMPL::I) ; --> LET ; ==> ; (REM NUMBER SB!C::DIVISOR) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN TREE-EQUAL ; (DEFUN TREE-EQUAL ; (SB!IMPL::X SB!IMPL::Y ; &KEY (SB!IMPL::TEST #'EQL SB!IMPL::TESTP) ; (SB!IMPL::TEST-NOT NIL SB!IMPL::NOTP)) ; "Return T if X and Y are isomorphic trees with identical leaves." ; (WHEN (AND SB!IMPL::TESTP SB!IMPL::NOTP) ; (ERROR ":TEST and :TEST-NOT were both supplied.")) ; (IF SB!IMPL::TEST-NOT ; (SB!IMPL::TREE-EQUAL-TEST-NOT SB!IMPL::X SB!IMPL::Y ; (SB!KERNEL:%COERCE-CALLABLE-TO-FUN SB!IMPL::TEST-NOT)) ; (SB!IMPL::TREE-EQUAL-TEST SB!IMPL::X SB!IMPL::Y ; (SB!KERNEL:%COERCE-CALLABLE-TO-FUN SB!IMPL::TEST)))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!IMPL::X SB!IMPL::Y #:.DEFAULTING-TEMP. #:N-SUPPLIED-38 ; #:.DEFAULTING-TEMP. #:N-SUPPLIED-39) ; {E3E9969}> ; SB!IMPL::X SB!IMPL::Y NIL NIL NIL NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 167 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/list.lisp ; in: DEFINE-COMPILER-MACRO LAST ; (SB!INT:CONSTANT-FORM-VALUE SB!IMPL::N SB!IMPL::ENV) ; ; caught STYLE-WARNING: ; undefined function: CONSTANT-FORM-VALUE ; ; compilation unit finished ; Undefined type: ; CODE-DELETION-NOTE ; Undefined function: ; CONSTANT-FORM-VALUE ; caught 6 STYLE-WARNING conditions ; printed 28 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/list.lisp-obj-tmp written ; compilation finished in 0:00:01.103 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/seq.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFUN %CHECK-GENERIC-SEQUENCE-BOUNDS ...) ; x-compiling (DEFPARAMETER *SEQUENCE-KEYWORD-INFO* ...) ; x-compiling (SB-XC:DEFMACRO DEFINE-SEQUENCE-TRAVERSER ...) ; x-compiling (SB-XC:DEFMACRO SEQ-DISPATCH ...) ; x-compiling (SB-XC:DEFMACRO SEQ-DISPATCH-CHECKING ...) ; x-compiling (SB-XC:DEFMACRO %MAKE-SEQUENCE-LIKE ...) ; x-compiling (SB-XC:DEFMACRO BAD-SEQUENCE-TYPE-ERROR ...) ; x-compiling (SB-XC:DEFMACRO SEQUENCE-TYPE-LENGTH-MISMATCH-ERROR ...) ; x-compiling (SB-XC:DEFMACRO SEQUENCE-TYPE-TOO-HAIRY ...) ; x-compiling (DEFUN IS-A-VALID-SEQUENCE-TYPE-SPECIFIER-P ...) ; x-compiling (DEFUN VECTOR-OF-CHECKED-LENGTH-GIVEN-LENGTH ...) ; x-compiling (DEFUN SEQUENCE-OF-CHECKED-LENGTH-GIVEN-TYPE ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN SIGNAL-INDEX-TOO-LARGE-ERROR ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN SEQUENCE-BOUNDING-INDICES-BAD-ERROR ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN ARRAY-BOUNDING-INDICES-BAD-ERROR ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN CIRCULAR-LIST-ERROR ...) ; x-compiling (DEFUN EMPTYP ...) ; x-compiling (DEFUN ELT ...) ; x-compiling (DEFUN %SETELT ...) ; x-compiling (DEFUN LENGTH ...) ; x-compiling (DEFUN MAKE-SEQUENCE ...) ; x-compiling (DEFINE-ARRAY-DISPATCH VECTOR-SUBSEQ-DISPATCH ...) ; x-compiling (DEFUN VECTOR-SUBSEQ* ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/seq.lisp ; in: DEFUN VECTOR-SUBSEQ* ; (SB!KERNEL:WITH-ARRAY-DATA ((SB!IMPL::DATA SEQUENCE) ; (SB!IMPL::START SB!IMPL::START) ; (SB!IMPL::END SB!IMPL::END) :CHECK-FILL-POINTER T ; :FORCE-INLINE T) ; (SB!IMPL::VECTOR-SUBSEQ-DISPATCH SB!IMPL::DATA SB!IMPL::START SB!IMPL::END)) ; --> LET LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB!KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY RETURN-FROM ; --> PROGN VALUES THE MULTIPLE-VALUE-BIND LET UNLESS IF PROGN ; ==> ; (SB!C::%TYPE-CHECK-ERROR/C #:G1112 'SB!KERNEL::OBJECT-NOT-INDEX-ERROR) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of TYPE-CHECK-ERROR/C ; ==> ; (SB!C::%TYPE-CHECK-ERROR/C #:G1114 'SB!KERNEL::OBJECT-NOT-INDEX-ERROR) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of TYPE-CHECK-ERROR/C ; --> LET LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; --> SB!KERNEL:%WITH-ARRAY-DATA-MACRO LET* DO BLOCK LET TAGBODY PSETQ PSETF ; --> LET* MULTIPLE-VALUE-BIND LET LET* MULTIPLE-VALUE-BIND LET PROGN SETQ THE ; --> MULTIPLE-VALUE-BIND LET UNLESS IF PROGN ; ==> ; (SB!C::%TYPE-CHECK-ERROR/C #:G1117 'SB!KERNEL::OBJECT-NOT-INDEX-ERROR) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of TYPE-CHECK-ERROR/C ; x-compiling (DEFUN LIST-SUBSEQ* ...) ; x-compiling (DEFUN SUBSEQ ...) ; x-compiling (DEFUN COPY-SEQ ...) ; x-compiling (DEFUN LIST-COPY-SEQ* ...) ; x-compiling (DEFUN LIST-FILL* ...) ; x-compiling (DEFUN VECTOR-FILL* ...) ; x-compiling (DEFUN STRING-FILL* ...) ; x-compiling (DEFUN FILL ...) ; x-compiling (DEFUN LIST-REPLACE-FROM-LIST* ...) ; x-compiling (DEFUN LIST-REPLACE-FROM-VECTOR* ...) ; x-compiling (DEFUN VECTOR-REPLACE-FROM-LIST* ...) ; x-compiling (DEFUN VECTOR-REPLACE-FROM-VECTOR* ...) ; x-compiling (DEFUN SIMPLE-CHARACTER-STRING-REPLACE-FROM-SIMPLE-CHARACTER-STRING* ...) ; x-compiling (DEFINE-SEQUENCE-TRAVERSER REPLACE ...) ; x-compiling (DEFUN REVERSE ...) ; x-compiling (DEFUN LIST-REVERSE* ...) ; x-compiling (DEFUN VECTOR-REVERSE* ...) ; x-compiling (DEFUN LIST-NREVERSE* ...) ; x-compiling (DEFUN VECTOR-NREVERSE* ...) ; x-compiling (DEFUN NREVERSE ...) ; x-compiling (DEFMACRO SB!SEQUENCE:DOSEQUENCE ...) ; x-compiling (DEFUN CONCATENATE ...) ; x-compiling (DEF %CONCATENATE-TO-STRING ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/seq.lisp ; in: DEF %CONCATENATE-TO-STRING ; (SB!IMPL::DEF SB!KERNEL:%CONCATENATE-TO-STRING CHARACTER) ; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; --> BLOCK LET* DOLIST BLOCK LET TAGBODY UNLESS IF PROGN LET TAGBODY ; --> SB!IMPL::STRING-DISPATCH FLET ETYPECASE LET COND IF COND IF COND IF PROGN ; --> #:STRING-DISPATCH-FUN1788 BLOCK ; ==> ; (REPLACE SB!IMPL::RESULT SB!IMPL::SEQ :START1 SB!IMPL::START) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING. ; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; --> BLOCK LET* MAPCAR LET LET SB!INT:DO-ANONYMOUS BLOCK LET TAGBODY TAGBODY ; --> SB!KERNEL:%RPLACD SETQ THE LIST CONS FUNCALL SB!C::%FUNCALL ; ==> ; (LENGTH (CAR #:G9975)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; --> BLOCK LET* DOLIST BLOCK LET TAGBODY UNLESS IF PROGN LET TAGBODY INCF LET* ; --> SETQ THE MULTIPLE-VALUE-BIND LET UNLESS IF PROGN ; ==> ; (SB!C::%TYPE-CHECK-ERROR/C #:G1869 'SB!KERNEL::OBJECT-NOT-INDEX-ERROR) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of TYPE-CHECK-ERROR/C ; x-compiling (DEF %CONCATENATE-TO-BASE-STRING ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/seq.lisp ; in: DEF %CONCATENATE-TO-BASE-STRING ; (SB!IMPL::DEF SB!KERNEL:%CONCATENATE-TO-BASE-STRING BASE-CHAR) ; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; --> BLOCK LET* DOLIST BLOCK LET TAGBODY UNLESS IF PROGN LET TAGBODY ; --> SB!IMPL::STRING-DISPATCH FLET ETYPECASE LET COND IF COND IF COND IF PROGN ; --> #:STRING-DISPATCH-FUN1875 BLOCK ; ==> ; (REPLACE SB!IMPL::RESULT SB!IMPL::SEQ :START1 SB!IMPL::START) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)). ; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; --> BLOCK LET* MAPCAR LET LET SB!INT:DO-ANONYMOUS BLOCK LET TAGBODY TAGBODY ; --> SB!KERNEL:%RPLACD SETQ THE LIST CONS FUNCALL SB!C::%FUNCALL ; ==> ; (LENGTH (CAR #:G10022)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; --> BLOCK LET* DOLIST BLOCK LET TAGBODY UNLESS IF PROGN LET TAGBODY INCF LET* ; --> SETQ THE MULTIPLE-VALUE-BIND LET UNLESS IF PROGN ; ==> ; (SB!C::%TYPE-CHECK-ERROR/C #:G1957 'SB!KERNEL::OBJECT-NOT-INDEX-ERROR) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of TYPE-CHECK-ERROR/C ; x-compiling (DEFUN %MAP-TO-LIST-ARITY-1 ...) ; x-compiling (DEFUN %MAP-TO-SIMPLE-VECTOR-ARITY-1 ...) ; x-compiling (DEFUN %MAP-FOR-EFFECT-ARITY-1 ...) ; x-compiling (DECLAIM (MAYBE-INLINE %MAP-FOR-EFFECT)) ; x-compiling (DEFUN %MAP-FOR-EFFECT ...) ; x-compiling (DEFUN %MAP-TO-LIST ...) ; x-compiling (DEFUN %MAP-TO-VECTOR ...) ; x-compiling (DEFUN %MAP ...) ; x-compiling (DEFUN MAP ...) ; x-compiling (DEFMACRO MAP-INTO-LAMBDA ...) ; x-compiling (DEFINE-ARRAY-DISPATCH VECTOR-MAP-INTO ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/seq.lisp ; in: DEFINE-ARRAY-DISPATCH VECTOR-MAP-INTO ; (INCF SB!INT:INDEX) ; --> LET* + ; ==> ; SB!INT:INDEX ; ; note: deleting unreachable code ; x-compiling (DEFUN MAP-INTO ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/seq.lisp ; in: DEFUN MAP-INTO ; (DEFUN MAP-INTO (SB!IMPL::RESULT-SEQUENCE FUNCTION &REST SB!IMPL::SEQUENCES) ; (LET ((SB!IMPL::REALLY-FUN (SB!KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION))) ; (ETYPECASE SB!IMPL::RESULT-SEQUENCE ; (VECTOR ; (SB!KERNEL:WITH-ARRAY-DATA # ; #)) ; (LIST ; (LET # ; # ; #)) ; (SEQUENCE (MULTIPLE-VALUE-BIND # # #)))) ; SB!IMPL::RESULT-SEQUENCE) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (BLOCK MAP-INTO ; (LET ((SB!IMPL::REALLY-FUN (SB!KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION))) ; (ETYPECASE SB!IMPL::RESULT-SEQUENCE ; (VECTOR ; (SB!KERNEL:WITH-ARRAY-DATA # ; #)) ; (LIST ; (LET # ; # ; #)) ; (SEQUENCE (MULTIPLE-VALUE-BIND # # #)))) ; SB!IMPL::RESULT-SEQUENCE) ; ; note: Allocating a value-cell at runtime for checking possibly out of extent exit via ; (RETURN-FROM MAP-INTO RESULT-SEQUENCE). Use GO/RETURN-FROM with SAFETY 0, or ; declare the exit function DYNAMIC-EXTENT to avoid. ; x-compiling (DEFQUANTIFIER SOME ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/seq.lisp ; in: DEFQUANTIFIER SOME ; (SB!IMPL::DEFQUANTIFIER SOME WHEN SB!IMPL::PRED-VALUE :UNFOUND-RESULT NIL ; :DOC "Apply PREDICATE to the 0-indexed elements of the sequences, then ; possibly to those with index 1, and so on. Return the first ; non-NIL value encountered, or NIL if the end of any sequence is reached.") ; --> PROGN DEFINE-COMPILER-MACRO PROGN EVAL-WHEN ; ==> ; (SB!C::%DEFINE-COMPILER-MACRO 'SOME ; #'(LAMBDA (#:WHOLE2901 #:ENVIRONMENT2902) ; (DECLARE (IGNORE #:ENVIRONMENT2902)) ; (LET* ((#:CMACRO-&WHOLE10469 #:WHOLE2901) ; (#:WHOLE2901 #)) ; (DECLARE ; (IGNORABLE #:CMACRO-&WHOLE10469)) ; (LET (#) ; (UNLESS # #)) ; (LET* (# # #) ; (BLOCK SOME #)))) ; '(SB!IMPL::PRED SB!IMPL::FIRST-SEQ &REST ; SB!IMPL::MORE-SEQS) ; NIL '(COMPILER-MACRO-FUNCTION SOME)) ; ; caught STYLE-WARNING: ; 4 calls to COMMON-LISP:SOME were compiled before a compiler-macro was defined ; for it. A declaration of NOTINLINE at the call sites will eliminate this ; warning, as will defining the compiler-macro before its first potential use. ; x-compiling (DEFQUANTIFIER EVERY ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/seq.lisp ; in: DEFQUANTIFIER EVERY ; (SB!IMPL::DEFQUANTIFIER EVERY UNLESS NIL :DOC ; "Apply PREDICATE to the 0-indexed elements of the sequences, then ; possibly to those with index 1, and so on. Return NIL as soon ; as any invocation of PREDICATE returns NIL, or T if every invocation ; is non-NIL.") ; --> PROGN DEFINE-COMPILER-MACRO PROGN EVAL-WHEN ; ==> ; (SB!C::%DEFINE-COMPILER-MACRO 'EVERY ; #'(LAMBDA (#:WHOLE2980 #:ENVIRONMENT2981) ; (DECLARE (IGNORE #:ENVIRONMENT2981)) ; (LET* ((#:CMACRO-&WHOLE10490 #:WHOLE2980) ; (#:WHOLE2980 #)) ; (DECLARE ; (IGNORABLE #:CMACRO-&WHOLE10490)) ; (LET (#) ; (UNLESS # #)) ; (LET* (# # #) ; (BLOCK EVERY #)))) ; '(SB!IMPL::PRED SB!IMPL::FIRST-SEQ &REST ; SB!IMPL::MORE-SEQS) ; NIL '(COMPILER-MACRO-FUNCTION EVERY)) ; ; caught STYLE-WARNING: ; 7 calls to COMMON-LISP:EVERY were compiled before a compiler-macro was defined ; for it. A declaration of NOTINLINE at the call sites will eliminate this ; warning, as will defining the compiler-macro before its first potential use. ; x-compiling (DEFQUANTIFIER NOTANY ...) ; x-compiling (DEFQUANTIFIER NOTEVERY ...) ; x-compiling (DEFINE-SEQUENCE-TRAVERSER REDUCE ...) ; x-compiling (DEFINE-SEQUENCE-TRAVERSER DELETE ...) ; x-compiling (DEFINE-SEQUENCE-TRAVERSER DELETE-IF ...) ; x-compiling (DEFINE-SEQUENCE-TRAVERSER DELETE-IF-NOT ...) ; x-compiling (DEFINE-SEQUENCE-TRAVERSER REMOVE ...) ; x-compiling (DEFINE-SEQUENCE-TRAVERSER REMOVE-IF ...) ; x-compiling (DEFINE-SEQUENCE-TRAVERSER REMOVE-IF-NOT ...) ; x-compiling (DEFUN LIST-REMOVE-DUPLICATES* ...) ; x-compiling (DEFUN VECTOR-REMOVE-DUPLICATES* ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/seq.lisp ; in: DEFUN VECTOR-REMOVE-DUPLICATES* ; (SB!IMPL::%MAKE-SEQUENCE-LIKE VECTOR LENGTH) ; --> SB!IMPL::SEQ-DISPATCH IF LET SB!EXT:TRULY-THE ; ==> ; VECTOR ; ; note: deleting unreachable code ; --> SB!IMPL::SEQ-DISPATCH IF LET MAKE-LIST ; ==> ; LENGTH ; ; note: deleting unreachable code ; --> SB!IMPL::SEQ-DISPATCH IF IF SB!SEQUENCE:MAKE-SEQUENCE-LIKE ; ==> ; VECTOR ; ; note: deleting unreachable code ; x-compiling (DEFINE-SEQUENCE-TRAVERSER REMOVE-DUPLICATES ...) ; x-compiling (DEFUN LIST-DELETE-DUPLICATES* ...) ; x-compiling (DEFUN VECTOR-DELETE-DUPLICATES* ...) ; x-compiling (DEFINE-SEQUENCE-TRAVERSER DELETE-DUPLICATES ...) ; x-compiling (DEFUN LIST-SUBSTITUTE* ...) ; x-compiling (DEFUN VECTOR-SUBSTITUTE* ...) ; x-compiling (DEFINE-SEQUENCE-TRAVERSER SUBSTITUTE ...) ; x-compiling (DEFINE-SEQUENCE-TRAVERSER SUBSTITUTE-IF ...) ; x-compiling (DEFINE-SEQUENCE-TRAVERSER SUBSTITUTE-IF-NOT ...) ; x-compiling (DEFINE-SEQUENCE-TRAVERSER NSUBSTITUTE ...) ; x-compiling (DEFUN NLIST-SUBSTITUTE* ...) ; x-compiling (DEFUN NVECTOR-SUBSTITUTE* ...) ; x-compiling (DEFINE-SEQUENCE-TRAVERSER NSUBSTITUTE-IF ...) ; x-compiling (DEFUN NLIST-SUBSTITUTE-IF* ...) ; x-compiling (DEFUN NVECTOR-SUBSTITUTE-IF* ...) ; x-compiling (DEFINE-SEQUENCE-TRAVERSER NSUBSTITUTE-IF-NOT ...) ; x-compiling (DEFUN NLIST-SUBSTITUTE-IF-NOT* ...) ; x-compiling (DEFUN NVECTOR-SUBSTITUTE-IF-NOT* ...) ; x-compiling (DEFUN EFFECTIVE-FIND-POSITION-TEST ...) ; x-compiling (DEFUN EFFECTIVE-FIND-POSITION-KEY ...) ; x-compiling (DEFUN %FIND-POSITION ...) ; x-compiling (DEFUN %FIND-POSITION-IF ...) ; x-compiling (DEFUN %FIND-POSITION-IF-NOT ...) ; x-compiling (DEFUN FIND ...) ; x-compiling (DEFUN POSITION ...) ; x-compiling (DEFUN FIND-IF ...) ; x-compiling (DEFUN POSITION-IF ...) ; x-compiling (DEFUN FIND-IF-NOT ...) ; x-compiling (DEFUN POSITION-IF-NOT ...) ; x-compiling (DEFINE-SEQUENCE-TRAVERSER COUNT-IF ...) ; x-compiling (DEFINE-SEQUENCE-TRAVERSER COUNT-IF-NOT ...) ; x-compiling (DEFINE-SEQUENCE-TRAVERSER COUNT ...) ; x-compiling (DEFINE-SEQUENCE-TRAVERSER MISMATCH ...) ; x-compiling (DEFINE-SEQUENCE-TRAVERSER SEARCH ...) ; x-compiling (DEFUN FILL-DATA-VECTOR ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/seq.lisp ; in: DEFUN %FIND-POSITION ; (SB!IMPL::FROBS T) ; --> SB!IMPL::SEQ-DISPATCH IF LET SB!KERNEL:WITH-ARRAY-DATA LET LET LET ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL MACROLET TYPECASE LET COND IF COND IF COND IF PROGN ; --> IF LET ; ==> ; (SB!KERNEL:%BIT-POSITION SB!IMPL::ITEM SEQUENCE SB!IMPL::FROM-END ; SB!IMPL::START SB!IMPL::END) ; ; caught STYLE-WARNING: ; undefined function: %BIT-POSITION ; in: DEFINE-ARRAY-DISPATCH VECTOR-MAP-INTO ; (SB!IMPL::DEFINE-ARRAY-DISPATCH SB!IMPL::VECTOR-MAP-INTO ; (SB!IMPL::DATA SB!IMPL::START SB!IMPL::END SB!IMPL::FUN SB!IMPL::SEQUENCES) ; (DECLARE (OPTIMIZE SPEED (SAFETY 0)) ; (TYPE SB!INT:INDEX SB!IMPL::START SB!IMPL::END) ; (TYPE FUNCTION SB!IMPL::FUN) ; (TYPE LIST SB!IMPL::SEQUENCES)) ; (LET ((SB!INT:INDEX SB!IMPL::START)) ; (DECLARE (TYPE SB!INT:INDEX SB!INT:INDEX)) ; (BLOCK SB!IMPL::MAPPING ; (SB!IMPL::MAP-INTO-LAMBDA SB!IMPL::SEQUENCES (&REST SB!IMPL::ARGS) ; (DECLARE #) (WHEN # #) (SETF #) (INCF SB!INT:INDEX))) ; SB!INT:INDEX)) ; --> PROGN SB!EXT:DEFGLOBAL PROGN LET LET ; ==> ; (SB!IMPL::%DEFGLOBAL 'SB!IMPL::%%VECTOR-MAP-INTO-FUNS%% ; (UNLESS #:BOUNDP ; (MAKE-ARRAY 256 :INITIAL-ELEMENT ; #'SB!IMPL::HAIRY-VECTOR-MAP-INTO-ERROR)) ; #:BOUNDP 'NIL NIL (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: %DEFGLOBAL ; in: DEFINE-ARRAY-DISPATCH VECTOR-SUBSEQ-DISPATCH ; (SB!IMPL::DEFINE-ARRAY-DISPATCH SB!IMPL::VECTOR-SUBSEQ-DISPATCH ; (ARRAY SB!IMPL::START SB!IMPL::END) (DECLARE (OPTIMIZE SPEED (SAFETY 0))) ; (DECLARE (TYPE SB!INT:INDEX SB!IMPL::START SB!IMPL::END)) ; (SUBSEQ ARRAY SB!IMPL::START SB!IMPL::END)) ; --> PROGN SB!EXT:DEFGLOBAL PROGN LET LET ; ==> ; (SB!IMPL::%DEFGLOBAL 'SB!IMPL::%%VECTOR-SUBSEQ-DISPATCH-FUNS%% ; (UNLESS #:BOUNDP ; (MAKE-ARRAY 256 :INITIAL-ELEMENT ; #'SB!IMPL::HAIRY-VECTOR-SUBSEQ-DISPATCH-ERROR)) ; #:BOUNDP 'NIL NIL (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: %DEFGLOBAL ; in: DEFUN %SETELT ; (SETF (SB!SEQUENCE:ELT SEQUENCE SB!INT:INDEX) SB!IMPL::NEWVAL) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!SEQUENCE:ELT) #:NEW438 #:SEQUENCE440 #:INDEX439) ; ; caught STYLE-WARNING: ; undefined function: (SETF SB!SEQUENCE:ELT) ; in: DEFUN MAP-INTO ; (SETF (SB!SEQUENCE:ITERATOR-ELEMENT SB!IMPL::RESULT-SEQUENCE SB!IMPL::ITER) ; (APPLY SB!IMPL::REALLY-FUN SB!IMPL::ARGS)) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!SEQUENCE:ITERATOR-ELEMENT) #:NEW2837 ; #:RESULT-SEQUENCE2839 #:ITER2838) ; ; caught STYLE-WARNING: ; undefined function: (SETF SB!SEQUENCE:ITERATOR-ELEMENT) ; in: DEFUN MAKE-SEQUENCE ; (TYPEP TYPE 'SB!KERNEL:ARRAY-TYPE) ; ; caught STYLE-WARNING: ; undefined type: ARRAY-TYPE ; in: DEFUN CONCATENATE ; (SB!IMPL::SEQUENCE-TYPE-LENGTH-MISMATCH-ERROR TYPE ; (REDUCE #'+ SB!IMPL::SEQUENCES :KEY #'LENGTH)) ; --> ERROR COND IF PROGN SB!INT:QUASIQUOTE SB!IMPL::|List| CAR ; ==> ; (SB!KERNEL:ARRAY-TYPE-DIMENSIONS TYPE) ; ; caught STYLE-WARNING: ; undefined function: ARRAY-TYPE-DIMENSIONS ; in: DEFUN MAKE-SEQUENCE ; (SB!IMPL::SEQUENCE-TYPE-LENGTH-MISMATCH-ERROR TYPE LENGTH) ; --> ERROR COND IF PROGN SB!INT:QUASIQUOTE SB!IMPL::|List| CAR ; ==> ; (SB!KERNEL:ARRAY-TYPE-DIMENSIONS TYPE) ; ; caught STYLE-WARNING: ; undefined function: ARRAY-TYPE-DIMENSIONS ; in: DEFUN SEQUENCE-OF-CHECKED-LENGTH-GIVEN-TYPE ; (SB!KERNEL:ARRAY-TYPE-DIMENSIONS SB!KERNEL:CTYPE) ; ; caught STYLE-WARNING: ; undefined function: ARRAY-TYPE-DIMENSIONS ; in: DEFUN CONCATENATE ; (SB!IMPL::SEQUENCE-TYPE-LENGTH-MISMATCH-ERROR TYPE ; (REDUCE #'+ SB!IMPL::SEQUENCES :KEY #'LENGTH)) ; --> ERROR COND IF ; ==> ; (SB!KERNEL:ARRAY-TYPE-P TYPE) ; ; caught STYLE-WARNING: ; undefined function: ARRAY-TYPE-P ; in: DEFUN MAKE-SEQUENCE ; (SB!IMPL::SEQUENCE-TYPE-LENGTH-MISMATCH-ERROR TYPE LENGTH) ; --> ERROR COND IF ; ==> ; (SB!KERNEL:ARRAY-TYPE-P TYPE) ; ; caught STYLE-WARNING: ; undefined function: ARRAY-TYPE-P ; in: DEFUN SEQUENCE-OF-CHECKED-LENGTH-GIVEN-TYPE ; (SB!KERNEL:ARRAY-TYPE-P SB!KERNEL:CTYPE) ; ; caught STYLE-WARNING: ; undefined function: ARRAY-TYPE-P ; in: DEFUN MAKE-SEQUENCE ; (SB!KERNEL:ARRAY-TYPE-SPECIALIZED-ELEMENT-TYPE TYPE) ; ; caught STYLE-WARNING: ; undefined function: ARRAY-TYPE-SPECIALIZED-ELEMENT-TYPE ; in: DEFUN %MAP ; (SB!MOP:CLASS-PROTOTYPE (SB!PCL:ENSURE-CLASS-FINALIZED SB!INT:IT)) ; ; caught STYLE-WARNING: ; undefined function: SB!MOP:CLASS-PROTOTYPE ; in: DEFUN CONCATENATE ; (SB!MOP:CLASS-PROTOTYPE (SB!PCL:ENSURE-CLASS-FINALIZED SB!INT:IT)) ; ; caught STYLE-WARNING: ; undefined function: SB!MOP:CLASS-PROTOTYPE ; in: DEFUN MAKE-SEQUENCE ; (SB!MOP:CLASS-PROTOTYPE (SB!PCL:ENSURE-CLASS-FINALIZED SB!INT:IT)) ; ; caught STYLE-WARNING: ; undefined function: SB!MOP:CLASS-PROTOTYPE ; (MULTIPLE-VALUE-BIND (MIN SB!IMPL::EXACTP) ; (SB!KERNEL::CONS-TYPE-LENGTH-INFO TYPE) ; (IF SB!IMPL::EXACTP ; (UNLESS (= LENGTH MIN) ; (SB!IMPL::SEQUENCE-TYPE-LENGTH-MISMATCH-ERROR TYPE LENGTH)) ; (UNLESS (>= LENGTH MIN) ; (SB!IMPL::SEQUENCE-TYPE-LENGTH-MISMATCH-ERROR TYPE LENGTH))) ; (MAKE-LIST LENGTH :INITIAL-ELEMENT SB!IMPL::INITIAL-ELEMENT)) ; --> MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (MIN SB!IMPL::EXACTP #:G451) {D89C771}> ; MIN SB!IMPL::EXACTP NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: SB-XC:DEFMACRO DEFINE-SEQUENCE-TRAVERSER ; (ASSOC SB!DEBUG:ARG SB!IMPL::*SEQUENCE-KEYWORD-INFO*) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; (MULTIPLE-VALUE-BIND (SB!IMPL::BODY SB!IMPL::DECLARATIONS SB!IMPL::DOCSTRING) ; (SB!INT:PARSE-BODY SB!IMPL::BODY :DOC-STRING-ALLOWED T) ; (SB!INT:COLLECT ((SB!IMPL::NEW-ARGS) (SB!IMPL::NEW-DECLARATIONS) ; (SB!IMPL::REBINDINGS/EAGER) (SB!IMPL::REBINDINGS/LAZY)) ; (DOLIST (SB!DEBUG:ARG SB!IMPL::ARGS) ; (CASE SB!DEBUG:ARG (# #) (# # #) (T #))) ; (SB!INT:QUASIQUOTE ; (DEFUN #S(SB!IMPL::COMMA :EXPR SB!IMPL::NAME :KIND 0) ; #S(SB!IMPL::COMMA :EXPR # :KIND 0) ; #S(SB!IMPL::COMMA :EXPR # :KIND 2) ; #S(SB!IMPL::COMMA :EXPR SB!IMPL::DECLARATIONS :KIND 2) ; (SYMBOL-MACROLET # ; #))))) ; --> MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!IMPL::BODY SB!IMPL::DECLARATIONS SB!IMPL::DOCSTRING #:G60) ; {CF6F159}> ; SB!IMPL::BODY SB!IMPL::DECLARATIONS SB!IMPL::DOCSTRING NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 358 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/seq.lisp ; in: DEF %CONCATENATE-TO-BASE-STRING ; (SB!IMPL::DEF SB!KERNEL:%CONCATENATE-TO-BASE-STRING BASE-CHAR) ; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; --> BLOCK LET* MAPCAR LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEF %CONCATENATE-TO-STRING ; (SB!IMPL::DEF SB!KERNEL:%CONCATENATE-TO-STRING CHARACTER) ; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; --> BLOCK LET* MAPCAR LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFPARAMETER *SEQUENCE-KEYWORD-INFO* ; (SB!INT:QUASIQUOTE ; ((COUNT NIL NIL (ETYPECASE COUNT (NULL #) (FIXNUM #) (INTEGER #)) ; (MOD 536870911)) ; #S(SB!IMPL::COMMA :EXPR (MAPCAN (LAMBDA # #) '(# # #)) :KIND 2) ; (SB!IMPL::KEY NIL NIL ; (AND SB!IMPL::KEY (SB!KERNEL:%COERCE-CALLABLE-TO-FUN SB!IMPL::KEY)) ; (OR NULL FUNCTION)) ; (SB!IMPL::TEST #'EQL NIL (SB!KERNEL:%COERCE-CALLABLE-TO-FUN SB!IMPL::TEST) ; FUNCTION) ; (SB!IMPL::TEST-NOT NIL NIL ; (AND SB!IMPL::TEST-NOT ; (SB!KERNEL:%COERCE-CALLABLE-TO-FUN SB!IMPL::TEST-NOT)) ; (OR NULL FUNCTION)))) ; --> SB!IMPL::|List*| SB!IMPL::|Append| MAPCAN LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; ; caught STYLE-WARNING: ; 1 more use of undefined type COMPILER-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/seq.lisp ; in: DEFUN CONCATENATE ; #'SB!SEQUENCE:CONCATENATE ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:CONCATENATE ; (SB!KERNEL::CONS-TYPE-LENGTH-INFO TYPE) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::CONS-TYPE-LENGTH-INFO ; in: DEFUN MAKE-SEQUENCE ; (SB!KERNEL::CONS-TYPE-LENGTH-INFO TYPE) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::CONS-TYPE-LENGTH-INFO ; in: DEFUN CONCATENATE ; (SB!IMPL::SEQUENCE-TYPE-LENGTH-MISMATCH-ERROR TYPE ; (REDUCE #'+ SB!IMPL::SEQUENCES :KEY #'LENGTH)) ; --> ERROR COND IF COND IF COND IF ; ==> ; (SB!KERNEL:CONS-TYPE-P TYPE) ; ; caught STYLE-WARNING: ; undefined function: CONS-TYPE-P ; in: DEFUN MAKE-SEQUENCE ; (SB!IMPL::SEQUENCE-TYPE-LENGTH-MISMATCH-ERROR TYPE LENGTH) ; --> ERROR COND IF COND IF COND IF ; ==> ; (SB!KERNEL:CONS-TYPE-P TYPE) ; ; caught STYLE-WARNING: ; undefined function: CONS-TYPE-P ; in: DEFUN COPY-SEQ ; (SB!SEQUENCE:COPY-SEQ SEQUENCE) ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:COPY-SEQ ; in: DEFINE-SEQUENCE-TRAVERSER COUNT ; #'SB!SEQUENCE:COUNT ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:COUNT ; in: DEFINE-SEQUENCE-TRAVERSER COUNT-IF ; #'SB!SEQUENCE:COUNT-IF ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:COUNT-IF ; in: DEFINE-SEQUENCE-TRAVERSER COUNT-IF-NOT ; #'SB!SEQUENCE:COUNT-IF-NOT ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:COUNT-IF-NOT ; in: DEFUN CONCATENATE ; (SB!KERNEL:CSUBTYPEP TYPE (SB!KERNEL:SPECIFIER-TYPE 'LIST)) ; ; caught STYLE-WARNING: ; undefined function: CSUBTYPEP ; in: DEFUN MAKE-SEQUENCE ; (SB!KERNEL:CSUBTYPEP TYPE (SB!KERNEL:SPECIFIER-TYPE 'LIST)) ; ; caught STYLE-WARNING: ; undefined function: CSUBTYPEP ; in: DEFUN IS-A-VALID-SEQUENCE-TYPE-SPECIFIER-P ; (SB!KERNEL:CSUBTYPEP TYPE (SB!KERNEL:SPECIFIER-TYPE 'VECTOR)) ; ; caught STYLE-WARNING: ; undefined function: CSUBTYPEP ; ; caught STYLE-WARNING: ; 1 more use of undefined function CSUBTYPEP ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/seq.lisp ; in: DEFINE-SEQUENCE-TRAVERSER DELETE ; #'SB!SEQUENCE:DELETE ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:DELETE ; in: DEFINE-SEQUENCE-TRAVERSER DELETE-DUPLICATES ; #'SB!SEQUENCE:DELETE-DUPLICATES ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:DELETE-DUPLICATES ; in: DEFINE-SEQUENCE-TRAVERSER DELETE-IF ; #'SB!SEQUENCE:DELETE-IF ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:DELETE-IF ; in: DEFINE-SEQUENCE-TRAVERSER DELETE-IF-NOT ; #'SB!SEQUENCE:DELETE-IF-NOT ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:DELETE-IF-NOT ; in: DEFUN ELT ; (SB!SEQUENCE:ELT SEQUENCE SB!INT:INDEX) ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:ELT ; in: DEFUN EMPTYP ; (SB!SEQUENCE:EMPTYP SEQUENCE) ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:EMPTYP ; in: DEFUN %MAP ; (SB!PCL:ENSURE-CLASS-FINALIZED SB!INT:IT) ; ; caught STYLE-WARNING: ; undefined function: SB!PCL:ENSURE-CLASS-FINALIZED ; in: DEFUN CONCATENATE ; (SB!PCL:ENSURE-CLASS-FINALIZED SB!INT:IT) ; ; caught STYLE-WARNING: ; undefined function: SB!PCL:ENSURE-CLASS-FINALIZED ; in: DEFUN MAKE-SEQUENCE ; (SB!PCL:ENSURE-CLASS-FINALIZED SB!INT:IT) ; ; caught STYLE-WARNING: ; undefined function: SB!PCL:ENSURE-CLASS-FINALIZED ; in: DEFUN FILL ; (SB!SEQUENCE:FILL SEQUENCE SB!IMPL::ITEM :START SB!IMPL::START :END ; (SB!KERNEL:%CHECK-GENERIC-SEQUENCE-BOUNDS SEQUENCE SB!IMPL::START ; SB!IMPL::END)) ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:FILL ; in: DEFUN FIND ; #'SB!SEQUENCE:FIND ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:FIND ; in: DEFUN %MAP ; (FIND-CLASS SB!IMPL::RESULT-TYPE NIL) ; ; caught STYLE-WARNING: ; undefined function: FIND-CLASS ; in: DEFUN CONCATENATE ; (FIND-CLASS SB!IMPL::OUTPUT-TYPE-SPEC NIL) ; ; caught STYLE-WARNING: ; undefined function: FIND-CLASS ; in: DEFUN MAKE-SEQUENCE ; (FIND-CLASS SB!IMPL::ADJUSTED-TYPE NIL) ; ; caught STYLE-WARNING: ; undefined function: FIND-CLASS ; in: DEFUN FIND-IF ; #'SB!SEQUENCE:FIND-IF ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:FIND-IF ; in: DEFUN FIND-IF-NOT ; #'SB!SEQUENCE:FIND-IF-NOT ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:FIND-IF-NOT ; in: DEFQUANTIFIER NOTANY ; (SB!IMPL::DEFQUANTIFIER NOTANY WHEN NIL :DOC ; "Apply PREDICATE to the 0-indexed elements of the sequences, then ; possibly to those with index 1, and so on. Return NIL as soon ; as any invocation of PREDICATE returns a non-NIL value, or T if the end ; of any sequence is reached.") ; --> PROGN DEFINE-COMPILER-MACRO PROGN EVAL-WHEN SB!C::%DEFINE-COMPILER-MACRO ; --> SB!C::%DEFINE-COMPILER-MACRO FUNCTION LET* LET* BLOCK SB!INT:BINDING* ; --> MULTIPLE-VALUE-BIND LET MULTIPLE-VALUE-BIND LET MULTIPLE-VALUE-BIND LET ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; (SB!INT:FUNARG-BIND/CALL-FORMS SB!IMPL::PRED SB!IMPL::ELEMENTS) ; ; caught STYLE-WARNING: ; undefined function: FUNARG-BIND/CALL-FORMS ; in: DEFQUANTIFIER EVERY ; (SB!IMPL::DEFQUANTIFIER EVERY UNLESS NIL :DOC ; "Apply PREDICATE to the 0-indexed elements of the sequences, then ; possibly to those with index 1, and so on. Return NIL as soon ; as any invocation of PREDICATE returns NIL, or T if every invocation ; is non-NIL.") ; --> PROGN DEFINE-COMPILER-MACRO PROGN EVAL-WHEN SB!C::%DEFINE-COMPILER-MACRO ; --> SB!C::%DEFINE-COMPILER-MACRO FUNCTION LET* LET* BLOCK SB!INT:BINDING* ; --> MULTIPLE-VALUE-BIND LET MULTIPLE-VALUE-BIND LET MULTIPLE-VALUE-BIND LET ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; (SB!INT:FUNARG-BIND/CALL-FORMS SB!IMPL::PRED SB!IMPL::ELEMENTS) ; ; caught STYLE-WARNING: ; undefined function: FUNARG-BIND/CALL-FORMS ; in: DEFQUANTIFIER SOME ; (SB!IMPL::DEFQUANTIFIER SOME WHEN SB!IMPL::PRED-VALUE :UNFOUND-RESULT NIL ; :DOC "Apply PREDICATE to the 0-indexed elements of the sequences, then ; possibly to those with index 1, and so on. Return the first ; non-NIL value encountered, or NIL if the end of any sequence is reached.") ; --> PROGN DEFINE-COMPILER-MACRO PROGN EVAL-WHEN SB!C::%DEFINE-COMPILER-MACRO ; --> SB!C::%DEFINE-COMPILER-MACRO FUNCTION LET* LET* BLOCK SB!INT:BINDING* ; --> MULTIPLE-VALUE-BIND LET MULTIPLE-VALUE-BIND LET MULTIPLE-VALUE-BIND LET ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; (SB!INT:FUNARG-BIND/CALL-FORMS SB!IMPL::PRED SB!IMPL::ELEMENTS) ; ; caught STYLE-WARNING: ; undefined function: FUNARG-BIND/CALL-FORMS ; ; caught STYLE-WARNING: ; 1 more use of undefined function FUNARG-BIND/CALL-FORMS ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/seq.lisp ; in: DEFUN MAP-INTO ; (SB!SEQUENCE:ITERATOR-ENDP SB!IMPL::RESULT-SEQUENCE SB!IMPL::ITER ; SB!IMPL::LIMIT SB!IMPL::FROM-END) ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:ITERATOR-ENDP ; (SB!SEQUENCE:ITERATOR-STEP SB!IMPL::RESULT-SEQUENCE SB!IMPL::ITER ; SB!IMPL::FROM-END) ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:ITERATOR-STEP ; in: DEFUN LENGTH ; (SB!SEQUENCE:LENGTH SEQUENCE) ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:LENGTH ; in: DEFUN %CHECK-GENERIC-SEQUENCE-BOUNDS ; (SB!SEQUENCE:LENGTH SB!IMPL::SEQ) ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:LENGTH ; in: DEFUN %MAP-TO-SIMPLE-VECTOR-ARITY-1 ; (SB!SEQUENCE:DOSEQUENCE (SB!IMPL::ELEMENT SEQUENCE) ; (SETF (AREF SB!IMPL::RESULT SB!INT:INDEX) ; (FUNCALL SB!IMPL::REALLY-FUN SB!IMPL::ELEMENT)) ; (INCF SB!INT:INDEX)) ; --> LET BLOCK SB!IMPL::SEQ-DISPATCH IF IF MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL ; ==> ; (SB!SEQUENCE:MAKE-SEQUENCE-ITERATOR #:SEQUENCE1997) ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:MAKE-SEQUENCE-ITERATOR ; in: DEFUN %MAP-TO-LIST-ARITY-1 ; (SB!SEQUENCE:DOSEQUENCE (SB!IMPL::ELEMENT SEQUENCE) ; (PUSH (FUNCALL SB!IMPL::REALLY-FUN SB!IMPL::ELEMENT) ; SB!IMPL::REVERSED-RESULT)) ; --> LET BLOCK SB!IMPL::SEQ-DISPATCH IF IF MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL ; ==> ; (SB!SEQUENCE:MAKE-SEQUENCE-ITERATOR #:SEQUENCE1961) ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:MAKE-SEQUENCE-ITERATOR ; in: DEFUN CONCATENATE ; (SB!SEQUENCE:DOSEQUENCE (SB!IMPL::E SEQUENCE) ; (SETQ SB!IMPL::SPLICE (CDR (RPLACD SB!IMPL::SPLICE #)))) ; --> LET BLOCK SB!IMPL::SEQ-DISPATCH IF IF MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL ; ==> ; (SB!SEQUENCE:MAKE-SEQUENCE-ITERATOR #:SEQUENCE1664) ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:MAKE-SEQUENCE-ITERATOR ; ; caught STYLE-WARNING: ; 4 more uses of undefined function SB!SEQUENCE:MAKE-SEQUENCE-ITERATOR ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/seq.lisp ; in: DEFINE-SEQUENCE-TRAVERSER REMOVE ; (SB!IMPL::NORMAL-MUMBLE-REMOVE) ; --> SB!IMPL::MUMBLE-REMOVE SB!IMPL::MUMBLE-REMOVE-MACRO DO BLOCK LET DO BLOCK ; --> LET SB!IMPL::%MAKE-SEQUENCE-LIKE SB!IMPL::SEQ-DISPATCH IF IF ; ==> ; (SB!SEQUENCE:MAKE-SEQUENCE-LIKE SEQUENCE LENGTH) ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:MAKE-SEQUENCE-LIKE ; in: DEFUN VECTOR-REVERSE* ; (SB!IMPL::VECTOR-REVERSE SEQUENCE) ; --> LET DO BLOCK LET SB!IMPL::%MAKE-SEQUENCE-LIKE SB!IMPL::SEQ-DISPATCH IF IF ; ==> ; (SB!SEQUENCE:MAKE-SEQUENCE-LIKE SEQUENCE LENGTH) ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:MAKE-SEQUENCE-LIKE ; in: DEFUN MAKE-SEQUENCE ; (SB!SEQUENCE:MAKE-SEQUENCE-LIKE SB!IMPL::PROTOTYPE LENGTH :INITIAL-ELEMENT ; SB!IMPL::INITIAL-ELEMENT) ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:MAKE-SEQUENCE-LIKE ; ; caught STYLE-WARNING: ; 4 more uses of undefined function SB!SEQUENCE:MAKE-SEQUENCE-LIKE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/seq.lisp ; in: DEFUN %MAP ; #'SB!SEQUENCE:MAP ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:MAP ; in: DEFINE-SEQUENCE-TRAVERSER MISMATCH ; #'SB!SEQUENCE:MISMATCH ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:MISMATCH ; in: DEFUN NREVERSE ; (SB!SEQUENCE:NREVERSE SEQUENCE) ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:NREVERSE ; in: DEFINE-SEQUENCE-TRAVERSER NSUBSTITUTE ; #'SB!SEQUENCE:NSUBSTITUTE ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:NSUBSTITUTE ; in: DEFINE-SEQUENCE-TRAVERSER NSUBSTITUTE-IF ; #'SB!SEQUENCE:NSUBSTITUTE-IF ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:NSUBSTITUTE-IF ; in: DEFINE-SEQUENCE-TRAVERSER NSUBSTITUTE-IF-NOT ; #'SB!SEQUENCE:NSUBSTITUTE-IF-NOT ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:NSUBSTITUTE-IF-NOT ; in: DEFUN POSITION ; #'SB!SEQUENCE:POSITION ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:POSITION ; in: DEFUN POSITION-IF ; #'SB!SEQUENCE:POSITION-IF ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:POSITION-IF ; in: DEFUN POSITION-IF-NOT ; #'SB!SEQUENCE:POSITION-IF-NOT ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:POSITION-IF-NOT ; in: DEFINE-SEQUENCE-TRAVERSER REDUCE ; #'SB!SEQUENCE:REDUCE ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:REDUCE ; in: DEFINE-SEQUENCE-TRAVERSER REMOVE ; #'SB!SEQUENCE:REMOVE ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:REMOVE ; in: DEFINE-SEQUENCE-TRAVERSER REMOVE-DUPLICATES ; #'SB!SEQUENCE:REMOVE-DUPLICATES ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:REMOVE-DUPLICATES ; in: DEFINE-SEQUENCE-TRAVERSER REMOVE-IF ; #'SB!SEQUENCE:REMOVE-IF ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:REMOVE-IF ; in: DEFINE-SEQUENCE-TRAVERSER REMOVE-IF-NOT ; #'SB!SEQUENCE:REMOVE-IF-NOT ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:REMOVE-IF-NOT ; in: DEFINE-SEQUENCE-TRAVERSER REPLACE ; #'SB!SEQUENCE:REPLACE ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:REPLACE ; in: DEFUN REVERSE ; (SB!SEQUENCE:REVERSE SEQUENCE) ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:REVERSE ; in: DEFINE-SEQUENCE-TRAVERSER SEARCH ; (SB!IMPL::LIST-SEARCH SB!IMPL::SEQUENCE2 SB!IMPL::SEQUENCE1) ; --> DO BLOCK LET TAGBODY TAGBODY IF SB!IMPL::SEARCH-COMPARE ; --> SB!IMPL::SEQ-DISPATCH IF IF RETURN-FROM APPLY MULTIPLE-VALUE-CALL ; ==> ; #'SB!SEQUENCE:SEARCH ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:SEARCH ; in: DEFUN MAKE-SEQUENCE ; (SB!KERNEL:SPECIFIER-TYPE 'LIST) ; ; caught STYLE-WARNING: ; undefined function: SPECIFIER-TYPE ; in: DEFUN SEQUENCE-OF-CHECKED-LENGTH-GIVEN-TYPE ; (SB!KERNEL:SPECIFIER-TYPE SB!IMPL::RESULT-TYPE) ; ; caught STYLE-WARNING: ; undefined function: SPECIFIER-TYPE ; in: DEFUN IS-A-VALID-SEQUENCE-TYPE-SPECIFIER-P ; (SB!KERNEL:SPECIFIER-TYPE 'VECTOR) ; ; caught STYLE-WARNING: ; undefined function: SPECIFIER-TYPE ; ; caught STYLE-WARNING: ; 2 more uses of undefined function SPECIFIER-TYPE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/seq.lisp ; in: DEFUN SUBSEQ ; (SB!SEQUENCE:SUBSEQ SEQUENCE SB!IMPL::START SB!IMPL::END) ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:SUBSEQ ; in: DEFINE-SEQUENCE-TRAVERSER SUBSTITUTE ; (SB!IMPL::SUBST-DISPATCH 'SB!IMPL::NORMAL) ; --> SB!IMPL::SEQ-DISPATCH IF IF APPLY MULTIPLE-VALUE-CALL ; ==> ; #'SB!SEQUENCE:SUBSTITUTE ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:SUBSTITUTE ; in: DEFINE-SEQUENCE-TRAVERSER SUBSTITUTE-IF ; (SB!IMPL::SUBST-DISPATCH 'IF) ; --> SB!IMPL::SEQ-DISPATCH IF IF APPLY MULTIPLE-VALUE-CALL ; ==> ; #'SB!SEQUENCE:SUBSTITUTE-IF ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:SUBSTITUTE-IF ; in: DEFINE-SEQUENCE-TRAVERSER SUBSTITUTE-IF-NOT ; (SB!IMPL::SUBST-DISPATCH 'SB!IMPL::IF-NOT) ; --> SB!IMPL::SEQ-DISPATCH IF IF APPLY MULTIPLE-VALUE-CALL ; ==> ; #'SB!SEQUENCE:SUBSTITUTE-IF-NOT ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:SUBSTITUTE-IF-NOT ; in: DEFUN CONCATENATE ; (SB!IMPL::SEQUENCE-TYPE-LENGTH-MISMATCH-ERROR TYPE ; (REDUCE #'+ SB!IMPL::SEQUENCES :KEY #'LENGTH)) ; --> ERROR LIST ; ==> ; (SB!KERNEL:TYPE-SPECIFIER TYPE) ; ; caught STYLE-WARNING: ; undefined function: TYPE-SPECIFIER ; in: DEFUN MAKE-SEQUENCE ; (SB!IMPL::SEQUENCE-TYPE-LENGTH-MISMATCH-ERROR TYPE LENGTH) ; --> ERROR LIST ; ==> ; (SB!KERNEL:TYPE-SPECIFIER TYPE) ; ; caught STYLE-WARNING: ; undefined function: TYPE-SPECIFIER ; in: DEFUN CONCATENATE ; (SB!KERNEL:TYPE= TYPE (SB!KERNEL:SPECIFIER-TYPE 'LIST)) ; ; caught STYLE-WARNING: ; undefined function: TYPE= ; in: DEFUN MAKE-SEQUENCE ; (SB!KERNEL:TYPE= TYPE (SB!KERNEL:SPECIFIER-TYPE 'LIST)) ; ; caught STYLE-WARNING: ; undefined function: TYPE= ; (SB!EXT:TYPEXPAND TYPE) ; ; caught STYLE-WARNING: ; undefined function: TYPEXPAND ; in: DEFUN STRING-FILL* ; (FILL SB!IMPL::DATA SB!IMPL::ITEM :START SB!IMPL::START :END SB!IMPL::END) ; ; caught STYLE-WARNING: ; undefined function: UB32-BASH-FILL ; ; caught STYLE-WARNING: ; undefined function: UB8-BASH-FILL ; ; compilation unit finished ; Undefined types: ; ARRAY-TYPE CODE-DELETION-NOTE COMPILER-NOTE ; Undefined functions: ; %BIT-POSITION %DEFGLOBAL (SETF SB!SEQUENCE:ELT) (SETF SB!SEQUENCE:ITERATOR-ELEMENT) ARRAY-TYPE-DIMENSIONS ARRAY-TYPE-P ARRAY-TYPE-SPECIALIZED-ELEMENT-TYPE SB!MOP:CLASS-PROTOTYPE SB!SEQUENCE:CONCATENATE SB!KERNEL::CONS-TYPE-LENGTH-INFO CONS-TYPE-P SB!SEQUENCE:COPY-SEQ SB!SEQUENCE:COUNT SB!SEQUENCE:COUNT-IF SB!SEQUENCE:COUNT-IF-NOT CSUBTYPEP SB!SEQUENCE:DELETE SB!SEQUENCE:DELETE-DUPLICATES SB!SEQUENCE:DELETE-IF SB!SEQUENCE:DELETE-IF-NOT SB!SEQUENCE:ELT SB!SEQUENCE:EMPTYP SB!PCL:ENSURE-CLASS-FINALIZED SB!SEQUENCE:FILL SB!SEQUENCE:FIND FIND-CLASS SB!SEQUENCE:FIND-IF SB!SEQUENCE:FIND-IF-NOT FUNARG-BIND/CALL-FORMS SB!SEQUENCE:ITERATOR-ENDP SB!SEQUENCE:ITERATOR-STEP SB!SEQUENCE:LENGTH SB!SEQUENCE:MAKE-SEQUENCE-ITERATOR SB!SEQUENCE:MAKE-SEQUENCE-LIKE SB!SEQUENCE:MAP SB!SEQUENCE:MISMATCH SB!SEQUENCE:NREVERSE SB!SEQUENCE:NSUBSTITUTE SB!SEQUENCE:NSUBSTITUTE-IF SB!SEQUENCE:NSUBSTITUTE-IF-NOT SB!SEQUENCE:POSITION SB!SEQUENCE:POSITION-IF SB!SEQUENCE:POSITION-IF-NOT SB!SEQUENCE:REDUCE SB!SEQUENCE:REMOVE SB!SEQUENCE:REMOVE-DUPLICATES SB!SEQUENCE:REMOVE-IF SB!SEQUENCE:REMOVE-IF-NOT SB!SEQUENCE:REPLACE SB!SEQUENCE:REVERSE SB!SEQUENCE:SEARCH SPECIFIER-TYPE SB!SEQUENCE:SUBSEQ SB!SEQUENCE:SUBSTITUTE SB!SEQUENCE:SUBSTITUTE-IF SB!SEQUENCE:SUBSTITUTE-IF-NOT TYPE-SPECIFIER TYPE= TYPEXPAND UB32-BASH-FILL UB8-BASH-FILL ; caught 103 STYLE-WARNING conditions ; printed 18 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/seq.lisp-obj-tmp written ; compilation finished in 0:00:04.603 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/coerce.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEF LIST-TO-VECTOR* ...) ; x-compiling (DEF VECTOR-TO-VECTOR* ...) ; x-compiling (DEF SEQUENCE-TO-VECTOR* ...) ; x-compiling (DEFUN VECTOR-TO-LIST* ...) ; x-compiling (DEFUN SEQUENCE-TO-LIST ...) ; x-compiling (DECLAIM (INLINE COERCE-TO-LIST)) ; x-compiling (DECLAIM (INLINE COERCE-TO-VECTOR)) ; x-compiling (DEFUN COERCE-SYMBOL-TO-FUN ...) ; x-compiling (DEFUN COERCE-TO-FUN ...) ; x-compiling (DEFUN COERCE-TO-LIST ...) ; x-compiling (DEFUN COERCE-TO-VECTOR ...) ; x-compiling (DEFUN COERCE ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/coerce.lisp ; in: DEFUN COERCE ; (SB!IMPL::SEQUENCE-TYPE-LENGTH-MISMATCH-ERROR TYPE (LENGTH SB!IMPL::OBJECT)) ; --> ERROR COND IF PROGN SB!INT:QUASIQUOTE SB!IMPL::|List| CAR ; ==> ; (SB!KERNEL:ARRAY-TYPE-DIMENSIONS TYPE) ; ; caught STYLE-WARNING: ; undefined function: ARRAY-TYPE-DIMENSIONS ; --> ERROR COND IF ; ==> ; (SB!KERNEL:ARRAY-TYPE-P TYPE) ; ; caught STYLE-WARNING: ; undefined function: ARRAY-TYPE-P ; (SB!MOP:CLASS-PROTOTYPE ; (SB!PCL:ENSURE-CLASS-FINALIZED (FIND-CLASS SB!IMPL::OUTPUT-TYPE-SPEC))) ; ; caught STYLE-WARNING: ; undefined function: SB!MOP:CLASS-PROTOTYPE ; (MULTIPLE-VALUE-BIND (MIN SB!IMPL::EXACTP) ; (SB!KERNEL::CONS-TYPE-LENGTH-INFO TYPE) ; (LET ((LENGTH (LENGTH SB!IMPL::OBJECT))) ; (IF SB!IMPL::EXACTP ; (UNLESS (= LENGTH MIN) ; (SB!IMPL::SEQUENCE-TYPE-LENGTH-MISMATCH-ERROR TYPE LENGTH)) ; (UNLESS (>= LENGTH MIN) ; (SB!IMPL::SEQUENCE-TYPE-LENGTH-MISMATCH-ERROR TYPE LENGTH))) ; (SB!SEQUENCE:MAKE-SEQUENCE-LIKE NIL LENGTH :INITIAL-CONTENTS ; SB!IMPL::OBJECT))) ; --> MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (MIN SB!IMPL::EXACTP #:G85) {DCBE289}> ; MIN SB!IMPL::EXACTP NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; (MULTIPLE-VALUE-BIND (MIN SB!IMPL::EXACTP) ; (SB!KERNEL::CONS-TYPE-LENGTH-INFO TYPE) ; (LET ((LENGTH (LENGTH SB!IMPL::OBJECT))) ; (IF SB!IMPL::EXACTP ; (UNLESS (= LENGTH MIN) ; (SB!IMPL::SEQUENCE-TYPE-LENGTH-MISMATCH-ERROR TYPE LENGTH)) ; (UNLESS (>= LENGTH MIN) ; (SB!IMPL::SEQUENCE-TYPE-LENGTH-MISMATCH-ERROR TYPE LENGTH))) ; (SB!IMPL::VECTOR-TO-LIST* SB!IMPL::OBJECT))) ; --> MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (MIN SB!IMPL::EXACTP #:G82) {DCA0001}> ; MIN SB!IMPL::EXACTP NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN SEQUENCE-TO-LIST ; (SB!SEQUENCE:DOSEQUENCE (SB!IMPL::I SEQUENCE) ; (RPLACD SB!IMPL::SPLICE (LIST SB!IMPL::I)) ; (SETF SB!IMPL::SPLICE (CDR SB!IMPL::SPLICE))) ; --> LET BLOCK SB!IMPL::SEQ-DISPATCH IF IF LET SB!IMPL::DO-VECTOR-DATA ; --> SB!KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:VEC49 #:START50 #:END51 #:G58) {DADB479}> ; #:VEC49 #:START50 #:END51 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN COERCE ; (SB!KERNEL::CONS-TYPE-LENGTH-INFO TYPE) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::CONS-TYPE-LENGTH-INFO ; (SB!IMPL::SEQUENCE-TYPE-LENGTH-MISMATCH-ERROR TYPE (LENGTH SB!IMPL::OBJECT)) ; --> ERROR COND IF COND IF COND IF ; ==> ; (SB!KERNEL:CONS-TYPE-P TYPE) ; ; caught STYLE-WARNING: ; undefined function: CONS-TYPE-P ; (SB!KERNEL:CSUBTYPEP TYPE (SB!KERNEL:SPECIFIER-TYPE 'SINGLE-FLOAT)) ; ; caught STYLE-WARNING: ; undefined function: CSUBTYPEP ; (SB!PCL:ENSURE-CLASS-FINALIZED (FIND-CLASS SB!IMPL::OUTPUT-TYPE-SPEC)) ; ; caught STYLE-WARNING: ; undefined function: SB!PCL:ENSURE-CLASS-FINALIZED ; (FIND-CLASS SB!IMPL::OUTPUT-TYPE-SPEC NIL) ; ; caught STYLE-WARNING: ; undefined function: FIND-CLASS ; in: DEFUN SEQUENCE-TO-LIST ; (SB!SEQUENCE:DOSEQUENCE (SB!IMPL::I SEQUENCE) ; (RPLACD SB!IMPL::SPLICE (LIST SB!IMPL::I)) ; (SETF SB!IMPL::SPLICE (CDR SB!IMPL::SPLICE))) ; --> LET BLOCK SB!IMPL::SEQ-DISPATCH IF IF MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL ; ==> ; (SB!SEQUENCE:MAKE-SEQUENCE-ITERATOR #:SEQUENCE38) ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:MAKE-SEQUENCE-ITERATOR ; in: DEFUN COERCE ; (SB!SEQUENCE:MAKE-SEQUENCE-LIKE NIL (LENGTH SB!IMPL::OBJECT) ; :INITIAL-CONTENTS SB!IMPL::OBJECT) ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:MAKE-SEQUENCE-LIKE ; (SB!KERNEL:SPECIFIER-TYPE 'CHARACTER) ; ; caught STYLE-WARNING: ; undefined function: SPECIFIER-TYPE ; (SB!IMPL::SEQUENCE-TYPE-LENGTH-MISMATCH-ERROR TYPE (LENGTH SB!IMPL::OBJECT)) ; --> ERROR LIST ; ==> ; (SB!KERNEL:TYPE-SPECIFIER TYPE) ; ; caught STYLE-WARNING: ; undefined function: TYPE-SPECIFIER ; (SB!KERNEL:TYPE= TYPE (SB!KERNEL:SPECIFIER-TYPE 'CHARACTER)) ; ; caught STYLE-WARNING: ; undefined function: TYPE= ; ; compilation unit finished ; Undefined type: ; CODE-DELETION-NOTE ; Undefined functions: ; ARRAY-TYPE-DIMENSIONS ARRAY-TYPE-P SB!MOP:CLASS-PROTOTYPE SB!KERNEL::CONS-TYPE-LENGTH-INFO CONS-TYPE-P CSUBTYPEP SB!PCL:ENSURE-CLASS-FINALIZED FIND-CLASS SB!SEQUENCE:MAKE-SEQUENCE-ITERATOR SB!SEQUENCE:MAKE-SEQUENCE-LIKE SPECIFIER-TYPE TYPE-SPECIFIER TYPE= ; caught 16 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/coerce.lisp-obj-tmp written ; compilation finished in 0:00:00.141 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/string.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFUN STRING ...) ; x-compiling (DEFUN %CHECK-VECTOR-SEQUENCE-BOUNDS ...) ; x-compiling (DEFUN CHAR ...) ; x-compiling (DEFUN %CHARSET ...) ; x-compiling (DEFUN SCHAR ...) ; x-compiling (DEFUN %SCHARSET ...) ; x-compiling (DEFUN STRING=* ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/string.lisp ; in: DEFUN STRING=* ; (SB!IMPL::WITH-TWO-STRINGS SB!IMPL::STRING1 SB!IMPL::STRING2 SB!IMPL::START1 ; SB!IMPL::END1 NIL SB!IMPL::START2 SB!IMPL::END2 ; (LET ((SB!IMPL::LEN (- SB!IMPL::END1 SB!IMPL::START1))) ; (UNLESS (= SB!IMPL::LEN (- SB!IMPL::END2 SB!IMPL::START2)) ; (RETURN-FROM SB!KERNEL:STRING=* NIL)) ; (LET* ((SB!IMPL::WIDETAG1 #) (SB!IMPL::WIDETAG2 #) (SB!IMPL::CHAR-SHIFT #)) ; (WHEN SB!IMPL::CHAR-SHIFT (RETURN-FROM SB!KERNEL:STRING=* #)) ; (MACROLET (#) ; (COND # #)))) ; (NOT ; (SB!KERNEL:%SP-STRING-COMPARE SB!IMPL::STRING1 SB!IMPL::START1 ; SB!IMPL::END1 SB!IMPL::STRING2 SB!IMPL::START2 SB!IMPL::END2))) ; --> LET SB!IMPL::%STRING IF ; ==> ; (STRING SB!IMPL::STRING1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR SYMBOL CHARACTER), not a SYMBOL. ; ==> ; (STRING SB!IMPL::STRING2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR SYMBOL CHARACTER), not a SYMBOL. ; x-compiling (DEFUN STRING/=* ...) ; x-compiling (DEFUN STRING<* ...) ; x-compiling (DEFUN STRING>* ...) ; x-compiling (DEFUN STRING<=* ...) ; x-compiling (DEFUN STRING>=* ...) ; x-compiling (DEFUN STRING< ...) ; x-compiling (DEFUN STRING> ...) ; x-compiling (DEFUN STRING<= ...) ; x-compiling (DEFUN STRING>= ...) ; x-compiling (DEFUN STRING= ...) ; x-compiling (DEFUN STRING/= ...) ; x-compiling (DEFUN STRING-EQUAL ...) ; x-compiling (DEFUN STRING-NOT-EQUAL ...) ; x-compiling (DEFUN STRING-LESSP* ...) ; x-compiling (DEFUN STRING-GREATERP* ...) ; x-compiling (DEFUN STRING-NOT-LESSP* ...) ; x-compiling (DEFUN STRING-NOT-GREATERP* ...) ; x-compiling (DEFUN STRING-LESSP ...) ; x-compiling (DEFUN STRING-GREATERP ...) ; x-compiling (DEFUN STRING-NOT-LESSP ...) ; x-compiling (DEFUN STRING-NOT-GREATERP ...) ; x-compiling (DEFUN MAKE-STRING ...) ; x-compiling (FLET (#) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/string.lisp ; in: ; FLET ((%UPCASE (STRING START END) ; (DECLARE (STRING STRING) ; (INDEX START) ; (TYPE SEQUENCE-END END)) ; (LET (#) ; (WITH-ONE-STRING # #) ; SAVED-HEADER))) ; (SB!IMPL::WITH-ONE-STRING (STRING SB!IMPL::START SB!IMPL::END) ; (DO ((SB!INT:INDEX SB!IMPL::START (1+ SB!INT:INDEX))) ; ((= SB!INT:INDEX (THE FIXNUM SB!IMPL::END))) ; (DECLARE (FIXNUM SB!INT:INDEX)) ; (SETF (SCHAR STRING SB!INT:INDEX) (CHAR-UPCASE #)))) ; --> LET SB!IMPL::%STRING IF STRING ; ==> ; STRING ; ; note: deleting unreachable code ; x-compiling (FLET (#) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/string.lisp ; in: ; FLET ((%DOWNCASE (STRING START END) ; (DECLARE (STRING STRING) ; (INDEX START) ; (TYPE SEQUENCE-END END)) ; (LET (#) ; (WITH-ONE-STRING # #) ; SAVED-HEADER))) ; (SB!IMPL::WITH-ONE-STRING (STRING SB!IMPL::START SB!IMPL::END) ; (DO ((SB!INT:INDEX SB!IMPL::START (1+ SB!INT:INDEX))) ; ((= SB!INT:INDEX (THE FIXNUM SB!IMPL::END))) ; (DECLARE (FIXNUM SB!INT:INDEX)) ; (SETF (SCHAR STRING SB!INT:INDEX) (CHAR-DOWNCASE #)))) ; --> LET SB!IMPL::%STRING IF STRING ; ==> ; STRING ; ; note: deleting unreachable code ; x-compiling (FLET (#) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/string.lisp ; in: ; FLET ((%CAPITALIZE (STRING START END) ; (DECLARE (STRING STRING) ; (INDEX START) ; (TYPE SEQUENCE-END END)) ; (LET (#) ; (WITH-ONE-STRING # #) ; SAVED-HEADER))) ; (SB!IMPL::WITH-ONE-STRING (STRING SB!IMPL::START SB!IMPL::END) ; (DO ((SB!INT:INDEX SB!IMPL::START (1+ SB!INT:INDEX)) ; (SB!IMPL::NEW-WORD? T) ; (CHAR NIL)) ; ((= SB!INT:INDEX (THE FIXNUM SB!IMPL::END))) ; (DECLARE (FIXNUM SB!INT:INDEX)) ; (SETQ CHAR (SCHAR STRING SB!INT:INDEX)) ; (COND ((NOT #) (SETQ #)) (SB!IMPL::NEW-WORD? (SETF #) (SETQ #)) ; (T (SETF #))))) ; --> LET SB!IMPL::%STRING IF STRING ; ==> ; STRING ; ; note: deleting unreachable code ; x-compiling (DEFUN GENERIC-STRING-TRIM ...) ; x-compiling (DEFUN STRING-LEFT-TRIM ...) ; x-compiling (DEFUN STRING-RIGHT-TRIM ...) ; x-compiling (DEFUN STRING-TRIM ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/string.lisp ; in: DEFUN STRING=* ; (SB!IMPL::WITH-TWO-STRINGS SB!IMPL::STRING1 SB!IMPL::STRING2 SB!IMPL::START1 ; SB!IMPL::END1 NIL SB!IMPL::START2 SB!IMPL::END2 ; (LET ((SB!IMPL::LEN (- SB!IMPL::END1 SB!IMPL::START1))) ; (UNLESS (= SB!IMPL::LEN (- SB!IMPL::END2 SB!IMPL::START2)) ; (RETURN-FROM SB!KERNEL:STRING=* NIL)) ; (LET* ((SB!IMPL::WIDETAG1 #) (SB!IMPL::WIDETAG2 #) (SB!IMPL::CHAR-SHIFT #)) ; (WHEN SB!IMPL::CHAR-SHIFT (RETURN-FROM SB!KERNEL:STRING=* #)) ; (MACROLET (#) ; (COND # #)))) ; (NOT ; (SB!KERNEL:%SP-STRING-COMPARE SB!IMPL::STRING1 SB!IMPL::START1 ; SB!IMPL::END1 SB!IMPL::STRING2 SB!IMPL::START2 SB!IMPL::END2))) ; --> LET SB!KERNEL:WITH-ARRAY-DATA LET LET LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SB!KERNEL:WITH-ARRAY-DATA LET LET LET ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!IMPL::STRING2 SB!IMPL::START2 SB!IMPL::END2 #:G82) {B32D479}> ; SB!IMPL::STRING2 SB!IMPL::START2 SB!IMPL::END2 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN STRING ; (SETF (SCHAR SB!IMPL::RES 0) SB!IMPL::X) ; --> SB!KERNEL:%SCHARSET SETF LET* MULTIPLE-VALUE-BIND LET FUNCALL ; --> SB!C::%FUNCALL (SETF AREF) SB!KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS ; --> SB!EXT:TRULY-THE ; ==> ; (SB!KERNEL:HAIRY-DATA-VECTOR-SET ARRAY ; (SB!KERNEL:%CHECK-BOUND ARRAY (ARRAY-DIMENSION ARRAY 0) SB!INT:INDEX) ; (THE CHARACTER SB!C::NEW-VALUE)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; (MAKE-STRING 1) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 87 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/string.lisp ; in: DEFUN STRING=* ; (SB!SYS:WITH-PINNED-OBJECTS (SB!IMPL::STRING1 SB!IMPL::STRING2) ; (ZEROP ; (SB!ALIEN:ALIEN-FUNCALL ; (SB!ALIEN:EXTERN-ALIEN "memcmp" ; (FUNCTION SB!ALIEN:INT # # SB!ALIEN:LONG)) ; (SB!IMPL::SAP SB!IMPL::STRING1 SB!IMPL::START1) ; (SB!IMPL::SAP SB!IMPL::STRING2 SB!IMPL::START2) ; (SB!IMPL::SCALE SB!IMPL::LEN)))) ; ==> ; (FLET ((#:WITH-PINNED-OBJECTS-THUNK13267 () ; (PROGN (ZEROP #)))) ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) ; (SB!INT:DX-LET ((#:G89 SB!IMPL::STRING1) (#:G90 SB!IMPL::STRING2)) ; (MULTIPLE-VALUE-PROG1 (#:WITH-PINNED-OBJECTS-THUNK13267) ; (SB!VM::TOUCH-OBJECT #:G89) ; (SB!VM::TOUCH-OBJECT #:G90)))) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; ; compilation unit finished ; Undefined types: ; CODE-DELETION-NOTE COMPILER-NOTE ; caught 5 STYLE-WARNING conditions ; printed 5 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/string.lisp-obj-tmp written ; compilation finished in 0:00:00.933 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/mipsstrops.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFUN %SP-STRING-COMPARE ...) ; x-compiling (DEFUN %SP-REVERSE-STRING-COMPARE ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/mipsstrops.lisp-obj-tmp written ; compilation finished in 0:00:00.075 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-time.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFCONSTANT SB-XC:INTERNAL-TIME-UNITS-PER-SECOND ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/early-time.lisp-obj-tmp written ; compilation finished in 0:00:00.004 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/unix.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!UNIX") ; x-compiling (/SHOW0 "unix.lisp 21") ; x-compiling (DEFUN C-STRINGS->STRING-LIST ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/unix.lisp ; in: DEFUN C-STRINGS->STRING-LIST ; (ERROR "argh! can't happen") ; ==> ; "argh! can't happen" ; ; note: deleting unreachable code ; x-compiling (DEFTYPE UNIX-PATHNAME ...) ; x-compiling (DEFTYPE UNIX-FD ...) ; x-compiling (DEFTYPE UNIX-FILE-MODE ...) ; x-compiling (DEFTYPE UNIX-PID ...) ; x-compiling (DEFTYPE UNIX-UID ...) ; x-compiling (DEFTYPE UNIX-GID ...) ; x-compiling (/SHOW0 "unix.lisp 74") ; x-compiling (DEFMACRO SYSCALL ...) ; x-compiling (DEFMACRO SYSCALL* ...) ; x-compiling (DEFMACRO INT-SYSCALL ...) ; x-compiling (DEFMACRO WITH-RESTARTED-SYSCALL ...) ; x-compiling (DEFMACRO VOID-SYSCALL ...) ; x-compiling (DEFINE-ALIEN-ROUTINE ("getenv" POSIX-GETENV) ...) /entering WITH-ALIEN BINDINGS=((POSIX-GETENV (FUNCTION C-STRING (C-STRING :NOT-NULL T)) :EXTERN "getenv")) /BINDING=(POSIX-GETENV (FUNCTION C-STRING (C-STRING :NOT-NULL T)) :EXTERN "getenv") /SYMBOL=POSIX-GETENV TYPE=(FUNCTION C-STRING (C-STRING :NOT-NULL T)) OPT1=:EXTERN OPT2="getenv" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="getenv" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((POSIX-GETENV #)) (VALUES (ALIEN-FUNCALL POSIX-GETENV NAME)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; x-compiling (DEFUN UNIX-RENAME ...) ; x-compiling (/SHOW0 "unix.lisp 220") ; x-compiling (DEFINE-ALIEN-TYPE FD-MASK ...) ; x-compiling (DEFINE-ALIEN-TYPE NIL ...) ; x-compiling (/SHOW0 "unix.lisp 304") ; x-compiling (DEFUN UNIX-OPEN ...) ; x-compiling (/SHOW0 "unix.lisp 391") ; x-compiling (DEFUN UNIX-CLOSE ...) ; x-compiling (DEFUN SB-MKSTEMP ...) ; x-compiling (DEFCONSTANT RUSAGE_SELF ...) ; x-compiling (DEFCONSTANT RUSAGE_CHILDREN ...) ; x-compiling (DEFCONSTANT RUSAGE_BOTH ...) ; x-compiling (DEFINE-ALIEN-TYPE NIL ...) ; x-compiling (DEFUN UNIX-ACCESS ...) ; x-compiling (DEFCONSTANT L_SET ...) ; x-compiling (DEFCONSTANT L_INCR ...) ; x-compiling (DEFCONSTANT L_XTND ...) ; x-compiling (DEFINE-ALIEN-TYPE UNIX-OFFSET ...) ; x-compiling (DEFUN UNIX-ISATTY ...) ; x-compiling (DEFUN UNIX-LSEEK ...) ; x-compiling (DECLAIM (MAYBE-INLINE UNIX-READ)) ; x-compiling (DEFUN UNIX-READ ...) ; x-compiling (DEFUN UNIX-WRITE ...) /entering WITH-ALIEN BINDINGS=((PTR (* CHAR) SAP)) /BINDING=(PTR (* CHAR) SAP) /SYMBOL=PTR TYPE=(* CHAR) OPT1=SAP OPT2=NIL /ALIEN-TYPE=# /ALLOCATION=:LOCAL INITIAL-VALUE=SAP /:LOCAL case /VAR=#:VAR323 INITVAL=#:INITVAL324 INFO=# /revised BODY=((LET ((#:VAR323 #)) (LET (#) (SB!ALIEN-INTERNALS:NOTE-LOCAL-ALIEN-TYPE '# #:VAR323) (SYMBOL-MACROLET # # #)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; x-compiling (DEFUN UNIX-PIPE ...) /entering WITH-ALIEN BINDINGS=((FDS (ARRAY INT 2))) /BINDING=(FDS (ARRAY INT 2)) /SYMBOL=FDS TYPE=(ARRAY INT 2) OPT1=NIL OPT2=NIL /ALIEN-TYPE=# /ALLOCATION=:LOCAL INITIAL-VALUE=NIL /:LOCAL case /VAR=#:VAR341 INITVAL=NIL INFO=# /revised BODY=((LET ((#:VAR341 #)) (SB!ALIEN-INTERNALS:NOTE-LOCAL-ALIEN-TYPE '# #:VAR341) (SYMBOL-MACROLET (#) (SYSCALL # # #)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; x-compiling (DEFUN UNIX-MKDIR ...) ; x-compiling (DEFUN NEWCHARSTAR-STRING ...) ; x-compiling (DEFUN POSIX-GETCWD ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/unix.lisp ; in: DEFUN POSIX-GETCWD ; (SB!ALIEN:ALIEN-FUNCALL ; (SB!ALIEN:EXTERN-ALIEN "getcwd" ; (FUNCTION (* CHAR) (* CHAR) SB!ALIEN:SIZE-T)) ; NIL 0) ; --> SB!ALIEN-INTERNALS:INVOKE-WITH-SAVED-FP-AND-PC LAMBDA FUNCTION ; --> SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; x-compiling (DEFUN POSIX-GETCWD/ ...) ; x-compiling (DEFUN UNIX-DUP ...) ; x-compiling (DEFTYPE EXIT-CODE ...) ; x-compiling (DEFUN OS-EXIT ...) ; x-compiling (DEFINE-DEPRECATED-FUNCTION :EARLY ...) ; x-compiling (DEFINE-ALIEN-ROUTINE ("getpid" UNIX-GETPID) ...) /entering WITH-ALIEN BINDINGS=((UNIX-GETPID #'INT :EXTERN "getpid")) /BINDING=(UNIX-GETPID #'INT :EXTERN "getpid") /SYMBOL=UNIX-GETPID TYPE=#'INT OPT1=:EXTERN OPT2="getpid" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="getpid" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((UNIX-GETPID #)) (VALUES (ALIEN-FUNCALL UNIX-GETPID)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; x-compiling (DEFINE-ALIEN-ROUTINE ("getuid" UNIX-GETUID) ...) /entering WITH-ALIEN BINDINGS=((UNIX-GETUID #'INT :EXTERN "getuid")) /BINDING=(UNIX-GETUID #'INT :EXTERN "getuid") /SYMBOL=UNIX-GETUID TYPE=#'INT OPT1=:EXTERN OPT2="getuid" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="getuid" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((UNIX-GETUID #)) (VALUES (ALIEN-FUNCALL UNIX-GETUID)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; x-compiling (DEFUN UID-USERNAME ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/unix.lisp ; in: DEFUN UID-USERNAME ; (SB!ALIEN:ALIEN-FUNCALL ; (SB!ALIEN:EXTERN-ALIEN "uid_username" (FUNCTION (* CHAR) SB!ALIEN:INT)) ; SB!UNIX::UID) ; --> SB!ALIEN-INTERNALS:INVOKE-WITH-SAVED-FP-AND-PC LAMBDA FUNCTION ; --> SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; x-compiling (DEFUN UID-HOMEDIR ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/unix.lisp ; in: DEFUN UID-HOMEDIR ; (SB!ALIEN:ALIEN-FUNCALL ; (SB!ALIEN:EXTERN-ALIEN "uid_homedir" (FUNCTION (* CHAR) SB!ALIEN:INT)) ; SB!UNIX::UID) ; --> SB!ALIEN-INTERNALS:INVOKE-WITH-SAVED-FP-AND-PC LAMBDA FUNCTION ; --> SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; x-compiling (DEFUN USER-HOMEDIR ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/unix.lisp ; in: DEFUN USER-HOMEDIR ; (SB!ALIEN:ALIEN-FUNCALL ; (SB!ALIEN:EXTERN-ALIEN "user_homedir" (FUNCTION (* CHAR) SB!ALIEN:C-STRING)) ; SB!UNIX::UID) ; --> SB!ALIEN-INTERNALS:INVOKE-WITH-SAVED-FP-AND-PC LAMBDA FUNCTION ; --> SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; x-compiling (DEFUN UNIX-READLINK ...) /entering WITH-ALIEN BINDINGS=((PTR (* CHAR) (ALIEN-FUNCALL (EXTERN-ALIEN "wrapped_readlink" #) PATH))) /BINDING=(PTR (* CHAR) (ALIEN-FUNCALL (EXTERN-ALIEN "wrapped_readlink" (FUNCTION # C-STRING)) PATH)) /SYMBOL=PTR TYPE=(* CHAR) OPT1=(ALIEN-FUNCALL (EXTERN-ALIEN "wrapped_readlink" (FUNCTION (* CHAR) C-STRING)) PATH) OPT2=NIL /ALIEN-TYPE=# /ALLOCATION=:LOCAL INITIAL-VALUE=(ALIEN-FUNCALL (EXTERN-ALIEN "wrapped_readlink" (FUNCTION (* CHAR) C-STRING)) PATH) /:LOCAL case /VAR=#:VAR546 INITVAL=#:INITVAL547 INFO=# /revised BODY=((LET ((#:VAR546 #)) (LET (#) (SB!ALIEN-INTERNALS:NOTE-LOCAL-ALIEN-TYPE '# #:VAR546) (SYMBOL-MACROLET # # #)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning /entering WITH-ALIEN BINDINGS=((C-STRING C-STRING PTR)) /BINDING=(C-STRING C-STRING PTR) /SYMBOL=C-STRING TYPE=C-STRING OPT1=PTR OPT2=NIL /ALIEN-TYPE=# /ALLOCATION=:LOCAL INITIAL-VALUE=PTR /:LOCAL case /VAR=#:VAR548 INITVAL=#:INITVAL549 INFO=# /revised BODY=((LET ((#:VAR548 #)) (LET (#) (SB!ALIEN-INTERNALS:NOTE-LOCAL-ALIEN-TYPE '# #:VAR548) (SYMBOL-MACROLET # # C-STRING)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/unix.lisp ; in: DEFUN UNIX-READLINK ; (SB!ALIEN:ALIEN-FUNCALL ; (SB!ALIEN:EXTERN-ALIEN "wrapped_readlink" ; (FUNCTION (* CHAR) SB!ALIEN:C-STRING)) ; SB!UNIX::PATH) ; --> SB!ALIEN-INTERNALS:INVOKE-WITH-SAVED-FP-AND-PC LAMBDA FUNCTION ; --> SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; (SB!ALIEN:NULL-ALIEN SB!UNIX::PTR) ; --> SB!UNIX::PTR SB!ALIEN-INTERNALS:LOCAL-ALIEN SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; (SB!ALIEN:WITH-ALIEN ((SB!ALIEN:C-STRING SB!ALIEN:C-STRING SB!UNIX::PTR)) ; SB!ALIEN:C-STRING) ; --> SYMBOL-MACROLET SYMBOL-MACROLET LET LET LET SB!UNIX::PTR ; --> SB!ALIEN-INTERNALS:LOCAL-ALIEN SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; (SB!ALIEN:FREE-ALIEN SB!UNIX::PTR) ; --> SB!UNIX::PTR SB!ALIEN-INTERNALS:LOCAL-ALIEN SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; x-compiling (DEFUN UNIX-REALPATH ...) /entering WITH-ALIEN BINDINGS=((PTR (* CHAR) (ALIEN-FUNCALL (EXTERN-ALIEN "sb_realpath" #) PATH))) /BINDING=(PTR (* CHAR) (ALIEN-FUNCALL (EXTERN-ALIEN "sb_realpath" (FUNCTION # C-STRING)) PATH)) /SYMBOL=PTR TYPE=(* CHAR) OPT1=(ALIEN-FUNCALL (EXTERN-ALIEN "sb_realpath" (FUNCTION (* CHAR) C-STRING)) PATH) OPT2=NIL /ALIEN-TYPE=# /ALLOCATION=:LOCAL INITIAL-VALUE=(ALIEN-FUNCALL (EXTERN-ALIEN "sb_realpath" (FUNCTION (* CHAR) C-STRING)) PATH) /:LOCAL case /VAR=#:VAR566 INITVAL=#:INITVAL567 INFO=# /revised BODY=((LET ((#:VAR566 #)) (LET (#) (SB!ALIEN-INTERNALS:NOTE-LOCAL-ALIEN-TYPE '# #:VAR566) (SYMBOL-MACROLET # # #)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning /entering WITH-ALIEN BINDINGS=((C-STRING C-STRING PTR)) /BINDING=(C-STRING C-STRING PTR) /SYMBOL=C-STRING TYPE=C-STRING OPT1=PTR OPT2=NIL /ALIEN-TYPE=# /ALLOCATION=:LOCAL INITIAL-VALUE=PTR /:LOCAL case /VAR=#:VAR568 INITVAL=#:INITVAL569 INFO=# /revised BODY=((LET ((#:VAR568 #)) (LET (#) (SB!ALIEN-INTERNALS:NOTE-LOCAL-ALIEN-TYPE '# #:VAR568) (SYMBOL-MACROLET # # C-STRING)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/unix.lisp ; in: DEFUN UNIX-REALPATH ; (SB!ALIEN:ALIEN-FUNCALL ; (SB!ALIEN:EXTERN-ALIEN "sb_realpath" (FUNCTION (* CHAR) SB!ALIEN:C-STRING)) ; SB!UNIX::PATH) ; --> SB!ALIEN-INTERNALS:INVOKE-WITH-SAVED-FP-AND-PC LAMBDA FUNCTION ; --> SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; (SB!ALIEN:NULL-ALIEN SB!UNIX::PTR) ; --> SB!UNIX::PTR SB!ALIEN-INTERNALS:LOCAL-ALIEN SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; (SB!ALIEN:WITH-ALIEN ((SB!ALIEN:C-STRING SB!ALIEN:C-STRING SB!UNIX::PTR)) ; SB!ALIEN:C-STRING) ; --> SYMBOL-MACROLET SYMBOL-MACROLET LET LET LET SB!UNIX::PTR ; --> SB!ALIEN-INTERNALS:LOCAL-ALIEN SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; (SB!ALIEN:FREE-ALIEN SB!UNIX::PTR) ; --> SB!UNIX::PTR SB!ALIEN-INTERNALS:LOCAL-ALIEN SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; x-compiling (DEFUN UNIX-UNLINK ...) ; x-compiling (DEFUN UNIX-GETHOSTNAME ...) /entering WITH-ALIEN BINDINGS=((BUF (ARRAY CHAR 256))) /BINDING=(BUF (ARRAY CHAR 256)) /SYMBOL=BUF TYPE=(ARRAY CHAR 256) OPT1=NIL OPT2=NIL /ALIEN-TYPE=# /ALLOCATION=:LOCAL INITIAL-VALUE=NIL /:LOCAL case /VAR=#:VAR596 INITVAL=NIL INFO=# /revised BODY=((LET ((#:VAR596 #)) (SB!ALIEN-INTERNALS:NOTE-LOCAL-ALIEN-TYPE '# #:VAR596) (SYMBOL-MACROLET (#) (SYSCALL # # # 256)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; x-compiling (DEFUN UNIX-SETSID ...) ; x-compiling (DEFUN UNIX-IOCTL ...) ; x-compiling (DECLAIM (INLINE UNIX-FAST-GETRUSAGE)) ; x-compiling (DEFUN UNIX-FAST-GETRUSAGE ...) /entering WITH-ALIEN BINDINGS=((USAGE (STRUCT RUSAGE))) /BINDING=(USAGE (STRUCT RUSAGE)) /SYMBOL=USAGE TYPE=(STRUCT RUSAGE) OPT1=NIL OPT2=NIL /ALIEN-TYPE=# /ALLOCATION=:LOCAL INITIAL-VALUE=NIL /:LOCAL case /VAR=#:VAR615 INITVAL=NIL INFO=# /revised BODY=((LET ((#:VAR615 #)) (SB!ALIEN-INTERNALS:NOTE-LOCAL-ALIEN-TYPE '# #:VAR615) (SYMBOL-MACROLET (#) (SYSCALL* # # WHO #)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; x-compiling (DEFUN UNIX-GETRUSAGE ...) /entering WITH-ALIEN BINDINGS=((USAGE (STRUCT RUSAGE))) /BINDING=(USAGE (STRUCT RUSAGE)) /SYMBOL=USAGE TYPE=(STRUCT RUSAGE) OPT1=NIL OPT2=NIL /ALIEN-TYPE=# /ALLOCATION=:LOCAL INITIAL-VALUE=NIL /:LOCAL case /VAR=#:VAR646 INITVAL=NIL INFO=# /revised BODY=((LET ((#:VAR646 #)) (SB!ALIEN-INTERNALS:NOTE-LOCAL-ALIEN-TYPE '# #:VAR646) (SYMBOL-MACROLET (#) (SYSCALL # # WHO #)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; x-compiling (DEFVAR *ON-DANGEROUS-WAIT* ...) ; x-compiling (DEFUN NOTE-DANGEROUS-WAIT ...) ; x-compiling (DEFINE-ALIEN-TYPE NIL ...) ; x-compiling (DEFUN UNIX-POLL ...) ; x-compiling (DEFUN UNIX-SIMPLE-POLL ...) /entering WITH-ALIEN BINDINGS=((FDS (STRUCT POLLFD))) /BINDING=(FDS (STRUCT POLLFD)) /SYMBOL=FDS TYPE=(STRUCT POLLFD) OPT1=NIL OPT2=NIL /ALIEN-TYPE=# /ALLOCATION=:LOCAL INITIAL-VALUE=NIL /:LOCAL case /VAR=#:VAR701 INITVAL=NIL INFO=# /revised BODY=((LET ((#:VAR701 #)) (SB!ALIEN-INTERNALS:NOTE-LOCAL-ALIEN-TYPE '# #:VAR701) (SYMBOL-MACROLET (#) (WITH-RESTARTED-SYSCALL # # #)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; x-compiling (DEFMACRO WITH-FD-SETSIZE ...) ; x-compiling (DECLAIM (INLINE UNIX-FAST-SELECT)) ; x-compiling (DEFUN UNIX-FAST-SELECT ...) /entering WITH-ALIEN BINDINGS=((TV (STRUCT TIMEVAL))) /BINDING=(TV (STRUCT TIMEVAL)) /SYMBOL=TV TYPE=(STRUCT TIMEVAL) OPT1=NIL OPT2=NIL /ALIEN-TYPE=# /ALLOCATION=:LOCAL INITIAL-VALUE=NIL /:LOCAL case /VAR=#:VAR772 INITVAL=NIL INFO=# /revised BODY=((LET ((#:VAR772 #)) (SB!ALIEN-INTERNALS:NOTE-LOCAL-ALIEN-TYPE '# #:VAR772) (SYMBOL-MACROLET (#) (SETF #) (SETF #) (SELECT #)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; x-compiling (DECLAIM (INLINE NUM-TO-FD-SET ...)) ; x-compiling (DEFUN NUM-TO-FD-SET ...) ; x-compiling (DEFUN FD-SET-TO-NUM ...) ; x-compiling (DEFUN UNIX-SELECT ...) /entering WITH-ALIEN BINDINGS=((TV (STRUCT TIMEVAL)) (RDF (STRUCT FD-SET)) (WRF (STRUCT FD-SET)) (XPF (STRUCT FD-SET))) /BINDING=(XPF (STRUCT FD-SET)) /SYMBOL=XPF TYPE=(STRUCT FD-SET) OPT1=NIL OPT2=NIL /ALIEN-TYPE=# /ALLOCATION=:LOCAL INITIAL-VALUE=NIL /:LOCAL case /VAR=#:VAR818 INITVAL=NIL INFO=# /BINDING=(WRF (STRUCT FD-SET)) /SYMBOL=WRF TYPE=(STRUCT FD-SET) OPT1=NIL OPT2=NIL /ALIEN-TYPE=# /ALLOCATION=:LOCAL INITIAL-VALUE=NIL /:LOCAL case /VAR=#:VAR819 INITVAL=NIL INFO=# /BINDING=(RDF (STRUCT FD-SET)) /SYMBOL=RDF TYPE=(STRUCT FD-SET) OPT1=NIL OPT2=NIL /ALIEN-TYPE=# /ALLOCATION=:LOCAL INITIAL-VALUE=NIL /:LOCAL case /VAR=#:VAR820 INITVAL=NIL INFO=# /BINDING=(TV (STRUCT TIMEVAL)) /SYMBOL=TV TYPE=(STRUCT TIMEVAL) OPT1=NIL OPT2=NIL /ALIEN-TYPE=# /ALLOCATION=:LOCAL INITIAL-VALUE=NIL /:LOCAL case /VAR=#:VAR821 INITVAL=NIL INFO=# /revised BODY=((LET ((#:VAR821 #)) (SB!ALIEN-INTERNALS:NOTE-LOCAL-ALIEN-TYPE '# #:VAR821) (SYMBOL-MACROLET (#) (LET # # #)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/unix.lisp ; in: DEFUN UNIX-SELECT ; (SB!UNIX::NUM-TO-FD-SET SB!UNIX::RDF SB!UNIX::RDFDS) ; --> SB!UNIX::RDF SB!ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB!ALIEN-INTERNALS:%ALIEN-VALUE SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; (SB!UNIX::NUM-TO-FD-SET SB!UNIX::WRF SB!UNIX::WRFDS) ; --> SB!UNIX::WRF SB!ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB!ALIEN-INTERNALS:%ALIEN-VALUE SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; (SB!UNIX::NUM-TO-FD-SET SB!UNIX::XPF SB!UNIX::XPFDS) ; --> SB!UNIX::XPF SB!ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB!ALIEN-INTERNALS:%ALIEN-VALUE SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; (SB!UNIX::FD-SET-TO-NUM SB!UNIX::NFDS SB!UNIX::RDF) ; --> SB!UNIX::RDF SB!ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB!ALIEN-INTERNALS:%ALIEN-VALUE SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; (SB!UNIX::FD-SET-TO-NUM SB!UNIX::NFDS SB!UNIX::WRF) ; --> SB!UNIX::WRF SB!ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB!ALIEN-INTERNALS:%ALIEN-VALUE SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; (SB!UNIX::FD-SET-TO-NUM SB!UNIX::NFDS SB!UNIX::XPF) ; --> SB!UNIX::XPF SB!ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB!ALIEN-INTERNALS:%ALIEN-VALUE SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; (SB!UNIX::WITH-FD-SETSIZE (SB!UNIX::NFDS) ; (SB!ALIEN:WITH-ALIEN ; ((SB!UNIX::TV (SB!ALIEN:STRUCT SB!UNIX:TIMEVAL)) ; (SB!UNIX::RDF (SB!ALIEN:STRUCT SB!UNIX:FD-SET)) ; (SB!UNIX::WRF (SB!ALIEN:STRUCT SB!UNIX:FD-SET)) ; (SB!UNIX::XPF (SB!ALIEN:STRUCT SB!UNIX:FD-SET))) ; (COND (SB!UNIX::TO-SECS (SETF #)) ; ((NOT SB!SYS:*INTERRUPTS-ENABLED*) ; (SB!UNIX::NOTE-DANGEROUS-WAIT "select(2)"))) ; (SB!UNIX::NUM-TO-FD-SET SB!UNIX::RDF SB!UNIX::RDFDS) ; (SB!UNIX::NUM-TO-FD-SET SB!UNIX::WRF SB!UNIX::WRFDS) ; (SB!UNIX::NUM-TO-FD-SET SB!UNIX::XPF SB!UNIX::XPFDS) ; (MACROLET ((SB!UNIX::FROB # ; #)) ; (SB!UNIX::SYSCALL ("sb_select" SB!ALIEN:INT # # # #) ; (VALUES SB!UNIX::RESULT # # #) SB!UNIX::NFDS ; (SB!UNIX::FROB SB!UNIX::RDFDS SB!UNIX::RDF) ; (SB!UNIX::FROB SB!UNIX::WRFDS SB!UNIX::WRF) ; (SB!UNIX::FROB SB!UNIX::XPFDS SB!UNIX::XPF) ; (IF SB!UNIX::TO-SECS ; # ; #))))) ; --> LET IF < ; --> (LAMBDA (#:G15605 #:G15604 #:G15603) (DECLARE (TYPE REAL #:G15605 #:G15604 #:G15603)) (IF (< #:G15605 #:G15604) (IF (< #:G15604 #:G15603) T NIL) NIL)) ; --> SB!C::%FUNCALL IF < > IF ; ==> ; (> SB!C::Y SB!C::X) ; ; 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. ; --> LET IF < ; --> (LAMBDA (#:G15605 #:G15604 #:G15603) (DECLARE (TYPE REAL #:G15605 #:G15604 #:G15603)) (IF (< #:G15605 #:G15604) (IF (< #:G15604 #:G15603) T NIL) NIL)) ; --> SB!C::%FUNCALL IF IF ; ==> ; (< #:G15604 #:G15603) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; etc. ; (SB!UNIX::NUM-TO-FD-SET SB!UNIX::RDF SB!UNIX::RDFDS) ; --> BLOCK TYPECASE LET COND IF COND THE PROGN LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY SETF LET* MULTIPLE-VALUE-BIND LET SB-XC:LDB ; --> SB!KERNEL:%LDB LOGAND ; ==> ; (ASH SB!ALIEN:INT (- SB!C::POSN)) ; ; note: forced to do full call ; unable to do inline ASH (cost 4) because: ; The first argument is a (INTEGER 536870912), not a (UNSIGNED-BYTE 32). ; The second argument is a (INTEGER -992 0), not a (UNSIGNED-BYTE 29). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; unable to do inline ASH (cost 4) because: ; The first argument is a (INTEGER 536870912), not a (UNSIGNED-BYTE 32). ; The second argument is a (INTEGER -992 0), not a (UNSIGNED-BYTE 29). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; ==> ; (LOGAND SB!C::X '4294967295) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32). ; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32). ; etc. ; (SB!UNIX::NUM-TO-FD-SET SB!UNIX::WRF SB!UNIX::WRFDS) ; --> BLOCK TYPECASE LET COND IF COND THE PROGN LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY SETF LET* MULTIPLE-VALUE-BIND LET SB-XC:LDB ; --> SB!KERNEL:%LDB LOGAND ; ==> ; (ASH SB!ALIEN:INT (- SB!C::POSN)) ; ; note: forced to do full call ; unable to do inline ASH (cost 4) because: ; The first argument is a (INTEGER 536870912), not a (UNSIGNED-BYTE 32). ; The second argument is a (INTEGER -992 0), not a (UNSIGNED-BYTE 29). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; unable to do inline ASH (cost 4) because: ; The first argument is a (INTEGER 536870912), not a (UNSIGNED-BYTE 32). ; The second argument is a (INTEGER -992 0), not a (UNSIGNED-BYTE 29). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; ==> ; (LOGAND SB!C::X '4294967295) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32). ; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32). ; etc. ; (SB!UNIX::NUM-TO-FD-SET SB!UNIX::XPF SB!UNIX::XPFDS) ; --> BLOCK TYPECASE LET COND IF COND THE PROGN LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY SETF LET* MULTIPLE-VALUE-BIND LET SB-XC:LDB ; --> SB!KERNEL:%LDB LOGAND ; ==> ; (ASH SB!ALIEN:INT (- SB!C::POSN)) ; ; note: forced to do full call ; unable to do inline ASH (cost 4) because: ; The first argument is a (INTEGER 536870912), not a (UNSIGNED-BYTE 32). ; The second argument is a (INTEGER -992 0), not a (UNSIGNED-BYTE 29). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; unable to do inline ASH (cost 4) because: ; The first argument is a (INTEGER 536870912), not a (UNSIGNED-BYTE 32). ; The second argument is a (INTEGER -992 0), not a (UNSIGNED-BYTE 29). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; ==> ; (LOGAND SB!C::X '4294967295) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32). ; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32). ; etc. ; (SB!UNIX::FD-SET-TO-NUM SB!UNIX::NFDS SB!UNIX::XPF) ; --> BLOCK IF LOOP BLOCK LET SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY ; --> TAGBODY SETQ THE + ; ==> ; (ASH ; (SB!ALIEN:DEREF (SB!ALIEN:SLOT SB!UNIX::FDSET 'SB!UNIX::FDS-BITS) ; SB!INT:INDEX) ; (* SB!INT:INDEX SB!VM:N-MACHINE-WORD-BITS)) ; ; note: forced to do full call ; unable to do inline ASH (cost 3) because: ; The first argument is a (UNSIGNED-BYTE 32), 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 32), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> BLOCK IF LOOP BLOCK LET SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY ; --> TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-15608 ; (ASH ; (SB!ALIEN:DEREF (SB!ALIEN:SLOT SB!UNIX::FDSET 'SB!UNIX::FDS-BITS) ; SB!INT:INDEX) ; (* SB!INT:INDEX SB!VM:N-MACHINE-WORD-BITS))) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 32) arithmetic (cost 5) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 32). ; The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 32) &REST ; T). ; etc. ; (SB!UNIX::FD-SET-TO-NUM SB!UNIX::NFDS SB!UNIX::WRF) ; --> BLOCK IF LOOP BLOCK LET SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY ; --> TAGBODY SETQ THE + ; ==> ; (ASH ; (SB!ALIEN:DEREF (SB!ALIEN:SLOT SB!UNIX::FDSET 'SB!UNIX::FDS-BITS) ; SB!INT:INDEX) ; (* SB!INT:INDEX SB!VM:N-MACHINE-WORD-BITS)) ; ; note: forced to do full call ; unable to do inline ASH (cost 3) because: ; The first argument is a (UNSIGNED-BYTE 32), 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 32), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> BLOCK IF LOOP BLOCK LET SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY ; --> TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-15610 ; (ASH ; (SB!ALIEN:DEREF (SB!ALIEN:SLOT SB!UNIX::FDSET 'SB!UNIX::FDS-BITS) ; SB!INT:INDEX) ; (* SB!INT:INDEX SB!VM:N-MACHINE-WORD-BITS))) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 32) arithmetic (cost 5) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 32). ; The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 32) &REST ; T). ; etc. ; (SB!UNIX::FD-SET-TO-NUM SB!UNIX::NFDS SB!UNIX::RDF) ; --> BLOCK IF LOOP BLOCK LET SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY ; --> TAGBODY SETQ THE + ; ==> ; (ASH ; (SB!ALIEN:DEREF (SB!ALIEN:SLOT SB!UNIX::FDSET 'SB!UNIX::FDS-BITS) ; SB!INT:INDEX) ; (* SB!INT:INDEX SB!VM:N-MACHINE-WORD-BITS)) ; ; note: forced to do full call ; unable to do inline ASH (cost 3) because: ; The first argument is a (UNSIGNED-BYTE 32), 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 32), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> BLOCK IF LOOP BLOCK LET SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY ; --> TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-15602 ; (ASH ; (SB!ALIEN:DEREF (SB!ALIEN:SLOT SB!UNIX::FDSET 'SB!UNIX::FDS-BITS) ; SB!INT:INDEX) ; (* SB!INT:INDEX SB!VM:N-MACHINE-WORD-BITS))) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 32) arithmetic (cost 5) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 32). ; The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 32) &REST ; T). ; etc. ; (SB!UNIX::WITH-FD-SETSIZE (SB!UNIX::NFDS) ; (SB!ALIEN:WITH-ALIEN ; ((SB!UNIX::TV (SB!ALIEN:STRUCT SB!UNIX:TIMEVAL)) ; (SB!UNIX::RDF (SB!ALIEN:STRUCT SB!UNIX:FD-SET)) ; (SB!UNIX::WRF (SB!ALIEN:STRUCT SB!UNIX:FD-SET)) ; (SB!UNIX::XPF (SB!ALIEN:STRUCT SB!UNIX:FD-SET))) ; (COND (SB!UNIX::TO-SECS (SETF #)) ; ((NOT SB!SYS:*INTERRUPTS-ENABLED*) ; (SB!UNIX::NOTE-DANGEROUS-WAIT "select(2)"))) ; (SB!UNIX::NUM-TO-FD-SET SB!UNIX::RDF SB!UNIX::RDFDS) ; (SB!UNIX::NUM-TO-FD-SET SB!UNIX::WRF SB!UNIX::WRFDS) ; (SB!UNIX::NUM-TO-FD-SET SB!UNIX::XPF SB!UNIX::XPFDS) ; (MACROLET ((SB!UNIX::FROB # ; #)) ; (SB!UNIX::SYSCALL ("sb_select" SB!ALIEN:INT # # # #) ; (VALUES SB!UNIX::RESULT # # #) SB!UNIX::NFDS ; (SB!UNIX::FROB SB!UNIX::RDFDS SB!UNIX::RDF) ; (SB!UNIX::FROB SB!UNIX::WRFDS SB!UNIX::WRF) ; (SB!UNIX::FROB SB!UNIX::XPFDS SB!UNIX::XPF) ; (IF SB!UNIX::TO-SECS ; # ; #))))) ; --> LET IF ERROR 1- ; ==> ; (- SB!UNIX::NFDS 1) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (SB!ALIEN:WITH-ALIEN ; ((SB!UNIX::TV (SB!ALIEN:STRUCT SB!UNIX:TIMEVAL)) ; (SB!UNIX::RDF (SB!ALIEN:STRUCT SB!UNIX:FD-SET)) ; (SB!UNIX::WRF (SB!ALIEN:STRUCT SB!UNIX:FD-SET)) ; (SB!UNIX::XPF (SB!ALIEN:STRUCT SB!UNIX:FD-SET))) ; (COND ; (SB!UNIX::TO-SECS ; (SETF # SB!UNIX::TO-SECS ; # SB!UNIX::TO-USECS)) ; ((NOT SB!SYS:*INTERRUPTS-ENABLED*) ; (SB!UNIX::NOTE-DANGEROUS-WAIT "select(2)"))) ; (SB!UNIX::NUM-TO-FD-SET SB!UNIX::RDF SB!UNIX::RDFDS) ; (SB!UNIX::NUM-TO-FD-SET SB!UNIX::WRF SB!UNIX::WRFDS) ; (SB!UNIX::NUM-TO-FD-SET SB!UNIX::XPF SB!UNIX::XPFDS) ; (MACROLET ((SB!UNIX::FROB (SB!UNIX::LISPVAR SB!UNIX::ALIENVAR) ; (SB!INT:QUASIQUOTE #))) ; (SB!UNIX::SYSCALL ("sb_select" SB!ALIEN:INT (* #) (* #) (* #) (* #)) ; (VALUES SB!UNIX::RESULT ; (SB!UNIX::FD-SET-TO-NUM SB!UNIX::NFDS SB!UNIX::RDF) ; (SB!UNIX::FD-SET-TO-NUM SB!UNIX::NFDS SB!UNIX::WRF) ; (SB!UNIX::FD-SET-TO-NUM SB!UNIX::NFDS SB!UNIX::XPF)) ; SB!UNIX::NFDS (SB!UNIX::FROB SB!UNIX::RDFDS SB!UNIX::RDF) ; (SB!UNIX::FROB SB!UNIX::WRFDS SB!UNIX::WRF) ; (SB!UNIX::FROB SB!UNIX::XPFDS SB!UNIX::XPF) ; (IF SB!UNIX::TO-SECS ; (SB!ALIEN:ALIEN-SAP #) ; (SB!SYS:INT-SAP 0))))) ; --> SYMBOL-MACROLET SYMBOL-MACROLET LET LET SYMBOL-MACROLET ; ==> ; (LET ((#:VAR820 ; (SB!ALIEN-INTERNALS:MAKE-LOCAL-ALIEN ; '#))) ; (SB!ALIEN-INTERNALS:NOTE-LOCAL-ALIEN-TYPE ; '# ; #:VAR820) ; (SYMBOL-MACROLET ((SB!UNIX::RDF ; (SB!ALIEN-INTERNALS:LOCAL-ALIEN '# #:VAR820))) ; (LET ((#:VAR819 #)) ; (SB!ALIEN-INTERNALS:NOTE-LOCAL-ALIEN-TYPE ; '# #:VAR819) ; (SYMBOL-MACROLET (#) ; (LET # ; # ; #))))) ; ; note: doing SAP to pointer coercion (cost 20) to #:VAR820 ; --> SYMBOL-MACROLET SYMBOL-MACROLET LET LET SYMBOL-MACROLET LET ; --> SYMBOL-MACROLET ; ==> ; (LET ((#:VAR819 ; (SB!ALIEN-INTERNALS:MAKE-LOCAL-ALIEN ; '#))) ; (SB!ALIEN-INTERNALS:NOTE-LOCAL-ALIEN-TYPE ; '# ; #:VAR819) ; (SYMBOL-MACROLET ((SB!UNIX::WRF ; (SB!ALIEN-INTERNALS:LOCAL-ALIEN '# #:VAR819))) ; (LET ((#:VAR818 #)) ; (SB!ALIEN-INTERNALS:NOTE-LOCAL-ALIEN-TYPE ; '# #:VAR818) ; (SYMBOL-MACROLET (#) ; (COND # #) ; (SB!UNIX::NUM-TO-FD-SET SB!UNIX::RDF SB!UNIX::RDFDS) ; (SB!UNIX::NUM-TO-FD-SET SB!UNIX::WRF SB!UNIX::WRFDS) ; (SB!UNIX::NUM-TO-FD-SET SB!UNIX::XPF SB!UNIX::XPFDS) ; (MACROLET # ; #))))) ; ; note: doing SAP to pointer coercion (cost 20) to #:VAR819 ; --> SYMBOL-MACROLET SYMBOL-MACROLET LET LET SYMBOL-MACROLET LET ; --> SYMBOL-MACROLET LET SYMBOL-MACROLET ; ==> ; (LET ((#:VAR818 ; (SB!ALIEN-INTERNALS:MAKE-LOCAL-ALIEN ; '#))) ; (SB!ALIEN-INTERNALS:NOTE-LOCAL-ALIEN-TYPE ; '# ; #:VAR818) ; (SYMBOL-MACROLET ((SB!UNIX::XPF ; (SB!ALIEN-INTERNALS:LOCAL-ALIEN '# #:VAR818))) ; (COND (SB!UNIX::TO-SECS (SETF #)) ; ((NOT SB!SYS:*INTERRUPTS-ENABLED*) ; (SB!UNIX::NOTE-DANGEROUS-WAIT "select(2)"))) ; (SB!UNIX::NUM-TO-FD-SET SB!UNIX::RDF SB!UNIX::RDFDS) ; (SB!UNIX::NUM-TO-FD-SET SB!UNIX::WRF SB!UNIX::WRFDS) ; (SB!UNIX::NUM-TO-FD-SET SB!UNIX::XPF SB!UNIX::XPFDS) ; (MACROLET ((SB!UNIX::FROB # ; #)) ; (SB!UNIX::SYSCALL ("sb_select" SB!ALIEN:INT # # # #) ; (VALUES SB!UNIX::RESULT # # #) SB!UNIX::NFDS ; (SB!UNIX::FROB SB!UNIX::RDFDS SB!UNIX::RDF) ; (SB!UNIX::FROB SB!UNIX::WRFDS SB!UNIX::WRF) ; (SB!UNIX::FROB SB!UNIX::XPFDS SB!UNIX::XPF) ; (IF SB!UNIX::TO-SECS ; # ; #))))) ; ; note: doing SAP to pointer coercion (cost 20) to #:VAR818 ; (SB!UNIX::FD-SET-TO-NUM SB!UNIX::NFDS SB!UNIX::RDF) ; --> BLOCK IF LOOP BLOCK LET SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY ; --> TAGBODY SETQ THE + ; ==> ; (ASH ; (SB!ALIEN:DEREF (SB!ALIEN:SLOT SB!UNIX::FDSET 'SB!UNIX::FDS-BITS) ; SB!INT:INDEX) ; (* SB!INT:INDEX SB!VM:N-MACHINE-WORD-BITS)) ; ; note: doing unsigned word to integer coercion (cost 20) ; (SB!UNIX::FD-SET-TO-NUM SB!UNIX::NFDS SB!UNIX::WRF) ; --> BLOCK IF LOOP BLOCK LET SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY ; --> TAGBODY SETQ THE + ; ==> ; (ASH ; (SB!ALIEN:DEREF (SB!ALIEN:SLOT SB!UNIX::FDSET 'SB!UNIX::FDS-BITS) ; SB!INT:INDEX) ; (* SB!INT:INDEX SB!VM:N-MACHINE-WORD-BITS)) ; ; note: doing unsigned word to integer coercion (cost 20) ; (SB!UNIX::FD-SET-TO-NUM SB!UNIX::NFDS SB!UNIX::XPF) ; --> BLOCK IF LOOP BLOCK LET SB!LOOP::WITH-SUM-COUNT LET SB!LOOP::LOOP-BODY ; --> TAGBODY SETQ THE + ; ==> ; (ASH ; (SB!ALIEN:DEREF (SB!ALIEN:SLOT SB!UNIX::FDSET 'SB!UNIX::FDS-BITS) ; SB!INT:INDEX) ; (* SB!INT:INDEX SB!VM:N-MACHINE-WORD-BITS)) ; ; note: doing unsigned word to integer coercion (cost 20) ; (VALUES SB!UNIX::RESULT (SB!UNIX::FD-SET-TO-NUM SB!UNIX::NFDS SB!UNIX::RDF) ; (SB!UNIX::FD-SET-TO-NUM SB!UNIX::NFDS SB!UNIX::WRF) ; (SB!UNIX::FD-SET-TO-NUM SB!UNIX::NFDS SB!UNIX::XPF)) ; ; note: doing signed word to integer coercion (cost 20) from ALIEN ; (SB!UNIX::FD-SET-TO-NUM SB!UNIX::NFDS SB!UNIX::XPF) ; --> BLOCK IF SB!ALIEN:DEREF SB!ALIEN-INTERNALS:%ALIEN-VALUE ; --> SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; SB!ALIEN:ALIEN ; ; note: doing unsigned word to integer coercion (cost 20) ; (SB!UNIX::FD-SET-TO-NUM SB!UNIX::NFDS SB!UNIX::WRF) ; --> BLOCK IF SB!ALIEN:DEREF SB!ALIEN-INTERNALS:%ALIEN-VALUE ; --> SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; SB!ALIEN:ALIEN ; ; note: doing unsigned word to integer coercion (cost 20) ; (SB!UNIX::FD-SET-TO-NUM SB!UNIX::NFDS SB!UNIX::RDF) ; --> BLOCK IF SB!ALIEN:DEREF SB!ALIEN-INTERNALS:%ALIEN-VALUE ; --> SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; SB!ALIEN:ALIEN ; ; note: doing unsigned word to integer coercion (cost 20) ; x-compiling (DECLAIM (INLINE FD-SET ...)) ; x-compiling (DEFUN FD-SET ...) ; x-compiling (DEFUN FD-CLR ...) ; x-compiling (DEFUN FD-ISSET ...) ; x-compiling (DEFUN FD-ZERO ...) ; x-compiling (DEFINE-ALIEN-TYPE NIL ...) ; x-compiling (DECLAIM (INLINE %EXTRACT-STAT-RESULTS)) ; x-compiling (DEFUN %EXTRACT-STAT-RESULTS ...) ; x-compiling (DEFUN UNIX-STAT ...) /entering WITH-ALIEN BINDINGS=((BUF (STRUCT WRAPPED_STAT))) /BINDING=(BUF (STRUCT WRAPPED_STAT)) /SYMBOL=BUF TYPE=(STRUCT WRAPPED_STAT) OPT1=NIL OPT2=NIL /ALIEN-TYPE=# /ALLOCATION=:LOCAL INITIAL-VALUE=NIL /:LOCAL case /VAR=#:VAR1005 INITVAL=NIL INFO=# /revised BODY=((LET ((#:VAR1005 #)) (SB!ALIEN-INTERNALS:NOTE-LOCAL-ALIEN-TYPE '# #:VAR1005) (SYMBOL-MACROLET (#) (SYSCALL # # NAME #)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/unix.lisp ; in: DEFUN UNIX-STAT ; (SB!ALIEN:ADDR SB!UNIX::BUF) ; --> SB!ALIEN-INTERNALS:%LOCAL-ALIEN-ADDR ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!C::VAR ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; x-compiling (DEFUN UNIX-LSTAT ...) /entering WITH-ALIEN BINDINGS=((BUF (STRUCT WRAPPED_STAT))) /BINDING=(BUF (STRUCT WRAPPED_STAT)) /SYMBOL=BUF TYPE=(STRUCT WRAPPED_STAT) OPT1=NIL OPT2=NIL /ALIEN-TYPE=# /ALLOCATION=:LOCAL INITIAL-VALUE=NIL /:LOCAL case /VAR=#:VAR1042 INITVAL=NIL INFO=# /revised BODY=((LET ((#:VAR1042 #)) (SB!ALIEN-INTERNALS:NOTE-LOCAL-ALIEN-TYPE '# #:VAR1042) (SYMBOL-MACROLET (#) (SYSCALL # # NAME #)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/unix.lisp ; in: DEFUN UNIX-LSTAT ; (SB!ALIEN:ADDR SB!UNIX::BUF) ; --> SB!ALIEN-INTERNALS:%LOCAL-ALIEN-ADDR ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!C::VAR ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; x-compiling (DEFUN UNIX-FSTAT ...) /entering WITH-ALIEN BINDINGS=((BUF (STRUCT WRAPPED_STAT))) /BINDING=(BUF (STRUCT WRAPPED_STAT)) /SYMBOL=BUF TYPE=(STRUCT WRAPPED_STAT) OPT1=NIL OPT2=NIL /ALIEN-TYPE=# /ALLOCATION=:LOCAL INITIAL-VALUE=NIL /:LOCAL case /VAR=#:VAR1079 INITVAL=NIL INFO=# /revised BODY=((LET ((#:VAR1079 #)) (SB!ALIEN-INTERNALS:NOTE-LOCAL-ALIEN-TYPE '# #:VAR1079) (SYMBOL-MACROLET (#) (SYSCALL # # FD #)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/unix.lisp ; in: DEFUN UNIX-FSTAT ; (SB!ALIEN:ADDR SB!UNIX::BUF) ; --> SB!ALIEN-INTERNALS:%LOCAL-ALIEN-ADDR ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!C::VAR ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; x-compiling (DEFUN FD-TYPE ...) /entering WITH-ALIEN BINDINGS=((BUF (STRUCT WRAPPED_STAT))) /BINDING=(BUF (STRUCT WRAPPED_STAT)) /SYMBOL=BUF TYPE=(STRUCT WRAPPED_STAT) OPT1=NIL OPT2=NIL /ALIEN-TYPE=# /ALLOCATION=:LOCAL INITIAL-VALUE=NIL /:LOCAL case /VAR=#:VAR1111 INITVAL=NIL INFO=# /revised BODY=((LET ((#:VAR1111 #)) (SB!ALIEN-INTERNALS:NOTE-LOCAL-ALIEN-TYPE '# #:VAR1111) (SYMBOL-MACROLET (#) (SYSCALL # # FD #)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; x-compiling (DEFINE-ALIEN-TYPE NIL ...) ; x-compiling (DEFINE-ALIEN-ROUTINE GET-TIMEZONE ...) /entering WITH-ALIEN BINDINGS=((GET-TIMEZONE (FUNCTION VOID TIME-T (* INT) (* BOOLEAN)) :EXTERN "get_timezone") (SECONDS-WEST INT) (DAYLIGHT-SAVINGS-P BOOLEAN)) /BINDING=(DAYLIGHT-SAVINGS-P BOOLEAN) /SYMBOL=DAYLIGHT-SAVINGS-P TYPE=BOOLEAN OPT1=NIL OPT2=NIL /ALIEN-TYPE=# /ALLOCATION=:LOCAL INITIAL-VALUE=NIL /:LOCAL case /VAR=#:VAR1120 INITVAL=NIL INFO=# /BINDING=(SECONDS-WEST INT) /SYMBOL=SECONDS-WEST TYPE=INT OPT1=NIL OPT2=NIL /ALIEN-TYPE=# /ALLOCATION=:LOCAL INITIAL-VALUE=NIL /:LOCAL case /VAR=#:VAR1121 INITVAL=NIL INFO=# /BINDING=(GET-TIMEZONE (FUNCTION VOID TIME-T (* INT) (* BOOLEAN)) :EXTERN "get_timezone") /SYMBOL=GET-TIMEZONE TYPE=(FUNCTION VOID TIME-T (* INT) (* BOOLEAN)) OPT1=:EXTERN OPT2="get_timezone" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="get_timezone" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((GET-TIMEZONE #)) (LET (#) (SB!ALIEN-INTERNALS:NOTE-LOCAL-ALIEN-TYPE '# #:VAR1121) (SYMBOL-MACROLET # #)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; x-compiling (DEFUN NANOSLEEP ...) /entering WITH-ALIEN BINDINGS=((REQ (STRUCT TIMESPEC)) (REM (STRUCT TIMESPEC))) /BINDING=(REM (STRUCT TIMESPEC)) /SYMBOL=REM TYPE=(STRUCT TIMESPEC) OPT1=NIL OPT2=NIL /ALIEN-TYPE=# /ALLOCATION=:LOCAL INITIAL-VALUE=NIL /:LOCAL case /VAR=#:VAR1129 INITVAL=NIL INFO=# /BINDING=(REQ (STRUCT TIMESPEC)) /SYMBOL=REQ TYPE=(STRUCT TIMESPEC) OPT1=NIL OPT2=NIL /ALIEN-TYPE=# /ALLOCATION=:LOCAL INITIAL-VALUE=NIL /:LOCAL case /VAR=#:VAR1130 INITVAL=NIL INFO=# /revised BODY=((LET ((#:VAR1130 #)) (SB!ALIEN-INTERNALS:NOTE-LOCAL-ALIEN-TYPE '# #:VAR1130) (SYMBOL-MACROLET (#) (LET # # #)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; x-compiling (DEFUN UNIX-GET-SECONDS-WEST ...) ; x-compiling (DEFINE-ALIEN-TYPE NIL ...) ; x-compiling (DEFINE-ALIEN-TYPE NIL ...) ; x-compiling (DEFCONSTANT ITIMER-REAL ...) ; x-compiling (DEFCONSTANT ITIMER-VIRTUAL ...) ; x-compiling (DEFCONSTANT ITIMER-PROF ...) ; x-compiling (DEFUN UNIX-GETITIMER ...) /entering WITH-ALIEN BINDINGS=((ITV (STRUCT ITIMERVAL))) /BINDING=(ITV (STRUCT ITIMERVAL)) /SYMBOL=ITV TYPE=(STRUCT ITIMERVAL) OPT1=NIL OPT2=NIL /ALIEN-TYPE=# /ALLOCATION=:LOCAL INITIAL-VALUE=NIL /:LOCAL case /VAR=#:VAR1186 INITVAL=NIL INFO=# /revised BODY=((LET ((#:VAR1186 #)) (SB!ALIEN-INTERNALS:NOTE-LOCAL-ALIEN-TYPE '# #:VAR1186) (SYMBOL-MACROLET (#) (SYSCALL* # # WHICH #)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; x-compiling (DEFUN UNIX-SETITIMER ...) /entering WITH-ALIEN BINDINGS=((ITVN (STRUCT ITIMERVAL)) (ITVO (STRUCT ITIMERVAL))) /BINDING=(ITVO (STRUCT ITIMERVAL)) /SYMBOL=ITVO TYPE=(STRUCT ITIMERVAL) OPT1=NIL OPT2=NIL /ALIEN-TYPE=# /ALLOCATION=:LOCAL INITIAL-VALUE=NIL /:LOCAL case /VAR=#:VAR1234 INITVAL=NIL INFO=# /BINDING=(ITVN (STRUCT ITIMERVAL)) /SYMBOL=ITVN TYPE=(STRUCT ITIMERVAL) OPT1=NIL OPT2=NIL /ALIEN-TYPE=# /ALLOCATION=:LOCAL INITIAL-VALUE=NIL /:LOCAL case /VAR=#:VAR1235 INITVAL=NIL INFO=# /revised BODY=((LET ((#:VAR1235 #)) (SB!ALIEN-INTERNALS:NOTE-LOCAL-ALIEN-TYPE '# #:VAR1235) (SYMBOL-MACROLET (#) (LET # # #)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; x-compiling (DEFCONSTANT MICRO-SECONDS-PER-INTERNAL-TIME-UNIT ...) ; x-compiling (DECLAIM (INLINE GET-TIME-OF-DAY)) ; x-compiling (DEFUN GET-TIME-OF-DAY ...) /entering WITH-ALIEN BINDINGS=((TV (STRUCT TIMEVAL)) (TZ (STRUCT TIMEZONE))) /BINDING=(TZ (STRUCT TIMEZONE)) /SYMBOL=TZ TYPE=(STRUCT TIMEZONE) OPT1=NIL OPT2=NIL /ALIEN-TYPE=# /ALLOCATION=:LOCAL INITIAL-VALUE=NIL /:LOCAL case /VAR=#:VAR1341 INITVAL=NIL INFO=# /BINDING=(TV (STRUCT TIMEVAL)) /SYMBOL=TV TYPE=(STRUCT TIMEVAL) OPT1=NIL OPT2=NIL /ALIEN-TYPE=# /ALLOCATION=:LOCAL INITIAL-VALUE=NIL /:LOCAL case /VAR=#:VAR1342 INITVAL=NIL INFO=# /revised BODY=((LET ((#:VAR1342 #)) (SB!ALIEN-INTERNALS:NOTE-LOCAL-ALIEN-TYPE '# #:VAR1342) (SYMBOL-MACROLET (#) (LET # # #)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; x-compiling (DECLAIM (INLINE SYSTEM-INTERNAL-RUN-TIME ...)) ; x-compiling (DEFUN SYSTEM-REAL-TIME-VALUES ...) /entering WITH-ALIEN BINDINGS=((TV (STRUCT TIMEVAL)) (TZ (STRUCT TIMEZONE))) /BINDING=(TZ (STRUCT TIMEZONE)) /SYMBOL=TZ TYPE=(STRUCT TIMEZONE) OPT1=NIL OPT2=NIL /ALIEN-TYPE=# /ALLOCATION=:LOCAL INITIAL-VALUE=NIL /:LOCAL case /VAR=#:VAR1352 INITVAL=NIL INFO=# /BINDING=(TV (STRUCT TIMEVAL)) /SYMBOL=TV TYPE=(STRUCT TIMEVAL) OPT1=NIL OPT2=NIL /ALIEN-TYPE=# /ALLOCATION=:LOCAL INITIAL-VALUE=NIL /:LOCAL case /VAR=#:VAR1353 INITVAL=NIL INFO=# /revised BODY=((LET ((#:VAR1353 #)) (SB!ALIEN-INTERNALS:NOTE-LOCAL-ALIEN-TYPE '# #:VAR1353) (SYMBOL-MACROLET (#) (LET # # #)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; x-compiling (LET (# # ...) ...) /entering WITH-ALIEN BINDINGS=((TV (STRUCT TIMEVAL)) (TZ (STRUCT TIMEZONE))) /BINDING=(TZ (STRUCT TIMEZONE)) /SYMBOL=TZ TYPE=(STRUCT TIMEZONE) OPT1=NIL OPT2=NIL /ALIEN-TYPE=# /ALLOCATION=:LOCAL INITIAL-VALUE=NIL /:LOCAL case /VAR=#:VAR1376 INITVAL=NIL INFO=# /BINDING=(TV (STRUCT TIMEVAL)) /SYMBOL=TV TYPE=(STRUCT TIMEVAL) OPT1=NIL OPT2=NIL /ALIEN-TYPE=# /ALLOCATION=:LOCAL INITIAL-VALUE=NIL /:LOCAL case /VAR=#:VAR1377 INITVAL=NIL INFO=# /revised BODY=((LET ((#:VAR1377 #)) (SB!ALIEN-INTERNALS:NOTE-LOCAL-ALIEN-TYPE '# #:VAR1377) (SYMBOL-MACROLET (#) (LET # # #)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning /entering WITH-ALIEN BINDINGS=((TV (STRUCT TIMEVAL)) (TZ (STRUCT TIMEZONE))) /BINDING=(TZ (STRUCT TIMEZONE)) /SYMBOL=TZ TYPE=(STRUCT TIMEZONE) OPT1=NIL OPT2=NIL /ALIEN-TYPE=# /ALLOCATION=:LOCAL INITIAL-VALUE=NIL /:LOCAL case /VAR=#:VAR1384 INITVAL=NIL INFO=# /BINDING=(TV (STRUCT TIMEVAL)) /SYMBOL=TV TYPE=(STRUCT TIMEVAL) OPT1=NIL OPT2=NIL /ALIEN-TYPE=# /ALLOCATION=:LOCAL INITIAL-VALUE=NIL /:LOCAL case /VAR=#:VAR1385 INITVAL=NIL INFO=# /revised BODY=((LET ((#:VAR1385 #)) (SB!ALIEN-INTERNALS:NOTE-LOCAL-ALIEN-TYPE '# #:VAR1385) (SYMBOL-MACROLET (#) (LET # # #)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; x-compiling (DEFUN SYSTEM-INTERNAL-RUN-TIME ...) /entering WITH-ALIEN BINDINGS=((USAGE (STRUCT RUSAGE))) /BINDING=(USAGE (STRUCT RUSAGE)) /SYMBOL=USAGE TYPE=(STRUCT RUSAGE) OPT1=NIL OPT2=NIL /ALIEN-TYPE=# /ALLOCATION=:LOCAL INITIAL-VALUE=NIL /:LOCAL case /VAR=#:VAR1420 INITVAL=NIL INFO=# /revised BODY=((LET ((#:VAR1420 #)) (SB!ALIEN-INTERNALS:NOTE-LOCAL-ALIEN-TYPE '# #:VAR1420) (SYMBOL-MACROLET (#) (SYSCALL* # # WHO #)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; x-compiling (DEFUN UNIX-GETTIMEOFDAY ...) /entering WITH-ALIEN BINDINGS=((TV (STRUCT TIMEVAL)) (TZ (STRUCT TIMEZONE))) /BINDING=(TZ (STRUCT TIMEZONE)) /SYMBOL=TZ TYPE=(STRUCT TIMEZONE) OPT1=NIL OPT2=NIL /ALIEN-TYPE=# /ALLOCATION=:LOCAL INITIAL-VALUE=NIL /:LOCAL case /VAR=#:VAR1460 INITVAL=NIL INFO=# /BINDING=(TV (STRUCT TIMEVAL)) /SYMBOL=TV TYPE=(STRUCT TIMEVAL) OPT1=NIL OPT2=NIL /ALIEN-TYPE=# /ALLOCATION=:LOCAL INITIAL-VALUE=NIL /:LOCAL case /VAR=#:VAR1461 INITVAL=NIL INFO=# /revised BODY=((LET ((#:VAR1461 #)) (SB!ALIEN-INTERNALS:NOTE-LOCAL-ALIEN-TYPE '# #:VAR1461) (SYMBOL-MACROLET (#) (LET # # #)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; x-compiling (DECLAIM (INLINE UNIX-OPENDIR)) ; x-compiling (DEFUN UNIX-OPENDIR ...) ; x-compiling (DECLAIM (INLINE UNIX-READDIR)) ; x-compiling (DEFUN UNIX-READDIR ...) ; x-compiling (DECLAIM (INLINE UNIX-CLOSEDIR)) ; x-compiling (DEFUN UNIX-CLOSEDIR ...) ; x-compiling (DECLAIM (INLINE UNIX-DIRENT-NAME)) ; x-compiling (DEFUN UNIX-DIRENT-NAME ...) ; x-compiling (DEFCONSTANT WSTOPPED ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/unix.lisp ; in: DEFINE-ALIEN-TYPE () ; (SB!ALIEN:DEFINE-ALIEN-TYPE NIL ; (SB!ALIEN:STRUCT SB!UNIX:POLLFD ; (SB!UNIX:FD SB!ALIEN:INT) ; (SB!UNIX:EVENTS SB!ALIEN:SHORT) ; (SB!UNIX:REVENTS SB!ALIEN:SHORT))) ; --> SYMBOL-MACROLET EVAL-WHEN SB!ALIEN::%DEF-AUXILIARY-ALIEN-TYPES ; ==> ; (SB!ALIEN::%DEF-AUXILIARY-ALIEN-TYPES ; '((:STRUCT SB!UNIX:POLLFD ; #))) ; ; caught STYLE-WARNING: ; undefined function: SB!ALIEN::%DEF-AUXILIARY-ALIEN-TYPES ; (SB!ALIEN:DEFINE-ALIEN-TYPE NIL ; (SB!ALIEN:STRUCT SB!UNIX::RUSAGE ; (SB!UNIX:RU-UTIME ; (SB!ALIEN:STRUCT SB!UNIX:TIMEVAL)) ; (SB!UNIX:RU-STIME ; (SB!ALIEN:STRUCT SB!UNIX:TIMEVAL)) ; (SB!UNIX:RU-MAXRSS SB!ALIEN:LONG) ; (SB!UNIX:RU-IXRSS SB!ALIEN:LONG) ; (SB!UNIX:RU-IDRSS SB!ALIEN:LONG) ; (SB!UNIX:RU-ISRSS SB!ALIEN:LONG) ; (SB!UNIX:RU-MINFLT SB!ALIEN:LONG) ; (SB!UNIX:RU-MAJFLT SB!ALIEN:LONG) ; (SB!UNIX:RU-NSWAP SB!ALIEN:LONG) ; (SB!UNIX:RU-INBLOCK SB!ALIEN:LONG) ...)) ; --> SYMBOL-MACROLET EVAL-WHEN SB!ALIEN::%DEF-AUXILIARY-ALIEN-TYPES ; ==> ; (SB!ALIEN::%DEF-AUXILIARY-ALIEN-TYPES ; '((:STRUCT SB!UNIX::RUSAGE ; #))) ; ; caught STYLE-WARNING: ; undefined function: SB!ALIEN::%DEF-AUXILIARY-ALIEN-TYPES ; (SB!ALIEN:DEFINE-ALIEN-TYPE NIL ; (SB!ALIEN:STRUCT SB!UNIX:FD-SET ; (SB!UNIX::FDS-BITS (ARRAY SB!UNIX::FD-MASK 32)))) ; --> SYMBOL-MACROLET EVAL-WHEN SB!ALIEN::%DEF-AUXILIARY-ALIEN-TYPES ; ==> ; (SB!ALIEN::%DEF-AUXILIARY-ALIEN-TYPES ; '((:STRUCT SB!UNIX:FD-SET ; #))) ; ; caught STYLE-WARNING: ; undefined function: SB!ALIEN::%DEF-AUXILIARY-ALIEN-TYPES ; ; caught STYLE-WARNING: ; 4 more uses of undefined function SB!ALIEN::%DEF-AUXILIARY-ALIEN-TYPES ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/unix.lisp ; in: DEFINE-ALIEN-TYPE UNIX-OFFSET ; (SB!ALIEN:DEFINE-ALIEN-TYPE SB!UNIX:UNIX-OFFSET SB!ALIEN:OFF-T) ; --> SYMBOL-MACROLET EVAL-WHEN SB!ALIEN::%DEFINE-ALIEN-TYPE ; ==> ; (SB!ALIEN::%DEFINE-ALIEN-TYPE 'SB!UNIX:UNIX-OFFSET ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!ALIEN::%DEFINE-ALIEN-TYPE ; in: DEFINE-ALIEN-TYPE FD-MASK ; (SB!ALIEN:DEFINE-ALIEN-TYPE SB!UNIX::FD-MASK SB!ALIEN:UNSIGNED) ; --> SYMBOL-MACROLET EVAL-WHEN SB!ALIEN::%DEFINE-ALIEN-TYPE ; ==> ; (SB!ALIEN::%DEFINE-ALIEN-TYPE 'SB!UNIX::FD-MASK ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!ALIEN::%DEFINE-ALIEN-TYPE ; in: DEFINE-DEPRECATED-FUNCTION :EARLY ; (SB!INT:DEFINE-DEPRECATED-FUNCTION :EARLY ; "1.0.56.55" ; SB!UNIX:UNIX-EXIT ; SB!SYS:OS-EXIT ; (SB!UNIX::CODE) ; (SB!SYS:OS-EXIT SB!UNIX::CODE)) ; --> PROGN SETF LET* LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF COMPILER-MACRO-FUNCTION) #:NEW524 'SB!UNIX:UNIX-EXIT) ; ; caught STYLE-WARNING: ; undefined function: (SETF COMPILER-MACRO-FUNCTION) ; in: DEFUN NEWCHARSTAR-STRING ; (SB!ALIEN:CAST SB!UNIX::NEWCHARSTAR SB!ALIEN:C-STRING) ; --> SB!ALIEN-INTERNALS:%CAST ; ==> ; (SB!ALIEN-INTERNALS:NATURALIZE (SB!ALIEN:ALIEN-SAP SB!ALIEN:ALIEN) ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE ; in: DEFINE-ALIEN-ROUTINE ("getenv" POSIX-GETENV) ; (SB!ALIEN:DEFINE-ALIEN-ROUTINE ("getenv" SB!EXT:POSIX-GETENV) ; SB!ALIEN:C-STRING ; "Return the \"value\" part of the environment string \"name=value\" which ; corresponds to NAME, or NIL if there is none." ; (SB!UNIX::NAME (SB!ALIEN:C-STRING :NOT-NULL T))) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK SB!ALIEN:WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET ; --> SYMBOL-MACROLET VALUES PROG1 LET SB!ALIEN:ALIEN-FUNCALL ; --> SB!ALIEN-INTERNALS:INVOKE-WITH-SAVED-FP-AND-PC LAMBDA FUNCTION ; ==> ; (SB!ALIEN-INTERNALS:NATURALIZE ; (LET ((#:G14913 (SB!ALIEN-INTERNALS:DEPORT-ALLOC #:G14913 '#))) ; (SB!ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS (#:G14913) ; (#) ; (SB!C:%ALIEN-FUNCALL (SB!ALIEN-INTERNALS:DEPORT FUNCTION '#) ; '# ; (SB!ALIEN-INTERNALS:DEPORT #:G14913 '#)))) ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE ; in: DEFUN C-STRINGS->STRING-LIST ; (SB!ALIEN:DEREF SB!UNIX::C-STRINGS SB!UNIX::I) ; --> SB!ALIEN-INTERNALS:%ALIEN-VALUE ; ==> ; (SB!ALIEN-INTERNALS:NATURALIZE ; (SB!SYS:SAP-REF-SAP SB!ALIEN::SAP (/ SB!ALIEN::OFFSET SB!VM:N-BYTE-BITS)) ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE ; ; caught STYLE-WARNING: ; 4 more uses of undefined function SB!ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/unix.lisp ; in: DEFUN NOTE-DANGEROUS-WAIT ; (SB!DEBUG:BACKTRACE) ; ; caught STYLE-WARNING: ; undefined function: SB!DEBUG:BACKTRACE ; in: DEFUN UNIX-RENAME ; (SB!UNIX::VOID-SYSCALL ; ("rename" (SB!ALIEN:C-STRING :NOT-NULL T) (SB!ALIEN:C-STRING :NOT-NULL T)) ; SB!UNIX::NAME1 SB!UNIX::NAME2) ; --> SB!UNIX::SYSCALL LOCALLY LET SB!ALIEN:ALIEN-FUNCALL ; --> SB!ALIEN-INTERNALS:INVOKE-WITH-SAVED-FP-AND-PC LAMBDA FUNCTION ; --> SB!ALIEN-INTERNALS:NATURALIZE LET ; ==> ; (SB!ALIEN-INTERNALS:DEPORT-ALLOC #:G14945 ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!ALIEN::C-STRING-EXTERNAL-FORMAT ; in: DEFINE-ALIEN-ROUTINE ("getenv" POSIX-GETENV) ; (SB!ALIEN:DEFINE-ALIEN-ROUTINE ("getenv" SB!EXT:POSIX-GETENV) ; SB!ALIEN:C-STRING ; "Return the \"value\" part of the environment string \"name=value\" which ; corresponds to NAME, or NIL if there is none." ; (SB!UNIX::NAME (SB!ALIEN:C-STRING :NOT-NULL T))) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK SB!ALIEN:WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET ; --> SYMBOL-MACROLET VALUES PROG1 LET SB!ALIEN:ALIEN-FUNCALL ; --> SB!ALIEN-INTERNALS:INVOKE-WITH-SAVED-FP-AND-PC LAMBDA FUNCTION ; --> SB!ALIEN-INTERNALS:NATURALIZE LET ; ==> ; (SB!ALIEN-INTERNALS:DEPORT-ALLOC #:G14913 ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!ALIEN::C-STRING-EXTERNAL-FORMAT ; in: DEFUN C-STRINGS->STRING-LIST ; (SB!ALIEN:DEREF SB!UNIX::C-STRINGS SB!UNIX::I) ; --> SB!ALIEN-INTERNALS:%ALIEN-VALUE ; ==> ; (SB!ALIEN-INTERNALS:NATURALIZE ; (SB!SYS:SAP-REF-SAP SB!ALIEN::SAP (/ SB!ALIEN::OFFSET SB!VM:N-BYTE-BITS)) ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!ALIEN::C-STRING-EXTERNAL-FORMAT ; ; caught STYLE-WARNING: ; 13 more uses of undefined function SB!ALIEN::C-STRING-EXTERNAL-FORMAT ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/unix.lisp ; in: DEFUN UNIX-LSEEK ; (SB!ALIEN:ALIEN-FUNCALL ; (SB!ALIEN:EXTERN-ALIEN "lseek_largefile" ; (FUNCTION SB!ALIEN:OFF-T SB!ALIEN:INT SB!ALIEN:OFF-T SB!ALIEN:INT)) ; SB!UNIX:FD SB!UNIX::OFFSET SB!UNIX::WHENCE) ; --> SB!ALIEN-INTERNALS:INVOKE-WITH-SAVED-FP-AND-PC LAMBDA FUNCTION ; --> SB!ALIEN-INTERNALS:NATURALIZE LET LET LET ; --> SB!ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN ; ==> ; (SB!C:%ALIEN-FUNCALL ; (SB!ALIEN-INTERNALS:DEPORT FUNCTION ; '#) ; '# ; (SB!ALIEN-INTERNALS:DEPORT #:G15075 ; '#) ; (SB!ALIEN-INTERNALS:DEPORT #:G15076 ; '#) ; (SB!ALIEN-INTERNALS:DEPORT #:G15077 ; '#)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN UNIX-OPEN ; (SB!UNIX:WITH-RESTARTED-SYSCALL (SB!UNIX::VALUE SB!UNIX::ERRNO) ; (SB!UNIX::INT-SYSCALL ("open" SB!ALIEN:C-STRING SB!ALIEN:INT SB!ALIEN:INT) ; SB!UNIX::PATH (LOGIOR SB!UNIX::O_LARGEFILE SB!UNIX::FLAGS) SB!UNIX::MODE)) ; --> LET LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-SETQ VALUES PROG1 LET SETF ; --> LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:NEW245 #:NEW246 #:G247) {B4F5BD1}> ; #:NEW245 #:NEW246 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFMACRO SYSCALL ; (CONCATENATE 'STRING (SUBSEQ SB!UNIX::NAME 3)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 206 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/unix.lisp ; in: DEFUN UNIX-RENAME ; (SB!UNIX::VOID-SYSCALL ; ("rename" (SB!ALIEN:C-STRING :NOT-NULL T) (SB!ALIEN:C-STRING :NOT-NULL T)) ; SB!UNIX::NAME1 SB!UNIX::NAME2) ; --> SB!UNIX::SYSCALL LOCALLY LET ; ==> ; (SB!ALIEN:ALIEN-FUNCALL ; (SB!ALIEN:EXTERN-ALIEN "rename" ; (FUNCTION SB!ALIEN:INT (SB!ALIEN:C-STRING :NOT-NULL T) ; (SB!ALIEN:C-STRING :NOT-NULL T))) ; SB!UNIX::NAME1 SB!UNIX::NAME2) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFINE-ALIEN-ROUTINE ("getenv" POSIX-GETENV) ; (SB!ALIEN:DEFINE-ALIEN-ROUTINE ("getenv" SB!EXT:POSIX-GETENV) ; SB!ALIEN:C-STRING ; "Return the \"value\" part of the environment string \"name=value\" which ; corresponds to NAME, or NIL if there is none." ; (SB!UNIX::NAME (SB!ALIEN:C-STRING :NOT-NULL T))) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK SB!ALIEN:WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET ; --> SYMBOL-MACROLET VALUES PROG1 LET ; ==> ; (SB!ALIEN:ALIEN-FUNCALL SB!EXT:POSIX-GETENV SB!UNIX::NAME) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFMACRO SYSCALL ; (CONCATENATE 'STRING (SUBSEQ SB!UNIX::NAME 3)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; ; caught STYLE-WARNING: ; 231 more uses of undefined type COMPILER-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/unix.lisp ; in: DEFUN UNIX-RENAME ; (SB!UNIX::VOID-SYSCALL ; ("rename" (SB!ALIEN:C-STRING :NOT-NULL T) (SB!ALIEN:C-STRING :NOT-NULL T)) ; SB!UNIX::NAME1 SB!UNIX::NAME2) ; --> SB!UNIX::SYSCALL LOCALLY LET SB!ALIEN:ALIEN-FUNCALL ; --> SB!ALIEN-INTERNALS:INVOKE-WITH-SAVED-FP-AND-PC LAMBDA FUNCTION ; --> SB!ALIEN-INTERNALS:NATURALIZE LET ; ==> ; (SB!ALIEN-INTERNALS:DEPORT-ALLOC #:G14945 ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!ALIEN::NULL-ERROR ; in: DEFINE-ALIEN-ROUTINE ("getenv" POSIX-GETENV) ; (SB!ALIEN:DEFINE-ALIEN-ROUTINE ("getenv" SB!EXT:POSIX-GETENV) ; SB!ALIEN:C-STRING ; "Return the \"value\" part of the environment string \"name=value\" which ; corresponds to NAME, or NIL if there is none." ; (SB!UNIX::NAME (SB!ALIEN:C-STRING :NOT-NULL T))) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK SB!ALIEN:WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET ; --> SYMBOL-MACROLET VALUES PROG1 LET SB!ALIEN:ALIEN-FUNCALL ; --> SB!ALIEN-INTERNALS:INVOKE-WITH-SAVED-FP-AND-PC LAMBDA FUNCTION ; --> SB!ALIEN-INTERNALS:NATURALIZE LET ; ==> ; (SB!ALIEN-INTERNALS:DEPORT-ALLOC #:G14913 ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!ALIEN::NULL-ERROR ; in: DEFUN SB-MKSTEMP ; (SB!EXT:OCTETS-TO-STRING SB!UNIX::TEMPLATE-BUFFER) ; ; caught STYLE-WARNING: ; undefined function: OCTETS-TO-STRING ; (SB!EXT:STRING-TO-OCTETS SB!UNIX::TEMPLATE-STRING :NULL-TERMINATE T) ; ; caught STYLE-WARNING: ; undefined function: STRING-TO-OCTETS ; ; compilation unit finished ; Undefined types: ; CODE-DELETION-NOTE COMPILER-NOTE ; Undefined functions: ; SB!ALIEN::%DEF-AUXILIARY-ALIEN-TYPES SB!ALIEN::%DEFINE-ALIEN-TYPE (SETF COMPILER-MACRO-FUNCTION) SB!ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE SB!DEBUG:BACKTRACE SB!ALIEN::C-STRING-EXTERNAL-FORMAT SB!ALIEN::NULL-ERROR OCTETS-TO-STRING STRING-TO-OCTETS ; caught 28 STYLE-WARNING conditions ; printed 47 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/unix.lisp-obj-tmp written ; compilation finished in 0:00:01.648 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/common-os.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!SYS") ; x-compiling (DEFVAR *SOFTWARE-VERSION* ...) ; x-compiling (SB!ALIEN:DEFINE-ALIEN-VARIABLE ("posix_argv" *NATIVE-POSIX-ARGV*) ...) ; x-compiling (SB!ALIEN:DEFINE-ALIEN-VARIABLE ("core_string" *NATIVE-CORE-STRING*) ...) ; x-compiling (SB!ALIEN:DEFINE-ALIEN-ROUTINE OS-GET-RUNTIME-EXECUTABLE-PATH ...) /entering WITH-ALIEN BINDINGS=((OS-GET-RUNTIME-EXECUTABLE-PATH (FUNCTION SB!ALIEN:C-STRING BOOLEAN) :EXTERN "os_get_runtime_executable_path")) /BINDING=(OS-GET-RUNTIME-EXECUTABLE-PATH (FUNCTION SB!ALIEN:C-STRING BOOLEAN) :EXTERN "os_get_runtime_executable_path") /SYMBOL=OS-GET-RUNTIME-EXECUTABLE-PATH TYPE=(FUNCTION SB!ALIEN:C-STRING BOOLEAN) OPT1=:EXTERN OPT2="os_get_runtime_executable_path" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="os_get_runtime_executable_path" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((OS-GET-RUNTIME-EXECUTABLE-PATH #)) (VALUES (SB!ALIEN:ALIEN-FUNCALL OS-GET-RUNTIME-EXECUTABLE-PATH EXTERNAL-PATH)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; x-compiling (SB!ALIEN:DEFINE-ALIEN-VARIABLE ("saved_runtime_path" *NATIVE-SAVED-RUNTIME-PATH*) ...) ; x-compiling (DEFMACRO INIT-VAR-IGNORING-ERRORS ...) ; x-compiling (DEFUN OS-DEINIT ...) ; x-compiling (DEFUN OS-COLD-INIT-OR-REINIT ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/common-os.lisp ; in: DEFUN OS-COLD-INIT-OR-REINIT ; (SB!ALIEN:DEREF SB!SYS::*NATIVE-POSIX-ARGV* SB!SYS::I) ; --> SB!ALIEN-INTERNALS:%ALIEN-VALUE SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; in: DEFUN OS-DEINIT ; (SB!IMPL::%MAKUNBOUND 'SB!SYS:*MACHINE-VERSION*) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::%MAKUNBOUND ; in: DEFUN OS-COLD-INIT-OR-REINIT ; (SB!ALIEN:CAST SB!SYS::ARG SB!ALIEN:C-STRING) ; --> SB!ALIEN-INTERNALS:%CAST ; ==> ; (SB!ALIEN-INTERNALS:NATURALIZE (SB!ALIEN:ALIEN-SAP SB!ALIEN:ALIEN) ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE ; in: SB!ALIEN:DEFINE-ALIEN-ROUTINE OS-GET-RUNTIME-EXECUTABLE-PATH ; (SB!ALIEN:DEFINE-ALIEN-ROUTINE SB!SYS::OS-GET-RUNTIME-EXECUTABLE-PATH ; SB!ALIEN:C-STRING (SB!SYS::EXTERNAL-PATH BOOLEAN)) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK SB!ALIEN:WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET ; --> SYMBOL-MACROLET VALUES PROG1 LET SB!ALIEN:ALIEN-FUNCALL ; --> SB!ALIEN-INTERNALS:INVOKE-WITH-SAVED-FP-AND-PC LAMBDA FUNCTION ; ==> ; (SB!ALIEN-INTERNALS:NATURALIZE ; (LET ((#:G16001 (SB!ALIEN-INTERNALS:DEPORT-ALLOC #:G16001 '#))) ; (SB!ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS (#:G16001) ; (#) ; (SB!C:%ALIEN-FUNCALL (SB!ALIEN-INTERNALS:DEPORT FUNCTION '#) ; '# ; (SB!ALIEN-INTERNALS:DEPORT #:G16001 '#)))) ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE ; in: DEFUN OS-COLD-INIT-OR-REINIT ; (SB!ALIEN:CAST SB!SYS::ARG SB!ALIEN:C-STRING) ; --> SB!ALIEN-INTERNALS:%CAST ; ==> ; (SB!ALIEN-INTERNALS:NATURALIZE (SB!ALIEN:ALIEN-SAP SB!ALIEN:ALIEN) ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!ALIEN::C-STRING-EXTERNAL-FORMAT ; in: SB!ALIEN:DEFINE-ALIEN-ROUTINE OS-GET-RUNTIME-EXECUTABLE-PATH ; (SB!ALIEN:DEFINE-ALIEN-ROUTINE SB!SYS::OS-GET-RUNTIME-EXECUTABLE-PATH ; SB!ALIEN:C-STRING (SB!SYS::EXTERNAL-PATH BOOLEAN)) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK SB!ALIEN:WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET ; --> SYMBOL-MACROLET VALUES PROG1 LET SB!ALIEN:ALIEN-FUNCALL ; --> SB!ALIEN-INTERNALS:INVOKE-WITH-SAVED-FP-AND-PC LAMBDA FUNCTION ; ==> ; (SB!ALIEN-INTERNALS:NATURALIZE ; (LET ((#:G16001 (SB!ALIEN-INTERNALS:DEPORT-ALLOC #:G16001 '#))) ; (SB!ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS (#:G16001) ; (#) ; (SB!C:%ALIEN-FUNCALL (SB!ALIEN-INTERNALS:DEPORT FUNCTION '#) ; '# ; (SB!ALIEN-INTERNALS:DEPORT #:G16001 '#)))) ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!ALIEN::C-STRING-EXTERNAL-FORMAT ; in: DEFMACRO INIT-VAR-IGNORING-ERRORS ; (DEFMACRO SB!SYS::INIT-VAR-IGNORING-ERRORS ; (VARIABLE SB!SYS::FORM ; &KEY SB!SYS::DEFAULT SB!SYS::EXPLANATION (CONDITION 'ERROR)) ; (SB!INT:QUASIQUOTE ; (SETF #S(SB!IMPL::COMMA :EXPR VARIABLE :KIND 0) (HANDLER-CASE # #)))) ; --> PROGN EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:PROBLEM25 #:INFO26 #:G27) {CA28151}> ; #:PROBLEM25 #:INFO26 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: SB!ALIEN:DEFINE-ALIEN-ROUTINE OS-GET-RUNTIME-EXECUTABLE-PATH ; (SB!ALIEN:DEFINE-ALIEN-ROUTINE SB!SYS::OS-GET-RUNTIME-EXECUTABLE-PATH ; SB!ALIEN:C-STRING (SB!SYS::EXTERNAL-PATH BOOLEAN)) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK SB!ALIEN:WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET ; --> SYMBOL-MACROLET VALUES PROG1 LET SB!ALIEN:ALIEN-FUNCALL ; --> SB!ALIEN-INTERNALS:INVOKE-WITH-SAVED-FP-AND-PC LAMBDA FUNCTION ; --> SB!ALIEN-INTERNALS:NATURALIZE LET ; --> SB!ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN SB!C:%ALIEN-FUNCALL ; --> SB!ALIEN-INTERNALS:DEPORT MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET ; --> SB!C::%TYPEP-WRAPPER IF ; ==> ; (MEMBER #:OBJECT16003 '(T NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK SB!ALIEN:WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET ; --> SYMBOL-MACROLET VALUES PROG1 LET ; ==> ; (SB!ALIEN:ALIEN-FUNCALL SB!SYS::OS-GET-RUNTIME-EXECUTABLE-PATH ; SB!SYS::EXTERNAL-PATH) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN OS-COLD-INIT-OR-REINIT ; (SB!SYS::INIT-VAR-IGNORING-ERRORS *DEFAULT-PATHNAME-DEFAULTS* ; (SB!EXT:PARSE-NATIVE-NAMESTRING (SB!UNIX:POSIX-GETCWD/)) :DEFAULT ; *DEFAULT-PATHNAME-DEFAULTS* :EXPLANATION "with the current directory") ; --> SETF SETQ THE HANDLER-CASE SB!INT:DX-FLET FLET BLOCK SB!INT:DX-LET LET ; --> TAGBODY SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK ; ==> ; (TYPEP CONDITION 'ERROR) ; ; caught STYLE-WARNING: ; undefined type: ERROR ; (SB!SYS::INIT-VAR-IGNORING-ERRORS SB!EXT:*POSIX-ARGV* ; (LOOP SB!SYS::FOR SB!SYS::I SB!SYS::FROM 0 ; SB!SYS::FOR SB!SYS::ARG = (SB!ALIEN:DEREF SB!SYS::*NATIVE-POSIX-ARGV* ; SB!SYS::I) ; SB!SYS::UNTIL (SB!ALIEN:NULL-ALIEN SB!SYS::ARG) ; SB!INT:COLLECT ...)) ; --> SETF SETQ THE HANDLER-CASE SB!INT:DX-FLET FLET BLOCK SB!INT:DX-LET LET ; --> TAGBODY SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK ; ==> ; (TYPEP CONDITION 'ERROR) ; ; caught STYLE-WARNING: ; undefined type: ERROR ; (SB!SYS::INIT-VAR-IGNORING-ERRORS SB!INT:*CORE-STRING* ; (SB!ALIEN:CAST SB!SYS::*NATIVE-CORE-STRING* SB!ALIEN:C-STRING) :DEFAULT "") ; --> SETF SETQ THE HANDLER-CASE SB!INT:DX-FLET FLET BLOCK SB!INT:DX-LET LET ; --> TAGBODY SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK ; ==> ; (TYPEP CONDITION 'ERROR) ; ; caught STYLE-WARNING: ; undefined type: ERROR ; ; caught STYLE-WARNING: ; 5 more uses of undefined type ERROR ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/common-os.lisp ; in: DEFUN OS-COLD-INIT-OR-REINIT ; (SB!INT:MAKE-TRIVIAL-DEFAULT-PATHNAME) ; ; caught STYLE-WARNING: ; undefined function: MAKE-TRIVIAL-DEFAULT-PATHNAME ; in: DEFUN OS-DEINIT ; (SB!INT:MAKE-TRIVIAL-DEFAULT-PATHNAME) ; ; caught STYLE-WARNING: ; undefined function: MAKE-TRIVIAL-DEFAULT-PATHNAME ; in: DEFUN OS-COLD-INIT-OR-REINIT ; (SB!EXT:NATIVE-PATHNAME SB!INT:*CORE-STRING*) ; ; caught STYLE-WARNING: ; undefined function: NATIVE-PATHNAME ; (SB!EXT:PARSE-NATIVE-NAMESTRING (SB!UNIX:POSIX-GETCWD/)) ; ; caught STYLE-WARNING: ; undefined function: PARSE-NATIVE-NAMESTRING ; ; compilation unit finished ; Undefined types: ; CODE-DELETION-NOTE COMPILER-NOTE ERROR ; Undefined functions: ; SB!IMPL::%MAKUNBOUND SB!ALIEN::ALIEN-C-STRING-TYPE-ELEMENT-TYPE SB!ALIEN::C-STRING-EXTERNAL-FORMAT MAKE-TRIVIAL-DEFAULT-PATHNAME NATIVE-PATHNAME PARSE-NATIVE-NAMESTRING ; caught 16 STYLE-WARNING conditions ; printed 1 note ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/common-os.lisp-obj-tmp written ; compilation finished in 0:00:00.079 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/linux-os.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!SYS") ; x-compiling (DEFUN SOFTWARE-TYPE ...) ; x-compiling (DEFUN SOFTWARE-VERSION ...) ; x-compiling (DEFUN GET-SYSTEM-INFO ...) ; x-compiling (DEFUN GET-PAGE-SIZE ...) ; x-compiling (DEFUN GET-MACHINE-VERSION ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/linux-os.lisp ; in: DEFUN GET-MACHINE-VERSION ; (WITH-OPEN-FILE (STREAM "/proc/cpuinfo" :IF-DOES-NOT-EXIST NIL) ; (LOOP SB!SYS::WITH SB!SYS::LINE ; SB!SYS::WHILE (SETF SB!SYS::LINE (READ-LINE STREAM NIL)) ; WHEN (EQL (SEARCH SB!SYS::MARKER SB!SYS::LINE) 0) RETURN (STRING-TRIM ; " " ; (SUBSEQ ; SB!SYS::LINE ; (1+ #))))) ; --> WITH-OPEN-STREAM LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:NEXT33 #:START34 #:COUNT35 #:G36) {DC11159}> ; #:NEXT33 #:START34 #:COUNT35 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN GET-SYSTEM-INFO ; (MULTIPLE-VALUE-BIND ; (SB!SYS::ERR? SB!SYS::UTIME SB!SYS::STIME SB!SYS::MAXRSS SB!SYS::IXRSS ; SB!SYS::IDRSS SB!SYS::ISRSS SB!SYS::MINFLT SB!SYS::MAJFLT) ; (SB!UNIX:UNIX-GETRUSAGE SB!UNIX:RUSAGE_SELF) ; (DECLARE ; (IGNORE SB!SYS::MAXRSS SB!SYS::IXRSS SB!SYS::IDRSS SB!SYS::ISRSS ; SB!SYS::MINFLT)) ; (UNLESS SB!SYS::ERR? ; (ERROR "Unix system call getrusage failed: ~A." ; (SB!INT:STRERROR SB!SYS::UTIME))) ; (VALUES SB!SYS::UTIME SB!SYS::STIME SB!SYS::MAJFLT)) ; --> MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!SYS::ERR? SB!SYS::UTIME SB!SYS::STIME SB!SYS::MAXRSS ; SB!SYS::IXRSS SB!SYS::IDRSS SB!SYS::ISRSS SB!SYS::MINFLT ; SB!SYS::MAJFLT #:G27) ; {DBC9571}> ; SB!SYS::ERR? SB!SYS::UTIME SB!SYS::STIME SB!SYS::MAXRSS SB!SYS::IXRSS ; SB!SYS::IDRSS SB!SYS::ISRSS SB!SYS::MINFLT SB!SYS::MAJFLT NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN SOFTWARE-VERSION ; (STRING-TRIM '(#\Newline) ; (SB!KERNEL:WITH-SIMPLE-OUTPUT-TO-STRING (STREAM) ; (SB!EXT:RUN-PROGRAM "/bin/uname" (SB!INT:QUASIQUOTE ("-r")) ; :OUTPUT STREAM))) ; --> FLET BLOCK NOT IF ; ==> ; (MEMBER (SCHAR STRING SB!INT:INDEX) '(#\Newline) :TEST #'CHAR=) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; (SB!EXT:RUN-PROGRAM "/bin/uname" (SB!INT:QUASIQUOTE ("-r")) :OUTPUT STREAM) ; ; caught STYLE-WARNING: ; undefined function: RUN-PROGRAM ; ; compilation unit finished ; Undefined type: ; CODE-DELETION-NOTE ; Undefined function: ; RUN-PROGRAM ; caught 4 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/linux-os.lisp-obj-tmp written ; compilation finished in 0:00:00.035 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/sc-offset.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFCONSTANT-EQX SC-OFFSET-SCN-BYTE ...) ; x-compiling (DEFCONSTANT-EQX SC-OFFSET-OFFSET-BYTE ...) ; x-compiling (DEF!TYPE SC-OFFSET ...) ; x-compiling (DEFMACRO MAKE-SC-OFFSET ...) ; x-compiling (DEFMACRO SC-OFFSET-SCN ...) ; x-compiling (DEFMACRO SC-OFFSET-OFFSET ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/sc-offset.lisp-obj-tmp written ; compilation finished in 0:00:00.019 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/x86-vm.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFINE-ALIEN-TYPE OS-CONTEXT-T ...) ; x-compiling (DEFUN MACHINE-TYPE ...) ; x-compiling (DEFVAR *NUM-FIXUPS* ...) ; x-compiling (DECLAIM (INLINE ADJUST-FIXUP-ARRAY)) ; x-compiling (DEFUN ADJUST-FIXUP-ARRAY ...) ; x-compiling (DEFUN FIXUP-CODE-OBJECT ...) ; x-compiling (DECLAIM (INLINE CONTEXT-PC-ADDR)) ; x-compiling (DEFINE-ALIEN-ROUTINE ("os_context_pc_addr" CONTEXT-PC-ADDR) ...) /entering WITH-ALIEN BINDINGS=((CONTEXT-PC-ADDR (FUNCTION (* UNSIGNED-INT) (* OS-CONTEXT-T)) :EXTERN "os_context_pc_addr")) /BINDING=(CONTEXT-PC-ADDR (FUNCTION (* UNSIGNED-INT) (* OS-CONTEXT-T)) :EXTERN "os_context_pc_addr") /SYMBOL=CONTEXT-PC-ADDR TYPE=(FUNCTION (* UNSIGNED-INT) (* OS-CONTEXT-T)) OPT1=:EXTERN OPT2="os_context_pc_addr" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="os_context_pc_addr" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((CONTEXT-PC-ADDR #)) (VALUES (ALIEN-FUNCALL CONTEXT-PC-ADDR CONTEXT)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/x86-vm.lisp ; in: DEFINE-ALIEN-ROUTINE ("os_context_pc_addr" CONTEXT-PC-ADDR) ; (SB!ALIEN:DEFINE-ALIEN-ROUTINE ("os_context_pc_addr" SB!VM::CONTEXT-PC-ADDR) ; (* SB!ALIEN:UNSIGNED-INT) (SB!VM::CONTEXT (* SB!SYS:OS-CONTEXT-T))) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK SB!ALIEN:WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET ; --> SYMBOL-MACROLET VALUES PROG1 LET SB!ALIEN:ALIEN-FUNCALL ; --> SB!ALIEN-INTERNALS:INVOKE-WITH-SAVED-FP-AND-PC LAMBDA FUNCTION ; --> SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; x-compiling (DECLAIM (INLINE CONTEXT-PC)) ; x-compiling (DEFUN CONTEXT-PC ...) /entering WITH-ALIEN BINDINGS=((CONTEXT-PC-ADDR (FUNCTION (* UNSIGNED-INT) (* OS-CONTEXT-T)) :EXTERN "os_context_pc_addr")) /BINDING=(CONTEXT-PC-ADDR (FUNCTION (* UNSIGNED-INT) (* OS-CONTEXT-T)) :EXTERN "os_context_pc_addr") /SYMBOL=CONTEXT-PC-ADDR TYPE=(FUNCTION (* UNSIGNED-INT) (* OS-CONTEXT-T)) OPT1=:EXTERN OPT2="os_context_pc_addr" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="os_context_pc_addr" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((CONTEXT-PC-ADDR #)) (VALUES (ALIEN-FUNCALL CONTEXT-PC-ADDR CONTEXT)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/x86-vm.lisp ; in: DEFUN CONTEXT-PC ; (SB!VM::CONTEXT-PC-ADDR SB!VM::CONTEXT) ; --> BLOCK SB!ALIEN:WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET ; --> SYMBOL-MACROLET VALUES PROG1 LET SB!ALIEN:ALIEN-FUNCALL ; --> SB!ALIEN-INTERNALS:INVOKE-WITH-SAVED-FP-AND-PC LAMBDA FUNCTION ; --> SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; x-compiling (DECLAIM (INLINE CONTEXT-REGISTER-ADDR)) ; x-compiling (DEFINE-ALIEN-ROUTINE ("os_context_register_addr" CONTEXT-REGISTER-ADDR) ...) /entering WITH-ALIEN BINDINGS=((CONTEXT-REGISTER-ADDR (FUNCTION (* UNSIGNED-INT) (* OS-CONTEXT-T) INT) :EXTERN "os_context_register_addr")) /BINDING=(CONTEXT-REGISTER-ADDR (FUNCTION (* UNSIGNED-INT) (* OS-CONTEXT-T) INT) :EXTERN "os_context_register_addr") /SYMBOL=CONTEXT-REGISTER-ADDR TYPE=(FUNCTION (* UNSIGNED-INT) (* OS-CONTEXT-T) INT) OPT1=:EXTERN OPT2="os_context_register_addr" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="os_context_register_addr" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((CONTEXT-REGISTER-ADDR #)) (VALUES (ALIEN-FUNCALL CONTEXT-REGISTER-ADDR CONTEXT INDEX)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/x86-vm.lisp ; in: ; DEFINE-ALIEN-ROUTINE ("os_context_register_addr" CONTEXT-REGISTER-ADDR) ; (SB!ALIEN:DEFINE-ALIEN-ROUTINE ; ("os_context_register_addr" SB!VM::CONTEXT-REGISTER-ADDR) ; (* SB!ALIEN:UNSIGNED-INT) (SB!VM::CONTEXT (* SB!SYS:OS-CONTEXT-T)) ; (SB!INT:INDEX SB!ALIEN:INT)) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK SB!ALIEN:WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET ; --> SYMBOL-MACROLET VALUES PROG1 LET SB!ALIEN:ALIEN-FUNCALL ; --> SB!ALIEN-INTERNALS:INVOKE-WITH-SAVED-FP-AND-PC LAMBDA FUNCTION ; --> SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; x-compiling (DECLAIM (INLINE CONTEXT-REGISTER)) ; x-compiling (DEFUN CONTEXT-REGISTER ...) /entering WITH-ALIEN BINDINGS=((CONTEXT-REGISTER-ADDR (FUNCTION (* UNSIGNED-INT) (* OS-CONTEXT-T) INT) :EXTERN "os_context_register_addr")) /BINDING=(CONTEXT-REGISTER-ADDR (FUNCTION (* UNSIGNED-INT) (* OS-CONTEXT-T) INT) :EXTERN "os_context_register_addr") /SYMBOL=CONTEXT-REGISTER-ADDR TYPE=(FUNCTION (* UNSIGNED-INT) (* OS-CONTEXT-T) INT) OPT1=:EXTERN OPT2="os_context_register_addr" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="os_context_register_addr" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((CONTEXT-REGISTER-ADDR #)) (VALUES (ALIEN-FUNCALL CONTEXT-REGISTER-ADDR CONTEXT INDEX)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/x86-vm.lisp ; in: DEFUN CONTEXT-REGISTER ; (SB!VM::CONTEXT-REGISTER-ADDR SB!VM::CONTEXT SB!INT:INDEX) ; --> BLOCK SB!ALIEN:WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET ; --> SYMBOL-MACROLET VALUES PROG1 LET SB!ALIEN:ALIEN-FUNCALL ; --> SB!ALIEN-INTERNALS:INVOKE-WITH-SAVED-FP-AND-PC LAMBDA FUNCTION ; --> SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; x-compiling (DEFUN %SET-CONTEXT-REGISTER ...) /entering WITH-ALIEN BINDINGS=((CONTEXT-REGISTER-ADDR (FUNCTION (* UNSIGNED-INT) (* OS-CONTEXT-T) INT) :EXTERN "os_context_register_addr")) /BINDING=(CONTEXT-REGISTER-ADDR (FUNCTION (* UNSIGNED-INT) (* OS-CONTEXT-T) INT) :EXTERN "os_context_register_addr") /SYMBOL=CONTEXT-REGISTER-ADDR TYPE=(FUNCTION (* UNSIGNED-INT) (* OS-CONTEXT-T) INT) OPT1=:EXTERN OPT2="os_context_register_addr" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="os_context_register_addr" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((CONTEXT-REGISTER-ADDR #)) (VALUES (ALIEN-FUNCALL CONTEXT-REGISTER-ADDR CONTEXT INDEX)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/x86-vm.lisp ; in: DEFUN %SET-CONTEXT-REGISTER ; (SB!VM::CONTEXT-REGISTER-ADDR SB!VM::CONTEXT SB!INT:INDEX) ; --> BLOCK SB!ALIEN:WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET ; --> SYMBOL-MACROLET VALUES PROG1 LET SB!ALIEN:ALIEN-FUNCALL ; --> SB!ALIEN-INTERNALS:INVOKE-WITH-SAVED-FP-AND-PC LAMBDA FUNCTION ; --> SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; x-compiling (DEFUN CONTEXT-FLOAT-REGISTER ...) ; x-compiling (DEFUN %SET-CONTEXT-FLOAT-REGISTER ...) ; x-compiling (DEFINE-ALIEN-ROUTINE ("os_context_fp_control" CONTEXT-FLOATING-POINT-MODES) ...) /entering WITH-ALIEN BINDINGS=((CONTEXT-FLOATING-POINT-MODES (FUNCTION (UNSIGNED 32) (* OS-CONTEXT-T)) :EXTERN "os_context_fp_control")) /BINDING=(CONTEXT-FLOATING-POINT-MODES (FUNCTION (UNSIGNED 32) (* OS-CONTEXT-T)) :EXTERN "os_context_fp_control") /SYMBOL=CONTEXT-FLOATING-POINT-MODES TYPE=(FUNCTION (UNSIGNED 32) (* OS-CONTEXT-T)) OPT1=:EXTERN OPT2="os_context_fp_control" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="os_context_fp_control" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((CONTEXT-FLOATING-POINT-MODES #)) (VALUES (ALIEN-FUNCALL CONTEXT-FLOATING-POINT-MODES CONTEXT)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; x-compiling (DEFUN INTERNAL-ERROR-ARGS ...) /entering WITH-ALIEN BINDINGS=((CONTEXT-PC-ADDR (FUNCTION (* UNSIGNED-INT) (* OS-CONTEXT-T)) :EXTERN "os_context_pc_addr")) /BINDING=(CONTEXT-PC-ADDR (FUNCTION (* UNSIGNED-INT) (* OS-CONTEXT-T)) :EXTERN "os_context_pc_addr") /SYMBOL=CONTEXT-PC-ADDR TYPE=(FUNCTION (* UNSIGNED-INT) (* OS-CONTEXT-T)) OPT1=:EXTERN OPT2="os_context_pc_addr" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="os_context_pc_addr" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((CONTEXT-PC-ADDR #)) (VALUES (ALIEN-FUNCALL CONTEXT-PC-ADDR CONTEXT)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/x86-vm.lisp ; in: DEFUN INTERNAL-ERROR-ARGS ; (SB!VM:CONTEXT-PC SB!VM::CONTEXT) ; --> BLOCK LET SB!VM::CONTEXT-PC-ADDR BLOCK SB!ALIEN:WITH-ALIEN ; --> SYMBOL-MACROLET SYMBOL-MACROLET LET SYMBOL-MACROLET VALUES PROG1 LET ; --> SB!ALIEN:ALIEN-FUNCALL SB!ALIEN-INTERNALS:INVOKE-WITH-SAVED-FP-AND-PC ; --> LAMBDA FUNCTION SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; x-compiling (DEFUN FLOAT-WAIT ...) ; x-compiling (DEFVAR *FP-CONSTANT-0F0*) ; x-compiling (DEFVAR *FP-CONSTANT-1F0*) ; x-compiling (DEFVAR *FP-CONSTANT-0D0*) ; x-compiling (DEFVAR *FP-CONSTANT-1D0*) ; x-compiling (DEFVAR *FP-CONSTANT-0L0*) ; x-compiling (DEFVAR *FP-CONSTANT-1L0*) ; x-compiling (DEFVAR *FP-CONSTANT-PI*) ; x-compiling (DEFVAR *FP-CONSTANT-L2T*) ; x-compiling (DEFVAR *FP-CONSTANT-L2E*) ; x-compiling (DEFVAR *FP-CONSTANT-LG2*) ; x-compiling (DEFVAR *FP-CONSTANT-LN2*) ; x-compiling (DEFVAR *ALIEN-STACK-POINTER*) ; x-compiling (DEFUN RANDOM-MT19937 ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/x86-vm.lisp ; in: DEFINE-ALIEN-TYPE OS-CONTEXT-T ; (SB!ALIEN:DEFINE-ALIEN-TYPE SB!SYS:OS-CONTEXT-T ; (SB!ALIEN:STRUCT SB!VM::OS-CONTEXT-T-STRUCT)) ; --> SYMBOL-MACROLET EVAL-WHEN SB!ALIEN::%DEF-AUXILIARY-ALIEN-TYPES ; ==> ; (SB!ALIEN::%DEF-AUXILIARY-ALIEN-TYPES ; '((:STRUCT SB!VM::OS-CONTEXT-T-STRUCT ; #))) ; ; caught STYLE-WARNING: ; undefined function: SB!ALIEN::%DEF-AUXILIARY-ALIEN-TYPES ; --> SYMBOL-MACROLET EVAL-WHEN SB!ALIEN::%DEFINE-ALIEN-TYPE ; ==> ; (SB!ALIEN::%DEFINE-ALIEN-TYPE 'SB!SYS:OS-CONTEXT-T ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!ALIEN::%DEFINE-ALIEN-TYPE ; in: DEFUN FIXUP-CODE-OBJECT ; (MEMBER SB!VM::KIND '(:ABSOLUTE :RELATIVE)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; (SB!SYS:WITHOUT-GCING ; (LET* ((SB!VM::SAP (SB!EXT:TRULY-THE SB!SYS:SYSTEM-AREA-POINTER #)) ; (SB!VM::OBJ-START-ADDR (LOGAND # 4294967288)) ; (SB!VM::CODE-START-ADDR (SB!SYS:SAP-INT #)) ; (SB!VM::NCODE-WORDS (SB!KERNEL:CODE-HEADER-REF SB!VM::CODE 1)) ; (SB!VM::CODE-END-ADDR (+ SB!VM::CODE-START-ADDR #))) ; (UNLESS (MEMBER SB!VM::KIND '(:ABSOLUTE :RELATIVE)) ; (ERROR "Unknown code-object-fixup kind ~S." SB!VM::KIND)) ; (ECASE SB!VM::KIND ; (:ABSOLUTE (SETF #) (WHEN # #)) ; (:RELATIVE ; (WHEN # #) ; (LET* # ; # ; #))))) ; --> SB!INT:DX-FLET FLET IF LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:NEXT39 #:START40 #:COUNT41 #:G42) {DF11E69}> ; #:NEXT39 #:START40 #:COUNT41 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN ADJUST-FIXUP-ARRAY ; (MAKE-ARRAY SB!VM::SIZE :ELEMENT-TYPE '(UNSIGNED-BYTE 32)) ; --> LOCALLY ; ==> ; (MAKE-ARRAY SB!VM::SIZE :ELEMENT-TYPE '(UNSIGNED-BYTE 32)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 8 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/x86-vm.lisp ; in: ; DEFINE-ALIEN-ROUTINE ("os_context_register_addr" CONTEXT-REGISTER-ADDR) ; (SB!ALIEN:DEFINE-ALIEN-ROUTINE ; ("os_context_register_addr" SB!VM::CONTEXT-REGISTER-ADDR) ; (* SB!ALIEN:UNSIGNED-INT) (SB!VM::CONTEXT (* SB!SYS:OS-CONTEXT-T)) ; (SB!INT:INDEX SB!ALIEN:INT)) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK SB!ALIEN:WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET ; --> SYMBOL-MACROLET VALUES PROG1 LET ; ==> ; (SB!ALIEN:ALIEN-FUNCALL SB!VM::CONTEXT-REGISTER-ADDR SB!VM::CONTEXT ; SB!INT:INDEX) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN CONTEXT-PC ; (SB!VM::CONTEXT-PC-ADDR SB!VM::CONTEXT) ; --> BLOCK SB!ALIEN:WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET ; --> SYMBOL-MACROLET VALUES PROG1 LET ; ==> ; (SB!ALIEN:ALIEN-FUNCALL SB!VM::CONTEXT-PC-ADDR SB!VM::CONTEXT) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFINE-ALIEN-ROUTINE ("os_context_pc_addr" CONTEXT-PC-ADDR) ; (SB!ALIEN:DEFINE-ALIEN-ROUTINE ("os_context_pc_addr" SB!VM::CONTEXT-PC-ADDR) ; (* SB!ALIEN:UNSIGNED-INT) (SB!VM::CONTEXT (* SB!SYS:OS-CONTEXT-T))) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK SB!ALIEN:WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET ; --> SYMBOL-MACROLET VALUES PROG1 LET ; ==> ; (SB!ALIEN:ALIEN-FUNCALL SB!VM::CONTEXT-PC-ADDR SB!VM::CONTEXT) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; ; caught STYLE-WARNING: ; 4 more uses of undefined type COMPILER-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/x86-vm.lisp ; in: DEFUN INTERNAL-ERROR-ARGS ; (SB!INT:/HEXSTR SB!VM::CONTEXT) ; --> SB!SYS:%PRIMITIVE SB!C::%%PRIMITIVE ; ==> ; (SB!INT:HEXSTR SB!VM::CONTEXT) ; ; caught STYLE-WARNING: ; undefined function: HEXSTR ; in: DEFUN FIXUP-CODE-OBJECT ; (MAKE-ARRAY 1 :ELEMENT-TYPE '(UNSIGNED-BYTE 32) :INITIAL-ELEMENT ; SB!VM::OFFSET) ; --> LOCALLY MAKE-ARRAY SB!EXT:TRULY-THE ; ==> ; (FILL ; (SB!EXT:TRULY-THE (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (1)) ; (SB!KERNEL:ALLOCATE-VECTOR 174 (THE SB!INT:INDEX LENGTH) ; 1)) ; (THE (UNSIGNED-BYTE 32) SB!C::INITIAL-ELEMENT)) ; ; caught STYLE-WARNING: ; undefined function: UB32-BASH-FILL ; ; compilation unit finished ; Undefined types: ; CODE-DELETION-NOTE COMPILER-NOTE ; Undefined functions: ; SB!ALIEN::%DEF-AUXILIARY-ALIEN-TYPES SB!ALIEN::%DEFINE-ALIEN-TYPE HEXSTR UB32-BASH-FILL ; caught 12 STYLE-WARNING conditions ; printed 6 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/x86-vm.lisp-obj-tmp written ; compilation finished in 0:00:00.195 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-signal.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!UNIX") ; x-compiling (DEFMACRO WITH-INTERRUPT-BINDINGS ...) ; x-compiling (DEFMACRO NLX-PROTECT ...) ; x-compiling (DEFUN INVOKE-INTERRUPTION ...) ; x-compiling (DEFMACRO IN-INTERRUPTION ...) ; x-compiling (DECLAIM (INLINE UNIX-KILL)) ; x-compiling (DEFINE-ALIEN-ROUTINE ("kill" UNIX-KILL) ...) /entering WITH-ALIEN BINDINGS=((UNIX-KILL (FUNCTION INT INT INT) :EXTERN "kill")) /BINDING=(UNIX-KILL (FUNCTION INT INT INT) :EXTERN "kill") /SYMBOL=UNIX-KILL TYPE=(FUNCTION INT INT INT) OPT1=:EXTERN OPT2="kill" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="kill" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((UNIX-KILL #)) (VALUES (ALIEN-FUNCALL UNIX-KILL PID SIGNAL)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; x-compiling (DECLAIM (INLINE UNIX-KILLPG)) ; x-compiling (DEFINE-ALIEN-ROUTINE ("killpg" UNIX-KILLPG) ...) /entering WITH-ALIEN BINDINGS=((UNIX-KILLPG (FUNCTION INT INT INT) :EXTERN "killpg")) /BINDING=(UNIX-KILLPG (FUNCTION INT INT INT) :EXTERN "killpg") /SYMBOL=UNIX-KILLPG TYPE=(FUNCTION INT INT INT) OPT1=:EXTERN OPT2="killpg" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="killpg" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((UNIX-KILLPG #)) (VALUES (ALIEN-FUNCALL UNIX-KILLPG PGRP SIGNAL)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; x-compiling (DECLAIM (INLINE %UNBLOCK-DEFERRABLE-SIGNALS ...)) ; x-compiling (DEFINE-ALIEN-ROUTINE ("unblock_deferrable_signals" %UNBLOCK-DEFERRABLE-SIGNALS) ...) /entering WITH-ALIEN BINDINGS=((%UNBLOCK-DEFERRABLE-SIGNALS (FUNCTION VOID UNSIGNED-LONG UNSIGNED-LONG) :EXTERN "unblock_deferrable_signals")) /BINDING=(%UNBLOCK-DEFERRABLE-SIGNALS (FUNCTION VOID UNSIGNED-LONG UNSIGNED-LONG) :EXTERN "unblock_deferrable_signals") /SYMBOL=%UNBLOCK-DEFERRABLE-SIGNALS TYPE=(FUNCTION VOID UNSIGNED-LONG UNSIGNED-LONG) OPT1=:EXTERN OPT2="unblock_deferrable_signals" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="unblock_deferrable_signals" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((%UNBLOCK-DEFERRABLE-SIGNALS #)) (ALIEN-FUNCALL %UNBLOCK-DEFERRABLE-SIGNALS WHERE OLD) (VALUES NIL))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; x-compiling (DEFINE-ALIEN-ROUTINE ("unblock_gc_signals" %UNBLOCK-GC-SIGNALS) ...) /entering WITH-ALIEN BINDINGS=((%UNBLOCK-GC-SIGNALS (FUNCTION VOID UNSIGNED-LONG UNSIGNED-LONG) :EXTERN "unblock_gc_signals")) /BINDING=(%UNBLOCK-GC-SIGNALS (FUNCTION VOID UNSIGNED-LONG UNSIGNED-LONG) :EXTERN "unblock_gc_signals") /SYMBOL=%UNBLOCK-GC-SIGNALS TYPE=(FUNCTION VOID UNSIGNED-LONG UNSIGNED-LONG) OPT1=:EXTERN OPT2="unblock_gc_signals" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="unblock_gc_signals" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((%UNBLOCK-GC-SIGNALS #)) (ALIEN-FUNCALL %UNBLOCK-GC-SIGNALS WHERE OLD) (VALUES NIL))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; x-compiling (DEFUN UNBLOCK-DEFERRABLE-SIGNALS ...) /entering WITH-ALIEN BINDINGS=((%UNBLOCK-DEFERRABLE-SIGNALS (FUNCTION VOID UNSIGNED-LONG UNSIGNED-LONG) :EXTERN "unblock_deferrable_signals")) /BINDING=(%UNBLOCK-DEFERRABLE-SIGNALS (FUNCTION VOID UNSIGNED-LONG UNSIGNED-LONG) :EXTERN "unblock_deferrable_signals") /SYMBOL=%UNBLOCK-DEFERRABLE-SIGNALS TYPE=(FUNCTION VOID UNSIGNED-LONG UNSIGNED-LONG) OPT1=:EXTERN OPT2="unblock_deferrable_signals" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="unblock_deferrable_signals" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((%UNBLOCK-DEFERRABLE-SIGNALS #)) (ALIEN-FUNCALL %UNBLOCK-DEFERRABLE-SIGNALS WHERE OLD) (VALUES NIL))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; x-compiling (DEFUN UNBLOCK-GC-SIGNALS ...) /entering WITH-ALIEN BINDINGS=((%UNBLOCK-GC-SIGNALS (FUNCTION VOID UNSIGNED-LONG UNSIGNED-LONG) :EXTERN "unblock_gc_signals")) /BINDING=(%UNBLOCK-GC-SIGNALS (FUNCTION VOID UNSIGNED-LONG UNSIGNED-LONG) :EXTERN "unblock_gc_signals") /SYMBOL=%UNBLOCK-GC-SIGNALS TYPE=(FUNCTION VOID UNSIGNED-LONG UNSIGNED-LONG) OPT1=:EXTERN OPT2="unblock_gc_signals" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="unblock_gc_signals" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((%UNBLOCK-GC-SIGNALS #)) (ALIEN-FUNCALL %UNBLOCK-GC-SIGNALS WHERE OLD) (VALUES NIL))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; x-compiling (DEFINE-ALIEN-ROUTINE ("install_handler" INSTALL-HANDLER) ...) /entering WITH-ALIEN BINDINGS=((INSTALL-HANDLER (FUNCTION UNSIGNED-LONG INT UNSIGNED-LONG BOOLEAN) :EXTERN "install_handler")) /BINDING=(INSTALL-HANDLER (FUNCTION UNSIGNED-LONG INT UNSIGNED-LONG BOOLEAN) :EXTERN "install_handler") /SYMBOL=INSTALL-HANDLER TYPE=(FUNCTION UNSIGNED-LONG INT UNSIGNED-LONG BOOLEAN) OPT1=:EXTERN OPT2="install_handler" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="install_handler" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((INSTALL-HANDLER #)) (VALUES (ALIEN-FUNCALL INSTALL-HANDLER SIGNAL HANDLER SYNCHRONOUS)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; x-compiling (DEFUN ENABLE-INTERRUPT ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-signal.lisp ; in: DEFUN ENABLE-INTERRUPT ; (THE (OR FUNCTION FIXNUM) (SB!KERNEL:MAKE-LISP-OBJ SB!UNIX::RESULT)) ; ; note: type assertion too complex to check: ; (VALUES (OR FUNCTION FIXNUM) &REST T). ; x-compiling (DEFUN DEFAULT-INTERRUPT ...) ; x-compiling (DEFUN IGNORE-INTERRUPT ...) ; x-compiling (DEFINE-SIGNAL-HANDLER SIGILL-HANDLER ...) /entering WITH-ALIEN BINDINGS=((CONTEXT (* OS-CONTEXT-T) CONTEXT)) /BINDING=(CONTEXT (* OS-CONTEXT-T) CONTEXT) /SYMBOL=CONTEXT TYPE=(* OS-CONTEXT-T) OPT1=CONTEXT OPT2=NIL /ALIEN-TYPE=# /ALLOCATION=:LOCAL INITIAL-VALUE=CONTEXT /:LOCAL case /VAR=#:VAR229 INITVAL=#:INITVAL230 INFO=# /revised BODY=((LET ((#:VAR229 #)) (LET (#) (SB!ALIEN-INTERNALS:NOTE-LOCAL-ALIEN-TYPE '# #:VAR229) (SYMBOL-MACROLET # # #)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning /entering WITH-ALIEN BINDINGS=((SB!VM::CONTEXT-PC-ADDR (FUNCTION (* UNSIGNED-INT) (* OS-CONTEXT-T)) :EXTERN "os_context_pc_addr")) /BINDING=(SB!VM::CONTEXT-PC-ADDR (FUNCTION (* UNSIGNED-INT) (* OS-CONTEXT-T)) :EXTERN "os_context_pc_addr") /SYMBOL=SB!VM::CONTEXT-PC-ADDR TYPE=(FUNCTION (* UNSIGNED-INT) (* OS-CONTEXT-T)) OPT1=:EXTERN OPT2="os_context_pc_addr" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="os_context_pc_addr" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((SB!VM::CONTEXT-PC-ADDR #)) (VALUES (ALIEN-FUNCALL SB!VM::CONTEXT-PC-ADDR SB!VM::CONTEXT)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-signal.lisp ; in: DEFINE-SIGNAL-HANDLER SIGILL-HANDLER ; (SB!UNIX::DEFINE-SIGNAL-HANDLER SB!UNIX::SIGILL-HANDLER "illegal instruction") ; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; --> BLOCK SB!SYS:WITH-INTERRUPTS LET* LOCALLY ERROR SB!ALIEN:WITH-ALIEN ; --> SYMBOL-MACROLET SYMBOL-MACROLET LET LET LET SYMBOL-MACROLET ; --> SB!SYS:SAP-INT SB!VM:CONTEXT-PC SB!UNIX::CONTEXT ; --> SB!ALIEN-INTERNALS:LOCAL-ALIEN SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; --> BLOCK SB!SYS:WITH-INTERRUPTS LET* LOCALLY ERROR SB!ALIEN:WITH-ALIEN ; --> SYMBOL-MACROLET SYMBOL-MACROLET LET LET LET SYMBOL-MACROLET ; --> SB!SYS:SAP-INT SB!VM:CONTEXT-PC BLOCK LET SB!VM::CONTEXT-PC-ADDR BLOCK ; --> SB!ALIEN:WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET SYMBOL-MACROLET ; --> VALUES PROG1 LET SB!ALIEN:ALIEN-FUNCALL ; --> SB!ALIEN-INTERNALS:INVOKE-WITH-SAVED-FP-AND-PC LAMBDA FUNCTION ; --> SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; x-compiling (DEFINE-SIGNAL-HANDLER SIGBUS-HANDLER ...) /entering WITH-ALIEN BINDINGS=((CONTEXT (* OS-CONTEXT-T) CONTEXT)) /BINDING=(CONTEXT (* OS-CONTEXT-T) CONTEXT) /SYMBOL=CONTEXT TYPE=(* OS-CONTEXT-T) OPT1=CONTEXT OPT2=NIL /ALIEN-TYPE=# /ALLOCATION=:LOCAL INITIAL-VALUE=CONTEXT /:LOCAL case /VAR=#:VAR242 INITVAL=#:INITVAL243 INFO=# /revised BODY=((LET ((#:VAR242 #)) (LET (#) (SB!ALIEN-INTERNALS:NOTE-LOCAL-ALIEN-TYPE '# #:VAR242) (SYMBOL-MACROLET # # #)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning /entering WITH-ALIEN BINDINGS=((SB!VM::CONTEXT-PC-ADDR (FUNCTION (* UNSIGNED-INT) (* OS-CONTEXT-T)) :EXTERN "os_context_pc_addr")) /BINDING=(SB!VM::CONTEXT-PC-ADDR (FUNCTION (* UNSIGNED-INT) (* OS-CONTEXT-T)) :EXTERN "os_context_pc_addr") /SYMBOL=SB!VM::CONTEXT-PC-ADDR TYPE=(FUNCTION (* UNSIGNED-INT) (* OS-CONTEXT-T)) OPT1=:EXTERN OPT2="os_context_pc_addr" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="os_context_pc_addr" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((SB!VM::CONTEXT-PC-ADDR #)) (VALUES (ALIEN-FUNCALL SB!VM::CONTEXT-PC-ADDR SB!VM::CONTEXT)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-signal.lisp ; in: DEFINE-SIGNAL-HANDLER SIGBUS-HANDLER ; (SB!UNIX::DEFINE-SIGNAL-HANDLER SB!UNIX::SIGBUS-HANDLER "bus error") ; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; --> BLOCK SB!SYS:WITH-INTERRUPTS LET* LOCALLY ERROR SB!ALIEN:WITH-ALIEN ; --> SYMBOL-MACROLET SYMBOL-MACROLET LET LET LET SYMBOL-MACROLET ; --> SB!SYS:SAP-INT SB!VM:CONTEXT-PC SB!UNIX::CONTEXT ; --> SB!ALIEN-INTERNALS:LOCAL-ALIEN SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; --> BLOCK SB!SYS:WITH-INTERRUPTS LET* LOCALLY ERROR SB!ALIEN:WITH-ALIEN ; --> SYMBOL-MACROLET SYMBOL-MACROLET LET LET LET SYMBOL-MACROLET ; --> SB!SYS:SAP-INT SB!VM:CONTEXT-PC BLOCK LET SB!VM::CONTEXT-PC-ADDR BLOCK ; --> SB!ALIEN:WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET SYMBOL-MACROLET ; --> VALUES PROG1 LET SB!ALIEN:ALIEN-FUNCALL ; --> SB!ALIEN-INTERNALS:INVOKE-WITH-SAVED-FP-AND-PC LAMBDA FUNCTION ; --> SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; x-compiling (DEFUN SIGINT-HANDLER ...) /entering WITH-ALIEN BINDINGS=((CONTEXT (* OS-CONTEXT-T) CONTEXT)) /BINDING=(CONTEXT (* OS-CONTEXT-T) CONTEXT) /SYMBOL=CONTEXT TYPE=(* OS-CONTEXT-T) OPT1=CONTEXT OPT2=NIL /ALIEN-TYPE=# /ALLOCATION=:LOCAL INITIAL-VALUE=CONTEXT /:LOCAL case /VAR=#:VAR253 INITVAL=#:INITVAL254 INFO=# /revised BODY=((LET ((#:VAR253 #)) (LET (#) (SB!ALIEN-INTERNALS:NOTE-LOCAL-ALIEN-TYPE '# #:VAR253) (SYMBOL-MACROLET # # #)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning /entering WITH-ALIEN BINDINGS=((SB!VM::CONTEXT-PC-ADDR (FUNCTION (* UNSIGNED-INT) (* OS-CONTEXT-T)) :EXTERN "os_context_pc_addr")) /BINDING=(SB!VM::CONTEXT-PC-ADDR (FUNCTION (* UNSIGNED-INT) (* OS-CONTEXT-T)) :EXTERN "os_context_pc_addr") /SYMBOL=SB!VM::CONTEXT-PC-ADDR TYPE=(FUNCTION (* UNSIGNED-INT) (* OS-CONTEXT-T)) OPT1=:EXTERN OPT2="os_context_pc_addr" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="os_context_pc_addr" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((SB!VM::CONTEXT-PC-ADDR #)) (VALUES (ALIEN-FUNCALL SB!VM::CONTEXT-PC-ADDR SB!VM::CONTEXT)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-signal.lisp ; in: DEFUN SIGINT-HANDLER ; (MAKE-CONDITION 'SB!SYS:INTERACTIVE-INTERRUPT :CONTEXT SB!UNIX::CONTEXT ; :ADDRESS (SB!SYS:SAP-INT (SB!VM:CONTEXT-PC SB!UNIX::CONTEXT))) ; --> SB!UNIX::CONTEXT SB!ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; (SB!VM:CONTEXT-PC SB!UNIX::CONTEXT) ; --> SB!UNIX::CONTEXT SB!ALIEN-INTERNALS:LOCAL-ALIEN ; --> SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; --> BLOCK LET SB!VM::CONTEXT-PC-ADDR BLOCK SB!ALIEN:WITH-ALIEN ; --> SYMBOL-MACROLET SYMBOL-MACROLET LET SYMBOL-MACROLET VALUES PROG1 LET ; --> SB!ALIEN:ALIEN-FUNCALL SB!ALIEN-INTERNALS:INVOKE-WITH-SAVED-FP-AND-PC ; --> LAMBDA FUNCTION SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; x-compiling (DEFUN SIGALRM-HANDLER ...) ; x-compiling (DEFUN SIGTERM-HANDLER ...) ; x-compiling (DEFUN SIGPIPE-HANDLER ...) ; x-compiling (DEFUN SIGCHLD-HANDLER ...) ; x-compiling (DEFUN SB!KERNEL:SIGNAL-COLD-INIT-OR-REINIT ...) ; x-compiling (DEFINE-ALIEN-ROUTINE ("siginfo_code" SIGINFO-CODE) ...) /entering WITH-ALIEN BINDINGS=((SIGINFO-CODE (FUNCTION INT SYSTEM-AREA-POINTER) :EXTERN "siginfo_code")) /BINDING=(SIGINFO-CODE (FUNCTION INT SYSTEM-AREA-POINTER) :EXTERN "siginfo_code") /SYMBOL=SIGINFO-CODE TYPE=(FUNCTION INT SYSTEM-AREA-POINTER) OPT1=:EXTERN OPT2="siginfo_code" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="siginfo_code" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((SIGINFO-CODE #)) (VALUES (ALIEN-FUNCALL SIGINFO-CODE INFO)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; x-compiling (DEFUN RECEIVE-PENDING-INTERRUPT ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-signal.lisp ; in: DEFUN INVOKE-INTERRUPTION ; (SB!THREAD::WITHOUT-THREAD-WAITING-FOR (:ALREADY-WITHOUT-INTERRUPTS T) ; (SB!SYS:ALLOW-WITH-INTERRUPTS ; (SB!UNIX::NLX-PROTECT (FUNCALL FUNCTION) ; (WHEN SB!UNIX::*UNBLOCK-DEFERRABLES-ON-ENABLING-INTERRUPTS-P* ; (SB!UNIX::UNBLOCK-DEFERRABLE-SIGNALS))))) ; --> LET* FLET IF PROGN UNWIND-PROTECT FLET BLOCK WHEN IF PROGN SETF LET* ; --> MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!THREAD::THREAD-WAITING-FOR) #:NEW69 #:THREAD3670) ; ; caught STYLE-WARNING: ; undefined function: (SETF SB!THREAD::THREAD-WAITING-FOR) ; (SB!SYS:WITHOUT-INTERRUPTS ; (LET ((SB!UNIX::*UNBLOCK-DEFERRABLES-ON-ENABLING-INTERRUPTS-P* T) ; (SB!DEBUG:*STACK-TOP-HINT* ; (OR SB!DEBUG:*STACK-TOP-HINT* 'SB!SYS:INVOKE-INTERRUPTION))) ; (SB!SYS:WITH-INTERRUPT-BINDINGS ; (SB!THREAD::WITHOUT-THREAD-WAITING-FOR (:ALREADY-WITHOUT-INTERRUPTS T) ; (SB!SYS:ALLOW-WITH-INTERRUPTS ; #))))) ; --> SB!INT:DX-FLET FLET IF UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:NEXT81 #:START82 #:COUNT83 #:G84) {C0771B1}> ; #:NEXT81 #:START82 #:COUNT83 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; (SB!THREAD::WITHOUT-THREAD-WAITING-FOR (:ALREADY-WITHOUT-INTERRUPTS T) ; (SB!SYS:ALLOW-WITH-INTERRUPTS ; (SB!UNIX::NLX-PROTECT (FUNCALL FUNCTION) ; (WHEN SB!UNIX::*UNBLOCK-DEFERRABLES-ON-ENABLING-INTERRUPTS-P* ; (SB!UNIX::UNBLOCK-DEFERRABLE-SIGNALS))))) ; --> LET* FLET IF PROGN UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:NEXT66 #:START67 #:COUNT68 #:G72) {C05ADC9}> ; #:NEXT66 #:START67 #:COUNT68 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; (SB!UNIX::NLX-PROTECT (FUNCALL FUNCTION) ; (WHEN SB!UNIX::*UNBLOCK-DEFERRABLES-ON-ENABLING-INTERRUPTS-P* ; (SB!UNIX::UNBLOCK-DEFERRABLE-SIGNALS))) ; --> LET SB!SYS:WITHOUT-INTERRUPTS SB!INT:DX-FLET FLET BLOCK MACROLET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:NEXT48 #:START49 #:COUNT50 #:G51) {C030991}> ; #:NEXT48 #:START49 #:COUNT50 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 18 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-signal.lisp ; in: ; DEFINE-ALIEN-ROUTINE ("unblock_deferrable_signals" %UNBLOCK-DEFERRABLE-SIGNALS) ; (SB!ALIEN:DEFINE-ALIEN-ROUTINE ; ("unblock_deferrable_signals" SB!UNIX::%UNBLOCK-DEFERRABLE-SIGNALS) ; SB!ALIEN:VOID (SB!UNIX::WHERE SB!ALIEN:UNSIGNED-LONG) ; (SB!UNIX::OLD SB!ALIEN:UNSIGNED-LONG)) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK SB!ALIEN:WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET ; --> SYMBOL-MACROLET ; ==> ; (SB!ALIEN:ALIEN-FUNCALL SB!UNIX::%UNBLOCK-DEFERRABLE-SIGNALS SB!UNIX::WHERE ; SB!UNIX::OLD) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFINE-ALIEN-ROUTINE ("killpg" UNIX-KILLPG) ; (SB!ALIEN:DEFINE-ALIEN-ROUTINE ("killpg" SB!UNIX:UNIX-KILLPG) SB!ALIEN:INT ; (SB!UNIX::PGRP SB!ALIEN:INT) (SIGNAL SB!ALIEN:INT)) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK SB!ALIEN:WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET ; --> SYMBOL-MACROLET VALUES PROG1 LET ; ==> ; (SB!ALIEN:ALIEN-FUNCALL SB!UNIX:UNIX-KILLPG SB!UNIX::PGRP SIGNAL) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFINE-ALIEN-ROUTINE ("kill" UNIX-KILL) ; (SB!ALIEN:DEFINE-ALIEN-ROUTINE ("kill" SB!UNIX:UNIX-KILL) SB!ALIEN:INT ; (SB!UNIX::PID SB!ALIEN:INT) (SIGNAL SB!ALIEN:INT)) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK SB!ALIEN:WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET ; --> SYMBOL-MACROLET VALUES PROG1 LET ; ==> ; (SB!ALIEN:ALIEN-FUNCALL SB!UNIX:UNIX-KILL SB!UNIX::PID SIGNAL) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; ; caught STYLE-WARNING: ; 8 more uses of undefined type COMPILER-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-signal.lisp ; in: DEFUN SIGTERM-HANDLER ; (SB!EXT:EXIT) ; ; caught STYLE-WARNING: ; undefined function: EXIT ; in: DEFUN SIGINT-HANDLER ; (SB!THREAD::FOREGROUND-THREAD) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD::FOREGROUND-THREAD ; in: DEFUN SIGCHLD-HANDLER ; (SB!IMPL::GET-PROCESSES-STATUS-CHANGES) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::GET-PROCESSES-STATUS-CHANGES ; in: DEFUN SIGINT-HANDLER ; (SB!THREAD:INTERRUPT-THREAD (SB!THREAD::FOREGROUND-THREAD) ; #'SB!UNIX::INTERRUPT-IT) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD:INTERRUPT-THREAD ; in: DEFUN ENABLE-INTERRUPT ; (SB!KERNEL:MAKE-LISP-OBJ SB!UNIX::RESULT) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL:MAKE-LISP-OBJ ; in: DEFUN SIGALRM-HANDLER ; (SB!IMPL::RUN-EXPIRED-TIMERS) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::RUN-EXPIRED-TIMERS ; in: DEFUN SIGPIPE-HANDLER ; (SB!THREAD::RUN-INTERRUPTION) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD::RUN-INTERRUPTION ; in: DEFUN SB!KERNEL:SIGNAL-COLD-INIT-OR-REINIT ; #'SB!VM:SIGFPE-HANDLER ; ; caught STYLE-WARNING: ; undefined function: SB!VM:SIGFPE-HANDLER ; in: DEFUN INVOKE-INTERRUPTION ; (SB!THREAD::WITHOUT-THREAD-WAITING-FOR (:ALREADY-WITHOUT-INTERRUPTS T) ; (SB!SYS:ALLOW-WITH-INTERRUPTS ; (SB!UNIX::NLX-PROTECT (FUNCALL FUNCTION) ; (WHEN SB!UNIX::*UNBLOCK-DEFERRABLES-ON-ENABLING-INTERRUPTS-P* ; (SB!UNIX::UNBLOCK-DEFERRABLE-SIGNALS))))) ; --> LET* PROGN ; ==> ; (SB!THREAD::THREAD-WAITING-FOR #:THREAD36) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD::THREAD-WAITING-FOR ; ; compilation unit finished ; Undefined types: ; CODE-DELETION-NOTE COMPILER-NOTE ; Undefined functions: ; (SETF SB!THREAD::THREAD-WAITING-FOR) EXIT SB!THREAD::FOREGROUND-THREAD SB!IMPL::GET-PROCESSES-STATUS-CHANGES SB!THREAD:INTERRUPT-THREAD SB!KERNEL:MAKE-LISP-OBJ SB!IMPL::RUN-EXPIRED-TIMERS SB!THREAD::RUN-INTERRUPTION SB!VM:SIGFPE-HANDLER SB!THREAD::THREAD-WAITING-FOR ; caught 18 STYLE-WARNING conditions ; printed 8 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/target-signal.lisp-obj-tmp written ; compilation finished in 0:00:00.199 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/symbol.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DECLAIM (MAYBE-INLINE GET ...)) ; x-compiling (DEFUN SYMBOL-VALUE ...) ; x-compiling (DEFINE-COMPILER-MACRO SYMBOL-VALUE ...) ; x-compiling (DEFUN BOUNDP ...) ; x-compiling (DEFUN SET ...) ; x-compiling (DEFUN %SET-SYMBOL-VALUE ...) ; x-compiling (DEFUN SYMBOL-GLOBAL-VALUE ...) ; x-compiling (DEFUN SET-SYMBOL-GLOBAL-VALUE ...) ; x-compiling (DECLAIM (INLINE %MAKUNBOUND)) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/symbol.lisp ; in: DECLAIM (INLINE %MAKUNBOUND) ; (DECLAIM (INLINE SB!IMPL::%MAKUNBOUND)) ; --> EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE SB!IMPL::%MAKUNBOUND)) ; ; caught STYLE-WARNING: ; Proclaiming SB!IMPL::%MAKUNBOUND to be INLINE, but 1 call to it was previously ; compiled. A declaration of NOTINLINE at the call site will eliminate this ; warning, as will proclaiming and defining the function before its first ; potential use. ; x-compiling (DEFUN %MAKUNBOUND ...) ; x-compiling (DEFUN MAKUNBOUND ...) ; x-compiling (DEFUN COMPUTE-SYMBOL-HASH ...) ; x-compiling (DEFUN ENSURE-SYMBOL-HASH ...) ; x-compiling (DEFUN SYMBOL-HASH ...) ; x-compiling (DEFUN SYMBOL-FUNCTION ...) ; x-compiling (DEFUN (SETF SYMBOL-FUNCTION) ...) ; x-compiling (DEFUN SYMBOL-INFO ...) ; x-compiling (DEFUN (SETF SYMBOL-INFO) ...) ; x-compiling (DEFUN UPDATE-SYMBOL-INFO ...) ; x-compiling (DEFUN SYMBOL-PLIST ...) ; x-compiling (DECLAIM (FTYPE # ...) ...) ; x-compiling (DEFUN %ENSURE-PLIST-HOLDER ...) ; x-compiling (DECLAIM (INLINE %COMPARE-AND-SWAP-SYMBOL-PLIST ...)) ; x-compiling (DEFUN %COMPARE-AND-SWAP-SYMBOL-PLIST ...) ; x-compiling (DEFUN %%COMPARE-AND-SWAP-SYMBOL-PLIST ...) ; x-compiling (DEFUN %SET-SYMBOL-PLIST ...) ; x-compiling (DEFUN %%SET-SYMBOL-PLIST ...) ; x-compiling (DEFUN SYMBOL-NAME ...) ; x-compiling (DEFUN SYMBOL-PACKAGE ...) ; x-compiling (DEFUN %SET-SYMBOL-PACKAGE ...) ; x-compiling (DEFUN MAKE-SYMBOL ...) ; x-compiling (DEFUN GET ...) ; x-compiling (DEFUN GET3 ...) ; x-compiling (DEFUN %PUT ...) ; x-compiling (DEFUN REMPROP ...) ; x-compiling (DEFUN GETF ...) ; x-compiling (DEFUN %PUTF ...) ; x-compiling (DEFUN GET-PROPERTIES ...) ; x-compiling (DEFUN COPY-SYMBOL ...) ; x-compiling (DEFUN KEYWORDP ...) ; x-compiling (DEFUN %MAKE-SYMBOL-NAME ...) ; x-compiling (DEFVAR *GENSYM-COUNTER* ...) ; x-compiling (DECLAIM (TYPE UNSIGNED-BYTE ...)) ; x-compiling (DEFUN GENSYM ...) ; x-compiling (DEFVAR *GENTEMP-COUNTER* ...) ; x-compiling (DECLAIM (TYPE UNSIGNED-BYTE ...)) ; x-compiling (DEFUN GENTEMP ...) ; x-compiling (DEFUN ABOUT-TO-MODIFY-SYMBOL-VALUE ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/symbol.lisp ; in: DEFUN ABOUT-TO-MODIFY-SYMBOL-VALUE ; (SB!KERNEL::%%TYPEP SB!IMPL::NEW-VALUE TYPE NIL) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%%TYPEP ; in: DEFUN %MAKE-SYMBOL-NAME ; (SB!IMPL::%OUTPUT-INTEGER-IN-BASE SB!IMPL::COUNTER 10 SB!IMPL::S) ; ; caught STYLE-WARNING: ; undefined function: %OUTPUT-INTEGER-IN-BASE ; in: DEFUN (SETF SYMBOL-FUNCTION) ; (SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR (:SYMBOL SYMBOL ; "setting the symbol-function of ~A") ; (SETF (SB!KERNEL:%COERCE-NAME-TO-FUN SYMBOL) SB!IMPL::NEW-VALUE)) ; --> PROGN LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:NEXT44 #:START45 #:COUNT46 #:G47) {DD44951}> ; #:NEXT44 #:START45 #:COUNT46 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN MAKUNBOUND ; (SB!INT:INFO :VARIABLE :ALWAYS-BOUND SYMBOL) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:VALUE25 #:FOUNDP26 #:G25) {DC09911}> ; #:VALUE25 #:FOUNDP26 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; (SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR (:SYMBOL SYMBOL ; "unbinding the symbol ~A") ; (WHEN (EQ (SB!INT:INFO :VARIABLE :ALWAYS-BOUND SYMBOL) :ALWAYS-BOUND) ; (ERROR "Can't make ~A variable unbound: ~S" 'SB!EXT:ALWAYS-BOUND SYMBOL)) ; (SB!INT:ABOUT-TO-MODIFY-SYMBOL-VALUE SYMBOL 'MAKUNBOUND) ; (SB!IMPL::%MAKUNBOUND SYMBOL) ; SYMBOL) ; --> PROGN LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:NEXT19 #:START20 #:COUNT21 #:G22) {DBF8351}> ; #:NEXT19 #:START20 #:COUNT21 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 20 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/symbol.lisp ; in: DEFINE-COMPILER-MACRO SYMBOL-VALUE ; (SB!INT:CONSTANT-FORM-VALUE SYMBOL SB!IMPL::ENV) ; ; caught STYLE-WARNING: ; undefined function: CONSTANT-FORM-VALUE ; in: DEFUN ABOUT-TO-MODIFY-SYMBOL-VALUE ; (SB!INT:INFO :VARIABLE :TYPE SYMBOL) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; (SB!C::GET-INFO-VALUE SYMBOL 16) ; ; caught STYLE-WARNING: ; undefined function: SB!C::GET-INFO-VALUE ; in: DEFUN MAKUNBOUND ; (SB!INT:INFO :VARIABLE :ALWAYS-BOUND SYMBOL) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; (SB!C::GET-INFO-VALUE SYMBOL 14) ; ; caught STYLE-WARNING: ; undefined function: SB!C::GET-INFO-VALUE ; in: DEFUN ABOUT-TO-MODIFY-SYMBOL-VALUE ; (SB!INT:INFO :VARIABLE :TYPE SYMBOL) ; ; caught STYLE-WARNING: ; undefined function: INFO ; in: DEFUN MAKUNBOUND ; (SB!INT:INFO :VARIABLE :ALWAYS-BOUND SYMBOL) ; ; caught STYLE-WARNING: ; undefined function: INFO ; in: DEFUN %MAKE-SYMBOL-NAME ; (DEFUN SB!IMPL::%MAKE-SYMBOL-NAME (SB!IMPL::PREFIX SB!IMPL::COUNTER) ; (DECLARE (STRING SB!IMPL::PREFIX)) ; (IF (TYPEP SB!IMPL::COUNTER '(AND FIXNUM UNSIGNED-BYTE)) ; (LET ((SB!IMPL::S "")) ; (DECLARE (SIMPLE-STRING SB!IMPL::S)) ; (LABELS (#) ; (SB!IMPL::RECURSE 1 SB!IMPL::COUNTER))) ; (SB!KERNEL:WITH-SIMPLE-OUTPUT-TO-STRING (SB!IMPL::S) ; (WRITE-STRING SB!IMPL::PREFIX SB!IMPL::S) ; (SB!IMPL::%OUTPUT-INTEGER-IN-BASE SB!IMPL::COUNTER 10 SB!IMPL::S)))) ; --> PROGN ; ==> ; (SB!IMPL::%DEFUN 'SB!IMPL::%MAKE-SYMBOL-NAME ; (SB!INT:NAMED-LAMBDA SB!IMPL::%MAKE-SYMBOL-NAME ; (SB!IMPL::PREFIX SB!IMPL::COUNTER) ; (DECLARE (STRING SB!IMPL::PREFIX)) ; (BLOCK SB!IMPL::%MAKE-SYMBOL-NAME ; (IF (TYPEP SB!IMPL::COUNTER '#) ; (LET # ; # ; #) ; (SB!KERNEL:WITH-SIMPLE-OUTPUT-TO-STRING # ; # ; #)))) ; NIL 'NIL (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined type: SB!C::STRING-OUTPUT-STREAM ; in: DEFUN ABOUT-TO-MODIFY-SYMBOL-VALUE ; (SB!KERNEL:TYPE-SPECIFIER TYPE) ; ; caught STYLE-WARNING: ; undefined function: TYPE-SPECIFIER ; ; compilation unit finished ; Undefined types: ; CODE-DELETION-NOTE SB!C::STRING-OUTPUT-STREAM ; Undefined functions: ; SB!KERNEL::%%TYPEP %OUTPUT-INTEGER-IN-BASE CONSTANT-FORM-VALUE SB!C::GET-INFO-VALUE INFO TYPE-SPECIFIER ; caught 14 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/symbol.lisp-obj-tmp written ; compilation finished in 0:00:00.170 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/bignum.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!BIGNUM") ; x-compiling (DEFCONSTANT DIGIT-SIZE ...) ; x-compiling (DEFCONSTANT MAXIMUM-BIGNUM-LENGTH ...) ; x-compiling (DEFCONSTANT ALL-ONES-DIGIT ...) ; x-compiling (DEFUN %ALLOCATE-BIGNUM ...) ; x-compiling (DEFUN %BIGNUM-LENGTH ...) ; x-compiling (DEFUN %BIGNUM-REF ...) ; x-compiling (DEFUN %BIGNUM-SET ...) ; x-compiling (DEFUN %DIGIT-0-OR-PLUSP ...) ; x-compiling (DECLAIM (INLINE %BIGNUM-0-OR-PLUSP)) ; x-compiling (DEFUN %BIGNUM-0-OR-PLUSP ...) ; x-compiling (DEFUN %ADD-WITH-CARRY ...) ; x-compiling (DEFUN %SUBTRACT-WITH-BORROW ...) ; x-compiling (DEFUN %MULTIPLY ...) ; x-compiling (DEFUN %MULTIPLY-AND-ADD ...) ; x-compiling (DEFUN %LOGNOT ...) ; x-compiling (DECLAIM (INLINE %LOGAND ...)) ; x-compiling (DEFUN %LOGAND ...) ; x-compiling (DEFUN %LOGIOR ...) ; x-compiling (DEFUN %LOGXOR ...) ; x-compiling (DEFUN %FIXNUM-TO-DIGIT ...) ; x-compiling (DEFUN %BIGFLOOR ...) ; x-compiling (DEFUN %FIXNUM-DIGIT-WITH-CORRECT-SIGN ...) ; x-compiling (DEFUN %ASHR ...) ; x-compiling (DEFUN %ASHL ...) ; x-compiling (DEFUN %DIGIT-LOGICAL-SHIFT-RIGHT ...) ; x-compiling (DEFUN %BIGNUM-SET-LENGTH ...) ; x-compiling (DECLAIM (INLINE %SIGN-DIGIT)) ; x-compiling (DEFUN %SIGN-DIGIT ...) ; x-compiling (DECLAIM (INLINE %DIGIT-COMPARE ...)) ; x-compiling (DEFUN %DIGIT-COMPARE ...) ; x-compiling (DEFUN %DIGIT-GREATER ...) ; x-compiling (DECLAIM (OPTIMIZE # ...)) ; x-compiling (DEFUN ADD-BIGNUMS ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/bignum.lisp ; in: DEFUN ADD-BIGNUMS ; (SB!BIGNUM::FINISH-ADD SB!BIGNUM::A SB!BIGNUM::RES SB!BIGNUM::CARRY ; (SB!BIGNUM::%SIGN-DIGIT SB!BIGNUM::B SB!BIGNUM::LEN-B) SB!BIGNUM::LEN-B ; SB!BIGNUM::LEN-A) ; ; note: doing unsigned word to integer coercion (cost 20) ; x-compiling (DEFUN FINISH-ADD ...) ; x-compiling (DEFUN SUBTRACT-BIGNUM ...) ; x-compiling (DEFUN SUBTRACT-BIGNUM-BUFFERS-WITH-LEN ...) ; x-compiling (DEFUN SUBTRACT-BIGNUM-BUFFERS ...) ; x-compiling (DEFUN MULTIPLY-BIGNUMS ...) ; x-compiling (DEFUN MULTIPLY-BIGNUM-AND-FIXNUM ...) ; x-compiling (DEFUN MULTIPLY-FIXNUMS ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/bignum.lisp ; in: DEFUN MULTIPLY-FIXNUMS ; (DEFUN SB!BIGNUM:MULTIPLY-FIXNUMS (SB!BIGNUM::A SB!BIGNUM::B) ; (DECLARE (FIXNUM SB!BIGNUM::A SB!BIGNUM::B)) ; (LET* ((SB!BIGNUM::A-MINUSP (MINUSP SB!BIGNUM::A)) ; (SB!BIGNUM::B-MINUSP (MINUSP SB!BIGNUM::B))) ; (MULTIPLE-VALUE-BIND (SB!BIGNUM::HIGH SB!BIGNUM::LOW) ; (SB!BIGNUM:%MULTIPLY ; (IF SB!BIGNUM::A-MINUSP ; # ; SB!BIGNUM::A) ; (IF SB!BIGNUM::B-MINUSP ; # ; SB!BIGNUM::B)) ; (DECLARE ; (TYPE SB!BIGNUM:BIGNUM-ELEMENT-TYPE SB!BIGNUM::HIGH SB!BIGNUM::LOW)) ; (IF (AND # #) ; (LET # ; #) ; (LET # ; # ; # ; # ; #))))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; ==> ; #'(SB!INT:NAMED-LAMBDA SB!BIGNUM:MULTIPLY-FIXNUMS ; (SB!BIGNUM::A SB!BIGNUM::B) ; (DECLARE (FIXNUM SB!BIGNUM::A SB!BIGNUM::B)) ; (BLOCK SB!BIGNUM:MULTIPLY-FIXNUMS ; (LET* ((SB!BIGNUM::A-MINUSP #) (SB!BIGNUM::B-MINUSP #)) ; (MULTIPLE-VALUE-BIND (SB!BIGNUM::HIGH SB!BIGNUM::LOW) ; (SB!BIGNUM:%MULTIPLY # #) ; (DECLARE #) ; (IF # ; # ; #))))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; x-compiling (SB-XC:DEFMACRO GCD-ASSERT ...) ; x-compiling (SB-XC:DEFMACRO MODULARLY ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN BIGNUM-FACTORS-OF-TWO ...) ; x-compiling (DECLAIM (INLINE MULTIPLY-BIGNUM-BUFFER-AND-SMALLNUM-TO-BUFFER)) ; x-compiling (DEFUN MULTIPLY-BIGNUM-BUFFER-AND-SMALLNUM-TO-BUFFER ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/bignum.lisp ; in: DEFUN MULTIPLY-BIGNUM-BUFFER-AND-SMALLNUM-TO-BUFFER ; (MINUSP SB!BIGNUM::SMALLNUM) ; ==> ; (< SB!BIGNUM::SMALLNUM 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (- SB!BIGNUM::SMALLNUM) ; ==> ; (SB!KERNEL:%NEGATE (THE NUMBER SB!BIGNUM::SMALLNUM)) ; ; note: unable to ; Eliminate %negate/%negate of rationals ; due to type uncertainty: ; The first argument is a REAL, not a RATIONAL. ; (MINUSP SB!BIGNUM::SMALLNUM) ; ==> ; (< SB!BIGNUM::SMALLNUM 0) ; ; 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. ; (- SB!BIGNUM::SMALLNUM) ; ==> ; (SB!KERNEL:%NEGATE (THE NUMBER SB!BIGNUM::SMALLNUM)) ; ; note: forced to do GENERIC-NEGATE (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a REAL, not a FIXNUM. ; The result is a (VALUES (UNSIGNED-BYTE 32) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline (signed-byte 32) arithmetic (cost 2) because: ; The first argument is a REAL, not a (SIGNED-BYTE 32). ; The result is a (VALUES (UNSIGNED-BYTE 32) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 32) ; &REST T). ; etc. ; x-compiling (DECLAIM (INLINE BMOD)) ; x-compiling (DEFUN BMOD ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/bignum.lisp ; in: DEFUN BMOD ; (DEFUN SB!BIGNUM::BMOD (SB!BIGNUM::U SB!BIGNUM::V) ; (LET ((SB!BIGNUM::UD (SB!BIGNUM:%BIGNUM-REF SB!BIGNUM::U 0)) ; (SB!BIGNUM::VD (SB!BIGNUM:%BIGNUM-REF SB!BIGNUM::V 0)) ; (SB!BIGNUM::UMASK 0) ; (SB!BIGNUM::IMASK 1) ; (SB!BIGNUM::M 0)) ; (DECLARE ; (TYPE (UNSIGNED-BYTE 32) SB!BIGNUM::UD SB!BIGNUM::VD SB!BIGNUM::UMASK ; SB!BIGNUM::IMASK SB!BIGNUM::M)) ; (DOTIMES (SB!BIGNUM::I SB!BIGNUM::DIGIT-SIZE) ; (SETF SB!BIGNUM::UMASK #) ; (WHEN (LOGTEST SB!BIGNUM::UD SB!BIGNUM::UMASK) (SETF #) (SETF #)) ; (SETF SB!BIGNUM::IMASK #) ; (SETF SB!BIGNUM::VD #)) ; SB!BIGNUM::M)) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; ==> ; #'(SB!INT:NAMED-LAMBDA SB!BIGNUM::BMOD ; (SB!BIGNUM::U SB!BIGNUM::V) ; (BLOCK SB!BIGNUM::BMOD ; (LET ((SB!BIGNUM::UD #) ; (SB!BIGNUM::VD #) ; (SB!BIGNUM::UMASK 0) ; (SB!BIGNUM::IMASK 1) ; (SB!BIGNUM::M 0)) ; (DECLARE ; (TYPE # SB!BIGNUM::UD SB!BIGNUM::VD SB!BIGNUM::UMASK ; SB!BIGNUM::IMASK SB!BIGNUM::M)) ; (DOTIMES (SB!BIGNUM::I SB!BIGNUM::DIGIT-SIZE) ; (SETF #) ; (WHEN # # #) ; (SETF #) ; (SETF #)) ; SB!BIGNUM::M))) ; ; note: doing unsigned word to integer coercion (cost 20) from M to "" ; x-compiling (DEFUN DMOD ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/bignum.lisp ; in: DEFUN DMOD ; (+ (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::V SB!BIGNUM::V-LEN) ; SB!BIGNUM::DIGIT-SIZE) ; ; 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. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (> (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::U SB!BIGNUM::U-LEN) ; (+ (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::V SB!BIGNUM::V-LEN) ; SB!BIGNUM::DIGIT-SIZE)) ; ; 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. ; (- (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::U SB!BIGNUM::U-LEN) ; (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::V SB!BIGNUM::V-LEN)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second 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 SINGLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second 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). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a REAL. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; (+ 1 ; (- (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::U SB!BIGNUM::U-LEN) ; (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::V ; SB!BIGNUM::V-LEN))) ; ; 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. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (+ (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::V SB!BIGNUM::V-LEN) ; SB!BIGNUM::DIGIT-SIZE) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (> (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::U SB!BIGNUM::U-LEN) ; (+ (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::V SB!BIGNUM::V-LEN) ; SB!BIGNUM::DIGIT-SIZE)) ; ; 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. ; (- (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::U SB!BIGNUM::U-LEN) ; (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::V SB!BIGNUM::V-LEN)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; (+ 1 ; (- (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::U SB!BIGNUM::U-LEN) ; (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::V ; SB!BIGNUM::V-LEN))) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; etc. ; (ASH 1 SB!BIGNUM::D) ; ; note: forced to do full call ; unable to do inline ASH (cost 3) because: ; The result is a (VALUES (INTEGER 1 9223372036854775808) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST ; T). ; unable to do inline ASH (cost 3) because: ; The result is a (VALUES (INTEGER 1 9223372036854775808) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST ; T). ; etc. ; (1- (ASH 1 SB!BIGNUM::D)) ; ==> ; (- (ASH 1 SB!BIGNUM::D) 1) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER 1 9223372036854775808), not a FIXNUM. ; The result is a (VALUES (UNSIGNED-BYTE 32) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER 1 9223372036854775808), not a FIXNUM. ; The result is a (VALUES (UNSIGNED-BYTE 32) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST T). ; etc. ; x-compiling (DEFCONSTANT LOWER-ONES-DIGIT ...) ; x-compiling (DEFUN REDUCED-RATIO-MOD ...) ; x-compiling (DEFUN COPY-BIGNUM ...) ; x-compiling (DECLAIM (INLINE MAKE-SMALL-BIGNUM)) ; x-compiling (DEFUN MAKE-SMALL-BIGNUM ...) ; x-compiling (DEFPARAMETER *ACCELERATED-GCD-CUTOFF* ...) ; x-compiling (DEFUN BIGNUM-GCD ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/bignum.lisp ; in: DEFUN BIGNUM-GCD ; (ZEROP SB!BIGNUM::V1) ; ==> ; (= SB!BIGNUM::V1 0) ; ; 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 ; 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. ; (> SB!BIGNUM::U1 SB!BIGNUM::V1) ; ; 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. ; (MOD SB!BIGNUM::V1 SB!BIGNUM::U1) ; --> LET REM NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; (TRUNCATE NUMBER SB!C::DIVISOR) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a (OR DOUBLE-FLOAT SINGLE-FLOAT INTEGER). ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; The second argument is a REAL, not a INTEGER. ; --> LET IF AND IF NOT IF ZEROP ; ==> ; (= REM 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; --> LET IF AND IF AND THE IF MINUSP ; ==> ; (< SB!C::DIVISOR 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> LET IF AND IF AND THE IF PLUSP ; ==> ; (> NUMBER 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> LET IF AND IF AND THE IF MINUSP ; ==> ; (< NUMBER 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (+ 8 (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::V SB!BIGNUM::V-LEN)) ; ; 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. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (> (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::U SB!BIGNUM::U-LEN) ; (+ 8 ; (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::V ; SB!BIGNUM::V-LEN))) ; ; 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. ; (> SB!BIGNUM::U1 SB!BIGNUM::V1) ; ; 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. ; (MOD SB!BIGNUM::V1 SB!BIGNUM::U1) ; --> LET IF AND IF AND THE IF MINUSP ; ==> ; (< SB!C::DIVISOR 0) ; ; 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. ; ==> ; (< NUMBER 0) ; ; 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. ; --> LET IF AND IF AND THE IF PLUSP ; ==> ; (> NUMBER 0) ; ; 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. ; --> LET IF ; ==> ; (+ REM SB!C::DIVISOR) ; ; 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. ; (< SB!BIGNUM::U-LEN SB!BIGNUM::*ACCELERATED-GCD-CUTOFF*) ; ; 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. ; (+ 8 (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::V SB!BIGNUM::V-LEN)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (> (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::U SB!BIGNUM::U-LEN) ; (+ 8 ; (SB!BIGNUM::BIGNUM-BUFFER-INTEGER-LENGTH SB!BIGNUM::V ; SB!BIGNUM::V-LEN))) ; ; 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. ; (ASH ; (SB!BIGNUM::BIGNUM-MOD-GCD SB!BIGNUM::U1 ; (IF (SB!INT:FIXNUMP SB!BIGNUM::N) ; (SB!BIGNUM:MAKE-SMALL-BIGNUM SB!BIGNUM::N) ; SB!BIGNUM::N)) ; SB!BIGNUM::FACTORS-OF-TWO) ; ; note: forced to do full call ; unable to do inline ASH (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; x-compiling (DEFUN BIGNUM-MOD-GCD ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/bignum.lisp ; in: DEFUN BIGNUM-MOD-GCD ; (MOD SB!BIGNUM::A SB!BIGNUM::B) ; --> LET IF AND IF NOT IF ZEROP ; ==> ; (= REM 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; --> LET IF AND IF AND THE IF MINUSP ; ==> ; (< SB!C::DIVISOR 0) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline (unsigned-byte 32) comparison (cost 5) because: ; The first argument is a BIGNUM, not a (UNSIGNED-BYTE 32). ; unable to do inline (signed-byte 32) comparison (cost 5) because: ; The first argument is a BIGNUM, not a (SIGNED-BYTE 32). ; ==> ; (< NUMBER 0) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline (unsigned-byte 32) comparison (cost 5) because: ; The first argument is a BIGNUM, not a (UNSIGNED-BYTE 32). ; unable to do inline (signed-byte 32) comparison (cost 5) because: ; The first argument is a BIGNUM, not a (SIGNED-BYTE 32). ; --> LET IF AND IF AND THE IF PLUSP ; ==> ; (> NUMBER 0) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline (unsigned-byte 32) comparison (cost 5) because: ; The first argument is a BIGNUM, not a (UNSIGNED-BYTE 32). ; unable to do inline (signed-byte 32) comparison (cost 5) because: ; The first argument is a BIGNUM, not a (SIGNED-BYTE 32). ; --> LET IF ; ==> ; (+ REM SB!C::DIVISOR) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline (signed-byte 32) arithmetic (cost 5) because: ; The first argument is a REAL, not a (SIGNED-BYTE 32). ; The second argument is a BIGNUM, not a (SIGNED-BYTE 32). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 32) ; &REST T). ; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because: ; The first argument is a REAL, not a (UNSIGNED-BYTE 32). ; The second argument is a BIGNUM, not a (UNSIGNED-BYTE 32). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32) ; &REST T). ; x-compiling (DEFUN BIGNUM-BINARY-GCD ...) ; x-compiling (DEFUN BIGNUM-GCD-ORDER-AND-SUBTRACT ...) ; x-compiling (DEFUN MAKE-GCD-BIGNUM-ODD ...) ; x-compiling (DEFUN NEGATE-BIGNUM ...) ; x-compiling (DEFUN NEGATE-BIGNUM-BUFFER-IN-PLACE ...) ; x-compiling (DEFUN NEGATE-BIGNUM-IN-PLACE ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/bignum.lisp ; in: DEFUN NEGATE-BIGNUM-IN-PLACE ; (DEFUN SB!BIGNUM::NEGATE-BIGNUM-IN-PLACE (BIGNUM) ; (DECLARE (INLINE SB!BIGNUM::NEGATE-BIGNUM-BUFFER-IN-PLACE)) ; (SB!BIGNUM::NEGATE-BIGNUM-BUFFER-IN-PLACE BIGNUM ; (SB!BIGNUM:%BIGNUM-LENGTH BIGNUM))) ; --> PROGN ; ==> ; (SB!IMPL::%DEFUN 'SB!BIGNUM::NEGATE-BIGNUM-IN-PLACE ; (SB!INT:NAMED-LAMBDA SB!BIGNUM::NEGATE-BIGNUM-IN-PLACE ; (BIGNUM) ; (DECLARE (INLINE SB!BIGNUM::NEGATE-BIGNUM-BUFFER-IN-PLACE)) ; (BLOCK SB!BIGNUM::NEGATE-BIGNUM-IN-PLACE ; (SB!BIGNUM::NEGATE-BIGNUM-BUFFER-IN-PLACE BIGNUM ; (SB!BIGNUM:%BIGNUM-LENGTH BIGNUM)))) ; NIL 'NIL (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; Call to SB!BIGNUM::NEGATE-BIGNUM-BUFFER-IN-PLACE could not be inlined because ; its source code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE ; proclamation must be in effect to save function definitions for inlining. ; x-compiling (DEFUN BIGNUM-ABS-BUFFER ...) ; x-compiling (DEFUN BIGNUM-ASHIFT-RIGHT ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/bignum.lisp ; in: DEFUN BIGNUM-ASHIFT-RIGHT ; (ERROR "bignum overflow: can't shift right by ~S" COUNT) ; ==> ; "bignum overflow: can't shift right by ~S" ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; x-compiling (DEFUN BIGNUM-ASHIFT-RIGHT-DIGITS ...) ; x-compiling (DEFUN BIGNUM-BUFFER-ASHIFT-RIGHT ...) ; x-compiling (DEFUN BIGNUM-ASHIFT-LEFT ...) ; x-compiling (DEFUN BIGNUM-ASHIFT-LEFT-DIGITS ...) ; x-compiling (DEFUN BIGNUM-ASHIFT-LEFT-UNALIGNED ...) ; x-compiling (DEFUN BIGNUM-PLUS-P ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN BIGNUM-COMPARE ...) ; x-compiling (DEFUN SINGLE-FLOAT-FROM-BITS ...) ; x-compiling (DEFUN DOUBLE-FLOAT-FROM-BITS ...) ; x-compiling (DEFUN BIGNUM-TO-FLOAT ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/bignum.lisp ; in: DEFUN BIGNUM-TO-FLOAT ; (> EXP MAX) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (INTEGER-LENGTH SB!BIGNUM::ROUNDED) ; ; note: forced to do full call ; unable to do inline (unsigned-byte 32) integer-length (cost 26) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32). ; (+ EXP SB!BIGNUM::BIAS) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 32) arithmetic (cost 5) because: ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32) ; &REST T). ; etc. ; (> EXP MAX) ; ; 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. ; x-compiling (DEFUN BIGNUM-BUFFER-INTEGER-LENGTH ...) ; x-compiling (DEFUN BIGNUM-INTEGER-LENGTH ...) ; x-compiling (DEFUN BIGNUM-LOGBITP ...) ; x-compiling (DEFUN BIGNUM-LOGCOUNT ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/bignum.lisp ; in: DEFUN BIGNUM-LOGCOUNT ; (- (* LENGTH SB!BIGNUM::DIGIT-SIZE) SB!BIGNUM::RESULT) ; ; note: doing signed word to integer coercion (cost 20) to "", for: ; the first result of inline (signed-byte 32) arithmetic ; x-compiling (DEFUN BIGNUM-LOGICAL-NOT ...) ; x-compiling (DEFUN BIGNUM-LOGICAL-AND ...) ; x-compiling (DEFUN LOGAND-SHORTER-POSITIVE ...) ; x-compiling (DEFUN LOGAND-SHORTER-NEGATIVE ...) ; x-compiling (DEFUN BIGNUM-LOGICAL-IOR ...) ; x-compiling (DEFUN LOGIOR-SHORTER-POSITIVE ...) ; x-compiling (DEFUN LOGIOR-SHORTER-NEGATIVE ...) ; x-compiling (DEFUN BIGNUM-LOGICAL-XOR ...) ; x-compiling (DEFUN BIGNUM-LOGICAL-XOR-AUX ...) ; x-compiling (DEFUN BIGNUM-TRUNCATE ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/bignum.lisp ; in: DEFUN BIGNUM-TRUNCATE ; (VALUES ; (SB!BIGNUM::SHIFT-RIGHT-UNALIGNED SB!BIGNUM::X 0 SB!BIGNUM::N-BITS ; SB!BIGNUM::LEN-X ; ((= SB!BIGNUM::J SB!BIGNUM::RES-LEN-1) (SETF # #) SB!BIGNUM::RES) ; SB!BIGNUM::RES) ; (LOGAND (SB!BIGNUM:%BIGNUM-REF SB!BIGNUM::X 0) (1- SB!BIGNUM::Y))) ; ; note: doing unsigned word to integer coercion (cost 20) ; x-compiling (DECLAIM (MAYBE-INLINE %NORMALIZE-BIGNUM-BUFFER)) ; x-compiling (DEFUN %NORMALIZE-BIGNUM-BUFFER ...) ; x-compiling (DEFUN %NORMALIZE-BIGNUM ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/bignum.lisp ; in: DEFUN %NORMALIZE-BIGNUM ; (SB!BIGNUM:%FIXNUM-DIGIT-WITH-CORRECT-SIGN SB!BIGNUM::DIGIT) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of SIGNIFY-DIGIT ; x-compiling (DEFUN %MOSTLY-NORMALIZE-BIGNUM ...) ; x-compiling (DEFUN SXHASH-BIGNUM ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/bignum.lisp ; in: DEFUN ADD-BIGNUMS ; (MULTIPLE-VALUE-BIND ; (SB!BIGNUM::A SB!BIGNUM::LEN-A SB!BIGNUM::B SB!BIGNUM::LEN-B) ; (IF (> SB!BIGNUM::LEN-A SB!BIGNUM::LEN-B) ; (VALUES SB!BIGNUM::A SB!BIGNUM::LEN-A SB!BIGNUM::B SB!BIGNUM::LEN-B) ; (VALUES SB!BIGNUM::B SB!BIGNUM::LEN-B SB!BIGNUM::A SB!BIGNUM::LEN-A)) ; (DECLARE (TYPE SB!BIGNUM:BIGNUM-TYPE SB!BIGNUM::A SB!BIGNUM::B) ; (TYPE SB!BIGNUM:BIGNUM-LENGTH SB!BIGNUM::LEN-A SB!BIGNUM::LEN-B)) ; (LET* ((SB!BIGNUM::LEN-RES (1+ SB!BIGNUM::LEN-A)) ; (SB!BIGNUM::RES (SB!BIGNUM:%ALLOCATE-BIGNUM SB!BIGNUM::LEN-RES)) ; (SB!BIGNUM::CARRY 0)) ; (DECLARE (TYPE SB!BIGNUM:BIGNUM-LENGTH SB!BIGNUM::LEN-RES) ; (TYPE SB!BIGNUM:BIGNUM-TYPE SB!BIGNUM::RES) ; (TYPE (MOD 2) SB!BIGNUM::CARRY)) ; (DOTIMES (SB!BIGNUM::I SB!BIGNUM::LEN-B) ; (DECLARE (TYPE SB!BIGNUM:BIGNUM-INDEX SB!BIGNUM::I)) ; (MULTIPLE-VALUE-BIND (SB!BIGNUM::V SB!BIGNUM::K) ; (SB!BIGNUM:%ADD-WITH-CARRY # # SB!BIGNUM::CARRY) ; (DECLARE # ; #) ; (SETF #) ; (SETF #))) ; (IF (/= SB!BIGNUM::LEN-A SB!BIGNUM::LEN-B) ; (SB!BIGNUM::FINISH-ADD SB!BIGNUM::A SB!BIGNUM::RES SB!BIGNUM::CARRY ; (SB!BIGNUM::%SIGN-DIGIT SB!BIGNUM::B SB!BIGNUM::LEN-B) ; SB!BIGNUM::LEN-B SB!BIGNUM::LEN-A) ; (SETF # #)) ; (SB!BIGNUM::%NORMALIZE-BIGNUM SB!BIGNUM::RES SB!BIGNUM::LEN-RES))) ; --> MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!BIGNUM::A SB!BIGNUM::LEN-A SB!BIGNUM::B SB!BIGNUM::LEN-B ; #:G106) ; {C013A71}> ; SB!BIGNUM::A SB!BIGNUM::LEN-A SB!BIGNUM::B SB!BIGNUM::LEN-B NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; (MULTIPLE-VALUE-BIND (SB!BIGNUM::V SB!BIGNUM::K) ; (SB!BIGNUM:%ADD-WITH-CARRY ; (SB!BIGNUM:%BIGNUM-REF SB!BIGNUM::A SB!BIGNUM::I) ; (SB!BIGNUM:%BIGNUM-REF SB!BIGNUM::B SB!BIGNUM::I) SB!BIGNUM::CARRY) ; (DECLARE (TYPE SB!BIGNUM:BIGNUM-ELEMENT-TYPE SB!BIGNUM::V) ; (TYPE (MOD 2) SB!BIGNUM::K)) ; (SETF (SB!BIGNUM:%BIGNUM-REF SB!BIGNUM::RES SB!BIGNUM::I) SB!BIGNUM::V) ; (SETF SB!BIGNUM::CARRY SB!BIGNUM::K)) ; --> MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!BIGNUM::V SB!BIGNUM::K #:G107) {C017079}> ; SB!BIGNUM::V SB!BIGNUM::K NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN %MULTIPLY-AND-ADD ; (DEFUN SB!BIGNUM:%MULTIPLY-AND-ADD ; (SB!BIGNUM::X-DIGIT SB!BIGNUM::Y-DIGIT SB!BIGNUM::CARRY-IN-DIGIT ; &OPTIONAL (SB!BIGNUM::RES-DIGIT 0)) ; (DECLARE ; (TYPE SB!BIGNUM:BIGNUM-ELEMENT-TYPE SB!BIGNUM::X-DIGIT SB!BIGNUM::Y-DIGIT ; SB!BIGNUM::RES-DIGIT SB!BIGNUM::CARRY-IN-DIGIT)) ; (SB!BIGNUM:%MULTIPLY-AND-ADD SB!BIGNUM::X-DIGIT SB!BIGNUM::Y-DIGIT ; SB!BIGNUM::CARRY-IN-DIGIT SB!BIGNUM::RES-DIGIT)) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!BIGNUM::X-DIGIT SB!BIGNUM::Y-DIGIT SB!BIGNUM::CARRY-IN-DIGIT ; SB!BIGNUM::RES-DIGIT) ; {BDEEAE9}> ; SB!BIGNUM::X-DIGIT SB!BIGNUM::Y-DIGIT SB!BIGNUM::CARRY-IN-DIGIT '0)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 37 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/bignum.lisp ; in: DEFUN BIGNUM-TO-FLOAT ; (SB!KERNEL:FLOAT-FORMAT-DIGITS FORMAT) ; ; caught STYLE-WARNING: ; undefined function: FLOAT-FORMAT-DIGITS ; ; compilation unit finished ; Undefined type: ; CODE-DELETION-NOTE ; Undefined function: ; FLOAT-FORMAT-DIGITS ; caught 6 STYLE-WARNING conditions ; printed 70 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/bignum.lisp-obj-tmp written ; compilation finished in 0:00:00.667 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/numbers.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (DEFUN PARSE-NUMBER-DISPATCH ...) ; x-compiling (DEFPARAMETER *TYPE-TEST-ORDERING* ...) ; x-compiling (DEFUN TYPE-TEST-ORDER ...) ; x-compiling (DEFUN GENERATE-NUMBER-DISPATCH ...) ; x-compiling (DEFMACRO NUMBER-DISPATCH ...) ; x-compiling (DECLAIM (INLINE CANONICAL-COMPLEX)) ; x-compiling (DEFUN CANONICAL-COMPLEX ...) ; x-compiling (DECLAIM (INLINE BUILD-RATIO)) ; x-compiling (DEFUN BUILD-RATIO ...) ; x-compiling (DECLAIM (INLINE MAYBE-TRUNCATE)) ; x-compiling (DEFUN MAYBE-TRUNCATE ...) ; x-compiling (DEFUN COMPLEX ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/numbers.lisp ; in: DEFUN COMPLEX ; (SB!KERNEL::CANONICAL-COMPLEX REALPART IMAGPART) ; --> BLOCK IF COND IF COND IF PROGN SB!EXT:TRULY-THE COMPLEX ; ==> ; IMAGPART ; ; note: deleting unreachable code ; --> BLOCK IF COND IF PROGN SB!EXT:TRULY-THE COMPLEX ; ==> ; IMAGPART ; ; note: deleting unreachable code ; ==> ; REALPART ; ; note: deleting unreachable code ; --> BLOCK IF COND IF COND IF PROGN SB!EXT:TRULY-THE COMPLEX ; ==> ; REALPART ; ; note: deleting unreachable code ; x-compiling (DEFUN REALPART ...) ; x-compiling (DEFUN IMAGPART ...) ; x-compiling (DEFUN CONJUGATE ...) ; x-compiling (DEFUN SIGNUM ...) ; x-compiling (DEFUN NUMERATOR ...) ; x-compiling (DEFUN DENOMINATOR ...) ; x-compiling (DEFINE-ARITH + ...) ; x-compiling (DEFINE-ARITH * ...) ; x-compiling (DEFUN - ...) ; x-compiling (DEFUN / ...) ; x-compiling (DEFUN 1+ ...) ; x-compiling (DEFUN 1- ...) ; x-compiling (TWO-ARG-+/- TWO-ARG-+ ...) ; x-compiling (TWO-ARG-+/- TWO-ARG-- ...) ; x-compiling (DEFUN TWO-ARG-* ...) ; x-compiling (DEFUN INTEGER-/-INTEGER ...) ; x-compiling (DEFUN TWO-ARG-/ ...) ; x-compiling (DEFUN %NEGATE ...) ; x-compiling (DEFUN TRUNCATE ...) ; x-compiling (DEFUN %MULTIPLY-HIGH ...) ; x-compiling (DEFUN FLOOR ...) ; x-compiling (DEFUN CEILING ...) ; x-compiling (DEFUN REM ...) ; x-compiling (DEFUN MOD ...) ; x-compiling (DEFUN ROUND ...) ; x-compiling (DEFMACRO !DEFINE-FLOAT-ROUNDING-FUNCTION ...) ; x-compiling (DECLAIM (INLINE FCEILING ...)) ; x-compiling (DEFUN FTRUNCATE ...) ; x-compiling (DEFUN FFLOOR ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/numbers.lisp ; in: DEFUN FFLOOR ; (FTRUNCATE NUMBER SB!KERNEL::DIVISOR) ; --> BLOCK MACROLET SB!KERNEL::NUMBER-DISPATCH BLOCK TAGBODY RETURN-FROM ERROR ; --> LIST ; ==> ; NUMBER ; ; note: deleting unreachable code ; --> BLOCK MACROLET SB!KERNEL::NUMBER-DISPATCH BLOCK TAGBODY RETURN-FROM ERROR ; ==> ; SB!KERNEL::DIVISOR ; ; note: deleting unreachable code ; x-compiling (DEFUN FCEILING ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/numbers.lisp ; in: DEFUN FCEILING ; (FTRUNCATE NUMBER SB!KERNEL::DIVISOR) ; --> BLOCK MACROLET SB!KERNEL::NUMBER-DISPATCH BLOCK TAGBODY RETURN-FROM ERROR ; --> LIST ; ==> ; NUMBER ; ; note: deleting unreachable code ; --> BLOCK MACROLET SB!KERNEL::NUMBER-DISPATCH BLOCK TAGBODY RETURN-FROM ERROR ; ==> ; SB!KERNEL::DIVISOR ; ; note: deleting unreachable code ; x-compiling (DEFUN FROUND ...) ; x-compiling (DEFUN = ...) ; x-compiling (DEFUN /= ...) ; x-compiling (DEF < ...) ; x-compiling (DEF > ...) ; x-compiling (DEF <= ...) ; x-compiling (DEF >= ...) ; x-compiling (DEFUN MAX ...) ; x-compiling (DEFUN MIN ...) ; x-compiling (DEF-TWO-ARG- TWO-ARG-< ...) ; x-compiling (DEF-TWO-ARG- TWO-ARG-> ...) ; x-compiling (DEFUN TWO-ARG-= ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/numbers.lisp ; in: DEFUN TWO-ARG-= ; (SB!KERNEL::NUMBER-DISPATCH ((SB!KERNEL::X NUMBER) (SB!KERNEL::Y NUMBER)) ; (SB!KERNEL::BASIC-COMPARE = :INFINITE-X-FINITE-Y NIL :INFINITE-Y-FINITE-X ; NIL) ; ((FIXNUM (OR BIGNUM RATIO)) NIL) ((BIGNUM (OR FIXNUM RATIO)) NIL) ; ((BIGNUM BIGNUM) ; (ZEROP (SB!BIGNUM:BIGNUM-COMPARE SB!KERNEL::X SB!KERNEL::Y))) ; ((RATIO INTEGER) NIL) ; ((RATIO RATIO) ; (AND (EQL (NUMERATOR SB!KERNEL::X) (NUMERATOR SB!KERNEL::Y)) ; (EQL (DENOMINATOR SB!KERNEL::X) (DENOMINATOR SB!KERNEL::Y)))) ; ((COMPLEX COMPLEX) ; (AND (= (REALPART SB!KERNEL::X) (REALPART SB!KERNEL::Y)) ; (= (IMAGPART SB!KERNEL::X) (IMAGPART SB!KERNEL::Y)))) ; (((SB!KERNEL::FOREACH FIXNUM BIGNUM RATIO SINGLE-FLOAT DOUBLE-FLOAT) ; COMPLEX) ; (AND (= SB!KERNEL::X (REALPART SB!KERNEL::Y)) ; (ZEROP (IMAGPART SB!KERNEL::Y)))) ; ((COMPLEX (OR FLOAT RATIONAL)) ; (AND (= (REALPART SB!KERNEL::X) SB!KERNEL::Y) ; (ZEROP (IMAGPART SB!KERNEL::X))))) ; --> BLOCK TAGBODY RETURN-FROM TYPECASE LET COND IF PROGN TYPECASE LET COND IF ; --> COND IF COND IF COND IF COND IF COND IF PROGN IF = IF = ; ==> ; SB!KERNEL::X ; ; note: deleting unreachable code ; x-compiling (DEF LOGIOR ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/numbers.lisp ; in: DEF LOGIOR ; (SB!KERNEL::DEF LOGIOR 0 ; "Return the bit-wise or of its arguments. Args must be integers.") ; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; --> BLOCK IF DO BLOCK LET NTH SB!C::%REST-REF AND IF ; ==> ; NIL ; ; caught STYLE-WARNING: ; The binding of RESULT is not a INTEGER: ; NIL ; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; --> BLOCK IF DO BLOCK LET TAGBODY PSETQ PSETF LET* MULTIPLE-VALUE-BIND LET ; --> LOGIOR NTH SB!C::%REST-REF AND IF ; ==> ; NIL ; ; caught STYLE-WARNING: ; This is not a INTEGER: ; NIL ; x-compiling (DEF LOGXOR ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/numbers.lisp ; in: DEF LOGXOR ; (SB!KERNEL::DEF LOGXOR 0 ; "Return the bit-wise exclusive or of its arguments. Args must be integers.") ; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; --> BLOCK IF DO BLOCK LET NTH SB!C::%REST-REF AND IF ; ==> ; NIL ; ; caught STYLE-WARNING: ; The binding of RESULT is not a INTEGER: ; NIL ; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; --> BLOCK IF DO BLOCK LET TAGBODY PSETQ PSETF LET* MULTIPLE-VALUE-BIND LET ; --> LOGXOR NTH SB!C::%REST-REF AND IF ; ==> ; NIL ; ; caught STYLE-WARNING: ; This is not a INTEGER: ; NIL ; x-compiling (DEF LOGAND ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/numbers.lisp ; in: DEF LOGAND ; (SB!KERNEL::DEF LOGAND -1 ; "Return the bit-wise and of its arguments. Args must be integers.") ; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; --> BLOCK IF DO BLOCK LET NTH SB!C::%REST-REF AND IF ; ==> ; NIL ; ; caught STYLE-WARNING: ; The binding of RESULT is not a INTEGER: ; NIL ; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; --> BLOCK IF DO BLOCK LET TAGBODY PSETQ PSETF LET* MULTIPLE-VALUE-BIND LET ; --> LOGAND NTH SB!C::%REST-REF AND IF ; ==> ; NIL ; ; caught STYLE-WARNING: ; This is not a INTEGER: ; NIL ; x-compiling (DEF LOGEQV ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/numbers.lisp ; in: DEF LOGEQV ; (SB!KERNEL::DEF LOGEQV -1 ; "Return the bit-wise equivalence of its arguments. Args must be integers.") ; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; --> BLOCK IF DO BLOCK LET NTH SB!C::%REST-REF AND IF ; ==> ; NIL ; ; caught STYLE-WARNING: ; The binding of RESULT is not a INTEGER: ; NIL ; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; --> BLOCK IF DO BLOCK LET TAGBODY PSETQ PSETF LET* MULTIPLE-VALUE-BIND LET ; --> LOGEQV LOGNOT LOGXOR NTH SB!C::%REST-REF AND IF ; ==> ; NIL ; ; caught STYLE-WARNING: ; This is not a INTEGER: ; NIL ; x-compiling (DEFUN LOGNOT ...) ; x-compiling (DEF TWO-ARG-AND ...) ; x-compiling (DEF TWO-ARG-IOR ...) ; x-compiling (DEF TWO-ARG-XOR ...) ; x-compiling (DEF TWO-ARG-EQV ...) ; x-compiling (DEF LOGNAND ...) ; x-compiling (DEF LOGNOR ...) ; x-compiling (DEF LOGANDC1 ...) ; x-compiling (DEF LOGANDC2 ...) ; x-compiling (DEF LOGORC1 ...) ; x-compiling (DEF LOGORC2 ...) ; x-compiling (DEFUN LOGCOUNT ...) ; x-compiling (DEFUN LOGTEST ...) ; x-compiling (DEFUN LOGBITP ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/numbers.lisp ; in: DEFUN LOGBITP ; (SB!KERNEL::NUMBER-DISPATCH ((SB!INT:INDEX INTEGER) (INTEGER INTEGER)) ; ((FIXNUM FIXNUM) ; (IF (< SB!INT:INDEX SB!VM:N-POSITIVE-FIXNUM-BITS) ; (NOT (ZEROP #)) ; (MINUSP INTEGER))) ; ((FIXNUM BIGNUM) (SB!BIGNUM:BIGNUM-LOGBITP SB!INT:INDEX INTEGER)) ; ((BIGNUM (SB!KERNEL::FOREACH FIXNUM BIGNUM)) (MINUSP INTEGER))) ; --> BLOCK TAGBODY RETURN-FROM ERROR LIST ; ==> ; INTEGER ; ; note: deleting unreachable code ; ==> ; SB!INT:INDEX ; ; note: deleting unreachable code ; --> BLOCK TAGBODY RETURN-FROM ERROR ; ==> ; SB!INT:INDEX ; ; note: deleting unreachable code ; ==> ; INTEGER ; ; note: deleting unreachable code ; x-compiling (DEFUN ASH ...) ; x-compiling (DEFUN INTEGER-LENGTH ...) ; x-compiling (DEFUN BYTE ...) ; x-compiling (DEFUN BYTE-SIZE ...) ; x-compiling (DEFUN BYTE-POSITION ...) ; x-compiling (DEFUN LDB ...) ; x-compiling (DEFUN LDB-TEST ...) ; x-compiling (DEFUN MASK-FIELD ...) ; x-compiling (DEFUN DPB ...) ; x-compiling (DEFUN DEPOSIT-FIELD ...) ; x-compiling (DEFUN %LDB ...) ; x-compiling (DEFUN %MASK-FIELD ...) ; x-compiling (DEFUN %DPB ...) ; x-compiling (DEFUN %DEPOSIT-FIELD ...) ; x-compiling (DEFUN SB!C::MASK-SIGNED-FIELD ...) ; x-compiling (DEFCONSTANT BOOLE-CLR ...) ; x-compiling (DEFCONSTANT BOOLE-SET ...) ; x-compiling (DEFCONSTANT BOOLE-1 ...) ; x-compiling (DEFCONSTANT BOOLE-2 ...) ; x-compiling (DEFCONSTANT BOOLE-C1 ...) ; x-compiling (DEFCONSTANT BOOLE-C2 ...) ; x-compiling (DEFCONSTANT BOOLE-AND ...) ; x-compiling (DEFCONSTANT BOOLE-IOR ...) ; x-compiling (DEFCONSTANT BOOLE-XOR ...) ; x-compiling (DEFCONSTANT BOOLE-EQV ...) ; x-compiling (DEFCONSTANT BOOLE-NAND ...) ; x-compiling (DEFCONSTANT BOOLE-NOR ...) ; x-compiling (DEFCONSTANT BOOLE-ANDC1 ...) ; x-compiling (DEFCONSTANT BOOLE-ANDC2 ...) ; x-compiling (DEFCONSTANT BOOLE-ORC1 ...) ; x-compiling (DEFCONSTANT BOOLE-ORC2 ...) ; x-compiling (DEFUN BOOLE ...) ; x-compiling (DEFUN GCD ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/numbers.lisp ; in: DEFUN GCD ; (NTH 0 SB!KERNEL::INTEGERS) ; --> SB!C::%REST-REF AND IF ; ==> ; NIL ; ; caught STYLE-WARNING: ; The binding of RESULT is not a INTEGER: ; NIL ; (NTH SB!KERNEL::I SB!KERNEL::INTEGERS) ; --> SB!C::%REST-REF AND IF ; ==> ; NIL ; ; caught STYLE-WARNING: ; This is not a INTEGER: ; NIL ; x-compiling (DEFUN LCM ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/numbers.lisp ; in: DEFUN LCM ; (NTH 0 SB!KERNEL::INTEGERS) ; --> SB!C::%REST-REF AND IF ; ==> ; NIL ; ; caught STYLE-WARNING: ; The binding of RESULT is not a INTEGER: ; NIL ; (NTH SB!KERNEL::I SB!KERNEL::INTEGERS) ; --> SB!C::%REST-REF AND IF ; ==> ; NIL ; ; caught STYLE-WARNING: ; This is not a INTEGER: ; NIL ; x-compiling (DEFUN TWO-ARG-LCM ...) ; x-compiling (DEFUN TWO-ARG-GCD ...) ; x-compiling (DEFUN ISQRT ...) ; x-compiling (DEF ZEROP ...) ; x-compiling (DEF PLUSP ...) ; x-compiling (DEF MINUSP ...) ; x-compiling (DEF ODDP ...) ; x-compiling (DEF EVENP ...) ; x-compiling (DEFUN SB!VM::%NEGATE-MOD32 ...) ; x-compiling (DEFUN SB!VM::%NEGATE-MODFX ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/numbers.lisp ; in: DEFUN SB!VM::%NEGATE-MODFX ; (SB!C::MASK-SIGNED-FIELD 30 SB!KERNEL::X) ; ; note: deleting unreachable code ; ==> ; SB!KERNEL::X ; ; note: deleting unreachable code ; x-compiling (DEFUN SB!VM::*-MOD32 ...) ; x-compiling (DEFUN SB!VM::*-MODFX ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/numbers.lisp ; in: DEFUN SB!VM::*-MODFX ; (SB!C::MASK-SIGNED-FIELD 30 SB!KERNEL::X) ; ; note: deleting unreachable code ; ==> ; SB!KERNEL::X ; ; note: deleting unreachable code ; x-compiling (DEFUN SB!VM::+-MOD32 ...) ; x-compiling (DEFUN SB!VM::+-MODFX ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/numbers.lisp ; in: DEFUN SB!VM::+-MODFX ; (SB!C::MASK-SIGNED-FIELD 30 SB!KERNEL::X) ; ; note: deleting unreachable code ; ==> ; SB!KERNEL::X ; ; note: deleting unreachable code ; x-compiling (DEFUN SB!VM::--MOD32 ...) ; x-compiling (DEFUN SB!VM::--MODFX ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/numbers.lisp ; in: DEFUN SB!VM::--MODFX ; (SB!C::MASK-SIGNED-FIELD 30 SB!KERNEL::X) ; ; note: deleting unreachable code ; ==> ; SB!KERNEL::X ; ; note: deleting unreachable code ; x-compiling (DEFUN SB!VM::LOGNOT-MOD32 ...) ; x-compiling (DEFUN SB!VM::ASH-LEFT-MOD32 ...) ; x-compiling (DEFUN SB!VM::ASH-LEFT-MODFX ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/numbers.lisp ; in: DEFUN COMPLEX ; (DEFUN COMPLEX (REALPART &OPTIONAL (IMAGPART 0)) ; "Return a complex number with the specified real and imaginary components." ; (FLET ((SB!KERNEL::%%MAKE-COMPLEX (REALPART IMAGPART) ; (COND # # #))) ; (SB!KERNEL::NUMBER-DISPATCH ((REALPART REAL) (IMAGPART REAL)) ; ((RATIONAL RATIONAL) (SB!KERNEL::CANONICAL-COMPLEX REALPART IMAGPART)) ; (SB!KERNEL::FLOAT-CONTAGION SB!KERNEL::%%MAKE-COMPLEX REALPART IMAGPART ; (RATIONAL))))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (REALPART IMAGPART) {DD91809}> ; REALPART '0)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN BUILD-RATIO ; (MULTIPLE-VALUE-BIND (SB!KERNEL::NUM SB!KERNEL::DEN) ; (IF (MINUSP SB!KERNEL::DEN) ; (VALUES (- SB!KERNEL::NUM) (- SB!KERNEL::DEN)) ; (VALUES SB!KERNEL::NUM SB!KERNEL::DEN)) ; (COND ; ((EQL SB!KERNEL::DEN 0) ; (ERROR 'DIVISION-BY-ZERO :OPERANDS (LIST SB!KERNEL::NUM SB!KERNEL::DEN) ; :OPERATION 'SB!KERNEL::BUILD-RATIO)) ; ((EQL SB!KERNEL::DEN 1) SB!KERNEL::NUM) ; (T (SB!KERNEL:%MAKE-RATIO SB!KERNEL::NUM SB!KERNEL::DEN)))) ; --> MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!KERNEL::NUM SB!KERNEL::DEN #:G108) {DD21441}> ; SB!KERNEL::NUM SB!KERNEL::DEN NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN PARSE-NUMBER-DISPATCH ; (ASSOC TYPE (CDR SB!KERNEL::RESULT) :TEST #'EQUAL) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 108 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/numbers.lisp ; in: DEFMACRO NUMBER-DISPATCH ; (MAPCAR #'CAR SB!KERNEL::VAR-SPECS) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN GENERATE-NUMBER-DISPATCH ; (SB!INT:QUASIQUOTE ; ((TYPECASE #S(SB!IMPL::COMMA :EXPR SB!KERNEL::VAR :KIND 0) ; #S(SB!IMPL::COMMA :EXPR (MAPCAR # SB!KERNEL::CASES) :KIND 2) ; (T (GO #))))) ; --> SB!IMPL::|List| SB!IMPL::|List*| SB!IMPL::|Append| MAPCAR LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN TWO-ARG-= ; (SB!KERNEL::NUMBER-DISPATCH ((SB!KERNEL::X NUMBER) (SB!KERNEL::Y NUMBER)) ; (SB!KERNEL::BASIC-COMPARE = :INFINITE-X-FINITE-Y NIL :INFINITE-Y-FINITE-X ; NIL) ; ((FIXNUM (OR BIGNUM RATIO)) NIL) ((BIGNUM (OR FIXNUM RATIO)) NIL) ; ((BIGNUM BIGNUM) ; (ZEROP (SB!BIGNUM:BIGNUM-COMPARE SB!KERNEL::X SB!KERNEL::Y))) ; ((RATIO INTEGER) NIL) ; ((RATIO RATIO) ; (AND (EQL (NUMERATOR SB!KERNEL::X) (NUMERATOR SB!KERNEL::Y)) ; (EQL (DENOMINATOR SB!KERNEL::X) (DENOMINATOR SB!KERNEL::Y)))) ; ((COMPLEX COMPLEX) ; (AND (= (REALPART SB!KERNEL::X) (REALPART SB!KERNEL::Y)) ; (= (IMAGPART SB!KERNEL::X) (IMAGPART SB!KERNEL::Y)))) ; (((SB!KERNEL::FOREACH FIXNUM BIGNUM RATIO SINGLE-FLOAT DOUBLE-FLOAT) ; COMPLEX) ; (AND (= SB!KERNEL::X (REALPART SB!KERNEL::Y)) ; (ZEROP (IMAGPART SB!KERNEL::Y)))) ; ((COMPLEX (OR FLOAT RATIONAL)) ; (AND (= (REALPART SB!KERNEL::X) SB!KERNEL::Y) ; (ZEROP (IMAGPART SB!KERNEL::X))))) ; --> BLOCK TAGBODY RETURN-FROM TYPECASE LET COND IF PROGN TYPECASE LET COND IF ; --> COND IF PROGN IF ; ==> ; (SB!EXT:FLOAT-INFINITY-P SB!KERNEL::Y) ; ; caught STYLE-WARNING: ; undefined function: FLOAT-INFINITY-P ; in: DEF-TWO-ARG- TWO-ARG-> ; (SB!KERNEL::DEF-TWO-ARG- SB!KERNEL:TWO-ARG-> > CEILING FLOOR ; ((FIXNUM BIGNUM) (NOT (SB!BIGNUM:BIGNUM-PLUS-P SB!KERNEL::Y))) ; ((BIGNUM FIXNUM) (SB!BIGNUM:BIGNUM-PLUS-P SB!KERNEL::X)) ; ((BIGNUM BIGNUM) ; (PLUSP (SB!BIGNUM:BIGNUM-COMPARE SB!KERNEL::X SB!KERNEL::Y)))) ; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; --> BLOCK SB!KERNEL::NUMBER-DISPATCH BLOCK TAGBODY RETURN-FROM TYPECASE LET ; --> COND IF PROGN TYPECASE LET COND IF COND IF PROGN IF ; ==> ; (SB!EXT:FLOAT-INFINITY-P SB!KERNEL::Y) ; ; caught STYLE-WARNING: ; undefined function: FLOAT-INFINITY-P ; in: DEF-TWO-ARG- TWO-ARG-< ; (SB!KERNEL::DEF-TWO-ARG- SB!KERNEL:TWO-ARG-< < FLOOR CEILING ; ((FIXNUM BIGNUM) (SB!BIGNUM:BIGNUM-PLUS-P SB!KERNEL::Y)) ; ((BIGNUM FIXNUM) (NOT (SB!BIGNUM:BIGNUM-PLUS-P SB!KERNEL::X))) ; ((BIGNUM BIGNUM) ; (MINUSP (SB!BIGNUM:BIGNUM-COMPARE SB!KERNEL::X SB!KERNEL::Y)))) ; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; --> BLOCK SB!KERNEL::NUMBER-DISPATCH BLOCK TAGBODY RETURN-FROM TYPECASE LET ; --> COND IF PROGN TYPECASE LET COND IF COND IF PROGN IF ; ==> ; (SB!EXT:FLOAT-INFINITY-P SB!KERNEL::Y) ; ; caught STYLE-WARNING: ; undefined function: FLOAT-INFINITY-P ; ; compilation unit finished ; Undefined types: ; CODE-DELETION-NOTE COMPILER-NOTE ; Undefined function: ; FLOAT-INFINITY-P ; caught 21 STYLE-WARNING conditions ; printed 21 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/numbers.lisp-obj-tmp written ; compilation finished in 0:00:01.231 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/float-trap.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFPARAMETER *FLOAT-TRAP-ALIST* ...) ; x-compiling (DEFPARAMETER *ROUNDING-MODE-ALIST* ...) ; x-compiling (DEFPARAMETER *PRECISION-MODE-ALIST* ...) ; x-compiling (DEFUN FLOAT-TRAP-MASK ...) ; x-compiling (DEFUN FLOATING-POINT-MODES ...) ; x-compiling (DEFUN (SETF FLOATING-POINT-MODES) ...) ; x-compiling (DEFUN SET-FLOATING-POINT-MODES ...) ; x-compiling (DEFUN GET-FLOATING-POINT-MODES ...) ; x-compiling (DEFVAR *SAVED-FLOATING-POINT-MODES* ...) ; x-compiling (DEFUN FLOAT-COLD-INIT-OR-REINIT ...) ; x-compiling (DEFUN FLOAT-DEINIT ...) ; x-compiling (DEFMACRO CURRENT-FLOAT-TRAP ...) ; x-compiling (DEFPARAMETER *SIGFPE-CODE-ERROR-ALIST* ...) ; x-compiling (DEFUN SIGFPE-HANDLER ...) ; x-compiling (DEFMACRO WITH-FLOAT-TRAPS-MASKED ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/float-trap.lisp ; in: DEFUN SET-FLOATING-POINT-MODES ; (ASSOC SB!VM::ROUNDING-MODE SB!VM::*ROUNDING-MODE-ALIST*) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; (DEFUN SB!INT:SET-FLOATING-POINT-MODES ; (&KEY (SB!VM::TRAPS () SB!VM::TRAPS-P) ; (SB!VM::ROUNDING-MODE () SB!VM::ROUND-P) ; (SB!VM::CURRENT-EXCEPTIONS () SB!VM::CURRENT-X-P) ; (SB!VM::ACCRUED-EXCEPTIONS () SB!VM::ACCRUED-X-P) ; (SB!VM::FAST-MODE () SB!VM::FAST-MODE-P) ; (SB!VM::PRECISION () SB!VM::PRECISIONP)) ; "This function sets options controlling the floating-point ; hardware. If a keyword is not supplied, then the current value is ; preserved. Possible keywords: ; ; :TRAPS ; A list of the exception conditions that should cause traps. ; Possible exceptions are :UNDERFLOW, :OVERFLOW, :INEXACT, :INVALID, ; :DIVIDE-BY-ZERO, and on the X86 :DENORMALIZED-OPERAND. ; ; :ROUNDING-MODE ; The rounding mode to use when the result is not exact. Possible ; values are :NEAREST, :POSITIVE-INFINITY, :NEGATIVE-INFINITY and ; :ZERO. Setting this away from :NEAREST is liable to upset SBCL's ; maths routines which depend on it. ; ; :CURRENT-EXCEPTIONS ; :ACCRUED-EXCEPTIONS ; These arguments allow setting of the exception flags. The main ; use is setting the accrued exceptions to NIL to clear them. ; ; :FAST-MODE ; Set the hardware's \"fast mode\" flag, if any. When set, IEEE ; conformance or debuggability may be impaired. Some machines don't ; have this feature, and some SBCL ports don't implement it anyway ; -- in such cases the value is always NIL. ; ; :PRECISION (x86 only) ; :24-bit, :53-bit and :64-bit, for the internal precision of the mantissa. ; ; GET-FLOATING-POINT-MODES may be used to find the floating point modes ; currently in effect. SAVE-LISP-AND-DIE preserves the floating point modes ; in effect." ; (LET ((SB!VM::MODES (SB!VM:FLOATING-POINT-MODES))) ; (WHEN SB!VM::TRAPS-P (SETF # #)) ; (WHEN SB!VM::ROUND-P (SETF # #)) ; (WHEN SB!VM::CURRENT-X-P (SETF # #)) ; (WHEN SB!VM::ACCRUED-X-P (SETF # #)) ; (WHEN SB!VM::FAST-MODE-P ; (IF SB!VM::FAST-MODE ; (SETQ #) ; (SETQ #))) ; (WHEN SB!VM::PRECISIONP (SETF # #)) ; (SETF (SB!VM:FLOATING-POINT-MODES) SB!VM::MODES)) ; (VALUES)) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:.DEFAULTING-TEMP. #:N-SUPPLIED-22 #:.DEFAULTING-TEMP. ; #:N-SUPPLIED-23 #:.DEFAULTING-TEMP. #:N-SUPPLIED-24 ; #:.DEFAULTING-TEMP. #:N-SUPPLIED-25 #:.DEFAULTING-TEMP. ; #:N-SUPPLIED-26 #:.DEFAULTING-TEMP. #:N-SUPPLIED-27) ; {C767539}> ; NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL ...)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN FLOAT-TRAP-MASK ; (ASSOC SB!VM::X SB!VM::*FLOAT-TRAP-ALIST*) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 8 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/float-trap.lisp ; in: DEFUN FLOAT-TRAP-MASK ; (MAPCAR ; (LAMBDA (SB!VM::X) ; (OR (CDR (ASSOC SB!VM::X SB!VM::*FLOAT-TRAP-ALIST*)) ; (ERROR "unknown float trap kind: ~S" SB!VM::X))) ; SB!VM::NAMES) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; ; compilation unit finished ; Undefined types: ; CODE-DELETION-NOTE COMPILER-NOTE ; caught 5 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/float-trap.lisp-obj-tmp written ; compilation finished in 0:00:00.113 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/float.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (DECLAIM (MAYBE-INLINE FLOAT-DENORMALIZED-P ...)) ; x-compiling (DEFUN FLOAT-DENORMALIZED-P ...) ; x-compiling (DEFMACRO !DEFINE-FLOAT-DISPATCHING-FUNCTION ...) ; x-compiling (!DEFINE-FLOAT-DISPATCHING-FUNCTION FLOAT-INFINITY-P ...) ; x-compiling (!DEFINE-FLOAT-DISPATCHING-FUNCTION FLOAT-NAN-P ...) ; x-compiling (!DEFINE-FLOAT-DISPATCHING-FUNCTION FLOAT-TRAPPING-NAN-P ...) ; x-compiling (DECLAIM (MAYBE-INLINE FLOAT-PRECISION)) ; x-compiling (DEFUN FLOAT-PRECISION ...) ; x-compiling (DEFUN FLOAT-SIGN ...) ; x-compiling (DEFUN FLOAT-FORMAT-DIGITS ...) ; x-compiling (DECLAIM (INLINE FLOAT-DIGITS ...)) ; x-compiling (DEFUN FLOAT-DIGITS ...) ; x-compiling (DEFUN FLOAT-RADIX ...) ; x-compiling (DECLAIM (MAYBE-INLINE INTEGER-DECODE-SINGLE-FLOAT ...)) ; x-compiling (DEFUN INTEGER-DECODE-SINGLE-DENORM ...) ; x-compiling (DEFUN INTEGER-DECODE-SINGLE-FLOAT ...) ; x-compiling (DEFUN INTEGER-DECODE-DOUBLE-DENORM ...) ; x-compiling (DEFUN INTEGER-DECODE-DOUBLE-FLOAT ...) ; x-compiling (DEFUN INTEGER-DECODE-FLOAT ...) ; x-compiling (DECLAIM (MAYBE-INLINE DECODE-SINGLE-FLOAT ...)) ; x-compiling (DEFUN DECODE-SINGLE-DENORM ...) ; x-compiling (DEFUN DECODE-SINGLE-FLOAT ...) ; x-compiling (DEFUN DECODE-DOUBLE-DENORM ...) ; x-compiling (DEFUN DECODE-DOUBLE-FLOAT ...) ; x-compiling (DEFUN DECODE-FLOAT ...) ; x-compiling (DECLAIM (MAYBE-INLINE SCALE-SINGLE-FLOAT ...)) ; x-compiling (DEFUN SCALE-FLOAT-MAYBE-UNDERFLOW ...) ; x-compiling (DEFUN SCALE-FLOAT-MAYBE-OVERFLOW ...) ; x-compiling (DEFUN SCALE-SINGLE-FLOAT ...) ; x-compiling (DEFUN SCALE-DOUBLE-FLOAT ...) ; x-compiling (DEFUN SCALE-FLOAT ...) ; x-compiling (DEFUN FLOAT ...) ; x-compiling (FROB %SINGLE-FLOAT ...) ; x-compiling (FROB %DOUBLE-FLOAT ...) ; x-compiling (DEFUN FLOAT-RATIO ...) ; x-compiling (DEFUN %UNARY-TRUNCATE ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/float.lisp ; in: DEFUN %UNARY-TRUNCATE ; (SB!KERNEL::NUMBER-DISPATCH ((NUMBER REAL)) ((INTEGER) NUMBER) ; ((RATIO) (VALUES (TRUNCATE (NUMERATOR NUMBER) (DENOMINATOR NUMBER)))) ; (((SB!KERNEL::FOREACH SINGLE-FLOAT DOUBLE-FLOAT)) ; (IF (< (FLOAT MOST-NEGATIVE-FIXNUM NUMBER) NUMBER ; (FLOAT MOST-POSITIVE-FIXNUM NUMBER)) ; (SB!EXT:TRULY-THE FIXNUM (SB!KERNEL:%UNARY-TRUNCATE NUMBER)) ; (MULTIPLE-VALUE-BIND (SB!KERNEL::BITS EXP) ; (INTEGER-DECODE-FLOAT NUMBER) ; (LET # ; #))))) ; --> BLOCK TAGBODY RETURN-FROM ERROR LIST ; ==> ; NUMBER ; ; note: deleting unreachable code ; x-compiling (DEF SINGLE-FLOAT ...) ; x-compiling (DEF DOUBLE-FLOAT ...) ; x-compiling (DEFUN %UNARY-ROUND ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/float.lisp ; in: DEFUN %UNARY-ROUND ; (SB!KERNEL::NUMBER-DISPATCH ((NUMBER REAL)) ((INTEGER) NUMBER) ; ((RATIO) (VALUES (ROUND (NUMERATOR NUMBER) (DENOMINATOR NUMBER)))) ; (((SB!KERNEL::FOREACH SINGLE-FLOAT DOUBLE-FLOAT)) ; (IF (< (FLOAT MOST-NEGATIVE-FIXNUM NUMBER) NUMBER ; (FLOAT MOST-POSITIVE-FIXNUM NUMBER)) ; (SB!EXT:TRULY-THE FIXNUM (SB!KERNEL:%UNARY-ROUND NUMBER)) ; (MULTIPLE-VALUE-BIND (SB!KERNEL::BITS EXP) ; (INTEGER-DECODE-FLOAT NUMBER) ; (LET* # ; #))))) ; --> BLOCK TAGBODY RETURN-FROM ERROR LIST ; ==> ; NUMBER ; ; note: deleting unreachable code ; x-compiling (DEFUN %UNARY-FTRUNCATE ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/float.lisp ; in: DEFUN %UNARY-FTRUNCATE ; (SB!KERNEL::NUMBER-DISPATCH ((NUMBER REAL)) ((INTEGER) (FLOAT NUMBER)) ; ((RATIO) (FLOAT (TRUNCATE (NUMERATOR NUMBER) (DENOMINATOR NUMBER)))) ; (((SB!KERNEL::FOREACH SINGLE-FLOAT DOUBLE-FLOAT)) ; (SB!KERNEL:%UNARY-FTRUNCATE NUMBER))) ; --> BLOCK TAGBODY RETURN-FROM ERROR LIST ; ==> ; NUMBER ; ; note: deleting unreachable code ; x-compiling (DEFUN RATIONAL ...) ; x-compiling (DEFUN RATIONALIZE ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/float.lisp ; in: DEFUN FLOAT-SIGN ; (DEFUN FLOAT-SIGN ; (SB!KERNEL::FLOAT1 ; &OPTIONAL (SB!KERNEL::FLOAT2 (FLOAT 1 SB!KERNEL::FLOAT1))) ; "Return a floating-point number that has the same sign as ; FLOAT1 and, if FLOAT2 is given, has the same absolute value ; as FLOAT2." ; (DECLARE (FLOAT SB!KERNEL::FLOAT1 SB!KERNEL::FLOAT2)) ; (* ; (IF (ETYPECASE SB!KERNEL::FLOAT1 (SINGLE-FLOAT #) (DOUBLE-FLOAT #)) ; (FLOAT -1 SB!KERNEL::FLOAT1) ; (FLOAT 1 SB!KERNEL::FLOAT1)) ; (ABS SB!KERNEL::FLOAT2))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION LET ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!KERNEL::FLOAT1 SB!KERNEL::FLOAT2) {DC35209}> ; SB!KERNEL::FLOAT1 #:G43)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN FLOAT-PRECISION ; (SB!KERNEL::FROB SB!VM:DOUBLE-FLOAT-DIGITS SB!VM:DOUBLE-FLOAT-BIAS ; SB!KERNEL::INTEGER-DECODE-DOUBLE-DENORM) ; --> COND IF COND IF PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (IGNORE EXP #:G39) {DBDDD19}> ; IGNORE EXP NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; (SB!KERNEL::FROB SB!VM:SINGLE-FLOAT-DIGITS SB!VM:SINGLE-FLOAT-BIAS ; SB!KERNEL::INTEGER-DECODE-SINGLE-DENORM) ; --> COND IF COND IF PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (IGNORE EXP #:G36) {DBC9131}> ; IGNORE EXP NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 32 more uses of undefined type CODE-DELETION-NOTE ; ; compilation unit finished ; Undefined type: ; CODE-DELETION-NOTE ; caught 4 STYLE-WARNING conditions ; printed 3 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/float.lisp-obj-tmp written ; compilation finished in 0:00:00.501 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/irrat.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (DEFCONSTANT PI ...) ; x-compiling (DEF %ATAN2 ...) ; x-compiling (DEF %ATAN ...) ; x-compiling (DEF %TAN ...) ; x-compiling (DEF %TAN-QUICK ...) ; x-compiling (DEF %COS ...) ; x-compiling (DEF %COS-QUICK ...) ; x-compiling (DEF %SIN ...) ; x-compiling (DEF %SIN-QUICK ...) ; x-compiling (DEF %SQRT ...) ; x-compiling (DEF %LOG ...) ; x-compiling (DEF %EXP ...) ; x-compiling (DEF-MATH-RTN "acos" ...) ; x-compiling (DEF-MATH-RTN "asin" ...) ; x-compiling (DEF-MATH-RTN "cosh" ...) ; x-compiling (DEF-MATH-RTN "sinh" ...) ; x-compiling (DEF-MATH-RTN "tanh" ...) ; x-compiling (DEF-MATH-RTN "asinh" ...) ; x-compiling (DEF-MATH-RTN "acosh" ...) ; x-compiling (DEF-MATH-RTN "atanh" ...) ; x-compiling (DEF-MATH-RTN "pow" ...) ; x-compiling (DEF-MATH-RTN "hypot" ...) ; x-compiling (DEFUN EXP ...) ; x-compiling (DECLAIM (TYPE # ...)) ; x-compiling (DEFPARAMETER *INTEXP-MAXIMUM-EXPONENT* ...) ; x-compiling (DEFUN INTEXP ...) ; x-compiling (DEFUN EXPT ...) ; x-compiling (DEFUN LOG2 ...) ; x-compiling (DEFUN LOG ...) ; x-compiling (DEFUN SQRT ...) ; x-compiling (DEFUN ABS ...) ; x-compiling (DEFUN PHASE ...) ; x-compiling (DEFUN SIN ...) ; x-compiling (DEFUN COS ...) ; x-compiling (DEFUN TAN ...) ; x-compiling (DEFUN CIS ...) ; x-compiling (DEFUN ASIN ...) ; x-compiling (DEFUN ACOS ...) ; x-compiling (DEFUN ATAN ...) ; x-compiling (DEFUN SINH ...) ; x-compiling (DEFUN COSH ...) ; x-compiling (DEFUN TANH ...) ; x-compiling (DEFUN ASINH ...) ; x-compiling (DEFUN ACOSH ...) ; x-compiling (DEFUN ATANH ...) ; x-compiling (DECLAIM (INLINE SQUARE)) ; x-compiling (DEFUN SQUARE ...) ; x-compiling (DECLAIM (INLINE SCALB)) ; x-compiling (DEFUN SCALB ...) ; x-compiling (DECLAIM (INLINE LOGB-FINITE)) ; x-compiling (DEFUN LOGB-FINITE ...) ; x-compiling (DEFUN LOGB ...) ; x-compiling (DECLAIM (INLINE COERCE-TO-COMPLEX-TYPE)) ; x-compiling (DEFUN COERCE-TO-COMPLEX-TYPE ...) ; x-compiling (DEFUN CSSQS ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/irrat.lisp ; in: DEFUN CSSQS ; (SB!KERNEL::LOGB-FINITE (MAX (ABS SB!KERNEL::X) (ABS SB!KERNEL::Y))) ; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL DECODE-FLOAT ; ==> ; (SB!KERNEL:DECODE-DOUBLE-FLOAT SB!C::X) ; ; note: doing float to pointer coercion (cost 13) to X ; (VALUES ; (+ (SB!KERNEL::SQUARE (SB!KERNEL::SCALB SB!KERNEL::X SB!KERNEL::K)) ; (SB!KERNEL::SQUARE (SB!KERNEL::SCALB SB!KERNEL::Y SB!KERNEL::K))) ; (- SB!KERNEL::K)) ; ; note: doing float to pointer coercion (cost 13) to "" ; (VALUES SB!KERNEL::RHO 0) ; ; note: doing float to pointer coercion (cost 13) from RHO to "" ; x-compiling (DEFUN COMPLEX-SQRT ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/irrat.lisp ; in: DEFUN COMPLEX-SQRT ; (SB!EXT:FLOAT-NAN-P SB!KERNEL::X) ; --> BLOCK SB!KERNEL::NUMBER-DISPATCH BLOCK TAGBODY RETURN-FROM TYPECASE LET ; --> COND IF PROGN LET SB!KERNEL:SINGLE-FLOAT-BITS ; ==> ; SB!KERNEL::X ; ; note: deleting unreachable code ; --> BLOCK SB!KERNEL::NUMBER-DISPATCH BLOCK TAGBODY RETURN-FROM ERROR ; ==> ; SB!KERNEL::X ; ; note: deleting unreachable code ; (SB!KERNEL::COERCE-TO-COMPLEX-TYPE SB!KERNEL::ETA SB!KERNEL::NU SB!KERNEL::Z) ; --> BLOCK IF TYPEP LET ; ==> ; (REALPART SB!KERNEL::Z) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT) ; (COMPLEX RATIONAL) RATIONAL), not a (COMPLEX ; RATIONAL). ; ; note: forced to do full call ; unable to do complex float realpart (cost 3) because: ; The first argument is a (OR (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT) ; (COMPLEX RATIONAL) RATIONAL), not a (COMPLEX ; SINGLE-FLOAT). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). ; unable to do complex float realpart (cost 3) because: ; The first argument is a (OR (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT) ; (COMPLEX RATIONAL) RATIONAL), not a (COMPLEX ; DOUBLE-FLOAT). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST ; T). ; --> BLOCK IF ; ==> ; (COMPLEX (FLOAT SB!KERNEL::X 1.0) (FLOAT SB!KERNEL::Y 1.0)) ; ; note: forced to do full call ; unable to do inline complex single-float creation (cost 5) because: ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). ; ==> ; (COMPLEX SB!KERNEL::X SB!KERNEL::Y) ; ; note: forced to do full call ; unable to do inline complex double-float creation (cost 5) because: ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; ; note: doing float to pointer coercion (cost 13) from ETA ; ; note: doing float to pointer coercion (cost 13) from NU ; ==> ; (COMPLEX (FLOAT SB!KERNEL::X 1.0) (FLOAT SB!KERNEL::Y 1.0)) ; ; note: doing float to pointer coercion (cost 13) ; ; note: doing float to pointer coercion (cost 13) ; x-compiling (DEFUN COMPLEX-LOG-SCALED ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/irrat.lisp ; in: DEFUN COMPLEX-LOG-SCALED ; (LOG SB!KERNEL::RHO) ; ; note: unable to ; optimize ; due to type uncertainty: ; The result is a (VALUES ; (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)) ; &OPTIONAL), not a (VALUES FLOAT &REST T). ; (/ (LOG SB!KERNEL::RHO) 2.0d0) ; ; note: unable to ; convert to multiplication by reciprocal ; due to type uncertainty: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)), not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)), not a (COMPLEX ; SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)), not a (COMPLEX ; DOUBLE-FLOAT). ; (+ (/ (LOG SB!KERNEL::RHO) 2.0d0) ; (* (+ SB!KERNEL::K SB!KERNEL::J) SB!KERNEL::LN2)) ; ; 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). ; (SB!KERNEL::COERCE-TO-COMPLEX-TYPE ; (IF (AND (ZEROP SB!KERNEL::K) (< SB!KERNEL::T0 SB!KERNEL::BETA) ; (OR (<= SB!KERNEL::BETA SB!KERNEL::T1) ; (< SB!KERNEL::RHO SB!KERNEL::T2))) ; (/ (SB!KERNEL:%LOG1P (+ # #)) 2.0d0) ; (+ (/ (LOG SB!KERNEL::RHO) 2.0d0) ; (* (+ SB!KERNEL::K SB!KERNEL::J) SB!KERNEL::LN2))) ; (ATAN SB!KERNEL::Y SB!KERNEL::X) SB!KERNEL::Z) ; --> BLOCK IF TYPEP LET ; ==> ; (REALPART SB!KERNEL::Z) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR RATIONAL (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT) ; (COMPLEX RATIONAL)), not a (COMPLEX RATIONAL). ; (/ (LOG SB!KERNEL::RHO) 2.0d0) ; ; note: forced to do static-fun Two-arg-/ (cost 53) ; unable to do inline float arithmetic (cost 12) because: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT ; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)), not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; (+ (/ (LOG SB!KERNEL::RHO) 2.0d0) ; (* (+ SB!KERNEL::K SB!KERNEL::J) SB!KERNEL::LN2)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; (SB!KERNEL::COERCE-TO-COMPLEX-TYPE ; (IF (AND (ZEROP SB!KERNEL::K) (< SB!KERNEL::T0 SB!KERNEL::BETA) ; (OR (<= SB!KERNEL::BETA SB!KERNEL::T1) ; (< SB!KERNEL::RHO SB!KERNEL::T2))) ; (/ (SB!KERNEL:%LOG1P (+ # #)) 2.0d0) ; (+ (/ (LOG SB!KERNEL::RHO) 2.0d0) ; (* (+ SB!KERNEL::K SB!KERNEL::J) SB!KERNEL::LN2))) ; (ATAN SB!KERNEL::Y SB!KERNEL::X) SB!KERNEL::Z) ; --> BLOCK IF TYPEP LET ; ==> ; (REALPART SB!KERNEL::Z) ; ; note: forced to do full call ; unable to do complex float realpart (cost 3) because: ; The first argument is a (OR RATIONAL (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX ; SINGLE-FLOAT). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). ; unable to do complex float realpart (cost 3) because: ; The first argument is a (OR RATIONAL (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX ; DOUBLE-FLOAT). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST ; T). ; --> BLOCK IF ; ==> ; (COMPLEX (FLOAT SB!KERNEL::X 1.0) (FLOAT SB!KERNEL::Y 1.0)) ; ; note: forced to do full call ; unable to do inline complex single-float creation (cost 5) because: ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). ; ==> ; (COMPLEX SB!KERNEL::X SB!KERNEL::Y) ; ; note: forced to do full call ; unable to do inline complex double-float creation (cost 5) because: ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; (+ (/ (LOG SB!KERNEL::RHO) 2.0d0) ; (* (+ SB!KERNEL::K SB!KERNEL::J) SB!KERNEL::LN2)) ; ; note: doing float to pointer coercion (cost 13), for: ; the second argument of GENERIC-+ ; (SB!KERNEL::COERCE-TO-COMPLEX-TYPE ; (IF (AND (ZEROP SB!KERNEL::K) (< SB!KERNEL::T0 SB!KERNEL::BETA) ; (OR (<= SB!KERNEL::BETA SB!KERNEL::T1) ; (< SB!KERNEL::RHO SB!KERNEL::T2))) ; (/ (SB!KERNEL:%LOG1P (+ # #)) 2.0d0) ; (+ (/ (LOG SB!KERNEL::RHO) 2.0d0) ; (* (+ SB!KERNEL::K SB!KERNEL::J) SB!KERNEL::LN2))) ; (ATAN SB!KERNEL::Y SB!KERNEL::X) SB!KERNEL::Z) ; --> BLOCK IF ; ==> ; (COMPLEX SB!KERNEL::X SB!KERNEL::Y) ; ; note: doing float to pointer coercion (cost 13) ; ==> ; (COMPLEX (FLOAT SB!KERNEL::X 1.0) (FLOAT SB!KERNEL::Y 1.0)) ; ; note: doing float to pointer coercion (cost 13) ; ; note: doing float to pointer coercion (cost 13) ; (/ ; (SB!KERNEL:%LOG1P ; (+ (* (- SB!KERNEL::BETA 1.0d0) (+ SB!KERNEL::BETA 1.0d0)) ; (* SB!KERNEL::THETA SB!KERNEL::THETA))) ; 2.0d0) ; ==> ; (* SB!C::X 0.5d0) ; ; note: doing float to pointer coercion (cost 13) ; x-compiling (DEFUN COMPLEX-LOG ...) ; x-compiling (DEFUN COMPLEX-ATANH ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/irrat.lisp ; in: DEFUN COMPLEX-ATANH ; (SQRT SB!KERNEL::T1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The result is a (VALUES ; (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)) ; &OPTIONAL), not a (VALUES FLOAT &REST T). ; (SQRT (SQRT SB!KERNEL::T1)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)), not a SINGLE-FLOAT. ; The result is a (VALUES ; (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)) ; &OPTIONAL), not a (VALUES FLOAT &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)), not a DOUBLE-FLOAT. ; The result is a (VALUES ; (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)) ; &OPTIONAL), not a (VALUES FLOAT &REST T). ; (SQRT SB!KERNEL::T2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The result is a (VALUES ; (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)) ; &OPTIONAL), not a (VALUES FLOAT &REST T). ; (/ (SQRT (SQRT SB!KERNEL::T1)) (SQRT SB!KERNEL::T2)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)), not a (COMPLEX ; SINGLE-FLOAT). ; The second argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)), not a (COMPLEX ; SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)), not a (COMPLEX ; SINGLE-FLOAT). ; The second argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)), not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)), not a SINGLE-FLOAT. ; The second argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)), not a (COMPLEX ; SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)), not a (COMPLEX ; DOUBLE-FLOAT). ; The second argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)), not a (COMPLEX ; DOUBLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)), not a (COMPLEX ; DOUBLE-FLOAT). ; The second argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)), not a REAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)), not a DOUBLE-FLOAT. ; The second argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)), not a (COMPLEX ; DOUBLE-FLOAT). ; (LOG (/ (SQRT (SQRT SB!KERNEL::T1)) (SQRT SB!KERNEL::T2))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES ; (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)) ; &OPTIONAL), not a (VALUES FLOAT &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES ; (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)) ; &OPTIONAL), not a (VALUES FLOAT &REST T). ; (* SB!KERNEL::BETA SB!KERNEL::ETA) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR SINGLE-FLOAT (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT) ; DOUBLE-FLOAT), not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR SINGLE-FLOAT (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT) ; DOUBLE-FLOAT), not a (COMPLEX DOUBLE-FLOAT). ; (- (* SB!KERNEL::BETA SB!KERNEL::NU)) ; ==> ; (SB!KERNEL:%NEGATE (THE NUMBER (* SB!KERNEL::BETA SB!KERNEL::NU))) ; ; 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 ; Eliminate %negate/%negate of rationals ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (SB!KERNEL::COERCE-TO-COMPLEX-TYPE (* SB!KERNEL::BETA SB!KERNEL::ETA) ; (- (* SB!KERNEL::BETA SB!KERNEL::NU)) SB!KERNEL::Z) ; --> BLOCK IF TYPEP LET ; ==> ; (REALPART SB!KERNEL::Z) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR RATIONAL (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT) ; (COMPLEX RATIONAL)), not a (COMPLEX RATIONAL). ; (/ (SQRT (SQRT SB!KERNEL::T1)) (SQRT SB!KERNEL::T2)) ; ; note: forced to do static-fun Two-arg-/ (cost 53) ; unable to do inline float arithmetic (cost 12) because: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT ; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)), not a DOUBLE-FLOAT. ; The second argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT ; (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)), 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 12) because: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT ; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)), not a SINGLE-FLOAT. ; The second argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT ; (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)), not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; (* SB!KERNEL::BETA SB!KERNEL::ETA) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline float arithmetic (cost 3) because: ; The second argument is a (OR SINGLE-FLOAT (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT) DOUBLE-FLOAT), not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; (* SB!KERNEL::BETA SB!KERNEL::NU) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline float arithmetic (cost 3) because: ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; (- (* SB!KERNEL::BETA SB!KERNEL::NU)) ; ==> ; (SB!KERNEL:%NEGATE (THE NUMBER (* SB!KERNEL::BETA SB!KERNEL::NU))) ; ; note: forced to do GENERIC-NEGATE (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline float arithmetic (cost 1) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; (SB!KERNEL::COERCE-TO-COMPLEX-TYPE (* SB!KERNEL::BETA SB!KERNEL::ETA) ; (- (* SB!KERNEL::BETA SB!KERNEL::NU)) SB!KERNEL::Z) ; --> BLOCK IF TYPEP LET ; ==> ; (REALPART SB!KERNEL::Z) ; ; note: forced to do full call ; unable to do complex float realpart (cost 3) because: ; The first argument is a (OR RATIONAL (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX ; SINGLE-FLOAT). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). ; unable to do complex float realpart (cost 3) because: ; The first argument is a (OR RATIONAL (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX ; DOUBLE-FLOAT). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST ; T). ; --> BLOCK IF ; ==> ; (COMPLEX (FLOAT SB!KERNEL::X 1.0) (FLOAT SB!KERNEL::Y 1.0)) ; ; note: forced to do full call ; unable to do inline complex single-float creation (cost 5) because: ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). ; ==> ; (COMPLEX SB!KERNEL::X SB!KERNEL::Y) ; ; note: forced to do full call ; unable to do inline complex double-float creation (cost 5) because: ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; (SETF SB!KERNEL::ETA ; (LET* ((SB!KERNEL::X-BIGGER #) (SB!KERNEL::R #) (SB!KERNEL::D #)) ; (IF SB!KERNEL::X-BIGGER ; (/ # SB!KERNEL::D) ; (/ # SB!KERNEL::D)))) ; ==> ; (SETQ SB!KERNEL::ETA ; (LET* ((SB!KERNEL::X-BIGGER #) (SB!KERNEL::R #) (SB!KERNEL::D #)) ; (IF SB!KERNEL::X-BIGGER ; (/ # SB!KERNEL::D) ; (/ # SB!KERNEL::D)))) ; ; note: doing float to pointer coercion (cost 13) to ETA ; (* SB!KERNEL::BETA SB!KERNEL::NU) ; ; note: doing float to pointer coercion (cost 13) from NU, for: ; the second argument of GENERIC-* ; (SB!KERNEL::COERCE-TO-COMPLEX-TYPE (* SB!KERNEL::BETA SB!KERNEL::ETA) ; (- (* SB!KERNEL::BETA SB!KERNEL::NU)) SB!KERNEL::Z) ; --> BLOCK IF ; ==> ; (COMPLEX (FLOAT SB!KERNEL::X 1.0) (FLOAT SB!KERNEL::Y 1.0)) ; ; note: doing float to pointer coercion (cost 13) ; ; note: doing float to pointer coercion (cost 13) ; (SETF SB!KERNEL::ETA (* 0.25d0 (SB!KERNEL:%LOG1P (/ # #)))) ; ==> ; (SETQ SB!KERNEL::ETA (* 0.25d0 (SB!KERNEL:%LOG1P (/ # #)))) ; ; note: doing float to pointer coercion (cost 13) to ETA ; (SQRT SB!KERNEL::T1) ; ; note: doing float to pointer coercion (cost 13) ; (SQRT SB!KERNEL::T2) ; ; note: doing float to pointer coercion (cost 13) from T2 ; x-compiling (DEFUN COMPLEX-TANH ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/irrat.lisp ; in: DEFUN COMPLEX-TANH ; (SQRT (+ 1.0d0 (* SB!KERNEL::S SB!KERNEL::S))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The result is a (VALUES ; (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)) ; &OPTIONAL), not a (VALUES FLOAT &REST T). ; (/ SB!KERNEL::RHO SB!KERNEL::S) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)), not a (COMPLEX ; SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)), not a (COMPLEX ; DOUBLE-FLOAT). ; (SB!KERNEL::COERCE-TO-COMPLEX-TYPE (/ SB!KERNEL::RHO SB!KERNEL::S) ; (/ SB!KERNEL::TV) SB!KERNEL::Z) ; --> BLOCK IF TYPEP LET ; ==> ; (REALPART SB!KERNEL::Z) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR RATIONAL (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT) ; (COMPLEX RATIONAL)), not a (COMPLEX RATIONAL). ; (* SB!KERNEL::BETA SB!KERNEL::RHO SB!KERNEL::S) ; --> * ; ==> ; (* SB!KERNEL::BETA SB!KERNEL::RHO) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)), not a (COMPLEX ; SINGLE-FLOAT). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)), not a (COMPLEX ; DOUBLE-FLOAT). ; ==> ; (* (* SB!KERNEL::BETA SB!KERNEL::RHO) SB!KERNEL::S) ; ; 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). ; (/ (* SB!KERNEL::BETA SB!KERNEL::RHO SB!KERNEL::S) SB!KERNEL::DEN) ; ; 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). ; (SB!KERNEL::COERCE-TO-COMPLEX-TYPE ; (/ (* SB!KERNEL::BETA SB!KERNEL::RHO SB!KERNEL::S) SB!KERNEL::DEN) ; (/ SB!KERNEL::TV SB!KERNEL::DEN) SB!KERNEL::Z) ; --> BLOCK IF TYPEP LET ; ==> ; (REALPART SB!KERNEL::Z) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR RATIONAL (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT) ; (COMPLEX RATIONAL)), not a (COMPLEX RATIONAL). ; (SB!KERNEL::COERCE-TO-COMPLEX-TYPE (FLOAT-SIGN SB!KERNEL::X) ; (FLOAT-SIGN SB!KERNEL::Y) SB!KERNEL::Z) ; --> BLOCK IF TYPEP LET ; ==> ; (REALPART SB!KERNEL::Z) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR RATIONAL (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT) ; (COMPLEX RATIONAL)), not a (COMPLEX RATIONAL). ; ; note: forced to do full call ; unable to do complex float realpart (cost 3) because: ; The first argument is a (OR RATIONAL (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX ; SINGLE-FLOAT). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). ; unable to do complex float realpart (cost 3) because: ; The first argument is a (OR RATIONAL (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX ; DOUBLE-FLOAT). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST ; T). ; --> BLOCK IF ; ==> ; (COMPLEX (FLOAT SB!KERNEL::X 1.0) (FLOAT SB!KERNEL::Y 1.0)) ; ; note: forced to do full call ; unable to do inline complex single-float creation (cost 5) because: ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). ; ==> ; (COMPLEX SB!KERNEL::X SB!KERNEL::Y) ; ; note: forced to do full call ; unable to do inline complex double-float creation (cost 5) because: ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; (/ SB!KERNEL::RHO SB!KERNEL::S) ; ; note: forced to do static-fun Two-arg-/ (cost 53) ; unable to do inline float arithmetic (cost 12) because: ; The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT ; (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)), not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; (SB!KERNEL::COERCE-TO-COMPLEX-TYPE (/ SB!KERNEL::RHO SB!KERNEL::S) ; (/ SB!KERNEL::TV) SB!KERNEL::Z) ; --> BLOCK IF TYPEP LET ; ==> ; (REALPART SB!KERNEL::Z) ; ; note: forced to do full call ; unable to do complex float realpart (cost 3) because: ; The first argument is a (OR RATIONAL (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX ; SINGLE-FLOAT). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). ; unable to do complex float realpart (cost 3) because: ; The first argument is a (OR RATIONAL (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX ; DOUBLE-FLOAT). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST ; T). ; --> BLOCK IF ; ==> ; (COMPLEX (FLOAT SB!KERNEL::X 1.0) (FLOAT SB!KERNEL::Y 1.0)) ; ; note: forced to do full call ; unable to do inline complex single-float creation (cost 5) because: ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). ; ==> ; (COMPLEX SB!KERNEL::X SB!KERNEL::Y) ; ; note: forced to do full call ; unable to do inline complex double-float creation (cost 5) because: ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; (* SB!KERNEL::BETA SB!KERNEL::RHO SB!KERNEL::S) ; --> * ; ==> ; (* SB!KERNEL::BETA SB!KERNEL::RHO) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline float arithmetic (cost 3) because: ; The second argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT ; (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT)), not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; ==> ; (* (* SB!KERNEL::BETA SB!KERNEL::RHO) SB!KERNEL::S) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline float arithmetic (cost 3) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; (/ (* SB!KERNEL::BETA SB!KERNEL::RHO SB!KERNEL::S) SB!KERNEL::DEN) ; ; note: forced to do static-fun Two-arg-/ (cost 53) ; unable to do inline float arithmetic (cost 12) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; (SB!KERNEL::COERCE-TO-COMPLEX-TYPE ; (/ (* SB!KERNEL::BETA SB!KERNEL::RHO SB!KERNEL::S) SB!KERNEL::DEN) ; (/ SB!KERNEL::TV SB!KERNEL::DEN) SB!KERNEL::Z) ; --> BLOCK IF TYPEP LET ; ==> ; (REALPART SB!KERNEL::Z) ; ; note: forced to do full call ; unable to do complex float realpart (cost 3) because: ; The first argument is a (OR RATIONAL (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX ; SINGLE-FLOAT). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). ; unable to do complex float realpart (cost 3) because: ; The first argument is a (OR RATIONAL (COMPLEX SINGLE-FLOAT) ; (COMPLEX DOUBLE-FLOAT) (COMPLEX RATIONAL)), not a (COMPLEX ; DOUBLE-FLOAT). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST ; T). ; --> BLOCK IF ; ==> ; (COMPLEX (FLOAT SB!KERNEL::X 1.0) (FLOAT SB!KERNEL::Y 1.0)) ; ; note: forced to do full call ; unable to do inline complex single-float creation (cost 5) because: ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). ; ==> ; (COMPLEX SB!KERNEL::X SB!KERNEL::Y) ; ; note: forced to do full call ; unable to do inline complex double-float creation (cost 5) because: ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX DOUBLE-FLOAT) ; &REST T). ; (SINH SB!KERNEL::X) ; --> SB!KERNEL:%SINH BLOCK SB!ALIEN:ALIEN-FUNCALL ; --> SB!ALIEN-INTERNALS:INVOKE-WITH-SAVED-FP-AND-PC LAMBDA FUNCTION ; --> SB!ALIEN-INTERNALS:NATURALIZE LET ; --> SB!ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS PROGN ; ==> ; (SB!C:%ALIEN-FUNCALL ; (SB!ALIEN-INTERNALS:DEPORT FUNCTION ; '#) ; '# ; (SB!ALIEN-INTERNALS:DEPORT #:G19522 ; '#)) ; ; note: doing float to pointer coercion (cost 13) ; (SQRT (+ 1.0d0 (* SB!KERNEL::S SB!KERNEL::S))) ; ; note: doing float to pointer coercion (cost 13) ; (* SB!KERNEL::BETA SB!KERNEL::RHO SB!KERNEL::S) ; --> * ; ==> ; (* SB!KERNEL::BETA SB!KERNEL::RHO) ; ; note: doing float to pointer coercion (cost 13), for: ; the first argument of GENERIC-* ; (/ (* SB!KERNEL::BETA SB!KERNEL::RHO SB!KERNEL::S) SB!KERNEL::DEN) ; ; note: doing float to pointer coercion (cost 13), for: ; the second argument of static-fun Two-arg-/ ; (SB!KERNEL::COERCE-TO-COMPLEX-TYPE ; (/ (* SB!KERNEL::BETA SB!KERNEL::RHO SB!KERNEL::S) SB!KERNEL::DEN) ; (/ SB!KERNEL::TV SB!KERNEL::DEN) SB!KERNEL::Z) ; --> BLOCK IF ; ==> ; (COMPLEX SB!KERNEL::X SB!KERNEL::Y) ; ; note: doing float to pointer coercion (cost 13) ; ==> ; (COMPLEX (FLOAT SB!KERNEL::X 1.0) (FLOAT SB!KERNEL::Y 1.0)) ; ; note: doing float to pointer coercion (cost 13) ; ; note: doing float to pointer coercion (cost 13) ; (SB!KERNEL::COERCE-TO-COMPLEX-TYPE (/ SB!KERNEL::RHO SB!KERNEL::S) ; (/ SB!KERNEL::TV) SB!KERNEL::Z) ; --> BLOCK IF ; ==> ; (COMPLEX SB!KERNEL::X SB!KERNEL::Y) ; ; note: doing float to pointer coercion (cost 13) ; ==> ; (COMPLEX (FLOAT SB!KERNEL::X 1.0) (FLOAT SB!KERNEL::Y 1.0)) ; ; note: doing float to pointer coercion (cost 13) ; ; note: doing float to pointer coercion (cost 13) ; (SB!KERNEL::COERCE-TO-COMPLEX-TYPE (FLOAT-SIGN SB!KERNEL::X) ; (FLOAT-SIGN SB!KERNEL::Y) SB!KERNEL::Z) ; --> BLOCK IF ; ==> ; (COMPLEX SB!KERNEL::X SB!KERNEL::Y) ; ; note: doing float to pointer coercion (cost 13) ; ; note: doing float to pointer coercion (cost 13) ; ==> ; (COMPLEX (FLOAT SB!KERNEL::X 1.0) (FLOAT SB!KERNEL::Y 1.0)) ; ; note: doing float to pointer coercion (cost 13) ; ; note: doing float to pointer coercion (cost 13) ; x-compiling (DEFUN COMPLEX-ACOS ...) ; x-compiling (DEFUN COMPLEX-ACOSH ...) ; x-compiling (DEFUN COMPLEX-ASIN ...) ; x-compiling (DEFUN COMPLEX-ASINH ...) ; x-compiling (DEFUN COMPLEX-ATAN ...) ; x-compiling (DEFUN COMPLEX-TAN ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/irrat.lisp ; in: DEFUN PHASE ; (FLOAT-SIGN NUMBER) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN LOG ; (FLOAT-SIGN NUMBER) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; (DEFUN LOG (NUMBER &OPTIONAL (SB!KERNEL::BASE NIL SB!KERNEL::BASE-P)) ; "Return the logarithm of NUMBER in the base BASE, which defaults to e." ; (IF SB!KERNEL::BASE-P ; (COND ; ((ZEROP SB!KERNEL::BASE) ; (IF # ; 0.0d0 ; 0.0)) ; ((AND # #) (COERCE # 'SINGLE-FLOAT)) ((AND # #) (/ # #)) ; ((AND # #) (/ # #)) (T (/ # #))) ; (SB!KERNEL::NUMBER-DISPATCH ((NUMBER NUMBER)) ; ((#) ; (IF # ; # ; #)) ; ((RATIO) ; (IF # ; # ; #)) ; ((#) ; (IF # ; # ; #)) ; ((COMPLEX) (SB!KERNEL::COMPLEX-LOG NUMBER))))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (NUMBER SB!KERNEL::BASE SB!KERNEL::BASE-P) {C6F7131}> ; NUMBER SB!KERNEL::BASE T)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 18 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/irrat.lisp ; in: DEF-MATH-RTN "cosh" ; (SB!KERNEL::DEF-MATH-RTN "cosh" 1) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK ; ==> ; (SB!ALIEN:ALIEN-FUNCALL ; (SB!ALIEN:EXTERN-ALIEN "cosh" (FUNCTION DOUBLE-FLOAT DOUBLE-FLOAT)) ; SB!KERNEL::ARG0) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEF-MATH-RTN "asin" ; (SB!KERNEL::DEF-MATH-RTN "asin" 1) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK ; ==> ; (SB!ALIEN:ALIEN-FUNCALL ; (SB!ALIEN:EXTERN-ALIEN "asin" (FUNCTION DOUBLE-FLOAT DOUBLE-FLOAT)) ; SB!KERNEL::ARG0) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEF-MATH-RTN "acos" ; (SB!KERNEL::DEF-MATH-RTN "acos" 1) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK ; ==> ; (SB!ALIEN:ALIEN-FUNCALL ; (SB!ALIEN:EXTERN-ALIEN "acos" (FUNCTION DOUBLE-FLOAT DOUBLE-FLOAT)) ; SB!KERNEL::ARG0) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; ; caught STYLE-WARNING: ; 68 more uses of undefined type COMPILER-NOTE ; ; compilation unit finished ; Undefined types: ; CODE-DELETION-NOTE COMPILER-NOTE ; caught 8 STYLE-WARNING conditions ; printed 101 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/irrat.lisp-obj-tmp written ; compilation finished in 0:00:01.519 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/char.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEF!CONSTANT SB-XC:CHAR-CODE-LIMIT ...) ; x-compiling (DEF!CONSTANT BASE-CHAR-CODE-LIMIT ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/char.lisp-obj-tmp written ; compilation finished in 0:00:00.009 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/huffman.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFSTRUCT (HUFFMAN-NODE #) ...) ; x-compiling (DEFSTRUCT (HUFFMAN-PAIR # ...) ...) ; x-compiling (DEFUN HUFFMAN-WEIGHTS ...) ; x-compiling (DEFUN MAKE-HUFFMAN-TREE ...) ; x-compiling (DEFUN HUFFMAN-DECODE ...) ; x-compiling (DEFUN HUFFMAN-MATCH ...) ; x-compiling (DEFUN HUFFMAN-ENCODE ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/huffman.lisp ; in: DEFSTRUCT HUFFMAN-PAIR ; (DEFSTRUCT ; (SB!IMPL::HUFFMAN-PAIR (:INCLUDE SB!IMPL::HUFFMAN-NODE) ; (:CONSTRUCTOR SB!IMPL::MAKE-HUFFMAN-PAIR ; (SB!IMPL::LEFT SB!IMPL::RIGHT &AUX (SB!IMPL::KEY #) ; (SB!IMPL::WEIGHT #)))) ; SB!IMPL::LEFT ; SB!IMPL::RIGHT) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: DEFSTRUCT HUFFMAN-NODE ; (DEFSTRUCT ; (SB!IMPL::HUFFMAN-NODE ; (:CONSTRUCTOR SB!IMPL::MAKE-HUFFMAN-NODE ; (SB!IMPL::KEY SB!IMPL::WEIGHT))) ; SB!IMPL::KEY ; SB!IMPL::WEIGHT) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: DEFUN HUFFMAN-DECODE ; (CONCATENATE 'STRING SB!IMPL::NEXT (SB!IMPL::DECODE SB!IMPL::TREE)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN HUFFMAN-WEIGHTS ; (SORT SB!IMPL::ALIST #'STRING< :KEY #'SB!IMPL::HUFFMAN-NODE-KEY) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFSTRUCT HUFFMAN-PAIR ; (CONCATENATE 'STRING (SB!IMPL::HUFFMAN-NODE-KEY SB!IMPL::LEFT) ; (SB!IMPL::HUFFMAN-NODE-KEY SB!IMPL::RIGHT)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 2 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/huffman.lisp ; in: DEFUN HUFFMAN-DECODE ; (CONCATENATE 'STRING SB!IMPL::NEXT (SB!IMPL::DECODE SB!IMPL::TREE)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFSTRUCT HUFFMAN-PAIR ; (CONCATENATE 'STRING (SB!IMPL::HUFFMAN-NODE-KEY SB!IMPL::LEFT) ; (SB!IMPL::HUFFMAN-NODE-KEY SB!IMPL::RIGHT)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; ; compilation unit finished ; Undefined types: ; CODE-DELETION-NOTE COMPILER-NOTE ; Undefined function: ; SB!KERNEL::%TARGET-DEFSTRUCT ; caught 8 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/huffman.lisp-obj-tmp written ; compilation finished in 0:00:00.371 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-char.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DECLAIM (INLINE STANDARD-CHAR-P ...)) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-char.lisp ; in: ; DECLAIM (INLINE STANDARD-CHAR-P GRAPHIC-CHAR-P ALPHA-CHAR-P UPPER-CASE-P ...) ; (DECLAIM ; (INLINE STANDARD-CHAR-P GRAPHIC-CHAR-P ALPHA-CHAR-P UPPER-CASE-P ; LOWER-CASE-P BOTH-CASE-P ALPHANUMERICP CHAR-INT)) ; --> EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM ; '(INLINE STANDARD-CHAR-P GRAPHIC-CHAR-P ALPHA-CHAR-P UPPER-CASE-P ; LOWER-CASE-P BOTH-CASE-P ALPHANUMERICP CHAR-INT)) ; ; caught STYLE-WARNING: ; Proclaiming COMMON-LISP:ALPHANUMERICP to be INLINE, but 1 call to it was ; previously compiled. A declaration of NOTINLINE at the call site will eliminate ; this warning, as will proclaiming and defining the function before its first ; potential use. ; x-compiling (DECLAIM (MAYBE-INLINE DIGIT-CHAR-P)) ; x-compiling (DEFTYPE CHAR-CODE ...) ; x-compiling (DEFGLOBAL **UNICODE-CHARACTER-NAME-HUFFMAN-TREE** ...) ; x-compiling (DECLAIM (INLINE PACK-3-CODEPOINTS)) ; x-compiling (DEFUN PACK-3-CODEPOINTS ...) ; x-compiling (FROB) ; x-compiling (DEFPARAMETER *BASE-CHAR-NAME-ALIST* ...) ; x-compiling (DECLAIM (INLINE CLEAR-FLAG)) ; x-compiling (DEFUN CLEAR-FLAG ...) ; x-compiling (DEFCONSTANT +MISC-WIDTH+ ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN MISC-INDEX ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN UCD-GENERAL-CATEGORY ...) ; x-compiling (DEFUN UCD-DECIMAL-DIGIT ...) ; x-compiling (DEFUN CHAR-CODE ...) ; x-compiling (DEFUN CHAR-INT ...) ; x-compiling (DEFUN CODE-CHAR ...) ; x-compiling (DEFUN CHARACTER ...) ; x-compiling (DEFUN CHAR-NAME ...) ; x-compiling (DEFUN NAME-CHAR ...) ; x-compiling (DEFUN STANDARD-CHAR-P ...) ; x-compiling (DEFUN %STANDARD-CHAR-P ...) ; x-compiling (DEFUN GRAPHIC-CHAR-P ...) ; x-compiling (DEFUN ALPHA-CHAR-P ...) ; x-compiling (DECLAIM (INLINE BOTH-CASE-INDEX-P)) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-char.lisp ; in: DECLAIM (INLINE BOTH-CASE-INDEX-P) ; (DECLAIM (INLINE SB!IMPL::BOTH-CASE-INDEX-P)) ; --> EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE SB!IMPL::BOTH-CASE-INDEX-P)) ; ; caught STYLE-WARNING: ; Proclaiming SB!IMPL::BOTH-CASE-INDEX-P to be INLINE, but 2 calls to it were ; previously compiled. A declaration of NOTINLINE at the call sites will ; eliminate this warning, as will proclaiming and defining the function before ; its first potential use. ; x-compiling (DEFUN BOTH-CASE-INDEX-P ...) ; x-compiling (DEFUN BOTH-CASE-P ...) ; x-compiling (DEFUN UPPER-CASE-P ...) ; x-compiling (DEFUN LOWER-CASE-P ...) ; x-compiling (DEFUN DIGIT-CHAR-P ...) ; x-compiling (DEFUN ALPHANUMERICP ...) ; x-compiling (DECLAIM (INLINE CHAR-CASE-INFO)) ; x-compiling (DEFUN CHAR-CASE-INFO ...) ; x-compiling (DECLAIM (INLINE EQUAL-CHAR-CODE)) ; x-compiling (DEFUN EQUAL-CHAR-CODE ...) ; x-compiling (DEFUN TWO-ARG-CHAR-EQUAL ...) ; x-compiling (DEFUN CHAR-EQUAL-CONSTANT ...) ; x-compiling (DEFUN TWO-ARG-CHAR-NOT-EQUAL ...) ; x-compiling (DEF CHAR/= ...) ; x-compiling (DEF CHAR-NOT-EQUAL ...) ; x-compiling (DEFUN TWO-ARG-CHAR-LESSP ...) ; x-compiling (DEFUN TWO-ARG-CHAR-GREATERP ...) ; x-compiling (DEFUN TWO-ARG-CHAR-NOT-GREATERP ...) ; x-compiling (DEFUN TWO-ARG-CHAR-NOT-LESSP ...) ; x-compiling (DEF CHAR= ...) ; x-compiling (DEF CHAR< ...) ; x-compiling (DEF CHAR> ...) ; x-compiling (DEF CHAR<= ...) ; x-compiling (DEF CHAR>= ...) ; x-compiling (DEF CHAR-EQUAL ...) ; x-compiling (DEF CHAR-LESSP ...) ; x-compiling (DEF CHAR-GREATERP ...) ; x-compiling (DEF CHAR-NOT-GREATERP ...) ; x-compiling (DEF CHAR-NOT-LESSP ...) ; x-compiling (DEFUN CHAR-UPCASE ...) ; x-compiling (DEFUN CHAR-DOWNCASE ...) ; x-compiling (DEFUN DIGIT-CHAR ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-char.lisp ; in: ; MACROLET ((FROB NIL ; (FLET (# # # #) ; (LET # ; #)))) ; (SB!IMPL::FROB) ; --> PROGN PROGN SB!EXT:DEFGLOBAL PROGN LET LET ; ==> ; (SB!IMPL::%DEFGLOBAL 'SB!INT:**CHARACTER-MISC-DATABASE** ; (UNLESS #:BOUNDP ; (MAKE-ARRAY 0 :ELEMENT-TYPE '(UNSIGNED-BYTE 8))) ; #:BOUNDP 'NIL NIL (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: %DEFGLOBAL ; in: DEFGLOBAL **UNICODE-CHARACTER-NAME-HUFFMAN-TREE** ; (SB!EXT:DEFGLOBAL SB!INT:**UNICODE-CHARACTER-NAME-HUFFMAN-TREE** NIL) ; --> PROGN LET LET ; ==> ; (SB!IMPL::%DEFGLOBAL 'SB!INT:**UNICODE-CHARACTER-NAME-HUFFMAN-TREE** ; (UNLESS #:BOUNDP NIL) #:BOUNDP 'NIL NIL ; (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: %DEFGLOBAL ; in: DEFUN CHAR-NAME ; (ASSOC CHAR-CODE SB!IMPL::*BASE-CHAR-NAME-ALIST*) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: ; MACROLET ((FROB NIL ; (FLET (# # # #) ; (LET # ; #)))) ; (SB!IMPL::FROB) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK FLET LET* LABELS LOOP BLOCK LET LET LET LET LET ; --> SB!LOOP::LOOP-BODY TAGBODY SETF LET* MULTIPLE-VALUE-BIND LET FUNCALL ; --> SB!C::%FUNCALL (SETF AREF) SB!KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS ; --> SB!EXT:TRULY-THE ; ==> ; (SB!KERNEL:HAIRY-DATA-VECTOR-SET ARRAY ; (SB!KERNEL:%CHECK-BOUND ARRAY (ARRAY-DIMENSION ARRAY 0) SB!INT:INDEX) ; (THE T SB!C::NEW-VALUE)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN PACK-3-CODEPOINTS ; (DEFUN SB!INT:PACK-3-CODEPOINTS (FIRST &OPTIONAL (SECOND 0) (THIRD 0)) ; (DECLARE (TYPE (UNSIGNED-BYTE 21) FIRST SECOND THIRD)) ; (SB!C::MASK-SIGNED-FIELD 63 (LOGIOR FIRST (ASH SECOND 21) (ASH THIRD 42)))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (FIRST SECOND THIRD) {DDA9809}> ; FIRST SECOND '0)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 33 more uses of undefined type CODE-DELETION-NOTE ; ; compilation unit finished ; Undefined type: ; CODE-DELETION-NOTE ; Undefined function: ; %DEFGLOBAL ; caught 8 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/target-char.lisp-obj-tmp written ; compilation finished in 0:00:03.015 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-unicode.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!UNICODE") ; x-compiling (DEFPARAMETER **SPECIAL-NUMERICS** ...) ; x-compiling (DEFPARAMETER **BLOCK-RANGES** ...) ; x-compiling (UNICODE-PROPERTY-INIT) ; x-compiling (DEFUN REVERSE-UCD-INDICES ...) ; x-compiling (DEFUN ORDERED-RANGES-MEMBER ...) ; x-compiling (DEFUN ORDERED-RANGES-POSITION ...) ; x-compiling (DEFUN PROPLIST-P ...) ; x-compiling (DEFPARAMETER *GENERAL-CATEGORIES* ...) ; x-compiling (DEFPARAMETER *BIDI-CLASSES* ...) ; x-compiling (DEFPARAMETER *EAST-ASIAN-WIDTHS* ...) ; x-compiling (DEFPARAMETER *SCRIPTS* ...) ; x-compiling (DEFPARAMETER *BLOCKS* ...) ; x-compiling (DEFPARAMETER *LINE-BREAK-CLASSES* ...) ; x-compiling (DEFUN GENERAL-CATEGORY ...) ; x-compiling (DEFUN BIDI-CLASS ...) ; x-compiling (DEFUN COMBINING-CLASS ...) ; x-compiling (DEFUN DECIMAL-VALUE ...) ; x-compiling (DEFUN DIGIT-VALUE ...) ; x-compiling (DEFUN NUMERIC-VALUE ...) ; x-compiling (DEFUN MIRRORED-P ...) ; x-compiling (DEFUN BIDI-MIRRORING-GLYPH ...) ; x-compiling (DEFUN EAST-ASIAN-WIDTH ...) ; x-compiling (DEFUN SCRIPT ...) ; x-compiling (DEFUN CHAR-BLOCK ...) ; x-compiling (DEFUN UNICODE-1-NAME ...) ; x-compiling (DEFUN AGE ...) ; x-compiling (DEFUN HANGUL-SYLLABLE-TYPE ...) ; x-compiling (DEFUN LINE-BREAK-CLASS ...) ; x-compiling (DEFUN UPPERCASE-P ...) ; x-compiling (DEFUN LOWERCASE-P ...) ; x-compiling (DEFUN CASED-P ...) ; x-compiling (DEFUN CASE-IGNORABLE-P ...) ; x-compiling (DEFUN ALPHABETIC-P ...) ; x-compiling (DEFUN IDEOGRAPHIC-P ...) ; x-compiling (DEFUN MATH-P ...) ; x-compiling (DEFUN WHITESPACE-P ...) ; x-compiling (DEFUN HEX-DIGIT-P ...) ; x-compiling (DEFUN SOFT-DOTTED-P ...) ; x-compiling (DEFUN DEFAULT-IGNORABLE-P ...) ; x-compiling (DEFUN CHAR-DECOMPOSITION-INFO ...) ; x-compiling (DEFUN CHAR-DECOMPOSITION ...) ; x-compiling (DEFUN DECOMPOSE-CHAR ...) ; x-compiling (DEFUN DECOMPOSE-STRING ...) ; x-compiling (DEFUN COMPOSITION-HANGUL-SYLLABLE-TYPE ...) ; x-compiling (DEFUN PRIMARY-COMPOSITION ...) ; x-compiling (DEFUN LREF ...) ; x-compiling (DEFUN (SETF LREF) ...) ; x-compiling (DEFUN LLENGTH ...) ; x-compiling (DEFUN LSTRING ...) ; x-compiling (DEFUN LDELETE ...) ; x-compiling (DEFUN CANONICALLY-COMPOSE ...) ; x-compiling (DEFUN NORMALIZE-STRING ...) ; x-compiling (DEFUN NORMALIZED-P ...) ; x-compiling (DEFPARAMETER **SPECIAL-TITLECASES** ...) ; x-compiling (DEFPARAMETER **SPECIAL-CASEFOLDS** ...) ; x-compiling (DEFUN HAS-CASE-P ...) ; x-compiling (DEFUN CHAR-UPPERCASE ...) ; x-compiling (DEFUN CHAR-LOWERCASE ...) ; x-compiling (DEFUN CHAR-TITLECASE ...) ; x-compiling (DEFUN CHAR-FOLDCASE ...) ; x-compiling (DEFUN STRING-SOMETHINGCASE ...) ; x-compiling (DECLAIM (TYPE FUNCTION ...)) ; x-compiling (DEFUN GET-USER-LOCALE ...) ; x-compiling (DEFUN UPPERCASE ...) ; x-compiling (DEFUN LOWERCASE ...) ; x-compiling (DEFUN TITLECASE ...) ; x-compiling (DEFUN CASEFOLD ...) ; x-compiling (DEFVAR *OTHER-BREAK-SPECIAL-GRAPHEMES* ...) ; x-compiling (DEFUN GRAPHEME-BREAK-CLASS ...) ; x-compiling (DEFUN GRAPHEMES ...) ; x-compiling (DEFUN WORD-BREAK-CLASS ...) ; x-compiling (DEFMACRO FLATPUSH ...) ; x-compiling (DEFUN WORDS ...) ; x-compiling (DEFUN SENTENCE-BREAK-CLASS ...) ; x-compiling (DEFUN SENTENCE-PREBREAK ...) ; x-compiling (DEFUN SENTENCES ...) ; x-compiling (DEFUN LINE-PREBREAK ...) ; x-compiling (DEFUN LINE-BREAK-ANNOTATE ...) ; x-compiling (DEFUN BREAK-LIST-AT ...) ; x-compiling (DEFUN LINES ...) ; x-compiling (DEFPARAMETER **MAXIMUM-VARIABLE-PRIMARY-ELEMENT** ...) ; x-compiling (DEFUN UNPACK-COLLATION-KEY ...) ; x-compiling (DEFUN VARIABLE-P ...) ; x-compiling (DEFUN COLLATION-KEY ...) ; x-compiling (DEFUN SORT-KEY ...) ; x-compiling (DEFUN VECTOR< ...) ; x-compiling (DEFUN UNICODE= ...) ; x-compiling (DEFUN UNICODE-EQUAL ...) ; x-compiling (DEFUN UNICODE< ...) ; x-compiling (DEFUN UNICODE<= ...) ; x-compiling (DEFUN UNICODE> ...) ; x-compiling (DEFUN UNICODE>= ...) ; x-compiling (DEFUN CANONICALLY-DECONFUSE ...) ; x-compiling (DEFUN CONFUSABLE-P ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-unicode.lisp ; in: ; MACROLET ((UNICODE-PROPERTY-INIT NIL ; (LET (# # #) ; (QUASIQUOTE #)))) ; (SB!UNICODE::UNICODE-PROPERTY-INIT) ; --> PROGN SB!EXT:DEFGLOBAL PROGN LET LET ; ==> ; (SB!IMPL::%DEFGLOBAL 'SB!UNICODE::**PROPLIST-PROPERTIES** ; (UNLESS #:BOUNDP ; '(:WHITE-SPACE ; #(9 13 32 32 133 133 160 160 5760 5760 8192 8202 ; ...) ; :BIDI-CONTROL ; #(1564 1564 8206 8207 8234 8238 8294 8297) ; :JOIN-CONTROL #(8204 8205) :DASH ; #(45 45 1418 1418 1470 1470 5120 5120 6150 6150 8208 ; 8213 ...) ; :HYPHEN ; #(45 45 173 173 1418 1418 6150 6150 8208 8209 11799 ; 11799 ...) ; :QUOTATION-MARK ; #(34 34 39 39 171 171 187 187 8216 8216 8217 8217 ; ...) ; ...)) ; #:BOUNDP 'NIL NIL (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::%DEFGLOBAL ; in: DEFUN HANGUL-SYLLABLE-TYPE ; (REM (- SB!UNICODE::CP 44032) 28) ; ; caught STYLE-WARNING: ; undefined type: SB!EXT:CODE-DELETION-NOTE ; in: DEFUN NUMERIC-VALUE ; (ASSOC (CHAR-CODE CHARACTER) SB!UNICODE::**SPECIAL-NUMERICS**) ; ; caught STYLE-WARNING: ; undefined type: SB!EXT:CODE-DELETION-NOTE ; in: ; MACROLET ((UNICODE-PROPERTY-INIT NIL ; (LET (# # #) ; (QUASIQUOTE #)))) ; (SB!UNICODE::UNICODE-PROPERTY-INIT) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK LET LOOP BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY ; --> SB!LOOP::LOOP-REALLY-DESETQ SETQ THE MAPCAR LET ; --> SB!KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION MAP SB!EXT:TRULY-THE ; ==> ; (SB!KERNEL:%MAP SB!C::RESULT-TYPE-ARG SB!C::FUN #:G8) ; ; caught STYLE-WARNING: ; undefined type: SB!EXT:CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 564 more uses of undefined type SB!EXT:CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-unicode.lisp ; in: DEFUN CHAR-UPPERCASE ; (MAPCAR #'CODE-CHAR SB!UNICODE::CP) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: SB!EXT:COMPILER-NOTE ; in: DEFUN LDELETE ; (MAPCAR ; (LAMBDA (SB!UNICODE::X) ; (LIST (1- (FIRST SB!UNICODE::X)) (1- (SECOND SB!UNICODE::X)) ; (THIRD SB!UNICODE::X))) ; (CDR SB!UNICODE::LS)) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: SB!EXT:COMPILER-NOTE ; in: ; MACROLET ((UNICODE-PROPERTY-INIT NIL ; (LET (# # #) ; (QUASIQUOTE #)))) ; (SB!UNICODE::UNICODE-PROPERTY-INIT) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK LET LOOP BLOCK LET LET SB!LOOP::LOOP-BODY TAGBODY ; --> SB!LOOP::LOOP-REALLY-DESETQ SETQ THE MAPCAR LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: SB!EXT:COMPILER-NOTE ; ; caught STYLE-WARNING: ; 394 more uses of undefined type SB!EXT:COMPILER-NOTE ; ; compilation unit finished ; Undefined types: ; SB!EXT:CODE-DELETION-NOTE SB!EXT:COMPILER-NOTE ; Undefined function: ; SB!IMPL::%DEFGLOBAL ; caught 9 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/target-unicode.lisp-obj-tmp written ; compilation finished in 0:00:02.006 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-misc.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFUN %FUN-FUN ...) ; x-compiling (DEFUN %FUN-LAMBDA-LIST ...) ; x-compiling (DEFUN (SETF %FUN-LAMBDA-LIST) ...) ; x-compiling (DEFUN %FUN-TYPE ...) ; x-compiling (DEFGLOBAL *CLOSURE-NAME-MARKER* ...) ; x-compiling (DEFUN CLOSURE-NAME ...) ; x-compiling (DEFUN NAMEIFY-CLOSURE ...) ; x-compiling (DEFUN SET-CLOSURE-NAME ...) ; x-compiling (DEFUN %FUN-NAME ...) ; x-compiling (DEFUN (SETF %FUN-NAME) ...) ; x-compiling (DEFUN %FUN-DOC ...) ; x-compiling (DEFUN (SETF %FUN-DOC) ...) ; x-compiling (DEFVAR *FEATURES* ...) ; x-compiling (DEFUN MACHINE-INSTANCE ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-misc.lisp ; in: DEFUN MACHINE-INSTANCE ; (DEFUN MACHINE-INSTANCE () ; "Return a string giving the name of the local machine." ; (SB!UNIX:UNIX-GETHOSTNAME)) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; ==> ; #'(SB!INT:NAMED-LAMBDA MACHINE-INSTANCE ; NIL ; (BLOCK MACHINE-INSTANCE (SB!UNIX:UNIX-GETHOSTNAME))) ; ; note: type assertion too complex to check: ; (VALUES ; (OR (SIMPLE-ARRAY CHARACTER (*)) (SIMPLE-ARRAY NIL (*)) SIMPLE-BASE-STRING ; NULL) ; &OPTIONAL). ; x-compiling (DEFVAR *MACHINE-VERSION*) ; x-compiling (DEFUN MACHINE-VERSION ...) ; x-compiling (DEFVAR *SHORT-SITE-NAME* ...) ; x-compiling (DEFVAR *LONG-SITE-NAME* ...) ; x-compiling (DEFUN SHORT-SITE-NAME ...) ; x-compiling (DEFUN LONG-SITE-NAME ...) ; x-compiling (DEFVAR *ED-FUNCTIONS* ...) ; x-compiling (DEFUN ED ...) ; x-compiling (DEFVAR *PREVIOUS-DRIBBLE-STREAMS* ...) ; x-compiling (DEFVAR *DRIBBLE-STREAM* ...) ; x-compiling (DEFUN DRIBBLE ...) ; x-compiling (DEFUN %BYTE-BLT ...) /entering WITH-ALIEN BINDINGS=((MEMMOVE (FUNCTION VOID (* CHAR) (* CHAR) UNSIGNED-INT) :EXTERN "memmove")) /BINDING=(MEMMOVE (FUNCTION VOID (* CHAR) (* CHAR) UNSIGNED-INT) :EXTERN "memmove") /SYMBOL=MEMMOVE TYPE=(FUNCTION VOID (* CHAR) (* CHAR) UNSIGNED-INT) OPT1=:EXTERN OPT2="memmove" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="memmove" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((MEMMOVE #)) (ALIEN-FUNCALL MEMMOVE DEST SRC N) (VALUES NIL))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; x-compiling (DEFVAR *LOAD-PRINT* ...) ; x-compiling (DEFVAR *LOAD-VERBOSE* ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-misc.lisp ; in: DEFGLOBAL *CLOSURE-NAME-MARKER* ; (SB!EXT:DEFGLOBAL SB!IMPL::*CLOSURE-NAME-MARKER* ; (MAKE-SYMBOL ".CLOSURE-NAME.")) ; --> PROGN LET LET ; ==> ; (SB!IMPL::%DEFGLOBAL 'SB!IMPL::*CLOSURE-NAME-MARKER* ; (UNLESS #:BOUNDP (MAKE-SYMBOL ".CLOSURE-NAME.")) ; #:BOUNDP 'NIL NIL (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: %DEFGLOBAL ; in: DEFUN %FUN-NAME ; (TYPECASE FUNCTION ; (SB!EVAL:INTERPRETED-FUNCTION ; (SB!EVAL:INTERPRETED-FUNCTION-DEBUG-NAME FUNCTION)) ; (T ; (LET (SB!IMPL::NAME SB!IMPL::NAMEDP) ; (IF (AND # #) ; SB!IMPL::NAME ; (SB!KERNEL:%SIMPLE-FUN-NAME #))))) ; --> LET COND IF TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT21804 'SB!EVAL:INTERPRETED-FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: %FUNCALLABLE-INSTANCE-LAYOUT ; in: DEFUN (SETF %FUN-LAMBDA-LIST) ; (TYPECASE FUNCTION ; (SB!EVAL:INTERPRETED-FUNCTION ; (SETF (SB!EVAL:INTERPRETED-FUNCTION-DEBUG-LAMBDA-LIST FUNCTION) ; SB!IMPL::NEW-VALUE)) ; ((OR SB!KERNEL:SIMPLE-FUN SB!KERNEL:CLOSURE) ; (SETF (SB!KERNEL:%SIMPLE-FUN-ARGLIST #) SB!IMPL::NEW-VALUE))) ; --> LET COND IF TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT21778 'SB!EVAL:INTERPRETED-FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: %FUNCALLABLE-INSTANCE-LAYOUT ; in: DEFUN %FUN-LAMBDA-LIST ; (TYPECASE FUNCTION ; (SB!EVAL:INTERPRETED-FUNCTION ; (SB!EVAL:INTERPRETED-FUNCTION-DEBUG-LAMBDA-LIST FUNCTION)) ; (T (SB!KERNEL:%SIMPLE-FUN-ARGLIST (SB!KERNEL:%FUN-FUN FUNCTION)))) ; --> LET COND IF TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT21774 'SB!EVAL:INTERPRETED-FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: %FUNCALLABLE-INSTANCE-LAYOUT ; ; caught STYLE-WARNING: ; 4 more uses of undefined function %FUNCALLABLE-INSTANCE-LAYOUT ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-misc.lisp ; in: DEFUN (SETF %FUN-LAMBDA-LIST) ; (SETF (SB!EVAL:INTERPRETED-FUNCTION-DEBUG-LAMBDA-LIST FUNCTION) ; SB!IMPL::NEW-VALUE) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!EVAL:INTERPRETED-FUNCTION-DEBUG-LAMBDA-LIST) ; #:NEW2 #:FUNCTION3) ; ; caught STYLE-WARNING: ; undefined function: (SETF SB!EVAL:INTERPRETED-FUNCTION-DEBUG-LAMBDA-LIST) ; in: DEFUN (SETF %FUN-NAME) ; (SETF (SB!EVAL:INTERPRETED-FUNCTION-DEBUG-NAME FUNCTION) SB!IMPL::NEW-VALUE) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!EVAL:INTERPRETED-FUNCTION-DEBUG-NAME) #:NEW50 ; #:FUNCTION51) ; ; caught STYLE-WARNING: ; undefined function: (SETF SB!EVAL:INTERPRETED-FUNCTION-DEBUG-NAME) ; in: DEFUN (SETF %FUN-DOC) ; (SETF (SB!EVAL:INTERPRETED-FUNCTION-DOCUMENTATION FUNCTION) ; SB!IMPL::NEW-VALUE) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!EVAL:INTERPRETED-FUNCTION-DOCUMENTATION) #:NEW63 ; #:FUNCTION64) ; ; caught STYLE-WARNING: ; undefined function: (SETF SB!EVAL:INTERPRETED-FUNCTION-DOCUMENTATION) ; in: DEFUN (SETF %FUN-NAME) ; (NTH-VALUE 1 (SB!IMPL::CLOSURE-NAME FUNCTION)) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:G53 #:KEEPER54 #:G55) {EED5E91}> ; #:G53 #:KEEPER54 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN %FUN-NAME ; (MULTIPLE-VALUE-SETQ (SB!IMPL::NAME SB!IMPL::NAMEDP) ; (SB!IMPL::CLOSURE-NAME FUNCTION)) ; --> VALUES PROG1 LET SETF LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:NEW42 #:NEW43 #:G44) {EE7EEC9}> ; #:NEW42 #:NEW43 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN SET-CLOSURE-NAME ; (NTH-VALUE 1 (SB!IMPL::CLOSURE-NAME SB!KERNEL:CLOSURE)) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:G29 #:KEEPER30 #:G31) {EE2FC71}> ; #:G29 #:KEEPER30 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 6 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-misc.lisp ; in: DEFUN %BYTE-BLT ; (SB!KERNEL:%BYTE-BLT SB!IMPL::SRC SB!IMPL::SRC-START SB!IMPL::DST ; SB!IMPL::DST-START SB!IMPL::DST-END) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN SET-CLOSURE-NAME ; (SB!SYS:WITH-PINNED-OBJECTS (SB!KERNEL:CLOSURE) ; (SETF (SB!SYS:SAP-REF-LISPOBJ (SB!SYS:INT-SAP #) (+ # #)) ; SB!IMPL::NEW-NAME)) ; ==> ; (FLET ((#:WITH-PINNED-OBJECTS-THUNK21797 () ; (PROGN (SETF #)))) ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) ; (SB!INT:DX-LET ((#:G34 SB!KERNEL:CLOSURE)) ; (MULTIPLE-VALUE-PROG1 (#:WITH-PINNED-OBJECTS-THUNK21797) ; (SB!VM::TOUCH-OBJECT #:G34)))) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN NAMEIFY-CLOSURE ; (SB!SYS:WITH-PINNED-OBJECTS (SB!KERNEL:CLOSURE SB!IMPL::COPY) ; (SETF (SB!SYS:SAP-REF-WORD (SB!SYS:INT-SAP #) (- SB!VM:FUN-POINTER-LOWTAG)) ; (LOGIOR (ASH # 8) SB!VM:CLOSURE-HEADER-WIDETAG)) ; (MACROLET ((SB!EXT:WORD (SB!IMPL::OBJ SB!INT:INDEX) ; (SB!INT:QUASIQUOTE #))) ; (LOOP SB!IMPL::FOR SB!IMPL::I SB!IMPL::FROM 1 SB!IMPL::TO SB!IMPL::PHYSICAL-LEN ; DO (SETF # #)) ; (SETF (SB!EXT:WORD SB!IMPL::COPY #) ; (LOAD-TIME-VALUE SB!IMPL::*CLOSURE-NAME-MARKER* T)))) ; ==> ; (FLET ((#:WITH-PINNED-OBJECTS-THUNK21789 () ; (PROGN ; (SETF #) ; (MACROLET # ; # ; #)))) ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) ; (SB!INT:DX-LET ((#:G12 SB!KERNEL:CLOSURE) (#:G13 SB!IMPL::COPY)) ; (MULTIPLE-VALUE-PROG1 (#:WITH-PINNED-OBJECTS-THUNK21789) ; (SB!VM::TOUCH-OBJECT #:G12) ; (SB!VM::TOUCH-OBJECT #:G13)))) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN %FUN-LAMBDA-LIST ; (SB!EVAL:INTERPRETED-FUNCTION-DEBUG-LAMBDA-LIST FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: SB!EVAL:INTERPRETED-FUNCTION-DEBUG-LAMBDA-LIST ; in: DEFUN %FUN-NAME ; (SB!EVAL:INTERPRETED-FUNCTION-DEBUG-NAME FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: SB!EVAL:INTERPRETED-FUNCTION-DEBUG-NAME ; in: DEFUN %FUN-DOC ; (SB!EVAL:INTERPRETED-FUNCTION-DOCUMENTATION FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: SB!EVAL:INTERPRETED-FUNCTION-DOCUMENTATION ; in: DEFUN DRIBBLE ; (SETF *STANDARD-INPUT* (SECOND SB!IMPL::OLD-STREAMS)) ; --> SETQ THE MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT21883 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-INVALID ; ; caught STYLE-WARNING: ; undefined function: UPDATE-OBJECT-LAYOUT-OR-INVALID ; ; compilation unit finished ; Undefined types: ; CODE-DELETION-NOTE COMPILER-NOTE ; Undefined functions: ; %DEFGLOBAL %FUNCALLABLE-INSTANCE-LAYOUT (SETF SB!EVAL:INTERPRETED-FUNCTION-DEBUG-LAMBDA-LIST) (SETF SB!EVAL:INTERPRETED-FUNCTION-DEBUG-NAME) (SETF SB!EVAL:INTERPRETED-FUNCTION-DOCUMENTATION) SB!EVAL:INTERPRETED-FUNCTION-DEBUG-LAMBDA-LIST SB!EVAL:INTERPRETED-FUNCTION-DEBUG-NAME SB!EVAL:INTERPRETED-FUNCTION-DOCUMENTATION LAYOUT-INVALID UPDATE-OBJECT-LAYOUT-OR-INVALID ; caught 20 STYLE-WARNING conditions ; printed 1 note ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/target-misc.lisp-obj-tmp written ; compilation finished in 0:00:00.146 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/misc.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFUN SB-XC:LISP-IMPLEMENTATION-TYPE ...) ; x-compiling (DEFUN SB-XC:LISP-IMPLEMENTATION-VERSION ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/misc.lisp-obj-tmp written ; compilation finished in 0:00:00.006 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/room.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEF!STRUCT (ROOM-INFO #) ...) ; x-compiling (DEFUN ROOM-INFO-TYPE-NAME ...) ; x-compiling (DEFPARAMETER *ROOM-INFO* ...) ; x-compiling (DEFTYPE SPACES ...) ; x-compiling (DECLAIM (TYPE FIXNUM ...)) ; x-compiling (DEFUN SPACE-BOUNDS ...) ; x-compiling (DEFUN SPACE-BYTES ...) ; x-compiling (DECLAIM (INLINE ROUND-TO-DUALWORD)) ; x-compiling (DEFUN ROUND-TO-DUALWORD ...) ; x-compiling (DEFUN RECONSTITUTE-VECTOR ...) ; x-compiling (DEFUN RECONSTITUTE-OBJECT ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/room.lisp ; in: DEFUN RECONSTITUTE-OBJECT ; (ERROR "Unrecognized room-info-kind ~S in reconstitute-object" ; (SB!VM::ROOM-INFO-KIND SB!INT:INFO)) ; ==> ; "Unrecognized room-info-kind ~S in reconstitute-object" ; ; note: deleting unreachable code ; x-compiling (DEFUN MAP-OBJECTS-IN-RANGE ...) ; x-compiling (DEFINE-ALIEN-TYPE (STRUCT PAGE) ...) ; x-compiling (DECLAIM (INLINE FIND-PAGE-INDEX)) ; x-compiling (DEFINE-ALIEN-ROUTINE "find_page_index" ...) /entering WITH-ALIEN BINDINGS=((FIND-PAGE-INDEX (FUNCTION LONG SIGNED) :EXTERN "find_page_index")) /BINDING=(FIND-PAGE-INDEX (FUNCTION LONG SIGNED) :EXTERN "find_page_index") /SYMBOL=FIND-PAGE-INDEX TYPE=(FUNCTION LONG SIGNED) OPT1=:EXTERN OPT2="find_page_index" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="find_page_index" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((FIND-PAGE-INDEX #)) (VALUES (ALIEN-FUNCALL FIND-PAGE-INDEX INDEX)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; x-compiling (DEFINE-ALIEN-VARIABLE "last_free_page" ...) ; x-compiling (DEFINE-ALIEN-VARIABLE "heap_base" ...) ; x-compiling (DEFINE-ALIEN-VARIABLE "page_table" ...) ; x-compiling (DECLAIM (MAYBE-INLINE MAP-ALLOCATED-OBJECTS)) ; x-compiling (DEFUN MAP-ALLOCATED-OBJECTS ...) ; x-compiling (DEFUN TYPE-BREAKDOWN ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/room.lisp ; in: DEFUN TYPE-BREAKDOWN ; (INCF (AREF SB!VM::SIZES TYPE) SB!VM::SIZE) ; --> LET* ; ==> ; (+ (AREF #:SIZES475 #:TYPE474) #:G22156) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM. ; The second argument is a (UNSIGNED-BYTE 32), not a FIXNUM. ; The result is a (VALUES (MOD 8589934591) &OPTIONAL), not a (VALUES FIXNUM ; &REST ; T). ; unable to do inline (signed-byte 32) arithmetic (cost 5) because: ; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32). ; The second argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32). ; The result is a (VALUES (MOD 8589934591) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 32) ; &REST T). ; etc. ; (INCF (AREF SB!VM::COUNTS TYPE)) ; --> LET* ; ==> ; (+ (AREF #:COUNTS478 #:TYPE477) #:G22157) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM. ; The result is a (VALUES (INTEGER 1 4294967296) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM. ; The result is a (VALUES (INTEGER 1 4294967296) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST T). ; etc. ; (INCF (AREF SB!VM::SIZES TYPE) SB!VM::SIZE) ; --> LET* ; ==> ; (+ (AREF #:SIZES475 #:TYPE474) #:G22156) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first argument of GENERIC-+ ; (INCF (AREF SB!VM::COUNTS TYPE)) ; --> LET* ; ==> ; (+ (AREF #:COUNTS478 #:TYPE477) #:G22157) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first argument of GENERIC-+ ; --> LET* FUNCALL SB!C::%FUNCALL (SETF AREF) ; --> SB!KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS SB!EXT:TRULY-THE ; --> SB!KERNEL:HAIRY-DATA-VECTOR-SET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; #'(LAMBDA (&OPTIONAL (ARRAY) (SB!INT:INDEX) &REST #:G512) ; (DECLARE (IGNORE #:G512)) ; (DECLARE (TYPE (SIMPLE-ARRAY (UNSIGNED-BYTE 32) 1) ARRAY) ; (TYPE (UNSIGNED-BYTE 32) SB!C::NEW-VALUE)) ; (SB!KERNEL:DATA-VECTOR-SET ARRAY SB!INT:INDEX SB!C::NEW-VALUE)) ; ; note: doing unsigned word to integer coercion (cost 20) to "" ; x-compiling (DEFUN PRINT-SUMMARY ...) ; x-compiling (DEFUN REPORT-SPACE-TOTAL ...) ; x-compiling (DEFUN MEMORY-USAGE ...) ; x-compiling (DEFUN INSTANCE-USAGE ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/room.lisp ; in: DEFUN INSTANCE-USAGE ; (INCF SB!VM::TOTAL-OBJECTS) ; --> LET* ; ==> ; (+ SB!VM::TOTAL-OBJECTS #:G22309) ; ; 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 1) &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 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; (INCF SB!VM::TOTAL-BYTES SB!VM::SIZE) ; --> LET* ; ==> ; (+ SB!VM::TOTAL-BYTES #:G22310) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER -536870912) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline (signed-byte 32) arithmetic (cost 5) because: ; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32). ; The result is a (VALUES (INTEGER -536870912) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> LET* SETQ THE MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET ; --> SB!C::%TYPEP-WRAPPER LET OR LET IF OR LET IF OR THE TYPEP LET ; --> SB!C::%TYPEP-WRAPPER LET AND IF AND THE LOCALLY AND THE >= IF ; ==> ; (< SB!C::X SB!C::Y) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a (INTEGER -536870912), not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -536870912), not a FIXNUM. ; etc. ; (INCF (THE FIXNUM (CAR SB!VM::FOUND))) ; --> LET* MULTIPLE-VALUE-BIND LET ; ==> ; (THE FIXNUM (VALUES #:NEW628)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; (INCF (THE FIXNUM (CDR SB!VM::FOUND)) SB!VM::SIZE) ; --> LET* MULTIPLE-VALUE-BIND LET ; ==> ; (THE FIXNUM (VALUES #:NEW630)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; x-compiling (DEFUN PRINT-ALLOCATED-OBJECTS ...) ; x-compiling (DEFVAR *IGNORE-AFTER* ...) ; x-compiling (DEFUN VALID-OBJ ...) ; x-compiling (DEFUN MAYBE-CONS ...) ; x-compiling (DEFUN LIST-ALLOCATED-OBJECTS ...) ; x-compiling (DEFUN MAP-STACK-REFERENCES ...) ; x-compiling (DEFUN MAP-REFERENCING-OBJECTS ...) ; x-compiling (DEFUN LIST-REFERENCING-OBJECTS ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/room.lisp ; in: DEFINE-ALIEN-TYPE (STRUCT PAGE) ; (SB!ALIEN:DEFINE-ALIEN-TYPE (SB!ALIEN:STRUCT SB!VM::PAGE) ; (SB!ALIEN:STRUCT SB!VM::PAGE ; (SB!VM::START SB!ALIEN:SIGNED) ; (SB!VM::BYTES-USED (SB!ALIEN:UNSIGNED 16)) ; (SB!VM::FLAGS (SB!ALIEN:UNSIGNED 8)) ; (SB!VM::HAS-DONTMOVE-DWORDS ; (SB!ALIEN:UNSIGNED 8)) ; (SB!VM::GEN (SB!ALIEN:SIGNED 8)))) ; --> SYMBOL-MACROLET EVAL-WHEN SB!ALIEN::%DEF-AUXILIARY-ALIEN-TYPES ; ==> ; (SB!ALIEN::%DEF-AUXILIARY-ALIEN-TYPES ; '((:STRUCT SB!VM::PAGE ; #))) ; ; caught STYLE-WARNING: ; undefined function: SB!ALIEN::%DEF-AUXILIARY-ALIEN-TYPES ; --> SYMBOL-MACROLET EVAL-WHEN SB!ALIEN::%DEFINE-ALIEN-TYPE ; ==> ; (SB!ALIEN::%DEFINE-ALIEN-TYPE '(SB!ALIEN:STRUCT SB!VM::PAGE) ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!ALIEN::%DEFINE-ALIEN-TYPE ; in: DEFUN PRINT-ALLOCATED-OBJECTS ; (DEFUN SB!VM:PRINT-ALLOCATED-OBJECTS ; (SPACE ; &KEY (SB!VM::PERCENT 0) (SB!VM::PAGES 5) TYPE SB!VM::LARGER ; SB!VM::SMALLER COUNT (STREAM *STANDARD-OUTPUT*)) ; (DECLARE (TYPE (INTEGER 0 99) SB!VM::PERCENT) ; (TYPE SB!INT:INDEX SB!VM::PAGES) ; (TYPE STREAM STREAM) ; (TYPE SB!VM::SPACES SPACE) ; (TYPE (OR SB!INT:INDEX NULL) TYPE SB!VM::LARGER SB!VM::SMALLER ; COUNT)) ; (MULTIPLE-VALUE-BIND (SB!VM::START-SAP SB!VM::END-SAP) ; (SB!VM::SPACE-BOUNDS SPACE) ; (LET* ((SB!VM::SPACE-START #) ; (SB!VM::SPACE-END #) ; (SB!VM::SPACE-SIZE #) ; (SB!VM::PAGESIZE #) ; (SB!VM::START #) ; (SB!VM::PRINTED-CONSES #) ; (SB!VM::PAGES-SO-FAR 0) ; (SB!VM::COUNT-SO-FAR 0) ; (SB!VM::LAST-PAGE 0)) ; (DECLARE (TYPE # SB!VM::LAST-PAGE SB!VM::START) ; (FIXNUM SB!VM::PAGES-SO-FAR SB!VM::COUNT-SO-FAR ; SB!VM::PAGESIZE)) ; (LABELS (#) ; (SB!VM::MAP-ALLOCATED-OBJECTS # SPACE)))) ; (VALUES)) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; --> MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT22422 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: %FUNCALLABLE-INSTANCE-LAYOUT ; in: DEF!STRUCT (ROOM-INFO (:MAKE-LOAD-FORM-FUN JUST-DUMP-IT-NORMALLY)) ; (SB!INT:DEF!STRUCT ; (SB!VM::ROOM-INFO (:MAKE-LOAD-FORM-FUN SB!KERNEL:JUST-DUMP-IT-NORMALLY)) ; (SB!VM::NAME NIL :TYPE SYMBOL) ; (SB!VM::KIND (SB!INT:MISSING-ARG) :TYPE ; (MEMBER :OTHER :SMALL-OTHER :CLOSURE :INSTANCE :LIST :CODE :VECTOR-NIL ; :WEAK-POINTER))) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: DEFUN INSTANCE-USAGE ; (SB!KERNEL:CLASSOID-PROPER-NAME SB!KERNEL:CLASSOID) ; ; caught STYLE-WARNING: ; undefined function: CLASSOID-PROPER-NAME ; in: DEFUN SPACE-BYTES ; (MULTIPLE-VALUE-BIND (SB!VM::START SB!VM::END) ; (SB!VM::SPACE-BOUNDS SPACE) ; (- (SB!SYS:SAP-INT SB!VM::END) (SB!SYS:SAP-INT SB!VM::START))) ; --> MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!VM::START SB!VM::END #:G393) {BEFE871}> ; SB!VM::START SB!VM::END NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN SPACE-BOUNDS ; (DEFUN SB!VM::SPACE-BOUNDS (SPACE) ; (DECLARE (TYPE SB!VM::SPACES SPACE)) ; (ECASE SPACE ; (:STATIC ; (VALUES (SB!SYS:INT-SAP SB!VM:STATIC-SPACE-START) (SB!SYS:INT-SAP #))) ; (:READ-ONLY ; (VALUES (SB!SYS:INT-SAP SB!VM:READ-ONLY-SPACE-START) ; (SB!SYS:INT-SAP #))) ; (:DYNAMIC ; (VALUES (SB!SYS:INT-SAP #) (SB!KERNEL:DYNAMIC-SPACE-FREE-POINTER))))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; --> SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET ; --> SB!C::%TYPEP-WRAPPER IF ; ==> ; (MEMBER #:OBJECT22098 '(:READ-ONLY :DYNAMIC :STATIC)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEF!STRUCT (ROOM-INFO (:MAKE-LOAD-FORM-FUN JUST-DUMP-IT-NORMALLY)) ; (SB!INT:DEF!STRUCT ; (SB!VM::ROOM-INFO (:MAKE-LOAD-FORM-FUN SB!KERNEL:JUST-DUMP-IT-NORMALLY)) ; (SB!VM::NAME NIL :TYPE SYMBOL) ; (SB!VM::KIND (SB!INT:MISSING-ARG) :TYPE ; (MEMBER :OTHER :SMALL-OTHER :CLOSURE :INSTANCE :LIST :CODE :VECTOR-NIL ; :WEAK-POINTER))) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL::DELAY-DEFSTRUCT-FUNCTIONS PROGN DEFUN ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK ; --> SETF SB!KERNEL:%INSTANCE-SET THE MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP ; --> LET SB!C::%TYPEP-WRAPPER IF ; ==> ; (MEMBER #:OBJECT21964 ; '(:OTHER :SMALL-OTHER :CLOSURE :INSTANCE :LIST :CODE :VECTOR-NIL ; :WEAK-POINTER)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 47 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/room.lisp ; in: DEFUN PRINT-ALLOCATED-OBJECTS ; (SB!C::COMPILED-DEBUG-INFO-NAME SB!VM::DINFO) ; ; caught STYLE-WARNING: ; undefined function: SB!C::COMPILED-DEBUG-INFO-NAME ; in: DEFUN REPORT-SPACE-TOTAL ; (MAPCAR #'SECOND SB!VM::TYPES) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN PRINT-SUMMARY ; (MAPCAR #'CDR (SORT (SB!VM::SUMMARY-TOTALS) #'> :KEY #'CAR)) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFINE-ALIEN-ROUTINE "find_page_index" ; (SB!ALIEN:DEFINE-ALIEN-ROUTINE "find_page_index" SB!ALIEN:LONG ; (SB!INT:INDEX SB!ALIEN:SIGNED)) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK SB!ALIEN:WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET ; --> SYMBOL-MACROLET VALUES PROG1 LET ; ==> ; (SB!ALIEN:ALIEN-FUNCALL SB!VM::FIND-PAGE-INDEX SB!INT:INDEX) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; ; caught STYLE-WARNING: ; 2 more uses of undefined type COMPILER-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/room.lisp ; in: DEFUN SPACE-BOUNDS ; (SB!KERNEL:CURRENT-DYNAMIC-SPACE-START) ; ; caught STYLE-WARNING: ; undefined function: CURRENT-DYNAMIC-SPACE-START ; in: DEFUN MAP-STACK-REFERENCES ; (SB!DI::DESCRIPTOR-SAP SB!VM:*CONTROL-STACK-END*) ; ; caught STYLE-WARNING: ; undefined function: SB!DI::DESCRIPTOR-SAP ; in: DEFUN INSTANCE-USAGE ; (SB!KERNEL:LAYOUT-CLASSOID (SB!KERNEL:%INSTANCE-LAYOUT SB!VM::OBJ)) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-CLASSOID ; in: DEFUN PRINT-ALLOCATED-OBJECTS ; (DEFUN SB!VM:PRINT-ALLOCATED-OBJECTS ; (SPACE ; &KEY (SB!VM::PERCENT 0) (SB!VM::PAGES 5) TYPE SB!VM::LARGER ; SB!VM::SMALLER COUNT (STREAM *STANDARD-OUTPUT*)) ; (DECLARE (TYPE (INTEGER 0 99) SB!VM::PERCENT) ; (TYPE SB!INT:INDEX SB!VM::PAGES) ; (TYPE STREAM STREAM) ; (TYPE SB!VM::SPACES SPACE) ; (TYPE (OR SB!INT:INDEX NULL) TYPE SB!VM::LARGER SB!VM::SMALLER ; COUNT)) ; (MULTIPLE-VALUE-BIND (SB!VM::START-SAP SB!VM::END-SAP) ; (SB!VM::SPACE-BOUNDS SPACE) ; (LET* ((SB!VM::SPACE-START #) ; (SB!VM::SPACE-END #) ; (SB!VM::SPACE-SIZE #) ; (SB!VM::PAGESIZE #) ; (SB!VM::START #) ; (SB!VM::PRINTED-CONSES #) ; (SB!VM::PAGES-SO-FAR 0) ; (SB!VM::COUNT-SO-FAR 0) ; (SB!VM::LAST-PAGE 0)) ; (DECLARE (TYPE # SB!VM::LAST-PAGE SB!VM::START) ; (FIXNUM SB!VM::PAGES-SO-FAR SB!VM::COUNT-SO-FAR ; SB!VM::PAGESIZE)) ; (LABELS (#) ; (SB!VM::MAP-ALLOCATED-OBJECTS # SPACE)))) ; (VALUES)) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; --> MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT22422 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-INVALID ; in: DEFUN MAP-REFERENCING-OBJECTS ; (SB!KERNEL:DO-INSTANCE-TAGGED-SLOT (SB!VM::I SB!VM::OBJ) ; (WHEN (EQ (SB!KERNEL:%INSTANCE-REF SB!VM::OBJ SB!VM::I) SB!VM::OBJECT) ; (RETURN T))) ; --> LET* DO BLOCK LET - ; ==> ; (SB!KERNEL:LAYOUT-N-UNTAGGED-SLOTS #:N-LAYOUT-907) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-N-UNTAGGED-SLOTS ; in: DEFUN MAP-STACK-REFERENCES ; (SB!KERNEL:MAKE-LISP-OBJ (SB!SYS:SAP-REF-WORD SB!VM::SP 0) NIL) ; ; caught STYLE-WARNING: ; undefined function: MAKE-LISP-OBJ ; in: DEFUN PRINT-ALLOCATED-OBJECTS ; (DEFUN SB!VM:PRINT-ALLOCATED-OBJECTS ; (SPACE ; &KEY (SB!VM::PERCENT 0) (SB!VM::PAGES 5) TYPE SB!VM::LARGER ; SB!VM::SMALLER COUNT (STREAM *STANDARD-OUTPUT*)) ; (DECLARE (TYPE (INTEGER 0 99) SB!VM::PERCENT) ; (TYPE SB!INT:INDEX SB!VM::PAGES) ; (TYPE STREAM STREAM) ; (TYPE SB!VM::SPACES SPACE) ; (TYPE (OR SB!INT:INDEX NULL) TYPE SB!VM::LARGER SB!VM::SMALLER ; COUNT)) ; (MULTIPLE-VALUE-BIND (SB!VM::START-SAP SB!VM::END-SAP) ; (SB!VM::SPACE-BOUNDS SPACE) ; (LET* ((SB!VM::SPACE-START #) ; (SB!VM::SPACE-END #) ; (SB!VM::SPACE-SIZE #) ; (SB!VM::PAGESIZE #) ; (SB!VM::START #) ; (SB!VM::PRINTED-CONSES #) ; (SB!VM::PAGES-SO-FAR 0) ; (SB!VM::COUNT-SO-FAR 0) ; (SB!VM::LAST-PAGE 0)) ; (DECLARE (TYPE # SB!VM::LAST-PAGE SB!VM::START) ; (FIXNUM SB!VM::PAGES-SO-FAR SB!VM::COUNT-SO-FAR ; SB!VM::PAGESIZE)) ; (LABELS (#) ; (SB!VM::MAP-ALLOCATED-OBJECTS # SPACE)))) ; (VALUES)) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; --> MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT22422 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: UPDATE-OBJECT-LAYOUT-OR-INVALID ; ; compilation unit finished ; Undefined types: ; CODE-DELETION-NOTE COMPILER-NOTE ; Undefined functions: ; SB!ALIEN::%DEF-AUXILIARY-ALIEN-TYPES SB!ALIEN::%DEFINE-ALIEN-TYPE %FUNCALLABLE-INSTANCE-LAYOUT SB!KERNEL::%TARGET-DEFSTRUCT CLASSOID-PROPER-NAME SB!C::COMPILED-DEBUG-INFO-NAME CURRENT-DYNAMIC-SPACE-START SB!DI::DESCRIPTOR-SAP LAYOUT-CLASSOID LAYOUT-INVALID LAYOUT-N-UNTAGGED-SLOTS MAKE-LISP-OBJ UPDATE-OBJECT-LAYOUT-OR-INVALID ; caught 21 STYLE-WARNING conditions ; printed 11 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/room.lisp-obj-tmp written ; compilation finished in 0:00:00.655 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/stream.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFVAR *TERMINAL-IO* ...) ; x-compiling (DEFVAR *STANDARD-INPUT* ...) ; x-compiling (DEFVAR *STANDARD-OUTPUT* ...) ; x-compiling (DEFVAR *ERROR-OUTPUT* ...) ; x-compiling (DEFVAR *QUERY-IO* ...) ; x-compiling (DEFVAR *TRACE-OUTPUT* ...) ; x-compiling (DEFVAR *DEBUG-IO* ...) ; x-compiling (DEFUN ILL-IN ...) ; x-compiling (DEFUN ILL-OUT ...) ; x-compiling (DEFUN ILL-BIN ...) ; x-compiling (DEFUN ILL-BOUT ...) ; x-compiling (DEFUN CLOSED-FLAME ...) ; x-compiling (DEFUN NO-OP-PLACEHOLDER ...) ; x-compiling (DEFUN ANSI-STREAM-INPUT-STREAM-P ...) ; x-compiling (DEFUN INPUT-STREAM-P ...) ; x-compiling (DEFUN ANSI-STREAM-OUTPUT-STREAM-P ...) ; x-compiling (DEFUN OUTPUT-STREAM-P ...) ; x-compiling (DECLAIM (INLINE ANSI-STREAM-OPEN-STREAM-P)) ; x-compiling (DEFUN ANSI-STREAM-OPEN-STREAM-P ...) ; x-compiling (DEFUN OPEN-STREAM-P ...) ; x-compiling (DECLAIM (INLINE ANSI-STREAM-ELEMENT-TYPE)) ; x-compiling (DEFUN ANSI-STREAM-ELEMENT-TYPE ...) ; x-compiling (DEFUN STREAM-ELEMENT-TYPE ...) ; x-compiling (DEFUN STREAM-EXTERNAL-FORMAT ...) ; x-compiling (DEFUN INTERACTIVE-STREAM-P ...) ; x-compiling (DECLAIM (INLINE ANSI-STREAM-CLOSE)) ; x-compiling (DEFUN ANSI-STREAM-CLOSE ...) ; x-compiling (DEFUN CLOSE ...) ; x-compiling (DEFUN SET-CLOSED-FLAME ...) ; x-compiling (DEFUN EXTERNAL-FORMAT-CHAR-SIZE ...) ; x-compiling (DECLAIM (INLINE ANSI-STREAM-FILE-POSITION)) ; x-compiling (DEFUN ANSI-STREAM-FILE-POSITION ...) ; x-compiling (DEFUN FILE-POSITION ...) ; x-compiling (DEFUN STREAM-ASSOCIATED-WITH-FILE-P ...) ; x-compiling (DEFUN STREAM-MUST-BE-ASSOCIATED-WITH-FILE ...) ; x-compiling (DEFUN FILE-LENGTH ...) ; x-compiling (DEFUN FILE-STRING-LENGTH ...) ; x-compiling (DEFUN ANSI-STREAM-READ-LINE-FROM-FRC-BUFFER ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/stream.lisp ; in: DEFUN ANSI-STREAM-READ-LINE-FROM-FRC-BUFFER ; (REPLACE SB!IMPL::RES SB!IMPL::%FRC-BUFFER% :START1 SB!IMPL::START :START2 ; SB!IMPL::%FRC-INDEX% :END2 SB!IMPL::POS) ; ==> ; SB!IMPL::RES ; ; note: deleting unreachable code ; (OR SB!IMPL::POS SB!IMPL::%FRC-INDEX%) ; --> LET IF OR THE ; ==> ; SB!IMPL::%FRC-INDEX% ; ; note: deleting unreachable code ; x-compiling (DECLAIM (INLINE ANSI-STREAM-READ-LINE)) ; x-compiling (DEFUN ANSI-STREAM-READ-LINE ...) ; x-compiling (DEFUN READ-LINE ...) ; x-compiling (DECLAIM (INLINE READ-CHAR ...)) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/stream.lisp ; in: DECLAIM (INLINE READ-CHAR UNREAD-CHAR READ-BYTE LISTEN) ; (DECLAIM (INLINE READ-CHAR UNREAD-CHAR READ-BYTE LISTEN)) ; --> EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE READ-CHAR UNREAD-CHAR READ-BYTE LISTEN)) ; ; caught STYLE-WARNING: ; Proclaiming COMMON-LISP:READ-CHAR to be INLINE, but 1 call to it was previously ; compiled. A declaration of NOTINLINE at the call site will eliminate this ; warning, as will proclaiming and defining the function before its first ; potential use. ; ; caught STYLE-WARNING: ; Proclaiming COMMON-LISP:UNREAD-CHAR to be INLINE, but 2 calls to it were ; previously compiled. A declaration of NOTINLINE at the call sites will ; eliminate this warning, as will proclaiming and defining the function before ; its first potential use. ; x-compiling (DECLAIM (INLINE ANSI-STREAM-READ-CHAR)) ; x-compiling (DEFUN ANSI-STREAM-READ-CHAR ...) ; x-compiling (DEFUN READ-CHAR ...) ; x-compiling (DECLAIM (INLINE ANSI-STREAM-UNREAD-CHAR)) ; x-compiling (DEFUN ANSI-STREAM-UNREAD-CHAR ...) ; x-compiling (DEFUN UNREAD-CHAR ...) ; x-compiling (DECLAIM (INLINE ANSI-STREAM-LISTEN)) ; x-compiling (DEFUN ANSI-STREAM-LISTEN ...) ; x-compiling (DEFUN LISTEN ...) ; x-compiling (DECLAIM (INLINE ANSI-STREAM-READ-CHAR-NO-HANG)) ; x-compiling (DEFUN ANSI-STREAM-READ-CHAR-NO-HANG ...) ; x-compiling (DEFUN READ-CHAR-NO-HANG ...) ; x-compiling (DECLAIM (INLINE ANSI-STREAM-CLEAR-INPUT)) ; x-compiling (DEFUN ANSI-STREAM-CLEAR-INPUT ...) ; x-compiling (DEFUN CLEAR-INPUT ...) ; x-compiling (DECLAIM (INLINE ANSI-STREAM-READ-BYTE)) ; x-compiling (DEFUN ANSI-STREAM-READ-BYTE ...) ; x-compiling (DEFUN READ-BYTE ...) ; x-compiling (DECLAIM (INLINE READ-N-BYTES)) ; x-compiling (DEFUN READ-N-BYTES ...) ; x-compiling (DEFUN ANSI-STREAM-READ-N-BYTES ...) /entering WITH-ALIEN BINDINGS=((MEMMOVE (FUNCTION VOID (* CHAR) (* CHAR) UNSIGNED-INT) :EXTERN "memmove")) /BINDING=(MEMMOVE (FUNCTION VOID (* CHAR) (* CHAR) UNSIGNED-INT) :EXTERN "memmove") /SYMBOL=MEMMOVE TYPE=(FUNCTION VOID (* CHAR) (* CHAR) UNSIGNED-INT) OPT1=:EXTERN OPT2="memmove" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="memmove" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((MEMMOVE #)) (ALIEN-FUNCALL MEMMOVE DEST SRC N) (VALUES NIL))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning /entering WITH-ALIEN BINDINGS=((MEMMOVE (FUNCTION VOID (* CHAR) (* CHAR) UNSIGNED-INT) :EXTERN "memmove")) /BINDING=(MEMMOVE (FUNCTION VOID (* CHAR) (* CHAR) UNSIGNED-INT) :EXTERN "memmove") /SYMBOL=MEMMOVE TYPE=(FUNCTION VOID (* CHAR) (* CHAR) UNSIGNED-INT) OPT1=:EXTERN OPT2="memmove" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="memmove" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((MEMMOVE #)) (ALIEN-FUNCALL MEMMOVE DEST SRC N) (VALUES NIL))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; x-compiling (DEFCONSTANT +ANSI-STREAM-IN-BUFFER-EXTRA+ ...) ; x-compiling (DEFUN FAST-READ-CHAR-REFILL ...) ; x-compiling (DEFUN FAST-READ-BYTE-REFILL ...) ; x-compiling (DEFUN WRITE-CHAR ...) ; x-compiling (DEFUN TERPRI ...) ; x-compiling (DECLAIM (INLINE ANSI-STREAM-FRESH-LINE)) ; x-compiling (DEFUN ANSI-STREAM-FRESH-LINE ...) ; x-compiling (DEFUN FRESH-LINE ...) ; x-compiling (DECLAIM (INLINE ANSI-STREAM-WRITE-STRING)) ; x-compiling (DEFUN ANSI-STREAM-WRITE-STRING ...) ; x-compiling (DEFUN %WRITE-STRING ...) ; x-compiling (DEFUN WRITE-STRING ...) ; x-compiling (DEFUN WRITE-LINE ...) ; x-compiling (DEFUN CHARPOS ...) ; x-compiling (DEFUN LINE-LENGTH ...) ; x-compiling (DEFUN FINISH-OUTPUT ...) ; x-compiling (DEFUN FORCE-OUTPUT ...) ; x-compiling (DEFUN CLEAR-OUTPUT ...) ; x-compiling (DEFUN WRITE-BYTE ...) ; x-compiling (DECLAIM (NOTINLINE READ-CHAR ...)) ; x-compiling (DEFUN STREAM-MISC-DISPATCH ...) ; x-compiling (DEFSTRUCT (BROADCAST-STREAM # ...) ...) ; x-compiling (DECLAIM (FREEZE-TYPE BROADCAST-STREAM)) ; x-compiling (DEFUN MAKE-BROADCAST-STREAM ...) ; x-compiling (OUT-FUN BROADCAST-OUT ...) ; x-compiling (OUT-FUN BROADCAST-BOUT ...) ; x-compiling (OUT-FUN BROADCAST-SOUT ...) ; x-compiling (DEFUN BROADCAST-MISC ...) ; x-compiling (DEFSTRUCT (SYNONYM-STREAM # ...) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/stream.lisp ; in: DEFSTRUCT SYNONYM-STREAM ; (DEFSTRUCT ; (SYNONYM-STREAM ; (:INCLUDE SB!KERNEL:ANSI-STREAM (SB!IMPL::IN #'SB!IMPL::SYNONYM-IN) ; (SB!IMPL::BIN #'SB!IMPL::SYNONYM-BIN) ; (SB!IMPL::N-BIN #'SB!IMPL::SYNONYM-N-BIN) ; (SB!IMPL::OUT #'SB!IMPL::SYNONYM-OUT) ; (SB!IMPL::BOUT #'SB!IMPL::SYNONYM-BOUT) ; (SB!IMPL::SOUT #'SB!IMPL::SYNONYM-SOUT) ; (SB!IMPL::MISC #'SB!IMPL::SYNONYM-MISC)) ; (:CONSTRUCTOR MAKE-SYNONYM-STREAM (SYMBOL)) (:COPIER NIL)) ; (SYMBOL NIL :TYPE SYMBOL :READ-ONLY T)) ; --> PROGN EVAL-WHEN ; ==> ; (SB!KERNEL::%COMPILER-DEFSTRUCT ; '# ; '#(# ; # ; # ; #)) ; ; caught STYLE-WARNING: ; Previously compiled calls to SB!IMPL::SYNONYM-STREAM-P and ; COMMON-LISP:SYNONYM-STREAM-SYMBOL could not be inlined because the structure ; definition for COMMON-LISP:SYNONYM-STREAM was not yet seen. To avoid this ; warning, DEFSTRUCT should precede references to the affected functions, or they ; must be declared locally notinline at each call site. ; x-compiling (DECLAIM (FREEZE-TYPE SYNONYM-STREAM)) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (OUT-FUN SYNONYM-OUT ...) ; x-compiling (OUT-FUN SYNONYM-BOUT ...) ; x-compiling (OUT-FUN SYNONYM-SOUT ...) ; x-compiling (IN-FUN SYNONYM-IN ...) ; x-compiling (IN-FUN SYNONYM-BIN ...) ; x-compiling (IN-FUN SYNONYM-N-BIN ...) ; x-compiling (DEFUN SYNONYM-MISC ...) ; x-compiling (DEFSTRUCT (TWO-WAY-STREAM # ...) ...) ; x-compiling (DEFPRINTER (TWO-WAY-STREAM) ...) ; x-compiling (DEFUN MAKE-TWO-WAY-STREAM ...) ; x-compiling (OUT-FUN TWO-WAY-OUT ...) ; x-compiling (OUT-FUN TWO-WAY-BOUT ...) ; x-compiling (OUT-FUN TWO-WAY-SOUT ...) ; x-compiling (IN-FUN TWO-WAY-IN ...) ; x-compiling (IN-FUN TWO-WAY-BIN ...) ; x-compiling (IN-FUN TWO-WAY-N-BIN ...) ; x-compiling (DEFUN TWO-WAY-MISC ...) ; x-compiling (DEFSTRUCT (CONCATENATED-STREAM # ...) ...) ; x-compiling (DECLAIM (FREEZE-TYPE CONCATENATED-STREAM)) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFUN MAKE-CONCATENATED-STREAM ...) ; x-compiling (IN-FUN CONCATENATED-IN ...) ; x-compiling (IN-FUN CONCATENATED-BIN ...) ; x-compiling (DEFUN CONCATENATED-N-BIN ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/stream.lisp ; in: DEFUN CONCATENATED-N-BIN ; (SB!SYS:READ-N-BYTES STREAM SB!IMPL::BUFFER SB!IMPL::CURRENT-START ; SB!IMPL::REMAINING-BYTES NIL) ; --> BLOCK IF LET* SB!IMPL::EOF-OR-LOSE IF ERROR ; ==> ; STREAM ; ; note: deleting unreachable code ; x-compiling (DEFUN CONCATENATED-MISC ...) ; x-compiling (DEFSTRUCT (ECHO-STREAM # ...) ...) ; x-compiling (DECLAIM (FREEZE-TYPE ECHO-STREAM)) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFUN MAKE-ECHO-STREAM ...) ; x-compiling (IN-FUN ECHO-IN ...) ; x-compiling (IN-FUN ECHO-BIN ...) ; x-compiling (DEFUN ECHO-N-BIN ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/stream.lisp ; in: DEFUN ECHO-N-BIN ; (SB!SYS:READ-N-BYTES (ECHO-STREAM-INPUT-STREAM STREAM) SB!IMPL::BUFFER ; SB!IMPL::START SB!IMPL::NUMBYTES NIL) ; --> BLOCK IF LET* SB!IMPL::EOF-OR-LOSE IF ERROR ; ==> ; STREAM ; ; note: deleting unreachable code ; x-compiling (DEFSTRUCT (STRING-INPUT-STREAM # ...) ...) ; x-compiling (DECLAIM (FREEZE-TYPE STRING-INPUT-STREAM)) ; x-compiling (DEFUN STRING-INCH ...) ; x-compiling (DEFUN STRING-BINCH ...) ; x-compiling (DEFUN STRING-STREAM-READ-N-BYTES ...) ; x-compiling (DEFUN STRING-IN-MISC ...) ; x-compiling (DEFUN MAKE-STRING-INPUT-STREAM ...) ; x-compiling (DEFPARAMETER *STRING-OUTPUT-STREAM-BUFFER-INITIAL-SIZE* ...) ; x-compiling (DEFSTRUCT (STRING-OUTPUT-STREAM # ...) ...) ; x-compiling (DECLAIM (FREEZE-TYPE STRING-OUTPUT-STREAM)) ; x-compiling (SETF (FDOCUMENTATION # ...) ...) ; x-compiling (DEFUN STRING-OUTPUT-STREAM-NEW-BUFFER ...) ; x-compiling (DEFUN STRING-OUTPUT-STREAM-NEXT-BUFFER ...) ; x-compiling (DEFUN STRING-OUTPUT-STREAM-PREV-BUFFER ...) ; x-compiling (DEFUN STRING-OUCH ...) ; x-compiling (DEFUN STRING-SOUT ...) ; x-compiling (DEFUN SET-STRING-OUTPUT-STREAM-FILE-POSITION ...) ; x-compiling (DEFUN STRING-OUT-MISC ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/stream.lisp ; in: DEFUN STRING-OUT-MISC ; (+ SB!IMPL::BASE ; (IF SB!IMPL::POS ; (- SB!IMPL::POINTER SB!IMPL::POS 1) ; SB!IMPL::POINTER)) ; ; 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). ; (+ SB!IMPL::BASE SB!IMPL::POINTER) ; ; 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). ; (LENGTH SB!IMPL::BUFFER) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR NULL ; (SIMPLE-ARRAY CHARACTER ; (*))), not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR NULL (SIMPLE-ARRAY CHARACTER (*))), not a VECTOR. ; (+ SB!IMPL::BASE SB!IMPL::POINTER) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 32) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 32). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32) ; &REST T). ; etc. ; (+ SB!IMPL::BASE ; (IF SB!IMPL::POS ; (- SB!IMPL::POINTER SB!IMPL::POS 1) ; SB!IMPL::POINTER)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 32) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 32). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32) ; &REST T). ; etc. ; x-compiling (DEFUN GET-OUTPUT-STREAM-STRING ...) ; x-compiling (DECLAIM (INLINE VECTOR-WITH-FILL-POINTER-P)) ; x-compiling (DEFUN VECTOR-WITH-FILL-POINTER-P ...) ; x-compiling (DEFTYPE STRING-WITH-FILL-POINTER ...) ; x-compiling (DEFSTRUCT (FILL-POINTER-OUTPUT-STREAM # ...) ...) ; x-compiling (DECLAIM (FREEZE-TYPE FILL-POINTER-OUTPUT-STREAM)) ; x-compiling (DEFUN FILL-POINTER-OUCH ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/stream.lisp ; in: DEFUN FILL-POINTER-OUCH ; (MAKE-STRING SB!IMPL::NEW-LENGTH :ELEMENT-TYPE 'CHARACTER) ; ==> ; SB!IMPL::NEW-LENGTH ; ; note: deleting unreachable code ; (MAKE-STRING SB!IMPL::NEW-LENGTH :ELEMENT-TYPE 'BASE-CHAR) ; ==> ; SB!IMPL::NEW-LENGTH ; ; note: deleting unreachable code ; x-compiling (DEFUN FILL-POINTER-SOUT ...) ; x-compiling (DEFUN FILL-POINTER-MISC ...) ; x-compiling (DEFSTRUCT (CASE-FROB-STREAM # ...) ...) ; x-compiling (DECLAIM (FREEZE-TYPE CASE-FROB-STREAM)) ; x-compiling (DEFUN MAKE-CASE-FROB-STREAM ...) ; x-compiling (DEFUN CASE-FROB-MISC ...) ; x-compiling (DEFUN CASE-FROB-UPCASE-OUT ...) ; x-compiling (DEFUN CASE-FROB-UPCASE-SOUT ...) ; x-compiling (DEFUN CASE-FROB-DOWNCASE-OUT ...) ; x-compiling (DEFUN CASE-FROB-DOWNCASE-SOUT ...) ; x-compiling (DEFUN CASE-FROB-CAPITALIZE-OUT ...) ; x-compiling (DEFUN CASE-FROB-CAPITALIZE-SOUT ...) ; x-compiling (DEFUN CASE-FROB-CAPITALIZE-AUX-OUT ...) ; x-compiling (DEFUN CASE-FROB-CAPITALIZE-AUX-SOUT ...) ; x-compiling (DEFUN CASE-FROB-CAPITALIZE-FIRST-OUT ...) ; x-compiling (DEFUN CASE-FROB-CAPITALIZE-FIRST-SOUT ...) ; x-compiling (DEFUN READ-SEQUENCE ...) ; x-compiling (DECLAIM (INLINE COMPATIBLE-VECTOR-AND-STREAM-ELEMENT-TYPES-P)) ; x-compiling (DEFUN COMPATIBLE-VECTOR-AND-STREAM-ELEMENT-TYPES-P ...) ; x-compiling (DEFUN ANSI-STREAM-READ-SEQUENCE ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/stream.lisp ; in: DEFUN ANSI-STREAM-READ-SEQUENCE ; (SB!SYS:READ-N-BYTES STREAM SB!IMPL::DATA SB!IMPL::OFFSET-START ; SB!IMPL::NUMBYTES NIL) ; --> BLOCK IF LET* SB!IMPL::EOF-OR-LOSE IF ERROR ; ==> ; STREAM ; ; note: deleting unreachable code ; --> BLOCK IF LET* + ; ==> ; SB!IMPL::NUMBYTES ; ; note: deleting unreachable code ; (DEFUN SB!IMPL::ANSI-STREAM-READ-SEQUENCE ; (SB!IMPL::SEQ STREAM SB!IMPL::START SB!IMPL::%END) ; (DECLARE (TYPE SEQUENCE SB!IMPL::SEQ) ; (TYPE SB!KERNEL:ANSI-STREAM STREAM) ; (TYPE SB!INT:INDEX SB!IMPL::START) ; (TYPE SB!KERNEL:SEQUENCE-END SB!IMPL::%END) ; (VALUES SB!INT:INDEX)) ; (LET ((SB!IMPL::END (OR SB!IMPL::%END #))) ; (DECLARE (TYPE SB!INT:INDEX SB!IMPL::END)) ; (ETYPECASE SB!IMPL::SEQ ; (LIST ; (LET # ; #)) ; (VECTOR ; (SB!KERNEL:WITH-ARRAY-DATA # ; #))))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (THE (VALUES (MOD 536870909) &REST T) ; (PROGN ; (BLOCK SB!IMPL::ANSI-STREAM-READ-SEQUENCE ; (LET (#) ; (DECLARE #) ; (ETYPECASE SB!IMPL::SEQ # #))))) ; ; note: type assertion too complex to check: ; (VALUES (MOD 536870909) &REST T). ; x-compiling (DEFUN ANSI-STREAM-READ-STRING-FROM-FRC-BUFFER ...) ; x-compiling (DEFUN WRITE-SEQUENCE ...) ; x-compiling (DEFUN ANSI-STREAM-WRITE-SEQUENCE ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/stream.lisp ; in: DEFUN OPEN-STREAM-P ; (DEFUN OPEN-STREAM-P (STREAM) (SB!KERNEL:ANSI-STREAM-OPEN-STREAM-P STREAM)) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; --> SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET ; --> SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT22593 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: %FUNCALLABLE-INSTANCE-LAYOUT ; in: DEFUN OUTPUT-STREAM-P ; (DEFUN OUTPUT-STREAM-P (STREAM) ; (DECLARE (TYPE STREAM STREAM)) ; (AND (SB!IMPL::ANSI-STREAM-P STREAM) ; (SB!KERNEL:ANSI-STREAM-OUTPUT-STREAM-P STREAM))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; --> SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET ; --> SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT22582 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: %FUNCALLABLE-INSTANCE-LAYOUT ; in: DEFUN INPUT-STREAM-P ; (DEFUN INPUT-STREAM-P (STREAM) ; (DECLARE (TYPE STREAM STREAM)) ; (AND (SB!IMPL::ANSI-STREAM-P STREAM) ; (SB!KERNEL:ANSI-STREAM-INPUT-STREAM-P STREAM))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; --> SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET ; --> SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT22570 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: %FUNCALLABLE-INSTANCE-LAYOUT ; ; caught STYLE-WARNING: ; 20 more uses of undefined function %FUNCALLABLE-INSTANCE-LAYOUT ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/stream.lisp ; in: DEFSTRUCT TWO-WAY-STREAM ; (DEFSTRUCT ; (TWO-WAY-STREAM ; (:INCLUDE SB!KERNEL:ANSI-STREAM (SB!IMPL::IN #'SB!IMPL::TWO-WAY-IN) ; (SB!IMPL::BIN #'SB!IMPL::TWO-WAY-BIN) ; (SB!IMPL::N-BIN #'SB!IMPL::TWO-WAY-N-BIN) ; (SB!IMPL::OUT #'SB!IMPL::TWO-WAY-OUT) ; (SB!IMPL::BOUT #'SB!IMPL::TWO-WAY-BOUT) ; (SB!IMPL::SOUT #'SB!IMPL::TWO-WAY-SOUT) ; (SB!IMPL::MISC #'SB!IMPL::TWO-WAY-MISC)) ; (:CONSTRUCTOR SB!IMPL::%MAKE-TWO-WAY-STREAM ; (SB!IMPL::INPUT-STREAM SB!IMPL::OUTPUT-STREAM)) ; (:COPIER NIL) (:PREDICATE NIL)) ; (SB!IMPL::INPUT-STREAM (SB!INT:MISSING-ARG) :TYPE STREAM :READ-ONLY T) ; (SB!IMPL::OUTPUT-STREAM (SB!INT:MISSING-ARG) :TYPE STREAM :READ-ONLY T)) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: DEFSTRUCT SYNONYM-STREAM ; (DEFSTRUCT ; (SYNONYM-STREAM ; (:INCLUDE SB!KERNEL:ANSI-STREAM (SB!IMPL::IN #'SB!IMPL::SYNONYM-IN) ; (SB!IMPL::BIN #'SB!IMPL::SYNONYM-BIN) ; (SB!IMPL::N-BIN #'SB!IMPL::SYNONYM-N-BIN) ; (SB!IMPL::OUT #'SB!IMPL::SYNONYM-OUT) ; (SB!IMPL::BOUT #'SB!IMPL::SYNONYM-BOUT) ; (SB!IMPL::SOUT #'SB!IMPL::SYNONYM-SOUT) ; (SB!IMPL::MISC #'SB!IMPL::SYNONYM-MISC)) ; (:CONSTRUCTOR MAKE-SYNONYM-STREAM (SYMBOL)) (:COPIER NIL)) ; (SYMBOL NIL :TYPE SYMBOL :READ-ONLY T)) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: DEFSTRUCT BROADCAST-STREAM ; (DEFSTRUCT ; (BROADCAST-STREAM ; (:INCLUDE SB!KERNEL:ANSI-STREAM (SB!IMPL::OUT #'SB!IMPL::BROADCAST-OUT) ; (SB!IMPL::BOUT #'SB!IMPL::BROADCAST-BOUT) ; (SB!IMPL::SOUT #'SB!IMPL::BROADCAST-SOUT) ; (SB!IMPL::MISC #'SB!IMPL::BROADCAST-MISC)) ; (:CONSTRUCTOR SB!IMPL::%MAKE-BROADCAST-STREAM (SB!IMPL::STREAMS)) ; (:COPIER NIL) (:PREDICATE NIL)) ; (SB!IMPL::STREAMS NIL :TYPE LIST :READ-ONLY T)) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; ; caught STYLE-WARNING: ; 6 more uses of undefined function SB!KERNEL::%TARGET-DEFSTRUCT ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/stream.lisp ; in: SETF (FDOCUMENTATION 'MAKE-STRING-OUTPUT-STREAM 'FUNCTION) ; (SETF (SB!KERNEL:FDOCUMENTATION 'MAKE-STRING-OUTPUT-STREAM 'FUNCTION) ; "Return an output stream which will accumulate all output given it for the ; benefit of the function GET-OUTPUT-STREAM-STRING.") ; --> LET* LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!KERNEL:FDOCUMENTATION) #:NEW2100 ; 'MAKE-STRING-OUTPUT-STREAM 'FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: (SETF FDOCUMENTATION) ; in: DEFUN ANSI-STREAM-WRITE-SEQUENCE ; (SB!IMPL::BUFFER-OUTPUT STREAM SB!IMPL::DATA SB!IMPL::OFFSET-START ; SB!IMPL::OFFSET-END) ; ; caught STYLE-WARNING: ; undefined function: BUFFER-OUTPUT ; in: DEFUN ILL-BIN ; (DEFUN SB!KERNEL:ILL-BIN (STREAM &REST IGNORE) ; (DECLARE (IGNORE IGNORE)) ; (ERROR 'SIMPLE-TYPE-ERROR :DATUM STREAM :EXPECTED-TYPE ; '(SATISFIES INPUT-STREAM-P) :FORMAT-CONTROL ; "~S is not a binary input stream." :FORMAT-ARGUMENTS (LIST STREAM))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (STREAM IGNORE) {C177D19}> ; STREAM NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN ILL-OUT ; (DEFUN SB!KERNEL:ILL-OUT (STREAM &REST IGNORE) ; (DECLARE (IGNORE IGNORE)) ; (ERROR 'SIMPLE-TYPE-ERROR :DATUM STREAM :EXPECTED-TYPE ; '(SATISFIES OUTPUT-STREAM-P) :FORMAT-CONTROL ; "~S is not a character output stream." :FORMAT-ARGUMENTS ; (LIST STREAM))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (STREAM IGNORE) {C157621}> ; STREAM NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN ILL-IN ; (DEFUN SB!KERNEL:ILL-IN (STREAM &REST IGNORE) ; (DECLARE (IGNORE IGNORE)) ; (ERROR 'SIMPLE-TYPE-ERROR :DATUM STREAM :EXPECTED-TYPE ; '(SATISFIES INPUT-STREAM-P) :FORMAT-CONTROL ; "~S is not a character input stream." :FORMAT-ARGUMENTS ; (LIST STREAM))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (STREAM IGNORE) {C132E39}> ; STREAM NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 223 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/stream.lisp ; in: DEFUN STRING-STREAM-READ-N-BYTES ; (SB!SYS:WITH-PINNED-OBJECTS (STRING SB!IMPL::BUFFER) ; (SB!KERNEL:SYSTEM-AREA-UB8-COPY (SB!SYS:VECTOR-SAP STRING) SB!INT:INDEX ; (IF (TYPEP SB!IMPL::BUFFER 'SB!SYS:SYSTEM-AREA-POINTER) ; SB!IMPL::BUFFER ; (SB!SYS:VECTOR-SAP SB!IMPL::BUFFER)) ; SB!IMPL::START SB!IMPL::COPY)) ; ==> ; (FLET ((#:WITH-PINNED-OBJECTS-THUNK24188 () ; (PROGN ; (SB!KERNEL:SYSTEM-AREA-UB8-COPY # SB!INT:INDEX # SB!IMPL::START ; SB!IMPL::COPY)))) ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) ; (SB!INT:DX-LET ((#:G1876 STRING) (#:G1877 SB!IMPL::BUFFER)) ; (MULTIPLE-VALUE-PROG1 (#:WITH-PINNED-OBJECTS-THUNK24188) ; (SB!VM::TOUCH-OBJECT #:G1876) ; (SB!VM::TOUCH-OBJECT #:G1877)))) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN ANSI-STREAM-READ-N-BYTES ; (SB!KERNEL:%BYTE-BLT SB!IMPL::IN-BUFFER SB!INT:INDEX SB!IMPL::BUFFER ; SB!IMPL::START SB!IMPL::END) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; (SB!KERNEL:%BYTE-BLT SB!IMPL::IN-BUFFER SB!INT:INDEX SB!IMPL::BUFFER ; SB!IMPL::START (+ SB!IMPL::START SB!IMPL::NUMBYTES)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFSTRUCT ECHO-STREAM ; #'SB!IMPL::ECHO-MISC ; ; caught STYLE-WARNING: ; undefined function: ECHO-MISC ; in: DEFUN EXTERNAL-FORMAT-CHAR-SIZE ; (SB!IMPL::EF-CHAR-SIZE ; (SB!IMPL::GET-EXTERNAL-FORMAT SB!IMPL::EXTERNAL-FORMAT)) ; ; caught STYLE-WARNING: ; undefined function: EF-CHAR-SIZE ; in: DEFUN FILE-POSITION ; (SB!KERNEL:ANSI-STREAM-FILE-POSITION STREAM POSITION) ; --> BLOCK COND IF COND THE PROGN LET WHEN IF PROGN LET IF ; ==> ; (SB!IMPL::FD-STREAM-CHAR-SIZE STREAM) ; ; caught STYLE-WARNING: ; undefined function: FD-STREAM-CHAR-SIZE ; in: DEFUN ANSI-STREAM-FILE-POSITION ; (SB!IMPL::FD-STREAM-CHAR-SIZE STREAM) ; ; caught STYLE-WARNING: ; undefined function: FD-STREAM-CHAR-SIZE ; in: DEFUN ANSI-STREAM-WRITE-SEQUENCE ; (SB!SYS:FD-STREAM-P STREAM) ; ; caught STYLE-WARNING: ; undefined function: FD-STREAM-P ; in: DEFUN FILE-POSITION ; (SB!KERNEL:ANSI-STREAM-FILE-POSITION STREAM POSITION) ; --> BLOCK COND IF COND THE PROGN LET WHEN IF PROGN LET IF ; ==> ; (SB!SYS:FD-STREAM-P STREAM) ; ; caught STYLE-WARNING: ; undefined function: FD-STREAM-P ; in: DEFUN ANSI-STREAM-FILE-POSITION ; (SB!SYS:FD-STREAM-P STREAM) ; ; caught STYLE-WARNING: ; undefined function: FD-STREAM-P ; in: DEFUN EXTERNAL-FORMAT-CHAR-SIZE ; (SB!IMPL::GET-EXTERNAL-FORMAT SB!IMPL::EXTERNAL-FORMAT) ; ; caught STYLE-WARNING: ; undefined function: GET-EXTERNAL-FORMAT ; in: DEFUN OPEN-STREAM-P ; (DEFUN OPEN-STREAM-P (STREAM) (SB!KERNEL:ANSI-STREAM-OPEN-STREAM-P STREAM)) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; --> SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET ; --> SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT22593 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-INVALID ; in: DEFUN OUTPUT-STREAM-P ; (DEFUN OUTPUT-STREAM-P (STREAM) ; (DECLARE (TYPE STREAM STREAM)) ; (AND (SB!IMPL::ANSI-STREAM-P STREAM) ; (SB!KERNEL:ANSI-STREAM-OUTPUT-STREAM-P STREAM))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; --> SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET ; --> SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT22582 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-INVALID ; in: DEFUN INPUT-STREAM-P ; (DEFUN INPUT-STREAM-P (STREAM) ; (DECLARE (TYPE STREAM STREAM)) ; (AND (SB!IMPL::ANSI-STREAM-P STREAM) ; (SB!KERNEL:ANSI-STREAM-INPUT-STREAM-P STREAM))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; --> SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET ; --> SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT22570 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-INVALID ; ; caught STYLE-WARNING: ; 20 more uses of undefined function LAYOUT-INVALID ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/stream.lisp ; in: DEFUN FILE-POSITION ; (SB!GRAY:STREAM-FILE-POSITION STREAM POSITION) ; ; caught STYLE-WARNING: ; undefined function: STREAM-FILE-POSITION ; in: ; MACROLET ((IN-FUN (NAME FUN &REST ARGS) (QUASIQUOTE (DEFUN # # #)))) ; (SB!IMPL::IN-FUN SB!IMPL::TWO-WAY-N-BIN SB!SYS:READ-N-BYTES SB!IMPL::BUFFER ; SB!IMPL::START SB!IMPL::NUMBYTES SB!IMPL::EOF-ERROR-P) ; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; --> BLOCK SB!SYS:READ-N-BYTES BLOCK IF LET* ; ==> ; (SB!GRAY:STREAM-READ-SEQUENCE STREAM SB!IMPL::BUFFER SB!IMPL::START ; SB!IMPL::END) ; ; caught STYLE-WARNING: ; undefined function: STREAM-READ-SEQUENCE ; in: ; MACROLET ((IN-FUN (NAME FUN &REST ARGS) (QUASIQUOTE (DEFUN # # # #)))) ; (SB!IMPL::IN-FUN SB!IMPL::SYNONYM-N-BIN SB!SYS:READ-N-BYTES SB!IMPL::BUFFER ; SB!IMPL::START SB!IMPL::NUMBYTES SB!IMPL::EOF-ERROR-P) ; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; --> BLOCK SB!SYS:READ-N-BYTES BLOCK IF LET* ; ==> ; (SB!GRAY:STREAM-READ-SEQUENCE STREAM SB!IMPL::BUFFER SB!IMPL::START ; SB!IMPL::END) ; ; caught STYLE-WARNING: ; undefined function: STREAM-READ-SEQUENCE ; in: DEFUN READ-N-BYTES ; (SB!GRAY:STREAM-READ-SEQUENCE STREAM SB!IMPL::BUFFER SB!IMPL::START ; SB!IMPL::END) ; ; caught STYLE-WARNING: ; undefined function: STREAM-READ-SEQUENCE ; ; caught STYLE-WARNING: ; 4 more uses of undefined function STREAM-READ-SEQUENCE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/stream.lisp ; in: DEFUN WRITE-SEQUENCE ; (SB!GRAY:STREAM-WRITE-SEQUENCE STREAM SB!IMPL::SEQ SB!IMPL::START ; SB!IMPL::END) ; ; caught STYLE-WARNING: ; undefined function: STREAM-WRITE-SEQUENCE ; in: DEFUN ECHO-N-BIN ; (SB!EXT:STRING-TO-OCTETS (STRING CHAR) :EXTERNAL-FORMAT ; (STREAM-EXTERNAL-FORMAT (ECHO-STREAM-INPUT-STREAM STREAM))) ; ; caught STYLE-WARNING: ; undefined function: STRING-TO-OCTETS ; in: DEFUN OPEN-STREAM-P ; (DEFUN OPEN-STREAM-P (STREAM) (SB!KERNEL:ANSI-STREAM-OPEN-STREAM-P STREAM)) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; --> SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET ; --> SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT22593 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: UPDATE-OBJECT-LAYOUT-OR-INVALID ; in: DEFUN OUTPUT-STREAM-P ; (DEFUN OUTPUT-STREAM-P (STREAM) ; (DECLARE (TYPE STREAM STREAM)) ; (AND (SB!IMPL::ANSI-STREAM-P STREAM) ; (SB!KERNEL:ANSI-STREAM-OUTPUT-STREAM-P STREAM))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; --> SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET ; --> SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT22582 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: UPDATE-OBJECT-LAYOUT-OR-INVALID ; in: DEFUN INPUT-STREAM-P ; (DEFUN INPUT-STREAM-P (STREAM) ; (DECLARE (TYPE STREAM STREAM)) ; (AND (SB!IMPL::ANSI-STREAM-P STREAM) ; (SB!KERNEL:ANSI-STREAM-INPUT-STREAM-P STREAM))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; --> SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET ; --> SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT22570 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: UPDATE-OBJECT-LAYOUT-OR-INVALID ; ; caught STYLE-WARNING: ; 20 more uses of undefined function UPDATE-OBJECT-LAYOUT-OR-INVALID ; ; compilation unit finished ; Undefined types: ; CODE-DELETION-NOTE COMPILER-NOTE ; Undefined functions: ; %FUNCALLABLE-INSTANCE-LAYOUT SB!KERNEL::%TARGET-DEFSTRUCT (SETF FDOCUMENTATION) BUFFER-OUTPUT ECHO-MISC EF-CHAR-SIZE FD-STREAM-CHAR-SIZE FD-STREAM-P GET-EXTERNAL-FORMAT LAYOUT-INVALID STREAM-FILE-POSITION STREAM-READ-SEQUENCE STREAM-WRITE-SEQUENCE STRING-TO-OCTETS UPDATE-OBJECT-LAYOUT-OR-INVALID ; caught 43 STYLE-WARNING conditions ; printed 17 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/stream.lisp-obj-tmp written ; compilation finished in 0:00:02.426 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/print.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (!DEFVAR *PRINT-READABLY* ...) ; x-compiling (!DEFVAR *PRINT-ESCAPE* ...) ; x-compiling (!DEFVAR *PRINT-PRETTY* ...) ; x-compiling (!DEFVAR *PRINT-BASE* ...) ; x-compiling (!DEFVAR *PRINT-RADIX* ...) ; x-compiling (!DEFVAR *PRINT-LEVEL* ...) ; x-compiling (!DEFVAR *PRINT-LENGTH* ...) ; x-compiling (!DEFVAR *PRINT-CIRCLE* ...) ; x-compiling (!DEFVAR *PRINT-CASE* ...) ; x-compiling (!DEFVAR *PRINT-ARRAY* ...) ; x-compiling (!DEFVAR *PRINT-GENSYM* ...) ; x-compiling (DEFVAR *PRINT-LINES* ...) ; x-compiling (DEFVAR *PRINT-RIGHT-MARGIN* ...) ; x-compiling (DEFVAR *PRINT-MISER-WIDTH* ...) ; x-compiling (DEFVAR *PRINT-PPRINT-DISPATCH*) ; x-compiling (SETF (FDOCUMENTATION # ...) ...) ; x-compiling (!DEFVAR *SUPPRESS-PRINT-ERRORS* ...) ; x-compiling (DEFMACRO WITH-STANDARD-IO-SYNTAX ...) ; x-compiling (DEFGLOBAL *STANDARD-READTABLE* ...) ; x-compiling (DEFUN %WITH-STANDARD-IO-SYNTAX ...) ; x-compiling (DEFUN COMPILER-EXPAND-WRITE-MUMBLE ...) ; x-compiling (DEFUN WRITE ...) ; x-compiling (DEFINE-COMPILER-MACRO WRITE ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/print.lisp ; in: DEFINE-COMPILER-MACRO WRITE ; (DEFINE-COMPILER-MACRO WRITE ; (&WHOLE SB!KERNEL:FORM SB!IMPL::OBJECT &REST SB!IMPL::KEYS) ; (SB!IMPL::COMPILER-EXPAND-WRITE-MUMBLE 'WRITE SB!KERNEL:FORM ; SB!IMPL::OBJECT SB!IMPL::KEYS)) ; --> PROGN EVAL-WHEN ; ==> ; (SB!C::%DEFINE-COMPILER-MACRO 'WRITE ; #'(LAMBDA (#:WHOLE170 #:ENVIRONMENT171) ; (DECLARE (IGNORE #:ENVIRONMENT171)) ; (LET* ((#:CMACRO-&WHOLE25611 #:WHOLE170) ; (#:WHOLE170 #)) ; (DECLARE ; (IGNORABLE #:CMACRO-&WHOLE25611)) ; (LET (#) ; (UNLESS # #)) ; (LET* (# # #) ; (BLOCK WRITE #)))) ; '(&WHOLE SB!KERNEL:FORM SB!IMPL::OBJECT &REST ; SB!IMPL::KEYS) ; NIL '(COMPILER-MACRO-FUNCTION WRITE)) ; ; caught STYLE-WARNING: ; 1 call to COMMON-LISP:WRITE was compiled before a compiler-macro was defined ; for it. A declaration of NOTINLINE at the call site will eliminate this ; warning, as will defining the compiler-macro before its first potential use. ; x-compiling (DEFUN PRIN1 ...) ; x-compiling (DEFUN PRINC ...) ; x-compiling (DEFUN PRINT ...) ; x-compiling (DEFUN PPRINT ...) ; x-compiling (DEFUN WRITE-TO-STRING ...) ; x-compiling (DEFINE-COMPILER-MACRO WRITE-TO-STRING ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/print.lisp ; in: DEFINE-COMPILER-MACRO WRITE-TO-STRING ; (DEFINE-COMPILER-MACRO WRITE-TO-STRING ; (&WHOLE SB!KERNEL:FORM SB!IMPL::OBJECT &REST SB!IMPL::KEYS) ; (SB!IMPL::COMPILER-EXPAND-WRITE-MUMBLE 'WRITE-TO-STRING SB!KERNEL:FORM ; SB!IMPL::OBJECT SB!IMPL::KEYS)) ; --> PROGN EVAL-WHEN ; ==> ; (SB!C::%DEFINE-COMPILER-MACRO 'WRITE-TO-STRING ; #'(LAMBDA (#:WHOLE283 #:ENVIRONMENT284) ; (DECLARE (IGNORE #:ENVIRONMENT284)) ; (LET* ((#:CMACRO-&WHOLE25664 #:WHOLE283) ; (#:WHOLE283 #)) ; (DECLARE ; (IGNORABLE #:CMACRO-&WHOLE25664)) ; (LET (#) ; (UNLESS # #)) ; (LET* (# # #) ; (BLOCK WRITE-TO-STRING #)))) ; '(&WHOLE SB!KERNEL:FORM SB!IMPL::OBJECT &REST ; SB!IMPL::KEYS) ; NIL '(COMPILER-MACRO-FUNCTION WRITE-TO-STRING)) ; ; caught STYLE-WARNING: ; 2 calls to COMMON-LISP:WRITE-TO-STRING were compiled before a compiler-macro ; was defined for it. A declaration of NOTINLINE at the call sites will eliminate ; this warning, as will defining the compiler-macro before its first potential ; use. ; x-compiling (DEFUN PRIN1-TO-STRING ...) ; x-compiling (DEFUN PRINC-TO-STRING ...) ; x-compiling (DEFUN STRINGIFY-OBJECT ...) ; x-compiling (DEFUN PRINT-NOT-READABLE-ERROR ...) ; x-compiling (DEFUN %PRINT-UNREADABLE-OBJECT ...) ; x-compiling (DEFUN UNIQUELY-IDENTIFIED-BY-PRINT-P ...) ; x-compiling (DEFVAR *IN-PRINT-ERROR* ...) ; x-compiling (DEFUN OUTPUT-OBJECT ...) ; x-compiling (DEFVAR *PRINT-OBJECT-IS-DISABLED-P*) ; x-compiling (DEFUN OUTPUT-UGLY-OBJECT ...) ; x-compiling (DEFVAR *PREVIOUS-CASE* ...) ; x-compiling (DEFVAR *PREVIOUS-READTABLE-CASE* ...) ; x-compiling (DEFVAR *INTERNAL-SYMBOL-OUTPUT-FUN* ...) ; x-compiling (DEFUN SETUP-PRINTER-STATE ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/print.lisp ; in: DEFUN SETUP-PRINTER-STATE ; (SETQ *PRINT-CASE* :UPCASE) ; ; note: deleting unreachable code ; x-compiling (DEFUN OUTPUT-QUOTED-SYMBOL-NAME ...) ; x-compiling (DEFUN OUTPUT-SYMBOL ...) ; x-compiling (DEFUN OUTPUT-SYMBOL-NAME ...) ; x-compiling (DEFVAR *CHARACTER-ATTRIBUTES* ...) ; x-compiling (DECLAIM (TYPE # ...)) ; x-compiling (DEFCONSTANT OTHER-ATTRIBUTE ...) ; x-compiling (DEFCONSTANT NUMBER-ATTRIBUTE ...) ; x-compiling (DEFCONSTANT UPPERCASE-ATTRIBUTE ...) ; x-compiling (DEFCONSTANT LOWERCASE-ATTRIBUTE ...) ; x-compiling (DEFCONSTANT SIGN-ATTRIBUTE ...) ; x-compiling (DEFCONSTANT EXTENSION-ATTRIBUTE ...) ; x-compiling (DEFCONSTANT DOT-ATTRIBUTE ...) ; x-compiling (DEFCONSTANT SLASH-ATTRIBUTE ...) ; x-compiling (DEFCONSTANT FUNNY-ATTRIBUTE ...) ; x-compiling (DEFPARAMETER *ATTRIBUTE-NAMES* ...) ; x-compiling (DECLAIM (TYPE # ...)) ; x-compiling (DEFVAR *DIGIT-BASES* ...) ; x-compiling (DEFUN !PRINTER-COLD-INIT ...) ; x-compiling (DEFUN SYMBOL-QUOTEP ...) ; x-compiling (DEFUN OUTPUT-PRESERVE-SYMBOL ...) ; x-compiling (DEFUN OUTPUT-LOWERCASE-SYMBOL ...) ; x-compiling (DEFUN OUTPUT-UPPERCASE-SYMBOL ...) ; x-compiling (DEFUN OUTPUT-CAPITALIZE-SYMBOL ...) ; x-compiling (DEFUN OUTPUT-INVERT-SYMBOL ...) ; x-compiling (DEFUN OUTPUT-LIST ...) ; x-compiling (DEFUN OUTPUT-UNREADABLE-VECTOR-READABLY ...) ; x-compiling (DEFUN OUTPUT-VECTOR ...) ; x-compiling (DEFUN QUOTE-STRING ...) ; x-compiling (DEFUN ARRAY-READABLY-PRINTABLE-P ...) ; x-compiling (DEFUN OUTPUT-ARRAY ...) ; x-compiling (DEFUN OUTPUT-TERSE-ARRAY ...) ; x-compiling (DEFUN LISTIFY-ARRAY ...) ; x-compiling (DEFUN OUTPUT-UNREADABLE-ARRAY-READABLY ...) ; x-compiling (DEFUN OUTPUT-ARRAY-GUTS ...) ; x-compiling (DEFUN SUB-OUTPUT-ARRAY-GUTS ...) ; x-compiling (DEFUN PRINT-OBJECT ...) ; x-compiling (DEFUN %OUTPUT-RADIX ...) ; x-compiling (DEFUN %OUTPUT-REASONABLE-INTEGER-IN-BASE ...) ; x-compiling (DEFVAR *POWER-CACHE* ...) ; x-compiling (DEFCONSTANT +POWER-CACHE-INTEGER-LENGTH-LIMIT+ ...) ; x-compiling (DEFUN SCRUB-POWER-CACHE ...) ; x-compiling (DEFUN POWERS-FOR-BASE ...) ; x-compiling (DEFUN %OUTPUT-HUGE-INTEGER-IN-BASE ...) ; x-compiling (DEFUN %OUTPUT-INTEGER-IN-BASE ...) ; x-compiling (DEFUN OUTPUT-INTEGER ...) ; x-compiling (DEFUN OUTPUT-RATIO ...) ; x-compiling (DEFUN OUTPUT-COMPLEX ...) ; x-compiling (DEFUN FLONUM-TO-STRING ...) ; x-compiling (DEFCONSTANT SINGLE-FLOAT-MIN-E ...) ; x-compiling (DEFCONSTANT DOUBLE-FLOAT-MIN-E ...) ; x-compiling (DEFUN FLONUM-TO-DIGITS ...) ; x-compiling (DEFUN SCALE-EXPONENT ...) ; x-compiling (DEFUN PRINT-FLOAT-EXPONENT ...) ; x-compiling (DEFUN OUTPUT-FLOAT-INFINITY ...) ; x-compiling (DEFUN OUTPUT-FLOAT-NAN ...) ; x-compiling (DEFUN OUTPUT-FLOAT ...) ; x-compiling (DEFUN OUTPUT-FLOAT-AUX ...) ; x-compiling (DEFUN OUTPUT-CHARACTER ...) ; x-compiling (DEFUN OUTPUT-SAP ...) ; x-compiling (DEFUN OUTPUT-WEAK-POINTER ...) ; x-compiling (DEFUN OUTPUT-CODE-COMPONENT ...) ; x-compiling (DEFUN OUTPUT-LRA ...) ; x-compiling (DEFUN OUTPUT-FDEFN ...) ; x-compiling (DEFUN PRINTED-AS-FUNCALLABLE-STANDARD-CLASS ...) ; x-compiling (DEFUN OUTPUT-FUN ...) ; x-compiling (DEFUN OUTPUT-RANDOM ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/print.lisp ; in: DEFGLOBAL *STANDARD-READTABLE* ; (SB!EXT:DEFGLOBAL SB!IMPL::*STANDARD-READTABLE* NIL) ; --> PROGN LET LET ; ==> ; (SB!IMPL::%DEFGLOBAL 'SB!IMPL::*STANDARD-READTABLE* (UNLESS #:BOUNDP NIL) ; #:BOUNDP 'NIL NIL (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: %DEFGLOBAL ; in: DEFUN PRINT-FLOAT-EXPONENT ; (DEFUN SB!IMPL::PRINT-FLOAT-EXPONENT (SB!IMPL::X EXP STREAM) ; (DECLARE (TYPE FLOAT SB!IMPL::X) ; (TYPE INTEGER EXP) ; (TYPE STREAM STREAM)) ; (LET ((*PRINT-RADIX* NIL)) ; (IF (TYPEP SB!IMPL::X *READ-DEFAULT-FLOAT-FORMAT*) ; (UNLESS (EQL EXP 0) (FORMAT STREAM "e~D" EXP)) ; (FORMAT STREAM "~C~D" (ETYPECASE SB!IMPL::X # # # #) EXP)))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; --> SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET ; --> SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT26602 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: %FUNCALLABLE-INSTANCE-LAYOUT ; in: DEFUN OUTPUT-UGLY-OBJECT ; (SB!KERNEL:LAYOUT-OF SB!IMPL::OBJECT) ; --> BLOCK COND IF COND IF PROGN ; ==> ; (SB!KERNEL:%FUNCALLABLE-INSTANCE-LAYOUT SB!KERNEL::X) ; ; caught STYLE-WARNING: ; undefined function: %FUNCALLABLE-INSTANCE-LAYOUT ; in: DEFUN OUTPUT-OBJECT ; (WITH-SIMPLE-RESTART (CONTINUE "Suppress the error.") (SIGNAL CONDITION)) ; --> RESTART-CASE BLOCK LET TAGBODY RESTART-BIND LET CONS LIST CONS ; --> SB!KERNEL:MAKE-RESTART FUNCTION SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> UNLESS IF TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT25729 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: %FUNCALLABLE-INSTANCE-LAYOUT ; ; caught STYLE-WARNING: ; 1 more use of undefined function %FUNCALLABLE-INSTANCE-LAYOUT ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/print.lisp ; in: SETF (FDOCUMENTATION '*PRINT-PPRINT-DISPATCH* 'VARIABLE) ; (SETF (SB!KERNEL:FDOCUMENTATION '*PRINT-PPRINT-DISPATCH* 'VARIABLE) ; "The pprint-dispatch-table that controls how to pretty-print objects.") ; --> LET* LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!KERNEL:FDOCUMENTATION) #:NEW0 ; '*PRINT-PPRINT-DISPATCH* 'VARIABLE) ; ; caught STYLE-WARNING: ; undefined function: (SETF FDOCUMENTATION) ; in: DEFUN SETUP-PRINTER-STATE ; (SETF (READTABLE-CASE *READTABLE*) :UPCASE) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF READTABLE-CASE) #:NEW383 #:*READTABLE*384) ; ; caught STYLE-WARNING: ; undefined function: (SETF READTABLE-CASE) ; in: DEFUN PRIN1 ; (DEFUN PRIN1 (SB!IMPL::OBJECT &OPTIONAL STREAM) ; "Output a mostly READable printed representation of OBJECT on the specified ; STREAM." ; (LET ((*PRINT-ESCAPE* T)) ; (SB!KERNEL:OUTPUT-OBJECT SB!IMPL::OBJECT ; (SB!IMPL::OUT-SYNONYM-OF STREAM))) ; SB!IMPL::OBJECT) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!IMPL::OBJECT STREAM) {C166F59}> ; SB!IMPL::OBJECT 'NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN WRITE ; (DEFUN WRITE ; (SB!IMPL::OBJECT ; &KEY ((:STREAM STREAM) *STANDARD-OUTPUT*) ; ((:ESCAPE *PRINT-ESCAPE*) *PRINT-ESCAPE*) ; ((:RADIX *PRINT-RADIX*) *PRINT-RADIX*) ; ((:BASE *PRINT-BASE*) *PRINT-BASE*) ; ((:CIRCLE *PRINT-CIRCLE*) *PRINT-CIRCLE*) ; ((:PRETTY *PRINT-PRETTY*) *PRINT-PRETTY*) ; ((:LEVEL *PRINT-LEVEL*) *PRINT-LEVEL*) ; ((:LENGTH *PRINT-LENGTH*) *PRINT-LENGTH*) ; ((:CASE *PRINT-CASE*) *PRINT-CASE*) ; ((:ARRAY *PRINT-ARRAY*) *PRINT-ARRAY*) ...) ; "Output OBJECT to the specified stream, defaulting to *STANDARD-OUTPUT*." ; (SB!KERNEL:OUTPUT-OBJECT SB!IMPL::OBJECT (SB!IMPL::OUT-SYNONYM-OF STREAM)) ; SB!IMPL::OBJECT) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!IMPL::OBJECT #:.DEFAULTING-TEMP. #:N-SUPPLIED-67 ; #:.DEFAULTING-TEMP. #:N-SUPPLIED-68 #:.DEFAULTING-TEMP. ; #:N-SUPPLIED-69 #:.DEFAULTING-TEMP. #:N-SUPPLIED-70 ; #:.DEFAULTING-TEMP. #:N-SUPPLIED-71 #:.DEFAULTING-TEMP. ...) ; {EAC5DE1}> ; SB!IMPL::OBJECT NIL NIL NIL NIL NIL NIL NIL NIL NIL ...)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN COMPILER-EXPAND-WRITE-MUMBLE ; (ASSOC VARIABLE SB!IMPL::BIND) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 80 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/print.lisp ; in: DEFUN SCALE-EXPONENT ; (EXPT 10.0d0 (1- SB!IMPL::EX)) ; --> SB!KERNEL:%POW BLOCK ; ==> ; (SB!ALIEN:ALIEN-FUNCALL ; (SB!ALIEN:EXTERN-ALIEN "pow" ; (FUNCTION DOUBLE-FLOAT DOUBLE-FLOAT DOUBLE-FLOAT)) ; SB!KERNEL::ARG0 SB!KERNEL::ARG1) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; (EXPT 10.0d0 (- (- SB!IMPL::EX) 1)) ; --> SB!KERNEL:%POW BLOCK ; ==> ; (SB!ALIEN:ALIEN-FUNCALL ; (SB!ALIEN:EXTERN-ALIEN "pow" ; (FUNCTION DOUBLE-FLOAT DOUBLE-FLOAT DOUBLE-FLOAT)) ; SB!KERNEL::ARG0 SB!KERNEL::ARG1) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; (EXPT 10.0d0 (- (- SB!IMPL::EX) 16)) ; --> SB!KERNEL:%POW BLOCK ; ==> ; (SB!ALIEN:ALIEN-FUNCALL ; (SB!ALIEN:EXTERN-ALIEN "pow" ; (FUNCTION DOUBLE-FLOAT DOUBLE-FLOAT DOUBLE-FLOAT)) ; SB!KERNEL::ARG0 SB!KERNEL::ARG1) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN OUTPUT-OBJECT ; (HANDLER-BIND ((CONDITION (LAMBDA (CONDITION) NIL (WHEN # # #)))) ; (SB!IMPL::PRINT-IT STREAM)) ; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK ; ==> ; (TYPEP CONDITION 'CONDITION) ; ; caught STYLE-WARNING: ; undefined type: CONDITION ; (WITH-SIMPLE-RESTART (CONTINUE "Suppress the error.") (SIGNAL CONDITION)) ; --> RESTART-CASE BLOCK LET TAGBODY RESTART-BIND LET RETURN-FROM LET ; ==> ; (SB!KERNEL:COERCE-TO-CONDITION CONDITION (LIST) 'SIMPLE-CONDITION 'SIGNAL) ; ; caught STYLE-WARNING: ; undefined type: CONDITION ; in: DEFUN PRINT-NOT-READABLE-ERROR ; (RESTART-CASE (ERROR 'PRINT-NOT-READABLE :OBJECT SB!IMPL::OBJECT) ; (SB!EXT:PRINT-UNREADABLY NIL :REPORT "Print unreadably." ; (LET ((*PRINT-READABLY* NIL)) ; (SB!KERNEL:OUTPUT-OBJECT SB!IMPL::OBJECT STREAM) ; SB!IMPL::OBJECT)) ; (USE-VALUE (SB!IMPL::O) :REPORT "Supply an object to be printed instead." ; :INTERACTIVE ; (LAMBDA () ; (SB!INT:READ-EVALUATED-FORM ; "~@")) ; (SB!KERNEL:OUTPUT-OBJECT SB!IMPL::O STREAM) SB!IMPL::O)) ; --> BLOCK LET TAGBODY RESTART-BIND LET RETURN-FROM LET ; ==> ; (SB!KERNEL:COERCE-TO-CONDITION 'PRINT-NOT-READABLE ; (LIST :OBJECT SB!IMPL::OBJECT) 'SIMPLE-ERROR ; 'ERROR) ; ; caught STYLE-WARNING: ; undefined type: CONDITION ; in: DEFUN OUTPUT-CODE-COMPONENT ; (SB!C::DEBUG-INFO-NAME SB!IMPL::DINFO) ; ; caught STYLE-WARNING: ; undefined function: SB!C::DEBUG-INFO-NAME ; in: DEFUN PRINT-OBJECT => DEFAULT-STRUCTURE-PRINT INSTANCE ; (SB!KERNEL:DEFAULT-STRUCTURE-PRINT SB!KERNEL:INSTANCE STREAM ; SB!KERNEL:*CURRENT-LEVEL-IN-PRINT*) ; ; caught STYLE-WARNING: ; undefined function: DEFAULT-STRUCTURE-PRINT ; in: DEFUN OUTPUT-UGLY-OBJECT => DEFAULT-STRUCTURE-PRINT OBJECT ; (SB!KERNEL:DEFAULT-STRUCTURE-PRINT SB!IMPL::OBJECT STREAM ; SB!KERNEL:*CURRENT-LEVEL-IN-PRINT*) ; ; caught STYLE-WARNING: ; undefined function: DEFAULT-STRUCTURE-PRINT ; in: DEFUN %PRINT-UNREADABLE-OBJECT ; (PPRINT-LOGICAL-BLOCK (STREAM NIL :PREFIX "#<" :SUFFIX ">") ; (SB!IMPL::PRINT-DESCRIPTION)) ; --> LET LET SB!PRETTY::WITH-PRETTY-STREAM FLET BLOCK SB!KERNEL:DESCEND-INTO ; --> FLET BLOCK LET ; ==> ; (SB!PRETTY::END-LOGICAL-BLOCK STREAM) ; ; caught STYLE-WARNING: ; undefined function: SB!PRETTY::END-LOGICAL-BLOCK ; in: DEFUN OUTPUT-SYMBOL ; (SB!IMPL::FIND-EXTERNAL-SYMBOL SB!IMPL::NAME PACKAGE) ; ; caught STYLE-WARNING: ; undefined function: FIND-EXTERNAL-SYMBOL ; in: DEFUN OUTPUT-FLOAT-NAN ; (SB!KERNEL:FLOAT-FORMAT-NAME SB!IMPL::X) ; ; caught STYLE-WARNING: ; undefined function: FLOAT-FORMAT-NAME ; in: DEFUN OUTPUT-FLOAT-INFINITY ; (SB!KERNEL:FLOAT-FORMAT-NAME SB!IMPL::X) ; ; caught STYLE-WARNING: ; undefined function: FLOAT-FORMAT-NAME ; in: DEFUN %PRINT-UNREADABLE-OBJECT ; (PPRINT-LOGICAL-BLOCK (STREAM NIL :PREFIX "#<" :SUFFIX ">") ; (SB!IMPL::PRINT-DESCRIPTION)) ; --> LET LET SB!PRETTY::WITH-PRETTY-STREAM FLET LET IF CATCH BLOCK ; --> SB!C::%WITHIN-CLEANUP LET ; ==> ; (SB!PRETTY::FORCE-PRETTY-OUTPUT STREAM) ; ; caught STYLE-WARNING: ; undefined function: SB!PRETTY::FORCE-PRETTY-OUTPUT ; in: DEFUN OUTPUT-UGLY-OBJECT ; (SB!KERNEL:LAYOUT-CLASSOID (SB!KERNEL:LAYOUT-OF SB!IMPL::OBJECT)) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-CLASSOID ; in: DEFUN OUTPUT-FLOAT-INFINITY ; (DEFUN SB!IMPL::OUTPUT-FLOAT-INFINITY (SB!IMPL::X STREAM) ; (DECLARE (FLOAT SB!IMPL::X) ; (STREAM STREAM)) ; (COND (*READ-EVAL* (WRITE-STRING "#." STREAM)) ; (*PRINT-READABLY* ; (RETURN-FROM SB!IMPL::OUTPUT-FLOAT-INFINITY ; (SB!INT:PRINT-NOT-READABLE-ERROR SB!IMPL::X STREAM))) ; (T (WRITE-STRING "#<" STREAM))) ; (WRITE-STRING "SB-EXT:" STREAM) ; (WRITE-STRING (SYMBOL-NAME (SB!KERNEL:FLOAT-FORMAT-NAME SB!IMPL::X)) ; STREAM) ; (WRITE-STRING ; (IF (PLUSP SB!IMPL::X) ; "-POSITIVE-" ; "-NEGATIVE-") ; STREAM) ; (WRITE-STRING "INFINITY" STREAM) ; (UNLESS *READ-EVAL* (WRITE-STRING ">" STREAM))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; --> SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET ; --> SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT26611 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-INVALID ; in: DEFUN PRINT-FLOAT-EXPONENT ; (DEFUN SB!IMPL::PRINT-FLOAT-EXPONENT (SB!IMPL::X EXP STREAM) ; (DECLARE (TYPE FLOAT SB!IMPL::X) ; (TYPE INTEGER EXP) ; (TYPE STREAM STREAM)) ; (LET ((*PRINT-RADIX* NIL)) ; (IF (TYPEP SB!IMPL::X *READ-DEFAULT-FLOAT-FORMAT*) ; (UNLESS (EQL EXP 0) (FORMAT STREAM "e~D" EXP)) ; (FORMAT STREAM "~C~D" (ETYPECASE SB!IMPL::X # # # #) EXP)))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; --> SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET ; --> SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT26602 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-INVALID ; in: DEFUN OUTPUT-OBJECT ; (WITH-SIMPLE-RESTART (CONTINUE "Suppress the error.") (SIGNAL CONDITION)) ; --> RESTART-CASE BLOCK LET TAGBODY RESTART-BIND LET CONS LIST CONS ; --> SB!KERNEL:MAKE-RESTART FUNCTION SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> UNLESS IF TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT25729 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-INVALID ; in: DEFUN %PRINT-UNREADABLE-OBJECT ; (PPRINT-LOGICAL-BLOCK (STREAM NIL :PREFIX "#<" :SUFFIX ">") ; (SB!IMPL::PRINT-DESCRIPTION)) ; --> LET LET SB!PRETTY::WITH-PRETTY-STREAM FLET LET IF CATCH BLOCK ; --> SB!C::%WITHIN-CLEANUP LET ; ==> ; (SB!PRETTY::MAKE-PRETTY-STREAM STREAM) ; ; caught STYLE-WARNING: ; undefined function: SB!PRETTY::MAKE-PRETTY-STREAM ; in: DEFUN OUTPUT-OBJECT ; (SB!PRETTY:OUTPUT-PRETTY-OBJECT SB!IMPL::OBJECT STREAM) ; ; caught STYLE-WARNING: ; undefined function: SB!PRETTY:OUTPUT-PRETTY-OBJECT ; in: DEFUN OUTPUT-SYMBOL ; (SB!IMPL::PACKAGE-%LOCAL-NICKNAMES SB!IMPL::CURRENT) ; ; caught STYLE-WARNING: ; undefined function: PACKAGE-%LOCAL-NICKNAMES ; in: DEFUN %PRINT-UNREADABLE-OBJECT ; (PPRINT-LOGICAL-BLOCK (STREAM NIL :PREFIX "#<" :SUFFIX ">") ; (SB!IMPL::PRINT-DESCRIPTION)) ; --> LET LET SB!PRETTY::WITH-PRETTY-STREAM FLET LET IF ; ==> ; (SB!PRETTY:PRETTY-STREAM-P STREAM) ; ; caught STYLE-WARNING: ; undefined function: SB!PRETTY:PRETTY-STREAM-P ; (SB!INT:PRINT-PRETTY-ON-STREAM-P STREAM) ; ; caught STYLE-WARNING: ; undefined function: PRINT-PRETTY-ON-STREAM-P ; in: DEFUN OUTPUT-CAPITALIZE-SYMBOL ; (READTABLE-CASE *READTABLE*) ; ; caught STYLE-WARNING: ; undefined function: READTABLE-CASE ; in: DEFUN SYMBOL-QUOTEP ; (READTABLE-CASE *READTABLE*) ; ; caught STYLE-WARNING: ; undefined function: READTABLE-CASE ; in: DEFUN SETUP-PRINTER-STATE ; (READTABLE-CASE *READTABLE*) ; ; caught STYLE-WARNING: ; undefined function: READTABLE-CASE ; in: DEFUN OUTPUT-SYMBOL-NAME ; (SB!EXT:READTABLE-NORMALIZATION *READTABLE*) ; ; caught STYLE-WARNING: ; undefined function: READTABLE-NORMALIZATION ; in: DEFUN %PRINT-UNREADABLE-OBJECT ; (PPRINT-LOGICAL-BLOCK (STREAM NIL :PREFIX "#<" :SUFFIX ">") ; (SB!IMPL::PRINT-DESCRIPTION)) ; --> LET LET SB!PRETTY::WITH-PRETTY-STREAM FLET BLOCK SB!KERNEL:DESCEND-INTO ; --> FLET BLOCK LET ; ==> ; (SB!PRETTY::START-LOGICAL-BLOCK STREAM #:PREFIX-VAR319 NIL #:SUFFIX-VAR320) ; ; caught STYLE-WARNING: ; undefined function: SB!PRETTY::START-LOGICAL-BLOCK ; in: DEFUN !PRINTER-COLD-INIT ; (MAKE-ARRAY 128 :ELEMENT-TYPE '(UNSIGNED-BYTE 8) :INITIAL-ELEMENT 36) ; --> LOCALLY MAKE-ARRAY SB!EXT:TRULY-THE ; ==> ; (FILL ; (SB!EXT:TRULY-THE (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (128)) ; (SB!KERNEL:ALLOCATE-VECTOR 154 (THE SB!INT:INDEX LENGTH) ; 32)) ; (THE (UNSIGNED-BYTE 8) '36)) ; ; caught STYLE-WARNING: ; undefined function: UB8-BASH-FILL ; in: DEFUN OUTPUT-FLOAT-INFINITY ; (DEFUN SB!IMPL::OUTPUT-FLOAT-INFINITY (SB!IMPL::X STREAM) ; (DECLARE (FLOAT SB!IMPL::X) ; (STREAM STREAM)) ; (COND (*READ-EVAL* (WRITE-STRING "#." STREAM)) ; (*PRINT-READABLY* ; (RETURN-FROM SB!IMPL::OUTPUT-FLOAT-INFINITY ; (SB!INT:PRINT-NOT-READABLE-ERROR SB!IMPL::X STREAM))) ; (T (WRITE-STRING "#<" STREAM))) ; (WRITE-STRING "SB-EXT:" STREAM) ; (WRITE-STRING (SYMBOL-NAME (SB!KERNEL:FLOAT-FORMAT-NAME SB!IMPL::X)) ; STREAM) ; (WRITE-STRING ; (IF (PLUSP SB!IMPL::X) ; "-POSITIVE-" ; "-NEGATIVE-") ; STREAM) ; (WRITE-STRING "INFINITY" STREAM) ; (UNLESS *READ-EVAL* (WRITE-STRING ">" STREAM))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; --> SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET ; --> SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT26611 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: UPDATE-OBJECT-LAYOUT-OR-INVALID ; in: DEFUN PRINT-FLOAT-EXPONENT ; (DEFUN SB!IMPL::PRINT-FLOAT-EXPONENT (SB!IMPL::X EXP STREAM) ; (DECLARE (TYPE FLOAT SB!IMPL::X) ; (TYPE INTEGER EXP) ; (TYPE STREAM STREAM)) ; (LET ((*PRINT-RADIX* NIL)) ; (IF (TYPEP SB!IMPL::X *READ-DEFAULT-FLOAT-FORMAT*) ; (UNLESS (EQL EXP 0) (FORMAT STREAM "e~D" EXP)) ; (FORMAT STREAM "~C~D" (ETYPECASE SB!IMPL::X # # # #) EXP)))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; --> SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET ; --> SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT26602 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: UPDATE-OBJECT-LAYOUT-OR-INVALID ; in: DEFUN OUTPUT-OBJECT ; (WITH-SIMPLE-RESTART (CONTINUE "Suppress the error.") (SIGNAL CONDITION)) ; --> RESTART-CASE BLOCK LET TAGBODY RESTART-BIND LET CONS LIST CONS ; --> SB!KERNEL:MAKE-RESTART FUNCTION SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> UNLESS IF TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT25729 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: UPDATE-OBJECT-LAYOUT-OR-INVALID ; in: DEFUN OUTPUT-WEAK-POINTER ; (SB!EXT:WEAK-POINTER-VALUE SB!EXT:WEAK-POINTER) ; ; caught STYLE-WARNING: ; undefined function: WEAK-POINTER-VALUE ; ; compilation unit finished ; Undefined types: ; CODE-DELETION-NOTE COMPILER-NOTE CONDITION ; Undefined functions: ; %DEFGLOBAL %FUNCALLABLE-INSTANCE-LAYOUT (SETF FDOCUMENTATION) (SETF READTABLE-CASE) SB!C::DEBUG-INFO-NAME DEFAULT-STRUCTURE-PRINT SB!PRETTY::END-LOGICAL-BLOCK FIND-EXTERNAL-SYMBOL FLOAT-FORMAT-NAME SB!PRETTY::FORCE-PRETTY-OUTPUT LAYOUT-CLASSOID LAYOUT-INVALID SB!PRETTY::MAKE-PRETTY-STREAM SB!PRETTY:OUTPUT-PRETTY-OBJECT PACKAGE-%LOCAL-NICKNAMES SB!PRETTY:PRETTY-STREAM-P PRINT-PRETTY-ON-STREAM-P READTABLE-CASE READTABLE-NORMALIZATION SB!PRETTY::START-LOGICAL-BLOCK UB8-BASH-FILL UPDATE-OBJECT-LAYOUT-OR-INVALID WEAK-POINTER-VALUE ; caught 46 STYLE-WARNING conditions ; printed 1 note ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/print.lisp-obj-tmp written ; compilation finished in 0:00:01.773 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/pprint.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!PRETTY") ; x-compiling (DEFTYPE COLUMN ...) ; x-compiling (DEFTYPE POSN ...) ; x-compiling (DEFCONSTANT INITIAL-BUFFER-SIZE ...) ; x-compiling (DEFCONSTANT DEFAULT-LINE-LENGTH ...) ; x-compiling (DEFSTRUCT (PRETTY-STREAM # ...) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/pprint.lisp ; in: DEFSTRUCT PRETTY-STREAM ; (DEFSTRUCT ; (SB!PRETTY:PRETTY-STREAM ; (:INCLUDE SB!KERNEL:ANSI-STREAM (SB!PRETTY::OUT #'SB!PRETTY::PRETTY-OUT) ; (SB!PRETTY::SOUT #'SB!PRETTY::PRETTY-SOUT) ; (SB!PRETTY::MISC #'SB!PRETTY::PRETTY-MISC)) ; (:CONSTRUCTOR SB!PRETTY::MAKE-PRETTY-STREAM (SB!PRETTY::TARGET)) ; (:COPIER NIL)) ; (SB!PRETTY::TARGET (SB!INT:MISSING-ARG) :TYPE STREAM :READ-ONLY T) ; (SB!KERNEL:LINE-LENGTH ; (OR *PRINT-RIGHT-MARGIN* (SB!KERNEL:LINE-LENGTH SB!PRETTY::TARGET) ; SB!PRETTY::DEFAULT-LINE-LENGTH) ; :TYPE SB!PRETTY::COLUMN :READ-ONLY T) ; (SB!PRETTY::CHAR-OUT-ONESHOT-HOOK NIL :TYPE (OR NULL FUNCTION)) ; (SB!PRETTY::BUFFER (MAKE-STRING SB!PRETTY::INITIAL-BUFFER-SIZE) :TYPE ; (SIMPLE-ARRAY CHARACTER (*))) ; (SB!PRETTY::BUFFER-FILL-POINTER 0 :TYPE SB!INT:INDEX) ; (SB!PRETTY::BUFFER-OFFSET 0 :TYPE SB!PRETTY::POSN) ; (SB!PRETTY::BUFFER-START-COLUMN ; (OR (SB!KERNEL:CHARPOS SB!PRETTY::TARGET) 0) :TYPE SB!PRETTY::COLUMN) ; (SB!PRETTY::LINE-NUMBER 0 :TYPE SB!INT:INDEX) ; (SB!PRETTY::PRINT-LINES *PRINT-LINES* :TYPE (OR SB!INT:INDEX NULL) ; :READ-ONLY T) ; (SB!PRETTY::BLOCKS (LIST (SB!PRETTY::MAKE-LOGICAL-BLOCK)) :TYPE LIST) ; ...) ; --> PROGN EVAL-WHEN ; ==> ; (SB!KERNEL::%COMPILER-DEFSTRUCT ; '# ; '#(# ; # ; # ; #)) ; ; caught STYLE-WARNING: ; Previously compiled call to SB!PRETTY:PRETTY-STREAM-P could not be inlined ; because the structure definition for SB!PRETTY:PRETTY-STREAM was not yet seen. ; To avoid this warning, DEFSTRUCT should precede references to the affected ; functions, or they must be declared locally notinline at each call site. ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DECLAIM (INLINE INDEX-POSN ...)) ; x-compiling (DEFUN INDEX-POSN ...) ; x-compiling (DEFUN POSN-INDEX ...) ; x-compiling (DEFUN POSN-COLUMN ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/pprint.lisp ; in: DEFUN POSN-COLUMN ; (DEFUN SB!PRETTY::POSN-COLUMN (SB!PRETTY::POSN STREAM) ; (DECLARE (TYPE SB!PRETTY::POSN SB!PRETTY::POSN) ; (TYPE SB!PRETTY:PRETTY-STREAM STREAM) ; (VALUES SB!PRETTY::POSN)) ; (SB!PRETTY::INDEX-COLUMN (SB!PRETTY::POSN-INDEX SB!PRETTY::POSN STREAM) ; STREAM)) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (THE (VALUES FIXNUM &REST T) ; (PROGN ; (BLOCK SB!PRETTY::POSN-COLUMN ; (SB!PRETTY::INDEX-COLUMN ; (SB!PRETTY::POSN-INDEX SB!PRETTY::POSN STREAM) STREAM)))) ; ; note: type assertion too complex to check: ; (VALUES FIXNUM &REST T). ; x-compiling (DEFUN PRINT-PRETTY-ON-STREAM-P ...) ; x-compiling (DEFUN PRETTY-OUT ...) ; x-compiling (DEFUN PRETTY-SOUT ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/pprint.lisp ; in: DEFUN PRETTY-SOUT ; (LOOP SB!PRETTY::FOR SB!PRETTY::I SB!PRETTY::FROM FILL-POINTER SB!PRETTY::BELOW SB!PRETTY::NEW-FILL-PTR ; SB!PRETTY::FOR SB!PRETTY::J SB!PRETTY::FROM SB!PRETTY::START ; SB!PRETTY::WITH ...) ; --> BLOCK LET ; ==> ; FILL-POINTER ; ; note: deleting unreachable code ; --> BLOCK LET LET ; ==> ; SB!PRETTY::START ; ; note: deleting unreachable code ; (SB!PRETTY::PRETTY-STREAM-BUFFER STREAM) ; --> SB!EXT:TRULY-THE SB!KERNEL:%INSTANCE-REF THE ; ==> ; STREAM ; ; note: deleting unreachable code ; (LOOP SB!PRETTY::FOR SB!PRETTY::I SB!PRETTY::FROM FILL-POINTER SB!PRETTY::BELOW SB!PRETTY::NEW-FILL-PTR ; SB!PRETTY::FOR SB!PRETTY::J SB!PRETTY::FROM SB!PRETTY::START ; SB!PRETTY::WITH ...) ; --> BLOCK LET LET LET SB!LOOP::LOOP-BODY TAGBODY WHEN IF >= ; ==> ; SB!PRETTY::I ; ; note: deleting unreachable code ; --> BLOCK LET LET LET SB!LOOP::LOOP-BODY TAGBODY SB!LOOP::LOOP-REALLY-DESETQ ; --> SETQ THE 1+ + ; ==> ; SB!PRETTY::I ; ; note: deleting unreachable code ; ==> ; SB!PRETTY::J ; ; note: deleting unreachable code ; (SETF (AREF SB!PRETTY::TARGET SB!PRETTY::I) (AREF STRING SB!PRETTY::J)) ; --> LET* ; ==> ; SB!PRETTY::TARGET ; ; note: deleting unreachable code ; ==> ; SB!PRETTY::I ; ; note: deleting unreachable code ; (AREF STRING SB!PRETTY::J) ; ==> ; STRING ; ; note: deleting unreachable code ; (SB!PRETTY::PRETTY-STREAM-BUFFER STREAM) ; --> SB!EXT:TRULY-THE SB!KERNEL:%INSTANCE-REF THE ; ==> ; STREAM ; ; note: deleting unreachable code ; x-compiling (DEFUN PRETTY-MISC ...) ; x-compiling (DEFSTRUCT (LOGICAL-BLOCK #) ...) ; x-compiling (DEFUN REALLY-START-LOGICAL-BLOCK ...) ; x-compiling (DEFUN SET-INDENTATION ...) ; x-compiling (DEFUN REALLY-END-LOGICAL-BLOCK ...) ; x-compiling (DEFSTRUCT (QUEUED-OP # ...) ...) ; x-compiling (DEFMACRO ENQUEUE ...) ; x-compiling (DEFSTRUCT (SECTION-START # ...) ...) ; x-compiling (DEFSTRUCT (NEWLINE # ...) ...) ; x-compiling (DEFUN ENQUEUE-NEWLINE ...) ; x-compiling (DEFSTRUCT (INDENTATION # ...) ...) ; x-compiling (DEFUN ENQUEUE-INDENT ...) ; x-compiling (DEFSTRUCT (BLOCK-START # ...) ...) ; x-compiling (DEFUN START-LOGICAL-BLOCK ...) ; x-compiling (DEFSTRUCT (BLOCK-END # ...) ...) ; x-compiling (DEFUN END-LOGICAL-BLOCK ...) ; x-compiling (DEFSTRUCT (TAB # ...) ...) ; x-compiling (DEFUN ENQUEUE-TAB ...) ; x-compiling (DEFUN COMPUTE-TAB-SIZE ...) ; x-compiling (DEFUN INDEX-COLUMN ...) ; x-compiling (DEFUN EXPAND-TABS ...) ; x-compiling (DEFUN ENSURE-SPACE-IN-BUFFER ...) ; x-compiling (DEFUN MAYBE-OUTPUT ...) ; x-compiling (DEFUN MISERING-P ...) ; x-compiling (DEFUN FITS-ON-LINE-P ...) ; x-compiling (DEFUN OUTPUT-LINE ...) ; x-compiling (DEFUN OUTPUT-PARTIAL-LINE ...) ; x-compiling (DEFUN FORCE-PRETTY-OUTPUT ...) ; x-compiling (DEFUN PPRINT-NEWLINE ...) ; x-compiling (DEFUN PPRINT-INDENT ...) ; x-compiling (DEFUN PPRINT-TAB ...) ; x-compiling (DEFUN PPRINT-FILL ...) ; x-compiling (DEFUN PPRINT-LINEAR ...) ; x-compiling (DEFUN PPRINT-TABULAR ...) ; x-compiling (DEFVAR *STANDARD-PPRINT-DISPATCH-TABLE*) ; x-compiling (DEFVAR *INITIAL-PPRINT-DISPATCH-TABLE*) ; x-compiling (DEFSTRUCT (PPRINT-DISPATCH-ENTRY #) ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFUN CONS-TYPE-SPECIFIER-P ...) ; x-compiling (DEFUN ENTRY< ...) ; x-compiling (DEFUN COMPUTE-TEST-FN ...) ; x-compiling (DEFUN COPY-PPRINT-DISPATCH ...) ; x-compiling (DEFUN PPRINT-DISPATCH ...) ; x-compiling (DEFUN ASSERT-NOT-STANDARD-PPRINT-DISPATCH-TABLE ...) ; x-compiling (DEFUN SET-PPRINT-DISPATCH ...) ; x-compiling (DEFUN PPRINT-ARRAY ...) ; x-compiling (DEFUN PPRINT-VECTOR ...) ; x-compiling (DEFUN PPRINT-MULTI-DIM-ARRAY ...) ; x-compiling (DEFUN PPRINT-LAMBDA-LIST ...) ; x-compiling (DEFUN PPRINT-LAMBDA ...) ; x-compiling (DEFUN PPRINT-BLOCK ...) ; x-compiling (DEFUN PPRINT-FLET ...) ; x-compiling (DEFUN PPRINT-LET ...) ; x-compiling (DEFUN PPRINT-PROGN ...) ; x-compiling (DEFUN PPRINT-PROGV ...) ; x-compiling (DEFUN PPRINT-PROG2 ...) ; x-compiling (DEFUN PPRINT-UNQUOTING-COMMA ...) ; x-compiling (DEFVAR *PPRINT-QUOTE-WITH-SYNTACTIC-SUGAR* ...) ; x-compiling (DEFUN PPRINT-QUOTE ...) ; x-compiling (DEFUN PPRINT-DECLARE ...) ; x-compiling (DEFUN PPRINT-SETQ ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/pprint.lisp ; in: DEFUN PPRINT-SETQ ; (PPRINT-LOGICAL-BLOCK (STREAM LIST :PREFIX "(" :SUFFIX ")") ; (PPRINT-EXIT-IF-LIST-EXHAUSTED) ; (SB!KERNEL:OUTPUT-OBJECT (PPRINT-POP) STREAM) ; (PPRINT-EXIT-IF-LIST-EXHAUSTED) ; (WRITE-CHAR #\ STREAM) ; (UNLESS (LISTP (CDR LIST)) (WRITE-STRING ". " STREAM)) ; (PPRINT-NEWLINE :MISER STREAM) ; (PPRINT-LOGICAL-BLOCK (STREAM (CDR LIST) :PREFIX "" :SUFFIX "") ; (LOOP (PPRINT-INDENT :BLOCK 2 STREAM) ; (SB!KERNEL:OUTPUT-OBJECT (PPRINT-POP) STREAM) ; (PPRINT-EXIT-IF-LIST-EXHAUSTED) ; (WRITE-CHAR #\ STREAM) ; (PPRINT-NEWLINE :FILL STREAM) ; (PPRINT-INDENT :BLOCK 0 STREAM) ; (SB!KERNEL:OUTPUT-OBJECT (PPRINT-POP) STREAM) ; (PPRINT-EXIT-IF-LIST-EXHAUSTED) ; (WRITE-CHAR #\ STREAM) ; (PPRINT-NEWLINE :MANDATORY STREAM)))) ; --> LET LET SB!PRETTY::WITH-PRETTY-STREAM FLET BLOCK LET IF ; --> SB!KERNEL:WITH-CIRCULARITY-DETECTION LABELS BLOCK SB!KERNEL:DESCEND-INTO ; --> FLET BLOCK LET BLOCK FLET BLOCK WHEN IF PROGN WRITE-STRING ; ==> ; STREAM ; ; note: deleting unreachable code ; x-compiling (DEFMACRO PPRINT-TAGBODY-GUTS ...) ; x-compiling (DEFUN PPRINT-TAGBODY ...) ; x-compiling (DEFUN PPRINT-CASE ...) ; x-compiling (DEFUN PPRINT-DEFUN ...) ; x-compiling (DEFUN PPRINT-DEFMETHOD ...) ; x-compiling (DEFUN PPRINT-DEFPACKAGE ...) ; x-compiling (DEFUN PPRINT-DESTRUCTURING-BIND ...) ; x-compiling (DEFUN PPRINT-DO ...) ; x-compiling (DEFUN PPRINT-DOLIST ...) ; x-compiling (DEFUN PPRINT-TYPECASE ...) ; x-compiling (DEFUN PPRINT-PROG ...) ; x-compiling (DEFVAR *LOOP-SEPERATING-CLAUSES* ...) ; x-compiling (DEFUN PPRINT-EXTENDED-LOOP ...) ; x-compiling (DEFUN PPRINT-LOOP ...) ; x-compiling (DEFUN PPRINT-IF ...) ; x-compiling (DEFUN PPRINT-FUN-CALL ...) ; x-compiling (DEFUN PPRINT-SPREAD-FUN-CALL ...) ; x-compiling (DEFUN PPRINT-DATA-LIST ...) ; x-compiling (DEFUN MACRO-INDENTATION ...) ; x-compiling (DEFUN PPRINT-MACRO-CALL ...) ; x-compiling (DEFUN OUTPUT-PRETTY-OBJECT ...) ; x-compiling (DEFUN !PPRINT-COLD-INIT ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/pprint.lisp ; in: DEFUN PPRINT-INDENT ; (DEFUN PPRINT-INDENT (SB!PRETTY::RELATIVE-TO SB!PRETTY::N &OPTIONAL STREAM) ; "Specify the indentation to use in the current logical block if ; STREAM (which defaults to *STANDARD-OUTPUT*) is a pretty-printing ; stream and do nothing if not. (See PPRINT-LOGICAL-BLOCK.) N is the ; indentation to use (in ems, the width of an ``m'') and RELATIVE-TO can ; be either: ; ; :BLOCK - Indent relative to the column the current logical block ; started on. ; ; :CURRENT - Indent relative to the current column. ; ; The new indentation value does not take effect until the following ; line break." ; (DECLARE (TYPE (MEMBER :BLOCK :CURRENT) SB!PRETTY::RELATIVE-TO) ; (TYPE REAL SB!PRETTY::N) ; (TYPE (OR STREAM (MEMBER T NIL)) STREAM) ; (VALUES NULL)) ; (LET ((STREAM (CASE STREAM # # #))) ; (WHEN (SB!INT:PRINT-PRETTY-ON-STREAM-P STREAM) ; (SB!PRETTY::ENQUEUE-INDENT STREAM SB!PRETTY::RELATIVE-TO ; (TRUNCATE SB!PRETTY::N)))) ; NIL) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION COND ; --> IF COND THE PROGN SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP ; --> LET SB!C::%TYPEP-WRAPPER LET OR LET TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT27972 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: %FUNCALLABLE-INSTANCE-LAYOUT ; in: DEFUN PPRINT-NEWLINE ; (DEFUN PPRINT-NEWLINE (SB!PRETTY::KIND &OPTIONAL STREAM) ; "Output a conditional newline to STREAM (which defaults to ; *STANDARD-OUTPUT*) if it is a pretty-printing stream, and do ; nothing if not. KIND can be one of: ; :LINEAR - A line break is inserted if and only if the immediately ; containing section cannot be printed on one line. ; :MISER - Same as LINEAR, but only if ``miser-style'' is in effect. ; (See *PRINT-MISER-WIDTH*.) ; :FILL - A line break is inserted if and only if either: ; (a) the following section cannot be printed on the end of the ; current line, ; (b) the preceding section was not printed on a single line, or ; (c) the immediately containing section cannot be printed on one ; line and miser-style is in effect. ; :MANDATORY - A line break is always inserted. ; When a line break is inserted by any type of conditional newline, any ; blanks that immediately precede the conditional newline are omitted ; from the output and indentation is introduced at the beginning of the ; next line. (See PPRINT-INDENT.)" ; (DECLARE (TYPE (MEMBER :LINEAR :MISER :FILL :MANDATORY) SB!PRETTY::KIND) ; (TYPE (OR STREAM (MEMBER T NIL)) STREAM) ; (VALUES NULL)) ; (LET ((STREAM (CASE STREAM # # #))) ; (WHEN (SB!INT:PRINT-PRETTY-ON-STREAM-P STREAM) ; (SB!PRETTY::ENQUEUE-NEWLINE STREAM SB!PRETTY::KIND))) ; NIL) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION COND ; --> IF COND THE PROGN SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP ; --> LET SB!C::%TYPEP-WRAPPER LET OR LET TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT27953 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: %FUNCALLABLE-INSTANCE-LAYOUT ; in: DEFSTRUCT PRETTY-STREAM ; (DEFSTRUCT ; (SB!PRETTY:PRETTY-STREAM ; (:INCLUDE SB!KERNEL:ANSI-STREAM (SB!PRETTY::OUT #'SB!PRETTY::PRETTY-OUT) ; (SB!PRETTY::SOUT #'SB!PRETTY::PRETTY-SOUT) ; (SB!PRETTY::MISC #'SB!PRETTY::PRETTY-MISC)) ; (:CONSTRUCTOR SB!PRETTY::MAKE-PRETTY-STREAM (SB!PRETTY::TARGET)) ; (:COPIER NIL)) ; (SB!PRETTY::TARGET (SB!INT:MISSING-ARG) :TYPE STREAM :READ-ONLY T) ; (SB!KERNEL:LINE-LENGTH ; (OR *PRINT-RIGHT-MARGIN* (SB!KERNEL:LINE-LENGTH SB!PRETTY::TARGET) ; SB!PRETTY::DEFAULT-LINE-LENGTH) ; :TYPE SB!PRETTY::COLUMN :READ-ONLY T) ; (SB!PRETTY::CHAR-OUT-ONESHOT-HOOK NIL :TYPE (OR NULL FUNCTION)) ; (SB!PRETTY::BUFFER (MAKE-STRING SB!PRETTY::INITIAL-BUFFER-SIZE) :TYPE ; (SIMPLE-ARRAY CHARACTER (*))) ; (SB!PRETTY::BUFFER-FILL-POINTER 0 :TYPE SB!INT:INDEX) ; (SB!PRETTY::BUFFER-OFFSET 0 :TYPE SB!PRETTY::POSN) ; (SB!PRETTY::BUFFER-START-COLUMN ; (OR (SB!KERNEL:CHARPOS SB!PRETTY::TARGET) 0) :TYPE SB!PRETTY::COLUMN) ; (SB!PRETTY::LINE-NUMBER 0 :TYPE SB!INT:INDEX) ; (SB!PRETTY::PRINT-LINES *PRINT-LINES* :TYPE (OR SB!INT:INDEX NULL) ; :READ-ONLY T) ; (SB!PRETTY::BLOCKS (LIST (SB!PRETTY::MAKE-LOGICAL-BLOCK)) :TYPE LIST) ; ...) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET ; --> SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT26926 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: %FUNCALLABLE-INSTANCE-LAYOUT ; ; caught STYLE-WARNING: ; 4 more uses of undefined function %FUNCALLABLE-INSTANCE-LAYOUT ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/pprint.lisp ; in: DEFSTRUCT QUEUED-OP ; (DEFSTRUCT (SB!PRETTY::QUEUED-OP (:CONSTRUCTOR NIL) (:COPIER NIL)) ; (SB!PRETTY::POSN 0 :TYPE SB!PRETTY::POSN)) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: DEFSTRUCT LOGICAL-BLOCK ; (DEFSTRUCT (SB!PRETTY::LOGICAL-BLOCK (:COPIER NIL)) ; (SB!PRETTY::START-COLUMN 0 :TYPE SB!PRETTY::COLUMN) ; (SB!PRETTY::SECTION-COLUMN 0 :TYPE SB!PRETTY::COLUMN) ; (SB!PRETTY::PER-LINE-PREFIX-END 0 :TYPE SB!INT:INDEX) ; (SB!PRETTY::PREFIX-LENGTH 0 :TYPE SB!INT:INDEX) ; (SB!PRETTY::SUFFIX-LENGTH 0 :TYPE SB!INT:INDEX) ; (SB!PRETTY::SECTION-START-LINE 0 :TYPE SB!INT:INDEX)) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: DEFSTRUCT PRETTY-STREAM ; (DEFSTRUCT ; (SB!PRETTY:PRETTY-STREAM ; (:INCLUDE SB!KERNEL:ANSI-STREAM (SB!PRETTY::OUT #'SB!PRETTY::PRETTY-OUT) ; (SB!PRETTY::SOUT #'SB!PRETTY::PRETTY-SOUT) ; (SB!PRETTY::MISC #'SB!PRETTY::PRETTY-MISC)) ; (:CONSTRUCTOR SB!PRETTY::MAKE-PRETTY-STREAM (SB!PRETTY::TARGET)) ; (:COPIER NIL)) ; (SB!PRETTY::TARGET (SB!INT:MISSING-ARG) :TYPE STREAM :READ-ONLY T) ; (SB!KERNEL:LINE-LENGTH ; (OR *PRINT-RIGHT-MARGIN* (SB!KERNEL:LINE-LENGTH SB!PRETTY::TARGET) ; SB!PRETTY::DEFAULT-LINE-LENGTH) ; :TYPE SB!PRETTY::COLUMN :READ-ONLY T) ; (SB!PRETTY::CHAR-OUT-ONESHOT-HOOK NIL :TYPE (OR NULL FUNCTION)) ; (SB!PRETTY::BUFFER (MAKE-STRING SB!PRETTY::INITIAL-BUFFER-SIZE) :TYPE ; (SIMPLE-ARRAY CHARACTER (*))) ; (SB!PRETTY::BUFFER-FILL-POINTER 0 :TYPE SB!INT:INDEX) ; (SB!PRETTY::BUFFER-OFFSET 0 :TYPE SB!PRETTY::POSN) ; (SB!PRETTY::BUFFER-START-COLUMN ; (OR (SB!KERNEL:CHARPOS SB!PRETTY::TARGET) 0) :TYPE SB!PRETTY::COLUMN) ; (SB!PRETTY::LINE-NUMBER 0 :TYPE SB!INT:INDEX) ; (SB!PRETTY::PRINT-LINES *PRINT-LINES* :TYPE (OR SB!INT:INDEX NULL) ; :READ-ONLY T) ; (SB!PRETTY::BLOCKS (LIST (SB!PRETTY::MAKE-LOGICAL-BLOCK)) :TYPE LIST) ; ...) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; ; caught STYLE-WARNING: ; 7 more uses of undefined function SB!KERNEL::%TARGET-DEFSTRUCT ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/pprint.lisp ; in: DEFUN SET-PPRINT-DISPATCH ; (SETF (SB!PRETTY::PPRINT-DISPATCH-TABLE-ENTRIES SB!PRETTY::TABLE) ; (LET ((LIST #)) ; (IF FUNCTION ; (MERGE 'LIST LIST # #) ; LIST))) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!PRETTY::PPRINT-DISPATCH-TABLE-ENTRIES) #:NEW2449 ; #:TABLE2450) ; ; caught STYLE-WARNING: ; undefined function: (SETF PPRINT-DISPATCH-TABLE-ENTRIES) ; in: DEFSTRUCT PRETTY-STREAM ; (MAKE-STRING SB!PRETTY::INITIAL-BUFFER-SIZE) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 283 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/pprint.lisp ; in: DEFUN COMPUTE-TEST-FN ; (SB!KERNEL:DD-PREDICATE-NAME SB!INT:INFO) ; ; caught STYLE-WARNING: ; undefined function: DD-PREDICATE-NAME ; in: DEFUN MACRO-INDENTATION ; (IGNORE-ERRORS (LIST-LENGTH LIST)) ; --> HANDLER-CASE SB!INT:DX-FLET FLET BLOCK SB!INT:DX-LET LET TAGBODY ; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK ; ==> ; (TYPEP CONDITION 'ERROR) ; ; caught STYLE-WARNING: ; undefined type: ERROR ; in: DEFUN COMPUTE-TEST-FN ; (SB!INT:INFO :TYPE :KIND TYPE) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; (SB!C::GET-INFO-VALUE TYPE 22) ; ; caught STYLE-WARNING: ; undefined function: SB!C::GET-INFO-VALUE ; in: DEFUN SET-PPRINT-DISPATCH ; (SB!INT:/HEXSTR TYPE) ; --> SB!SYS:%PRIMITIVE SB!C::%%PRIMITIVE ; ==> ; (SB!INT:HEXSTR TYPE) ; ; caught STYLE-WARNING: ; undefined function: HEXSTR ; in: DEFUN COMPUTE-TEST-FN ; (SB!INT:INFO :TYPE :KIND TYPE) ; ; caught STYLE-WARNING: ; undefined function: INFO ; (SB!KERNEL:LAYOUT-INFO SB!KERNEL:LAYOUT) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-INFO ; in: DEFUN PPRINT-INDENT ; (DEFUN PPRINT-INDENT (SB!PRETTY::RELATIVE-TO SB!PRETTY::N &OPTIONAL STREAM) ; "Specify the indentation to use in the current logical block if ; STREAM (which defaults to *STANDARD-OUTPUT*) is a pretty-printing ; stream and do nothing if not. (See PPRINT-LOGICAL-BLOCK.) N is the ; indentation to use (in ems, the width of an ``m'') and RELATIVE-TO can ; be either: ; ; :BLOCK - Indent relative to the column the current logical block ; started on. ; ; :CURRENT - Indent relative to the current column. ; ; The new indentation value does not take effect until the following ; line break." ; (DECLARE (TYPE (MEMBER :BLOCK :CURRENT) SB!PRETTY::RELATIVE-TO) ; (TYPE REAL SB!PRETTY::N) ; (TYPE (OR STREAM (MEMBER T NIL)) STREAM) ; (VALUES NULL)) ; (LET ((STREAM (CASE STREAM # # #))) ; (WHEN (SB!INT:PRINT-PRETTY-ON-STREAM-P STREAM) ; (SB!PRETTY::ENQUEUE-INDENT STREAM SB!PRETTY::RELATIVE-TO ; (TRUNCATE SB!PRETTY::N)))) ; NIL) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION COND ; --> IF COND THE PROGN SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP ; --> LET SB!C::%TYPEP-WRAPPER LET OR LET TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT27972 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-INVALID ; in: DEFUN PPRINT-NEWLINE ; (DEFUN PPRINT-NEWLINE (SB!PRETTY::KIND &OPTIONAL STREAM) ; "Output a conditional newline to STREAM (which defaults to ; *STANDARD-OUTPUT*) if it is a pretty-printing stream, and do ; nothing if not. KIND can be one of: ; :LINEAR - A line break is inserted if and only if the immediately ; containing section cannot be printed on one line. ; :MISER - Same as LINEAR, but only if ``miser-style'' is in effect. ; (See *PRINT-MISER-WIDTH*.) ; :FILL - A line break is inserted if and only if either: ; (a) the following section cannot be printed on the end of the ; current line, ; (b) the preceding section was not printed on a single line, or ; (c) the immediately containing section cannot be printed on one ; line and miser-style is in effect. ; :MANDATORY - A line break is always inserted. ; When a line break is inserted by any type of conditional newline, any ; blanks that immediately precede the conditional newline are omitted ; from the output and indentation is introduced at the beginning of the ; next line. (See PPRINT-INDENT.)" ; (DECLARE (TYPE (MEMBER :LINEAR :MISER :FILL :MANDATORY) SB!PRETTY::KIND) ; (TYPE (OR STREAM (MEMBER T NIL)) STREAM) ; (VALUES NULL)) ; (LET ((STREAM (CASE STREAM # # #))) ; (WHEN (SB!INT:PRINT-PRETTY-ON-STREAM-P STREAM) ; (SB!PRETTY::ENQUEUE-NEWLINE STREAM SB!PRETTY::KIND))) ; NIL) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION COND ; --> IF COND THE PROGN SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP ; --> LET SB!C::%TYPEP-WRAPPER LET OR LET TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT27953 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-INVALID ; in: DEFSTRUCT PRETTY-STREAM ; (DEFSTRUCT ; (SB!PRETTY:PRETTY-STREAM ; (:INCLUDE SB!KERNEL:ANSI-STREAM (SB!PRETTY::OUT #'SB!PRETTY::PRETTY-OUT) ; (SB!PRETTY::SOUT #'SB!PRETTY::PRETTY-SOUT) ; (SB!PRETTY::MISC #'SB!PRETTY::PRETTY-MISC)) ; (:CONSTRUCTOR SB!PRETTY::MAKE-PRETTY-STREAM (SB!PRETTY::TARGET)) ; (:COPIER NIL)) ; (SB!PRETTY::TARGET (SB!INT:MISSING-ARG) :TYPE STREAM :READ-ONLY T) ; (SB!KERNEL:LINE-LENGTH ; (OR *PRINT-RIGHT-MARGIN* (SB!KERNEL:LINE-LENGTH SB!PRETTY::TARGET) ; SB!PRETTY::DEFAULT-LINE-LENGTH) ; :TYPE SB!PRETTY::COLUMN :READ-ONLY T) ; (SB!PRETTY::CHAR-OUT-ONESHOT-HOOK NIL :TYPE (OR NULL FUNCTION)) ; (SB!PRETTY::BUFFER (MAKE-STRING SB!PRETTY::INITIAL-BUFFER-SIZE) :TYPE ; (SIMPLE-ARRAY CHARACTER (*))) ; (SB!PRETTY::BUFFER-FILL-POINTER 0 :TYPE SB!INT:INDEX) ; (SB!PRETTY::BUFFER-OFFSET 0 :TYPE SB!PRETTY::POSN) ; (SB!PRETTY::BUFFER-START-COLUMN ; (OR (SB!KERNEL:CHARPOS SB!PRETTY::TARGET) 0) :TYPE SB!PRETTY::COLUMN) ; (SB!PRETTY::LINE-NUMBER 0 :TYPE SB!INT:INDEX) ; (SB!PRETTY::PRINT-LINES *PRINT-LINES* :TYPE (OR SB!INT:INDEX NULL) ; :READ-ONLY T) ; (SB!PRETTY::BLOCKS (LIST (SB!PRETTY::MAKE-LOGICAL-BLOCK)) :TYPE LIST) ; ...) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET ; --> SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT26926 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-INVALID ; ; caught STYLE-WARNING: ; 4 more uses of undefined function LAYOUT-INVALID ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/pprint.lisp ; in: DEFUN !PPRINT-COLD-INIT ; (SB!PRETTY::MAKE-PPRINT-DISPATCH-TABLE) ; ; caught STYLE-WARNING: ; undefined function: MAKE-PPRINT-DISPATCH-TABLE ; in: DEFUN COPY-PPRINT-DISPATCH ; (SB!PRETTY::MAKE-PPRINT-DISPATCH-TABLE :ENTRIES ; (COPY-LIST ; (SB!PRETTY::PPRINT-DISPATCH-TABLE-ENTRIES ; SB!PRETTY::ORIG))) ; ; caught STYLE-WARNING: ; undefined function: MAKE-PPRINT-DISPATCH-TABLE ; in: DEFUN SET-PPRINT-DISPATCH ; (SB!PRETTY::PPRINT-DISPATCH-TABLE-CONS-ENTRIES SB!PRETTY::TABLE) ; ; caught STYLE-WARNING: ; undefined function: PPRINT-DISPATCH-TABLE-CONS-ENTRIES ; in: DEFUN PPRINT-DISPATCH ; (SB!PRETTY::PPRINT-DISPATCH-TABLE-CONS-ENTRIES SB!PRETTY::TABLE) ; ; caught STYLE-WARNING: ; undefined function: PPRINT-DISPATCH-TABLE-CONS-ENTRIES ; in: DEFUN COPY-PPRINT-DISPATCH ; (SB!PRETTY::PPRINT-DISPATCH-TABLE-CONS-ENTRIES SB!PRETTY::NEW) ; ; caught STYLE-WARNING: ; undefined function: PPRINT-DISPATCH-TABLE-CONS-ENTRIES ; in: DEFUN SET-PPRINT-DISPATCH ; (SB!PRETTY::PPRINT-DISPATCH-TABLE-ENTRIES SB!PRETTY::TABLE) ; ; caught STYLE-WARNING: ; undefined function: PPRINT-DISPATCH-TABLE-ENTRIES ; in: DEFUN PPRINT-DISPATCH ; (SB!PRETTY::PPRINT-DISPATCH-TABLE-ENTRIES SB!PRETTY::TABLE) ; ; caught STYLE-WARNING: ; undefined function: PPRINT-DISPATCH-TABLE-ENTRIES ; in: DEFUN COPY-PPRINT-DISPATCH ; (SB!PRETTY::PPRINT-DISPATCH-TABLE-ENTRIES SB!PRETTY::ORIG) ; ; caught STYLE-WARNING: ; undefined function: PPRINT-DISPATCH-TABLE-ENTRIES ; (SB!INT:REPLACE/EQL-HASH-TABLE ; (SB!PRETTY::PPRINT-DISPATCH-TABLE-CONS-ENTRIES SB!PRETTY::NEW) ; (SB!PRETTY::PPRINT-DISPATCH-TABLE-CONS-ENTRIES SB!PRETTY::ORIG)) ; ; caught STYLE-WARNING: ; undefined function: REPLACE/EQL-HASH-TABLE ; in: DEFUN COMPUTE-TEST-FN ; (SB!KERNEL:SPECIFIER-TYPE TYPE) ; ; caught STYLE-WARNING: ; undefined function: SPECIFIER-TYPE ; #'SB!KERNEL:TYPE= ; ; caught STYLE-WARNING: ; undefined function: TYPE= ; in: DEFUN EXPAND-TABS ; (FILL SB!PRETTY::NEW-BUFFER #\ :START ; (- SB!PRETTY::DSTPOS SB!PRETTY::AMOUNT) :END SB!PRETTY::DSTPOS) ; ; caught STYLE-WARNING: ; undefined function: UB32-BASH-FILL ; in: DEFUN REALLY-END-LOGICAL-BLOCK ; (FILL (SB!PRETTY::PRETTY-STREAM-PREFIX STREAM) #\ :START ; SB!PRETTY::OLD-INDENT :END SB!PRETTY::NEW-INDENT) ; ; caught STYLE-WARNING: ; undefined function: UB32-BASH-FILL ; in: DEFUN SET-INDENTATION ; (FILL SB!PRETTY::PREFIX #\ :START SB!PRETTY::CURRENT :END SB!PRETTY::COLUMN) ; ; caught STYLE-WARNING: ; undefined function: UB32-BASH-FILL ; in: DEFUN PPRINT-INDENT ; (DEFUN PPRINT-INDENT (SB!PRETTY::RELATIVE-TO SB!PRETTY::N &OPTIONAL STREAM) ; "Specify the indentation to use in the current logical block if ; STREAM (which defaults to *STANDARD-OUTPUT*) is a pretty-printing ; stream and do nothing if not. (See PPRINT-LOGICAL-BLOCK.) N is the ; indentation to use (in ems, the width of an ``m'') and RELATIVE-TO can ; be either: ; ; :BLOCK - Indent relative to the column the current logical block ; started on. ; ; :CURRENT - Indent relative to the current column. ; ; The new indentation value does not take effect until the following ; line break." ; (DECLARE (TYPE (MEMBER :BLOCK :CURRENT) SB!PRETTY::RELATIVE-TO) ; (TYPE REAL SB!PRETTY::N) ; (TYPE (OR STREAM (MEMBER T NIL)) STREAM) ; (VALUES NULL)) ; (LET ((STREAM (CASE STREAM # # #))) ; (WHEN (SB!INT:PRINT-PRETTY-ON-STREAM-P STREAM) ; (SB!PRETTY::ENQUEUE-INDENT STREAM SB!PRETTY::RELATIVE-TO ; (TRUNCATE SB!PRETTY::N)))) ; NIL) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION COND ; --> IF COND THE PROGN SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP ; --> LET SB!C::%TYPEP-WRAPPER LET OR LET TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT27972 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: UPDATE-OBJECT-LAYOUT-OR-INVALID ; in: DEFUN PPRINT-NEWLINE ; (DEFUN PPRINT-NEWLINE (SB!PRETTY::KIND &OPTIONAL STREAM) ; "Output a conditional newline to STREAM (which defaults to ; *STANDARD-OUTPUT*) if it is a pretty-printing stream, and do ; nothing if not. KIND can be one of: ; :LINEAR - A line break is inserted if and only if the immediately ; containing section cannot be printed on one line. ; :MISER - Same as LINEAR, but only if ``miser-style'' is in effect. ; (See *PRINT-MISER-WIDTH*.) ; :FILL - A line break is inserted if and only if either: ; (a) the following section cannot be printed on the end of the ; current line, ; (b) the preceding section was not printed on a single line, or ; (c) the immediately containing section cannot be printed on one ; line and miser-style is in effect. ; :MANDATORY - A line break is always inserted. ; When a line break is inserted by any type of conditional newline, any ; blanks that immediately precede the conditional newline are omitted ; from the output and indentation is introduced at the beginning of the ; next line. (See PPRINT-INDENT.)" ; (DECLARE (TYPE (MEMBER :LINEAR :MISER :FILL :MANDATORY) SB!PRETTY::KIND) ; (TYPE (OR STREAM (MEMBER T NIL)) STREAM) ; (VALUES NULL)) ; (LET ((STREAM (CASE STREAM # # #))) ; (WHEN (SB!INT:PRINT-PRETTY-ON-STREAM-P STREAM) ; (SB!PRETTY::ENQUEUE-NEWLINE STREAM SB!PRETTY::KIND))) ; NIL) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION COND ; --> IF COND THE PROGN SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP ; --> LET SB!C::%TYPEP-WRAPPER LET OR LET TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT27953 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: UPDATE-OBJECT-LAYOUT-OR-INVALID ; in: DEFSTRUCT PRETTY-STREAM ; (DEFSTRUCT ; (SB!PRETTY:PRETTY-STREAM ; (:INCLUDE SB!KERNEL:ANSI-STREAM (SB!PRETTY::OUT #'SB!PRETTY::PRETTY-OUT) ; (SB!PRETTY::SOUT #'SB!PRETTY::PRETTY-SOUT) ; (SB!PRETTY::MISC #'SB!PRETTY::PRETTY-MISC)) ; (:CONSTRUCTOR SB!PRETTY::MAKE-PRETTY-STREAM (SB!PRETTY::TARGET)) ; (:COPIER NIL)) ; (SB!PRETTY::TARGET (SB!INT:MISSING-ARG) :TYPE STREAM :READ-ONLY T) ; (SB!KERNEL:LINE-LENGTH ; (OR *PRINT-RIGHT-MARGIN* (SB!KERNEL:LINE-LENGTH SB!PRETTY::TARGET) ; SB!PRETTY::DEFAULT-LINE-LENGTH) ; :TYPE SB!PRETTY::COLUMN :READ-ONLY T) ; (SB!PRETTY::CHAR-OUT-ONESHOT-HOOK NIL :TYPE (OR NULL FUNCTION)) ; (SB!PRETTY::BUFFER (MAKE-STRING SB!PRETTY::INITIAL-BUFFER-SIZE) :TYPE ; (SIMPLE-ARRAY CHARACTER (*))) ; (SB!PRETTY::BUFFER-FILL-POINTER 0 :TYPE SB!INT:INDEX) ; (SB!PRETTY::BUFFER-OFFSET 0 :TYPE SB!PRETTY::POSN) ; (SB!PRETTY::BUFFER-START-COLUMN ; (OR (SB!KERNEL:CHARPOS SB!PRETTY::TARGET) 0) :TYPE SB!PRETTY::COLUMN) ; (SB!PRETTY::LINE-NUMBER 0 :TYPE SB!INT:INDEX) ; (SB!PRETTY::PRINT-LINES *PRINT-LINES* :TYPE (OR SB!INT:INDEX NULL) ; :READ-ONLY T) ; (SB!PRETTY::BLOCKS (LIST (SB!PRETTY::MAKE-LOGICAL-BLOCK)) :TYPE LIST) ; ...) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET ; --> SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT26926 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: UPDATE-OBJECT-LAYOUT-OR-INVALID ; ; caught STYLE-WARNING: ; 4 more uses of undefined function UPDATE-OBJECT-LAYOUT-OR-INVALID ; ; compilation unit finished ; Undefined types: ; CODE-DELETION-NOTE ERROR ; Undefined functions: ; %FUNCALLABLE-INSTANCE-LAYOUT SB!KERNEL::%TARGET-DEFSTRUCT (SETF PPRINT-DISPATCH-TABLE-ENTRIES) DD-PREDICATE-NAME SB!C::GET-INFO-VALUE HEXSTR INFO LAYOUT-INFO LAYOUT-INVALID MAKE-PPRINT-DISPATCH-TABLE PPRINT-DISPATCH-TABLE-CONS-ENTRIES PPRINT-DISPATCH-TABLE-ENTRIES REPLACE/EQL-HASH-TABLE SPECIFIER-TYPE TYPE= UB32-BASH-FILL UPDATE-OBJECT-LAYOUT-OR-INVALID ; caught 42 STYLE-WARNING conditions ; printed 12 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/pprint.lisp-obj-tmp written ; compilation finished in 0:00:02.378 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-format.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!FORMAT") ; x-compiling (DEFPARAMETER *FORMAT-WHITESPACE-CHARS* ...) ; x-compiling (DEFVAR *FORMAT-DIRECTIVE-EXPANDERS* ...) ; x-compiling (DEFVAR *FORMAT-DIRECTIVE-INTERPRETERS* ...) ; x-compiling (DEFVAR *DEFAULT-FORMAT-ERROR-CONTROL-STRING* ...) ; x-compiling (DEFVAR *DEFAULT-FORMAT-ERROR-OFFSET* ...) ; x-compiling (DEFVAR *UP-UP-AND-OUT-ALLOWED* ...) ; x-compiling (DECLAIM (TYPE # ...)) ; x-compiling (DEFVAR *LOGICAL-BLOCK-POPPER* ...) ; x-compiling (DEFVAR *EXPANDER-NEXT-ARG-MACRO* ...) ; x-compiling (DEFVAR *ONLY-SIMPLE-ARGS*) ; x-compiling (DEFVAR *ORIG-ARGS-AVAILABLE* ...) ; x-compiling (DEFVAR *SIMPLE-ARGS*) ; x-compiling (DEFUN PRINT-SYMBOL-WITH-PREFIX ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-format.lisp ; in: DEFVAR *FORMAT-DIRECTIVE-INTERPRETERS* ; (MAKE-ARRAY SB!INT:BASE-CHAR-CODE-LIMIT :INITIAL-ELEMENT NIL) ; --> LOCALLY MAKE-ARRAY SB!EXT:TRULY-THE ; ==> ; (FILL ; (SB!EXT:TRULY-THE (SIMPLE-ARRAY T (128)) ; (SB!KERNEL:ALLOCATE-VECTOR 214 (THE SB!INT:INDEX LENGTH) ; 128)) ; (THE T 'NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFVAR *FORMAT-DIRECTIVE-EXPANDERS* ; (MAKE-ARRAY SB!INT:BASE-CHAR-CODE-LIMIT :INITIAL-ELEMENT NIL) ; --> LOCALLY MAKE-ARRAY SB!EXT:TRULY-THE ; ==> ; (FILL ; (SB!EXT:TRULY-THE (SIMPLE-ARRAY T (128)) ; (SB!KERNEL:ALLOCATE-VECTOR 214 (THE SB!INT:INDEX LENGTH) ; 128)) ; (THE T 'NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; compilation unit finished ; Undefined type: ; CODE-DELETION-NOTE ; caught 2 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/early-format.lisp-obj-tmp written ; compilation finished in 0:00:00.032 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-format.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!FORMAT") ; x-compiling (DEFUN FORMAT ...) ; x-compiling (DEFINE-COMPILER-MACRO FORMAT ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-format.lisp ; in: DEFINE-COMPILER-MACRO FORMAT ; (DEFINE-COMPILER-MACRO FORMAT ; (&WHOLE SB!KERNEL:FORM SB!FORMAT::DESTINATION SB!FORMAT::CONTROL &REST ; SB!FORMAT::ARGS) ; (DECLARE (IGNORE SB!FORMAT::CONTROL SB!FORMAT::ARGS)) ; (WHEN (STRINGP SB!FORMAT::DESTINATION) ; (WARN "Literal string as destination in FORMAT:~% ~S" SB!KERNEL:FORM)) ; SB!KERNEL:FORM) ; --> PROGN EVAL-WHEN ; ==> ; (SB!C::%DEFINE-COMPILER-MACRO 'FORMAT ; #'(LAMBDA (#:WHOLE11 #:ENVIRONMENT12) ; (DECLARE (IGNORE #:ENVIRONMENT12)) ; (LET* ((#:CMACRO-&WHOLE29385 #:WHOLE11) ; (#:WHOLE11 #)) ; (DECLARE ; (IGNORABLE #:CMACRO-&WHOLE29385)) ; (LET (#) ; (UNLESS # #)) ; (LET* (# # # #) ; (DECLARE #) ; (BLOCK FORMAT # SB!KERNEL:FORM)))) ; '(&WHOLE SB!KERNEL:FORM SB!FORMAT::DESTINATION ; SB!FORMAT::CONTROL &REST SB!FORMAT::ARGS) ; NIL '(COMPILER-MACRO-FUNCTION FORMAT)) ; ; caught STYLE-WARNING: ; 72 calls to COMMON-LISP:FORMAT were compiled before a compiler-macro was ; defined for it. A declaration of NOTINLINE at the call sites will eliminate ; this warning, as will defining the compiler-macro before its first potential ; use. ; x-compiling (DEFUN %FORMAT ...) ; x-compiling (DEFUN INTERPRET-DIRECTIVE-LIST ...) ; x-compiling (DEFUN FORMAT-WRITE-FIELD ...) ; x-compiling (DEFUN FORMAT-PRINC ...) ; x-compiling (DEF-FORMAT-INTERPRETER #\A ...) ; x-compiling (DEFUN FORMAT-PRIN1 ...) ; x-compiling (DEF-FORMAT-INTERPRETER #\S ...) ; x-compiling (DEF-FORMAT-INTERPRETER #\C ...) ; x-compiling (DEFUN CHAR-PRINTING-P ...) ; x-compiling (DEFUN FORMAT-PRINT-NAMED-CHARACTER ...) ; x-compiling (DEF-FORMAT-INTERPRETER #\W ...) ; x-compiling (DEFUN FORMAT-PRINT-INTEGER ...) ; x-compiling (DEFUN FORMAT-ADD-COMMAS ...) ; x-compiling (DEF-FORMAT-INTERPRETER #\D ...) ; x-compiling (DEF-FORMAT-INTERPRETER #\B ...) ; x-compiling (DEF-FORMAT-INTERPRETER #\O ...) ; x-compiling (DEF-FORMAT-INTERPRETER #\X ...) ; x-compiling (DEF-FORMAT-INTERPRETER #\R ...) ; x-compiling (DEFPARAMETER *CARDINAL-ONES* ...) ; x-compiling (DEFPARAMETER *CARDINAL-TENS* ...) ; x-compiling (DEFPARAMETER *CARDINAL-TEENS* ...) ; x-compiling (DEFPARAMETER *CARDINAL-PERIODS* ...) ; x-compiling (DEFPARAMETER *ORDINAL-ONES* ...) ; x-compiling (DEFPARAMETER *ORDINAL-TENS* ...) ; x-compiling (DEFUN FORMAT-PRINT-SMALL-CARDINAL ...) ; x-compiling (DEFUN FORMAT-PRINT-CARDINAL ...) ; x-compiling (DEFUN FORMAT-PRINT-CARDINAL-AUX ...) ; x-compiling (DEFUN FORMAT-PRINT-ORDINAL ...) ; x-compiling (DEFUN FORMAT-PRINT-OLD-ROMAN ...) ; x-compiling (DEFUN FORMAT-PRINT-ROMAN ...) ; x-compiling (DEF-FORMAT-INTERPRETER #\P ...) ; x-compiling (DEFUN DECIMAL-STRING ...) ; x-compiling (DEF-FORMAT-INTERPRETER #\F ...) ; x-compiling (DEFUN FORMAT-FIXED ...) ; x-compiling (DEFUN FORMAT-FIXED-AUX ...) ; x-compiling (DEF-FORMAT-INTERPRETER #\E ...) ; x-compiling (DEFUN FORMAT-EXPONENTIAL ...) ; x-compiling (DEFUN FORMAT-EXPONENT-MARKER ...) ; x-compiling (DEFUN FORMAT-EXP-AUX ...) ; x-compiling (DEF-FORMAT-INTERPRETER #\G ...) ; x-compiling (DEFUN FORMAT-GENERAL ...) ; x-compiling (DEFUN FORMAT-GENERAL-AUX ...) ; x-compiling (DEF-FORMAT-INTERPRETER #\$ ...) ; x-compiling (DEFUN FORMAT-DOLLARS ...) ; x-compiling (DEF-FORMAT-INTERPRETER #\% ...) ; x-compiling (DEF-FORMAT-INTERPRETER #\& ...) ; x-compiling (DEF-FORMAT-INTERPRETER #\| ...) ; x-compiling (DEF-FORMAT-INTERPRETER #\~ ...) ; x-compiling (DEF-COMPLEX-FORMAT-INTERPRETER #\Newline ...) ; x-compiling (DEF-FORMAT-INTERPRETER #\T ...) ; x-compiling (DEFUN OUTPUT-SPACES ...) ; x-compiling (DEFUN FORMAT-RELATIVE-TAB ...) ; x-compiling (DEFUN FORMAT-ABSOLUTE-TAB ...) ; x-compiling (DEF-FORMAT-INTERPRETER #\_ ...) ; x-compiling (DEF-FORMAT-INTERPRETER #\I ...) ; x-compiling (DEF-FORMAT-INTERPRETER #\* ...) ; x-compiling (DEF-FORMAT-INTERPRETER #\? ...) ; x-compiling (DEF-COMPLEX-FORMAT-INTERPRETER #\( ...) ; x-compiling (DEF-COMPLEX-FORMAT-INTERPRETER #\) ...) ; x-compiling (DEF-COMPLEX-FORMAT-INTERPRETER #\[ ...) ; x-compiling (DEF-COMPLEX-FORMAT-INTERPRETER #\; ...) ; x-compiling (DEF-COMPLEX-FORMAT-INTERPRETER #\] ...) ; x-compiling (DEFVAR *OUTSIDE-ARGS*) ; x-compiling (DEF-FORMAT-INTERPRETER #\^ ...) ; x-compiling (DEF-COMPLEX-FORMAT-INTERPRETER #\{ ...) ; x-compiling (DEF-COMPLEX-FORMAT-INTERPRETER #\} ...) ; x-compiling (DEF-COMPLEX-FORMAT-INTERPRETER #\< ...) ; x-compiling (DEFUN INTERPRET-FORMAT-JUSTIFICATION ...) ; x-compiling (DEFUN FORMAT-JUSTIFICATION ...) ; x-compiling (DEFUN INTERPRET-FORMAT-LOGICAL-BLOCK ...) ; x-compiling (DEF-FORMAT-INTERPRETER #\/ ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-format.lisp ; in: DEFUN FORMAT ; (ETYPECASE SB!FORMAT::DESTINATION ; (NULL ; (SB!KERNEL:WITH-SIMPLE-OUTPUT-TO-STRING (STREAM) ; (SB!FORMAT::%FORMAT STREAM SB!FORMAT::CONTROL-STRING ; SB!FORMAT::FORMAT-ARGUMENTS))) ; (STRING ; (SB!KERNEL:WITH-SIMPLE-OUTPUT-TO-STRING (STREAM SB!FORMAT::DESTINATION) ; (SB!FORMAT::%FORMAT STREAM SB!FORMAT::CONTROL-STRING ; SB!FORMAT::FORMAT-ARGUMENTS))) ; ((MEMBER T) ; (SB!FORMAT::%FORMAT *STANDARD-OUTPUT* SB!FORMAT::CONTROL-STRING ; SB!FORMAT::FORMAT-ARGUMENTS) ; NIL) ; (STREAM ; (SB!FORMAT::%FORMAT SB!FORMAT::DESTINATION SB!FORMAT::CONTROL-STRING ; SB!FORMAT::FORMAT-ARGUMENTS) ; NIL)) ; --> LET COND IF COND IF COND IF COND IF TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT29381 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: %FUNCALLABLE-INSTANCE-LAYOUT ; in: DEF-FORMAT-INTERPRETER #\C ; (SB!FORMAT::DEF-FORMAT-INTERPRETER #\C ; (SB!FORMAT::COLONP SB!FORMAT::ATSIGNP SB!FORMAT::PARAMS) ; (SB!FORMAT::INTERPRET-BIND-DEFAULTS NIL SB!FORMAT::PARAMS ; (LET ((SB!FORMAT::ARG #)) ; (UNLESS (TYPEP SB!FORMAT::ARG 'CHARACTER) ; (ERROR 'SB!FORMAT:FORMAT-ERROR :COMPLAINT ; "~s is not of type CHARACTER." :ARGS #)) ; (COND (SB!FORMAT::COLONP #) (SB!FORMAT::ATSIGNP #) (T #))))) ; --> SB!FORMAT::DEF-COMPLEX-FORMAT-INTERPRETER PROGN ; --> SB!FORMAT::%SET-FORMAT-DIRECTIVE-INTERPRETER ; ==> ; (SB!FORMAT::%SET-FORMAT-DIRECTIVE-INTERPRETER #\C ; #'SB!FORMAT::C-FORMAT-DIRECTIVE-INTERPRETER) ; ; caught STYLE-WARNING: ; undefined function: %SET-FORMAT-DIRECTIVE-INTERPRETER ; in: DEF-FORMAT-INTERPRETER #\S ; (SB!FORMAT::DEF-FORMAT-INTERPRETER #\S ; (SB!FORMAT::COLONP SB!FORMAT::ATSIGNP SB!FORMAT::PARAMS) ; (COND ; (SB!FORMAT::PARAMS ; (SB!FORMAT::INTERPRET-BIND-DEFAULTS (# # # #) SB!FORMAT::PARAMS ; (SB!FORMAT::FORMAT-PRIN1 STREAM # SB!FORMAT::COLONP SB!FORMAT::ATSIGNP ; SB!FORMAT::MINCOL SB!FORMAT::COLINC SB!FORMAT::MINPAD ; SB!FORMAT::PADCHAR))) ; (SB!FORMAT::COLONP ; (LET (#) ; (IF SB!FORMAT::ARG ; # ; #))) ; (T (PRIN1 (SB!FORMAT::NEXT-ARG) STREAM)))) ; --> SB!FORMAT::DEF-COMPLEX-FORMAT-INTERPRETER PROGN ; --> SB!FORMAT::%SET-FORMAT-DIRECTIVE-INTERPRETER ; ==> ; (SB!FORMAT::%SET-FORMAT-DIRECTIVE-INTERPRETER #\S ; #'SB!FORMAT::S-FORMAT-DIRECTIVE-INTERPRETER) ; ; caught STYLE-WARNING: ; undefined function: %SET-FORMAT-DIRECTIVE-INTERPRETER ; in: DEF-FORMAT-INTERPRETER #\A ; (SB!FORMAT::DEF-FORMAT-INTERPRETER #\A ; (SB!FORMAT::COLONP SB!FORMAT::ATSIGNP SB!FORMAT::PARAMS) ; (IF SB!FORMAT::PARAMS ; (SB!FORMAT::INTERPRET-BIND-DEFAULTS ; ((SB!FORMAT::MINCOL 0) (SB!FORMAT::COLINC 1) (SB!FORMAT::MINPAD 0) ; (SB!FORMAT::PADCHAR #\ )) ; SB!FORMAT::PARAMS ; (SB!FORMAT::FORMAT-PRINC STREAM (SB!FORMAT::NEXT-ARG) SB!FORMAT::COLONP ; SB!FORMAT::ATSIGNP SB!FORMAT::MINCOL SB!FORMAT::COLINC ; SB!FORMAT::MINPAD SB!FORMAT::PADCHAR)) ; (PRINC ; (IF SB!FORMAT::COLONP ; (OR # "()") ; (SB!FORMAT::NEXT-ARG)) ; STREAM))) ; --> SB!FORMAT::DEF-COMPLEX-FORMAT-INTERPRETER PROGN ; --> SB!FORMAT::%SET-FORMAT-DIRECTIVE-INTERPRETER ; ==> ; (SB!FORMAT::%SET-FORMAT-DIRECTIVE-INTERPRETER #\A ; #'SB!FORMAT::A-FORMAT-DIRECTIVE-INTERPRETER) ; ; caught STYLE-WARNING: ; undefined function: %SET-FORMAT-DIRECTIVE-INTERPRETER ; ; caught STYLE-WARNING: ; 31 more uses of undefined function %SET-FORMAT-DIRECTIVE-INTERPRETER ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-format.lisp ; in: DEFUN INTERPRET-DIRECTIVE-LIST ; (MULTIPLE-VALUE-BIND (SB!FORMAT::NEW-DIRECTIVES SB!FORMAT::NEW-ARGS) ; (LET* ((CHARACTER ; (SB!FORMAT::FORMAT-DIRECTIVE-CHARACTER SB!FORMAT::DIRECTIVE)) ; (FUNCTION (TYPECASE CHARACTER #)) ; (SB!FORMAT::*DEFAULT-FORMAT-ERROR-OFFSET* (1- #))) ; (UNLESS FUNCTION ; (ERROR 'SB!FORMAT:FORMAT-ERROR :COMPLAINT ; "unknown format directive ~@[(character: ~A)~]" :ARGS ; (LIST #))) ; (MULTIPLE-VALUE-BIND (SB!FORMAT::NEW-DIRECTIVES SB!FORMAT::NEW-ARGS) ; (FUNCALL FUNCTION STREAM SB!FORMAT::DIRECTIVE ; (CDR SB!FORMAT::DIRECTIVES) SB!FORMAT::ORIG-ARGS ; SB!FORMAT::ARGS) ; (VALUES SB!FORMAT::NEW-DIRECTIVES SB!FORMAT::NEW-ARGS))) ; (SB!FORMAT::INTERPRET-DIRECTIVE-LIST STREAM SB!FORMAT::NEW-DIRECTIVES ; SB!FORMAT::ORIG-ARGS SB!FORMAT::NEW-ARGS)) ; --> MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!FORMAT::NEW-DIRECTIVES SB!FORMAT::NEW-ARGS #:G26) {F51F3D9}> ; SB!FORMAT::NEW-DIRECTIVES SB!FORMAT::NEW-ARGS NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN %FORMAT ; (DEFUN SB!FORMAT::%FORMAT ; (STREAM SB!FORMAT::STRING-OR-FUN SB!FORMAT::ORIG-ARGS ; &OPTIONAL (SB!FORMAT::ARGS SB!FORMAT::ORIG-ARGS)) ; (IF (FUNCTIONP SB!FORMAT::STRING-OR-FUN) ; (APPLY SB!FORMAT::STRING-OR-FUN STREAM SB!FORMAT::ARGS) ; (CATCH 'SB!FORMAT::UP-AND-OUT ; (LET* (# # #) ; (SB!FORMAT::INTERPRET-DIRECTIVE-LIST STREAM # SB!FORMAT::ORIG-ARGS ; SB!FORMAT::ARGS))))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION LET ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (STREAM SB!FORMAT::STRING-OR-FUN SB!FORMAT::ORIG-ARGS ; SB!FORMAT::ARGS) ; {F44EDF1}> ; STREAM SB!FORMAT::STRING-OR-FUN SB!FORMAT::ORIG-ARGS #:G19)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN FORMAT ; (DEFUN FORMAT ; (SB!FORMAT::DESTINATION SB!FORMAT::CONTROL-STRING ; &REST SB!FORMAT::FORMAT-ARGUMENTS) ; "Provides various facilities for formatting output. ; CONTROL-STRING contains a string to be output, possibly with embedded ; directives, which are flagged with the escape character \"~\". Directives ; generally expand into additional text to be output, usually consuming one ; or more of the FORMAT-ARGUMENTS in the process. A few useful directives ; are: ; ~A or ~nA Prints one argument as if by PRINC ; ~S or ~nS Prints one argument as if by PRIN1 ; ~D or ~nD Prints one argument as a decimal integer ; ~% Does a TERPRI ; ~& Does a FRESH-LINE ; where n is the width of the field in which the object is printed. ; ; DESTINATION controls where the result will go. If DESTINATION is T, then ; the output is sent to the standard output stream. If it is NIL, then the ; output is returned in a string as the value of the call. Otherwise, ; DESTINATION must be a stream to which the output will be sent. ; ; Example: (FORMAT NIL \"The answer is ~D.\" 10) => \"The answer is 10.\" ; ; FORMAT has many additional capabilities not described here. Consult the ; manual for details." ; (ETYPECASE SB!FORMAT::DESTINATION ; (NULL ; (SB!KERNEL:WITH-SIMPLE-OUTPUT-TO-STRING (STREAM) ; (SB!FORMAT::%FORMAT STREAM SB!FORMAT::CONTROL-STRING ; SB!FORMAT::FORMAT-ARGUMENTS))) ; (STRING ; (SB!KERNEL:WITH-SIMPLE-OUTPUT-TO-STRING (STREAM SB!FORMAT::DESTINATION) ; (SB!FORMAT::%FORMAT STREAM SB!FORMAT::CONTROL-STRING ; SB!FORMAT::FORMAT-ARGUMENTS))) ; ((MEMBER T) ; (SB!FORMAT::%FORMAT *STANDARD-OUTPUT* SB!FORMAT::CONTROL-STRING ; SB!FORMAT::FORMAT-ARGUMENTS) ; NIL) ; (STREAM ; (SB!FORMAT::%FORMAT SB!FORMAT::DESTINATION SB!FORMAT::CONTROL-STRING ; SB!FORMAT::FORMAT-ARGUMENTS) ; NIL))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!FORMAT::DESTINATION SB!FORMAT::CONTROL-STRING ; SB!FORMAT::FORMAT-ARGUMENTS #:REST-CONTEXT-0 #:REST-COUNT-1) ; {F30CB41}> ; SB!FORMAT::DESTINATION SB!FORMAT::CONTROL-STRING NIL NIL 0)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 331 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-format.lisp ; in: DEF-COMPLEX-FORMAT-INTERPRETER #\< ; (MAPCAR ; (LAMBDA (SB!FORMAT::X) ; (COUNT-IF #'SB!FORMAT::ILLEGAL-INSIDE-JUSTIFICATION-P SB!FORMAT::X)) ; SB!FORMAT::SEGMENTS) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN FORMAT-PRINT-INTEGER ; (CONCATENATE 'STRING "+" SB!FORMAT::COMMAED) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; (CONCATENATE 'STRING "-" SB!FORMAT::COMMAED) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEF-FORMAT-INTERPRETER #\/ ; (SB!FORMAT::EXTRACT-USER-FUN-NAME STRING SB!FORMAT::START SB!FORMAT::END) ; ; caught STYLE-WARNING: ; undefined function: EXTRACT-USER-FUN-NAME ; in: DEF-COMPLEX-FORMAT-INTERPRETER #\{ ; (SB!FORMAT::FIND-DIRECTIVE SB!FORMAT::DIRECTIVES #\} NIL) ; ; caught STYLE-WARNING: ; undefined function: FIND-DIRECTIVE ; in: DEF-COMPLEX-FORMAT-INTERPRETER #\( ; (SB!FORMAT::FIND-DIRECTIVE SB!FORMAT::DIRECTIVES #\) NIL) ; ; caught STYLE-WARNING: ; undefined function: FIND-DIRECTIVE ; in: DEF-FORMAT-INTERPRETER #\C ; (SB!FORMAT::DEF-FORMAT-INTERPRETER #\C ; (SB!FORMAT::COLONP SB!FORMAT::ATSIGNP SB!FORMAT::PARAMS) ; (SB!FORMAT::INTERPRET-BIND-DEFAULTS NIL SB!FORMAT::PARAMS ; (LET ((SB!FORMAT::ARG #)) ; (UNLESS (TYPEP SB!FORMAT::ARG 'CHARACTER) ; (ERROR 'SB!FORMAT:FORMAT-ERROR :COMPLAINT ; "~s is not of type CHARACTER." :ARGS #)) ; (COND (SB!FORMAT::COLONP #) (SB!FORMAT::ATSIGNP #) (T #))))) ; --> SB!FORMAT::DEF-COMPLEX-FORMAT-INTERPRETER PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET ; ==> ; (SB!FORMAT::FORMAT-DIRECTIVE-ATSIGNP #:DIRECTIVE116) ; ; caught STYLE-WARNING: ; undefined function: FORMAT-DIRECTIVE-ATSIGNP ; in: DEF-FORMAT-INTERPRETER #\S ; (SB!FORMAT::DEF-FORMAT-INTERPRETER #\S ; (SB!FORMAT::COLONP SB!FORMAT::ATSIGNP SB!FORMAT::PARAMS) ; (COND ; (SB!FORMAT::PARAMS ; (SB!FORMAT::INTERPRET-BIND-DEFAULTS (# # # #) SB!FORMAT::PARAMS ; (SB!FORMAT::FORMAT-PRIN1 STREAM # SB!FORMAT::COLONP SB!FORMAT::ATSIGNP ; SB!FORMAT::MINCOL SB!FORMAT::COLINC SB!FORMAT::MINPAD ; SB!FORMAT::PADCHAR))) ; (SB!FORMAT::COLONP ; (LET (#) ; (IF SB!FORMAT::ARG ; # ; #))) ; (T (PRIN1 (SB!FORMAT::NEXT-ARG) STREAM)))) ; --> SB!FORMAT::DEF-COMPLEX-FORMAT-INTERPRETER PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET ; ==> ; (SB!FORMAT::FORMAT-DIRECTIVE-ATSIGNP #:DIRECTIVE96) ; ; caught STYLE-WARNING: ; undefined function: FORMAT-DIRECTIVE-ATSIGNP ; in: DEF-FORMAT-INTERPRETER #\A ; (SB!FORMAT::DEF-FORMAT-INTERPRETER #\A ; (SB!FORMAT::COLONP SB!FORMAT::ATSIGNP SB!FORMAT::PARAMS) ; (IF SB!FORMAT::PARAMS ; (SB!FORMAT::INTERPRET-BIND-DEFAULTS ; ((SB!FORMAT::MINCOL 0) (SB!FORMAT::COLINC 1) (SB!FORMAT::MINPAD 0) ; (SB!FORMAT::PADCHAR #\ )) ; SB!FORMAT::PARAMS ; (SB!FORMAT::FORMAT-PRINC STREAM (SB!FORMAT::NEXT-ARG) SB!FORMAT::COLONP ; SB!FORMAT::ATSIGNP SB!FORMAT::MINCOL SB!FORMAT::COLINC ; SB!FORMAT::MINPAD SB!FORMAT::PADCHAR)) ; (PRINC ; (IF SB!FORMAT::COLONP ; (OR # "()") ; (SB!FORMAT::NEXT-ARG)) ; STREAM))) ; --> SB!FORMAT::DEF-COMPLEX-FORMAT-INTERPRETER PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET ; ==> ; (SB!FORMAT::FORMAT-DIRECTIVE-ATSIGNP #:DIRECTIVE68) ; ; caught STYLE-WARNING: ; undefined function: FORMAT-DIRECTIVE-ATSIGNP ; ; caught STYLE-WARNING: ; 27 more uses of undefined function FORMAT-DIRECTIVE-ATSIGNP ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-format.lisp ; in: DEFUN INTERPRET-DIRECTIVE-LIST ; (SB!FORMAT::FORMAT-DIRECTIVE-CHARACTER SB!FORMAT::DIRECTIVE) ; ; caught STYLE-WARNING: ; undefined function: FORMAT-DIRECTIVE-CHARACTER ; in: DEF-FORMAT-INTERPRETER #\C ; (SB!FORMAT::DEF-FORMAT-INTERPRETER #\C ; (SB!FORMAT::COLONP SB!FORMAT::ATSIGNP SB!FORMAT::PARAMS) ; (SB!FORMAT::INTERPRET-BIND-DEFAULTS NIL SB!FORMAT::PARAMS ; (LET ((SB!FORMAT::ARG #)) ; (UNLESS (TYPEP SB!FORMAT::ARG 'CHARACTER) ; (ERROR 'SB!FORMAT:FORMAT-ERROR :COMPLAINT ; "~s is not of type CHARACTER." :ARGS #)) ; (COND (SB!FORMAT::COLONP #) (SB!FORMAT::ATSIGNP #) (T #))))) ; --> SB!FORMAT::DEF-COMPLEX-FORMAT-INTERPRETER PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET ; ==> ; (SB!FORMAT::FORMAT-DIRECTIVE-COLONP #:DIRECTIVE116) ; ; caught STYLE-WARNING: ; undefined function: FORMAT-DIRECTIVE-COLONP ; in: DEF-FORMAT-INTERPRETER #\S ; (SB!FORMAT::DEF-FORMAT-INTERPRETER #\S ; (SB!FORMAT::COLONP SB!FORMAT::ATSIGNP SB!FORMAT::PARAMS) ; (COND ; (SB!FORMAT::PARAMS ; (SB!FORMAT::INTERPRET-BIND-DEFAULTS (# # # #) SB!FORMAT::PARAMS ; (SB!FORMAT::FORMAT-PRIN1 STREAM # SB!FORMAT::COLONP SB!FORMAT::ATSIGNP ; SB!FORMAT::MINCOL SB!FORMAT::COLINC SB!FORMAT::MINPAD ; SB!FORMAT::PADCHAR))) ; (SB!FORMAT::COLONP ; (LET (#) ; (IF SB!FORMAT::ARG ; # ; #))) ; (T (PRIN1 (SB!FORMAT::NEXT-ARG) STREAM)))) ; --> SB!FORMAT::DEF-COMPLEX-FORMAT-INTERPRETER PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET ; ==> ; (SB!FORMAT::FORMAT-DIRECTIVE-COLONP #:DIRECTIVE96) ; ; caught STYLE-WARNING: ; undefined function: FORMAT-DIRECTIVE-COLONP ; in: DEF-FORMAT-INTERPRETER #\A ; (SB!FORMAT::DEF-FORMAT-INTERPRETER #\A ; (SB!FORMAT::COLONP SB!FORMAT::ATSIGNP SB!FORMAT::PARAMS) ; (IF SB!FORMAT::PARAMS ; (SB!FORMAT::INTERPRET-BIND-DEFAULTS ; ((SB!FORMAT::MINCOL 0) (SB!FORMAT::COLINC 1) (SB!FORMAT::MINPAD 0) ; (SB!FORMAT::PADCHAR #\ )) ; SB!FORMAT::PARAMS ; (SB!FORMAT::FORMAT-PRINC STREAM (SB!FORMAT::NEXT-ARG) SB!FORMAT::COLONP ; SB!FORMAT::ATSIGNP SB!FORMAT::MINCOL SB!FORMAT::COLINC ; SB!FORMAT::MINPAD SB!FORMAT::PADCHAR)) ; (PRINC ; (IF SB!FORMAT::COLONP ; (OR # "()") ; (SB!FORMAT::NEXT-ARG)) ; STREAM))) ; --> SB!FORMAT::DEF-COMPLEX-FORMAT-INTERPRETER PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET ; ==> ; (SB!FORMAT::FORMAT-DIRECTIVE-COLONP #:DIRECTIVE68) ; ; caught STYLE-WARNING: ; undefined function: FORMAT-DIRECTIVE-COLONP ; ; caught STYLE-WARNING: ; 28 more uses of undefined function FORMAT-DIRECTIVE-COLONP ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-format.lisp ; in: DEF-COMPLEX-FORMAT-INTERPRETER #\{ ; (SB!FORMAT::DEF-COMPLEX-FORMAT-INTERPRETER #\{ ; (SB!FORMAT::COLONP SB!FORMAT::ATSIGNP SB!FORMAT::PARAMS STRING ; SB!FORMAT::END SB!FORMAT::DIRECTIVES) ; (LET ((CLOSE (SB!FORMAT::FIND-DIRECTIVE SB!FORMAT::DIRECTIVES #\} NIL))) ; (UNLESS CLOSE ; (ERROR 'SB!FORMAT:FORMAT-ERROR :COMPLAINT ; "no corresponding close brace")) ; (SB!FORMAT::INTERPRET-BIND-DEFAULTS ((SB!FORMAT::MAX-COUNT NIL)) ; SB!FORMAT::PARAMS ; (LET* (# # # #) ; (LABELS # ; # ; #))))) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK LET ; ==> ; (SB!FORMAT::FORMAT-DIRECTIVE-END #:DIRECTIVE1040) ; ; caught STYLE-WARNING: ; undefined function: FORMAT-DIRECTIVE-END ; in: DEF-FORMAT-INTERPRETER #\? ; (SB!FORMAT::DEF-FORMAT-INTERPRETER #\? ; (SB!FORMAT::COLONP SB!FORMAT::ATSIGNP SB!FORMAT::PARAMS STRING ; SB!FORMAT::END) ; (WHEN SB!FORMAT::COLONP ; (ERROR 'SB!FORMAT:FORMAT-ERROR :COMPLAINT ; "cannot specify the colon modifier")) ; (SB!FORMAT::INTERPRET-BIND-DEFAULTS NIL SB!FORMAT::PARAMS ; (HANDLER-BIND ((SB!FORMAT:FORMAT-ERROR #)) ; (IF SB!FORMAT::ATSIGNP ; (SETF #) ; (SB!FORMAT::%FORMAT STREAM # #))))) ; --> SB!FORMAT::DEF-COMPLEX-FORMAT-INTERPRETER PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET ; ==> ; (SB!FORMAT::FORMAT-DIRECTIVE-END #:DIRECTIVE956) ; ; caught STYLE-WARNING: ; undefined function: FORMAT-DIRECTIVE-END ; in: DEFUN INTERPRET-DIRECTIVE-LIST ; (SB!FORMAT::FORMAT-DIRECTIVE-END SB!FORMAT::DIRECTIVE) ; ; caught STYLE-WARNING: ; undefined function: FORMAT-DIRECTIVE-END ; ; caught STYLE-WARNING: ; 2 more uses of undefined function FORMAT-DIRECTIVE-END ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-format.lisp ; in: DEF-FORMAT-INTERPRETER #\C ; (SB!FORMAT::DEF-FORMAT-INTERPRETER #\C ; (SB!FORMAT::COLONP SB!FORMAT::ATSIGNP SB!FORMAT::PARAMS) ; (SB!FORMAT::INTERPRET-BIND-DEFAULTS NIL SB!FORMAT::PARAMS ; (LET ((SB!FORMAT::ARG #)) ; (UNLESS (TYPEP SB!FORMAT::ARG 'CHARACTER) ; (ERROR 'SB!FORMAT:FORMAT-ERROR :COMPLAINT ; "~s is not of type CHARACTER." :ARGS #)) ; (COND (SB!FORMAT::COLONP #) (SB!FORMAT::ATSIGNP #) (T #))))) ; --> SB!FORMAT::DEF-COMPLEX-FORMAT-INTERPRETER PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET ; ==> ; (SB!FORMAT::FORMAT-DIRECTIVE-PARAMS #:DIRECTIVE116) ; ; caught STYLE-WARNING: ; undefined function: FORMAT-DIRECTIVE-PARAMS ; in: DEF-FORMAT-INTERPRETER #\S ; (SB!FORMAT::DEF-FORMAT-INTERPRETER #\S ; (SB!FORMAT::COLONP SB!FORMAT::ATSIGNP SB!FORMAT::PARAMS) ; (COND ; (SB!FORMAT::PARAMS ; (SB!FORMAT::INTERPRET-BIND-DEFAULTS (# # # #) SB!FORMAT::PARAMS ; (SB!FORMAT::FORMAT-PRIN1 STREAM # SB!FORMAT::COLONP SB!FORMAT::ATSIGNP ; SB!FORMAT::MINCOL SB!FORMAT::COLINC SB!FORMAT::MINPAD ; SB!FORMAT::PADCHAR))) ; (SB!FORMAT::COLONP ; (LET (#) ; (IF SB!FORMAT::ARG ; # ; #))) ; (T (PRIN1 (SB!FORMAT::NEXT-ARG) STREAM)))) ; --> SB!FORMAT::DEF-COMPLEX-FORMAT-INTERPRETER PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET ; ==> ; (SB!FORMAT::FORMAT-DIRECTIVE-PARAMS #:DIRECTIVE96) ; ; caught STYLE-WARNING: ; undefined function: FORMAT-DIRECTIVE-PARAMS ; in: DEF-FORMAT-INTERPRETER #\A ; (SB!FORMAT::DEF-FORMAT-INTERPRETER #\A ; (SB!FORMAT::COLONP SB!FORMAT::ATSIGNP SB!FORMAT::PARAMS) ; (IF SB!FORMAT::PARAMS ; (SB!FORMAT::INTERPRET-BIND-DEFAULTS ; ((SB!FORMAT::MINCOL 0) (SB!FORMAT::COLINC 1) (SB!FORMAT::MINPAD 0) ; (SB!FORMAT::PADCHAR #\ )) ; SB!FORMAT::PARAMS ; (SB!FORMAT::FORMAT-PRINC STREAM (SB!FORMAT::NEXT-ARG) SB!FORMAT::COLONP ; SB!FORMAT::ATSIGNP SB!FORMAT::MINCOL SB!FORMAT::COLINC ; SB!FORMAT::MINPAD SB!FORMAT::PADCHAR)) ; (PRINC ; (IF SB!FORMAT::COLONP ; (OR # "()") ; (SB!FORMAT::NEXT-ARG)) ; STREAM))) ; --> SB!FORMAT::DEF-COMPLEX-FORMAT-INTERPRETER PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET ; ==> ; (SB!FORMAT::FORMAT-DIRECTIVE-PARAMS #:DIRECTIVE68) ; ; caught STYLE-WARNING: ; undefined function: FORMAT-DIRECTIVE-PARAMS ; ; caught STYLE-WARNING: ; 28 more uses of undefined function FORMAT-DIRECTIVE-PARAMS ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-format.lisp ; in: DEF-FORMAT-INTERPRETER #\/ ; (SB!FORMAT::DEF-FORMAT-INTERPRETER #\/ ; (STRING SB!FORMAT::START SB!FORMAT::END SB!FORMAT::COLONP SB!FORMAT::ATSIGNP ; SB!FORMAT::PARAMS) ; (LET ((SYMBOL ; (SB!FORMAT::EXTRACT-USER-FUN-NAME STRING SB!FORMAT::START ; SB!FORMAT::END))) ; (SB!INT:COLLECT ((SB!FORMAT::ARGS)) ; (DOLIST (SB!FORMAT::PARAM-AND-OFFSET SB!FORMAT::PARAMS) ; (LET # ; #)) ; (APPLY (FDEFINITION SYMBOL) STREAM (SB!FORMAT::NEXT-ARG) ; SB!FORMAT::COLONP SB!FORMAT::ATSIGNP (SB!FORMAT::ARGS))))) ; --> SB!FORMAT::DEF-COMPLEX-FORMAT-INTERPRETER PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET ; ==> ; (SB!FORMAT::FORMAT-DIRECTIVE-START #:DIRECTIVE1197) ; ; caught STYLE-WARNING: ; undefined function: FORMAT-DIRECTIVE-START ; in: DEF-COMPLEX-FORMAT-INTERPRETER #\< ; (SB!FORMAT::DEF-COMPLEX-FORMAT-INTERPRETER #\< ; (SB!FORMAT::COLONP SB!FORMAT::ATSIGNP SB!FORMAT::PARAMS STRING ; SB!FORMAT::END SB!FORMAT::DIRECTIVES) ; (MULTIPLE-VALUE-BIND ; (SB!FORMAT::SEGMENTS SB!FORMAT::FIRST-SEMI CLOSE SB!FORMAT::REMAINING) ; (SB!FORMAT::PARSE-FORMAT-JUSTIFICATION SB!FORMAT::DIRECTIVES) ; (SETF SB!FORMAT::ARGS ; (IF # ; # ; #)) ; SB!FORMAT::REMAINING)) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK LET ; ==> ; (SB!FORMAT::FORMAT-DIRECTIVE-STRING #:DIRECTIVE1070) ; ; caught STYLE-WARNING: ; undefined function: FORMAT-DIRECTIVE-STRING ; in: DEF-COMPLEX-FORMAT-INTERPRETER #\{ ; (SB!FORMAT::DEF-COMPLEX-FORMAT-INTERPRETER #\{ ; (SB!FORMAT::COLONP SB!FORMAT::ATSIGNP SB!FORMAT::PARAMS STRING ; SB!FORMAT::END SB!FORMAT::DIRECTIVES) ; (LET ((CLOSE (SB!FORMAT::FIND-DIRECTIVE SB!FORMAT::DIRECTIVES #\} NIL))) ; (UNLESS CLOSE ; (ERROR 'SB!FORMAT:FORMAT-ERROR :COMPLAINT ; "no corresponding close brace")) ; (SB!FORMAT::INTERPRET-BIND-DEFAULTS ((SB!FORMAT::MAX-COUNT NIL)) ; SB!FORMAT::PARAMS ; (LET* (# # # #) ; (LABELS # ; # ; #))))) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK LET ; ==> ; (SB!FORMAT::FORMAT-DIRECTIVE-STRING #:DIRECTIVE1040) ; ; caught STYLE-WARNING: ; undefined function: FORMAT-DIRECTIVE-STRING ; in: DEF-FORMAT-INTERPRETER #\? ; (SB!FORMAT::DEF-FORMAT-INTERPRETER #\? ; (SB!FORMAT::COLONP SB!FORMAT::ATSIGNP SB!FORMAT::PARAMS STRING ; SB!FORMAT::END) ; (WHEN SB!FORMAT::COLONP ; (ERROR 'SB!FORMAT:FORMAT-ERROR :COMPLAINT ; "cannot specify the colon modifier")) ; (SB!FORMAT::INTERPRET-BIND-DEFAULTS NIL SB!FORMAT::PARAMS ; (HANDLER-BIND ((SB!FORMAT:FORMAT-ERROR #)) ; (IF SB!FORMAT::ATSIGNP ; (SETF #) ; (SB!FORMAT::%FORMAT STREAM # #))))) ; --> SB!FORMAT::DEF-COMPLEX-FORMAT-INTERPRETER PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET ; ==> ; (SB!FORMAT::FORMAT-DIRECTIVE-STRING #:DIRECTIVE956) ; ; caught STYLE-WARNING: ; undefined function: FORMAT-DIRECTIVE-STRING ; ; caught STYLE-WARNING: ; 1 more use of undefined function FORMAT-DIRECTIVE-STRING ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-format.lisp ; in: DEF-COMPLEX-FORMAT-INTERPRETER #\{ ; (HANDLER-BIND ((SB!FORMAT:FORMAT-ERROR ; (LAMBDA (CONDITION) ; (ERROR 'SB!FORMAT:FORMAT-ERROR :COMPLAINT ; "~A~%while processing indirect format string:" :ARGS ; # :PRINT-BANNER NIL :CONTROL-STRING STRING :OFFSET ; #)))) ; (SB!FORMAT::%FORMAT STREAM SB!FORMAT::INSIDES SB!FORMAT::ORIG-ARGS ; SB!FORMAT::ARGS)) ; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK ; ==> ; (TYPEP CONDITION 'SB!FORMAT:FORMAT-ERROR) ; ; caught STYLE-WARNING: ; undefined type: FORMAT-ERROR ; in: DEF-FORMAT-INTERPRETER #\? ; (HANDLER-BIND ((SB!FORMAT:FORMAT-ERROR ; (LAMBDA (CONDITION) ; (ERROR 'SB!FORMAT:FORMAT-ERROR :COMPLAINT ; "~A~%while processing indirect format string:" :ARGS ; # :PRINT-BANNER NIL :CONTROL-STRING STRING :OFFSET ; #)))) ; (IF SB!FORMAT::ATSIGNP ; (SETF SB!FORMAT::ARGS ; (SB!FORMAT::%FORMAT STREAM # SB!FORMAT::ORIG-ARGS ; SB!FORMAT::ARGS)) ; (SB!FORMAT::%FORMAT STREAM (SB!FORMAT::NEXT-ARG) ; (SB!FORMAT::NEXT-ARG)))) ; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK ; ==> ; (TYPEP CONDITION 'SB!FORMAT:FORMAT-ERROR) ; ; caught STYLE-WARNING: ; undefined type: FORMAT-ERROR ; in: DEF-COMPLEX-FORMAT-INTERPRETER #\< ; #'SB!FORMAT::ILLEGAL-INSIDE-JUSTIFICATION-P ; ; caught STYLE-WARNING: ; undefined function: ILLEGAL-INSIDE-JUSTIFICATION-P ; in: DEFUN FORMAT ; (ETYPECASE SB!FORMAT::DESTINATION ; (NULL ; (SB!KERNEL:WITH-SIMPLE-OUTPUT-TO-STRING (STREAM) ; (SB!FORMAT::%FORMAT STREAM SB!FORMAT::CONTROL-STRING ; SB!FORMAT::FORMAT-ARGUMENTS))) ; (STRING ; (SB!KERNEL:WITH-SIMPLE-OUTPUT-TO-STRING (STREAM SB!FORMAT::DESTINATION) ; (SB!FORMAT::%FORMAT STREAM SB!FORMAT::CONTROL-STRING ; SB!FORMAT::FORMAT-ARGUMENTS))) ; ((MEMBER T) ; (SB!FORMAT::%FORMAT *STANDARD-OUTPUT* SB!FORMAT::CONTROL-STRING ; SB!FORMAT::FORMAT-ARGUMENTS) ; NIL) ; (STREAM ; (SB!FORMAT::%FORMAT SB!FORMAT::DESTINATION SB!FORMAT::CONTROL-STRING ; SB!FORMAT::FORMAT-ARGUMENTS) ; NIL)) ; --> LET COND IF COND IF COND IF COND IF TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT29381 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-INVALID ; in: DEF-COMPLEX-FORMAT-INTERPRETER #\[ ; (SB!FORMAT::PARSE-CONDITIONAL-DIRECTIVE SB!FORMAT::DIRECTIVES) ; ; caught STYLE-WARNING: ; undefined function: PARSE-CONDITIONAL-DIRECTIVE ; in: DEF-COMPLEX-FORMAT-INTERPRETER #\< ; (SB!FORMAT::PARSE-FORMAT-JUSTIFICATION SB!FORMAT::DIRECTIVES) ; ; caught STYLE-WARNING: ; undefined function: PARSE-FORMAT-JUSTIFICATION ; (SB!FORMAT::PARSE-FORMAT-LOGICAL-BLOCK SB!FORMAT::SEGMENTS SB!FORMAT::COLONP ; SB!FORMAT::FIRST-SEMI CLOSE ; SB!FORMAT::PARAMS STRING ; SB!FORMAT::END) ; ; caught STYLE-WARNING: ; undefined function: PARSE-FORMAT-LOGICAL-BLOCK ; in: DEFUN %FORMAT ; (SB!FORMAT::TOKENIZE-CONTROL-STRING STRING) ; ; caught STYLE-WARNING: ; undefined function: TOKENIZE-CONTROL-STRING ; in: DEFUN FORMAT ; (ETYPECASE SB!FORMAT::DESTINATION ; (NULL ; (SB!KERNEL:WITH-SIMPLE-OUTPUT-TO-STRING (STREAM) ; (SB!FORMAT::%FORMAT STREAM SB!FORMAT::CONTROL-STRING ; SB!FORMAT::FORMAT-ARGUMENTS))) ; (STRING ; (SB!KERNEL:WITH-SIMPLE-OUTPUT-TO-STRING (STREAM SB!FORMAT::DESTINATION) ; (SB!FORMAT::%FORMAT STREAM SB!FORMAT::CONTROL-STRING ; SB!FORMAT::FORMAT-ARGUMENTS))) ; ((MEMBER T) ; (SB!FORMAT::%FORMAT *STANDARD-OUTPUT* SB!FORMAT::CONTROL-STRING ; SB!FORMAT::FORMAT-ARGUMENTS) ; NIL) ; (STREAM ; (SB!FORMAT::%FORMAT SB!FORMAT::DESTINATION SB!FORMAT::CONTROL-STRING ; SB!FORMAT::FORMAT-ARGUMENTS) ; NIL)) ; --> LET COND IF COND IF COND IF COND IF TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT29381 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: UPDATE-OBJECT-LAYOUT-OR-INVALID ; ; compilation unit finished ; Undefined types: ; CODE-DELETION-NOTE COMPILER-NOTE FORMAT-ERROR ; Undefined functions: ; %FUNCALLABLE-INSTANCE-LAYOUT %SET-FORMAT-DIRECTIVE-INTERPRETER EXTRACT-USER-FUN-NAME FIND-DIRECTIVE FORMAT-DIRECTIVE-ATSIGNP FORMAT-DIRECTIVE-CHARACTER FORMAT-DIRECTIVE-COLONP FORMAT-DIRECTIVE-END FORMAT-DIRECTIVE-PARAMS FORMAT-DIRECTIVE-START FORMAT-DIRECTIVE-STRING ILLEGAL-INSIDE-JUSTIFICATION-P LAYOUT-INVALID PARSE-CONDITIONAL-DIRECTIVE PARSE-FORMAT-JUSTIFICATION PARSE-FORMAT-LOGICAL-BLOCK TOKENIZE-CONTROL-STRING UPDATE-OBJECT-LAYOUT-OR-INVALID ; caught 47 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/target-format.lisp-obj-tmp written ; compilation finished in 0:00:01.195 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/defpackage.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFMACRO DEFPACKAGE ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/defpackage.lisp ; in: DEFMACRO DEFPACKAGE ; (DEFMACRO DEFPACKAGE (PACKAGE &REST SB!IMPL::OPTIONS) ; "Defines a new package called PACKAGE. Each of OPTIONS should be one of the ; following: ; (USE {package-name}*) ; (EXPORT {symbol-name}*) ; (IMPORT-FROM {symbol-name}*) ; (SHADOW {symbol-name}*) ; (SHADOWING-IMPORT-FROM {symbol-name}*) ; (LOCAL-NICKNAMES {local-nickname actual-package-name}*) ; (LOCK boolean) ; (IMPLEMENT {package-name}*) ; (DOCUMENTATION doc-string) ; (INTERN {symbol-name}*) ; (SIZE ) ; (NICKNAMES {package-name}*) ; All options except SIZE, LOCK, and :DOCUMENTATION can be used multiple ; times." ; (LET ((SB!IMPL::NICKNAMES NIL) ; (SB!IMPL::LOCAL-NICKNAMES NIL) ; (SB!IMPL::SIZE NIL) ; (SB!IMPL::SHADOWS NIL) ; (SB!IMPL::SHADOWING-IMPORTS NIL) ; (SB!IMPL::USE NIL) ; (SB!IMPL::USE-P NIL) ; (SB!IMPL::IMPORTS NIL) ; (SB!IMPL::INTERNS NIL) ; (SB!IMPL::EXPORTS NIL) ; (SB!IMPL::IMPLEMENT (SB!IMPL::STRINGIFY-PACKAGE-DESIGNATORS #)) ; (SB!IMPL::IMPLEMENT-P NIL) ; ...) ; (DOLIST (SB!IMPL::OPTION SB!IMPL::OPTIONS) ; (UNLESS (CONSP SB!IMPL::OPTION) ; (ERROR 'SB!INT:SIMPLE-PROGRAM-ERROR :FORMAT-CONTROL ; "bogus DEFPACKAGE option: ~S" :FORMAT-ARGUMENTS #)) ; (CASE (CAR SB!IMPL::OPTION) ; (:NICKNAMES #) ; (:LOCAL-NICKNAMES #) ; (:SIZE #) ; (:SHADOW #) ; (:SHADOWING-IMPORT-FROM #) ; (:USE #) ; (:IMPORT-FROM #) ; (:INTERN #) ; (:EXPORT #) ; (:IMPLEMENT # #) ; ...)) ; (SB!IMPL::CHECK-DISJOINT (SB!INT:QUASIQUOTE (:INTERN #)) ; (SB!INT:QUASIQUOTE (:EXPORT #))) ; (SB!IMPL::CHECK-DISJOINT (SB!INT:QUASIQUOTE (:INTERN #)) ; (SB!INT:QUASIQUOTE (:IMPORT-FROM #)) (SB!INT:QUASIQUOTE (:SHADOW #)) ; (SB!INT:QUASIQUOTE (:SHADOWING-IMPORT-FROM #))) ; (SB!INT:QUASIQUOTE ; (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) ; (SB!IMPL::%DEFPACKAGE # '# '# '# '# '# '# '# '# '# '# ...))))) ; --> PROGN EVAL-WHEN ; ==> ; (SB!C::%DEFMACRO 'DEFPACKAGE ; #'(LAMBDA (#:.WHOLE. #:.ENVIRONMENT.) ; (DECLARE (IGNORE #:.ENVIRONMENT.)) ; (LET* () ; (LET (#) ; (UNLESS # #)) ; (LET* (# #) ; (BLOCK DEFPACKAGE #)))) ; '(PACKAGE &REST SB!IMPL::OPTIONS) ; "Defines a new package called PACKAGE. Each of OPTIONS should be one of the ; following: ; (USE {package-name}*) ; (EXPORT {symbol-name}*) ; (IMPORT-FROM {symbol-name}*) ; (SHADOW {symbol-name}*) ; (SHADOWING-IMPORT-FROM {symbol-name}*) ; (LOCAL-NICKNAMES {local-nickname actual-package-name}*) ; (LOCK boolean) ; (IMPLEMENT {package-name}*) ; (DOCUMENTATION doc-string) ; (INTERN {symbol-name}*) ; (SIZE ) ; (NICKNAMES {package-name}*) ; All options except SIZE, LOCK, and :DOCUMENTATION can be used multiple ; times." ; '(MACRO-FUNCTION DEFPACKAGE) (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: CHECK-DISJOINT ; ; caught STYLE-WARNING: ; undefined function: STRINGIFY-PACKAGE-DESIGNATOR ; ; caught STYLE-WARNING: ; undefined function: STRINGIFY-PACKAGE-DESIGNATORS ; ; caught STYLE-WARNING: ; undefined function: STRINGIFY-STRING-DESIGNATOR ; ; caught STYLE-WARNING: ; undefined function: STRINGIFY-STRING-DESIGNATORS ; x-compiling (DEFUN CHECK-DISJOINT ...) ; x-compiling (DEFUN STRINGIFY-STRING-DESIGNATOR ...) ; x-compiling (DEFUN STRINGIFY-STRING-DESIGNATORS ...) ; x-compiling (DEFUN STRINGIFY-PACKAGE-DESIGNATOR ...) ; x-compiling (DEFUN STRINGIFY-PACKAGE-DESIGNATORS ...) ; x-compiling (DEFUN IMPORT-LIST-SYMBOLS ...) ; x-compiling (DEFUN USE-LIST-PACKAGES ...) ; x-compiling (DEFUN UPDATE-PACKAGE ...) ; x-compiling (DECLAIM (TYPE LIST ...)) ; x-compiling (DEFVAR *ON-PACKAGE-VARIANCE* ...) ; x-compiling (DEFUN NOTE-PACKAGE-VARIANCE ...) ; x-compiling (DEFUN UPDATE-PACKAGE-WITH-VARIANCE ...) ; x-compiling (DEFUN %DEFPACKAGE ...) ; x-compiling (DEFUN FIND-OR-MAKE-SYMBOL ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/defpackage.lisp ; in: DEFUN UPDATE-PACKAGE ; (SB!IMPL::%ENTER-NEW-NICKNAMES PACKAGE SB!IMPL::NICKNAMES) ; ; caught STYLE-WARNING: ; undefined function: %ENTER-NEW-NICKNAMES ; in: DEFUN FIND-OR-MAKE-SYMBOL ; (WITH-SIMPLE-RESTART (CONTINUE "INTERN it.") ; (ERROR 'SB!KERNEL:SIMPLE-PACKAGE-ERROR :PACKAGE PACKAGE :FORMAT-CONTROL ; "no symbol named ~S in ~S" :FORMAT-ARGUMENTS ; (LIST SB!IMPL::NAME (PACKAGE-NAME PACKAGE)))) ; --> RESTART-CASE BLOCK LET TAGBODY RESTART-BIND LET CONS LIST CONS ; --> SB!KERNEL:MAKE-RESTART FUNCTION SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> UNLESS IF TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT30606 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: %FUNCALLABLE-INSTANCE-LAYOUT ; in: DEFUN UPDATE-PACKAGE ; (SETF (SB!IMPL::PACKAGE-%LOCAL-NICKNAMES PACKAGE) NIL) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!IMPL::PACKAGE-%LOCAL-NICKNAMES) #:NEW148 ; #:PACKAGE149) ; ; caught STYLE-WARNING: ; undefined function: (SETF PACKAGE-%LOCAL-NICKNAMES) ; (SETF (SB!KERNEL:PACKAGE-DOC-STRING PACKAGE) SB!IMPL::DOC-STRING) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!KERNEL:PACKAGE-DOC-STRING) #:NEW142 #:PACKAGE143) ; ; caught STYLE-WARNING: ; undefined function: (SETF PACKAGE-DOC-STRING) ; (SETF (SB!IMPL::PACKAGE-LOCK PACKAGE) SB!IMPL::LOCK) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!IMPL::PACKAGE-LOCK) #:NEW145 #:PACKAGE146) ; ; caught STYLE-WARNING: ; undefined function: (SETF PACKAGE-LOCK) ; (SETF (SB!IMPL::PACKAGE-SOURCE-LOCATION PACKAGE) SB!IMPL::SOURCE-LOCATION) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!IMPL::PACKAGE-SOURCE-LOCATION) #:NEW139 ; #:PACKAGE140) ; ; caught STYLE-WARNING: ; undefined function: (SETF PACKAGE-SOURCE-LOCATION) ; (SB!EXT:ADD-IMPLEMENTATION-PACKAGE PACKAGE SB!IMPL::P) ; ; caught STYLE-WARNING: ; undefined function: ADD-IMPLEMENTATION-PACKAGE ; (SB!EXT:ADD-PACKAGE-LOCAL-NICKNAME (CAR SB!IMPL::SPEC) (CDR SB!IMPL::SPEC) ; PACKAGE) ; ; caught STYLE-WARNING: ; undefined function: ADD-PACKAGE-LOCAL-NICKNAME ; in: DEFUN %DEFPACKAGE ; (SB!IMPL::WITH-PACKAGE-GRAPH NIL ; (LET* ((SB!IMPL::EXISTING-PACKAGE (FIND-PACKAGE SB!IMPL::NAME)) ; (SB!IMPL::USE ; (SB!IMPL::USE-LIST-PACKAGES SB!IMPL::EXISTING-PACKAGE SB!IMPL::USE)) ; (SB!IMPL::SHADOWING-IMPORTS ; (SB!IMPL::IMPORT-LIST-SYMBOLS SB!IMPL::SHADOWING-IMPORTS)) ; (SB!IMPL::IMPORTS (SB!IMPL::IMPORT-LIST-SYMBOLS SB!IMPL::IMPORTS))) ; (IF SB!IMPL::EXISTING-PACKAGE ; (SB!IMPL::UPDATE-PACKAGE-WITH-VARIANCE SB!IMPL::EXISTING-PACKAGE ; SB!IMPL::NAME SB!IMPL::NICKNAMES SB!IMPL::SOURCE-LOCATION ; SB!IMPL::SHADOWS SB!IMPL::SHADOWING-IMPORTS SB!IMPL::USE ; SB!IMPL::IMPORTS SB!IMPL::INTERNS SB!IMPL::EXPORTS SB!IMPL::IMPLEMENT ; ...) ; (LET (#) ; (SB!IMPL::UPDATE-PACKAGE PACKAGE SB!IMPL::NICKNAMES ; SB!IMPL::SOURCE-LOCATION SB!IMPL::SHADOWS ; SB!IMPL::SHADOWING-IMPORTS SB!IMPL::USE SB!IMPL::IMPORTS ; SB!IMPL::INTERNS SB!IMPL::EXPORTS SB!IMPL::IMPLEMENT ; SB!IMPL::LOCAL-NICKNAMES ...))))) ; --> FLET ; ==> ; (SB!IMPL::CALL-WITH-PACKAGE-GRAPH #'SB!IMPL::THUNK) ; ; caught STYLE-WARNING: ; undefined function: CALL-WITH-PACKAGE-GRAPH ; in: DEFUN CHECK-DISJOINT ; (DEFUN SB!IMPL::CHECK-DISJOINT (&REST SB!IMPL::ARGS) ; (DO ((LIST SB!IMPL::ARGS (CDR LIST))) ; ((ENDP LIST)) ; (LOOP SB!IMPL::WITH SB!IMPL::X = (CAR LIST) ; SB!IMPL::FOR SB!IMPL::Y SB!IMPL::IN (REST LIST) ; SB!IMPL::FOR SB!IMPL::Z = ...))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!IMPL::ARGS #:REST-CONTEXT-108 #:REST-COUNT-109) {B4ED7D9}> ; NIL NIL 0)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFMACRO DEFPACKAGE ; (ASSOC PACKAGE-NAME SB!IMPL::IMPORTS :TEST #'STRING=) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; (ASSOC PACKAGE-NAME SB!IMPL::SHADOWING-IMPORTS :TEST #'STRING=) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 17 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/defpackage.lisp ; in: DEFMACRO DEFPACKAGE ; (SB!INT:QUASIQUOTE ; (:SHADOWING-IMPORT-FROM ; #S(SB!IMPL::COMMA ; :EXPR (APPLY #'APPEND (MAPCAR #'REST SB!IMPL::SHADOWING-IMPORTS)) ; :KIND 2))) ; --> SB!IMPL::|List*| APPLY MULTIPLE-VALUE-CALL VALUES-LIST MAPCAR LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; (SB!INT:QUASIQUOTE ; (:IMPORT-FROM ; #S(SB!IMPL::COMMA ; :EXPR (APPLY #'APPEND (MAPCAR #'REST SB!IMPL::IMPORTS)) ; :KIND 2))) ; --> SB!IMPL::|List*| APPLY MULTIPLE-VALUE-CALL VALUES-LIST MAPCAR LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; (MAPCAR ; (LAMBDA (SB!IMPL::SPEC) ; (DESTRUCTURING-BIND ; (SB!IMPL::NICK SB!IMPL::NAME) ; SB!IMPL::SPEC ; (CONS (SB!IMPL::STRINGIFY-PACKAGE-DESIGNATOR SB!IMPL::NICK) ; (SB!IMPL::STRINGIFY-PACKAGE-DESIGNATOR SB!IMPL::NAME)))) ; (CDR SB!IMPL::OPTION)) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; ; caught STYLE-WARNING: ; 7 more uses of undefined type COMPILER-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/defpackage.lisp ; in: DEFUN FIND-OR-MAKE-SYMBOL ; (WITH-SIMPLE-RESTART (CONTINUE "INTERN it.") ; (ERROR 'SB!KERNEL:SIMPLE-PACKAGE-ERROR :PACKAGE PACKAGE :FORMAT-CONTROL ; "no symbol named ~S in ~S" :FORMAT-ARGUMENTS ; (LIST SB!IMPL::NAME (PACKAGE-NAME PACKAGE)))) ; --> RESTART-CASE BLOCK LET TAGBODY RESTART-BIND LET RETURN-FROM LET ; ==> ; (SB!KERNEL:COERCE-TO-CONDITION 'SB!KERNEL:SIMPLE-PACKAGE-ERROR ; (LIST :PACKAGE PACKAGE :FORMAT-CONTROL ; "no symbol named ~S in ~S" ; :FORMAT-ARGUMENTS ; (LIST SB!IMPL::NAME ; (PACKAGE-NAME PACKAGE))) ; 'SIMPLE-ERROR 'ERROR) ; ; caught STYLE-WARNING: ; undefined type: CONDITION ; --> RESTART-CASE BLOCK LET TAGBODY RESTART-BIND LET CONS LIST CONS ; --> SB!KERNEL:MAKE-RESTART FUNCTION SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> UNLESS IF TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT30606 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-INVALID ; in: DEFUN UPDATE-PACKAGE-WITH-VARIANCE ; (SB!IMPL::PACKAGE-%SHADOWING-SYMBOLS PACKAGE) ; ; caught STYLE-WARNING: ; undefined function: PACKAGE-%SHADOWING-SYMBOLS ; (SB!EXT:PACKAGE-IMPLEMENTS-LIST PACKAGE) ; ; caught STYLE-WARNING: ; undefined function: PACKAGE-IMPLEMENTS-LIST ; (DO-EXTERNAL-SYMBOLS (SB!IMPL::S PACKAGE) ; (PUSH SB!IMPL::S SB!IMPL::OLD-EXPORTS)) ; --> BLOCK WITH-PACKAGE-ITERATOR MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; (SB!IMPL::PACKAGE-ITER-INIT 2 (SB!INT:FIND-UNDELETED-PACKAGE-OR-LOSE PACKAGE)) ; ; caught STYLE-WARNING: ; undefined function: PACKAGE-ITER-INIT ; (SB!EXT:REMOVE-IMPLEMENTATION-PACKAGE PACKAGE SB!IMPL::P) ; ; caught STYLE-WARNING: ; undefined function: REMOVE-IMPLEMENTATION-PACKAGE ; in: DEFUN FIND-OR-MAKE-SYMBOL ; (WITH-SIMPLE-RESTART (CONTINUE "INTERN it.") ; (ERROR 'SB!KERNEL:SIMPLE-PACKAGE-ERROR :PACKAGE PACKAGE :FORMAT-CONTROL ; "no symbol named ~S in ~S" :FORMAT-ARGUMENTS ; (LIST SB!IMPL::NAME (PACKAGE-NAME PACKAGE)))) ; --> RESTART-CASE BLOCK LET TAGBODY RESTART-BIND LET CONS LIST CONS ; --> SB!KERNEL:MAKE-RESTART FUNCTION SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> UNLESS IF TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT30606 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: UPDATE-OBJECT-LAYOUT-OR-INVALID ; ; compilation unit finished ; Undefined types: ; CODE-DELETION-NOTE COMPILER-NOTE CONDITION ; Undefined functions: ; %ENTER-NEW-NICKNAMES %FUNCALLABLE-INSTANCE-LAYOUT (SETF PACKAGE-%LOCAL-NICKNAMES) (SETF PACKAGE-DOC-STRING) (SETF PACKAGE-LOCK) (SETF PACKAGE-SOURCE-LOCATION) ADD-IMPLEMENTATION-PACKAGE ADD-PACKAGE-LOCAL-NICKNAME CALL-WITH-PACKAGE-GRAPH LAYOUT-INVALID PACKAGE-%SHADOWING-SYMBOLS PACKAGE-IMPLEMENTS-LIST PACKAGE-ITER-INIT REMOVE-IMPLEMENTATION-PACKAGE UPDATE-OBJECT-LAYOUT-OR-INVALID ; caught 29 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/defpackage.lisp-obj-tmp written ; compilation finished in 0:00:00.415 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/error-error.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFVAR *ERROR-ERROR-DEPTH* ...) ; x-compiling (DEFUN ERROR-ERROR ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/error-error.lisp ; in: DEFUN ERROR-ERROR ; (SB!DEBUG:BACKTRACE :STREAM *TERMINAL-IO*) ; ; caught STYLE-WARNING: ; undefined function: BACKTRACE ; (DEFUN SB!IMPL::ERROR-ERROR (&REST SB!IMPL::MESSAGES) ; (LET ((SB!IMPL::*ERROR-ERROR-DEPTH* (1+ SB!IMPL::*ERROR-ERROR-DEPTH*))) ; (CASE SB!IMPL::*ERROR-ERROR-DEPTH* ; (1) ; (2 (SB!KERNEL:STREAM-COLD-INIT-OR-RESET)) ; (3 ; (SB!INT:/SHOW0 "*ERROR-ERROR-DEPTH* too big, trying THROW") ; (THROW 'SB!INT:TOPLEVEL-CATCHER NIL)) ; (T ; (SB!INT:/SHOW0 "*ERROR-ERROR-DEPTH* too big, trying HALT") ; (SB!SYS:%PRIMITIVE SB!C:HALT) ; (SB!INT:/SHOW0 "*ERROR-ERROR-DEPTH* too big, trying THROW") ; (THROW 'SB!INT:TOPLEVEL-CATCHER NIL))) ; (WITH-STANDARD-IO-SYNTAX ; (LET (#) ; (DOLIST # #) ; (TERPRI *TERMINAL-IO*) ; (SB!DEBUG:BACKTRACE :STREAM *TERMINAL-IO*) ; (FORCE-OUTPUT *TERMINAL-IO*) ; (INVOKE-DEBUGGER #))))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!IMPL::MESSAGES #:REST-CONTEXT-0 #:REST-COUNT-1) {CCA9831}> ; NIL NIL 0)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; (SB!KERNEL:STREAM-COLD-INIT-OR-RESET) ; ; caught STYLE-WARNING: ; undefined function: STREAM-COLD-INIT-OR-RESET ; ; compilation unit finished ; Undefined type: ; CODE-DELETION-NOTE ; Undefined functions: ; BACKTRACE STREAM-COLD-INIT-OR-RESET ; caught 3 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/error-error.lisp-obj-tmp written ; compilation finished in 0:00:00.013 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/deadline.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DECLAIM (TYPE # ...)) ; x-compiling (!DEFVAR *DEADLINE* ...) ; x-compiling (!DEFVAR *DEADLINE-SECONDS* ...) ; x-compiling (DECLAIM (INLINE SECONDS-TO-INTERNAL-TIME)) ; x-compiling (DEFUN SECONDS-TO-INTERNAL-TIME ...) ; x-compiling (DEFMACRO WITH-DEADLINE ...) ; x-compiling (DECLAIM (INLINE DECODE-INTERNAL-TIME)) ; x-compiling (DEFUN DECODE-INTERNAL-TIME ...) ; x-compiling (DEFUN SIGNAL-TIMEOUT ...) ; x-compiling (DEFUN SIGNAL-DEADLINE ...) ; x-compiling (DEFUN DEFER-DEADLINE ...) ; x-compiling (DEFUN CANCEL-DEADLINE ...) ; x-compiling (DECLAIM (INLINE RELATIVE-DECODED-TIMES)) ; x-compiling (DEFUN RELATIVE-DECODED-TIMES ...) ; x-compiling (DEFUN DECODE-TIMEOUT ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/deadline.lisp ; in: DEFUN SIGNAL-TIMEOUT ; (DEFUN SB!IMPL::SIGNAL-TIMEOUT (SB!IMPL::DATUM &REST SB!IMPL::ARGUMENTS) ; "Signals a timeout condition while inhibiting further timeouts due to ; deadlines while the condition is being handled." ; (SB!SYS:WITH-INTERRUPTS ; (LET ((SB!IMPL::*DEADLINE* NIL)) ; (APPLY #'ERROR SB!IMPL::DATUM SB!IMPL::ARGUMENTS)))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!IMPL::DATUM SB!IMPL::ARGUMENTS #:REST-CONTEXT-72 ; #:REST-COUNT-73) ; {CF96E91}> ; SB!IMPL::DATUM NIL NIL 0)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN DECODE-INTERNAL-TIME ; (MULTIPLE-VALUE-BIND (SB!IMPL::SEC SB!IMPL::FRAC) ; (TRUNCATE TIME SB-XC:INTERNAL-TIME-UNITS-PER-SECOND) ; (VALUES SB!IMPL::SEC ; (* SB!IMPL::FRAC SB!UNIX::MICRO-SECONDS-PER-INTERNAL-TIME-UNIT))) ; --> MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!IMPL::SEC SB!IMPL::FRAC #:G68) {CF74C21}> ; SB!IMPL::SEC SB!IMPL::FRAC NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFMACRO WITH-DEADLINE ; (DEFMACRO SB!SYS:WITH-DEADLINE ; ((&KEY SB!IMPL::SECONDS SB!IMPL::OVERRIDE) &BODY SB!IMPL::BODY) ; "Arranges for a TIMEOUT condition to be signalled if an operation ; respecting deadlines occurs either after the deadline has passed, or ; would take longer than the time left to complete. ; ; Currently only blocking IO operations, GET-MUTEX, and CONDITION-WAIT ; respect deadlines, but this includes their implicit uses inside SBCL ; itself. ; ; Unless OVERRIDE is true, existing deadlines can only be restricted, ; not extended. Deadlines are per thread: children are unaffected by ; their parent's deadlines. ; ; Experimental." ; (SB!INT:WITH-UNIQUE-NAMES (SB!IMPL::TMP SB!IMPL::DEADLINE-SECONDS ; SB!IMPL::DEADLINE) ; (SB!INT:QUASIQUOTE ; (LET* (# # #) ; (MULTIPLE-VALUE-BIND # # #))))) ; --> PROGN EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:PROBLEM2 #:INFO3 #:G5) {CEB5721}> ; #:PROBLEM2 #:INFO3 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 13 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/deadline.lisp ; in: DEFUN SIGNAL-DEADLINE ; (RESTART-CASE (ERROR 'SB!SYS:DEADLINE-TIMEOUT :SECONDS ; SB!IMPL::*DEADLINE-SECONDS*) ; (SB!SYS:DEFER-DEADLINE ; (&OPTIONAL (SB!IMPL::SECONDS SB!IMPL::*DEADLINE-SECONDS*)) :REPORT ; "Defer the deadline for SECONDS more." :INTERACTIVE ; (LAMBDA () ; (SB!INT:READ-EVALUATED-FORM "By how many seconds shall the deadline ~ ; be deferred?: ")) ; (LET* ((SB!IMPL::NEW-DEADLINE-SECONDS #) (SB!IMPL::NEW-DEADLINE #)) ; (SETF SB!IMPL::*DEADLINE* SB!IMPL::NEW-DEADLINE ; SB!IMPL::*DEADLINE-SECONDS* SB!IMPL::NEW-DEADLINE-SECONDS))) ; (SB!SYS:CANCEL-DEADLINE NIL :REPORT "Cancel the deadline and continue." ; (SETF SB!IMPL::*DEADLINE* NIL ; SB!IMPL::*DEADLINE-SECONDS* NIL))) ; --> BLOCK LET TAGBODY RESTART-BIND LET RETURN-FROM LET ; ==> ; (SB!KERNEL:COERCE-TO-CONDITION 'SB!SYS:DEADLINE-TIMEOUT ; (LIST :SECONDS SB!IMPL::*DEADLINE-SECONDS*) ; 'SIMPLE-ERROR 'ERROR) ; ; caught STYLE-WARNING: ; undefined type: CONDITION ; in: DEFUN CANCEL-DEADLINE ; (SB!INT:TRY-RESTART 'SB!SYS:CANCEL-DEADLINE CONDITION) ; ; caught STYLE-WARNING: ; undefined function: TRY-RESTART ; in: DEFUN DEFER-DEADLINE ; (SB!INT:TRY-RESTART 'SB!SYS:DEFER-DEADLINE CONDITION SB!IMPL::SECONDS) ; ; caught STYLE-WARNING: ; undefined function: TRY-RESTART ; ; compilation unit finished ; Undefined types: ; CODE-DELETION-NOTE CONDITION ; Undefined function: ; TRY-RESTART ; caught 7 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/deadline.lisp-obj-tmp written ; compilation finished in 0:00:00.106 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/serve-event.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFSTRUCT (HANDLER # ...) ...) ; x-compiling (DEFSTRUCT (POLLFDS #) ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFVAR *DESCRIPTOR-HANDLERS* ...) ; x-compiling (SB-XC:DEFMACRO WITH-DESCRIPTOR-HANDLERS ...) ; x-compiling (DEFUN DEALLOCATE-POLLFDS ...) ; x-compiling (DEFUN LIST-ALL-DESCRIPTOR-HANDLERS ...) ; x-compiling (DEFUN MAP-DESCRIPTOR-HANDLERS ...) ; x-compiling (DEFUN ADD-FD-HANDLER ...) ; x-compiling (DEFUN REMOVE-FD-HANDLER ...) ; x-compiling (DEFUN INVALIDATE-DESCRIPTOR ...) ; x-compiling (DEFMACRO WITH-FD-HANDLER ...) ; x-compiling (DEFUN HANDLER-DESCRIPTORS-ERROR ...) ; x-compiling (DECLAIM (TYPE # ...)) ; x-compiling (DEFVAR *PERIODIC-POLLING-FUNCTION* ...) ; x-compiling (DECLAIM (REAL *PERIODIC-POLLING-PERIOD*)) ; x-compiling (DEFVAR *PERIODIC-POLLING-PERIOD* ...) ; x-compiling (DEFUN WAIT-UNTIL-FD-USABLE ...) ; x-compiling (DEFUN SERVE-ALL-EVENTS ...) ; x-compiling (DEFUN SERVE-EVENT ...) ; x-compiling (DEFUN SUB-SERVE-EVENT ...) ; x-compiling (DEFUN COMPUTE-POLLFDS ...) ; x-compiling (DEFUN SUB-SUB-SERVE-EVENT ...) /entering WITH-ALIEN BINDINGS=((A (STRUCT SB!UNIX:POLLFD))) /BINDING=(A (STRUCT SB!UNIX:POLLFD)) /SYMBOL=A TYPE=(STRUCT SB!UNIX:POLLFD) OPT1=NIL OPT2=NIL /ALIEN-TYPE=# /ALLOCATION=:LOCAL INITIAL-VALUE=NIL /:LOCAL case /VAR=#:VAR563 INITVAL=NIL INFO=# /revised BODY=((LET ((#:VAR563 #)) (SB!ALIEN-INTERNALS:NOTE-LOCAL-ALIEN-TYPE '# #:VAR563) (SYMBOL-MACROLET (#) (SB!UNIX:UNIX-POLL A 0 TO-MILLISEC)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/serve-event.lisp ; in: DEFUN SUB-SUB-SERVE-EVENT ; (SB!UNIX:UNIX-POLL SB!IMPL::A 0 SB!IMPL::TO-MILLISEC) ; --> SB!IMPL::A SB!ALIEN-INTERNALS:LOCAL-ALIEN SB!ALIEN-INTERNALS:%ALIEN-VALUE ; --> SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; (WITH-SIMPLE-RESTART (CONTINUE "Ignore failure and continue.") ; (SB!INT:SIMPLE-PERROR "Unix system call poll() failed" :ERRNO SB!IMPL::ERR)) ; --> RESTART-CASE BLOCK LET TAGBODY RESTART-BIND LET CONS LIST CONS ; --> SB!KERNEL:MAKE-RESTART FUNCTION SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> UNLESS IF TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT31029 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: %FUNCALLABLE-INSTANCE-LAYOUT ; in: DEFSTRUCT POLLFDS ; (DEFSTRUCT (SB!IMPL::POLLFDS (:CONSTRUCTOR SB!IMPL::MAKE-POLLFDS (LIST))) ; (LIST) ; (SB!IMPL::FDS) ; (SB!IMPL::N-FDS) ; (MAP)) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: DEFSTRUCT HANDLER ; (DEFSTRUCT ; (SB!IMPL::HANDLER ; (:CONSTRUCTOR SB!IMPL::MAKE-HANDLER ; (SB!IMPL::DIRECTION SB!IMPL::DESCRIPTOR FUNCTION)) ; (:COPIER NIL)) ; (SB!IMPL::DIRECTION NIL :TYPE (MEMBER :INPUT :OUTPUT)) ; (SB!IMPL::DESCRIPTOR 0 :TYPE (AND FIXNUM UNSIGNED-BYTE)) ; SB!IMPL::ACTIVE ; (FUNCTION NIL :TYPE FUNCTION) ; SB!IMPL::BOGUS) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: DEFUN LIST-ALL-DESCRIPTOR-HANDLERS ; (SB!IMPL::WITH-DESCRIPTOR-HANDLERS ; (SB!INT:AWHEN SB!IMPL::*DESCRIPTOR-HANDLERS* ; (COPY-LIST (SB!IMPL::POLLFDS-LIST SB!INT:IT)))) ; --> SB!SYS:WITHOUT-INTERRUPTS SB!INT:DX-FLET FLET IF UNWIND-PROTECT FLET ; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:NEXT137 #:START138 #:COUNT139 #:G140) {D898819}> ; #:NEXT137 #:START138 #:COUNT139 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN DEALLOCATE-POLLFDS ; (SB!ALIEN:FREE-ALIEN (SB!IMPL::POLLFDS-FDS SB!INT:IT)) ; --> BLOCK ; ==> ; (SB!ALIEN:ALIEN-FUNCALL ; (SB!ALIEN:EXTERN-ALIEN "free" ; (FUNCTION (VALUES) SB!SYS:SYSTEM-AREA-POINTER)) ; (SB!ALIEN:ALIEN-SAP SB!ALIEN:ALIEN)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFSTRUCT HANDLER ; (DEFSTRUCT ; (SB!IMPL::HANDLER ; (:CONSTRUCTOR SB!IMPL::MAKE-HANDLER ; (SB!IMPL::DIRECTION SB!IMPL::DESCRIPTOR FUNCTION)) ; (:COPIER NIL)) ; (SB!IMPL::DIRECTION NIL :TYPE (MEMBER :INPUT :OUTPUT)) ; (SB!IMPL::DESCRIPTOR 0 :TYPE (AND FIXNUM UNSIGNED-BYTE)) ; SB!IMPL::ACTIVE ; (FUNCTION NIL :TYPE FUNCTION) ; SB!IMPL::BOGUS) ; --> PROGN SB!KERNEL::DELAY-DEFSTRUCT-FUNCTIONS PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK SETF ; --> SB!KERNEL:%INSTANCE-SET THE MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET ; --> SB!C::%TYPEP-WRAPPER IF ; ==> ; (MEMBER #:OBJECT30690 '(:INPUT :OUTPUT)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 36 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/serve-event.lisp ; in: DEFUN COMPUTE-POLLFDS ; (SB!ALIEN:MAKE-ALIEN (SB!ALIEN:STRUCT SB!UNIX:POLLFD) SB!IMPL::N-HANDLERS) ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) ; (SB!ALIEN-INTERNALS:%SAP-ALIEN ; (SB!ALIEN::%MAKE-ALIEN (* 8 (THE SB!INT:INDEX SB!IMPL::N-HANDLERS))) ; '#)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN DEALLOCATE-POLLFDS ; (SB!ALIEN:FREE-ALIEN (SB!IMPL::POLLFDS-FDS SB!INT:IT)) ; --> BLOCK ; ==> ; (SB!ALIEN:ALIEN-FUNCALL ; (SB!ALIEN:EXTERN-ALIEN "free" ; (FUNCTION (VALUES) SB!SYS:SYSTEM-AREA-POINTER)) ; (SB!ALIEN:ALIEN-SAP SB!ALIEN:ALIEN)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN SUB-SUB-SERVE-EVENT ; (WITH-SIMPLE-RESTART (CONTINUE "Ignore failure and continue.") ; (SB!INT:SIMPLE-PERROR "Unix system call poll() failed" :ERRNO SB!IMPL::ERR)) ; --> RESTART-CASE BLOCK LET TAGBODY RESTART-BIND LET CONS LIST CONS ; --> SB!KERNEL:MAKE-RESTART FUNCTION SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET ; --> UNLESS IF TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT31029 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-INVALID ; ; caught STYLE-WARNING: ; undefined function: UPDATE-OBJECT-LAYOUT-OR-INVALID ; ; compilation unit finished ; Undefined types: ; CODE-DELETION-NOTE COMPILER-NOTE ; Undefined functions: ; %FUNCALLABLE-INSTANCE-LAYOUT SB!KERNEL::%TARGET-DEFSTRUCT LAYOUT-INVALID UPDATE-OBJECT-LAYOUT-OR-INVALID ; caught 11 STYLE-WARNING conditions ; printed 1 note ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/serve-event.lisp-obj-tmp written ; compilation finished in 0:00:00.404 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/fd-stream.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DECLAIM (INLINE BUFFER-SAP ...)) ; x-compiling (DEFSTRUCT (BUFFER #) ...) ; x-compiling (DEFVAR *AVAILABLE-BUFFERS* ...) ; x-compiling (DEFVAR *AVAILABLE-BUFFERS-LOCK* ...) ; x-compiling (DEFMACRO WITH-AVAILABLE-BUFFERS-LOCK ...) ; x-compiling (DEFCONSTANT +BYTES-PER-BUFFER+ ...) ; x-compiling (DEFUN ALLOC-BUFFER ...) ; x-compiling (DEFUN GET-BUFFER ...) ; x-compiling (DECLAIM (INLINE RESET-BUFFER)) ; x-compiling (DEFUN RESET-BUFFER ...) ; x-compiling (DEFUN RELEASE-BUFFER ...) ; x-compiling (DEFSTRUCT (FD-STREAM # ...) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/fd-stream.lisp ; in: DEFSTRUCT FD-STREAM ; (DEFSTRUCT ; (SB!SYS:FD-STREAM (:CONSTRUCTOR SB!IMPL::%MAKE-FD-STREAM) ; (:CONC-NAME SB!IMPL::FD-STREAM-) (:PREDICATE SB!SYS:FD-STREAM-P) ; (:INCLUDE SB!KERNEL:ANSI-STREAM ; (SB!IMPL::MISC #'SB!IMPL::FD-STREAM-MISC-ROUTINE)) ; (:COPIER NIL)) ; (SB!IMPL::NAME NIL) ; (SB!IMPL::FILE NIL) ; (SB!IMPL::ORIGINAL NIL :TYPE (OR SIMPLE-STRING NULL)) ; (SB!IMPL::DELETE-ORIGINAL NIL) ; (SB!IMPL::ELEMENT-SIZE 1 :TYPE SB!INT:INDEX) ; (SB!IMPL::ELEMENT-TYPE 'BASE-CHAR) ; (SB!IMPL::FD -1 :TYPE FIXNUM) ; (SB!IMPL::FD-TYPE :UNKNOWN :TYPE KEYWORD) ; (SB!IMPL::BUFFERING :FULL :TYPE (MEMBER :FULL :LINE :NONE)) ; (SB!IMPL::DUAL-CHANNEL-P NIL) ; ...) ; --> PROGN EVAL-WHEN ; ==> ; (SB!KERNEL::%COMPILER-DEFSTRUCT ; '# ; '#(# ; # ; # ; # ; #)) ; ; caught STYLE-WARNING: ; Previously compiled calls to SB!SYS:FD-STREAM-P and ; SB!IMPL::FD-STREAM-CHAR-SIZE could not be inlined because the structure ; definition for SB!SYS:FD-STREAM was not yet seen. To avoid this warning, ; DEFSTRUCT should precede references to the affected functions, or they must be ; declared locally notinline at each call site. ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFUN RELEASE-FD-STREAM-BUFFERS ...) ; x-compiling (DEFUN BUFFER-OUTPUT ...) ; x-compiling (DEFUN FLUSH-OUTPUT-BUFFER ...) ; x-compiling (DEFUN %QUEUE-AND-REPLACE-OUTPUT-BUFFER ...) ; x-compiling (DEFUN WRITE-OUTPUT-FROM-QUEUE ...) ; x-compiling (DEFUN WRITE-OR-BUFFER-OUTPUT ...) ; x-compiling (DECLAIM (INLINE OUTPUT-RAW-BYTES)) ; x-compiling (DEFINE-DEPRECATED-FUNCTION :LATE ...) ; x-compiling (DEFVAR *OUTPUT-ROUTINES* ...) ; x-compiling (DEFUN SIMPLE-STREAM-PERROR ...) ; x-compiling (DEFUN SIMPLE-FILE-PERROR ...) ; x-compiling (DEFUN C-STRING-ENCODING-ERROR ...) ; x-compiling (DEFUN C-STRING-DECODING-ERROR ...) ; x-compiling (DEFUN STREAM-DECODING-ERROR-AND-HANDLE ...) ; x-compiling (DEFUN STREAM-ENCODING-ERROR-AND-HANDLE ...) ; x-compiling (DEFUN EXTERNAL-FORMAT-ENCODING-ERROR ...) ; x-compiling (DEFUN SYNCHRONIZE-STREAM-OUTPUT ...) ; x-compiling (DEFUN FD-STREAM-OUTPUT-FINISHED-P ...) ; x-compiling (DEFMACRO OUTPUT-WRAPPER/VARIABLE-WIDTH ...) ; x-compiling (DEFMACRO OUTPUT-WRAPPER ...) ; x-compiling (DEFMACRO DEF-OUTPUT-ROUTINES/VARIABLE-WIDTH ...) ; x-compiling (DEFMACRO DEF-OUTPUT-ROUTINES ...) ; x-compiling (DEF-OUTPUT-ROUTINES ("OUTPUT-CHAR-~A-BUFFERED" 1 ...) ...) ; x-compiling (DEF-OUTPUT-ROUTINES ("OUTPUT-UNSIGNED-BYTE-~A-BUFFERED" 1 ...) ...) ; x-compiling (DEF-OUTPUT-ROUTINES ("OUTPUT-SIGNED-BYTE-~A-BUFFERED" 1 ...) ...) ; x-compiling (DEF-OUTPUT-ROUTINES ("OUTPUT-UNSIGNED-SHORT-~A-BUFFERED" 2 ...) ...) ; x-compiling (DEF-OUTPUT-ROUTINES ("OUTPUT-SIGNED-SHORT-~A-BUFFERED" 2 ...) ...) ; x-compiling (DEF-OUTPUT-ROUTINES ("OUTPUT-UNSIGNED-LONG-~A-BUFFERED" 4 ...) ...) ; x-compiling (DEF-OUTPUT-ROUTINES ("OUTPUT-SIGNED-LONG-~A-BUFFERED" 4 ...) ...) ; x-compiling (DEFUN FD-SOUT ...) ; x-compiling (DEFSTRUCT (EXTERNAL-FORMAT # ...) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/fd-stream.lisp ; in: DEFSTRUCT EXTERNAL-FORMAT ; (DEFSTRUCT ; (SB!IMPL::EXTERNAL-FORMAT (:CONSTRUCTOR SB!IMPL::%MAKE-EXTERNAL-FORMAT) ; (:CONC-NAME SB!IMPL::EF-) (:PREDICATE SB!IMPL::EXTERNAL-FORMAT-P) ; (:COPIER SB!IMPL::%COPY-EXTERNAL-FORMAT)) ; (SB!IMPL::NAMES (SB!INT:MISSING-ARG) :TYPE LIST :READ-ONLY T) ; (SB!IMPL::DEFAULT-REPLACEMENT-CHARACTER (SB!INT:MISSING-ARG) :TYPE ; CHARACTER) ; (SB!IMPL::READ-N-CHARS-FUN (SB!INT:MISSING-ARG) :TYPE FUNCTION) ; (SB!IMPL::READ-CHAR-FUN (SB!INT:MISSING-ARG) :TYPE FUNCTION) ; (SB!IMPL::WRITE-N-BYTES-FUN (SB!INT:MISSING-ARG) :TYPE FUNCTION) ; (SB!IMPL::WRITE-CHAR-NONE-BUFFERED-FUN (SB!INT:MISSING-ARG) :TYPE FUNCTION) ; (SB!IMPL::WRITE-CHAR-LINE-BUFFERED-FUN (SB!INT:MISSING-ARG) :TYPE FUNCTION) ; (SB!IMPL::WRITE-CHAR-FULL-BUFFERED-FUN (SB!INT:MISSING-ARG) :TYPE FUNCTION) ; (SB!IMPL::RESYNC-FUN NIL :TYPE (OR FUNCTION NULL)) ; (SB!IMPL::BYTES-FOR-CHAR-FUN (SB!INT:MISSING-ARG) :TYPE FUNCTION) ; ...) ; --> PROGN EVAL-WHEN ; ==> ; (SB!KERNEL::%COMPILER-DEFSTRUCT ; '# ; '#(# ; #)) ; ; caught STYLE-WARNING: ; Previously compiled calls to SB!IMPL::EF-READ-C-STRING-FUN and ; SB!IMPL::EF-WRITE-C-STRING-FUN could not be inlined because the structure ; definition for SB!IMPL::EXTERNAL-FORMAT was not yet seen. To avoid this ; warning, DEFSTRUCT should precede references to the affected functions, or they ; must be declared locally notinline at each call site. ; x-compiling (DEFUN EF-CHAR-SIZE ...) ; x-compiling (DEFUN WRAP-EXTERNAL-FORMAT-FUNCTIONS ...) ; x-compiling (DEFVAR *EXTERNAL-FORMATS* ...) ; x-compiling (DEFUN GET-EXTERNAL-FORMAT ...) ; x-compiling (DEFUN GET-EXTERNAL-FORMAT-OR-LOSE ...) ; x-compiling (DEFUN EXTERNAL-FORMAT-KEYWORD ...) ; x-compiling (DEFUN FD-STREAM-EXTERNAL-FORMAT-KEYWORD ...) ; x-compiling (DEFUN CANONIZE-EXTERNAL-FORMAT ...) ; x-compiling (DEFUN PICK-OUTPUT-ROUTINE ...) ; x-compiling (DEFVAR *INPUT-ROUTINES* ...) ; x-compiling (DEFUN SYSREAD-MAY-BLOCK-P ...) ; x-compiling (DEFUN REFILL-INPUT-BUFFER ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/fd-stream.lisp ; in: DEFUN REFILL-INPUT-BUFFER ; (SB!SYS:FD-STREAM-FD STREAM) ; --> SB!EXT:TRULY-THE ; ==> ; (SB!KERNEL:%INSTANCE-REF (THE SB!SYS:FD-STREAM STREAM) 17) ; ; note: could not stack allocate: (FD-STREAM-FD STREAM) ; x-compiling (DEFMACRO INPUT-AT-LEAST ...) ; x-compiling (DEFMACRO INPUT-WRAPPER/VARIABLE-WIDTH ...) ; x-compiling (DEFMACRO INPUT-WRAPPER ...) ; x-compiling (DEFMACRO DEF-INPUT-ROUTINE/VARIABLE-WIDTH ...) ; x-compiling (DEFMACRO DEF-INPUT-ROUTINE ...) ; x-compiling (DEF-INPUT-ROUTINE INPUT-CHARACTER ...) ; x-compiling (DEF-INPUT-ROUTINE INPUT-UNSIGNED-8BIT-BYTE ...) ; x-compiling (DEF-INPUT-ROUTINE INPUT-SIGNED-8BIT-NUMBER ...) ; x-compiling (DEF-INPUT-ROUTINE INPUT-UNSIGNED-16BIT-BYTE ...) ; x-compiling (DEF-INPUT-ROUTINE INPUT-SIGNED-16BIT-BYTE ...) ; x-compiling (DEF-INPUT-ROUTINE INPUT-UNSIGNED-32BIT-BYTE ...) ; x-compiling (DEF-INPUT-ROUTINE INPUT-SIGNED-32BIT-BYTE ...) ; x-compiling (DEFUN PICK-INPUT-ROUTINE ...) ; x-compiling (DEFUN FD-STREAM-READ-N-BYTES ...) /entering WITH-ALIEN BINDINGS=((MEMMOVE (FUNCTION VOID (* CHAR) (* CHAR) UNSIGNED-INT) :EXTERN "memmove")) /BINDING=(MEMMOVE (FUNCTION VOID (* CHAR) (* CHAR) UNSIGNED-INT) :EXTERN "memmove") /SYMBOL=MEMMOVE TYPE=(FUNCTION VOID (* CHAR) (* CHAR) UNSIGNED-INT) OPT1=:EXTERN OPT2="memmove" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="memmove" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((MEMMOVE #)) (ALIEN-FUNCALL MEMMOVE DEST SRC N) (VALUES NIL))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; x-compiling (DEFUN FD-STREAM-RESYNC ...) ; x-compiling (DEFUN GET-FD-STREAM-CHARACTER-SIZER ...) ; x-compiling (DEFUN FD-STREAM-CHARACTER-SIZE ...) ; x-compiling (DEFUN FD-STREAM-STRING-SIZE ...) ; x-compiling (DEFUN FIND-EXTERNAL-FORMAT ...) ; x-compiling (DEFUN VARIABLE-WIDTH-EXTERNAL-FORMAT-P ...) ; x-compiling (DEFUN BYTES-FOR-CHAR-FUN ...) ; x-compiling (DEFMACRO DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT ...) ; x-compiling (DEFMACRO DEFINE-UNIBYTE-EXTERNAL-FORMAT ...) ; x-compiling (DEFMACRO DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH ...) ; x-compiling (DEFUN SET-FD-STREAM-ROUTINES ...) ; x-compiling (DEFUN RELEASE-FD-STREAM-RESOURCES ...) ; x-compiling (DEFUN FLUSH-INPUT-BUFFER ...) ; x-compiling (DEFUN FD-STREAM-CLEAR-INPUT ...) ; x-compiling (DEFUN FD-STREAM-MISC-ROUTINE ...) ; x-compiling (DEFUN FINISH-FD-STREAM-OUTPUT ...) ; x-compiling (DEFUN FD-STREAM-GET-FILE-POSITION ...) ; x-compiling (DEFUN FD-STREAM-SET-FILE-POSITION ...) ; x-compiling (DEFUN MAKE-FD-STREAM ...) ; x-compiling (DEFUN PICK-BACKUP-NAME ...) ; x-compiling (DEFUN RENAME-THE-OLD-ONE ...) ; x-compiling (DEFUN OPEN ...) ; x-compiling (DEFVAR *TTY*) ; x-compiling (DEFVAR *STDIN*) ; x-compiling (DEFVAR *STDOUT*) ; x-compiling (DEFVAR *STDERR*) ; x-compiling (DEFUN STREAM-COLD-INIT-OR-RESET ...) ; x-compiling (DEFUN STREAM-DEINIT ...) ; x-compiling (DEFUN STDSTREAM-EXTERNAL-FORMAT ...) ; x-compiling (DEFUN STREAM-REINIT ...) ; x-compiling (DEFUN BEEP ...) ; x-compiling (DEFUN FILE-NAME ...) ; x-compiling (DEFUN STREAM-OUTPUT-STREAM ...) ; x-compiling (!DEFGLOBAL *!COLD-STDERR-BUF* ...) ; x-compiling (DEFUN !MAKE-COLD-STDERR-STREAM ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/fd-stream.lisp ; in: MACROLET ((STDERR NIL 2)) ; (SB!INT:!DEFGLOBAL SB!IMPL::*!COLD-STDERR-BUF* " ") ; --> PROGN SB!EXT:DEFGLOBAL PROGN LET LET ; ==> ; (SB!IMPL::%DEFGLOBAL 'SB!IMPL::*!COLD-STDERR-BUF* (UNLESS #:BOUNDP " ") ; #:BOUNDP 'NIL NIL (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: %DEFGLOBAL ; in: DEFUN OPEN ; (DEFUN OPEN ; (SB!KERNEL:FILENAME ; &KEY (SB!IMPL::DIRECTION :INPUT) (SB!IMPL::ELEMENT-TYPE 'BASE-CHAR) ; (SB!IMPL::IF-EXISTS NIL SB!IMPL::IF-EXISTS-GIVEN) ; (SB!IMPL::IF-DOES-NOT-EXIST NIL SB!IMPL::IF-DOES-NOT-EXIST-GIVEN) ; (SB!IMPL::EXTERNAL-FORMAT :DEFAULT) ; &AUX (SB!IMPL::DIRECTION SB!IMPL::DIRECTION) ; (SB!IMPL::IF-DOES-NOT-EXIST SB!IMPL::IF-DOES-NOT-EXIST) ; (SB!IMPL::IF-EXISTS SB!IMPL::IF-EXISTS)) ; "Return a stream which reads from or writes to FILENAME. ; Defined keywords: ; :DIRECTION - one of :INPUT, :OUTPUT, :IO, or :PROBE ; :ELEMENT-TYPE - the type of object to read or write, default BASE-CHAR ; :IF-EXISTS - one of :ERROR, :NEW-VERSION, :RENAME, :RENAME-AND-DELETE, ; :OVERWRITE, :APPEND, :SUPERSEDE or NIL ; :IF-DOES-NOT-EXIST - one of :ERROR, :CREATE or NIL ; See the manual for details." ; (MULTIPLE-VALUE-BIND (SB!IMPL::INPUT SB!IMPL::OUTPUT SB!IMPL::MASK) ; (ECASE SB!IMPL::DIRECTION ; (:INPUT (VALUES T NIL SB!UNIX:O_RDONLY)) ; (:OUTPUT (VALUES NIL T SB!UNIX:O_WRONLY)) ; (:IO (VALUES T T SB!UNIX:O_RDWR)) ; (:PROBE (VALUES T NIL SB!UNIX:O_RDONLY))) ; (DECLARE (TYPE SB!INT:INDEX SB!IMPL::MASK)) ; (LET* ((PATHNAME #) (SB!IMPL::PHYSICAL #) (TRUENAME #) (NAMESTRING #)) ; (FLET (#) ; (COND # #) ; (UNLESS SB!IMPL::IF-DOES-NOT-EXIST-GIVEN #) ; (COND # # # # # # # #) ; (LET # ; # ; #))))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; --> LOCALLY SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET ; --> SB!C::%TYPEP-WRAPPER LET OR LET IF OR LET IF OR THE TYPEP LET ; --> SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT33044 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: %FUNCALLABLE-INSTANCE-LAYOUT ; in: DEFUN EXTERNAL-FORMAT-ENCODING-ERROR ; (STREAMP STREAM) ; --> BLOCK TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT31702 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: %FUNCALLABLE-INSTANCE-LAYOUT ; in: DEFSTRUCT EXTERNAL-FORMAT ; (DEFSTRUCT ; (SB!IMPL::EXTERNAL-FORMAT (:CONSTRUCTOR SB!IMPL::%MAKE-EXTERNAL-FORMAT) ; (:CONC-NAME SB!IMPL::EF-) (:PREDICATE SB!IMPL::EXTERNAL-FORMAT-P) ; (:COPIER SB!IMPL::%COPY-EXTERNAL-FORMAT)) ; (SB!IMPL::NAMES (SB!INT:MISSING-ARG) :TYPE LIST :READ-ONLY T) ; (SB!IMPL::DEFAULT-REPLACEMENT-CHARACTER (SB!INT:MISSING-ARG) :TYPE ; CHARACTER) ; (SB!IMPL::READ-N-CHARS-FUN (SB!INT:MISSING-ARG) :TYPE FUNCTION) ; (SB!IMPL::READ-CHAR-FUN (SB!INT:MISSING-ARG) :TYPE FUNCTION) ; (SB!IMPL::WRITE-N-BYTES-FUN (SB!INT:MISSING-ARG) :TYPE FUNCTION) ; (SB!IMPL::WRITE-CHAR-NONE-BUFFERED-FUN (SB!INT:MISSING-ARG) :TYPE FUNCTION) ; (SB!IMPL::WRITE-CHAR-LINE-BUFFERED-FUN (SB!INT:MISSING-ARG) :TYPE FUNCTION) ; (SB!IMPL::WRITE-CHAR-FULL-BUFFERED-FUN (SB!INT:MISSING-ARG) :TYPE FUNCTION) ; (SB!IMPL::RESYNC-FUN NIL :TYPE (OR FUNCTION NULL)) ; (SB!IMPL::BYTES-FOR-CHAR-FUN (SB!INT:MISSING-ARG) :TYPE FUNCTION) ; ...) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: DEFSTRUCT FD-STREAM ; (DEFSTRUCT ; (SB!SYS:FD-STREAM (:CONSTRUCTOR SB!IMPL::%MAKE-FD-STREAM) ; (:CONC-NAME SB!IMPL::FD-STREAM-) (:PREDICATE SB!SYS:FD-STREAM-P) ; (:INCLUDE SB!KERNEL:ANSI-STREAM ; (SB!IMPL::MISC #'SB!IMPL::FD-STREAM-MISC-ROUTINE)) ; (:COPIER NIL)) ; (SB!IMPL::NAME NIL) ; (SB!IMPL::FILE NIL) ; (SB!IMPL::ORIGINAL NIL :TYPE (OR SIMPLE-STRING NULL)) ; (SB!IMPL::DELETE-ORIGINAL NIL) ; (SB!IMPL::ELEMENT-SIZE 1 :TYPE SB!INT:INDEX) ; (SB!IMPL::ELEMENT-TYPE 'BASE-CHAR) ; (SB!IMPL::FD -1 :TYPE FIXNUM) ; (SB!IMPL::FD-TYPE :UNKNOWN :TYPE KEYWORD) ; (SB!IMPL::BUFFERING :FULL :TYPE (MEMBER :FULL :LINE :NONE)) ; (SB!IMPL::DUAL-CHANNEL-P NIL) ; ...) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: DEFSTRUCT BUFFER ; (DEFSTRUCT ; (SB!IMPL::BUFFER ; (:CONSTRUCTOR SB!IMPL::%MAKE-BUFFER (SB!IMPL::SAP LENGTH))) ; (SB!IMPL::SAP (SB!INT:MISSING-ARG) :TYPE SB!SYS:SYSTEM-AREA-POINTER ; :READ-ONLY T) ; (LENGTH (SB!INT:MISSING-ARG) :TYPE SB!INT:INDEX :READ-ONLY T) ; (SB!IMPL::HEAD 0 :TYPE SB!INT:INDEX) ; (SB!IMPL::TAIL 0 :TYPE SB!INT:INDEX)) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: DEFINE-DEPRECATED-FUNCTION :LATE ; (SB!INT:DEFINE-DEPRECATED-FUNCTION :LATE ; "1.0.8.16" ; SB!SYS:OUTPUT-RAW-BYTES ; WRITE-SEQUENCE ; (STREAM SB!IMPL::THING &OPTIONAL SB!IMPL::START SB!IMPL::END) ; (SB!IMPL::WRITE-OR-BUFFER-OUTPUT STREAM SB!IMPL::THING ; (OR SB!IMPL::START 0) (OR SB!IMPL::END (LENGTH SB!IMPL::THING)))) ; --> PROGN SETF LET* LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF COMPILER-MACRO-FUNCTION) #:NEW766 ; 'SB!SYS:OUTPUT-RAW-BYTES) ; ; caught STYLE-WARNING: ; undefined function: (SETF COMPILER-MACRO-FUNCTION) ; in: DEFUN RELEASE-FD-STREAM-BUFFERS ; (SB!IMPL::WITH-AVAILABLE-BUFFERS-LOCK NIL ; (SETF SB!IMPL::*AVAILABLE-BUFFERS* ; (NCONC SB!IMPL::QUEUE SB!IMPL::*AVAILABLE-BUFFERS*))) ; --> SB!THREAD::WITH-SYSTEM-MUTEX SB!INT:DX-FLET FLET ; ==> ; (SB!THREAD::CALL-WITH-SYSTEM-MUTEX #'SB!THREAD::WITH-SYSTEM-MUTEX-THUNK ; SB!IMPL::*AVAILABLE-BUFFERS-LOCK*) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD::CALL-WITH-SYSTEM-MUTEX ; in: DEFUN RELEASE-BUFFER ; (SB!IMPL::WITH-AVAILABLE-BUFFERS-LOCK NIL ; (PUSH SB!IMPL::BUFFER SB!IMPL::*AVAILABLE-BUFFERS*)) ; --> SB!THREAD::WITH-SYSTEM-MUTEX SB!INT:DX-FLET FLET ; ==> ; (SB!THREAD::CALL-WITH-SYSTEM-MUTEX #'SB!THREAD::WITH-SYSTEM-MUTEX-THUNK ; SB!IMPL::*AVAILABLE-BUFFERS-LOCK*) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD::CALL-WITH-SYSTEM-MUTEX ; in: DEFUN GET-BUFFER ; (SB!IMPL::WITH-AVAILABLE-BUFFERS-LOCK NIL (POP SB!IMPL::*AVAILABLE-BUFFERS*)) ; --> SB!THREAD::WITH-SYSTEM-MUTEX SB!INT:DX-FLET FLET ; ==> ; (SB!THREAD::CALL-WITH-SYSTEM-MUTEX #'SB!THREAD::WITH-SYSTEM-MUTEX-THUNK ; SB!IMPL::*AVAILABLE-BUFFERS-LOCK*) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD::CALL-WITH-SYSTEM-MUTEX ; ; caught STYLE-WARNING: ; 2 more uses of undefined function SB!THREAD::CALL-WITH-SYSTEM-MUTEX ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/fd-stream.lisp ; in: DEFUN RELEASE-FD-STREAM-RESOURCES ; (SB!EXT:CANCEL-FINALIZATION SB!SYS:FD-STREAM) ; ; caught STYLE-WARNING: ; undefined function: CANCEL-FINALIZATION ; in: DEFSTRUCT FD-STREAM ; (DEFSTRUCT ; (SB!SYS:FD-STREAM (:CONSTRUCTOR SB!IMPL::%MAKE-FD-STREAM) ; (:CONC-NAME SB!IMPL::FD-STREAM-) (:PREDICATE SB!SYS:FD-STREAM-P) ; (:INCLUDE SB!KERNEL:ANSI-STREAM ; (SB!IMPL::MISC #'SB!IMPL::FD-STREAM-MISC-ROUTINE)) ; (:COPIER NIL)) ; (SB!IMPL::NAME NIL) ; (SB!IMPL::FILE NIL) ; (SB!IMPL::ORIGINAL NIL :TYPE (OR SIMPLE-STRING NULL)) ; (SB!IMPL::DELETE-ORIGINAL NIL) ; (SB!IMPL::ELEMENT-SIZE 1 :TYPE SB!INT:INDEX) ; (SB!IMPL::ELEMENT-TYPE 'BASE-CHAR) ; (SB!IMPL::FD -1 :TYPE FIXNUM) ; (SB!IMPL::FD-TYPE :UNKNOWN :TYPE KEYWORD) ; (SB!IMPL::BUFFERING :FULL :TYPE (MEMBER :FULL :LINE :NONE)) ; (SB!IMPL::DUAL-CHANNEL-P NIL) ; ...) ; --> PROGN SB!KERNEL::DELAY-DEFSTRUCT-FUNCTIONS PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK SETF ; --> SB!KERNEL:%INSTANCE-SET THE MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET ; --> SB!C::%TYPEP-WRAPPER IF ; ==> ; (MEMBER #:OBJECT31278 '(:FULL :LINE :NONE)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN ALLOC-BUFFER ; (DEFUN SB!IMPL::ALLOC-BUFFER ; (&OPTIONAL (SB!IMPL::SIZE SB!IMPL::+BYTES-PER-BUFFER+)) ; (SB!SYS:WITHOUT-INTERRUPTS ; (LET* ((SB!IMPL::SAP #) (SB!IMPL::BUFFER #)) ; (WHEN (ZEROP #) ; (ERROR "Could not allocate ~D bytes for buffer." SB!IMPL::SIZE)) ; (SB!EXT:FINALIZE SB!IMPL::BUFFER (LAMBDA # #) :DONT-SAVE T) ; SB!IMPL::BUFFER))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!IMPL::SIZE) {D27A781}> ; '4096)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; (SB!SYS:WITHOUT-INTERRUPTS ; (LET* ((SB!IMPL::SAP (SB!SYS:ALLOCATE-SYSTEM-MEMORY SB!IMPL::SIZE)) ; (SB!IMPL::BUFFER (SB!IMPL::%MAKE-BUFFER SB!IMPL::SAP SB!IMPL::SIZE))) ; (WHEN (ZEROP (SB!SYS:SAP-INT SB!IMPL::SAP)) ; (ERROR "Could not allocate ~D bytes for buffer." SB!IMPL::SIZE)) ; (SB!EXT:FINALIZE SB!IMPL::BUFFER ; (LAMBDA () (SB!SYS:DEALLOCATE-SYSTEM-MEMORY SB!IMPL::SAP SB!IMPL::SIZE)) ; :DONT-SAVE T) ; SB!IMPL::BUFFER)) ; --> SB!INT:DX-FLET FLET IF UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:NEXT46 #:START47 #:COUNT48 #:G49) {D2A91D9}> ; #:NEXT46 #:START47 #:COUNT48 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 307 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/fd-stream.lisp ; in: DEFMACRO DEF-OUTPUT-ROUTINES ; (MAPCAR ; (LAMBDA (SB!IMPL::BUFFERING) ; (LET ((FUNCTION #)) ; (SB!INT:QUASIQUOTE (PROGN # #)))) ; SB!IMPL::BUFFERINGS) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFMACRO DEF-OUTPUT-ROUTINES/VARIABLE-WIDTH ; (SB!INT:QUASIQUOTE ; (PROGN ; (DEFUN #S(SB!IMPL::COMMA :EXPR FUNCTION :KIND 0) (STREAM SB-XC:BYTE) ; (DECLARE (IGNORABLE SB-XC:BYTE)) ; (SB!IMPL::OUTPUT-WRAPPER/VARIABLE-WIDTH (STREAM # # #) ; #S(SB!IMPL::COMMA :EXPR SB!IMPL::BODY :KIND 2))) ; (SETF SB!IMPL::*OUTPUT-ROUTINES* (NCONC SB!IMPL::*OUTPUT-ROUTINES* '#)))) ; --> SB!IMPL::|List| SB!IMPL::|List| SB!IMPL::|List| SB!IMPL::|List| MAPCAR ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; (MAPCAR ; (LAMBDA (SB!IMPL::BUFFERING) ; (LET ((FUNCTION #)) ; (SB!INT:QUASIQUOTE (PROGN # #)))) ; SB!IMPL::BUFFERINGS) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; ; caught STYLE-WARNING: ; 236 more uses of undefined type COMPILER-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/fd-stream.lisp ; in: DEFUN GET-EXTERNAL-FORMAT ; (USE-VALUE SB!IMPL::REPLACEMENT SB!IMPL::C) ; ; caught STYLE-WARNING: ; undefined type: CONDITION ; in: DEFUN STREAM-ENCODING-ERROR-AND-HANDLE ; (RESTART-CASE (ERROR 'SB!INT:STREAM-ENCODING-ERROR :EXTERNAL-FORMAT ; (STREAM-EXTERNAL-FORMAT STREAM) :STREAM STREAM :CODE ; SB!IMPL::CODE) ; (SB!IMPL::OUTPUT-NOTHING NIL :REPORT ; (LAMBDA (STREAM) (FORMAT STREAM "~@")) ; (THROW 'SB!IMPL::OUTPUT-NOTHING NIL)) ; (SB!IMPL::OUTPUT-REPLACEMENT (STRING) :REPORT ; (LAMBDA (STREAM) (FORMAT STREAM "~@")) ; :INTERACTIVE ; (LAMBDA () ; (FORMAT *QUERY-IO* "~@") ; (FINISH-OUTPUT *QUERY-IO*) ; (LIST (READ *QUERY-IO*))) ; (LET ((STRING #)) ; (SB!IMPL::FD-SOUT STREAM (STRING STRING) 0 (LENGTH STRING))) ; (THROW 'SB!IMPL::OUTPUT-NOTHING NIL))) ; --> BLOCK LET TAGBODY RESTART-BIND LET RETURN-FROM LET ; ==> ; (SB!KERNEL:COERCE-TO-CONDITION 'SB!INT:STREAM-ENCODING-ERROR ; (LIST :EXTERNAL-FORMAT ; (STREAM-EXTERNAL-FORMAT STREAM) :STREAM ; STREAM :CODE SB!IMPL::CODE) ; 'SIMPLE-ERROR 'ERROR) ; ; caught STYLE-WARNING: ; undefined type: CONDITION ; in: DEFUN STREAM-DECODING-ERROR-AND-HANDLE ; (RESTART-CASE (ERROR 'SB!INT:STREAM-DECODING-ERROR :EXTERNAL-FORMAT ; (STREAM-EXTERNAL-FORMAT STREAM) :STREAM STREAM :OCTETS ; (LET ((SB!IMPL::BUFFER #)) ; (SB!SYS:SAP-REF-OCTETS ; (SB!IMPL::BUFFER-SAP SB!IMPL::BUFFER) ; (SB!IMPL::BUFFER-HEAD SB!IMPL::BUFFER) ; SB!IMPL::OCTET-COUNT))) ; (SB!INT:ATTEMPT-RESYNC NIL :REPORT ; (LAMBDA (STREAM) ; (FORMAT STREAM "~@")) ; (SB!IMPL::FD-STREAM-RESYNC STREAM) NIL) ; (SB!INT:FORCE-END-OF-FILE NIL :REPORT ; (LAMBDA (STREAM) (FORMAT STREAM "~@")) ; (SETF (SB!IMPL::FD-STREAM-EOF-FORCED-P STREAM) T)) ; (SB!IMPL::INPUT-REPLACEMENT (STRING) :REPORT ; (LAMBDA (STREAM) ; (FORMAT STREAM "~@")) ; :INTERACTIVE ; (LAMBDA () ; (FORMAT *QUERY-IO* "~@") ; (FINISH-OUTPUT *QUERY-IO*) ; (LIST (READ *QUERY-IO*))) ; (LET ((STRING #) (SB!IMPL::INSTEAD #)) ; (DOTIMES (SB!IMPL::I #) (VECTOR-PUSH-EXTEND # SB!IMPL::INSTEAD)) ; (SB!IMPL::FD-STREAM-RESYNC STREAM) ; (WHEN (> # 0) (SETF #))) ; NIL)) ; --> BLOCK LET TAGBODY RESTART-BIND LET RETURN-FROM LET ; ==> ; (SB!KERNEL:COERCE-TO-CONDITION 'SB!INT:STREAM-DECODING-ERROR ; (LIST :EXTERNAL-FORMAT ; (STREAM-EXTERNAL-FORMAT STREAM) :STREAM ; STREAM :OCTETS ; (LET ((SB!IMPL::BUFFER #)) ; (SB!SYS:SAP-REF-OCTETS ; (SB!IMPL::BUFFER-SAP SB!IMPL::BUFFER) ; (SB!IMPL::BUFFER-HEAD ; SB!IMPL::BUFFER) ; SB!IMPL::OCTET-COUNT))) ; 'SIMPLE-ERROR 'ERROR) ; ; caught STYLE-WARNING: ; undefined type: CONDITION ; in: DEFUN STDSTREAM-EXTERNAL-FORMAT => DEFAULT-EXTERNAL-FORMAT ; (SB!IMPL::DEFAULT-EXTERNAL-FORMAT) ; ; caught STYLE-WARNING: ; undefined function: DEFAULT-EXTERNAL-FORMAT ; in: DEFUN SET-FD-STREAM-ROUTINES => DEFAULT-EXTERNAL-FORMAT ; (SB!IMPL::DEFAULT-EXTERNAL-FORMAT) ; ; caught STYLE-WARNING: ; undefined function: DEFAULT-EXTERNAL-FORMAT ; in: DEFUN MAKE-FD-STREAM ; (SB!EXT:FINALIZE STREAM ; (LAMBDA () ; (SB!UNIX:UNIX-CLOSE SB!IMPL::FD) ; (FORMAT *TERMINAL-IO* "** closed file descriptor ~W **~%" SB!IMPL::FD)) ; :DONT-SAVE T) ; ; caught STYLE-WARNING: ; undefined function: FINALIZE ; in: DEFUN ALLOC-BUFFER ; (SB!EXT:FINALIZE SB!IMPL::BUFFER ; (LAMBDA () (SB!SYS:DEALLOCATE-SYSTEM-MEMORY SB!IMPL::SAP SB!IMPL::SIZE)) ; :DONT-SAVE T) ; ; caught STYLE-WARNING: ; undefined function: FINALIZE ; in: DEFUN OPEN ; (DEFUN OPEN ; (SB!KERNEL:FILENAME ; &KEY (SB!IMPL::DIRECTION :INPUT) (SB!IMPL::ELEMENT-TYPE 'BASE-CHAR) ; (SB!IMPL::IF-EXISTS NIL SB!IMPL::IF-EXISTS-GIVEN) ; (SB!IMPL::IF-DOES-NOT-EXIST NIL SB!IMPL::IF-DOES-NOT-EXIST-GIVEN) ; (SB!IMPL::EXTERNAL-FORMAT :DEFAULT) ; &AUX (SB!IMPL::DIRECTION SB!IMPL::DIRECTION) ; (SB!IMPL::IF-DOES-NOT-EXIST SB!IMPL::IF-DOES-NOT-EXIST) ; (SB!IMPL::IF-EXISTS SB!IMPL::IF-EXISTS)) ; "Return a stream which reads from or writes to FILENAME. ; Defined keywords: ; :DIRECTION - one of :INPUT, :OUTPUT, :IO, or :PROBE ; :ELEMENT-TYPE - the type of object to read or write, default BASE-CHAR ; :IF-EXISTS - one of :ERROR, :NEW-VERSION, :RENAME, :RENAME-AND-DELETE, ; :OVERWRITE, :APPEND, :SUPERSEDE or NIL ; :IF-DOES-NOT-EXIST - one of :ERROR, :CREATE or NIL ; See the manual for details." ; (MULTIPLE-VALUE-BIND (SB!IMPL::INPUT SB!IMPL::OUTPUT SB!IMPL::MASK) ; (ECASE SB!IMPL::DIRECTION ; (:INPUT (VALUES T NIL SB!UNIX:O_RDONLY)) ; (:OUTPUT (VALUES NIL T SB!UNIX:O_WRONLY)) ; (:IO (VALUES T T SB!UNIX:O_RDWR)) ; (:PROBE (VALUES T NIL SB!UNIX:O_RDONLY))) ; (DECLARE (TYPE SB!INT:INDEX SB!IMPL::MASK)) ; (LET* ((PATHNAME #) (SB!IMPL::PHYSICAL #) (TRUENAME #) (NAMESTRING #)) ; (FLET (#) ; (COND # #) ; (UNLESS SB!IMPL::IF-DOES-NOT-EXIST-GIVEN #) ; (COND # # # # # # # #) ; (LET # ; # ; #))))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; --> LOCALLY SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET ; --> SB!C::%TYPEP-WRAPPER LET OR LET IF OR LET IF OR THE TYPEP LET ; --> SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT33044 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-INVALID ; in: DEFUN EXTERNAL-FORMAT-ENCODING-ERROR ; (STREAMP STREAM) ; --> BLOCK TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT31702 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-INVALID ; in: DEFVAR *AVAILABLE-BUFFERS-LOCK* ; (SB!THREAD:MAKE-MUTEX :NAME "lock for *AVAILABLE-BUFFERS*") ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD:MAKE-MUTEX ; in: DEFUN FILE-NAME ; (SB!EXT:NATIVE-NAMESTRING (SB!INT:PHYSICALIZE-PATHNAME SB!IMPL::NEW-NAME) ; :AS-FILE T) ; ; caught STYLE-WARNING: ; undefined function: NATIVE-NAMESTRING ; in: DEFUN OPEN ; (SB!EXT:NATIVE-NAMESTRING TRUENAME :AS-FILE T) ; ; caught STYLE-WARNING: ; undefined function: NATIVE-NAMESTRING ; in: DEFUN GET-EXTERNAL-FORMAT ; (HANDLER-BIND ((SB!INT:STREAM-DECODING-ERROR ; (LAMBDA (SB!IMPL::C) ; (DECLARE #) ; (INVOKE-RESTART 'SB!IMPL::INPUT-REPLACEMENT ; SB!IMPL::REPLACEMENT))) ; (SB!INT:STREAM-ENCODING-ERROR ; (LAMBDA (SB!IMPL::C) ; (DECLARE #) ; (INVOKE-RESTART 'SB!IMPL::OUTPUT-REPLACEMENT ; SB!IMPL::REPLACEMENT))) ; (SB!IMPL::OCTETS-ENCODING-ERROR ; (LAMBDA (SB!IMPL::C) ; (USE-VALUE SB!IMPL::REPLACEMENT SB!IMPL::C))) ; (SB!IMPL::OCTET-DECODING-ERROR ; (LAMBDA (SB!IMPL::C) ; (USE-VALUE SB!IMPL::REPLACEMENT SB!IMPL::C)))) ; (APPLY SB!IMPL::FUN REST)) ; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK ; ==> ; (TYPEP CONDITION 'SB!IMPL::OCTET-DECODING-ERROR) ; ; caught STYLE-WARNING: ; undefined type: OCTET-DECODING-ERROR ; ==> ; (TYPEP CONDITION 'SB!IMPL::OCTETS-ENCODING-ERROR) ; ; caught STYLE-WARNING: ; undefined type: OCTETS-ENCODING-ERROR ; in: DEFUN STREAM-DECODING-ERROR-AND-HANDLE ; (SB!SYS:SAP-REF-OCTETS (SB!IMPL::BUFFER-SAP SB!IMPL::BUFFER) ; (SB!IMPL::BUFFER-HEAD SB!IMPL::BUFFER) SB!IMPL::OCTET-COUNT) ; ; caught STYLE-WARNING: ; undefined function: SAP-REF-OCTETS ; in: DEFUN C-STRING-DECODING-ERROR ; (SB!SYS:SAP-REF-OCTETS SB!IMPL::SAP SB!IMPL::OFFSET COUNT) ; ; caught STYLE-WARNING: ; undefined function: SAP-REF-OCTETS ; in: DEFUN RELEASE-FD-STREAM-RESOURCES ; (HANDLER-CASE ; (SB!SYS:WITHOUT-INTERRUPTS ; (WHEN (SB!IMPL::FD-STREAM-HANDLER SB!SYS:FD-STREAM) ; (SB!SYS:REMOVE-FD-HANDLER (SB!IMPL::FD-STREAM-HANDLER SB!SYS:FD-STREAM)) ; (SETF # NIL)) ; (SB!UNIX:UNIX-CLOSE (SB!SYS:FD-STREAM-FD SB!SYS:FD-STREAM)) ; (SB!IMPL::SET-CLOSED-FLAME SB!SYS:FD-STREAM) ; (SB!EXT:CANCEL-FINALIZATION SB!SYS:FD-STREAM)) ; (SERIOUS-CONDITION (SB!IMPL::E) (ERROR SB!IMPL::E))) ; --> SB!INT:DX-FLET FLET BLOCK SB!INT:DX-LET LET TAGBODY ; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK ; ==> ; (TYPEP CONDITION 'SERIOUS-CONDITION) ; ; caught STYLE-WARNING: ; undefined type: SERIOUS-CONDITION ; in: DEFUN GET-EXTERNAL-FORMAT ; (HANDLER-BIND ((SB!INT:STREAM-DECODING-ERROR ; (LAMBDA (SB!IMPL::C) ; (DECLARE #) ; (INVOKE-RESTART 'SB!IMPL::INPUT-REPLACEMENT ; SB!IMPL::REPLACEMENT))) ; (SB!INT:STREAM-ENCODING-ERROR ; (LAMBDA (SB!IMPL::C) ; (DECLARE #) ; (INVOKE-RESTART 'SB!IMPL::OUTPUT-REPLACEMENT ; SB!IMPL::REPLACEMENT))) ; (SB!IMPL::OCTETS-ENCODING-ERROR ; (LAMBDA (SB!IMPL::C) ; (USE-VALUE SB!IMPL::REPLACEMENT SB!IMPL::C))) ; (SB!IMPL::OCTET-DECODING-ERROR ; (LAMBDA (SB!IMPL::C) ; (USE-VALUE SB!IMPL::REPLACEMENT SB!IMPL::C)))) ; (APPLY SB!IMPL::FUN REST)) ; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK ; ==> ; (TYPEP CONDITION 'SB!INT:STREAM-DECODING-ERROR) ; ; caught STYLE-WARNING: ; undefined type: STREAM-DECODING-ERROR ; ==> ; (TYPEP CONDITION 'SB!INT:STREAM-ENCODING-ERROR) ; ; caught STYLE-WARNING: ; undefined type: STREAM-ENCODING-ERROR ; in: DEFUN OPEN ; (DEFUN OPEN ; (SB!KERNEL:FILENAME ; &KEY (SB!IMPL::DIRECTION :INPUT) (SB!IMPL::ELEMENT-TYPE 'BASE-CHAR) ; (SB!IMPL::IF-EXISTS NIL SB!IMPL::IF-EXISTS-GIVEN) ; (SB!IMPL::IF-DOES-NOT-EXIST NIL SB!IMPL::IF-DOES-NOT-EXIST-GIVEN) ; (SB!IMPL::EXTERNAL-FORMAT :DEFAULT) ; &AUX (SB!IMPL::DIRECTION SB!IMPL::DIRECTION) ; (SB!IMPL::IF-DOES-NOT-EXIST SB!IMPL::IF-DOES-NOT-EXIST) ; (SB!IMPL::IF-EXISTS SB!IMPL::IF-EXISTS)) ; "Return a stream which reads from or writes to FILENAME. ; Defined keywords: ; :DIRECTION - one of :INPUT, :OUTPUT, :IO, or :PROBE ; :ELEMENT-TYPE - the type of object to read or write, default BASE-CHAR ; :IF-EXISTS - one of :ERROR, :NEW-VERSION, :RENAME, :RENAME-AND-DELETE, ; :OVERWRITE, :APPEND, :SUPERSEDE or NIL ; :IF-DOES-NOT-EXIST - one of :ERROR, :CREATE or NIL ; See the manual for details." ; (MULTIPLE-VALUE-BIND (SB!IMPL::INPUT SB!IMPL::OUTPUT SB!IMPL::MASK) ; (ECASE SB!IMPL::DIRECTION ; (:INPUT (VALUES T NIL SB!UNIX:O_RDONLY)) ; (:OUTPUT (VALUES NIL T SB!UNIX:O_WRONLY)) ; (:IO (VALUES T T SB!UNIX:O_RDWR)) ; (:PROBE (VALUES T NIL SB!UNIX:O_RDONLY))) ; (DECLARE (TYPE SB!INT:INDEX SB!IMPL::MASK)) ; (LET* ((PATHNAME #) (SB!IMPL::PHYSICAL #) (TRUENAME #) (NAMESTRING #)) ; (FLET (#) ; (COND # #) ; (UNLESS SB!IMPL::IF-DOES-NOT-EXIST-GIVEN #) ; (COND # # # # # # # #) ; (LET # ; # ; #))))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; --> LOCALLY SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET ; --> SB!C::%TYPEP-WRAPPER LET OR LET IF OR LET IF OR THE TYPEP LET ; --> SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT33044 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: UPDATE-OBJECT-LAYOUT-OR-INVALID ; in: DEFUN EXTERNAL-FORMAT-ENCODING-ERROR ; (STREAMP STREAM) ; --> BLOCK TYPEP LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT31702 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: UPDATE-OBJECT-LAYOUT-OR-INVALID ; ; compilation unit finished ; Undefined types: ; CODE-DELETION-NOTE COMPILER-NOTE CONDITION OCTET-DECODING-ERROR OCTETS-ENCODING-ERROR SERIOUS-CONDITION STREAM-DECODING-ERROR STREAM-ENCODING-ERROR ; Undefined functions: ; %DEFGLOBAL %FUNCALLABLE-INSTANCE-LAYOUT SB!KERNEL::%TARGET-DEFSTRUCT (SETF COMPILER-MACRO-FUNCTION) SB!THREAD::CALL-WITH-SYSTEM-MUTEX CANCEL-FINALIZATION DEFAULT-EXTERNAL-FORMAT FINALIZE LAYOUT-INVALID SB!THREAD:MAKE-MUTEX NATIVE-NAMESTRING SAP-REF-OCTETS UPDATE-OBJECT-LAYOUT-OR-INVALID ; caught 43 STYLE-WARNING conditions ; printed 1 note ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/fd-stream.lisp-obj-tmp written ; compilation finished in 0:00:02.159 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/module.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFVAR *MODULES* ...) ; x-compiling (DEFVAR *MODULE-PROVIDER-FUNCTIONS* ...) ; x-compiling (DEFUN PROVIDE ...) ; x-compiling (DEFVAR *REQUIRING* ...) ; x-compiling (DEFUN REQUIRE-ERROR ...) ; x-compiling (DEFUN REQUIRE ...) ; x-compiling (DEFUN MODULE-PROVIDE-CONTRIB ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/module.lisp ; in: DEFUN REQUIRE ; (DEFUN REQUIRE (SB!IMPL::MODULE-NAME &OPTIONAL SB!IMPL::PATHNAMES) ; "Loads a module, unless it already has been loaded. PATHNAMES, if supplied, ; is a designator for a list of pathnames to be loaded if the module ; needs to be. If PATHNAMES is not supplied, functions from the list ; *MODULE-PROVIDER-FUNCTIONS* are called in order with MODULE-NAME ; as an argument, until one of them returns non-NIL. User code is ; responsible for calling PROVIDE to indicate a successful load of the ; module." ; (LET ((SB!IMPL::NAME (STRING SB!IMPL::MODULE-NAME))) ; (WHEN (MEMBER SB!IMPL::NAME SB!IMPL::*REQUIRING* :TEST #'STRING=) ; (SB!IMPL::REQUIRE-ERROR ; "~@" ; 'REQUIRE SB!IMPL::MODULE-NAME)) ; (LET ((SB!IMPL::SAVED-MODULES #) (SB!IMPL::*REQUIRING* #)) ; (UNLESS (MEMBER SB!IMPL::NAME *MODULES* :TEST #'STRING=) (COND # #)) ; (SET-DIFFERENCE *MODULES* SB!IMPL::SAVED-MODULES)))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!IMPL::MODULE-NAME SB!IMPL::PATHNAMES) {E4EF1C9}> ; SB!IMPL::MODULE-NAME 'NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN REQUIRE-ERROR ; (DEFUN SB!IMPL::REQUIRE-ERROR (SB!IMPL::CONTROL &REST SB!IMPL::ARGUMENTS) ; (ERROR 'SB!INT:EXTENSION-FAILURE :FORMAT-CONTROL SB!IMPL::CONTROL ; :FORMAT-ARGUMENTS SB!IMPL::ARGUMENTS :REFERENCES ; (LIST '(:SBCL :VARIABLE SB!EXT:*MODULE-PROVIDER-FUNCTIONS*) ; '(:SBCL :FUNCTION REQUIRE)))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!IMPL::CONTROL SB!IMPL::ARGUMENTS #:REST-CONTEXT-21 ; #:REST-COUNT-22) ; {E4C0309}> ; SB!IMPL::CONTROL NIL NIL 0)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN PROVIDE ; (PUSHNEW (STRING SB!IMPL::MODULE-NAME) *MODULES* :TEST #'STRING=) ; --> LET* ; ==> ; (ADJOIN #:G33144 *MODULES* :TEST #'STRING=) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 5 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/module.lisp ; in: DEFUN MODULE-PROVIDE-CONTRIB ; (HANDLER-BIND (((OR STYLE-WARNING SB!INT:PACKAGE-AT-VARIANCE) ; #'MUFFLE-WARNING)) ; (LOAD SB!IMPL::FILE)) ; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK ; ==> ; (TYPEP CONDITION '(OR STYLE-WARNING SB!INT:PACKAGE-AT-VARIANCE)) ; ; caught STYLE-WARNING: ; undefined type: PACKAGE-AT-VARIANCE ; (SB!INT:SBCL-HOMEDIR-PATHNAME) ; ; caught STYLE-WARNING: ; undefined function: SBCL-HOMEDIR-PATHNAME ; (HANDLER-BIND (((OR STYLE-WARNING SB!INT:PACKAGE-AT-VARIANCE) ; #'MUFFLE-WARNING)) ; (LOAD SB!IMPL::FILE)) ; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK ; ==> ; (TYPEP CONDITION '(OR STYLE-WARNING SB!INT:PACKAGE-AT-VARIANCE)) ; ; caught STYLE-WARNING: ; undefined type: STYLE-WARNING ; ; compilation unit finished ; Undefined types: ; CODE-DELETION-NOTE PACKAGE-AT-VARIANCE STYLE-WARNING ; Undefined function: ; SBCL-HOMEDIR-PATHNAME ; caught 7 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/module.lisp-obj-tmp written ; compilation finished in 0:00:00.037 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/interr.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (DEFVAR *INTERNAL-ERRORS* ...) ; x-compiling (STRING (QUOTE UNKNOWN-ERROR)) ; x-compiling (DEFERR UNDEFINED-FUN-ERROR ...) ; x-compiling (DEFUN UNDEFINED-ALIEN-FUN-ERROR ...) ; x-compiling (DEFERR INVALID-ARG-COUNT-ERROR ...) ; x-compiling (DEFERR BOGUS-ARG-TO-VALUES-LIST-ERROR ...) ; x-compiling (DEFERR UNBOUND-SYMBOL-ERROR ...) ; x-compiling (DEFERR INVALID-UNWIND-ERROR ...) ; x-compiling (DEFERR UNSEEN-THROW-TAG-ERROR ...) ; x-compiling (DEFERR NIL-FUN-RETURNED-ERROR ...) ; x-compiling (DEFERR NIL-ARRAY-ACCESSED-ERROR ...) ; x-compiling (DEFERR DIVISION-BY-ZERO-ERROR ...) ; x-compiling (DEFERR OBJECT-NOT-TYPE-ERROR ...) ; x-compiling (DEFERR LAYOUT-INVALID-ERROR ...) ; x-compiling (DEFERR ODD-KEY-ARGS-ERROR ...) ; x-compiling (DEFERR UNKNOWN-KEY-ARG-ERROR ...) ; x-compiling (DEFERR INVALID-ARRAY-INDEX-ERROR ...) ; x-compiling (DEFERR TLS-EXHAUSTED-ERROR ...) ; x-compiling (DEFVAR *FINDING-NAME* ...) ; x-compiling (DEFUN FIND-CALLER-NAME-AND-FRAME ...) ; x-compiling (DEFUN FIND-INTERRUPTED-NAME-AND-FRAME ...) ; x-compiling (DEFUN FIND-CALLER-OF-NAMED-FRAME ...) ; x-compiling (DEFUN INTERNAL-ERROR-ARGS-OK ...) ; x-compiling (DEFVAR *CURRENT-INTERNAL-ERROR* ...) ; x-compiling (DEFVAR *INTERR-CURRENT-BSP* ...) ; x-compiling (DEFUN INTERNAL-ERROR ...) /entering WITH-ALIEN BINDINGS=((SB!VM::CONTEXT-REGISTER-ADDR (FUNCTION (* UNSIGNED-INT) (* OS-CONTEXT-T) INT) :EXTERN "os_context_register_addr")) /BINDING=(SB!VM::CONTEXT-REGISTER-ADDR (FUNCTION (* UNSIGNED-INT) (* OS-CONTEXT-T) INT) :EXTERN "os_context_register_addr") /SYMBOL=SB!VM::CONTEXT-REGISTER-ADDR TYPE=(FUNCTION (* UNSIGNED-INT) (* OS-CONTEXT-T) INT) OPT1=:EXTERN OPT2="os_context_register_addr" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="os_context_register_addr" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((SB!VM::CONTEXT-REGISTER-ADDR #)) (VALUES (ALIEN-FUNCALL SB!VM::CONTEXT-REGISTER-ADDR SB!VM::CONTEXT INDEX)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning /entering WITH-ALIEN BINDINGS=((SB!VM::CONTEXT-PC-ADDR (FUNCTION (* UNSIGNED-INT) (* OS-CONTEXT-T)) :EXTERN "os_context_pc_addr")) /BINDING=(SB!VM::CONTEXT-PC-ADDR (FUNCTION (* UNSIGNED-INT) (* OS-CONTEXT-T)) :EXTERN "os_context_pc_addr") /SYMBOL=SB!VM::CONTEXT-PC-ADDR TYPE=(FUNCTION (* UNSIGNED-INT) (* OS-CONTEXT-T)) OPT1=:EXTERN OPT2="os_context_pc_addr" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="os_context_pc_addr" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((SB!VM::CONTEXT-PC-ADDR #)) (VALUES (ALIEN-FUNCALL SB!VM::CONTEXT-PC-ADDR SB!VM::CONTEXT)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning /entering WITH-ALIEN BINDINGS=((SB!VM::CONTEXT-REGISTER-ADDR (FUNCTION (* UNSIGNED-INT) (* OS-CONTEXT-T) INT) :EXTERN "os_context_register_addr")) /BINDING=(SB!VM::CONTEXT-REGISTER-ADDR (FUNCTION (* UNSIGNED-INT) (* OS-CONTEXT-T) INT) :EXTERN "os_context_register_addr") /SYMBOL=SB!VM::CONTEXT-REGISTER-ADDR TYPE=(FUNCTION (* UNSIGNED-INT) (* OS-CONTEXT-T) INT) OPT1=:EXTERN OPT2="os_context_register_addr" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="os_context_register_addr" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((SB!VM::CONTEXT-REGISTER-ADDR #)) (VALUES (ALIEN-FUNCALL SB!VM::CONTEXT-REGISTER-ADDR SB!VM::CONTEXT INDEX)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/interr.lisp ; in: DEFUN INTERNAL-ERROR ; (SB!VM:CONTEXT-PC SB!KERNEL::ALIEN-CONTEXT) ; --> BLOCK LET SB!VM::CONTEXT-PC-ADDR BLOCK SB!ALIEN:WITH-ALIEN ; --> SYMBOL-MACROLET SYMBOL-MACROLET LET SYMBOL-MACROLET VALUES PROG1 LET ; --> SB!ALIEN:ALIEN-FUNCALL SB!ALIEN-INTERNALS:INVOKE-WITH-SAVED-FP-AND-PC ; --> LAMBDA FUNCTION SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; (SB!VM:CONTEXT-REGISTER SB!KERNEL::ALIEN-CONTEXT SB!VM::CFP-OFFSET) ; --> BLOCK LET SB!VM::CONTEXT-REGISTER-ADDR BLOCK SB!ALIEN:WITH-ALIEN ; --> SYMBOL-MACROLET SYMBOL-MACROLET LET SYMBOL-MACROLET VALUES PROG1 LET ; --> SB!ALIEN:ALIEN-FUNCALL SB!ALIEN-INTERNALS:INVOKE-WITH-SAVED-FP-AND-PC ; --> LAMBDA FUNCTION SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; x-compiling (DEFUN CONTROL-STACK-EXHAUSTED-ERROR ...) ; x-compiling (DEFUN BINDING-STACK-EXHAUSTED-ERROR ...) ; x-compiling (DEFUN ALIEN-STACK-EXHAUSTED-ERROR ...) ; x-compiling (DEFVAR *HEAP-EXHAUSTED-ERROR-CONDITION*) ; x-compiling (DEFVAR *HEAP-EXHAUSTED-ERROR-AVAILABLE-BYTES*) ; x-compiling (DEFVAR *HEAP-EXHAUSTED-ERROR-REQUESTED-BYTES*) ; x-compiling (DEFUN HEAP-EXHAUSTED-ERROR ...) ; x-compiling (DEFUN UNDEFINED-ALIEN-VARIABLE-ERROR ...) ; x-compiling (DEFINE-ALIEN-VARIABLE CURRENT-MEMORY-FAULT-ADDRESS ...) ; x-compiling (DEFUN MEMORY-FAULT-ERROR ...) ; x-compiling (DEFUN UNHANDLED-TRAP-ERROR ...) /entering WITH-ALIEN BINDINGS=((SB!VM::CONTEXT-PC-ADDR (FUNCTION (* UNSIGNED-INT) (* OS-CONTEXT-T)) :EXTERN "os_context_pc_addr")) /BINDING=(SB!VM::CONTEXT-PC-ADDR (FUNCTION (* UNSIGNED-INT) (* OS-CONTEXT-T)) :EXTERN "os_context_pc_addr") /SYMBOL=SB!VM::CONTEXT-PC-ADDR TYPE=(FUNCTION (* UNSIGNED-INT) (* OS-CONTEXT-T)) OPT1=:EXTERN OPT2="os_context_pc_addr" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="os_context_pc_addr" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((SB!VM::CONTEXT-PC-ADDR #)) (VALUES (ALIEN-FUNCALL SB!VM::CONTEXT-PC-ADDR SB!VM::CONTEXT)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/interr.lisp ; in: DEFUN UNHANDLED-TRAP-ERROR ; (SB!ALIEN:SAP-ALIEN SB!KERNEL::CONTEXT-SAP (* SB!SYS:OS-CONTEXT-T)) ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!KERNEL::CONTEXT-SAP ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; (SB!VM:CONTEXT-PC SB!KERNEL::CONTEXT) ; --> BLOCK LET SB!VM::CONTEXT-PC-ADDR BLOCK SB!ALIEN:WITH-ALIEN ; --> SYMBOL-MACROLET SYMBOL-MACROLET LET SYMBOL-MACROLET VALUES PROG1 LET ; --> SB!ALIEN:ALIEN-FUNCALL SB!ALIEN-INTERNALS:INVOKE-WITH-SAVED-FP-AND-PC ; --> LAMBDA FUNCTION SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; in: DEFUN INTERNAL-ERROR ; (MULTIPLE-VALUE-BIND (SB!KERNEL::NAME SB!DEBUG:*STACK-TOP-HINT*) ; (SB!KERNEL:FIND-INTERRUPTED-NAME-AND-FRAME) ; (SB!INT:/SHOW0 "back from FIND-INTERRUPTED-NAME") ; (LET ((SB!KERNEL::*CURRENT-INTERNAL-ERROR* SB!KERNEL::ERROR-NUMBER) ; (SB!KERNEL::FP (SB!SYS:INT-SAP #)) ; (SB!KERNEL::HANDLER (AND # #))) ; (COND ; ((AND # #) ; (MACROLET # ; #)) ; ((TYPEP SB!KERNEL::HANDLER '#) ; (ERROR 'TYPE-ERROR :DATUM # :EXPECTED-TYPE SB!KERNEL::HANDLER)) ; ((EQL SB!KERNEL::HANDLER 0) ; (ERROR 'SIMPLE-ERROR :FORMAT-CONTROL ; "unknown internal error, ~D, args=~S" :FORMAT-ARGUMENTS #)) ; (T ; (ERROR 'SIMPLE-ERROR :FORMAT-CONTROL "internal error ~D: ~A; args=~S" ; :FORMAT-ARGUMENTS #))))) ; --> MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!KERNEL::NAME SB!DEBUG:*STACK-TOP-HINT* #:G135) {C41F5C9}> ; SB!KERNEL::NAME SB!DEBUG:*STACK-TOP-HINT* NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN INTERNAL-ERROR-ARGS-OK ; (MULTIPLE-VALUE-BIND (SB!KERNEL::REQ SB!KERNEL::OPT) ; (SB!INT:PARSE-LAMBDA-LIST ; (SB!KERNEL:%SIMPLE-FUN-ARGLIST SB!KERNEL::HANDLER) :SILENT T) ; (LET ((SB!KERNEL::N (1+ #)) ; (SB!KERNEL::N-REQ (LENGTH SB!KERNEL::REQ)) ; (SB!KERNEL::N-OPT (LENGTH SB!KERNEL::OPT))) ; (AND (>= SB!KERNEL::N SB!KERNEL::N-REQ) ; (<= SB!KERNEL::N (+ SB!KERNEL::N-REQ SB!KERNEL::N-OPT))))) ; --> MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!KERNEL::REQ SB!KERNEL::OPT #:G129) {C3A9EA1}> ; SB!KERNEL::REQ SB!KERNEL::OPT NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFERR INVALID-ARG-COUNT-ERROR ; (SB!KERNEL::DEFERR SB!KERNEL:INVALID-ARG-COUNT-ERROR ; (SB!KERNEL::NARGS &OPTIONAL (SB!KERNEL::FNAME NIL SB!KERNEL::FNAMEP)) ; (IF SB!KERNEL::FNAMEP ; (ERROR 'SB!INT:SIMPLE-PROGRAM-ERROR :FORMAT-CONTROL ; "~S called with invalid number of arguments: ~S" ; :FORMAT-ARGUMENTS (LIST SB!KERNEL::FNAME SB!KERNEL::NARGS)) ; (ERROR 'SB!INT:SIMPLE-PROGRAM-ERROR :FORMAT-CONTROL ; "invalid number of arguments: ~S" :FORMAT-ARGUMENTS ; (LIST SB!KERNEL::NARGS)))) ; --> PROGN SETF SB!KERNEL:%SVSET SB!KERNEL:%SVSET LET SB!EXT:TRULY-THE ; --> SB!KERNEL:DATA-VECTOR-SET SB!KERNEL:DATA-VECTOR-SET-WITH-OFFSET THE ; --> LAMBDA FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!KERNEL::NAME SB!KERNEL::NARGS SB!KERNEL::FNAME ; SB!KERNEL::FNAMEP) ; {E7BBC61}> ; SB!KERNEL::NAME SB!KERNEL::NARGS SB!KERNEL::FNAME T)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 1 more use of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/interr.lisp ; in: DEFUN FIND-INTERRUPTED-NAME-AND-FRAME ; (SB!DI::COMPILED-FRAME-ESCAPED SB!KERNEL::FRAME) ; ; caught STYLE-WARNING: ; undefined function: SB!DI::COMPILED-FRAME-ESCAPED ; in: DEFUN FIND-CALLER-OF-NAMED-FRAME ; (SB!DI::COMPILED-FRAME-P SB!KERNEL::FRAME) ; ; caught STYLE-WARNING: ; undefined function: SB!DI::COMPILED-FRAME-P ; in: DEFUN FIND-INTERRUPTED-NAME-AND-FRAME ; (SB!DI::COMPILED-FRAME-P SB!KERNEL::FRAME) ; ; caught STYLE-WARNING: ; undefined function: SB!DI::COMPILED-FRAME-P ; in: DEFUN INTERNAL-ERROR ; (SB!VM:CONTEXT-PC SB!KERNEL::ALIEN-CONTEXT) ; --> BLOCK LET SB!VM::CONTEXT-PC-ADDR BLOCK SB!ALIEN:WITH-ALIEN ; --> SYMBOL-MACROLET SYMBOL-MACROLET LET SYMBOL-MACROLET VALUES PROG1 LET ; ==> ; (SB!ALIEN:ALIEN-FUNCALL SB!VM::CONTEXT-PC-ADDR SB!VM::CONTEXT) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; (MAPCAR ; (LAMBDA (SB!KERNEL::SC-OFFSET) ; (SB!DI::SUB-ACCESS-DEBUG-VAR-SLOT SB!KERNEL::FP SB!KERNEL::SC-OFFSET ; SB!KERNEL::ALIEN-CONTEXT)) ; SB!KERNEL::ARGUMENTS) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; ; caught STYLE-WARNING: ; 3 more uses of undefined type COMPILER-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/interr.lisp ; in: DEFUN FIND-CALLER-OF-NAMED-FRAME ; (HANDLER-CASE ; (LET ((SB!KERNEL::*FINDING-NAME* T)) ; (DO ((SB!KERNEL::FRAME # #)) ; ((NULL SB!KERNEL::FRAME)) ; (WHEN (AND # #) ; (LET # ; # ; #)))) ; ((OR ERROR SB!DI:DEBUG-CONDITION) NIL NIL) (SB!DI:DEBUG-CONDITION NIL NIL)) ; --> SB!INT:DX-FLET FLET BLOCK SB!INT:DX-LET LET TAGBODY ; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK ; ==> ; (TYPEP CONDITION '(OR ERROR SB!DI:DEBUG-CONDITION)) ; ; caught STYLE-WARNING: ; undefined type: SB!DI:DEBUG-CONDITION ; in: DEFUN FIND-INTERRUPTED-NAME-AND-FRAME ; (HANDLER-CASE ; (LET ((SB!KERNEL::*FINDING-NAME* T)) ; (SB!INT:/SHOW0 "in ordinary case") ; (DO ((SB!KERNEL::FRAME # #)) ; ((NULL SB!KERNEL::FRAME) ; (SB!INT:/SHOW0 "null frame") ; (VALUES "" NIL)) ; (SB!INT:/NOSHOW0 "at head of DO loop") ; (WHEN (AND # #) ; (SB!DI:FLUSH-FRAMES-ABOVE SB!KERNEL::FRAME) ; (SB!INT:/SHOW0 "returning from within DO loop") ; (RETURN #)))) ; (ERROR NIL (SB!INT:/SHOW0 "trapped ERROR") ; (VALUES "" NIL)) ; (SB!DI:DEBUG-CONDITION NIL (SB!INT:/SHOW0 "trapped DEBUG-CONDITION") ; (VALUES "" NIL))) ; --> SB!INT:DX-FLET FLET BLOCK SB!INT:DX-LET LET TAGBODY ; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK ; ==> ; (TYPEP CONDITION 'SB!DI:DEBUG-CONDITION) ; ; caught STYLE-WARNING: ; undefined type: SB!DI:DEBUG-CONDITION ; in: DEFUN FIND-CALLER-NAME-AND-FRAME ; (HANDLER-CASE ; (LET* ((SB!KERNEL::*FINDING-NAME* T) ; (SB!KERNEL::FRAME (SB!DI:FRAME-DOWN #)) ; (SB!KERNEL::NAME (SB!DI:DEBUG-FUN-NAME #))) ; (SB!DI:FLUSH-FRAMES-ABOVE SB!KERNEL::FRAME) ; (VALUES SB!KERNEL::NAME SB!KERNEL::FRAME)) ; (ERROR NIL (VALUES "" NIL)) ; (SB!DI:DEBUG-CONDITION NIL ; (VALUES "" NIL))) ; --> SB!INT:DX-FLET FLET BLOCK SB!INT:DX-LET LET TAGBODY ; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK ; ==> ; (TYPEP CONDITION 'SB!DI:DEBUG-CONDITION) ; ; caught STYLE-WARNING: ; undefined type: SB!DI:DEBUG-CONDITION ; in: DEFUN FIND-CALLER-OF-NAMED-FRAME ; (SB!DI:DEBUG-FUN-NAME (SB!DI:FRAME-DEBUG-FUN SB!KERNEL::FRAME)) ; ; caught STYLE-WARNING: ; undefined function: SB!DI:DEBUG-FUN-NAME ; in: DEFUN FIND-INTERRUPTED-NAME-AND-FRAME ; (SB!DI:DEBUG-FUN-NAME (SB!DI:FRAME-DEBUG-FUN SB!KERNEL::FRAME)) ; ; caught STYLE-WARNING: ; undefined function: SB!DI:DEBUG-FUN-NAME ; in: DEFUN FIND-CALLER-NAME-AND-FRAME ; (SB!DI:DEBUG-FUN-NAME (SB!DI:FRAME-DEBUG-FUN SB!KERNEL::FRAME)) ; ; caught STYLE-WARNING: ; undefined function: SB!DI:DEBUG-FUN-NAME ; in: DEFUN FIND-CALLER-OF-NAMED-FRAME ; (HANDLER-CASE ; (LET ((SB!KERNEL::*FINDING-NAME* T)) ; (DO ((SB!KERNEL::FRAME # #)) ; ((NULL SB!KERNEL::FRAME)) ; (WHEN (AND # #) ; (LET # ; # ; #)))) ; ((OR ERROR SB!DI:DEBUG-CONDITION) NIL NIL) (SB!DI:DEBUG-CONDITION NIL NIL)) ; --> SB!INT:DX-FLET FLET BLOCK SB!INT:DX-LET LET TAGBODY ; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK ; ==> ; (TYPEP CONDITION '(OR ERROR SB!DI:DEBUG-CONDITION)) ; ; caught STYLE-WARNING: ; undefined type: ERROR ; in: DEFUN FIND-INTERRUPTED-NAME-AND-FRAME ; (HANDLER-CASE ; (LET ((SB!KERNEL::*FINDING-NAME* T)) ; (SB!INT:/SHOW0 "in ordinary case") ; (DO ((SB!KERNEL::FRAME # #)) ; ((NULL SB!KERNEL::FRAME) ; (SB!INT:/SHOW0 "null frame") ; (VALUES "" NIL)) ; (SB!INT:/NOSHOW0 "at head of DO loop") ; (WHEN (AND # #) ; (SB!DI:FLUSH-FRAMES-ABOVE SB!KERNEL::FRAME) ; (SB!INT:/SHOW0 "returning from within DO loop") ; (RETURN #)))) ; (ERROR NIL (SB!INT:/SHOW0 "trapped ERROR") ; (VALUES "" NIL)) ; (SB!DI:DEBUG-CONDITION NIL (SB!INT:/SHOW0 "trapped DEBUG-CONDITION") ; (VALUES "" NIL))) ; --> SB!INT:DX-FLET FLET BLOCK SB!INT:DX-LET LET TAGBODY ; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK ; ==> ; (TYPEP CONDITION 'ERROR) ; ; caught STYLE-WARNING: ; undefined type: ERROR ; in: DEFUN FIND-CALLER-NAME-AND-FRAME ; (HANDLER-CASE ; (LET* ((SB!KERNEL::*FINDING-NAME* T) ; (SB!KERNEL::FRAME (SB!DI:FRAME-DOWN #)) ; (SB!KERNEL::NAME (SB!DI:DEBUG-FUN-NAME #))) ; (SB!DI:FLUSH-FRAMES-ABOVE SB!KERNEL::FRAME) ; (VALUES SB!KERNEL::NAME SB!KERNEL::FRAME)) ; (ERROR NIL (VALUES "" NIL)) ; (SB!DI:DEBUG-CONDITION NIL ; (VALUES "" NIL))) ; --> SB!INT:DX-FLET FLET BLOCK SB!INT:DX-LET LET TAGBODY ; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK ; ==> ; (TYPEP CONDITION 'ERROR) ; ; caught STYLE-WARNING: ; undefined type: ERROR ; in: DEFUN FIND-CALLER-OF-NAMED-FRAME ; (SB!DI:FLUSH-FRAMES-ABOVE SB!KERNEL::CALLER) ; ; caught STYLE-WARNING: ; undefined function: SB!DI:FLUSH-FRAMES-ABOVE ; in: DEFUN FIND-INTERRUPTED-NAME-AND-FRAME ; (SB!DI:FLUSH-FRAMES-ABOVE SB!KERNEL::FRAME) ; ; caught STYLE-WARNING: ; undefined function: SB!DI:FLUSH-FRAMES-ABOVE ; in: DEFUN FIND-CALLER-NAME-AND-FRAME ; (SB!DI:FLUSH-FRAMES-ABOVE SB!KERNEL::FRAME) ; ; caught STYLE-WARNING: ; undefined function: SB!DI:FLUSH-FRAMES-ABOVE ; in: DEFUN FIND-CALLER-OF-NAMED-FRAME ; (SB!DI:FRAME-DEBUG-FUN SB!KERNEL::FRAME) ; ; caught STYLE-WARNING: ; undefined function: SB!DI:FRAME-DEBUG-FUN ; in: DEFUN FIND-INTERRUPTED-NAME-AND-FRAME ; (SB!DI:FRAME-DEBUG-FUN SB!KERNEL::FRAME) ; ; caught STYLE-WARNING: ; undefined function: SB!DI:FRAME-DEBUG-FUN ; in: DEFUN FIND-CALLER-NAME-AND-FRAME ; (SB!DI:FRAME-DEBUG-FUN SB!KERNEL::FRAME) ; ; caught STYLE-WARNING: ; undefined function: SB!DI:FRAME-DEBUG-FUN ; in: DEFUN FIND-CALLER-OF-NAMED-FRAME ; (SB!DI:FRAME-DOWN SB!KERNEL::FRAME) ; ; caught STYLE-WARNING: ; undefined function: SB!DI:FRAME-DOWN ; in: DEFUN FIND-INTERRUPTED-NAME-AND-FRAME ; (SB!DI:FRAME-DOWN SB!KERNEL::FRAME) ; ; caught STYLE-WARNING: ; undefined function: SB!DI:FRAME-DOWN ; in: DEFUN FIND-CALLER-NAME-AND-FRAME ; (SB!DI:FRAME-DOWN (SB!DI:FRAME-DOWN (SB!DI:TOP-FRAME))) ; ; caught STYLE-WARNING: ; undefined function: SB!DI:FRAME-DOWN ; in: DEFUN INTERNAL-ERROR ; (SB!INT:/HEXSTR SB!KERNEL::CONTEXT) ; --> SB!SYS:%PRIMITIVE SB!C::%%PRIMITIVE ; ==> ; (SB!INT:HEXSTR SB!KERNEL::CONTEXT) ; ; caught STYLE-WARNING: ; undefined function: HEXSTR ; in: DEFERR LAYOUT-INVALID-ERROR ; (SB!KERNEL:LAYOUT-CLASSOID SB!KERNEL:LAYOUT) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-CLASSOID ; in: DEFERR OBJECT-NOT-TYPE-ERROR ; (SB!KERNEL:LAYOUT-INVALID (SB!KERNEL:%INSTANCE-LAYOUT SB!KERNEL::OBJECT)) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-INVALID ; in: DEFUN INTERNAL-ERROR-ARGS-OK ; (SB!INT:PARSE-LAMBDA-LIST (SB!KERNEL:%SIMPLE-FUN-ARGLIST SB!KERNEL::HANDLER) ; :SILENT T) ; ; caught STYLE-WARNING: ; undefined function: PARSE-LAMBDA-LIST ; in: DEFUN BINDING-STACK-EXHAUSTED-ERROR ; (SB!KERNEL:INFINITE-ERROR-PROTECT ; (FORMAT *ERROR-OUTPUT* ; "Binding stack guard page temporarily disabled: proceed with caution~%") ; (ERROR 'SB!KERNEL::BINDING-STACK-EXHAUSTED)) ; --> UNLESS IF PROGN LET ; ==> ; (SB!DEBUG:PRINT-BACKTRACE :COUNT 8) ; ; caught STYLE-WARNING: ; undefined function: SB!DEBUG:PRINT-BACKTRACE ; in: DEFUN CONTROL-STACK-EXHAUSTED-ERROR ; (SB!KERNEL:INFINITE-ERROR-PROTECT ; (FORMAT *ERROR-OUTPUT* ; "Control stack guard page temporarily disabled: proceed with caution~%") ; (ERROR 'SB!KERNEL::CONTROL-STACK-EXHAUSTED)) ; --> UNLESS IF PROGN LET ; ==> ; (SB!DEBUG:PRINT-BACKTRACE :COUNT 8) ; ; caught STYLE-WARNING: ; undefined function: SB!DEBUG:PRINT-BACKTRACE ; in: DEFUN INTERNAL-ERROR ; (SB!KERNEL:INFINITE-ERROR-PROTECT ; (SB!INT:/SHOW0 "about to bind ALIEN-CONTEXT") ; (LET* ((SB!KERNEL::ALIEN-CONTEXT (LOCALLY # #)) ; (SB!ALIEN-INTERNALS:*SAVED-FP-AND-PCS* (CONS # #))) ; (DECLARE ; (SB!INT:TRULY-DYNAMIC-EXTENT SB!ALIEN-INTERNALS:*SAVED-FP-AND-PCS*)) ; (SB!INT:/SHOW0 "about to bind ERROR-NUMBER and ARGUMENTS") ; (MULTIPLE-VALUE-BIND (SB!KERNEL::ERROR-NUMBER SB!KERNEL::ARGUMENTS) ; (SB!VM:INTERNAL-ERROR-ARGS SB!KERNEL::ALIEN-CONTEXT) ; (SB!INT:/SHOW0 "back from INTERNAL-ERROR-ARGS, ERROR-NUMBER=..") ; (SB!INT:/HEXSTR SB!KERNEL::ERROR-NUMBER) ; (SB!INT:/SHOW0 "cold/low ARGUMENTS=..") ; (SB!INT:/HEXSTR SB!KERNEL::ARGUMENTS) ; (UNLESS SB!KERNEL:*COLD-INIT-COMPLETE-P* ; (SB!SYS:%PRIMITIVE PRINT ; "can't recover from error in cold init, halting") ; (SB!SYS:%PRIMITIVE SB!C:HALT)) ; (SB!SYS:WITH-INTERRUPT-BINDINGS (MULTIPLE-VALUE-BIND # # # #))))) ; --> UNLESS IF PROGN LET ; ==> ; (SB!DEBUG:PRINT-BACKTRACE :COUNT 8) ; ; caught STYLE-WARNING: ; undefined function: SB!DEBUG:PRINT-BACKTRACE ; ; caught STYLE-WARNING: ; 3 more uses of undefined function SB!DEBUG:PRINT-BACKTRACE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/interr.lisp ; in: DEFUN INTERNAL-ERROR ; (SB!KERNEL::ARG 0) ; ==> ; (SB!DI::SUB-ACCESS-DEBUG-VAR-SLOT SB!KERNEL::FP (NTH 0 SB!KERNEL::ARGUMENTS) ; SB!KERNEL::ALIEN-CONTEXT) ; ; caught STYLE-WARNING: ; undefined function: SB!DI::SUB-ACCESS-DEBUG-VAR-SLOT ; in: DEFUN FIND-CALLER-OF-NAMED-FRAME ; (SB!DI:TOP-FRAME) ; ; caught STYLE-WARNING: ; undefined function: SB!DI:TOP-FRAME ; in: DEFUN FIND-INTERRUPTED-NAME-AND-FRAME ; (SB!DI:TOP-FRAME) ; ; caught STYLE-WARNING: ; undefined function: SB!DI:TOP-FRAME ; in: DEFUN FIND-CALLER-NAME-AND-FRAME ; (SB!DI:TOP-FRAME) ; ; caught STYLE-WARNING: ; undefined function: SB!DI:TOP-FRAME ; ; compilation unit finished ; Undefined types: ; CODE-DELETION-NOTE COMPILER-NOTE SB!DI:DEBUG-CONDITION ERROR ; Undefined functions: ; SB!DI::COMPILED-FRAME-ESCAPED SB!DI::COMPILED-FRAME-P SB!DI:DEBUG-FUN-NAME SB!DI:FLUSH-FRAMES-ABOVE SB!DI:FRAME-DEBUG-FUN SB!DI:FRAME-DOWN HEXSTR LAYOUT-CLASSOID LAYOUT-INVALID PARSE-LAMBDA-LIST SB!DEBUG:PRINT-BACKTRACE SB!DI::SUB-ACCESS-DEBUG-VAR-SLOT SB!DI:TOP-FRAME ; caught 41 STYLE-WARNING conditions ; printed 5 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/interr.lisp-obj-tmp written ; compilation finished in 0:00:00.211 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/query.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFUN QUERY-READ-CHAR ...) ; x-compiling (DEFUN QUERY-READ-LINE ...) ; x-compiling (DEFUN MAYBE-PRINT-QUERY ...) ; x-compiling (DEFUN CLARIFY-LEGAL-QUERY-INPUT ...) ; x-compiling (DEFUN Y-OR-N-P ...) ; x-compiling (DEFUN YES-OR-NO-P ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/query.lisp ; in: DEFUN YES-OR-NO-P ; (DEFUN YES-OR-NO-P ; (&OPTIONAL SB!IMPL::FORMAT-STRING &REST SB!IMPL::ARGUMENTS) ; "YES-OR-NO-P is similar to Y-OR-N-P, except that it clears the ; input buffer, beeps, and uses READ-LINE to get the strings ; YES or NO." ; (FLET ((SB!IMPL::PRINT-QUERY () ; (APPLY #'SB!IMPL::MAYBE-PRINT-QUERY "(yes or no)" ; SB!IMPL::FORMAT-STRING SB!IMPL::ARGUMENTS))) ; (SB!SYS:BEEP *QUERY-IO*) ; (LOOP (SB!IMPL::PRINT-QUERY) ; (LET (#) ; (COND # # #))))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!IMPL::FORMAT-STRING SB!IMPL::ARGUMENTS #:REST-CONTEXT-23 ; #:REST-COUNT-24) ; {D26D1F9}> ; SB!IMPL::FORMAT-STRING NIL NIL 0)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN Y-OR-N-P ; (DEFUN Y-OR-N-P (&OPTIONAL SB!IMPL::FORMAT-STRING &REST SB!IMPL::ARGUMENTS) ; "Y-OR-N-P prints the message, if any, and reads characters from ; *QUERY-IO* until the user enters y or Y as an affirmative, or either ; n or N as a negative answer. It asks again if you enter any other ; characters." ; (FLET ((SB!IMPL::PRINT-QUERY () ; (APPLY #'SB!IMPL::MAYBE-PRINT-QUERY "(y or n)" ; SB!IMPL::FORMAT-STRING SB!IMPL::ARGUMENTS))) ; (LOOP (SB!IMPL::PRINT-QUERY) ; (CASE (SB!IMPL::QUERY-READ-CHAR) (# #) (# #) (T #))))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!IMPL::FORMAT-STRING SB!IMPL::ARGUMENTS #:REST-CONTEXT-13 ; #:REST-COUNT-14) ; {D217661}> ; SB!IMPL::FORMAT-STRING NIL NIL 0)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN MAYBE-PRINT-QUERY ; (DEFUN SB!IMPL::MAYBE-PRINT-QUERY ; (SB!IMPL::HINT SB!IMPL::FORMAT-STRING &REST SB!IMPL::FORMAT-ARGS) ; (FRESH-LINE *QUERY-IO*) ; (WHEN SB!IMPL::FORMAT-STRING ; (APPLY #'FORMAT *QUERY-IO* SB!IMPL::FORMAT-STRING SB!IMPL::FORMAT-ARGS) ; (WRITE-CHAR #\ *QUERY-IO*)) ; (FORMAT *QUERY-IO* "~A " SB!IMPL::HINT) ; (FINISH-OUTPUT *QUERY-IO*)) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!IMPL::HINT SB!IMPL::FORMAT-STRING SB!IMPL::FORMAT-ARGS ; #:REST-CONTEXT-0 #:REST-COUNT-1) ; {D1C5971}> ; SB!IMPL::HINT SB!IMPL::FORMAT-STRING NIL NIL 0)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; compilation unit finished ; Undefined type: ; CODE-DELETION-NOTE ; caught 3 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/query.lisp-obj-tmp written ; compilation finished in 0:00:00.023 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/sort.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFUN SORT-VECTOR ...) ; x-compiling (DECLAIM (MAYBE-INLINE SORT ...)) ; x-compiling (DEFUN SORT ...) ; x-compiling (DEFUN STABLE-SORT ...) ; x-compiling (DECLAIM (MAYBE-INLINE MERGE-LISTS* ...)) ; x-compiling (DEFUN MERGE-LISTS* ...) ; x-compiling (DECLAIM (INLINE MERGE-LISTS)) ; x-compiling (DEFUN MERGE-LISTS ...) ; x-compiling (DECLAIM (INLINE STABLE-SORT-LIST-2 ...)) ; x-compiling (DEFUN STABLE-SORT-LIST-2 ...) ; x-compiling (DEFUN STABLE-SORT-LIST-3 ...) ; x-compiling (DEFCONSTANT +STABLE-SORT-FAST-MERGE-LIMIT+ ...) ; x-compiling (DEFUN STABLE-SORT-LIST ...) ; x-compiling (DEFUN STABLE-SORT-SIMPLE-VECTOR ...) ; x-compiling (DEFUN STABLE-SORT-VECTOR ...) ; x-compiling (DEFUN MERGE ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/sort.lisp ; in: DEFUN MERGE ; (SB!IMPL::SEQUENCE-TYPE-LENGTH-MISMATCH-ERROR TYPE ; (+ (LENGTH SB!IMPL::S1) (LENGTH SB!IMPL::S2))) ; --> ERROR COND IF PROGN SB!INT:QUASIQUOTE SB!IMPL::|List| CAR ; ==> ; (SB!KERNEL:ARRAY-TYPE-DIMENSIONS TYPE) ; ; caught STYLE-WARNING: ; undefined function: ARRAY-TYPE-DIMENSIONS ; --> ERROR COND IF ; ==> ; (SB!KERNEL:ARRAY-TYPE-P TYPE) ; ; caught STYLE-WARNING: ; undefined function: ARRAY-TYPE-P ; (SB!MOP:CLASS-PROTOTYPE (SB!PCL:ENSURE-CLASS-FINALIZED SB!INT:IT)) ; ; caught STYLE-WARNING: ; undefined function: SB!MOP:CLASS-PROTOTYPE ; in: DEFUN SORT ; (SB!KERNEL:WITH-ARRAY-DATA ((VECTOR (THE VECTOR SEQUENCE)) (SB!IMPL::START) ; (SB!IMPL::END) :CHECK-FILL-POINTER T) ; (SB!IMPL::SORT-VECTOR VECTOR SB!IMPL::START SB!IMPL::END ; SB!IMPL::PREDICATE-FUN SB!IMPL::KEY-FUN-OR-NIL)) ; --> LET LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (VECTOR SB!IMPL::START SB!IMPL::END #:G187) {E1F9159}> ; VECTOR SB!IMPL::START SB!IMPL::END NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; (SB!IMPL::SORT-VECTOR VECTOR SB!IMPL::START SB!IMPL::END ; SB!IMPL::PREDICATE-FUN SB!IMPL::KEY-FUN-OR-NIL) ; --> MACROLET IF IF SB!C::%SORT-VECTOR MACROLET LET LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY SB!C::%HEAPIFY DO* BLOCK LET* TAGBODY TAGBODY ; --> LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LET ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!C::LARGEST SB!C::LARGEST-ELT #:G210) {E2BFC49}> ; SB!C::LARGEST SB!C::LARGEST-ELT NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN SORT-VECTOR ; (SB!IMPL::SORT-VECTOR VECTOR SB!IMPL::START SB!IMPL::END ; SB!IMPL::PREDICATE-FUN SB!IMPL::KEY-FUN-OR-NIL) ; --> MACROLET IF IF SB!C::%SORT-VECTOR MACROLET LET LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY SB!C::%HEAPIFY DO* BLOCK LET* TAGBODY TAGBODY ; --> LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LET ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!C::LARGEST SB!C::LARGEST-ELT #:G22) {D3E2D21}> ; SB!C::LARGEST SB!C::LARGEST-ELT NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 12 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/sort.lisp ; in: DEFUN MERGE ; (SB!KERNEL::CONS-TYPE-LENGTH-INFO TYPE) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::CONS-TYPE-LENGTH-INFO ; (SB!IMPL::SEQUENCE-TYPE-LENGTH-MISMATCH-ERROR TYPE ; (+ (LENGTH SB!IMPL::S1) (LENGTH SB!IMPL::S2))) ; --> ERROR COND IF COND IF COND IF ; ==> ; (SB!KERNEL:CONS-TYPE-P TYPE) ; ; caught STYLE-WARNING: ; undefined function: CONS-TYPE-P ; (SB!KERNEL:CSUBTYPEP TYPE (SB!KERNEL:SPECIFIER-TYPE 'LIST)) ; ; caught STYLE-WARNING: ; undefined function: CSUBTYPEP ; (SB!PCL:ENSURE-CLASS-FINALIZED SB!INT:IT) ; ; caught STYLE-WARNING: ; undefined function: SB!PCL:ENSURE-CLASS-FINALIZED ; (FIND-CLASS SB!IMPL::RESULT-TYPE NIL) ; ; caught STYLE-WARNING: ; undefined function: FIND-CLASS ; (SB!SEQUENCE:MERGE ; (SB!MOP:CLASS-PROTOTYPE (SB!PCL:ENSURE-CLASS-FINALIZED SB!INT:IT)) ; SB!IMPL::SEQUENCE1 SB!IMPL::SEQUENCE2 SB!IMPL::PREDICATE-FUNCTION :KEY ; SB!IMPL::KEY) ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:MERGE ; in: DEFUN SORT ; #'SB!SEQUENCE:SORT ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:SORT ; in: DEFUN MERGE ; (SB!KERNEL:SPECIFIER-TYPE 'LIST) ; ; caught STYLE-WARNING: ; undefined function: SPECIFIER-TYPE ; in: DEFUN STABLE-SORT ; #'SB!SEQUENCE:STABLE-SORT ; ; caught STYLE-WARNING: ; undefined function: SB!SEQUENCE:STABLE-SORT ; in: DEFUN MERGE ; (SB!IMPL::SEQUENCE-TYPE-LENGTH-MISMATCH-ERROR TYPE ; (+ (LENGTH SB!IMPL::S1) (LENGTH SB!IMPL::S2))) ; --> ERROR LIST ; ==> ; (SB!KERNEL:TYPE-SPECIFIER TYPE) ; ; caught STYLE-WARNING: ; undefined function: TYPE-SPECIFIER ; (SB!KERNEL:TYPE= TYPE (SB!KERNEL:SPECIFIER-TYPE 'LIST)) ; ; caught STYLE-WARNING: ; undefined function: TYPE= ; ; compilation unit finished ; Undefined type: ; CODE-DELETION-NOTE ; Undefined functions: ; ARRAY-TYPE-DIMENSIONS ARRAY-TYPE-P SB!MOP:CLASS-PROTOTYPE SB!KERNEL::CONS-TYPE-LENGTH-INFO CONS-TYPE-P CSUBTYPEP SB!PCL:ENSURE-CLASS-FINALIZED FIND-CLASS SB!SEQUENCE:MERGE SB!SEQUENCE:SORT SPECIFIER-TYPE SB!SEQUENCE:STABLE-SORT TYPE-SPECIFIER TYPE= ; caught 18 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/sort.lisp-obj-tmp written ; compilation finished in 0:00:00.551 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/time.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFUN TIME-REINIT ...) ; x-compiling (SETF (FDOCUMENTATION # ...) ...) ; x-compiling (DEFUN GET-INTERNAL-RUN-TIME ...) /entering WITH-ALIEN BINDINGS=((SB!UNIX::USAGE (STRUCT SB!UNIX::RUSAGE))) /BINDING=(SB!UNIX::USAGE (STRUCT SB!UNIX::RUSAGE)) /SYMBOL=SB!UNIX::USAGE TYPE=(STRUCT SB!UNIX::RUSAGE) OPT1=NIL OPT2=NIL /ALIEN-TYPE=# /ALLOCATION=:LOCAL INITIAL-VALUE=NIL /:LOCAL case /VAR=#:VAR4 INITVAL=NIL INFO=# /revised BODY=((LET ((#:VAR4 #)) (SB!ALIEN-INTERNALS:NOTE-LOCAL-ALIEN-TYPE '# #:VAR4) (SYMBOL-MACROLET (#) (SB!UNIX::SYSCALL* # # SB!UNIX::WHO #)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; x-compiling (DEFCONSTANT SECONDS-IN-WEEK ...) ; x-compiling (DEFCONSTANT WEEKS-OFFSET ...) ; x-compiling (DEFCONSTANT SECONDS-OFFSET ...) ; x-compiling (DEFCONSTANT MINUTES-PER-DAY ...) ; x-compiling (DEFCONSTANT QUARTER-DAYS-PER-YEAR ...) ; x-compiling (DEFCONSTANT QUARTER-DAYS-PER-CENTURY ...) ; x-compiling (DEFCONSTANT NOVEMBER-17-1858 ...) ; x-compiling (DEFCONSTANT WEEKDAY-NOVEMBER-17-1858 ...) ; x-compiling (DEFCONSTANT UNIX-TO-UNIVERSAL-TIME ...) ; x-compiling (DEFUN GET-UNIVERSAL-TIME ...) /entering WITH-ALIEN BINDINGS=((SB!UNIX::TV (STRUCT SB!UNIX:TIMEVAL)) (SB!UNIX::TZ (STRUCT SB!UNIX:TIMEZONE))) /BINDING=(SB!UNIX::TZ (STRUCT SB!UNIX:TIMEZONE)) /SYMBOL=SB!UNIX::TZ TYPE=(STRUCT SB!UNIX:TIMEZONE) OPT1=NIL OPT2=NIL /ALIEN-TYPE=# /ALLOCATION=:LOCAL INITIAL-VALUE=NIL /:LOCAL case /VAR=#:VAR45 INITVAL=NIL INFO=# /BINDING=(SB!UNIX::TV (STRUCT SB!UNIX:TIMEVAL)) /SYMBOL=SB!UNIX::TV TYPE=(STRUCT SB!UNIX:TIMEVAL) OPT1=NIL OPT2=NIL /ALIEN-TYPE=# /ALLOCATION=:LOCAL INITIAL-VALUE=NIL /:LOCAL case /VAR=#:VAR46 INITVAL=NIL INFO=# /revised BODY=((LET ((#:VAR46 #)) (SB!ALIEN-INTERNALS:NOTE-LOCAL-ALIEN-TYPE '# #:VAR46) (SYMBOL-MACROLET (#) (LET # # #)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; x-compiling (DEFUN GET-DECODED-TIME ...) ; x-compiling (DEFCONSTANT +MAR-1-2000+ ...) ; x-compiling (DEFCONSTANT +MAR-1-2035+ ...) ; x-compiling (DEFCONSTANT +MAR-1-1903+ ...) ; x-compiling (DEFUN YEARS-SINCE-MAR-2000 ...) ; x-compiling (DEFUN TRUNCATE-TO-UNIX-RANGE ...) ; x-compiling (DEFUN DECODE-UNIVERSAL-TIME ...) ; x-compiling (DEFUN PICK-OBVIOUS-YEAR ...) ; x-compiling (DEFUN LEAP-YEARS-BEFORE ...) ; x-compiling (DEFVAR *DAYS-BEFORE-MONTH* ...) ; x-compiling (DEFUN ENCODE-UNIVERSAL-TIME ...) ; x-compiling (DEFVAR *GC-RUN-TIME* ...) ; x-compiling (DECLAIM (TYPE INDEX ...)) ; x-compiling (DEFUN PRINT-TIME ...) ; x-compiling (DEFMACRO TIME ...) ; x-compiling (DEFUN TIME-GET-SYS-INFO ...) ; x-compiling (DEFUN ELAPSED-CYCLES ...) ; x-compiling (DECLAIM (INLINE READ-CYCLE-COUNTER)) ; x-compiling (DEFUN READ-CYCLE-COUNTER ...) ; x-compiling (DEFUN FORMAT-MICROSECONDS ...) ; x-compiling (DEFUN FORMAT-MILLISECONDS ...) ; x-compiling (DEFUN %FORMAT-DECIMAL ...) ; x-compiling (DEFUN CALL-WITH-TIMING ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/time.lisp ; in: DEFUN %FORMAT-DECIMAL ; (DEFUN SB!IMPL::%FORMAT-DECIMAL (STREAM NUMBER SB!IMPL::POWER) ; (DECLARE (STREAM STREAM) ; (INTEGER NUMBER SB!IMPL::POWER)) ; (WHEN (MINUSP NUMBER) (WRITE-CHAR #\- STREAM) (SETF NUMBER (- NUMBER))) ; (LET ((SB!IMPL::SCALE (EXPT 10 SB!IMPL::POWER))) ; (LABELS ((SB!IMPL::%FRACTION # ; # ; #) ; (SB!IMPL::%ZEROES # ; #)) ; (COND (# # #) (# # #) (# # #) (# #)))) ; NIL) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; --> SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET ; --> SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT33840 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: %FUNCALLABLE-INSTANCE-LAYOUT ; in: SETF (FDOCUMENTATION 'GET-INTERNAL-REAL-TIME 'FUNCTION) ; (SETF (SB!KERNEL:FDOCUMENTATION 'GET-INTERNAL-REAL-TIME 'FUNCTION) ; "Return the real time (\"wallclock time\") since startup in the internal ; time format. (See INTERNAL-TIME-UNITS-PER-SECOND.)") ; --> LET* LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!KERNEL:FDOCUMENTATION) #:NEW0 ; 'GET-INTERNAL-REAL-TIME 'FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: (SETF FDOCUMENTATION) ; in: DEFUN TRUNCATE-TO-UNIX-RANGE ; (MULTIPLE-VALUE-BIND (SB!IMPL::YEAR SB!IMPL::OFFSET) ; (SB!IMPL::YEARS-SINCE-MAR-2000 SB!IMPL::UTIME) ; (DECLARE (IGNORE SB!IMPL::YEAR)) ; (+ SB!IMPL::+MAR-1-2035+ (- SB!IMPL::UNIX-TO-UNIVERSAL-TIME) ; SB!IMPL::OFFSET)) ; --> MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!IMPL::YEAR SB!IMPL::OFFSET #:G63) {EA80C49}> ; SB!IMPL::YEAR SB!IMPL::OFFSET NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; (MULTIPLE-VALUE-BIND (SB!IMPL::YEAR SB!IMPL::OFFSET) ; (SB!IMPL::YEARS-SINCE-MAR-2000 SB!IMPL::UTIME) ; (DECLARE (IGNORE SB!IMPL::YEAR)) ; (+ SB!IMPL::+MAR-1-1903+ (- SB!IMPL::UNIX-TO-UNIVERSAL-TIME) ; SB!IMPL::OFFSET)) ; --> MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!IMPL::YEAR SB!IMPL::OFFSET #:G60) {EA71AE9}> ; SB!IMPL::YEAR SB!IMPL::OFFSET NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN GET-INTERNAL-RUN-TIME ; (SB!SYS:SYSTEM-INTERNAL-RUN-TIME) ; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (IGNORE SB!UNIX::UTIME-SEC SB!UNIX::UTIME-USEC SB!UNIX::STIME-SEC ; SB!UNIX::STIME-USEC #:G1) ; {E66AA11}> ; IGNORE SB!UNIX::UTIME-SEC SB!UNIX::UTIME-USEC SB!UNIX::STIME-SEC ; SB!UNIX::STIME-USEC NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 36 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/time.lisp ; in: DEFUN GET-UNIVERSAL-TIME ; (SB!EXT:GET-TIME-OF-DAY) ; --> BLOCK SB!ALIEN:WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET LET ; --> SYMBOL-MACROLET LET SYMBOL-MACROLET SB!UNIX::SYSCALL* LOCALLY LET ; ==> ; (SB!ALIEN:ALIEN-FUNCALL ; (SB!ALIEN:EXTERN-ALIEN "sb_gettimeofday" ; (FUNCTION SB!ALIEN:INT (* (SB!ALIEN:STRUCT SB!UNIX:TIMEVAL)) ; (* (SB!ALIEN:STRUCT SB!UNIX:TIMEZONE)))) ; (SB!ALIEN:ADDR SB!UNIX::TV) (SB!ALIEN:ADDR SB!UNIX::TZ)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN GET-INTERNAL-RUN-TIME ; (SB!SYS:SYSTEM-INTERNAL-RUN-TIME) ; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL SB!UNIX:UNIX-FAST-GETRUSAGE ; --> THE PROGN BLOCK SB!ALIEN:WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET ; --> LET SYMBOL-MACROLET SB!UNIX::SYSCALL* LOCALLY LET ; ==> ; (SB!ALIEN:ALIEN-FUNCALL ; (SB!ALIEN:EXTERN-ALIEN "sb_getrusage" ; (FUNCTION SB!ALIEN:INT SB!ALIEN:INT (* (SB!ALIEN:STRUCT SB!UNIX::RUSAGE)))) ; SB!UNIX::WHO (SB!ALIEN:ADDR SB!UNIX::USAGE)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN %FORMAT-DECIMAL ; (DEFUN SB!IMPL::%FORMAT-DECIMAL (STREAM NUMBER SB!IMPL::POWER) ; (DECLARE (STREAM STREAM) ; (INTEGER NUMBER SB!IMPL::POWER)) ; (WHEN (MINUSP NUMBER) (WRITE-CHAR #\- STREAM) (SETF NUMBER (- NUMBER))) ; (LET ((SB!IMPL::SCALE (EXPT 10 SB!IMPL::POWER))) ; (LABELS ((SB!IMPL::%FRACTION # ; # ; #) ; (SB!IMPL::%ZEROES # ; #)) ; (COND (# # #) (# # #) (# # #) (# #)))) ; NIL) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; --> SB!C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET ; --> SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT33840 'STREAM) ; ; caught STYLE-WARNING: ; undefined function: LAYOUT-INVALID ; ; caught STYLE-WARNING: ; undefined function: UPDATE-OBJECT-LAYOUT-OR-INVALID ; ; compilation unit finished ; Undefined types: ; CODE-DELETION-NOTE COMPILER-NOTE ; Undefined functions: ; %FUNCALLABLE-INSTANCE-LAYOUT (SETF FDOCUMENTATION) LAYOUT-INVALID UPDATE-OBJECT-LAYOUT-OR-INVALID ; caught 10 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/time.lisp-obj-tmp written ; compilation finished in 0:00:00.327 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/timer.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DECLAIM (INLINE HEAP-PARENT ...)) ; x-compiling (DEFUN HEAP-PARENT ...) ; x-compiling (DEFUN HEAP-LEFT ...) ; x-compiling (DEFUN HEAP-RIGHT ...) ; x-compiling (DEFUN HEAPIFY ...) ; x-compiling (DEFUN HEAP-INSERT ...) ; x-compiling (DEFUN HEAP-MAXIMUM ...) ; x-compiling (DEFUN HEAP-EXTRACT ...) ; x-compiling (DEFUN HEAP-EXTRACT-MAXIMUM ...) ; x-compiling (DEFSTRUCT (PRIORITY-QUEUE # ...) ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFUN PRIORITY-QUEUE-MAXIMUM ...) ; x-compiling (DEFUN PRIORITY-QUEUE-EXTRACT-MAXIMUM ...) ; x-compiling (DEFUN PRIORITY-QUEUE-INSERT ...) ; x-compiling (DEFUN PRIORITY-QUEUE-EMPTY-P ...) ; x-compiling (DEFUN PRIORITY-QUEUE-REMOVE ...) ; x-compiling (DEFSTRUCT (TIMER # ...) ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (SETF (FDOCUMENTATION # ...) ...) ; x-compiling (DEFUN TIMER-NAME ...) ; x-compiling (DEFUN TIMER-SCHEDULED-P ...) ; x-compiling (DEFVAR *SCHEDULER-LOCK* ...) ; x-compiling (DEFMACRO WITH-SCHEDULER-LOCK ...) ; x-compiling (DEFUN UNDER-SCHEDULER-LOCK-P ...) ; x-compiling (DEFPARAMETER *SCHEDULE* ...) ; x-compiling (DEFUN PEEK-SCHEDULE ...) ; x-compiling (DEFUN TIME-LEFT ...) ; x-compiling (DEFUN DELTA->REAL ...) ; x-compiling (DEFUN MAKE-CANCELLABLE-INTERRUPTOR ...) ; x-compiling (DEFUN %SCHEDULE-TIMER ...) ; x-compiling (DEFUN SCHEDULE-TIMER ...) ; x-compiling (DEFUN UNSCHEDULE-TIMER ...) ; x-compiling (DEFUN LIST-ALL-TIMERS ...) ; x-compiling (DEFUN RESCHEDULE-TIMER ...) ; x-compiling (DEFUN REAL-TIME->SEC-AND-NSEC ...) ; x-compiling (DEFUN %SET-SYSTEM-TIMER ...) ; x-compiling (DEFUN %CLEAR-SYSTEM-TIMER ...) ; x-compiling (DEFUN SET-SYSTEM-TIMER ...) ; x-compiling (DEFUN RUN-TIMER ...) ; x-compiling (DEFUN RUN-EXPIRED-TIMERS ...) ; x-compiling (DEFUN TIMEOUT-CERROR ...) ; x-compiling (DEFMACRO WITH-TIMEOUT ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/timer.lisp ; in: DEFSTRUCT TIMER ; (DEFSTRUCT ; (SB!EXT:TIMER (:CONC-NAME SB!IMPL::%TIMER-) ; (:CONSTRUCTOR SB!EXT:MAKE-TIMER ; (FUNCTION &KEY SB!IMPL::NAME ; (SB!IMPL::THREAD SB!THREAD:*CURRENT-THREAD*)))) ; "Timer type. Do not rely on timers being structs as it may change in ; future versions." ; SB!IMPL::NAME ; FUNCTION ; SB!IMPL::EXPIRE-TIME ; SB!IMPL::REPEAT-INTERVAL ; (SB!IMPL::THREAD NIL :TYPE (OR SB!THREAD:THREAD (MEMBER T NIL))) ; SB!IMPL::INTERRUPT-FUNCTION ; SB!IMPL::CANCEL-FUNCTION) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: DEFSTRUCT PRIORITY-QUEUE ; (DEFSTRUCT ; (SB!IMPL::PRIORITY-QUEUE (:CONC-NAME SB!IMPL::%PQUEUE-) ; (:CONSTRUCTOR SB!IMPL::MAKE-PRIORITY-QUEUE ; (&KEY (# #'IDENTITY) (SB!IMPL::ELEMENT-TYPE T) &AUX ; (SB!IMPL::CONTENTS #)))) ; SB!IMPL::CONTENTS ; SB!IMPL::KEYFUN) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: SETF (FDOCUMENTATION 'MAKE-TIMER 'FUNCTION) ; (SETF (SB!KERNEL:FDOCUMENTATION 'SB!EXT:MAKE-TIMER 'FUNCTION) ; "Create a timer that runs FUNCTION when triggered. ; ; If a THREAD is supplied, FUNCTION is run in that thread. If THREAD is ; T, a new thread is created for FUNCTION each time the timer is ; triggered. If THREAD is NIL, FUNCTION is run in an unspecified thread. ; ; When THREAD is not T, INTERRUPT-THREAD is used to run FUNCTION and the ; ordering guarantees of INTERRUPT-THREAD apply. FUNCTION runs with ; interrupts disabled but WITH-INTERRUPTS is allowed.") ; --> LET* LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!KERNEL:FDOCUMENTATION) #:NEW306 'SB!EXT:MAKE-TIMER ; 'FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: (SETF FDOCUMENTATION) ; in: DEFUN MAKE-CANCELLABLE-INTERRUPTOR ; (SB!THREAD:WITH-RECURSIVE-LOCK (SB!IMPL::MUTEX) ; (UNLESS SB!IMPL::CANCELLEDP ; (SB!SYS:ALLOW-WITH-INTERRUPTS ; (FUNCALL FUNCTION)))) ; --> SB!INT:DX-FLET FLET ; ==> ; (SB!THREAD::CALL-WITH-RECURSIVE-LOCK #'SB!THREAD::WITH-RECURSIVE-LOCK-THUNK ; SB!IMPL::MUTEX T NIL) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD::CALL-WITH-RECURSIVE-LOCK ; in: DEFUN LIST-ALL-TIMERS ; (SB!IMPL::WITH-SCHEDULER-LOCK NIL ; (CONCATENATE 'LIST (SB!IMPL::%PQUEUE-CONTENTS SB!IMPL::*SCHEDULE*))) ; --> SB!THREAD::WITH-SYSTEM-MUTEX SB!INT:DX-FLET FLET ; ==> ; (SB!THREAD::CALL-WITH-SYSTEM-MUTEX #'SB!THREAD::WITH-SYSTEM-MUTEX-THUNK ; SB!IMPL::*SCHEDULER-LOCK*) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD::CALL-WITH-SYSTEM-MUTEX ; in: DEFUN UNSCHEDULE-TIMER ; (SB!IMPL::WITH-SCHEDULER-LOCK NIL ; (SETF (SB!IMPL::%TIMER-EXPIRE-TIME SB!EXT:TIMER) NIL ; (SB!IMPL::%TIMER-REPEAT-INTERVAL SB!EXT:TIMER) NIL) ; (LET ((SB!IMPL::OLD-POSITION ; (SB!IMPL::PRIORITY-QUEUE-REMOVE SB!IMPL::*SCHEDULE* SB!EXT:TIMER))) ; (WHEN SB!IMPL::OLD-POSITION ; (FUNCALL (SB!IMPL::%TIMER-CANCEL-FUNCTION SB!EXT:TIMER))) ; (WHEN (EQL 0 SB!IMPL::OLD-POSITION) (SB!IMPL::SET-SYSTEM-TIMER)))) ; --> SB!THREAD::WITH-SYSTEM-MUTEX SB!INT:DX-FLET FLET ; ==> ; (SB!THREAD::CALL-WITH-SYSTEM-MUTEX #'SB!THREAD::WITH-SYSTEM-MUTEX-THUNK ; SB!IMPL::*SCHEDULER-LOCK*) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD::CALL-WITH-SYSTEM-MUTEX ; in: DEFUN SCHEDULE-TIMER ; (SB!IMPL::WITH-SCHEDULER-LOCK NIL ; (SETF (SB!IMPL::%TIMER-EXPIRE-TIME SB!EXT:TIMER) ; (+ (GET-INTERNAL-REAL-TIME) (SB!IMPL::DELTA->REAL #)) ; (SB!IMPL::%TIMER-REPEAT-INTERVAL SB!EXT:TIMER) ; (IF SB!IMPL::REPEAT-INTERVAL ; (SB!IMPL::DELTA->REAL SB!IMPL::REPEAT-INTERVAL) ; NIL)) ; (SB!IMPL::%SCHEDULE-TIMER SB!EXT:TIMER)) ; --> SB!THREAD::WITH-SYSTEM-MUTEX SB!INT:DX-FLET FLET ; ==> ; (SB!THREAD::CALL-WITH-SYSTEM-MUTEX #'SB!THREAD::WITH-SYSTEM-MUTEX-THUNK ; SB!IMPL::*SCHEDULER-LOCK*) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD::CALL-WITH-SYSTEM-MUTEX ; ; caught STYLE-WARNING: ; 2 more uses of undefined function SB!THREAD::CALL-WITH-SYSTEM-MUTEX ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/timer.lisp ; in: DEFUN HEAP-EXTRACT ; (DEFUN SB!IMPL::HEAP-EXTRACT ; (SB!IMPL::HEAP SB!IMPL::I ; &KEY (SB!IMPL::KEY #'IDENTITY) (SB!IMPL::TEST #'>=)) ; (UNLESS (> (LENGTH SB!IMPL::HEAP) SB!IMPL::I) (ERROR "Heap underflow")) ; (PROG1 (AREF SB!IMPL::HEAP SB!IMPL::I) ; (SETF (AREF SB!IMPL::HEAP SB!IMPL::I) (AREF SB!IMPL::HEAP #)) ; (DECF (FILL-POINTER SB!IMPL::HEAP)) ; (SB!IMPL::HEAPIFY SB!IMPL::HEAP SB!IMPL::I :KEY SB!IMPL::KEY :TEST ; SB!IMPL::TEST))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!IMPL::HEAP SB!IMPL::I #:.DEFAULTING-TEMP. #:N-SUPPLIED-67 ; #:.DEFAULTING-TEMP. #:N-SUPPLIED-68) ; {E163391}> ; SB!IMPL::HEAP SB!IMPL::I NIL NIL NIL NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN HEAP-INSERT ; (DEFUN SB!IMPL::HEAP-INSERT ; (SB!IMPL::HEAP SB!IMPL::NEW-ITEM ; &KEY (SB!IMPL::KEY #'IDENTITY) (SB!IMPL::TEST #'>=)) ; (DECLARE (FUNCTION SB!IMPL::KEY SB!IMPL::TEST)) ; (FLET ((SB!IMPL::KEY (SB!IMPL::OBJ) ; (FUNCALL SB!IMPL::KEY SB!IMPL::OBJ)) ; (SB!IMPL::GE (SB!IMPL::I SB!IMPL::J) ; (FUNCALL SB!IMPL::TEST SB!IMPL::I SB!IMPL::J))) ; (VECTOR-PUSH-EXTEND NIL SB!IMPL::HEAP) ; (LOOP SB!IMPL::FOR SB!IMPL::I = (1- ; (LENGTH ; SB!IMPL::HEAP)) SB!IMPL::THEN SB!IMPL::PARENT-I ; SB!IMPL::FOR SB!IMPL::PARENT-I = (SB!IMPL::HEAP-PARENT SB!IMPL::I) ; SB!IMPL::WHILE ...))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!IMPL::HEAP SB!IMPL::NEW-ITEM #:.DEFAULTING-TEMP. ; #:N-SUPPLIED-34 #:.DEFAULTING-TEMP. #:N-SUPPLIED-35) ; {D936831}> ; SB!IMPL::HEAP SB!IMPL::NEW-ITEM NIL NIL NIL NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN HEAPIFY ; (DEFUN SB!IMPL::HEAPIFY ; (SB!IMPL::HEAP SB!IMPL::START ; &KEY (SB!IMPL::KEY #'IDENTITY) (SB!IMPL::TEST #'>=)) ; (DECLARE (FUNCTION SB!IMPL::KEY SB!IMPL::TEST)) ; (FLET ((SB!IMPL::KEY (SB!IMPL::OBJ) ; (FUNCALL SB!IMPL::KEY SB!IMPL::OBJ)) ; (SB!IMPL::GE (SB!IMPL::I SB!IMPL::J) ; (FUNCALL SB!IMPL::TEST SB!IMPL::I SB!IMPL::J))) ; (LET ((SB!IMPL::L #) (SB!IMPL::R #) (SB!IMPL::SIZE #) SB!IMPL::LARGEST) ; (SETF SB!IMPL::LARGEST #) ; (WHEN (AND # #) (SETF #)) ; (WHEN (/= SB!IMPL::LARGEST SB!IMPL::START) ; (ROTATEF # #) ; (SB!IMPL::HEAPIFY SB!IMPL::HEAP SB!IMPL::LARGEST :KEY SB!IMPL::KEY ; :TEST SB!IMPL::TEST))) ; SB!IMPL::HEAP)) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!IMPL::HEAP SB!IMPL::START #:.DEFAULTING-TEMP. #:N-SUPPLIED-3 ; #:.DEFAULTING-TEMP. #:N-SUPPLIED-4) ; {D821BF9}> ; SB!IMPL::HEAP SB!IMPL::START NIL NIL NIL NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 29 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/timer.lisp ; in: DEFUN UNDER-SCHEDULER-LOCK-P ; (SB!THREAD:HOLDING-MUTEX-P SB!IMPL::*SCHEDULER-LOCK*) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD:HOLDING-MUTEX-P ; in: DEFUN RUN-TIMER ; (SB!THREAD:INTERRUPT-THREAD SB!IMPL::THREAD FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD:INTERRUPT-THREAD ; (HANDLER-CASE (SB!THREAD:INTERRUPT-THREAD SB!IMPL::THREAD FUNCTION) ; (SB!THREAD:INTERRUPT-THREAD-ERROR (SB!IMPL::C) ; (DECLARE (IGNORE SB!IMPL::C)) ; (WARN "Timer ~S failed to interrupt thread ~S." SB!EXT:TIMER ; SB!IMPL::THREAD))) ; --> SB!INT:DX-FLET FLET BLOCK SB!INT:DX-LET LET TAGBODY ; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK ; ==> ; (TYPEP CONDITION 'SB!THREAD:INTERRUPT-THREAD-ERROR) ; ; caught STYLE-WARNING: ; undefined type: SB!THREAD:INTERRUPT-THREAD-ERROR ; in: DEFUN MAKE-CANCELLABLE-INTERRUPTOR ; (SB!THREAD:MAKE-MUTEX) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD:MAKE-MUTEX ; in: DEFVAR *SCHEDULER-LOCK* ; (SB!THREAD:MAKE-MUTEX :NAME "Scheduler lock") ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD:MAKE-MUTEX ; in: DEFUN RUN-TIMER ; (SB!THREAD:MAKE-THREAD ; (SB!SYS:WITHOUT-INTERRUPTS ; (SB!SYS:ALLOW-WITH-INTERRUPTS ; FUNCTION)) ; :NAME (FORMAT NIL "Timer ~A" (SB!IMPL::%TIMER-NAME SB!EXT:TIMER))) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD:MAKE-THREAD ; in: DEFUN RESCHEDULE-TIMER ; (SB!THREAD:THREAD-ALIVE-P SB!IMPL::THREAD) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD:THREAD-ALIVE-P ; ; compilation unit finished ; Undefined types: ; CODE-DELETION-NOTE SB!THREAD:INTERRUPT-THREAD-ERROR ; Undefined functions: ; SB!KERNEL::%TARGET-DEFSTRUCT (SETF FDOCUMENTATION) SB!THREAD::CALL-WITH-RECURSIVE-LOCK SB!THREAD::CALL-WITH-SYSTEM-MUTEX SB!THREAD:HOLDING-MUTEX-P SB!THREAD:INTERRUPT-THREAD SB!THREAD:MAKE-MUTEX SB!THREAD:MAKE-THREAD SB!THREAD:THREAD-ALIVE-P ; caught 19 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/timer.lisp-obj-tmp written ; compilation finished in 0:00:00.380 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/weak.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFUN MAKE-WEAK-POINTER ...) ; x-compiling (DECLAIM (INLINE WEAK-POINTER-VALUE)) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/weak.lisp ; in: DECLAIM (INLINE WEAK-POINTER-VALUE) ; (DECLAIM (INLINE SB!EXT:WEAK-POINTER-VALUE)) ; --> EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE SB!EXT:WEAK-POINTER-VALUE)) ; ; caught STYLE-WARNING: ; Proclaiming SB!EXT:WEAK-POINTER-VALUE to be INLINE, but 2 calls to it were ; previously compiled. A declaration of NOTINLINE at the call sites will ; eliminate this warning, as will proclaiming and defining the function before ; its first potential use. ; x-compiling (DEFUN WEAK-POINTER-VALUE ...); ; compilation unit finished ; caught 1 STYLE-WARNING condition ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/weak.lisp-obj-tmp written ; compilation finished in 0:00:00.007 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/final.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFGLOBAL **FINALIZER-STORE** ...) ; x-compiling (DEFGLOBAL **FINALIZER-STORE-LOCK** ...) ; x-compiling (DEFMACRO WITH-FINALIZER-STORE-LOCK ...) ; x-compiling (DEFUN FINALIZE ...) ; x-compiling (DEFUN DEINIT-FINALIZERS ...) ; x-compiling (DEFUN CANCEL-FINALIZATION ...) ; x-compiling (DEFUN RUN-PENDING-FINALIZERS ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/final.lisp ; in: DEFGLOBAL **FINALIZER-STORE-LOCK** ; (SB!EXT:DEFGLOBAL SB!IMPL::**FINALIZER-STORE-LOCK** ; (SB!THREAD:MAKE-MUTEX :NAME "Finalizer store lock.")) ; --> PROGN LET LET ; ==> ; (SB!IMPL::%DEFGLOBAL 'SB!IMPL::**FINALIZER-STORE-LOCK** ; (UNLESS #:BOUNDP ; (SB!THREAD:MAKE-MUTEX :NAME "Finalizer store lock.")) ; #:BOUNDP 'NIL NIL (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: %DEFGLOBAL ; in: DEFGLOBAL **FINALIZER-STORE** ; (SB!EXT:DEFGLOBAL SB!IMPL::**FINALIZER-STORE** NIL) ; --> PROGN LET LET ; ==> ; (SB!IMPL::%DEFGLOBAL 'SB!IMPL::**FINALIZER-STORE** (UNLESS #:BOUNDP NIL) ; #:BOUNDP 'NIL NIL (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: %DEFGLOBAL ; in: DEFUN CANCEL-FINALIZATION ; (SB!IMPL::WITH-FINALIZER-STORE-LOCK ; (SETF SB!IMPL::**FINALIZER-STORE** ; (DELETE SB!IMPL::OBJECT SB!IMPL::**FINALIZER-STORE** :KEY ; (LAMBDA # #)))) ; --> SB!THREAD::WITH-SYSTEM-MUTEX SB!INT:DX-FLET FLET ; ==> ; (SB!THREAD::CALL-WITH-SYSTEM-MUTEX/WITHOUT-GCING ; #'SB!THREAD::WITH-SYSTEM-MUTEX-THUNK SB!IMPL::**FINALIZER-STORE-LOCK**) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD::CALL-WITH-SYSTEM-MUTEX/WITHOUT-GCING ; in: DEFUN DEINIT-FINALIZERS ; (SB!IMPL::WITH-FINALIZER-STORE-LOCK ; (SETF SB!IMPL::**FINALIZER-STORE** ; (DELETE-IF #'THIRD SB!IMPL::**FINALIZER-STORE**))) ; --> SB!THREAD::WITH-SYSTEM-MUTEX SB!INT:DX-FLET FLET ; ==> ; (SB!THREAD::CALL-WITH-SYSTEM-MUTEX/WITHOUT-GCING ; #'SB!THREAD::WITH-SYSTEM-MUTEX-THUNK SB!IMPL::**FINALIZER-STORE-LOCK**) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD::CALL-WITH-SYSTEM-MUTEX/WITHOUT-GCING ; in: DEFUN FINALIZE ; (SB!IMPL::WITH-FINALIZER-STORE-LOCK ; (PUSH ; (LIST (SB!EXT:MAKE-WEAK-POINTER SB!IMPL::OBJECT) FUNCTION ; SB!IMPL::DONT-SAVE) ; SB!IMPL::**FINALIZER-STORE**)) ; --> SB!THREAD::WITH-SYSTEM-MUTEX SB!INT:DX-FLET FLET ; ==> ; (SB!THREAD::CALL-WITH-SYSTEM-MUTEX/WITHOUT-GCING ; #'SB!THREAD::WITH-SYSTEM-MUTEX-THUNK SB!IMPL::**FINALIZER-STORE-LOCK**) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD::CALL-WITH-SYSTEM-MUTEX/WITHOUT-GCING ; ; caught STYLE-WARNING: ; 1 more use of undefined function SB!THREAD::CALL-WITH-SYSTEM-MUTEX/WITHOUT-GCING ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/final.lisp ; in: DEFUN FINALIZE ; (DEFUN SB!EXT:FINALIZE (SB!IMPL::OBJECT FUNCTION &KEY SB!IMPL::DONT-SAVE) ; "Arrange for the designated FUNCTION to be called when there ; are no more references to OBJECT, including references in ; FUNCTION itself. ; ; If DONT-SAVE is true, the finalizer will be cancelled when ; SAVE-LISP-AND-DIE is called: this is useful for finalizers ; deallocating system memory, which might otherwise be called ; with addresses from the old image. ; ; In a multithreaded environment FUNCTION may be called in any ; thread. In both single and multithreaded environments FUNCTION ; may be called in any dynamic scope: consequences are unspecified ; if FUNCTION is not fully re-entrant. ; ; Errors from FUNCTION are handled and cause a WARNING to be ; signalled in whichever thread the FUNCTION was called in. ; ; Examples: ; ; ;;; GOOD, assuming RELEASE-HANDLE is re-entrant. ; (let* ((handle (get-handle)) ; (object (make-object handle))) ; (finalize object (lambda () (release-handle handle))) ; object) ; ; ;;; BAD, finalizer refers to object being finalized, causing ; ;;; it to be retained indefinitely! ; (let* ((handle (get-handle)) ; (object (make-object handle))) ; (finalize object ; (lambda () ; (release-handle (object-handle object))))) ; ; ;;; BAD, not re-entrant! ; (defvar *rec* nil) ; ; (defun oops () ; (when *rec* ; (error \"recursive OOPS\")) ; (let ((*rec* t)) ; (gc))) ; or just cons enough to cause one ; ; (progn ; (finalize \"oops\" #'oops) ; (oops)) ; GC causes re-entry to #'oops due to the finalizer ; ; -> ERROR, caught, WARNING signalled" ; (UNLESS SB!IMPL::OBJECT (ERROR "Cannot finalize NIL.")) ; (SB!IMPL::WITH-FINALIZER-STORE-LOCK ; (PUSH ; (LIST (SB!EXT:MAKE-WEAK-POINTER SB!IMPL::OBJECT) FUNCTION ; SB!IMPL::DONT-SAVE) ; SB!IMPL::**FINALIZER-STORE**)) ; SB!IMPL::OBJECT) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!IMPL::OBJECT FUNCTION #:.DEFAULTING-TEMP.) {BA38809}> ; SB!IMPL::OBJECT FUNCTION NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN RUN-PENDING-FINALIZERS ; (HANDLER-CASE (FUNCALL SB!IMPL::FUN) ; (ERROR (SB!IMPL::C) ; (WARN "Error calling finalizer ~S:~% ~S" SB!IMPL::FUN ; SB!IMPL::C))) ; --> SB!INT:DX-FLET FLET BLOCK SB!INT:DX-LET LET TAGBODY ; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK ; ==> ; (TYPEP CONDITION 'ERROR) ; ; caught STYLE-WARNING: ; undefined type: ERROR ; in: DEFGLOBAL **FINALIZER-STORE-LOCK** ; (SB!THREAD:MAKE-MUTEX :NAME "Finalizer store lock.") ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD:MAKE-MUTEX ; ; compilation unit finished ; Undefined types: ; CODE-DELETION-NOTE ERROR ; Undefined functions: ; %DEFGLOBAL SB!THREAD::CALL-WITH-SYSTEM-MUTEX/WITHOUT-GCING SB!THREAD:MAKE-MUTEX ; caught 9 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/final.lisp-obj-tmp written ; compilation finished in 0:00:00.039 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/setf-funs.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (DEFINE-SETTERS ("COMMON-LISP") ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/setf-funs.lisp-obj-tmp written ; compilation finished in 0:00:00.129 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/stubs.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEF %CALLER-FRAME ...) ; x-compiling (DEF %CALLER-PC ...) ; x-compiling (DEF %CODE-CODE-SIZE) ; x-compiling (DEF %CODE-DEBUG-INFO) ; x-compiling (DEF %CODE-ENTRY-POINTS) ; x-compiling (DEF %FUNCALLABLE-INSTANCE-LAYOUT) ; x-compiling (DEF %SET-FUNCALLABLE-INSTANCE-LAYOUT ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/stubs.lisp-obj-tmp written ; compilation finished in 0:00:00.015 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/exhaust.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (DEFINE-ALIEN-ROUTINE RESET-CONTROL-STACK-GUARD-PAGE ...) /entering WITH-ALIEN BINDINGS=((RESET-CONTROL-STACK-GUARD-PAGE #'VOID :EXTERN "reset_control_stack_guard_page")) /BINDING=(RESET-CONTROL-STACK-GUARD-PAGE #'VOID :EXTERN "reset_control_stack_guard_page") /SYMBOL=RESET-CONTROL-STACK-GUARD-PAGE TYPE=#'VOID OPT1=:EXTERN OPT2="reset_control_stack_guard_page" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="reset_control_stack_guard_page" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((RESET-CONTROL-STACK-GUARD-PAGE #)) (ALIEN-FUNCALL RESET-CONTROL-STACK-GUARD-PAGE) (VALUES NIL))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/exhaust.lisp ; in: DEFINE-ALIEN-ROUTINE RESET-CONTROL-STACK-GUARD-PAGE ; (SB!ALIEN:DEFINE-ALIEN-ROUTINE SB!KERNEL::RESET-CONTROL-STACK-GUARD-PAGE ; SB!ALIEN:VOID) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK SB!ALIEN:WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET ; --> SYMBOL-MACROLET ; ==> ; (SB!ALIEN:ALIEN-FUNCALL SB!KERNEL::RESET-CONTROL-STACK-GUARD-PAGE) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; ; compilation unit finished ; Undefined types: ; CODE-DELETION-NOTE COMPILER-NOTE ; caught 2 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/exhaust.lisp-obj-tmp written ; compilation finished in 0:00:00.011 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/early-c.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEF!CONSTANT SB-XC:CALL-ARGUMENTS-LIMIT ...) ; x-compiling (DEF!CONSTANT SB-XC:LAMBDA-PARAMETERS-LIMIT ...) ; x-compiling (DEF!CONSTANT SB-XC:MULTIPLE-VALUES-LIMIT ...) ; x-compiling (DEFVAR SB-XC:*COMPILE-FILE-PATHNAME*) ; x-compiling (DEFVAR SB-XC:*COMPILE-FILE-TRUENAME*) ; x-compiling (DEFVAR SB-XC:*COMPILE-PRINT*) ; x-compiling (DEFVAR SB-XC:*COMPILE-VERBOSE*) ; x-compiling (DEF!TYPE LAYOUT-DEPTHOID ...) ; x-compiling (DEFTYPE INLINEP ...) ; x-compiling (DEFPARAMETER *INLINEP-TRANSLATIONS* ...) ; x-compiling (DEFVAR *LEXENV*) ; x-compiling (DECLAIM (TYPE LEXENV ...)) ; x-compiling (DEFVAR *FREE-VARS*) ; x-compiling (DEFVAR *FREE-FUNS*) ; x-compiling (DECLAIM (TYPE HASH-TABLE ...)) ; x-compiling (DEFVAR *CONSTANTS*) ; x-compiling (DECLAIM (TYPE HASH-TABLE ...)) ; x-compiling (DEFVAR *ALLOW-INSTRUMENTING*) ; x-compiling (DEFVAR *CODE-SEGMENT*) ; x-compiling (DEFVAR *COMPONENT-BEING-COMPILED*) ; x-compiling (DEFVAR *COMPILER-ERROR-CONTEXT*) ; x-compiling (DEFVAR *COMPILER-ERROR-COUNT*) ; x-compiling (DEFVAR *COMPILER-WARNING-COUNT*) ; x-compiling (DEFVAR *COMPILER-STYLE-WARNING-COUNT*) ; x-compiling (DEFVAR *COMPILER-NOTE-COUNT*) ; x-compiling (DEFVAR *COMPILER-TRACE-OUTPUT*) ; x-compiling (DEFVAR *CONSTRAINT-UNIVERSE*) ; x-compiling (DEFVAR *CURRENT-PATH*) ; x-compiling (DEFVAR *CURRENT-COMPONENT*) ; x-compiling (DEFVAR *DELAYED-IR1-TRANSFORMS*) ; x-compiling (DEFVAR *EVAL-TLF-INDEX*) ; x-compiling (DEFVAR *HANDLED-CONDITIONS*) ; x-compiling (DEFVAR *DISABLED-PACKAGE-LOCKS*) ; x-compiling (DEFVAR *POLICY*) ; x-compiling (DEFVAR *MACRO-POLICY* ...) ; x-compiling (DEFVAR *DYNAMIC-COUNTS-TN*) ; x-compiling (DEFVAR *ELSEWHERE*) ; x-compiling (DEFVAR *EVENT-INFO*) ; x-compiling (DEFVAR *EVENT-NOTE-THRESHOLD*) ; x-compiling (DEFVAR *FAILURE-P*) ; x-compiling (DEFVAR *FIXUP-NOTES*) ; x-compiling (DEFVAR *CONSTANT-SEGMENT*) ; x-compiling (DEFVAR *CONSTANT-TABLE*) ; x-compiling (DEFVAR *CONSTANT-VECTOR*) ; x-compiling (DEFVAR *LEXENV*) ; x-compiling (DEFVAR *SOURCE-INFO*) ; x-compiling (DEFVAR *SOURCE-PLIST*) ; x-compiling (DEFVAR *SOURCE-NAMESTRING*) ; x-compiling (DEFVAR *UNDEFINED-WARNINGS*) ; x-compiling (DEFVAR *WARNINGS-P*) ; x-compiling (DEFVAR *LAMBDA-CONVERSIONS*) ; x-compiling (DEFVAR *STACK-ALLOCATE-DYNAMIC-EXTENT* ...) ; x-compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS) ; x-compiling (DEFGLOBAL **WORLD-LOCK** ...) ; x-compiling (!COLD-INIT-FORMS (SETF **WORLD-LOCK** ...)) ; x-compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !WORLD-LOCK-COLD-INIT) ; x-compiling (DEFMACRO WITH-WORLD-LOCK ...) ; x-compiling (DECLAIM (TYPE FIXNUM ...)) ; x-compiling (DEFVAR *COMPILER-SSET-COUNTER* ...) ; x-compiling (DEFVAR *OBJECT-ID-COUNTER* ...) ; x-compiling (DEFUN NEW-OBJECT-ID ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN NOTE-NAME-DEFINED ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN NOTE-LEXICAL-BINDING ...) ; x-compiling (DEF!STRUCT (DEBUG-NAME-MARKER # ...)) ; x-compiling (DEFVAR *DEBUG-NAME-LEVEL* ...) ; x-compiling (DEFVAR *DEBUG-NAME-LENGTH* ...) ; x-compiling (DEFVAR *DEBUG-NAME-PUNT*) ; x-compiling (DEFVAR *DEBUG-NAME-SHARP*) ; x-compiling (DEFVAR *DEBUG-NAME-ELLIPSIS*) ; x-compiling (DEFUN DUMP-DEBUG-NAME-MARKER ...) ; x-compiling (DEFUN PRINT-DEBUG-NAME-MARKER ...) ; x-compiling (SETF *DEBUG-NAME-SHARP* ...) ; x-compiling (DEFUN DEBUG-NAME ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/early-c.lisp ; in: DEFGLOBAL **WORLD-LOCK** ; (SB!EXT:DEFGLOBAL SB!C::**WORLD-LOCK** NIL) ; --> PROGN LET LET ; ==> ; (SB!IMPL::%DEFGLOBAL 'SB!C::**WORLD-LOCK** (UNLESS #:BOUNDP NIL) #:BOUNDP ; 'NIL NIL (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::%DEFGLOBAL ; in: ; DEF!STRUCT (DEBUG-NAME-MARKER (:MAKE-LOAD-FORM-FUN DUMP-DEBUG-NAME-MARKER) ; (:PRINT-FUNCTION PRINT-DEBUG-NAME-MARKER)) ; (SB!INT:DEF!STRUCT ; (SB!C::DEBUG-NAME-MARKER (:MAKE-LOAD-FORM-FUN SB!C::DUMP-DEBUG-NAME-MARKER) ; (:PRINT-FUNCTION SB!C::PRINT-DEBUG-NAME-MARKER))) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: DEFUN DEBUG-NAME ; (DEFUN SB!C::DEBUG-NAME (TYPE SB!C::THING &OPTIONAL SB!C::CONTEXT) ; (LET ((SB!C::*DEBUG-NAME-PUNT* NIL)) ; (LABELS ((SB!C::WALK # ; #)) ; (LET (#) ; (WHEN # #) ; SB!C::NAME)))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (TYPE SB!C::THING SB!C::CONTEXT) {B195539}> ; TYPE SB!C::THING 'NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN DUMP-DEBUG-NAME-MARKER ; (DEFUN SB!C::DUMP-DEBUG-NAME-MARKER (SB!C::MARKER &OPTIONAL SB!C::ENV) ; (DECLARE (IGNORE SB!C::ENV)) ; (COND ; ((EQ SB!C::MARKER SB!C::*DEBUG-NAME-SHARP*) ; (SB!INT:QUASIQUOTE ; (IF # ; SB!C::*DEBUG-NAME-SHARP* ; #))) ; ((EQ SB!C::MARKER SB!C::*DEBUG-NAME-ELLIPSIS*) ; (SB!INT:QUASIQUOTE ; (IF # ; SB!C::*DEBUG-NAME-ELLIPSIS* ; #))) ; (T (WARN "Dumping unknown debug-name marker.") ; '(SB!C::MAKE-DEBUG-NAME-MARKER)))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!C::MARKER SB!C::ENV) {B0EC999}> ; SB!C::MARKER 'NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: ; DEF!STRUCT (DEBUG-NAME-MARKER (:MAKE-LOAD-FORM-FUN DUMP-DEBUG-NAME-MARKER) ; (:PRINT-FUNCTION PRINT-DEBUG-NAME-MARKER)) ; (SB!INT:DEF!STRUCT ; (SB!C::DEBUG-NAME-MARKER (:MAKE-LOAD-FORM-FUN SB!C::DUMP-DEBUG-NAME-MARKER) ; (:PRINT-FUNCTION SB!C::PRINT-DEBUG-NAME-MARKER))) ; --> PROGN DEFSTRUCT PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN ; --> SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS NIL {E47B8A1}>)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: !DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !WORLD-LOCK-COLD-INIT ; (SB!INT:!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS SB!KERNEL:!WORLD-LOCK-COLD-INIT) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK SETF SETQ THE ; ==> ; (SB!THREAD:MAKE-MUTEX :NAME "World Lock") ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD:MAKE-MUTEX ; in: DEFUN DEBUG-NAME ; (SB!C::NAME-CONTEXT) ; ; caught STYLE-WARNING: ; undefined function: NAME-CONTEXT ; in: DEFUN NOTE-NAME-DEFINED ; (SB!C::UNDEFINED-WARNING-KIND SB!C::X) ; ; caught STYLE-WARNING: ; undefined function: UNDEFINED-WARNING-KIND ; (SB!C::UNDEFINED-WARNING-NAME SB!C::X) ; ; caught STYLE-WARNING: ; undefined function: UNDEFINED-WARNING-NAME ; ; compilation unit finished ; Undefined type: ; CODE-DELETION-NOTE ; Undefined functions: ; SB!IMPL::%DEFGLOBAL SB!KERNEL::%TARGET-DEFSTRUCT SB!THREAD:MAKE-MUTEX NAME-CONTEXT UNDEFINED-WARNING-KIND UNDEFINED-WARNING-NAME ; caught 9 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/early-c.lisp-obj-tmp written ; compilation finished in 0:00:00.144 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/policy.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEF!TYPE POLICY-QUALITY ...) ; x-compiling (DEFVAR *POLICY-RESTRICTIONS* ...) ; x-compiling (DEFUN RESTRICT-COMPILER-POLICY ...) ; x-compiling (DEF!TYPE POLICY ...) ; x-compiling (DEFSTRUCT POLICY-DEPENDENT-QUALITY ...) ; x-compiling (DEFVAR *POLICY-QUALITIES*) ; x-compiling (DEFVAR *POLICY-DEPENDENT-QUALITIES* ...) ; x-compiling (DEFUN POLICY-QUALITY-NAME-P ...) ; x-compiling (DEFUN POLICY-QUALITY-DEPRECATION-WARNING ...) ; x-compiling (DECLAIM (TYPE POLICY ...)) ; x-compiling (DEFVAR *POLICY*) ; x-compiling (DEFUN SORT-POLICY ...) ; x-compiling (DEFUN !POLICY-COLD-INIT-OR-RESANIFY ...) ; x-compiling (DEFUN POLICY-QUALITY ...) ; x-compiling (DEFUN %POLICY-QUALITY ...) ; x-compiling (DEFMACRO POLICY ...) ; x-compiling (DEFMACRO DEFINE-OPTIMIZATION-QUALITY ...) ; x-compiling (DEFUN SET-MACRO-POLICY ...) ; x-compiling (DEFUN MACRO-POLICY-DECLS ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/policy.lisp ; in: DEFSTRUCT POLICY-DEPENDENT-QUALITY ; (DEFSTRUCT SB!C::POLICY-DEPENDENT-QUALITY ; SB!C::NAME ; SB!C::EXPRESSION ; SB!C::GETTER ; SB!C::VALUES-DOCUMENTATION) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:.DEFAULTING-TEMP. #:.DEFAULTING-TEMP. #:.DEFAULTING-TEMP. ; #:.DEFAULTING-TEMP.) ; {B51DEE1}> ; NIL NIL NIL NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN RESTRICT-COMPILER-POLICY ; (ASSOC SB!C::QUALITY SB!C::*POLICY-RESTRICTIONS*) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; (DEFUN SB!EXT:RESTRICT-COMPILER-POLICY (&OPTIONAL SB!C::QUALITY (MIN 0)) ; "Assign a minimum value to an optimization quality. QUALITY is the name of ; the optimization quality to restrict, and MIN (defaulting to zero) is the ; minimum allowed value. ; ; Returns the alist describing the current policy restrictions. ; ; If QUALITY is NIL or not given, nothing is done. ; ; Otherwise, if MIN is zero or not given, any existing restrictions of QUALITY ; are removed. If MIN is between one and three inclusive, it becomes the new ; minimum value for the optimization quality: any future proclamations or ; declarations of the quality with a value less then MIN behave as if the value ; was MIN instead. ; ; This is intended to be used interactively, to facilitate recompiling large ; bodies of code with eg. a known minimum safety. ; ; See also :POLICY option in WITH-COMPILATION-UNIT. ; ; EXPERIMENTAL INTERFACE: Subject to change." ; (DECLARE (TYPE SB!C::POLICY-QUALITY MIN)) ; (WHEN SB!C::QUALITY ; (SB!INT:AVER (SB!C::POLICY-QUALITY-NAME-P SB!C::QUALITY)) ; (IF (ZEROP MIN) ; (SETF SB!C::*POLICY-RESTRICTIONS* #) ; (LET (#) ; (IF SB!C::CELL ; # ; #)))) ; SB!C::*POLICY-RESTRICTIONS*) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!C::QUALITY MIN) {B31D9B1}> ; SB!C::QUALITY '0)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 4 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/policy.lisp ; in: DEFUN MACRO-POLICY-DECLS ; (SB!INT:QUASIQUOTE ; (OPTIMIZE ; #S(SB!IMPL::COMMA ; :EXPR (MAPCAR (LAMBDA # #) SB!C::*MACRO-POLICY*) ; :KIND 2))) ; --> SB!IMPL::|List*| MAPCAR LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFMACRO POLICY ; (MAPCAR ; (LAMBDA (SB!C::NAME) ; (SB!INT:QUASIQUOTE ; (#S(SB!IMPL::COMMA :EXPR SB!C::NAME :KIND 0) ; (SB!C::POLICY-QUALITY # '#)))) ; SB!C::*POLICY-QUALITIES*) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN !POLICY-COLD-INIT-OR-RESANIFY ; (MAPCAR (LAMBDA (SB!C::NAME) (CONS SB!C::NAME 1)) SB!C::*POLICY-QUALITIES*) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN SET-MACRO-POLICY ; (SB!C::PROCESS-OPTIMIZE-DECL ; (SB!INT:QUASIQUOTE (OPTIMIZE #S(SB!IMPL::COMMA :EXPR LIST :KIND 2))) NIL) ; ; caught STYLE-WARNING: ; undefined function: PROCESS-OPTIMIZE-DECL ; ; compilation unit finished ; Undefined types: ; CODE-DELETION-NOTE COMPILER-NOTE ; Undefined functions: ; SB!KERNEL::%TARGET-DEFSTRUCT PROCESS-OPTIMIZE-DECL ; caught 9 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/policy.lisp-obj-tmp written ; compilation finished in 0:00:00.116 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/policies.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFINE-OPTIMIZATION-QUALITY CHECK-CONSTANT-MODIFICATION ...) ; x-compiling (DEFINE-OPTIMIZATION-QUALITY TYPE-CHECK ...) ; x-compiling (DEFINE-OPTIMIZATION-QUALITY CHECK-TAG-EXISTENCE ...) ; x-compiling (DEFINE-OPTIMIZATION-QUALITY LET-CONVERSION ...) ; x-compiling (DEFINE-OPTIMIZATION-QUALITY ALIEN-FUNCALL-SAVES-FP-AND-PC ...) ; x-compiling (DEFINE-OPTIMIZATION-QUALITY VERIFY-ARG-COUNT ...) ; x-compiling (DEFINE-OPTIMIZATION-QUALITY INSERT-DEBUG-CATCH ...) ; x-compiling (DEFINE-OPTIMIZATION-QUALITY RECOGNIZE-SELF-CALLS ...) ; x-compiling (DEFINE-OPTIMIZATION-QUALITY FLOAT-ACCURACY ...) ; x-compiling (DEFINE-OPTIMIZATION-QUALITY INSERT-STEP-CONDITIONS ...) ; x-compiling (DEFINE-OPTIMIZATION-QUALITY COMPUTE-DEBUG-FUN ...) ; x-compiling (DEFINE-OPTIMIZATION-QUALITY PRESERVE-SINGLE-USE-DEBUG-VARIABLES ...) ; x-compiling (DEFINE-OPTIMIZATION-QUALITY INSERT-ARRAY-BOUNDS-CHECKS ...) ; x-compiling (DEFINE-OPTIMIZATION-QUALITY STORE-XREF-DATA ...) ; x-compiling (DEFINE-OPTIMIZATION-QUALITY STORE-COVERAGE-DATA ...) ; x-compiling (DEFINE-OPTIMIZATION-QUALITY STORE-CLOSURE-DEBUG-POINTER ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/policies.lisp ; in: DEFINE-OPTIMIZATION-QUALITY CHECK-TAG-EXISTENCE ; (SB!C::DEFINE-OPTIMIZATION-QUALITY SB!C::CHECK-TAG-EXISTENCE ; (COND ((= SAFETY 0) 0) (T 3)) ; ("no" "maybe" "yes" "yes") ; "Control whether GO and RETURN-FROM check liveness of the destination tag. ; Enabling this option can increase heap consing of closures.") ; --> EVAL-WHEN LET LET SB!C::MAKE-POLICY-DEPENDENT-QUALITY LAMBDA FUNCTION ; --> SB!C:POLICY LET* ; ==> ; (SB!C::%COERCE-TO-POLICY SB!C:POLICY) ; ; caught STYLE-WARNING: ; undefined function: %COERCE-TO-POLICY ; in: DEFINE-OPTIMIZATION-QUALITY TYPE-CHECK ; (SB!C::DEFINE-OPTIMIZATION-QUALITY SB!C::TYPE-CHECK ; (COND ((= SAFETY 0) 0) ; ((AND (< SAFETY 2) (< SAFETY SPEED)) ; 2) ; (T 3)) ; ("no" "maybe" "weak" "full") ; "Control the way to perform runtime type checking: ; 0: declared types are simply trusted; no runtime checks are performed; ; 2: fast checks are performed: declared types are weakened to ; FIXNUM/SINGLE-FLOAT/FLOAT/NUMBER/structure/specialized array etc.; ; 3: declared types are fully checked (several exceptions exist; ; see \"SBCL User Manual\", Compiler->Handling of Types-> ; Implementation Limitations for details).") ; --> EVAL-WHEN LET LET SB!C::MAKE-POLICY-DEPENDENT-QUALITY LAMBDA FUNCTION ; --> SB!C:POLICY LET* ; ==> ; (SB!C::%COERCE-TO-POLICY SB!C:POLICY) ; ; caught STYLE-WARNING: ; undefined function: %COERCE-TO-POLICY ; in: DEFINE-OPTIMIZATION-QUALITY CHECK-CONSTANT-MODIFICATION ; (SB!C::DEFINE-OPTIMIZATION-QUALITY SB!C::CHECK-CONSTANT-MODIFICATION SAFETY ; ("no" "maybe" "yes" "yes") ; "Control whether the compiler should check for constant ; modification. Defaults to SAFETY.") ; --> EVAL-WHEN LET LET SB!C::MAKE-POLICY-DEPENDENT-QUALITY LAMBDA FUNCTION ; --> SB!C:POLICY LET* ; ==> ; (SB!C::%COERCE-TO-POLICY SB!C:POLICY) ; ; caught STYLE-WARNING: ; undefined function: %COERCE-TO-POLICY ; ; caught STYLE-WARNING: ; 13 more uses of undefined function %COERCE-TO-POLICY ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/policies.lisp ; in: DEFINE-OPTIMIZATION-QUALITY CHECK-TAG-EXISTENCE ; (SB!C::DEFINE-OPTIMIZATION-QUALITY SB!C::CHECK-TAG-EXISTENCE ; (COND ((= SAFETY 0) 0) (T 3)) ; ("no" "maybe" "yes" "yes") ; "Control whether GO and RETURN-FROM check liveness of the destination tag. ; Enabling this option can increase heap consing of closures.") ; --> EVAL-WHEN SETF LET* LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!KERNEL:FDOCUMENTATION) #:NEW62 ; 'SB!C::CHECK-TAG-EXISTENCE 'OPTIMIZE) ; ; caught STYLE-WARNING: ; undefined function: (SETF FDOCUMENTATION) ; in: DEFINE-OPTIMIZATION-QUALITY TYPE-CHECK ; (SB!C::DEFINE-OPTIMIZATION-QUALITY SB!C::TYPE-CHECK ; (COND ((= SAFETY 0) 0) ; ((AND (< SAFETY 2) (< SAFETY SPEED)) ; 2) ; (T 3)) ; ("no" "maybe" "weak" "full") ; "Control the way to perform runtime type checking: ; 0: declared types are simply trusted; no runtime checks are performed; ; 2: fast checks are performed: declared types are weakened to ; FIXNUM/SINGLE-FLOAT/FLOAT/NUMBER/structure/specialized array etc.; ; 3: declared types are fully checked (several exceptions exist; ; see \"SBCL User Manual\", Compiler->Handling of Types-> ; Implementation Limitations for details).") ; --> EVAL-WHEN SETF LET* LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!KERNEL:FDOCUMENTATION) #:NEW41 'SB!C::TYPE-CHECK ; 'OPTIMIZE) ; ; caught STYLE-WARNING: ; undefined function: (SETF FDOCUMENTATION) ; in: DEFINE-OPTIMIZATION-QUALITY CHECK-CONSTANT-MODIFICATION ; (SB!C::DEFINE-OPTIMIZATION-QUALITY SB!C::CHECK-CONSTANT-MODIFICATION SAFETY ; ("no" "maybe" "yes" "yes") ; "Control whether the compiler should check for constant ; modification. Defaults to SAFETY.") ; --> EVAL-WHEN SETF LET* LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!KERNEL:FDOCUMENTATION) #:NEW20 ; 'SB!C::CHECK-CONSTANT-MODIFICATION 'OPTIMIZE) ; ; caught STYLE-WARNING: ; undefined function: (SETF FDOCUMENTATION) ; ; caught STYLE-WARNING: ; 6 more uses of undefined function (SETF FDOCUMENTATION) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/policies.lisp ; in: DEFINE-OPTIMIZATION-QUALITY CHECK-TAG-EXISTENCE ; (SB!C::DEFINE-OPTIMIZATION-QUALITY SB!C::CHECK-TAG-EXISTENCE ; (COND ((= SAFETY 0) 0) (T 3)) ; ("no" "maybe" "yes" "yes") ; "Control whether GO and RETURN-FROM check liveness of the destination tag. ; Enabling this option can increase heap consing of closures.") ; --> EVAL-WHEN LET LET ; ==> ; (ASSOC 'SB!C::CHECK-TAG-EXISTENCE SB!C::*POLICY-DEPENDENT-QUALITIES*) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFINE-OPTIMIZATION-QUALITY TYPE-CHECK ; (SB!C::DEFINE-OPTIMIZATION-QUALITY SB!C::TYPE-CHECK ; (COND ((= SAFETY 0) 0) ; ((AND (< SAFETY 2) (< SAFETY SPEED)) ; 2) ; (T 3)) ; ("no" "maybe" "weak" "full") ; "Control the way to perform runtime type checking: ; 0: declared types are simply trusted; no runtime checks are performed; ; 2: fast checks are performed: declared types are weakened to ; FIXNUM/SINGLE-FLOAT/FLOAT/NUMBER/structure/specialized array etc.; ; 3: declared types are fully checked (several exceptions exist; ; see \"SBCL User Manual\", Compiler->Handling of Types-> ; Implementation Limitations for details).") ; --> EVAL-WHEN LET LET ; ==> ; (ASSOC 'SB!C::TYPE-CHECK SB!C::*POLICY-DEPENDENT-QUALITIES*) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFINE-OPTIMIZATION-QUALITY CHECK-CONSTANT-MODIFICATION ; (SB!C::DEFINE-OPTIMIZATION-QUALITY SB!C::CHECK-CONSTANT-MODIFICATION SAFETY ; ("no" "maybe" "yes" "yes") ; "Control whether the compiler should check for constant ; modification. Defaults to SAFETY.") ; --> EVAL-WHEN LET LET ; ==> ; (ASSOC 'SB!C::CHECK-CONSTANT-MODIFICATION SB!C::*POLICY-DEPENDENT-QUALITIES*) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 26 more uses of undefined type CODE-DELETION-NOTE ; ; compilation unit finished ; Undefined type: ; CODE-DELETION-NOTE ; Undefined functions: ; %COERCE-TO-POLICY (SETF FDOCUMENTATION) ; caught 12 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/policies.lisp-obj-tmp written ; compilation finished in 0:00:00.183 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/macros.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DECLAIM (SPECIAL *COMPILER-ERROR-CONTEXT*)) ; x-compiling (DEFMACRO DEF-IR1-TRANSLATOR ...) ; x-compiling (DEFMACRO DEFINE-SOURCE-TRANSFORM ...) ; x-compiling (DEFTYPE ATTRIBUTES ...) ; x-compiling (DEFUN COMPUTE-ATTRIBUTE-MASK ...) ; x-compiling (DEFMACRO ATTRIBUTES-UNION ...) ; x-compiling (DEFMACRO ATTRIBUTES-INTERSECTION ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DECLAIM (INLINE ATTRIBUTES=)) ; x-compiling (DEFUN ATTRIBUTES= ...) ; x-compiling (DEFUN PARSE-DEFTRANSFORM ...) ; x-compiling (DEFMACRO DEFTRANSFORM ...) ; x-compiling (DEFMACRO DEFKNOWN ...) ; x-compiling (DEFMACRO DEFOPTIMIZER ...) ; x-compiling (DEFMACRO DO-BLOCKS ...) ; x-compiling (DEFMACRO DO-BLOCKS-BACKWARDS ...) ; x-compiling (DEFMACRO DO-USES ...) ; x-compiling (DEFMACRO DO-NODES ...) ; x-compiling (DEFMACRO DO-NODES-BACKWARDS ...) ; x-compiling (DEFMACRO DO-NODES-CAREFULLY ...) ; x-compiling (DEFMACRO DO-NESTED-CLEANUPS ...) ; x-compiling (DEFMACRO WITH-IR1-ENVIRONMENT-FROM-NODE ...) ; x-compiling (DEFUN %WITH-IR1-ENVIRONMENT-FROM-NODE ...) ; x-compiling (DEFMACRO WITH-SOURCE-PATHS ...) ; x-compiling (DEFMACRO WITH-IR1-NAMESPACE ...) ; x-compiling (DEFMACRO LEXENV-FIND ...) ; x-compiling (DEFMACRO WITH-COMPONENT-LAST-BLOCK ...) ; x-compiling (DEFSTRUCT (EVENT-INFO #) ...) ; x-compiling (DEFVAR *EVENT-INFO* ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN EVENT-INFO-OR-LOSE ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN EVENT-COUNT ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN EVENT-ACTION ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN %SET-EVENT-ACTION ...) ; x-compiling (DEFSETF EVENT-ACTION ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN EVENT-LEVEL ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN %SET-EVENT-LEVEL ...) ; x-compiling (DEFSETF EVENT-LEVEL ...) ; x-compiling (DEFMACRO DEFEVENT ...) ; x-compiling (DECLAIM (TYPE UNSIGNED-BYTE ...)) ; x-compiling (DEFVAR *EVENT-NOTE-THRESHOLD* ...) ; x-compiling (DEFMACRO EVENT ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN EVENT-STATISTICS ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN CLEAR-EVENT-STATISTICS ...) ; x-compiling (DECLAIM (INLINE FIND-IN ...)) ; x-compiling (DEFUN FIND-IN ...) ; x-compiling (DEFUN POSITION-IN ...) ; x-compiling (DEF!MACRO DELETEF-IN ...) ; x-compiling (DEF!MACRO PUSH-IN ...) ; x-compiling (DEFMACRO POSITION-OR-LOSE ...) ; x-compiling (DEFVAR *COMPILER-PRINT-VARIABLE-ALIST* ...) ; x-compiling (DEFMACRO WITH-COMPILER-IO-SYNTAX ...) ; x-compiling (DEFMACRO COMPILER-DESTRUCTURING-BIND ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/macros.lisp ; in: DEFSTRUCT EVENT-INFO ; (DEFSTRUCT (SB!C::EVENT-INFO (:COPIER NIL)) ; (SB!C::NAME (SB!INT:MISSING-ARG) :TYPE SYMBOL) ; (SB!C::DESCRIPTION (SB!INT:MISSING-ARG) :TYPE STRING) ; (SB!C::VAR (SB!INT:MISSING-ARG) :TYPE SYMBOL) ; (COUNT 0 :TYPE FIXNUM) ; (SB!C::LEVEL (SB!INT:MISSING-ARG) :TYPE UNSIGNED-BYTE) ; (SB!C::ACTION NIL :TYPE (OR FUNCTION NULL))) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: DEFSETF EVENT-LEVEL ; (DEFSETF SB!C::EVENT-LEVEL SB!C::%SET-EVENT-LEVEL) ; --> EVAL-WHEN SB!IMPL::ASSIGN-SETF-MACRO ; ==> ; (SB!IMPL::ASSIGN-SETF-MACRO 'SB!C::EVENT-LEVEL NIL NIL ; 'SB!C::%SET-EVENT-LEVEL NIL) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::ASSIGN-SETF-MACRO ; in: DEFSETF EVENT-ACTION ; (DEFSETF SB!C::EVENT-ACTION SB!C::%SET-EVENT-ACTION) ; --> EVAL-WHEN SB!IMPL::ASSIGN-SETF-MACRO ; ==> ; (SB!IMPL::ASSIGN-SETF-MACRO 'SB!C::EVENT-ACTION NIL NIL ; 'SB!C::%SET-EVENT-ACTION NIL) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::ASSIGN-SETF-MACRO ; in: DEFUN %WITH-IR1-ENVIRONMENT-FROM-NODE ; (SB!C::AVER-LIVE-COMPONENT SB!C::*CURRENT-COMPONENT*) ; ; caught STYLE-WARNING: ; undefined function: AVER-LIVE-COMPONENT ; in: DEFUN COMPUTE-ATTRIBUTE-MASK ; (ASSOC SB!C::NAME SB!C::ALIST) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFMACRO DEFINE-SOURCE-TRANSFORM ; (MULTIPLE-VALUE-BIND (SB!C::BODY SB!C::DECLS) ; (SB!KERNEL:PARSE-DEFMACRO SB!C::LAMBDA-LIST SB!C::WHOLE-VAR SB!C::BODY ; "source transform" "form" :ENVIRONMENT ; SB!C::N-ENV :ERROR-FUN ; (SB!INT:QUASIQUOTE ; (LAMBDA (&REST SB!C::STUFF) ; (DECLARE #) ; (RETURN-FROM # #))) ; :WRAP-BLOCK NIL) ; (SB!INT:QUASIQUOTE ; (SETF (SB!INT:INFO :FUNCTION :SOURCE-TRANSFORM '#) (LAMBDA # # #)))) ; --> MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!C::BODY SB!C::DECLS #:G99) {E0E8289}> ; SB!C::BODY SB!C::DECLS NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFMACRO DEF-IR1-TRANSLATOR ; (MULTIPLE-VALUE-BIND (SB!C::BODY SB!C::DECLS SB!C::DOC) ; (SB!KERNEL:PARSE-DEFMACRO SB!C::LAMBDA-LIST SB!C::WHOLE-VAR SB!C::BODY ; SB!C::NAME "special form" :ENVIRONMENT ; SB!C::N-ENV :ERROR-FUN 'SB!C:COMPILER-ERROR ; :WRAP-BLOCK NIL) ; (SB!INT:QUASIQUOTE ; (PROGN ; (DECLAIM (FTYPE # #)) ; (DEFUN #S(SB!IMPL::COMMA :EXPR SB!C::FN-NAME :KIND 0) (# # # # &AUX #) ; (DECLARE #) ; #S(SB!IMPL::COMMA :EXPR SB!C::DECLS :KIND 2) ; #S(SB!IMPL::COMMA :EXPR SB!C::BODY :KIND 0) ; (VALUES)) ; (LET (#) ; (SETF #)) ; (SETF # #'#) ; (SETF # :SPECIAL-FORM) ; '#S(SB!IMPL::COMMA :EXPR SB!C::NAME :KIND 0)))) ; --> MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!C::BODY SB!C::DECLS SB!C::DOC #:G2) {D8A32B9}> ; SB!C::BODY SB!C::DECLS SB!C::DOC NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 54 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/macros.lisp ; in: DEFUN PARSE-DEFTRANSFORM ; (SB!INT:QUASIQUOTE ; (#S(SB!IMPL::COMMA :EXPR (POP SB!C::DUMMIES) :KIND 0) ; (UNLESS ; (AND #S(SB!IMPL::COMMA :EXPR # :KIND 2) ; #S(SB!IMPL::COMMA :EXPR # :KIND 2) ; #S(SB!IMPL::COMMA :EXPR # :KIND 2)) ; #S(SB!IMPL::COMMA :EXPR SB!C::ERROR-FORM :KIND 0)))) ; --> SB!IMPL::|List| SB!IMPL::|List| SB!IMPL::|List*| SB!IMPL::|Append| IF IF ; --> SB!INT:QUASIQUOTE SB!IMPL::|List| SB!IMPL::|List| SB!IMPL::|List| MAPCAR ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFMACRO ATTRIBUTES-INTERSECTION ; (SB!INT:QUASIQUOTE ; (THE SB!C:ATTRIBUTES ; (LOGAND #S(SB!IMPL::COMMA :EXPR (MAPCAR # SB!C:ATTRIBUTES) :KIND 2)))) ; --> SB!IMPL::|List| SB!IMPL::|List*| MAPCAR LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFMACRO ATTRIBUTES-UNION ; (SB!INT:QUASIQUOTE ; (THE SB!C:ATTRIBUTES ; (LOGIOR #S(SB!IMPL::COMMA :EXPR (MAPCAR # SB!C:ATTRIBUTES) :KIND 2)))) ; --> SB!IMPL::|List| SB!IMPL::|List*| MAPCAR LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; ; caught STYLE-WARNING: ; 8 more uses of undefined type COMPILER-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/macros.lisp ; in: DEF!MACRO PUSH-IN ; (GET-SETF-EXPANSION SB!C::PLACE SB!C::ENV) ; ; caught STYLE-WARNING: ; undefined function: GET-SETF-EXPANSION ; in: DEF!MACRO DELETEF-IN ; (GET-SETF-EXPANSION SB!C::PLACE SB!C::ENV) ; ; caught STYLE-WARNING: ; undefined function: GET-SETF-EXPANSION ; in: DEFUN %WITH-IR1-ENVIRONMENT-FROM-NODE ; (SB!C::NODE-COMPONENT SB!C::NODE) ; ; caught STYLE-WARNING: ; undefined function: NODE-COMPONENT ; (SB!C::NODE-LEXENV SB!C::NODE) ; ; caught STYLE-WARNING: ; undefined function: NODE-LEXENV ; (SB!C::NODE-SOURCE-PATH SB!C::NODE) ; ; caught STYLE-WARNING: ; undefined function: NODE-SOURCE-PATH ; in: DEFUN PARSE-DEFTRANSFORM ; (SB!INT:PARSE-LAMBDA-LIST SB!C::LAMBDA-LIST) ; ; caught STYLE-WARNING: ; undefined function: PARSE-LAMBDA-LIST ; ; compilation unit finished ; Undefined types: ; CODE-DELETION-NOTE COMPILER-NOTE ; Undefined functions: ; SB!KERNEL::%TARGET-DEFSTRUCT SB!IMPL::ASSIGN-SETF-MACRO AVER-LIVE-COMPONENT GET-SETF-EXPANSION NODE-COMPONENT NODE-LEXENV NODE-SOURCE-PATH PARSE-LAMBDA-LIST ; caught 18 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/macros.lisp-obj-tmp written ; compilation finished in 0:00:00.529 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/vm-macs.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFMACRO PAD-DATA-BLOCK ...) ; x-compiling (DEFUN REMOVE-KEYWORDS ...) ; x-compiling (DEF!STRUCT (PRIM-OBJECT-SLOT # ...) ...) ; x-compiling (DEF!STRUCT (PRIMITIVE-OBJECT #) ...) ; x-compiling (DEFVAR *PRIMITIVE-OBJECTS* ...) ; x-compiling (DEFUN !%DEFINE-PRIMITIVE-OBJECT ...) ; x-compiling (DEFVAR *!LATE-PRIMITIVE-OBJECT-FORMS* ...) ; x-compiling (DEFMACRO !DEFINE-PRIMITIVE-OBJECT ...) ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFMACRO DEF-REFFER ...) ; x-compiling (DEFMACRO DEF-SETTER ...) ; x-compiling (DEFMACRO DEF-ALLOC ...) ; x-compiling (DEFMACRO DEF-CASSER ...) ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEF!CONSTANT SC-NUMBER-LIMIT ...) ; x-compiling (DEFSTRUCT MODULAR-CLASS ...) ; x-compiling (DEFVAR *UNTAGGED-UNSIGNED-MODULAR-CLASS* ...) ; x-compiling (DEFVAR *UNTAGGED-SIGNED-MODULAR-CLASS* ...) ; x-compiling (DEFVAR *TAGGED-MODULAR-CLASS* ...) ; x-compiling (DEFUN FIND-MODULAR-CLASS ...) ; x-compiling (DEFSTRUCT MODULAR-FUN-INFO ...) ; x-compiling (DEFUN FIND-MODULAR-VERSION ...) ; x-compiling (DEFUN MODULAR-VERSION-INFO ...) ; x-compiling (DEFUN %DEFINE-MODULAR-FUN ...) ; x-compiling (DEFMACRO DEFINE-MODULAR-FUN ...) ; x-compiling (DEFUN %DEFINE-GOOD-MODULAR-FUN ...) ; x-compiling (DEFMACRO DEFINE-GOOD-MODULAR-FUN ...) ; x-compiling (DEFMACRO DEFINE-MODULAR-FUN-OPTIMIZER ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/vm-macs.lisp ; in: DEFSTRUCT MODULAR-CLASS ; (DEFSTRUCT SB!C::MODULAR-CLASS ; (SB!C::FUNS (MAKE-HASH-TABLE :TEST 'EQ)) ; (SB!C::VERSIONS (MAKE-HASH-TABLE :TEST 'EQ)) ; (SB!C::WIDTHS NIL)) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: ; DEF!STRUCT (SB!VM:PRIMITIVE-OBJECT (:MAKE-LOAD-FORM-FUN JUST-DUMP-IT-NORMALLY)) ; (SB!INT:DEF!STRUCT ; (SB!VM:PRIMITIVE-OBJECT ; (:MAKE-LOAD-FORM-FUN SB!KERNEL:JUST-DUMP-IT-NORMALLY)) ; (SB!VM::NAME NIL :TYPE SYMBOL) (SB!VM::WIDETAG NIL :TYPE SYMBOL) ; (SB!VM::LOWTAG NIL :TYPE SYMBOL) (SB!VM::OPTIONS NIL :TYPE LIST) ; (SB!VM::SLOTS NIL :TYPE LIST) (SB!VM::SIZE 0 :TYPE FIXNUM) ; (SB!VM::VARIABLE-LENGTH-P NIL :TYPE (MEMBER T NIL))) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: ; DEF!STRUCT (SB!VM::PRIM-OBJECT-SLOT ; (:CONSTRUCTOR SB!VM::MAKE-SLOT ; (SB!VM::NAME SB!VM::DOCS SB!VM::REST-P SB!VM::OFFSET SPECIAL ; ...)) ; (:MAKE-LOAD-FORM-FUN JUST-DUMP-IT-NORMALLY) ; (:CONC-NAME SB!VM::SLOT-)) ; (SB!INT:DEF!STRUCT ; (SB!VM::PRIM-OBJECT-SLOT ; (:CONSTRUCTOR SB!VM::MAKE-SLOT ; (SB!VM::NAME SB!VM::DOCS SB!VM::REST-P SB!VM::OFFSET SPECIAL ; SB!VM::OPTIONS)) ; (:MAKE-LOAD-FORM-FUN SB!KERNEL:JUST-DUMP-IT-NORMALLY) ; (:CONC-NAME SB!VM::SLOT-)) ; (SB!VM::NAME NIL :TYPE SYMBOL) ; (SB!VM::DOCS NIL :TYPE (OR NULL SIMPLE-STRING)) ; (SB!VM::REST-P NIL :TYPE (MEMBER T NIL)) (SB!VM::OFFSET 0 :TYPE FIXNUM) ; (SB!VM::OPTIONS NIL :TYPE LIST) (SPECIAL NIL :TYPE SYMBOL)) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; ; caught STYLE-WARNING: ; 1 more use of undefined function SB!KERNEL::%TARGET-DEFSTRUCT ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/vm-macs.lisp ; in: ; DEF!STRUCT (SB!VM:PRIMITIVE-OBJECT (:MAKE-LOAD-FORM-FUN JUST-DUMP-IT-NORMALLY)) ; (SB!INT:DEF!STRUCT ; (SB!VM:PRIMITIVE-OBJECT ; (:MAKE-LOAD-FORM-FUN SB!KERNEL:JUST-DUMP-IT-NORMALLY)) ; (SB!VM::NAME NIL :TYPE SYMBOL) (SB!VM::WIDETAG NIL :TYPE SYMBOL) ; (SB!VM::LOWTAG NIL :TYPE SYMBOL) (SB!VM::OPTIONS NIL :TYPE LIST) ; (SB!VM::SLOTS NIL :TYPE LIST) (SB!VM::SIZE 0 :TYPE FIXNUM) ; (SB!VM::VARIABLE-LENGTH-P NIL :TYPE (MEMBER T NIL))) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL::DELAY-DEFSTRUCT-FUNCTIONS PROGN DEFUN ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK ; --> SETF SB!KERNEL:%INSTANCE-SET THE MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP ; --> LET SB!C::%TYPEP-WRAPPER IF ; ==> ; (MEMBER #:OBJECT35195 '(T NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: ; DEF!STRUCT (SB!VM::PRIM-OBJECT-SLOT ; (:CONSTRUCTOR SB!VM::MAKE-SLOT ; (SB!VM::NAME SB!VM::DOCS SB!VM::REST-P SB!VM::OFFSET SPECIAL ; ...)) ; (:MAKE-LOAD-FORM-FUN JUST-DUMP-IT-NORMALLY) ; (:CONC-NAME SB!VM::SLOT-)) ; (SB!INT:DEF!STRUCT ; (SB!VM::PRIM-OBJECT-SLOT ; (:CONSTRUCTOR SB!VM::MAKE-SLOT ; (SB!VM::NAME SB!VM::DOCS SB!VM::REST-P SB!VM::OFFSET SPECIAL ; SB!VM::OPTIONS)) ; (:MAKE-LOAD-FORM-FUN SB!KERNEL:JUST-DUMP-IT-NORMALLY) ; (:CONC-NAME SB!VM::SLOT-)) ; (SB!VM::NAME NIL :TYPE SYMBOL) ; (SB!VM::DOCS NIL :TYPE (OR NULL SIMPLE-STRING)) ; (SB!VM::REST-P NIL :TYPE (MEMBER T NIL)) (SB!VM::OFFSET 0 :TYPE FIXNUM) ; (SB!VM::OPTIONS NIL :TYPE LIST) (SPECIAL NIL :TYPE SYMBOL)) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL::DELAY-DEFSTRUCT-FUNCTIONS PROGN DEFUN ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK ; --> SETF SB!KERNEL:%INSTANCE-SET THE MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP ; --> LET SB!C::%TYPEP-WRAPPER IF ; ==> ; (MEMBER #:OBJECT35092 '(T NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN SB!VM::REMOVE-KEYWORDS ; (MEMBER (CAR SB!VM::OPTIONS) SB!VM::KEYWORDS) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 29 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/vm-macs.lisp ; in: DEFMACRO DEFINE-MODULAR-FUN ; (SB!INT:QUASIQUOTE ; (PROGN ; (SB!C::%DEFINE-MODULAR-FUN '#S(SB!IMPL::COMMA :EXPR SB!C::NAME :KIND 0) ; '#S(SB!IMPL::COMMA ; :EXPR SB!C::LAMBDA-LIST ; :KIND 0) ; '#S(SB!IMPL::COMMA ; :EXPR SB!C::PROTOTYPE ; :KIND 0) ; '#S(SB!IMPL::COMMA :EXPR SB!C::KIND :KIND 0) ; '#S(SB!IMPL::COMMA :EXPR SB!C::SIGNEDP :KIND 0) ; #S(SB!IMPL::COMMA :EXPR SB!C::WIDTH :KIND 0)) ; (SB!C:DEFKNOWN #S(SB!IMPL::COMMA :EXPR SB!C::NAME :KIND 0) ; #S(SB!IMPL::COMMA :EXPR (MAPCAR # SB!C::LAMBDA-LIST) :KIND 0) ; (#S(SB!IMPL::COMMA :EXPR # :KIND 0) ; #S(SB!IMPL::COMMA :EXPR SB!C::WIDTH :KIND 0)) ; (SB!C:FOLDABLE SB!ASSEM:FLUSHABLE SB!C:MOVABLE) ; :DERIVE-TYPE ; (SB!C::MAKE-MODULAR-FUN-TYPE-DERIVER ; '#S(SB!IMPL::COMMA :EXPR SB!C::PROTOTYPE :KIND 0) ; '#S(SB!IMPL::COMMA :EXPR SB!C::KIND :KIND 0) ; #S(SB!IMPL::COMMA :EXPR SB!C::WIDTH :KIND 0) ; '#S(SB!IMPL::COMMA :EXPR SB!C::SIGNEDP :KIND 0))))) ; --> SB!IMPL::|List| SB!IMPL::|List| MAPCAR LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; ; compilation unit finished ; Undefined types: ; CODE-DELETION-NOTE COMPILER-NOTE ; Undefined function: ; SB!KERNEL::%TARGET-DEFSTRUCT ; caught 9 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/generic/vm-macs.lisp-obj-tmp written ; compilation finished in 0:00:00.441 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/objdef.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (!DEFINE-PRIMITIVE-OBJECT (CONS :TYPE ...) ...) ; x-compiling (!DEFINE-PRIMITIVE-OBJECT (INSTANCE :LOWTAG ...) ...) ; x-compiling (!DEFINE-PRIMITIVE-OBJECT (BIGNUM :LOWTAG ...) ...) ; x-compiling (!DEFINE-PRIMITIVE-OBJECT (RATIO :TYPE ...) ...) ; x-compiling (!DEFINE-PRIMITIVE-OBJECT (SINGLE-FLOAT :LOWTAG ...) ...) ; x-compiling (!DEFINE-PRIMITIVE-OBJECT (DOUBLE-FLOAT :LOWTAG ...) ...) ; x-compiling (!DEFINE-PRIMITIVE-OBJECT (COMPLEX :TYPE ...) ...) ; x-compiling (!DEFINE-PRIMITIVE-OBJECT (ARRAY :LOWTAG ...) ...) ; x-compiling (!DEFINE-PRIMITIVE-OBJECT (VECTOR :TYPE ...) ...) ; x-compiling (!DEFINE-PRIMITIVE-OBJECT (CODE :TYPE ...) ...) ; x-compiling (!DEFINE-PRIMITIVE-OBJECT (FDEFN :TYPE ...) ...) ; x-compiling (!DEFINE-PRIMITIVE-OBJECT (SIMPLE-FUN :TYPE ...) ...) ; x-compiling (!DEFINE-PRIMITIVE-OBJECT (RETURN-PC :LOWTAG ...) ...) ; x-compiling (!DEFINE-PRIMITIVE-OBJECT (CLOSURE :LOWTAG ...) ...) ; x-compiling (!DEFINE-PRIMITIVE-OBJECT (FUNCALLABLE-INSTANCE :LOWTAG ...) ...) ; x-compiling (!DEFINE-PRIMITIVE-OBJECT (VALUE-CELL :LOWTAG ...) ...) ; x-compiling (!DEFINE-PRIMITIVE-OBJECT (SAP :LOWTAG ...) ...) ; x-compiling (!DEFINE-PRIMITIVE-OBJECT (WEAK-POINTER :TYPE ...) ...) ; x-compiling (!DEFINE-PRIMITIVE-OBJECT (BINDING) ...) ; x-compiling (!DEFINE-PRIMITIVE-OBJECT (UNWIND-BLOCK) ...) ; x-compiling (!DEFINE-PRIMITIVE-OBJECT (CATCH-BLOCK) ...) ; x-compiling (!DEFINE-PRIMITIVE-OBJECT (SYMBOL :LOWTAG ...) ...) ; x-compiling (!DEFINE-PRIMITIVE-OBJECT (COMPLEX-SINGLE-FLOAT :LOWTAG ...) ...) ; x-compiling (!DEFINE-PRIMITIVE-OBJECT (COMPLEX-DOUBLE-FLOAT :LOWTAG ...) ...) ; x-compiling (!DEFINE-PRIMITIVE-OBJECT (THREAD) ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/generic/objdef.lisp-obj-tmp written ; compilation finished in 0:00:00.119 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/sset.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEF!STRUCT (SSET-ELEMENT # ...) ...) ; x-compiling (DEFSTRUCT (SSET #) ...) ; x-compiling (DEFPRINTER (SSET) ...) ; x-compiling (DEFMACRO DO-SSET-ELEMENTS ...) ; x-compiling (DECLAIM (INLINE SSET-HASH1)) ; x-compiling (DEFUN SSET-HASH1 ...) ; x-compiling (DECLAIM (INLINE SSET-HASH2)) ; x-compiling (DEFUN SSET-HASH2 ...) ; x-compiling (DEFUN SSET-GROW ...) ; x-compiling (DEFCONSTANT +SSET-REHASH-THRESHOLD+ ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN SSET-ADJOIN ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN SSET-DELETE ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN SSET-MEMBER ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN SSET= ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN SSET-EMPTY ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN COPY-SSET ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN SSET-UNION ...) ; x-compiling (DEFUN SSET-INTERSECTION ...) ; x-compiling (DEFUN SSET-DIFFERENCE ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN SSET-UNION-OF-DIFFERENCE ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/sset.lisp ; in: DEFSTRUCT SSET ; (DEFSTRUCT (SB!ASSEM:SSET (:COPIER NIL)) ; (VECTOR #() :TYPE SIMPLE-VECTOR) ; (SB!C::FREE 0 :TYPE SB!INT:INDEX) ; (COUNT 0 :TYPE SB!INT:INDEX)) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: DEF!STRUCT (SSET-ELEMENT (:CONSTRUCTOR NIL) (:COPIER NIL)) ; (SB!INT:DEF!STRUCT (SB!ASSEM:SSET-ELEMENT (:CONSTRUCTOR NIL) (:COPIER NIL)) ; (NUMBER NIL :TYPE (OR SB!INT:INDEX NULL))) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: DEFUN SSET-ADJOIN ; (SETF (AREF VECTOR SB!C::DELETED-INDEX) SB!C::ELEMENT) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL SB!C::%FUNCALL (SETF AREF) ; --> SB!KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS SB!EXT:TRULY-THE ; ==> ; (SB!KERNEL:HAIRY-DATA-VECTOR-SET ARRAY ; (SB!KERNEL:%CHECK-BOUND ARRAY (ARRAY-DIMENSION ARRAY 0) SB!INT:INDEX) ; (THE T SB!C::NEW-VALUE)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN SSET-GROW ; (MEMBER SB!C::ELEMENT '(0 SB!C::+DELETED+)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFSTRUCT SSET ; (DEFSTRUCT (SB!ASSEM:SSET (:COPIER NIL)) ; (VECTOR #() :TYPE SIMPLE-VECTOR) ; (SB!C::FREE 0 :TYPE SB!INT:INDEX) ; (COUNT 0 :TYPE SB!INT:INDEX)) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:.DEFAULTING-TEMP. #:.DEFAULTING-TEMP. #:.DEFAULTING-TEMP.) ; {D0A4519}> ; #() 0 0)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 22 more uses of undefined type CODE-DELETION-NOTE ; ; compilation unit finished ; Undefined type: ; CODE-DELETION-NOTE ; Undefined function: ; SB!KERNEL::%TARGET-DEFSTRUCT ; caught 6 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/sset.lisp-obj-tmp written ; compilation finished in 0:00:00.289 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/node.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEF!STRUCT (CTRAN # ...) ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEF!STRUCT (LVAR # ...) ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEF!STRUCT (NODE # ...) ...) ; x-compiling (DEF!STRUCT (VALUED-NODE # ...) ...) ; x-compiling (!DEF-BOOLEAN-ATTRIBUTE BLOCK ...) ; x-compiling (DEFATTR BLOCK-REOPTIMIZE) ; x-compiling (DEFATTR BLOCK-FLUSH-P) ; x-compiling (DEFATTR BLOCK-TYPE-CHECK) ; x-compiling (DEFATTR BLOCK-DELETE-P) ; x-compiling (DEFATTR BLOCK-TYPE-ASSERTED) ; x-compiling (DEFATTR BLOCK-TEST-MODIFIED) ; x-compiling (DEF!STRUCT (CBLOCK # ...) ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEF!STRUCT (BLOCK-ANNOTATION # ...) ...) ; x-compiling (DEF!STRUCT (COMPONENT # ...) ...) ; x-compiling (DEFPRINTER (COMPONENT :IDENTITY ...) ...) ; x-compiling (DEFUN AVER-LIVE-COMPONENT ...) ; x-compiling (DEFUN LAMBDA-TOPLEVELISH-P ...) ; x-compiling (DEFUN COMPONENT-TOPLEVELISH-P ...) ; x-compiling (DEF!STRUCT (CLEANUP #) ...) ; x-compiling (DEFPRINTER (CLEANUP :IDENTITY ...) ...) ; x-compiling (DEF!STRUCT (PHYSENV #) ...) ; x-compiling (DEFPRINTER (PHYSENV :IDENTITY ...) ...) ; x-compiling (DEF!STRUCT (TAIL-SET) ...) ; x-compiling (DEFPRINTER (TAIL-SET :IDENTITY ...) ...) ; x-compiling (DEF!STRUCT (NLX-INFO # ...) ...) ; x-compiling (DEFPRINTER (NLX-INFO :IDENTITY ...) ...) ; x-compiling (DEF!STRUCT (LEAF # ...) ...) ; x-compiling (DEFUN LEAF-DYNAMIC-EXTENT ...) ; x-compiling (DEFUN LEAF-HAS-SOURCE-NAME-P ...) ; x-compiling (DEFUN LEAF-SOURCE-NAME ...) ; x-compiling (DEFUN LEAF-DEBUG-NAME ...) ; x-compiling (DEFUN LEAF-%DEBUG-NAME ...) ; x-compiling (DEF!STRUCT (CONSTANT # ...) ...) ; x-compiling (DEFPRINTER (CONSTANT :IDENTITY ...) ...) ; x-compiling (DEF!STRUCT (BASIC-VAR # ...) ...) ; x-compiling (DEF!STRUCT (GLOBAL-VAR #) ...) ; x-compiling (DEFPRINTER (GLOBAL-VAR :IDENTITY ...) ...) ; x-compiling (DEF!STRUCT (DEFINED-FUN #) ...) ; x-compiling (DEFPRINTER (DEFINED-FUN :IDENTITY ...) ...) ; x-compiling (DEF!STRUCT (FUNCTIONAL #) ...) ; x-compiling (DEFPRINTER (FUNCTIONAL :IDENTITY ...) ...) ; x-compiling (DEFUN FUNCTIONAL-LETLIKE-P ...) ; x-compiling (DEFUN FUNCTIONAL-SOMEWHAT-LETLIKE-P ...) ; x-compiling (DEFUN FUNCTIONAL-DEBUG-NAME ...) ; x-compiling (DEF!STRUCT (CLAMBDA # ...) ...) ; x-compiling (DEFPRINTER (CLAMBDA :CONC-NAME ...) ...) ; x-compiling (DEF!STRUCT (OPTIONAL-DISPATCH #) ...) ; x-compiling (DEFPRINTER (OPTIONAL-DISPATCH :IDENTITY ...) ...) ; x-compiling (DEF!STRUCT ARG-INFO ...) ; x-compiling (DEFPRINTER (ARG-INFO :IDENTITY ...) ...) ; x-compiling (!DEF-BOOLEAN-ATTRIBUTE LAMBDA-VAR ...) ; x-compiling (DEF!STRUCT (LAMBDA-VAR #) ...) ; x-compiling (DEFPRINTER (LAMBDA-VAR :IDENTITY ...) ...) ; x-compiling (DEFMACRO LAMBDA-VAR-IGNOREP ...) ; x-compiling (DEFMACRO LAMBDA-VAR-INDIRECT ...) ; x-compiling (DEFMACRO LAMBDA-VAR-DELETED ...) ; x-compiling (DEFMACRO LAMBDA-VAR-EXPLICIT-VALUE-CELL ...) ; x-compiling (DEF!STRUCT (REF # ...) ...) ; x-compiling (DEFPRINTER (REF :IDENTITY ...) ...) ; x-compiling (DEF!STRUCT (CIF # ...) ...) ; x-compiling (DEFPRINTER (CIF :CONC-NAME ...) ...) ; x-compiling (DEF!STRUCT (CSET # ...) ...) ; x-compiling (DEFPRINTER (CSET :CONC-NAME ...) ...) ; x-compiling (DEF!STRUCT (BASIC-COMBINATION # ...) ...) ; x-compiling (DEF!STRUCT (COMBINATION # ...)) ; x-compiling (DEFPRINTER (COMBINATION :IDENTITY ...) ...) ; x-compiling (DEF!STRUCT (MV-COMBINATION # ...)) ; x-compiling (DEFPRINTER (MV-COMBINATION) ...) ; x-compiling (DEF!STRUCT (BIND # ...) ...) ; x-compiling (DEFPRINTER (BIND) ...) ; x-compiling (DEF!STRUCT (CRETURN # ...) ...) ; x-compiling (DEFPRINTER (CRETURN :CONC-NAME ...) ...) ; x-compiling (DEF!STRUCT (CAST # ...) ...) ; x-compiling (DEFPRINTER (CAST :IDENTITY ...) ...) ; x-compiling (DEF!STRUCT (ENTRY # ...) ...) ; x-compiling (DEFPRINTER (ENTRY :IDENTITY ...) ...) ; x-compiling (DEF!STRUCT (EXIT # ...) ...) ; x-compiling (DEFPRINTER (EXIT :IDENTITY ...) ...) ; x-compiling (DEF!STRUCT (UNDEFINED-WARNING # ...) ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN %COERCE-TO-POLICY ...) ; x-compiling (DECLAIM (FREEZE-TYPE NODE ...)) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/node.lisp ; in: ; DEF!STRUCT (NODE (:CONSTRUCTOR NIL) ; (:INCLUDE SSET-ELEMENT (NUMBER (INCF *COMPILER-SSET-COUNTER*))) ; (:COPIER NIL)) ; (SB!INT:DEF!STRUCT ; (SB!C::NODE (:CONSTRUCTOR NIL) ; (:INCLUDE SB!ASSEM:SSET-ELEMENT ; (NUMBER (INCF SB!C::*COMPILER-SSET-COUNTER*))) ; (:COPIER NIL)) ; (SB!C::ID (SB!C::NEW-OBJECT-ID) :READ-ONLY T) ; (SB!C::REOPTIMIZE T :TYPE BOOLEAN) ; (SB!C::NEXT NIL :TYPE (OR SB!C::CTRAN NULL)) ; (SB!C::PREV NIL :TYPE (OR SB!C::CTRAN NULL)) ; (SB!KERNEL:LEXENV SB!C:*LEXENV* :TYPE SB!KERNEL:LEXENV) ; (SB!C::SOURCE-PATH SB!C::*CURRENT-PATH* :TYPE LIST) ; (SB!C::TAIL-P NIL :TYPE BOOLEAN)) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: ; DEF!STRUCT (LVAR (:MAKE-LOAD-FORM-FUN IGNORE-IT) ; (:CONSTRUCTOR MAKE-LVAR (&OPTIONAL DEST))) ; (SB!INT:DEF!STRUCT ; (SB!C::LVAR (:MAKE-LOAD-FORM-FUN SB!KERNEL:IGNORE-IT) ; (:CONSTRUCTOR SB!C::MAKE-LVAR (&OPTIONAL SB!C::DEST))) ; (SB!C::DEST NIL :TYPE (OR SB!C::NODE NULL)) ; (SB!C::%DERIVED-TYPE NIL :TYPE (OR SB!KERNEL:CTYPE NULL)) ; (SB!C::USES NIL :TYPE (OR SB!C::NODE LIST)) ; (SB!C::REOPTIMIZE T :TYPE BOOLEAN) ; (SB!C::%EXTERNALLY-CHECKABLE-TYPE NIL :TYPE (OR NULL SB!KERNEL:CTYPE)) ; (DYNAMIC-EXTENT NIL :TYPE (OR NULL SB!C::CLEANUP)) (SB!INT:INFO NIL)) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: ; DEF!STRUCT (CTRAN (:MAKE-LOAD-FORM-FUN IGNORE-IT) (:CONSTRUCTOR MAKE-CTRAN)) ; (SB!INT:DEF!STRUCT ; (SB!C::CTRAN (:MAKE-LOAD-FORM-FUN SB!KERNEL:IGNORE-IT) ; (:CONSTRUCTOR SB!C::MAKE-CTRAN)) ; (SB!C::KIND :UNUSED :TYPE (MEMBER :UNUSED :INSIDE-BLOCK :BLOCK-START)) ; (SB!C::NEXT NIL :TYPE (OR SB!C::NODE NULL)) ; (SB!C::USE NIL :TYPE (OR SB!C::NODE NULL)) ; (BLOCK NIL :TYPE (OR SB!C::CBLOCK NULL))) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; ; caught STYLE-WARNING: ; 30 more uses of undefined function SB!KERNEL::%TARGET-DEFSTRUCT ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/node.lisp ; in: !DEF-BOOLEAN-ATTRIBUTE LAMBDA-VAR ; (SB!INT:!DEF-BOOLEAN-ATTRIBUTE SB!C::LAMBDA-VAR IGNORE SB!C::INDIRECT ; SB!C::DELETED SB!C::EXPLICIT-VALUE-CELL) ; --> PROGN SB!C::!DEF-BOOLEAN-ATTRIBUTE-SETTER DEFINE-SETF-EXPANDER EVAL-WHEN ; --> SB!IMPL::ASSIGN-SETF-MACRO ; ==> ; (SB!IMPL::ASSIGN-SETF-MACRO 'SB!C::LAMBDA-VAR-ATTRIBUTEP ; (LAMBDA (#:WHOLE3918 #:ENVIRONMENT3919) ; (LET* () ; (LET (#) ; (UNLESS # #)) ; (LET* (# # #) ; (BLOCK SB!C::LAMBDA-VAR-ATTRIBUTEP #)))) ; '(SB!C::PLACE &REST SB!C:ATTRIBUTES &ENVIRONMENT ; SB!C::ENV) ; NIL ; '"Automagically generated boolean attribute setter. See ; !DEF-BOOLEAN-ATTRIBUTE.") ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::ASSIGN-SETF-MACRO ; in: !DEF-BOOLEAN-ATTRIBUTE BLOCK ; (SB!INT:!DEF-BOOLEAN-ATTRIBUTE BLOCK SB!C::REOPTIMIZE SB!C::FLUSH-P ; SB!C::TYPE-CHECK SB!C::DELETE-P ; SB!C::TYPE-ASSERTED SB!C::TEST-MODIFIED) ; --> PROGN SB!C::!DEF-BOOLEAN-ATTRIBUTE-SETTER DEFINE-SETF-EXPANDER EVAL-WHEN ; --> SB!IMPL::ASSIGN-SETF-MACRO ; ==> ; (SB!IMPL::ASSIGN-SETF-MACRO 'SB!C::BLOCK-ATTRIBUTEP ; (LAMBDA (#:WHOLE310 #:ENVIRONMENT311) ; (LET* () ; (LET (#) ; (UNLESS # #)) ; (LET* (# # #) ; (BLOCK SB!C::BLOCK-ATTRIBUTEP #)))) ; '(SB!C::PLACE &REST SB!C:ATTRIBUTES &ENVIRONMENT ; SB!C::ENV) ; NIL ; '"Automagically generated boolean attribute setter. See ; !DEF-BOOLEAN-ATTRIBUTE.") ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::ASSIGN-SETF-MACRO ; in: ; DEF!STRUCT (COMPONENT (:COPIER NIL) ; (:CONSTRUCTOR MAKE-COMPONENT ; (HEAD TAIL &AUX (LAST-BLOCK TAIL) (OUTER-LOOP #)))) ; (SB!INT:DEF!STRUCT ; (SB!C:COMPONENT (:COPIER NIL) ; (:CONSTRUCTOR SB!C::MAKE-COMPONENT ; (SB!C::HEAD SB!C::TAIL &AUX (SB!C::LAST-BLOCK SB!C::TAIL) ; (SB!C::OUTER-LOOP #)))) ; (SB!C::ID (SB!C::NEW-OBJECT-ID) :READ-ONLY T) ; (SB!C::KIND NIL :TYPE ; (MEMBER NIL :TOPLEVEL :COMPLEX-TOPLEVEL :INITIAL :DELETED)) ; (SB!C::HEAD (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK) ; (SB!C::TAIL (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK) ; (SB!C::LAST-BLOCK (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK) ; (SB!C::LAMBDAS NIL :TYPE LIST) (SB!C::NEW-FUNCTIONALS NIL :TYPE LIST) ; (SB!C::REOPTIMIZE T :TYPE (MEMBER NIL :MAYBE T)) ; (SB!C::REANALYZE NIL :TYPE BOOLEAN) (SB!C::NAME "" :TYPE T) ...) ; --> PROGN ; ==> ; (DEFSTRUCT ; (SB!C:COMPONENT (:INCLUDE SB!SYS:STRUCTURE!OBJECT) (:COPIER NIL) ; (:CONSTRUCTOR SB!C::MAKE-COMPONENT ; (SB!C::HEAD SB!C::TAIL &AUX (SB!C::LAST-BLOCK SB!C::TAIL) ; (SB!C::OUTER-LOOP #)))) ; (SB!C::ID (SB!C::NEW-OBJECT-ID) :READ-ONLY T) ; (SB!C::KIND NIL :TYPE ; (MEMBER NIL :TOPLEVEL :COMPLEX-TOPLEVEL :INITIAL :DELETED)) ; (SB!C::HEAD (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK) ; (SB!C::TAIL (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK) ; (SB!C::LAST-BLOCK (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK) ; (SB!C::LAMBDAS NIL :TYPE LIST) ; (SB!C::NEW-FUNCTIONALS NIL :TYPE LIST) ; (SB!C::REOPTIMIZE T :TYPE (MEMBER NIL :MAYBE T)) ; (SB!C::REANALYZE NIL :TYPE BOOLEAN) ; (SB!C::NAME "" :TYPE T) ; ...) ; ; caught STYLE-WARNING: ; undefined type: CLOOP ; in: ; DEF!STRUCT (CBLOCK (:INCLUDE SSET-ELEMENT) (:CONSTRUCTOR MAKE-BLOCK (START)) ; (:CONSTRUCTOR MAKE-BLOCK-KEY) (:CONC-NAME BLOCK-) ...) ; (SB!INT:DEF!STRUCT ; (SB!C::CBLOCK (:INCLUDE SB!ASSEM:SSET-ELEMENT) ; (:CONSTRUCTOR SB!C::MAKE-BLOCK (SB!C::START)) ; (:CONSTRUCTOR SB!C::MAKE-BLOCK-KEY) (:CONC-NAME SB!C::BLOCK-) ; (:PREDICATE SB!C::BLOCK-P)) ; (SB!C::PRED NIL :TYPE LIST) (SB!C::SUCC NIL :TYPE LIST) ; (SB!C::START NIL :TYPE (OR SB!C::CTRAN NULL)) ; (LAST NIL :TYPE (OR SB!C::NODE NULL)) ; (SB!C::NEXT NIL :TYPE (OR NULL SB!C::CBLOCK)) ; (SB!C::PREV NIL :TYPE (OR NULL SB!C::CBLOCK)) ; (SB!C::FLAGS ; (SB!C::BLOCK-ATTRIBUTES SB!C::REOPTIMIZE SB!C::FLUSH-P SB!C::TYPE-CHECK ; SB!C::TYPE-ASSERTED SB!C::TEST-MODIFIED) ; :TYPE SB!C:ATTRIBUTES) ; (SB!C::KILL NIL) (SB!C::GEN NIL) (SB!C::IN NIL) ...) ; --> PROGN ; ==> ; (DEFSTRUCT ; (SB!C::CBLOCK (:INCLUDE SB!ASSEM:SSET-ELEMENT) ; (:CONSTRUCTOR SB!C::MAKE-BLOCK (SB!C::START)) ; (:CONSTRUCTOR SB!C::MAKE-BLOCK-KEY) (:CONC-NAME SB!C::BLOCK-) ; (:PREDICATE SB!C::BLOCK-P)) ; (SB!C::PRED NIL :TYPE LIST) ; (SB!C::SUCC NIL :TYPE LIST) ; (SB!C::START NIL :TYPE (OR SB!C::CTRAN NULL)) ; (LAST NIL :TYPE (OR SB!C::NODE NULL)) ; (SB!C::NEXT NIL :TYPE (OR NULL SB!C::CBLOCK)) ; (SB!C::PREV NIL :TYPE (OR NULL SB!C::CBLOCK)) ; (SB!C::FLAGS ; (SB!C::BLOCK-ATTRIBUTES SB!C::REOPTIMIZE SB!C::FLUSH-P SB!C::TYPE-CHECK ; SB!C::TYPE-ASSERTED SB!C::TEST-MODIFIED) ; :TYPE SB!C:ATTRIBUTES) ; (SB!C::KILL NIL) ; (SB!C::GEN NIL) ; (SB!C::IN NIL) ; ...) ; ; caught STYLE-WARNING: ; undefined type: CLOOP ; in: ; DEF!STRUCT (NODE (:CONSTRUCTOR NIL) ; (:INCLUDE SSET-ELEMENT (NUMBER (INCF *COMPILER-SSET-COUNTER*))) ; (:COPIER NIL)) ; (SB!INT:DEF!STRUCT ; (SB!C::NODE (:CONSTRUCTOR NIL) ; (:INCLUDE SB!ASSEM:SSET-ELEMENT ; (NUMBER (INCF SB!C::*COMPILER-SSET-COUNTER*))) ; (:COPIER NIL)) ; (SB!C::ID (SB!C::NEW-OBJECT-ID) :READ-ONLY T) ; (SB!C::REOPTIMIZE T :TYPE BOOLEAN) ; (SB!C::NEXT NIL :TYPE (OR SB!C::CTRAN NULL)) ; (SB!C::PREV NIL :TYPE (OR SB!C::CTRAN NULL)) ; (SB!KERNEL:LEXENV SB!C:*LEXENV* :TYPE SB!KERNEL:LEXENV) ; (SB!C::SOURCE-PATH SB!C::*CURRENT-PATH* :TYPE LIST) ; (SB!C::TAIL-P NIL :TYPE BOOLEAN)) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL::DELAY-DEFSTRUCT-FUNCTIONS PROGN DEFUN ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK ; --> SETF SB!KERNEL:%INSTANCE-SET THE MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP ; --> LET SB!C::%TYPEP-WRAPPER IF ; ==> ; (MEMBER #:OBJECT35954 '(T NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: ; DEF!STRUCT (LVAR (:MAKE-LOAD-FORM-FUN IGNORE-IT) ; (:CONSTRUCTOR MAKE-LVAR (&OPTIONAL DEST))) ; (SB!INT:DEF!STRUCT ; (SB!C::LVAR (:MAKE-LOAD-FORM-FUN SB!KERNEL:IGNORE-IT) ; (:CONSTRUCTOR SB!C::MAKE-LVAR (&OPTIONAL SB!C::DEST))) ; (SB!C::DEST NIL :TYPE (OR SB!C::NODE NULL)) ; (SB!C::%DERIVED-TYPE NIL :TYPE (OR SB!KERNEL:CTYPE NULL)) ; (SB!C::USES NIL :TYPE (OR SB!C::NODE LIST)) ; (SB!C::REOPTIMIZE T :TYPE BOOLEAN) ; (SB!C::%EXTERNALLY-CHECKABLE-TYPE NIL :TYPE (OR NULL SB!KERNEL:CTYPE)) ; (DYNAMIC-EXTENT NIL :TYPE (OR NULL SB!C::CLEANUP)) (SB!INT:INFO NIL)) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL::DELAY-DEFSTRUCT-FUNCTIONS PROGN DEFUN ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK ; --> SETF SB!KERNEL:%INSTANCE-SET THE MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP ; --> LET SB!C::%TYPEP-WRAPPER IF ; ==> ; (MEMBER #:OBJECT35878 '(T NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: ; DEF!STRUCT (CTRAN (:MAKE-LOAD-FORM-FUN IGNORE-IT) (:CONSTRUCTOR MAKE-CTRAN)) ; (SB!INT:DEF!STRUCT ; (SB!C::CTRAN (:MAKE-LOAD-FORM-FUN SB!KERNEL:IGNORE-IT) ; (:CONSTRUCTOR SB!C::MAKE-CTRAN)) ; (SB!C::KIND :UNUSED :TYPE (MEMBER :UNUSED :INSIDE-BLOCK :BLOCK-START)) ; (SB!C::NEXT NIL :TYPE (OR SB!C::NODE NULL)) ; (SB!C::USE NIL :TYPE (OR SB!C::NODE NULL)) ; (BLOCK NIL :TYPE (OR SB!C::CBLOCK NULL))) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL::DELAY-DEFSTRUCT-FUNCTIONS PROGN DEFUN ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK ; --> SETF SB!KERNEL:%INSTANCE-SET THE MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP ; --> LET SB!C::%TYPEP-WRAPPER IF ; ==> ; (MEMBER #:OBJECT35747 '(:UNUSED :INSIDE-BLOCK :BLOCK-START)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 328 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/node.lisp ; in: ; DEF!STRUCT (MV-COMBINATION (:INCLUDE BASIC-COMBINATION) ; (:CONSTRUCTOR MAKE-MV-COMBINATION (FUN)) (:COPIER NIL)) ; (SB!INT:DEF!STRUCT ; (SB!C::MV-COMBINATION (:INCLUDE SB!C::BASIC-COMBINATION) ; (:CONSTRUCTOR SB!C::MAKE-MV-COMBINATION (SB!C::FUN)) (:COPIER NIL))) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL::DELAY-DEFSTRUCT-FUNCTIONS PROGN DEFUN ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK ; ==> ; (SB!EXT:TRULY-THE (OR SB!C::FUN-INFO NULL) ; (SB!KERNEL:%INSTANCE-REF ; (THE SB!C::MV-COMBINATION SB!KERNEL:INSTANCE) 14)) ; ; caught STYLE-WARNING: ; undefined type: FUN-INFO ; in: ; DEF!STRUCT (COMBINATION (:INCLUDE BASIC-COMBINATION) ; (:CONSTRUCTOR MAKE-COMBINATION (FUN)) (:COPIER NIL)) ; (SB!INT:DEF!STRUCT ; (SB!C::COMBINATION (:INCLUDE SB!C::BASIC-COMBINATION) ; (:CONSTRUCTOR SB!C::MAKE-COMBINATION (SB!C::FUN)) (:COPIER NIL))) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL::DELAY-DEFSTRUCT-FUNCTIONS PROGN DEFUN ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK ; ==> ; (SB!EXT:TRULY-THE (OR SB!C::FUN-INFO NULL) ; (SB!KERNEL:%INSTANCE-REF ; (THE SB!C::COMBINATION SB!KERNEL:INSTANCE) 14)) ; ; caught STYLE-WARNING: ; undefined type: FUN-INFO ; in: ; DEF!STRUCT (BASIC-COMBINATION (:INCLUDE VALUED-NODE) (:CONSTRUCTOR NIL) ; (:COPIER NIL)) ; (SB!INT:DEF!STRUCT ; (SB!C::BASIC-COMBINATION (:INCLUDE SB!C::VALUED-NODE) (:CONSTRUCTOR NIL) ; (:COPIER NIL)) ; (SB!C::FUN (SB!INT:MISSING-ARG) :TYPE SB!C::LVAR) ; (SB!C::ARGS NIL :TYPE LIST) ; (SB!C::KIND :FULL :TYPE (MEMBER :LOCAL :FULL :ERROR :KNOWN)) ; (SB!C::FUN-INFO NIL :TYPE (OR SB!C::FUN-INFO NULL)) ; (SB!C::TYPE-VALIDATED-FOR-LEAF NIL) (SB!INT:INFO NIL) (SB!C::STEP-INFO)) ; --> PROGN ; ==> ; (DEFSTRUCT ; (SB!C::BASIC-COMBINATION (:INCLUDE SB!C::VALUED-NODE) (:CONSTRUCTOR NIL) ; (:COPIER NIL)) ; (SB!C::FUN (SB!INT:MISSING-ARG) :TYPE SB!C::LVAR) ; (SB!C::ARGS NIL :TYPE LIST) ; (SB!C::KIND :FULL :TYPE (MEMBER :LOCAL :FULL :ERROR :KNOWN)) ; (SB!C::FUN-INFO NIL :TYPE (OR SB!C::FUN-INFO NULL)) ; (SB!C::TYPE-VALIDATED-FOR-LEAF NIL) ; (SB!INT:INFO NIL) ; (SB!C::STEP-INFO)) ; ; caught STYLE-WARNING: ; undefined type: FUN-INFO ; in: !DEF-BOOLEAN-ATTRIBUTE LAMBDA-VAR ; (SB!INT:!DEF-BOOLEAN-ATTRIBUTE SB!C::LAMBDA-VAR IGNORE SB!C::INDIRECT ; SB!C::DELETED SB!C::EXPLICIT-VALUE-CELL) ; --> PROGN SB!C::!DEF-BOOLEAN-ATTRIBUTE-SETTER DEFINE-SETF-EXPANDER EVAL-WHEN ; --> SB!IMPL::ASSIGN-SETF-MACRO SB!IMPL::ASSIGN-SETF-MACRO LAMBDA FUNCTION ; --> LET* LET* BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; (SB-XC:GET-SETF-EXPANSION SB!C::PLACE SB!C::ENV) ; ; caught STYLE-WARNING: ; undefined function: SB-XC:GET-SETF-EXPANSION ; in: !DEF-BOOLEAN-ATTRIBUTE BLOCK ; (SB!INT:!DEF-BOOLEAN-ATTRIBUTE BLOCK SB!C::REOPTIMIZE SB!C::FLUSH-P ; SB!C::TYPE-CHECK SB!C::DELETE-P ; SB!C::TYPE-ASSERTED SB!C::TEST-MODIFIED) ; --> PROGN SB!C::!DEF-BOOLEAN-ATTRIBUTE-SETTER DEFINE-SETF-EXPANDER EVAL-WHEN ; --> SB!IMPL::ASSIGN-SETF-MACRO SB!IMPL::ASSIGN-SETF-MACRO LAMBDA FUNCTION ; --> LET* LET* BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; (SB-XC:GET-SETF-EXPANSION SB!C::PLACE SB!C::ENV) ; ; caught STYLE-WARNING: ; undefined function: SB-XC:GET-SETF-EXPANSION ; in: DEFUN AVER-LIVE-COMPONENT ; (EQL (SB!C:COMPONENT-INFO SB!C:COMPONENT) :DEAD) ; ; caught STYLE-WARNING: ; undefined type: IR2-COMPONENT ; in: ; DEF!STRUCT (COMPONENT (:COPIER NIL) ; (:CONSTRUCTOR MAKE-COMPONENT ; (HEAD TAIL &AUX (LAST-BLOCK TAIL) (OUTER-LOOP #)))) ; (SB!INT:DEF!STRUCT ; (SB!C:COMPONENT (:COPIER NIL) ; (:CONSTRUCTOR SB!C::MAKE-COMPONENT ; (SB!C::HEAD SB!C::TAIL &AUX (SB!C::LAST-BLOCK SB!C::TAIL) ; (SB!C::OUTER-LOOP #)))) ; (SB!C::ID (SB!C::NEW-OBJECT-ID) :READ-ONLY T) ; (SB!C::KIND NIL :TYPE ; (MEMBER NIL :TOPLEVEL :COMPLEX-TOPLEVEL :INITIAL :DELETED)) ; (SB!C::HEAD (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK) ; (SB!C::TAIL (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK) ; (SB!C::LAST-BLOCK (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK) ; (SB!C::LAMBDAS NIL :TYPE LIST) (SB!C::NEW-FUNCTIONALS NIL :TYPE LIST) ; (SB!C::REOPTIMIZE T :TYPE (MEMBER NIL :MAYBE T)) ; (SB!C::REANALYZE NIL :TYPE BOOLEAN) (SB!C::NAME "" :TYPE T) ...) ; --> PROGN ; ==> ; (DEFSTRUCT ; (SB!C:COMPONENT (:INCLUDE SB!SYS:STRUCTURE!OBJECT) (:COPIER NIL) ; (:CONSTRUCTOR SB!C::MAKE-COMPONENT ; (SB!C::HEAD SB!C::TAIL &AUX (SB!C::LAST-BLOCK SB!C::TAIL) ; (SB!C::OUTER-LOOP #)))) ; (SB!C::ID (SB!C::NEW-OBJECT-ID) :READ-ONLY T) ; (SB!C::KIND NIL :TYPE ; (MEMBER NIL :TOPLEVEL :COMPLEX-TOPLEVEL :INITIAL :DELETED)) ; (SB!C::HEAD (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK) ; (SB!C::TAIL (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK) ; (SB!C::LAST-BLOCK (SB!INT:MISSING-ARG) :TYPE SB!C::CBLOCK) ; (SB!C::LAMBDAS NIL :TYPE LIST) ; (SB!C::NEW-FUNCTIONALS NIL :TYPE LIST) ; (SB!C::REOPTIMIZE T :TYPE (MEMBER NIL :MAYBE T)) ; (SB!C::REANALYZE NIL :TYPE BOOLEAN) ; (SB!C::NAME "" :TYPE T) ; ...) ; ; caught STYLE-WARNING: ; undefined type: IR2-COMPONENT ; in: DEFUN %COERCE-TO-POLICY ; (SB!C::LEXENV-POLICY SB!C::THING) ; ; caught STYLE-WARNING: ; undefined function: LEXENV-POLICY ; in: ; DEF!STRUCT (COMPONENT (:COPIER NIL) ; (:CONSTRUCTOR MAKE-COMPONENT ; (HEAD TAIL &AUX (LAST-BLOCK TAIL) (OUTER-LOOP #)))) ; (SB!C::MAKE-LOOP :KIND :OUTER :HEAD SB!C::HEAD) ; ; caught STYLE-WARNING: ; undefined function: MAKE-LOOP ; in: ; DEF!STRUCT (CSET ; (:INCLUDE VALUED-NODE ; (DERIVED-TYPE (MAKE-SINGLE-VALUE-TYPE *UNIVERSAL-TYPE*))) ; (:CONC-NAME SET-) (:PREDICATE SET-P) (:CONSTRUCTOR MAKE-SET) ...) ; (SB!KERNEL:MAKE-SINGLE-VALUE-TYPE SB!KERNEL:*UNIVERSAL-TYPE*) ; ; caught STYLE-WARNING: ; undefined function: MAKE-SINGLE-VALUE-TYPE ; in: ; DEF!STRUCT (REF (:INCLUDE VALUED-NODE (REOPTIMIZE NIL)) ; (:CONSTRUCTOR MAKE-REF ; (LEAF &OPTIONAL (%SOURCE-NAME '.ANONYMOUS.) &AUX (LEAF-TYPE #) ; ...)) ; (:COPIER NIL)) ; (SB!KERNEL:MAKE-SINGLE-VALUE-TYPE SB!C::LEAF-TYPE) ; ; caught STYLE-WARNING: ; undefined function: MAKE-SINGLE-VALUE-TYPE ; in: ; DEF!STRUCT (NLX-INFO ; (:CONSTRUCTOR MAKE-NLX-INFO (CLEANUP EXIT &AUX (BLOCK #))) ; (:MAKE-LOAD-FORM-FUN IGNORE-IT)) ; (SB!C::NODE-BLOCK SB!EXT:EXIT) ; ; caught STYLE-WARNING: ; undefined function: NODE-BLOCK ; in: DEF!STRUCT (OPTIONAL-DISPATCH (:INCLUDE FUNCTIONAL)) ; (SB!INT:DEF!STRUCT (SB!C::OPTIONAL-DISPATCH (:INCLUDE SB!C::FUNCTIONAL)) ; (SB!C::ARGLIST NIL :TYPE LIST) ; (SB!C::ALLOWP NIL :TYPE BOOLEAN) ; (SB!C::KEYP NIL :TYPE BOOLEAN) ; (SB!C::MIN-ARGS 0 :TYPE UNSIGNED-BYTE) ; (SB!C::MAX-ARGS 0 :TYPE UNSIGNED-BYTE) ; (SB!C::ENTRY-POINTS NIL :TYPE LIST) ; (SB!C::MORE-ENTRY NIL :TYPE (OR SB!C::CLAMBDA NULL)) ; (SB!C::MAIN-ENTRY NIL :TYPE (OR SB!C::CLAMBDA NULL))) ; --> PROGN DEFSTRUCT PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN ; --> SB!INT:NAMED-LAMBDA FUNCTION IF ; ==> ; (SB!KERNEL:SPECIFIER-TYPE 'FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: SPECIFIER-TYPE ; in: ; DEF!STRUCT (CLAMBDA (:INCLUDE FUNCTIONAL) (:CONC-NAME LAMBDA-) ; (:PREDICATE LAMBDA-P) (:CONSTRUCTOR MAKE-LAMBDA) ...) ; (SB!INT:DEF!STRUCT ; (SB!C::CLAMBDA (:INCLUDE SB!C::FUNCTIONAL) (:CONC-NAME SB!C::LAMBDA-) ; (:PREDICATE SB!C::LAMBDA-P) (:CONSTRUCTOR SB!C::MAKE-LAMBDA) ; (:COPIER SB!C::COPY-LAMBDA)) ; (SB!C::VARS NIL :TYPE LIST :READ-ONLY T) ; (SB!C::OPTIONAL-DISPATCH NIL :TYPE (OR SB!C::OPTIONAL-DISPATCH NULL)) ; (SB!C:BIND NIL :TYPE (OR SB!C:BIND NULL)) ; (RETURN NIL :TYPE (OR SB!C::CRETURN NULL)) ; (SB!C::HOME NIL :TYPE (OR SB!C::CLAMBDA NULL)) (SB!C::LETS NIL :TYPE LIST) ; (SB!C::ENTRIES NIL :TYPE LIST) ; (SB!C::CALLS-OR-CLOSES (SB!ASSEM:MAKE-SSET) :TYPE (OR NULL SB!ASSEM:SSET)) ; (SB!C::TAIL-SET NIL :TYPE (OR SB!C::TAIL-SET NULL)) ; (SB!C::PHYSENV NIL :TYPE (OR SB!C::PHYSENV NULL)) ...) ; --> PROGN DEFSTRUCT PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN ; --> SB!INT:NAMED-LAMBDA FUNCTION IF ; ==> ; (SB!KERNEL:SPECIFIER-TYPE 'FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: SPECIFIER-TYPE ; in: ; DEF!STRUCT (FUNCTIONAL ; (:INCLUDE LEAF (%SOURCE-NAME '.ANONYMOUS.) (WHERE-FROM :DEFINED) ; (TYPE (SPECIFIER-TYPE 'FUNCTION)))) ; (SB!KERNEL:SPECIFIER-TYPE 'FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: SPECIFIER-TYPE ; ; compilation unit finished ; Undefined types: ; CLOOP CODE-DELETION-NOTE FUN-INFO IR2-COMPONENT ; Undefined functions: ; SB!KERNEL::%TARGET-DEFSTRUCT SB!IMPL::ASSIGN-SETF-MACRO SB-XC:GET-SETF-EXPANSION LEXENV-POLICY MAKE-LOOP MAKE-SINGLE-VALUE-TYPE NODE-BLOCK SPECIFIER-TYPE ; caught 27 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/node.lisp-obj-tmp written ; compilation finished in 0:00:04.195 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/vop.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEF!CONSTANT LOCAL-TN-LIMIT ...) ; x-compiling (DEFTYPE LOCAL-TN-NUMBER ...) ; x-compiling (DEFTYPE LOCAL-TN-COUNT ...) ; x-compiling (DEFTYPE LOCAL-TN-VECTOR ...) ; x-compiling (DEFTYPE LOCAL-TN-BIT-VECTOR ...) ; x-compiling (DEFTYPE SC-NUMBER ...) ; x-compiling (DEFTYPE SC-VECTOR ...) ; x-compiling (DEFTYPE SC-BIT-VECTOR ...) ; x-compiling (DEFTYPE LTN-POLICY ...) ; x-compiling (DEFSTRUCT (PRIMITIVE-TYPE #) ...) ; x-compiling (DEFPRINTER (PRIMITIVE-TYPE) ...) ; x-compiling (DEFSTRUCT (IR2-BLOCK # ...) ...) ; x-compiling (DEFPRINTER (IR2-BLOCK) ...) ; x-compiling (DEFSTRUCT (IR2-LVAR # ...) ...) ; x-compiling (DEFPRINTER (IR2-LVAR) ...) ; x-compiling (DEFSTRUCT (IR2-COMPONENT #) ...) ; x-compiling (DEFSTRUCT (ENTRY-INFO #) ...) ; x-compiling (DEFSTRUCT (IR2-PHYSENV #) ...) ; x-compiling (DEFPRINTER (IR2-PHYSENV) ...) ; x-compiling (DEFSTRUCT (RETURN-INFO #) ...) ; x-compiling (DEFPRINTER (RETURN-INFO) ...) ; x-compiling (DEFSTRUCT (IR2-NLX-INFO #) ...) ; x-compiling (DEFPRINTER (IR2-NLX-INFO) ...) ; x-compiling (DEFSTRUCT (CLOOP # ...) ...) ; x-compiling (DEFPRINTER (CLOOP :CONC-NAME ...) ...) ; x-compiling (DEF!STRUCT (VOP # ...) ...) ; x-compiling (DEFPRINTER (VOP) ...) ; x-compiling (DEF!STRUCT (TN-REF # ...) ...) ; x-compiling (DEFPRINTER (TN-REF) ...) ; x-compiling (DEF!STRUCT (TEMPLATE # ...) ...) ; x-compiling (DEFPRINTER (TEMPLATE) ...) ; x-compiling (DEF!STRUCT (VOP-INFO # ...) ...) ; x-compiling (DEF!STRUCT (SB #) ...) ; x-compiling (DEFPRINTER (SB) ...) ; x-compiling (DEF!STRUCT (FINITE-SB #) ...) ; x-compiling (DEF!STRUCT (SC #) ...) ; x-compiling (DEFPRINTER (SC) ...) ; x-compiling (DEF!STRUCT (TN # ...) ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFSTRUCT (GLOBAL-CONFLICTS # ...) ...) ; x-compiling (DEFPRINTER (GLOBAL-CONFLICTS) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/vop.lisp ; in: DEFSTRUCT IR2-LVAR ; (DEFSTRUCT ; (SB!C::IR2-LVAR (:CONSTRUCTOR SB!C::MAKE-IR2-LVAR (SB!C:PRIMITIVE-TYPE)) ; (:COPIER NIL)) ; (SB!C::KIND :FIXED :TYPE (MEMBER :DELAYED :FIXED :UNKNOWN :UNUSED)) ; (SB!C:PRIMITIVE-TYPE NIL :TYPE (OR SB!C:PRIMITIVE-TYPE NULL)) ; (SB!C::LOCS NIL :TYPE LIST) ; (SB!C::STACK-POINTER NIL :TYPE (OR SB!C:TN NULL))) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: DEFSTRUCT IR2-BLOCK ; (DEFSTRUCT ; (SB!C::IR2-BLOCK (:INCLUDE SB!C::BLOCK-ANNOTATION) ; (:CONSTRUCTOR SB!C::MAKE-IR2-BLOCK (BLOCK)) (:COPIER NIL)) ; (NUMBER NIL :TYPE (OR SB!INT:INDEX NULL)) ; (SB!C::PUSHED NIL :TYPE LIST) ; (SB!C::POPPED NIL :TYPE LIST) ; (SB!C::START-STACK NIL :TYPE LIST) ; (SB!C::END-STACK NIL :TYPE LIST) ; (SB!C::START-VOP NIL :TYPE (OR SB!C::VOP NULL)) ; (SB!C::LAST-VOP NIL :TYPE (OR SB!C::VOP NULL)) ; (SB!C::LOCAL-TN-COUNT 0 :TYPE SB!C::LOCAL-TN-COUNT) ; (SB!C::LOCAL-TNS (MAKE-ARRAY SB!C::LOCAL-TN-LIMIT) :TYPE ; SB!C::LOCAL-TN-VECTOR) ; (SB!C::WRITTEN ; (MAKE-ARRAY SB!C::LOCAL-TN-LIMIT :ELEMENT-TYPE 'BIT :INITIAL-ELEMENT 0) ; :TYPE SB!C::LOCAL-TN-BIT-VECTOR) ; ...) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: DEFSTRUCT PRIMITIVE-TYPE ; (DEFSTRUCT (SB!C:PRIMITIVE-TYPE (:COPIER NIL)) ; (SB!C::NAME NIL :TYPE SYMBOL) ; (SB!C::SCS NIL :TYPE LIST) ; (SB!C::SPECIFIER (SB!INT:MISSING-ARG) :TYPE SB!KERNEL:TYPE-SPECIFIER) ; (SB!C::CHECK NIL :TYPE (OR SB!C::TEMPLATE NULL))) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; ; caught STYLE-WARNING: ; 15 more uses of undefined function SB!KERNEL::%TARGET-DEFSTRUCT ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/vop.lisp ; in: ; DEF!STRUCT (VOP-INFO (:INCLUDE TEMPLATE) (:MAKE-LOAD-FORM-FUN IGNORE-IT)) ; (SB!INT:DEF!STRUCT ; (SB!C::VOP-INFO (:INCLUDE SB!C::TEMPLATE) ; (:MAKE-LOAD-FORM-FUN SB!KERNEL:IGNORE-IT)) ; (SB!C::EFFECTS (SB!INT:MISSING-ARG) :TYPE SB!C:ATTRIBUTES) ; (SB!C::AFFECTED (SB!INT:MISSING-ARG) :TYPE SB!C:ATTRIBUTES) ; (SB!C::SAVE-P NIL :TYPE (MEMBER T NIL :FORCE-TO-STACK :COMPUTE-ONLY)) ; (SB!C::MOVE-ARGS NIL :TYPE ; (MEMBER NIL :FULL-CALL :LOCAL-CALL :KNOWN-RETURN)) ; (SB!C::ARG-COSTS NIL :TYPE LIST) (SB!C::RESULT-COSTS NIL :TYPE LIST) ; (SB!C::MORE-ARG-COSTS NIL :TYPE (OR SB!C::SC-VECTOR NULL)) ; (SB!C::MORE-RESULT-COSTS NIL :TYPE (OR SB!C::SC-VECTOR NULL)) ; (SB!C::ARG-LOAD-SCS NIL :TYPE LIST) (SB!C::RESULT-LOAD-SCS NIL :TYPE LIST) ; ...) ; --> PROGN DEFSTRUCT PROGN LOCALLY SETF LET* LET* MULTIPLE-VALUE-BIND LET ; --> FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!KERNEL:LAYOUT-PURE) #:NEW1816 #:G1817) ; ; caught STYLE-WARNING: ; undefined function: (SETF LAYOUT-PURE) ; in: DEF!STRUCT (TEMPLATE (:CONSTRUCTOR NIL) (:PURE T)) ; (SB!INT:DEF!STRUCT (SB!C::TEMPLATE (:CONSTRUCTOR NIL) (:PURE T)) ; (SB!C::NAME NIL :TYPE SYMBOL) ; (TYPE (SB!INT:MISSING-ARG) :TYPE SB!KERNEL:CTYPE) ; (SB!C::ARG-TYPES NIL :TYPE LIST) ; (SB!C::RESULT-TYPES NIL :TYPE ; (OR LIST (MEMBER :CONDITIONAL) ; (CONS (EQL :CONDITIONAL)))) ; (SB!C::MORE-ARGS-TYPE NIL :TYPE (OR (MEMBER NIL *) CONS)) ; (SB!C::MORE-RESULTS-TYPE NIL :TYPE ; (OR (MEMBER NIL *) CONS)) ; (SB!C::GUARD NIL :TYPE (OR FUNCTION NULL)) ; (SB!C::LTN-POLICY (SB!INT:MISSING-ARG) :TYPE ; SB!C::LTN-POLICY) ; (SB!C::COST (SB!INT:MISSING-ARG) :TYPE SB!INT:INDEX) ; (SB!C::NOTE NIL :TYPE (OR STRING NULL)) ...) ; --> PROGN DEFSTRUCT PROGN LOCALLY SETF LET* LET* MULTIPLE-VALUE-BIND LET ; --> FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!KERNEL:LAYOUT-PURE) #:NEW1390 #:G1391) ; ; caught STYLE-WARNING: ; undefined function: (SETF LAYOUT-PURE) ; in: ; DEF!STRUCT (VOP-INFO (:INCLUDE TEMPLATE) (:MAKE-LOAD-FORM-FUN IGNORE-IT)) ; (SB!INT:DEF!STRUCT ; (SB!C::VOP-INFO (:INCLUDE SB!C::TEMPLATE) ; (:MAKE-LOAD-FORM-FUN SB!KERNEL:IGNORE-IT)) ; (SB!C::EFFECTS (SB!INT:MISSING-ARG) :TYPE SB!C:ATTRIBUTES) ; (SB!C::AFFECTED (SB!INT:MISSING-ARG) :TYPE SB!C:ATTRIBUTES) ; (SB!C::SAVE-P NIL :TYPE (MEMBER T NIL :FORCE-TO-STACK :COMPUTE-ONLY)) ; (SB!C::MOVE-ARGS NIL :TYPE ; (MEMBER NIL :FULL-CALL :LOCAL-CALL :KNOWN-RETURN)) ; (SB!C::ARG-COSTS NIL :TYPE LIST) (SB!C::RESULT-COSTS NIL :TYPE LIST) ; (SB!C::MORE-ARG-COSTS NIL :TYPE (OR SB!C::SC-VECTOR NULL)) ; (SB!C::MORE-RESULT-COSTS NIL :TYPE (OR SB!C::SC-VECTOR NULL)) ; (SB!C::ARG-LOAD-SCS NIL :TYPE LIST) (SB!C::RESULT-LOAD-SCS NIL :TYPE LIST) ; ...) ; --> PROGN DEFSTRUCT PROGN LOCALLY SETF LET* LET* ; ==> ; (SB!KERNEL:CLASSOID-LAYOUT (SB!KERNEL:FIND-CLASSOID 'SB!C::VOP-INFO)) ; ; caught STYLE-WARNING: ; undefined function: CLASSOID-LAYOUT ; in: DEF!STRUCT (TEMPLATE (:CONSTRUCTOR NIL) (:PURE T)) ; (SB!INT:DEF!STRUCT (SB!C::TEMPLATE (:CONSTRUCTOR NIL) (:PURE T)) ; (SB!C::NAME NIL :TYPE SYMBOL) ; (TYPE (SB!INT:MISSING-ARG) :TYPE SB!KERNEL:CTYPE) ; (SB!C::ARG-TYPES NIL :TYPE LIST) ; (SB!C::RESULT-TYPES NIL :TYPE ; (OR LIST (MEMBER :CONDITIONAL) ; (CONS (EQL :CONDITIONAL)))) ; (SB!C::MORE-ARGS-TYPE NIL :TYPE (OR (MEMBER NIL *) CONS)) ; (SB!C::MORE-RESULTS-TYPE NIL :TYPE ; (OR (MEMBER NIL *) CONS)) ; (SB!C::GUARD NIL :TYPE (OR FUNCTION NULL)) ; (SB!C::LTN-POLICY (SB!INT:MISSING-ARG) :TYPE ; SB!C::LTN-POLICY) ; (SB!C::COST (SB!INT:MISSING-ARG) :TYPE SB!INT:INDEX) ; (SB!C::NOTE NIL :TYPE (OR STRING NULL)) ...) ; --> PROGN DEFSTRUCT PROGN LOCALLY SETF LET* LET* ; ==> ; (SB!KERNEL:CLASSOID-LAYOUT (SB!KERNEL:FIND-CLASSOID 'SB!C::TEMPLATE)) ; ; caught STYLE-WARNING: ; undefined function: CLASSOID-LAYOUT ; in: DEFSTRUCT IR2-COMPONENT ; (DEFSTRUCT (SB!C::IR2-COMPONENT (:COPIER NIL)) ; (SB!C::GLOBAL-TN-COUNTER 0 :TYPE SB!INT:INDEX) ; (SB!C::NORMAL-TNS NIL :TYPE (OR SB!C:TN NULL)) ; (SB!C::RESTRICTED-TNS NIL :TYPE (OR SB!C:TN NULL)) ; (SB!C::WIRED-TNS NIL :TYPE (OR SB!C:TN NULL)) ; (SB!C::CONSTANT-TNS NIL :TYPE (OR SB!C:TN NULL)) ; (SB!C::COMPONENT-TNS NIL :TYPE LIST) ; (SB!C::NFP NIL :TYPE (OR SB!C:TN NULL)) ; (SB!C::SPECIFIED-SAVE-TNS NIL :TYPE LIST) ; (SB!C::VALUES-RECEIVERS NIL :TYPE LIST) ; (SB!C::CONSTANTS (MAKE-ARRAY 10 :FILL-POINTER 0 :ADJUSTABLE T) :TYPE ; VECTOR) ; ...) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:.DEFAULTING-TEMP. #:.DEFAULTING-TEMP. #:.DEFAULTING-TEMP. ; #:.DEFAULTING-TEMP. #:.DEFAULTING-TEMP. #:.DEFAULTING-TEMP. ; #:.DEFAULTING-TEMP. #:.DEFAULTING-TEMP. #:.DEFAULTING-TEMP. ; #:.DEFAULTING-TEMP. #:N-SUPPLIED-429 #:.DEFAULTING-TEMP. ...) ; {B1109D9}> ; 0 NIL NIL NIL NIL NIL NIL NIL NIL NIL ...)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFSTRUCT IR2-LVAR ; (DEFSTRUCT ; (SB!C::IR2-LVAR (:CONSTRUCTOR SB!C::MAKE-IR2-LVAR (SB!C:PRIMITIVE-TYPE)) ; (:COPIER NIL)) ; (SB!C::KIND :FIXED :TYPE (MEMBER :DELAYED :FIXED :UNKNOWN :UNUSED)) ; (SB!C:PRIMITIVE-TYPE NIL :TYPE (OR SB!C:PRIMITIVE-TYPE NULL)) ; (SB!C::LOCS NIL :TYPE LIST) ; (SB!C::STACK-POINTER NIL :TYPE (OR SB!C:TN NULL))) ; --> PROGN SB!KERNEL::DELAY-DEFSTRUCT-FUNCTIONS PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK SETF ; --> SB!KERNEL:%INSTANCE-SET THE MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET ; --> SB!C::%TYPEP-WRAPPER IF ; ==> ; (MEMBER #:OBJECT41779 '(:DELAYED :FIXED :UNKNOWN :UNUSED)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFSTRUCT PRIMITIVE-TYPE ; (DEFSTRUCT (SB!C:PRIMITIVE-TYPE (:COPIER NIL)) ; (SB!C::NAME NIL :TYPE SYMBOL) ; (SB!C::SCS NIL :TYPE LIST) ; (SB!C::SPECIFIER (SB!INT:MISSING-ARG) :TYPE SB!KERNEL:TYPE-SPECIFIER) ; (SB!C::CHECK NIL :TYPE (OR SB!C::TEMPLATE NULL))) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:.DEFAULTING-TEMP. #:.DEFAULTING-TEMP. #:.DEFAULTING-TEMP. ; #:N-SUPPLIED-54 #:.DEFAULTING-TEMP.) ; {D818A41}> ; NIL NIL NIL NIL NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 108 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/vop.lisp ; in: DEFSTRUCT IR2-NLX-INFO ; (SB!ASSEM:GEN-LABEL) ; ; caught STYLE-WARNING: ; undefined function: GEN-LABEL ; (SB!C:MAKE-DYNAMIC-STATE-TNS) ; ; caught STYLE-WARNING: ; undefined function: MAKE-DYNAMIC-STATE-TNS ; (SB!C:MAKE-STACK-POINTER-TN) ; ; caught STYLE-WARNING: ; undefined function: MAKE-STACK-POINTER-TN ; ; compilation unit finished ; Undefined type: ; CODE-DELETION-NOTE ; Undefined functions: ; SB!KERNEL::%TARGET-DEFSTRUCT (SETF LAYOUT-PURE) CLASSOID-LAYOUT GEN-LABEL MAKE-DYNAMIC-STATE-TNS MAKE-STACK-POINTER-TN ; caught 15 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/vop.lisp-obj-tmp written ; compilation finished in 0:00:01.916 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/backend.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFVAR *BACKEND-REGISTER-SAVE-PENALTY* ...) ; x-compiling (DECLAIM (TYPE INDEX ...)) ; x-compiling (DEFVAR *BACKEND-BYTE-ORDER*) ; x-compiling (DECLAIM (TYPE # ...)) ; x-compiling (DEFVAR *BACKEND-SC-NUMBERS* ...) ; x-compiling (DECLAIM (TYPE SC-VECTOR ...)) ; x-compiling (DEFVAR *BACKEND-SB-LIST* ...) ; x-compiling (DECLAIM (TYPE LIST ...)) ; x-compiling (DEFVAR *BACKEND-TEMPLATE-NAMES* ...) ; x-compiling (DECLAIM (TYPE HASH-TABLE ...)) ; x-compiling (DEFVAR *BACKEND-SC-NAMES* ...) ; x-compiling (DECLAIM (TYPE HASH-TABLE ...)) ; x-compiling (DEFVAR *BACKEND-PRIMITIVE-TYPE-NAMES* ...) ; x-compiling (DECLAIM (TYPE HASH-TABLE ...)) ; x-compiling (DEFVAR *BACKEND-PRIMITIVE-TYPE-ALIASES* ...) ; x-compiling (DECLAIM (TYPE LIST ...)) ; x-compiling (DEFVAR *BACKEND-T-PRIMITIVE-TYPE*) ; x-compiling (DECLAIM (TYPE PRIMITIVE-TYPE ...)) ; x-compiling (DEFVAR *BACKEND-PARSED-VOPS* ...) ; x-compiling (DECLAIM (TYPE HASH-TABLE ...)) ; x-compiling (DEFVAR *BACKEND-PREDICATE-TYPES* ...) ; x-compiling (DEFVAR *BACKEND-TYPE-PREDICATES* ...) ; x-compiling (DECLAIM (TYPE HASH-TABLE ...)) ; x-compiling (DECLAIM (TYPE LIST ...)) ; x-compiling (DEFVAR *BACKEND-INTERNAL-ERRORS* ...) ; x-compiling (DECLAIM (TYPE SIMPLE-VECTOR ...)) ; x-compiling (DEFVAR *BACKEND-SUBFEATURES* ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/backend.lisp ; in: DEFVAR *BACKEND-SUBFEATURES* ; 'NIL ; ; note: deleting unreachable code ; in: DEFVAR *BACKEND-SC-NUMBERS* ; (MAKE-ARRAY SB!C::SC-NUMBER-LIMIT :INITIAL-ELEMENT NIL) ; --> LOCALLY MAKE-ARRAY SB!EXT:TRULY-THE ; ==> ; (FILL ; (SB!EXT:TRULY-THE (SIMPLE-ARRAY T (62)) ; (SB!KERNEL:ALLOCATE-VECTOR 214 (THE SB!INT:INDEX LENGTH) ; 62)) ; (THE T 'NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; compilation unit finished ; Undefined type: ; CODE-DELETION-NOTE ; caught 1 STYLE-WARNING condition ; printed 1 note ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/backend.lisp-obj-tmp written ; compilation finished in 0:00:00.032 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/vmdef.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFUN TEMPLATE-OR-LOSE ...) ; x-compiling (DEFUN SC-OR-LOSE ...) ; x-compiling (DEFUN SB-OR-LOSE ...) ; x-compiling (DEFUN SC-NUMBER-OR-LOSE ...) ; x-compiling (!DEF-BOOLEAN-ATTRIBUTE VOP ...) ; x-compiling (DEFUN COMPUTE-MOVE-COSTS ...) ; x-compiling (DEFUN PRIMITIVE-TYPE-OR-LOSE ...) ; x-compiling (DEFUN SC-ALLOWED-BY-PRIMITIVE-TYPE ...) ; x-compiling (DEF!CONSTANT MAX-VOP-TN-REFS ...) ; x-compiling (DECLAIM (TYPE # ...)) ; x-compiling (DEFVAR *VOP-TN-REFS* ...) ; x-compiling (DEF!CONSTANT SC-BITS ...) ; x-compiling (DEFUN EMIT-VOP ...) ; x-compiling (DEFUN ADJOIN-TEMPLATE ...) ; x-compiling (DECLAIM (INLINE TEMPLATE-CONDITIONAL-P)) ; x-compiling (DEFUN TEMPLATE-CONDITIONAL-P ...) ; x-compiling (DEFUN TEMPLATE-TYPE-SPECIFIER ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/vmdef.lisp ; in: !DEF-BOOLEAN-ATTRIBUTE VOP ; (SB!INT:!DEF-BOOLEAN-ATTRIBUTE SB!C::VOP SB!C:ANY) ; --> PROGN SB!C::!DEF-BOOLEAN-ATTRIBUTE-SETTER DEFINE-SETF-EXPANDER EVAL-WHEN ; --> SB!IMPL::ASSIGN-SETF-MACRO ; ==> ; (SB!IMPL::ASSIGN-SETF-MACRO 'SB!C::VOP-ATTRIBUTEP ; (LAMBDA (#:WHOLE18 #:ENVIRONMENT19) ; (LET* () ; (LET (#) ; (UNLESS # #)) ; (LET* (# # #) ; (BLOCK SB!C::VOP-ATTRIBUTEP #)))) ; '(SB!C::PLACE &REST SB!C:ATTRIBUTES &ENVIRONMENT ; SB!C::ENV) ; NIL ; '"Automagically generated boolean attribute setter. See ; !DEF-BOOLEAN-ATTRIBUTE.") ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::ASSIGN-SETF-MACRO ; in: DEFUN SC-ALLOWED-BY-PRIMITIVE-TYPE ; (MEMBER SB!C:SC (SB!C::SC-CONSTANT-SCS SB!C::ALLOWED-SC)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; (MEMBER SB!C:SC (SB!C::SC-ALTERNATE-SCS SB!C::ALLOWED-SC)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: !DEF-BOOLEAN-ATTRIBUTE VOP ; (SB!INT:!DEF-BOOLEAN-ATTRIBUTE SB!C::VOP SB!C:ANY) ; --> PROGN SB!C::!DEF-BOOLEAN-ATTRIBUTE-SETTER DEFINE-SETF-EXPANDER EVAL-WHEN ; --> SB!IMPL::ASSIGN-SETF-MACRO SB!IMPL::ASSIGN-SETF-MACRO LAMBDA FUNCTION ; --> LET* LET* BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!C::TEMPS VALUES SB!C::STORES SET GET #:G21) {ED45E39}> ; SB!C::TEMPS VALUES SB!C::STORES SET GET NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 14 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/vmdef.lisp ; in: DEFUN TEMPLATE-TYPE-SPECIFIER ; (SB!INT:QUASIQUOTE ; (#S(SB!IMPL::COMMA :EXPR (MAPCAR #'SB!C::FROB SB!C::TYPES) :KIND 2) ; #S(SB!IMPL::COMMA ; :EXPR (WHEN SB!C::MORE-TYPES (SB!INT:QUASIQUOTE #)) ; :KIND 2))) ; --> SB!IMPL::|Append| MAPCAR LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; (SB!INT:QUASIQUOTE ; (OR ; #S(SB!IMPL::COMMA ; :EXPR (MAPCAR #'SB!C::PRIMITIVE-TYPE-SPECIFIER (REST SB!C::X)) ; :KIND 2))) ; --> SB!IMPL::|List*| MAPCAR LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: !DEF-BOOLEAN-ATTRIBUTE VOP ; (SB!INT:!DEF-BOOLEAN-ATTRIBUTE SB!C::VOP SB!C:ANY) ; --> PROGN SB!C::!DEF-BOOLEAN-ATTRIBUTE-SETTER DEFINE-SETF-EXPANDER EVAL-WHEN ; --> SB!IMPL::ASSIGN-SETF-MACRO SB!IMPL::ASSIGN-SETF-MACRO LAMBDA FUNCTION ; --> LET* LET* BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; (SB-XC:GET-SETF-EXPANSION SB!C::PLACE SB!C::ENV) ; ; caught STYLE-WARNING: ; undefined function: SB-XC:GET-SETF-EXPANSION ; in: DEFUN EMIT-VOP ; (SB!C:MAKE-RESTRICTED-TN NIL (ASH SB!C::TEMP -1)) ; ; caught STYLE-WARNING: ; undefined function: MAKE-RESTRICTED-TN ; (SB!C:MAKE-WIRED-TN NIL (SB-XC:LDB (SB-XC:BYTE SB!C::SC-BITS 1) SB!C::TEMP) ; (ASH SB!C::TEMP (- (1+ SB!C::SC-BITS)))) ; ; caught STYLE-WARNING: ; undefined function: MAKE-WIRED-TN ; (SB!C::REFERENCE-TN SB!C:TN NIL) ; ; caught STYLE-WARNING: ; undefined function: REFERENCE-TN ; (SB!REGALLOC:TARGET-IF-DESIRABLE ; (AREF SB!C::REFS (SB-XC:LDB (SB-XC:BYTE 8 8) SB!C::TARGET)) ; (AREF SB!C::REFS (SB-XC:LDB (SB-XC:BYTE 8 0) SB!C::TARGET))) ; ; caught STYLE-WARNING: ; undefined function: SB!REGALLOC:TARGET-IF-DESIRABLE ; ; compilation unit finished ; Undefined types: ; CODE-DELETION-NOTE COMPILER-NOTE ; Undefined functions: ; SB!IMPL::ASSIGN-SETF-MACRO SB-XC:GET-SETF-EXPANSION MAKE-RESTRICTED-TN MAKE-WIRED-TN REFERENCE-TN SB!REGALLOC:TARGET-IF-DESIRABLE ; caught 12 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/vmdef.lisp-obj-tmp written ; compilation finished in 0:00:00.197 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/backend-parms.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEF!CONSTANT +BACKEND-FASL-FILE-IMPLEMENTATION+ ...) ; x-compiling (SETF *BACKEND-REGISTER-SAVE-PENALTY* ...) ; x-compiling (SETF *BACKEND-BYTE-ORDER* ...) ; x-compiling (SETF *BACKEND-PAGE-BYTES* ...) ; x-compiling (DEF!CONSTANT GENCGC-CARD-BYTES ...) ; x-compiling (DEF!CONSTANT GENCGC-ALLOC-GRANULARITY ...) ; x-compiling (DEF!CONSTANT GENCGC-RELEASE-GRANULARITY ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/x86/backend-parms.lisp-obj-tmp written ; compilation finished in 0:00:00.009 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/globaldb.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS) ; x-compiling (!COLD-INIT-FORMS (/SHOW0 "early in globaldb.lisp cold init")) ; x-compiling (DEFUN GLOBALDB-SXHASHOID ...) ; x-compiling (DEFUN PRIMIFY ...) ; x-compiling (DECLAIM (TYPE # ...)) ; x-compiling (!DEFGLOBAL *INFO-TYPES* ...) ; x-compiling (DEFSTRUCT (TYPE-INFO # ...) ...) ; x-compiling (DECLAIM (FREEZE-TYPE TYPE-INFO)) ; x-compiling (DEFCONSTANT +INFO-METAINFO-TYPE-NUM+ ...) ; x-compiling (DEFUN %GET-TYPE-INFO-METADATA ...) ; x-compiling (DEFUN REGISTER-INFO-METADATA ...) ; x-compiling (DEFUN FIND-TYPE-INFO ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN TYPE-INFO-OR-LOSE ...) ; x-compiling (DEFUN INFO ...) ; x-compiling (DEFUN (SETF INFO) ...) ; x-compiling (DEFUN CLEAR-INFO ...) ; x-compiling (DEFUN CLEAR-INFO-VALUES ...) ; x-compiling (!COLD-INIT-FORMS (SETQ *INFO-ENVIRONMENT* ...) ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN GET-INFO-VALUE ...) ; x-compiling (DEF!MACRO GET-INFO-VALUE-INITIALIZING ...) ; x-compiling (DEF!MACRO ATOMIC-SET-INFO-VALUE ...) ; x-compiling (DEFUN CALL-WITH-EACH-GLOBALDB-NAME ...) ; x-compiling (DEFINE-INFO-TYPE (:FUNCTION :DEFINITION) ...) ; x-compiling (DEFINE-INFO-TYPE (:FUNCTION :KIND) ...) ; x-compiling (DEFINE-INFO-TYPE (:FUNCTION :TYPE) ...) ; x-compiling (DEFINE-INFO-TYPE (:FUNCTION :ASSUMED-TYPE) ...) ; x-compiling (DEFINE-INFO-TYPE (:FUNCTION :WHERE-FROM) ...) ; x-compiling (DEFINE-INFO-TYPE (:FUNCTION :INLINE-EXPANSION-DESIGNATOR) ...) ; x-compiling (DEFINE-INFO-TYPE (:FUNCTION :INLINEP) ...) ; x-compiling (DEFINE-INFO-TYPE (:FUNCTION :EMITTED-FULL-CALLS) ...) ; x-compiling (DEFINE-INFO-TYPE (:FUNCTION :SOURCE-TRANSFORM) ...) ; x-compiling (DEFINE-INFO-TYPE (:FUNCTION :MACRO-FUNCTION) ...) ; x-compiling (DEFINE-INFO-TYPE (:FUNCTION :COMPILER-MACRO-FUNCTION) ...) ; x-compiling (DEFINE-INFO-TYPE (:FUNCTION :IR1-CONVERT) ...) ; x-compiling (DEFINE-INFO-TYPE (:FUNCTION :INFO) ...) ; x-compiling (DEFINE-INFO-TYPE (:VARIABLE :KIND) ...) ; x-compiling (DEFINE-INFO-TYPE (:VARIABLE :ALWAYS-BOUND) ...) ; x-compiling (DEFINE-INFO-TYPE (:VARIABLE :DEPRECATED) ...) ; x-compiling (DEFINE-INFO-TYPE (:VARIABLE :TYPE) ...) ; x-compiling (DEFINE-INFO-TYPE (:VARIABLE :WHERE-FROM) ...) ; x-compiling (DEFINE-INFO-TYPE (:VARIABLE :MACRO-EXPANSION) ...) ; x-compiling (DEFINE-INFO-TYPE (:VARIABLE :ALIEN-INFO) ...) ; x-compiling (DEFINE-INFO-TYPE (:VARIABLE :DOCUMENTATION) ...) ; x-compiling (DEFINE-INFO-TYPE (:VARIABLE :WIRED-TLS) ...) ; x-compiling (DEFINE-INFO-TYPE (:TYPE :KIND) ...) ; x-compiling (DEFINE-INFO-TYPE (:TYPE :EXPANDER) ...) ; x-compiling (DEFINE-INFO-TYPE (:TYPE :DOCUMENTATION) ...) ; x-compiling (DEFINE-INFO-TYPE (:TYPE :TRANSLATOR) ...) ; x-compiling (DEFINE-INFO-TYPE (:TYPE :BUILTIN) ...) ; x-compiling (DEFINE-INFO-TYPE (:TYPE :CLASSOID-CELL) ...) ; x-compiling (DEFINE-INFO-TYPE (:TYPE :COMPILER-LAYOUT) ...) ; x-compiling (DEFINE-INFO-TYPE (:TYPE :LAMBDA-LIST) ...) ; x-compiling (DEFINE-INFO-TYPE (:TYPE :SOURCE-LOCATION) ...) ; x-compiling (DEFINE-INFO-TYPE (:TYPED-STRUCTURE :INFO) ...) ; x-compiling (DEFINE-INFO-TYPE (:TYPED-STRUCTURE :DOCUMENTATION) ...) ; x-compiling (DEFGLOBAL *RECOGNIZED-DECLARATIONS* ...) ; x-compiling (DEFINE-INFO-TYPE (:DECLARATION :RECOGNIZED) ...) ; x-compiling (DEFINE-INFO-TYPE (:DECLARATION :HANDLER) ...) ; x-compiling (DEFINE-INFO-TYPE (:ALIEN-TYPE :KIND) ...) ; x-compiling (DEFINE-INFO-TYPE (:ALIEN-TYPE :TRANSLATOR) ...) ; x-compiling (DEFINE-INFO-TYPE (:ALIEN-TYPE :DEFINITION) ...) ; x-compiling (DEFINE-INFO-TYPE (:ALIEN-TYPE :STRUCT) ...) ; x-compiling (DEFINE-INFO-TYPE (:ALIEN-TYPE :UNION) ...) ; x-compiling (DEFINE-INFO-TYPE (:ALIEN-TYPE :ENUM) ...) ; x-compiling (DEFINE-INFO-TYPE (:SETF :INVERSE) ...) ; x-compiling (DEFINE-INFO-TYPE (:SETF :DOCUMENTATION) ...) ; x-compiling (DEFINE-INFO-TYPE (:SETF :EXPANDER) ...) ; x-compiling (DEFINE-INFO-TYPE (:CAS :EXPANDER) ...) ; x-compiling (DEFINE-INFO-TYPE (:RANDOM-DOCUMENTATION :STUFF) ...) ; x-compiling (DEFINE-INFO-TYPE (:SOURCE-LOCATION :VARIABLE) ...) ; x-compiling (DEFINE-INFO-TYPE (:SOURCE-LOCATION :CONSTANT) ...) ; x-compiling (DEFINE-INFO-TYPE (:SOURCE-LOCATION :TYPED-STRUCTURE) ...) ; x-compiling (DEFINE-INFO-TYPE (:SOURCE-LOCATION :SYMBOL-MACRO) ...) ; x-compiling (DECLAIM (FREEZE-TYPE BASIC-INFO-ENV)) ; x-compiling (DEFUN CALL-WITH-EACH-INFO ...) ; x-compiling (DEFUN SHOW-INFO ...) ; x-compiling (!COLD-INIT-FORMS (/SHOW0 "beginning *INFO-TYPES* initialization") ...) ; x-compiling (FROB) ; x-compiling (DEF INFO ...) ; x-compiling (DEF (SETF INFO) ...) ; x-compiling (DEF CLEAR-INFO ...) ; x-compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !GLOBALDB-COLD-INIT) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/globaldb.lisp ; in: DEFGLOBAL *RECOGNIZED-DECLARATIONS* ; (SB!EXT:DEFGLOBAL SB!C::*RECOGNIZED-DECLARATIONS* NIL) ; --> PROGN LET LET ; ==> ; (SB!IMPL::%DEFGLOBAL 'SB!C::*RECOGNIZED-DECLARATIONS* (UNLESS #:BOUNDP NIL) ; #:BOUNDP 'NIL NIL (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::%DEFGLOBAL ; in: EVAL-WHEN (:LOAD-TOPLEVEL :EXECUTE) ; (SB!INT:!DEFGLOBAL SB!C::*INFO-TYPES* ; (MAKE-ARRAY (ASH 1 SB!C::TYPE-NUMBER-BITS) ; :INITIAL-ELEMENT NIL)) ; --> PROGN SB!EXT:DEFGLOBAL PROGN LET LET ; ==> ; (SB!IMPL::%DEFGLOBAL 'SB!C::*INFO-TYPES* ; (UNLESS #:BOUNDP ; (MAKE-ARRAY (ASH 1 SB!C::TYPE-NUMBER-BITS) ; :INITIAL-ELEMENT NIL)) ; #:BOUNDP 'NIL NIL (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::%DEFGLOBAL ; in: DEFSTRUCT TYPE-INFO ; (DEFSTRUCT ; (SB!C::TYPE-INFO ; (:PRINT-OBJECT (LAMBDA (SB!C::X SB!C::S) (PRINT-UNREADABLE-OBJECT # #))) ; (:CONSTRUCTOR SB!C::MAKE-GLOBALDB-INFO-METADATA ; (NUMBER CLASS SB!C::NAME SB!C::TYPE-SPEC)) ; (:COPIER NIL)) ; (SB!C::NAME NIL :TYPE KEYWORD) ; (CLASS NIL :TYPE KEYWORD) ; (NUMBER NIL :TYPE SB!C::TYPE-NUMBER) ; (SB!C::TYPE-SPEC NIL :TYPE T) ; (SB!C::DEFAULT NIL) ; (SB!C::TYPE-CHECKER #'IDENTITY :TYPE FUNCTION) ; (SB!C::VALIDATE-FUNCTION NIL :TYPE (OR FUNCTION NULL))) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: DECLAIM (FREEZE-TYPE BASIC-INFO-ENV) ; (DECLAIM (SB!EXT:FREEZE-TYPE SB!C::BASIC-INFO-ENV)) ; --> EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(SB!EXT:FREEZE-TYPE SB!C::BASIC-INFO-ENV)) ; ; caught STYLE-WARNING: ; undefined type: BASIC-INFO-ENV ; in: !DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !GLOBALDB-COLD-INIT ; (SB!INT:!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS SB!KERNEL:!GLOBALDB-COLD-INIT) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK LET SETF PROGN SETF LET* MULTIPLE-VALUE-BIND LET LAMBDA ; --> FUNCTION LET WHEN IF PROGN ; ==> ; (SB!KERNEL:CLASSOID-LAYOUT CLASS) ; ; caught STYLE-WARNING: ; undefined function: CLASSOID-LAYOUT ; in: DEFUN REGISTER-INFO-METADATA ; (SETF SB!C::METAINFO ; (SB!C::MAKE-GLOBALDB-INFO-METADATA SB!C::TYPE-NUM SB!C::CLASS-KEYWORD ; SB!C::TYPE-KEYWORD ; SB!C::TYPE-SPEC) ; (AREF SB!C::*INFO-TYPES* SB!C::TYPE-NUM) SB!C::METAINFO) ; --> PROGN SETF LET* MULTIPLE-VALUE-BIND LET FUNCALL SB!C::%FUNCALL ; --> (SETF AREF) SB!KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS SB!EXT:TRULY-THE ; ==> ; (SB!KERNEL:HAIRY-DATA-VECTOR-SET ARRAY ; (SB!KERNEL:%CHECK-BOUND ARRAY (ARRAY-DIMENSION ARRAY 0) SB!INT:INDEX) ; (THE T SB!C::NEW-VALUE)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; (POSITION NIL SB!C::*INFO-TYPES* :START 1) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: EVAL-WHEN (:LOAD-TOPLEVEL :EXECUTE) ; (MAKE-ARRAY (ASH 1 SB!C::TYPE-NUMBER-BITS) :INITIAL-ELEMENT NIL) ; --> LOCALLY MAKE-ARRAY SB!EXT:TRULY-THE ; ==> ; (FILL ; (SB!EXT:TRULY-THE (SIMPLE-ARRAY T (64)) ; (SB!KERNEL:ALLOCATE-VECTOR 214 (THE SB!INT:INDEX LENGTH) ; 64)) ; (THE T 'NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 34 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/globaldb.lisp ; in: !DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !GLOBALDB-COLD-INIT ; (SB!INT:!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS SB!KERNEL:!GLOBALDB-COLD-INIT) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK LET SETF LET* MULTIPLE-VALUE-BIND LET LAMBDA ; ==> ; #'(LAMBDA (SB!C::X) (DECLARE (TYPE (OR SB!C::FUN-INFO NULL) SB!C::X)) SB!C::X) ; ; caught STYLE-WARNING: ; undefined type: FUN-INFO ; in: DEFUN CALL-WITH-EACH-GLOBALDB-NAME ; (DO-SYMBOLS (SYMBOL PACKAGE) ; (WHEN (EQ (SYMBOL-PACKAGE SYMBOL) PACKAGE) ; (LET ((VECTOR #)) ; (WHEN VECTOR (WHEN # #) (SB!C::DO-PACKED-INFO-VECTOR-AUX-KEY # #))))) ; --> BLOCK WITH-PACKAGE-ITERATOR MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; (SB!IMPL::PACKAGE-ITER-INIT 7 (SB!INT:FIND-UNDELETED-PACKAGE-OR-LOSE PACKAGE)) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::PACKAGE-ITER-INIT ; in: !DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !GLOBALDB-COLD-INIT ; (SB!INT:!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS SB!KERNEL:!GLOBALDB-COLD-INIT) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK LET SETF PROGN SETF LET* MULTIPLE-VALUE-BIND LET LAMBDA ; --> FUNCTION IF HANDLER-BIND SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET LET ; --> PROGN MULTIPLE-VALUE-PROG1 PROGN ; ==> ; (SB!KERNEL:SPECIFIER-TYPE (SB!IMPL::%FUN-TYPE (FDEFINITION SB!C::NAME))) ; ; caught STYLE-WARNING: ; undefined function: SPECIFIER-TYPE ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK LET SETF PROGN SETF LET* MULTIPLE-VALUE-BIND LET LAMBDA ; --> FUNCTION IF HANDLER-BIND SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK ; ==> ; (TYPEP CONDITION 'STYLE-WARNING) ; ; caught STYLE-WARNING: ; undefined type: STYLE-WARNING ; ; compilation unit finished ; Undefined types: ; BASIC-INFO-ENV CODE-DELETION-NOTE FUN-INFO STYLE-WARNING ; Undefined functions: ; SB!IMPL::%DEFGLOBAL SB!KERNEL::%TARGET-DEFSTRUCT CLASSOID-LAYOUT SB!IMPL::PACKAGE-ITER-INIT SPECIFIER-TYPE ; caught 13 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/globaldb.lisp-obj-tmp written ; compilation finished in 0:00:00.617 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/info-functions.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFUN CHECK-FUN-NAME ...) ; x-compiling (DEFUN PROCLAIM-AS-FUN-NAME ...) ; x-compiling (DEFUN NOTE-IF-SETF-FUN-AND-MACRO ...) ; x-compiling (DEFUN UNDEFINE-FUN-NAME ...) ; x-compiling (DEFUN BECOME-DEFINED-FUN-NAME ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN FUN-NAME-INLINE-EXPANSION ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/info-functions.lisp ; in: DEFUN FUN-NAME-INLINE-EXPANSION ; (DEFUN SB!INT:FUN-NAME-INLINE-EXPANSION (SB!C::FUN-NAME) ; (LET ((SB!INT:INFO ; (SB!INT:INFO :FUNCTION :INLINE-EXPANSION-DESIGNATOR SB!C::FUN-NAME))) ; (IF (FUNCTIONP SB!INT:INFO) ; (FUNCALL SB!INT:INFO) ; SB!INT:INFO))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; ==> ; #'(SB!INT:NAMED-LAMBDA SB!INT:FUN-NAME-INLINE-EXPANSION ; (SB!C::FUN-NAME) ; (BLOCK SB!INT:FUN-NAME-INLINE-EXPANSION ; (LET ((SB!INT:INFO #)) ; (IF (FUNCTIONP SB!INT:INFO) ; (FUNCALL SB!INT:INFO) ; SB!INT:INFO)))) ; ; note: type assertion too complex to check: ; (VALUES &OPTIONAL LIST &REST T). ; x-compiling (DEFUN SB-XC:MACRO-FUNCTION ...) ; x-compiling (DEFUN (SETF SB-XC:MACRO-FUNCTION) ...) ; x-compiling (DEFUN FUN-LOCALLY-DEFINED-P ...) ; x-compiling (DEFUN SB-XC:COMPILER-MACRO-FUNCTION ...) ; x-compiling (DEFUN (SETF SB-XC:COMPILER-MACRO-FUNCTION) ...) ; x-compiling (DEFUN FDOCUMENTATION ...) ; x-compiling (DEFUN (SETF FDOCUMENTATION) ...) ; x-compiling (DEFUN RANDOM-DOCUMENTATION ...) ; x-compiling (DEFUN (SETF RANDOM-DOCUMENTATION) ...) ; x-compiling (DEFUN EMITTED-FULL-CALL-COUNT ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/info-functions.lisp ; in: DEFUN FDOCUMENTATION ; (CLASS-NAME SB!C::X) ; ; caught STYLE-WARNING: ; undefined function: CLASS-NAME ; in: DEFUN PROCLAIM-AS-FUN-NAME ; (SB!INT:INFO :FUNCTION :KIND SB!C::NAME) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:VALUE23 #:FOUNDP24 #:G25) {E996B29}> ; #:VALUE23 #:FOUNDP24 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; (SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR NIL ; (FLET ((SB!C::ASSERT-IT () ; (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED SB!C::NAME ; "proclaiming ~S as a function"))) ; (LET ((SB!C::KIND #)) ; (WHEN (AND # #) ; (SB!C::ASSERT-IT) ; (SB!C:COMPILER-STYLE-WARN "~S was previously defined as a macro." ; SB!C::NAME) ; (SETF #) ; (SB!INT:CLEAR-INFO :FUNCTION :MACRO-FUNCTION SB!C::NAME)) ; (UNLESS (EQ :FUNCTION SB!C::KIND) (SB!C::ASSERT-IT) (SETF #))))) ; --> PROGN LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:NEXT11 #:START12 #:COUNT13 #:G14) {E977F11}> ; #:NEXT11 #:START12 #:COUNT13 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN CHECK-FUN-NAME ; (SB!INT:INFO :FUNCTION :KIND SB!C::NAME) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:VALUE0 #:FOUNDP1 #:G2) {E946131}> ; #:VALUE0 #:FOUNDP1 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 40 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/info-functions.lisp ; in: DEFUN FUN-LOCALLY-DEFINED-P ; (SB!C::LEXENV-FUNS SB!C::ENV) ; ; caught STYLE-WARNING: ; undefined function: LEXENV-FUNS ; in: DEFUN SB-XC:MACRO-FUNCTION ; (SB!C::LEXENV-FUNS SB!C::ENV) ; ; caught STYLE-WARNING: ; undefined function: LEXENV-FUNS ; in: DEFUN FDOCUMENTATION ; (SB!KERNEL:PACKAGE-DOC-STRING SB!C::X) ; ; caught STYLE-WARNING: ; undefined function: PACKAGE-DOC-STRING ; (TYPECASE SB!C::X ; (FUNCTION (SB!KERNEL:%FUN-DOC SB!C::X)) ; (PACKAGE (SB!KERNEL:PACKAGE-DOC-STRING SB!C::X)) ; (STRUCTURE-CLASS ; (VALUES (SB!INT:INFO :TYPE :DOCUMENTATION (CLASS-NAME SB!C::X)))) ; ((OR SYMBOL CONS) (SB!KERNEL:RANDOM-DOCUMENTATION SB!C::X SB!C::DOC-TYPE))) ; --> LET COND IF COND IF COND IF ; ==> ; (TYPEP #:G45188 'STRUCTURE-CLASS) ; ; caught STYLE-WARNING: ; undefined type: STRUCTURE-CLASS ; (TYPECASE SB!C::X ; (STRUCTURE-CLASS ; (VALUES (SB!INT:INFO :TYPE :DOCUMENTATION (CLASS-NAME SB!C::X)))) ; (T ; (AND (TYPEP SB!C::X 'SYMBOL) ; (VALUES (SB!INT:INFO :TYPE :DOCUMENTATION SB!C::X))))) ; --> LET COND IF ; ==> ; (TYPEP #:G45182 'STRUCTURE-CLASS) ; ; caught STYLE-WARNING: ; undefined type: STRUCTURE-CLASS ; ; compilation unit finished ; Undefined types: ; CODE-DELETION-NOTE STRUCTURE-CLASS ; Undefined functions: ; CLASS-NAME LEXENV-FUNS PACKAGE-DOC-STRING ; caught 10 STYLE-WARNING conditions ; printed 1 note ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/info-functions.lisp-obj-tmp written ; compilation finished in 0:00:00.119 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/force-delayed-defbangconstants.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/force-delayed-defbangconstants.lisp-obj-tmp written ; compilation finished in 0:00:00.003 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/defmacro.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFUN %EXPANDER-FOR-DEFMACRO ...) ; x-compiling (DEF (:LOAD-TOPLEVEL :EXECUTE) ...) ; x-compiling (DEF NIL ...) ; x-compiling (DEFMACRO SB-XC:DEFMACRO ...) ; x-compiling (DEF!MACRO DEFMACRO-MUNDANELY ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/defmacro.lisp ; in: DEF (:LOAD-TOPLEVEL :EXECUTE) ; (SB!IMPL::DEF (:LOAD-TOPLEVEL :EXECUTE) T) ; --> EVAL-WHEN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK LET SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:NEXT55 #:START56 #:COUNT57 #:G58) {F2335F1}> ; #:NEXT55 #:START56 #:COUNT57 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN %EXPANDER-FOR-DEFMACRO ; (MULTIPLE-VALUE-BIND (SB!IMPL::NEW-BODY SB!IMPL::LOCAL-DECS SB!IMPL::DOC) ; (SB!KERNEL:PARSE-DEFMACRO SB!IMPL::LAMBDA-LIST SB!IMPL::WHOLE ; SB!IMPL::BODY SB!IMPL::NAME 'DEFMACRO ; :ENVIRONMENT SB!IMPL::ENVIRONMENT) ; (LET ((SB!IMPL::DEF (SB!INT:QUASIQUOTE #)) ; (SB!IMPL::DEBUG-NAME ; (SB!C::DEBUG-NAME 'MACRO-FUNCTION SB!IMPL::NAME))) ; (SB!INT:QUASIQUOTE (PROGN (EVAL-WHEN # #) (EVAL-WHEN # #))))) ; --> MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!IMPL::NEW-BODY SB!IMPL::LOCAL-DECS SB!IMPL::DOC #:G0) ; {F17B4B9}> ; SB!IMPL::NEW-BODY SB!IMPL::LOCAL-DECS SB!IMPL::DOC NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; compilation unit finished ; Undefined type: ; CODE-DELETION-NOTE ; caught 2 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/defmacro.lisp-obj-tmp written ; compilation finished in 0:00:00.028 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/force-delayed-defbangmacros.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/force-delayed-defbangmacros.lisp-obj-tmp written ; compilation finished in 0:00:00.003 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/late-macros.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!C") ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/late-macros.lisp-obj-tmp written ; compilation finished in 0:00:00.003 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/meta-vmdef.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFMACRO DEFINE-STORAGE-BASE ...) ; x-compiling (DEFMACRO DEFINE-STORAGE-CLASS ...) ; x-compiling (DEFMACRO DO-SC-PAIRS ...) ; x-compiling (DEFMACRO DEFINE-MOVE-FUN ...) ; x-compiling (DEFPARAMETER *SC-VOP-SLOTS* ...) ; x-compiling (DEFMACRO DEFINE-MOVE-VOP ...) ; x-compiling (DEFMACRO !DEF-PRIMITIVE-TYPE ...) ; x-compiling (DEFMACRO !DEF-PRIMITIVE-TYPE-ALIAS ...) ; x-compiling (DEFPARAMETER *PRIMITIVE-TYPE-SLOT-ALIST* ...) ; x-compiling (DEFMACRO PRIMITIVE-TYPE-VOP ...) ; x-compiling (DEF!STRUCT (VOP-PARSE # ...) ...) ; x-compiling (DEFPRINTER (VOP-PARSE) ...) ; x-compiling (DEF!STRUCT (OPERAND-PARSE # ...) ...) ; x-compiling (DEFPRINTER (OPERAND-PARSE) ...) ; x-compiling (DEFUN FIND-OPERAND ...) ; x-compiling (DEFUN VOP-PARSE-OR-LOSE ...) ; x-compiling (DEFUN ACCESS-OPERANDS ...) ; x-compiling (DEFUN IGNORE-UNREFERENCED-TEMPS ...) ; x-compiling (DEFUN VOP-SPEC-ARG ...) ; x-compiling (DEFUN PARSE-TIME-SPEC ...) ; x-compiling (DEFUN TIME-SPEC-ORDER ...) ; x-compiling (DEFUN COMPUTE-TEMPORARIES-DESCRIPTION ...) ; x-compiling (DEFUN COMPUTE-REF-ORDERING ...) ; x-compiling (DEFUN MAKE-EMIT-FUNCTION-AND-FRIENDS ...) ; x-compiling (DEFUN FIND-MOVE-FUNS ...) ; x-compiling (DEFUN CALL-MOVE-FUN ...) ; x-compiling (DEFUN DECIDE-TO-LOAD ...) ; x-compiling (DEFUN MAKE-GENERATOR-FUNCTION ...) ; x-compiling (DEFVAR *PARSE-VOP-OPERAND-COUNT*) ; x-compiling (DEFUN MAKE-OPERAND-PARSE-TEMP ...) ; x-compiling (DEFUN MAKE-OPERAND-PARSE-LOAD-TN ...) ; x-compiling (DEFUN PARSE-VOP-OPERANDS ...) ; x-compiling (DEFUN PARSE-TEMPORARY ...) ; x-compiling (DEFUN COMPUTE-PARSE-VOP-OPERAND-COUNT ...) ; x-compiling (DEFUN PARSE-DEFINE-VOP ...) ; x-compiling (DEFUN COMPUTE-LOADING-COSTS ...) ; x-compiling (DEFPARAMETER *NO-COSTS* ...) ; x-compiling (DEFPARAMETER *NO-LOADS* ...) ; x-compiling (DEFUN COMPUTE-LOADING-COSTS-IF-ANY ...) ; x-compiling (DEFUN COMPUTE-COSTS-AND-RESTRICTIONS-LIST ...) ; x-compiling (DEFUN MAKE-COSTS-AND-RESTRICTIONS ...) ; x-compiling (DEFUN PARSE-VOP-OPERAND-TYPES ...) ; x-compiling (DEFUN CHECK-OPERAND-TYPE-SCS ...) ; x-compiling (DEFUN CHECK-OPERAND-TYPES ...) ; x-compiling (DEFUN GROVEL-VOP-OPERANDS ...) ; x-compiling (DEFUN SET-UP-FUN-TRANSLATION ...) ; x-compiling (DEFUN MAKE-OPERAND-TYPE ...) ; x-compiling (DEFUN SPECIFY-OPERAND-TYPES ...) ; x-compiling (DEFUN MAKE-VOP-INFO-TYPES ...) ; x-compiling (DEFPARAMETER *SLOT-INHERIT-ALIST* ...) ; x-compiling (DEFMACRO INHERIT-VOP-INFO ...) ; x-compiling (DEFUN SET-UP-VOP-INFO ...) ; x-compiling (DEF!MACRO DEFINE-VOP ...) ; x-compiling (DEFUN STORE-VOP-INFO ...) ; x-compiling (DEFUN MAKE-OPERAND-LIST ...) ; x-compiling (DEFMACRO EMIT-TEMPLATE ...) ; x-compiling (DEFMACRO VOP ...) ; x-compiling (DEFMACRO VOP* ...) ; x-compiling (DEF!MACRO SC-CASE ...) ; x-compiling (DEFMACRO SC-IS ...) ; x-compiling (DEFMACRO DO-IR2-BLOCKS ...) ; x-compiling (DEFMACRO DO-LIVE-TNS ...) ; x-compiling (DEFMACRO DO-PHYSENV-IR2-BLOCKS ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/meta-vmdef.lisp ; in: ; DEF!STRUCT (OPERAND-PARSE (:MAKE-LOAD-FORM-FUN JUST-DUMP-IT-NORMALLY) ; (:PURE T)) ; (SB!INT:DEF!STRUCT ; (SB!C::OPERAND-PARSE (:MAKE-LOAD-FORM-FUN SB!KERNEL:JUST-DUMP-IT-NORMALLY) ; (:PURE T)) ; (SB!C::NAME NIL :TYPE SYMBOL) ; (SB!C::KIND (SB!INT:MISSING-ARG) :TYPE ; (MEMBER :ARGUMENT :RESULT :TEMPORARY :MORE-ARGUMENT :MORE-RESULT)) ; (SB!C::TARGET NIL :TYPE (OR SYMBOL NULL)) ; (SB!C::TEMP (SB!C::MAKE-OPERAND-PARSE-TEMP) :TYPE SYMBOL) SB!C::BORN ; SB!C::DIES (SB!C::SCS NIL :TYPE LIST) ; (SB!C::LOAD-TN (SB!C::MAKE-OPERAND-PARSE-LOAD-TN) :TYPE SYMBOL) (LOAD T) ; (SB!C:SC NIL :TYPE (OR SYMBOL NULL)) ...) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: ; DEF!STRUCT (VOP-PARSE (:MAKE-LOAD-FORM-FUN JUST-DUMP-IT-NORMALLY) (:PURE T)) ; (SB!INT:DEF!STRUCT ; (SB!C::VOP-PARSE (:MAKE-LOAD-FORM-FUN SB!KERNEL:JUST-DUMP-IT-NORMALLY) ; (:PURE T)) ; (SB!C::NAME NIL :TYPE SYMBOL) (SB!C::INHERITS NIL :TYPE (OR SYMBOL NULL)) ; (SB!C::ARGS NIL :TYPE LIST) (SB!C::RESULTS NIL :TYPE LIST) ; (SB!C::TEMPS NIL :TYPE LIST) ; (SB!C::MORE-ARGS NIL :TYPE (OR SB!C::OPERAND-PARSE NULL)) ; (SB!C::MORE-RESULTS NIL :TYPE (OR SB!C::OPERAND-PARSE NULL)) ; (SB!C::OPERANDS NIL :TYPE LIST) (SB!C::IGNORES NIL :TYPE LIST) ; (SB!C::CONDITIONAL-P NIL) ...) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: ; DEF!STRUCT (OPERAND-PARSE (:MAKE-LOAD-FORM-FUN JUST-DUMP-IT-NORMALLY) ; (:PURE T)) ; (SB!INT:DEF!STRUCT ; (SB!C::OPERAND-PARSE (:MAKE-LOAD-FORM-FUN SB!KERNEL:JUST-DUMP-IT-NORMALLY) ; (:PURE T)) ; (SB!C::NAME NIL :TYPE SYMBOL) ; (SB!C::KIND (SB!INT:MISSING-ARG) :TYPE ; (MEMBER :ARGUMENT :RESULT :TEMPORARY :MORE-ARGUMENT :MORE-RESULT)) ; (SB!C::TARGET NIL :TYPE (OR SYMBOL NULL)) ; (SB!C::TEMP (SB!C::MAKE-OPERAND-PARSE-TEMP) :TYPE SYMBOL) SB!C::BORN ; SB!C::DIES (SB!C::SCS NIL :TYPE LIST) ; (SB!C::LOAD-TN (SB!C::MAKE-OPERAND-PARSE-LOAD-TN) :TYPE SYMBOL) (LOAD T) ; (SB!C:SC NIL :TYPE (OR SYMBOL NULL)) ...) ; --> PROGN DEFSTRUCT PROGN LOCALLY SETF LET* LET* MULTIPLE-VALUE-BIND LET ; --> FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!KERNEL:LAYOUT-PURE) #:NEW1130 #:G1131) ; ; caught STYLE-WARNING: ; undefined function: (SETF LAYOUT-PURE) ; in: ; DEF!STRUCT (VOP-PARSE (:MAKE-LOAD-FORM-FUN JUST-DUMP-IT-NORMALLY) (:PURE T)) ; (SB!INT:DEF!STRUCT ; (SB!C::VOP-PARSE (:MAKE-LOAD-FORM-FUN SB!KERNEL:JUST-DUMP-IT-NORMALLY) ; (:PURE T)) ; (SB!C::NAME NIL :TYPE SYMBOL) (SB!C::INHERITS NIL :TYPE (OR SYMBOL NULL)) ; (SB!C::ARGS NIL :TYPE LIST) (SB!C::RESULTS NIL :TYPE LIST) ; (SB!C::TEMPS NIL :TYPE LIST) ; (SB!C::MORE-ARGS NIL :TYPE (OR SB!C::OPERAND-PARSE NULL)) ; (SB!C::MORE-RESULTS NIL :TYPE (OR SB!C::OPERAND-PARSE NULL)) ; (SB!C::OPERANDS NIL :TYPE LIST) (SB!C::IGNORES NIL :TYPE LIST) ; (SB!C::CONDITIONAL-P NIL) ...) ; --> PROGN DEFSTRUCT PROGN LOCALLY SETF LET* LET* MULTIPLE-VALUE-BIND LET ; --> FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!KERNEL:LAYOUT-PURE) #:NEW968 #:G969) ; ; caught STYLE-WARNING: ; undefined function: (SETF LAYOUT-PURE) ; in: ; DEF!STRUCT (OPERAND-PARSE (:MAKE-LOAD-FORM-FUN JUST-DUMP-IT-NORMALLY) ; (:PURE T)) ; (SB!INT:DEF!STRUCT ; (SB!C::OPERAND-PARSE (:MAKE-LOAD-FORM-FUN SB!KERNEL:JUST-DUMP-IT-NORMALLY) ; (:PURE T)) ; (SB!C::NAME NIL :TYPE SYMBOL) ; (SB!C::KIND (SB!INT:MISSING-ARG) :TYPE ; (MEMBER :ARGUMENT :RESULT :TEMPORARY :MORE-ARGUMENT :MORE-RESULT)) ; (SB!C::TARGET NIL :TYPE (OR SYMBOL NULL)) ; (SB!C::TEMP (SB!C::MAKE-OPERAND-PARSE-TEMP) :TYPE SYMBOL) SB!C::BORN ; SB!C::DIES (SB!C::SCS NIL :TYPE LIST) ; (SB!C::LOAD-TN (SB!C::MAKE-OPERAND-PARSE-LOAD-TN) :TYPE SYMBOL) (LOAD T) ; (SB!C:SC NIL :TYPE (OR SYMBOL NULL)) ...) ; --> PROGN DEFSTRUCT PROGN LOCALLY SETF LET* LET* ; ==> ; (SB!KERNEL:CLASSOID-LAYOUT (SB!KERNEL:FIND-CLASSOID 'SB!C::OPERAND-PARSE)) ; ; caught STYLE-WARNING: ; undefined function: CLASSOID-LAYOUT ; in: ; DEF!STRUCT (VOP-PARSE (:MAKE-LOAD-FORM-FUN JUST-DUMP-IT-NORMALLY) (:PURE T)) ; (SB!INT:DEF!STRUCT ; (SB!C::VOP-PARSE (:MAKE-LOAD-FORM-FUN SB!KERNEL:JUST-DUMP-IT-NORMALLY) ; (:PURE T)) ; (SB!C::NAME NIL :TYPE SYMBOL) (SB!C::INHERITS NIL :TYPE (OR SYMBOL NULL)) ; (SB!C::ARGS NIL :TYPE LIST) (SB!C::RESULTS NIL :TYPE LIST) ; (SB!C::TEMPS NIL :TYPE LIST) ; (SB!C::MORE-ARGS NIL :TYPE (OR SB!C::OPERAND-PARSE NULL)) ; (SB!C::MORE-RESULTS NIL :TYPE (OR SB!C::OPERAND-PARSE NULL)) ; (SB!C::OPERANDS NIL :TYPE LIST) (SB!C::IGNORES NIL :TYPE LIST) ; (SB!C::CONDITIONAL-P NIL) ...) ; --> PROGN DEFSTRUCT PROGN LOCALLY SETF LET* LET* ; ==> ; (SB!KERNEL:CLASSOID-LAYOUT (SB!KERNEL:FIND-CLASSOID 'SB!C::VOP-PARSE)) ; ; caught STYLE-WARNING: ; undefined function: CLASSOID-LAYOUT ; in: DEFMACRO DEFINE-STORAGE-CLASS ; (FIND 'SB!C:NON-DESCRIPTOR-STACK ; (MAPCAR #'SB!C:SC-OR-LOSE SB!C::ALTERNATE-SCS) :KEY ; (LAMBDA (SB!C::X) (SB!C:SB-NAME (SB!C:SC-SB SB!C::X)))) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; (DEFMACRO SB!C:DEFINE-STORAGE-CLASS ; (SB!C::NAME NUMBER SB!C:SB-NAME ; &KEY (SB!C::ELEMENT-SIZE '1) (SB!C::ALIGNMENT '1) SB!C::LOCATIONS ; SB!C::RESERVE-LOCATIONS SB!C::SAVE-P SB!C::ALTERNATE-SCS ; SB!C::CONSTANT-SCS) ; (DECLARE (TYPE SYMBOL SB!C::NAME)) ; (DECLARE (TYPE SB!C:SC-NUMBER NUMBER)) ; (DECLARE (TYPE SYMBOL SB!C:SB-NAME)) ; (DECLARE ; (TYPE LIST SB!C::LOCATIONS SB!C::RESERVE-LOCATIONS SB!C::ALTERNATE-SCS ; SB!C::CONSTANT-SCS)) ; (DECLARE (TYPE BOOLEAN SB!C::SAVE-P)) ; (UNLESS (= (LOGCOUNT SB!C::ALIGNMENT) 1) ; (ERROR "alignment not a power of two: ~W" SB!C::ALIGNMENT)) ; (LET ((SB!C:SB (SB!C:SB-OR-LOSE SB!C:SB-NAME))) ; (IF (EQ (SB!C::SB-KIND SB!C:SB) :FINITE) ; (LET (# #) ; (DECLARE #) ; (DOLIST # # #)) ; (WHEN SB!C::LOCATIONS ; (ERROR ":LOCATIONS is meaningless in a ~S SB." #))) ; (UNLESS (SUBSETP SB!C::RESERVE-LOCATIONS SB!C::LOCATIONS) ; (ERROR "RESERVE-LOCATIONS not a subset of LOCATIONS.")) ; (WHEN ; (AND (OR SB!C::ALTERNATE-SCS SB!C::CONSTANT-SCS) (EQ # :NON-PACKED)) ; (ERROR ; "It's meaningless to specify alternate or constant SCs in a ~S SB." ; (SB!C::SB-KIND SB!C:SB)))) ; (LET ((SB!C::NSTACK-P ; (IF # ; T ; NIL))) ; (SB!INT:QUASIQUOTE ; (PROGN ; (EVAL-WHEN # #) ; (LET # ; #) ; (SETF #) ; (SETF #) ; (SETF #) ; '#S(SB!IMPL::COMMA :EXPR SB!C::NAME :KIND 0))))) ; --> PROGN EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:PROBLEM111 #:INFO112 #:G113) {D5D1719}> ; #:PROBLEM111 #:INFO112 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFMACRO DEFINE-STORAGE-BASE ; (DEFMACRO SB!C:DEFINE-STORAGE-BASE ; (SB!C::NAME SB!C::KIND ; &KEY SB!C::SIZE (SB!C::SIZE-INCREMENT SB!C::SIZE) ; (SB!C::SIZE-ALIGNMENT 1)) ; (DECLARE (TYPE SYMBOL SB!C::NAME)) ; (DECLARE (TYPE (MEMBER :FINITE :UNBOUNDED :NON-PACKED) SB!C::KIND)) ; (ECASE SB!C::KIND ; (:NON-PACKED ; (WHEN SB!C::SIZE ; (ERROR "A size specification is meaningless in a ~S SB." SB!C::KIND))) ; ((:FINITE :UNBOUNDED) ; (UNLESS SB!C::SIZE ; (ERROR "Size is not specified in a ~S SB." SB!C::KIND)) ; (SB!INT:AVER (TYPEP SB!C::SIZE 'UNSIGNED-BYTE)) ; (SB!INT:AVER (= 1 #)) ; (SB!INT:AVER (NOT #)) ; (SB!INT:AVER (NOT #)))) ; (LET ((SB!C:SB ; (IF # ; # ; #))) ; (SB!INT:QUASIQUOTE ; (PROGN ; (SB!INT:/SHOW0 "in DEFINE-STORAGE-BASE") ; (EVAL-WHEN # #) ; #S(SB!IMPL::COMMA :EXPR # :KIND 2) ; (SB!INT:/SHOW0 "finished with DEFINE-STORAGE-BASE expansion") ; '#S(SB!IMPL::COMMA :EXPR SB!C::NAME :KIND 0))))) ; --> PROGN EVAL-WHEN SB!C::%DEFMACRO SB!C::%DEFMACRO FUNCTION LET* ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:PROBLEM1 #:INFO2 #:G3) {F52FED9}> ; #:PROBLEM1 #:INFO2 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 93 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/meta-vmdef.lisp ; in: DEFMACRO PRIMITIVE-TYPE-VOP ; (SB!INT:QUASIQUOTE ; (LET ((#S(SB!IMPL::COMMA :EXPR SB!C::N-VOP :KIND 0) ; (SB!C:TEMPLATE-OR-LOSE '#))) ; #S(SB!IMPL::COMMA :EXPR (MAPCAR (LAMBDA # #) SB!C::TYPES) :KIND 2) ; NIL)) ; --> SB!IMPL::|List*| SB!IMPL::|Append| MAPCAR LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFMACRO !DEF-PRIMITIVE-TYPE ; (MAPCAR #'SB!C:SC-NUMBER-OR-LOSE SB!C::SCS) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFMACRO DEFINE-STORAGE-CLASS ; (MAPCAR #'SB!C:SC-OR-LOSE SB!C::ALTERNATE-SCS) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; ; caught STYLE-WARNING: ; 11 more uses of undefined type COMPILER-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/meta-vmdef.lisp ; in: DEFUN STORE-VOP-INFO ; (SB!KERNEL:SPECIFIER-TYPE SB!C::MY-TYPE-SPEC) ; ; caught STYLE-WARNING: ; undefined function: SPECIFIER-TYPE ; (SB!KERNEL:TYPE= (SB!C::VOP-INFO-TYPE SB!C::OTHER) SB!C::MY-TYPE) ; ; caught STYLE-WARNING: ; undefined function: TYPE= ; ; compilation unit finished ; Undefined types: ; CODE-DELETION-NOTE COMPILER-NOTE ; Undefined functions: ; SB!KERNEL::%TARGET-DEFSTRUCT (SETF LAYOUT-PURE) CLASSOID-LAYOUT SPECIFIER-TYPE TYPE= ; caught 16 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/meta-vmdef.lisp-obj-tmp written ; compilation finished in 0:00:01.322 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/vm.lisp" (written 27 FEB 2015 04:49:49 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFVAR *BYTE-REGISTER-NAMES* ...) ; x-compiling (DEFVAR *WORD-REGISTER-NAMES* ...) ; x-compiling (DEFVAR *DWORD-REGISTER-NAMES* ...) ; x-compiling (DEFVAR *FLOAT-REGISTER-NAMES* ...) ; x-compiling (DEFREG AL ...) ; x-compiling (DEFREG AH ...) ; x-compiling (DEFREG CL ...) ; x-compiling (DEFREG CH ...) ; x-compiling (DEFREG DL ...) ; x-compiling (DEFREG DH ...) ; x-compiling (DEFREG BL ...) ; x-compiling (DEFREG BH ...) ; x-compiling (DEFREGSET *BYTE-REGS* ...) ; x-compiling (DEFREG AX ...) ; x-compiling (DEFREG CX ...) ; x-compiling (DEFREG DX ...) ; x-compiling (DEFREG BX ...) ; x-compiling (DEFREG SP ...) ; x-compiling (DEFREG BP ...) ; x-compiling (DEFREG SI ...) ; x-compiling (DEFREG DI ...) ; x-compiling (DEFREGSET *WORD-REGS* ...) ; x-compiling (DEFREG EAX ...) ; x-compiling (DEFREG ECX ...) ; x-compiling (DEFREG EDX ...) ; x-compiling (DEFREG EBX ...) ; x-compiling (DEFREG ESP ...) ; x-compiling (DEFREG EBP ...) ; x-compiling (DEFREG ESI ...) ; x-compiling (DEFREG EDI ...) ; x-compiling (DEFREGSET *DWORD-REGS* ...) ; x-compiling (DEFREG FR0 ...) ; x-compiling (DEFREG FR1 ...) ; x-compiling (DEFREG FR2 ...) ; x-compiling (DEFREG FR3 ...) ; x-compiling (DEFREG FR4 ...) ; x-compiling (DEFREG FR5 ...) ; x-compiling (DEFREG FR6 ...) ; x-compiling (DEFREG FR7 ...) ; x-compiling (DEFREGSET *FLOAT-REGS* ...) ; x-compiling (DEF!CONSTANT REGISTER-ARG-COUNT ...) ; x-compiling (DEFPARAMETER *REGISTER-ARG-NAMES* ...) ; x-compiling (DEFREGSET *REGISTER-ARG-OFFSETS* ...) ; x-compiling (DEFINE-STORAGE-BASE REGISTERS ...) ; x-compiling (DEFINE-STORAGE-BASE FLOAT-REGISTERS ...) ; x-compiling (DEFINE-STORAGE-BASE STACK ...) ; x-compiling (DEFINE-STORAGE-BASE CONSTANT ...) ; x-compiling (DEFINE-STORAGE-BASE IMMEDIATE-CONSTANT ...) ; x-compiling (DEFINE-STORAGE-BASE NOISE ...) ; x-compiling (DEFMACRO !DEFINE-STORAGE-CLASSES ...) ; x-compiling (!DEFINE-STORAGE-CLASSES (CONSTANT CONSTANT) ...) ; x-compiling (DEFPARAMETER *BYTE-SC-NAMES* ...) ; x-compiling (DEFPARAMETER *WORD-SC-NAMES* ...) ; x-compiling (DEFPARAMETER *DWORD-SC-NAMES* ...) ; x-compiling (DEFPARAMETER *FLOAT-SC-NAMES* ...) ; x-compiling (DEFPARAMETER *DOUBLE-SC-NAMES* ...) ; x-compiling (DEF-MISC-REG-TNS UNSIGNED-REG ...) ; x-compiling (DEF-MISC-REG-TNS WORD-REG ...) ; x-compiling (DEF-MISC-REG-TNS BYTE-REG ...) ; x-compiling (DEF-MISC-REG-TNS SINGLE-REG ...) ; x-compiling (DEFPARAMETER *REGISTER-ARG-TNS* ...) ; x-compiling (DEFUN IMMEDIATE-CONSTANT-SC ...) ; x-compiling (DEFUN BOXED-IMMEDIATE-SC-P ...) ; x-compiling (DEFUN ENCODE-VALUE-IF-IMMEDIATE ...) ; x-compiling (DEF!CONSTANT RETURN-PC-SAVE-OFFSET ...) ; x-compiling (DEF!CONSTANT OCFP-SAVE-OFFSET ...) ; x-compiling (DEF!CONSTANT SP->FP-OFFSET ...) ; x-compiling (DECLAIM (INLINE FRAME-WORD-OFFSET)) ; x-compiling (DEFUN FRAME-WORD-OFFSET ...) ; x-compiling (DECLAIM (INLINE FRAME-BYTE-OFFSET)) ; x-compiling (DEFUN FRAME-BYTE-OFFSET ...) ; x-compiling (DEF!CONSTANT LRA-SAVE-OFFSET ...) ; x-compiling (DEF!CONSTANT CFP-OFFSET ...) ; x-compiling (DEF!CONSTANT SINGLE-VALUE-RETURN-BYTE-OFFSET ...) ; x-compiling (DEFUN LOCATION-PRINT-NAME ...) ; x-compiling (DEFUN COMBINATION-IMPLEMENTATION-STYLE ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/vm.lisp ; in: DEFVAR *DWORD-REGISTER-NAMES* ; (MAKE-ARRAY 16 :INITIAL-ELEMENT NIL) ; --> LOCALLY MAKE-ARRAY SB!EXT:TRULY-THE ; ==> ; (FILL ; (SB!EXT:TRULY-THE (SIMPLE-ARRAY T (16)) ; (SB!KERNEL:ALLOCATE-VECTOR 214 (THE SB!INT:INDEX LENGTH) ; 16)) ; (THE T 'NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFVAR *WORD-REGISTER-NAMES* ; (MAKE-ARRAY 16 :INITIAL-ELEMENT NIL) ; --> LOCALLY MAKE-ARRAY SB!EXT:TRULY-THE ; ==> ; (FILL ; (SB!EXT:TRULY-THE (SIMPLE-ARRAY T (16)) ; (SB!KERNEL:ALLOCATE-VECTOR 214 (THE SB!INT:INDEX LENGTH) ; 16)) ; (THE T 'NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFVAR *BYTE-REGISTER-NAMES* ; (MAKE-ARRAY 8 :INITIAL-ELEMENT NIL) ; --> LOCALLY MAKE-ARRAY SB!EXT:TRULY-THE ; ==> ; (FILL ; (SB!EXT:TRULY-THE (SIMPLE-ARRAY T (8)) ; (SB!KERNEL:ALLOCATE-VECTOR 214 (THE SB!INT:INDEX LENGTH) ; 8)) ; (THE T 'NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 58 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/vm.lisp ; in: DEFUN COMBINATION-IMPLEMENTATION-STYLE ; (SB!C::COMBINATION-FUN-SOURCE-NAME SB!VM::NODE) ; ; caught STYLE-WARNING: ; undefined function: SB!C::COMBINATION-FUN-SOURCE-NAME ; in: DEFPARAMETER *REGISTER-ARG-TNS* ; (MAPCAR ; (LAMBDA (SB!VM::REGISTER-ARG-NAME) ; (SYMBOL-VALUE (SB!INT:SYMBOLICATE SB!VM::REGISTER-ARG-NAME "-TN"))) ; SB!VM::*REGISTER-ARG-NAMES*) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: !DEFINE-STORAGE-CLASSES (CONSTANT CONSTANT) ; (SB!VM::!DEFINE-STORAGE-CLASSES (SB!KERNEL:CONSTANT SB!KERNEL:CONSTANT) ; (SB!VM::FP-CONSTANT ; SB!VM::IMMEDIATE-CONSTANT) ; (SB!VM::FP-SINGLE-IMMEDIATE ; SB!VM::IMMEDIATE-CONSTANT) ; (SB!VM::FP-DOUBLE-IMMEDIATE ; SB!VM::IMMEDIATE-CONSTANT) ; (SB!VM::IMMEDIATE SB!VM::IMMEDIATE-CONSTANT) ; (SB!VM::CONTROL-STACK SB!VM::STACK) ; (SB!VM::SIGNED-STACK SB!VM::STACK) ; (SB!VM::UNSIGNED-STACK SB!VM::STACK) ; (SB!VM::CHARACTER-STACK SB!VM::STACK) ; (SB!VM::SAP-STACK SB!VM::STACK) ; (SB!VM::SINGLE-STACK SB!VM::STACK) ...) ; --> PROGN SB!C:DEFINE-STORAGE-CLASS PROGN EVAL-WHEN LET LET SB!C::MAKE-SC ; --> MAPCAR LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN COMBINATION-IMPLEMENTATION-STYLE ; (SB!C::CONSTANT-LVAR-P (FIRST (SB!C::BASIC-COMBINATION-ARGS SB!VM::NODE))) ; ; caught STYLE-WARNING: ; undefined function: SB!C::CONSTANT-LVAR-P ; in: DEFUN ENCODE-VALUE-IF-IMMEDIATE ; (SB!VM:FIXNUMIZE SB!VM::VAL) ; ; caught STYLE-WARNING: ; undefined function: FIXNUMIZE ; in: DEFUN COMBINATION-IMPLEMENTATION-STYLE ; (SB!KERNEL:SPECIFIER-TYPE ; (SB!INT:QUASIQUOTE ; (FUNCTION #S(SB!IMPL::COMMA :EXPR SB!VM::ARGS :KIND 0) ; #S(SB!IMPL::COMMA :EXPR SB!VM::RESULT :KIND 0)))) ; ; caught STYLE-WARNING: ; undefined function: SPECIFIER-TYPE ; in: DEFUN ENCODE-VALUE-IF-IMMEDIATE ; (SB!VM:STATIC-SYMBOL-OFFSET SB!VM::VAL) ; ; caught STYLE-WARNING: ; undefined function: STATIC-SYMBOL-OFFSET ; in: DEFUN IMMEDIATE-CONSTANT-SC ; (SB!VM:STATIC-SYMBOL-P SB!VM::VALUE) ; ; caught STYLE-WARNING: ; undefined function: STATIC-SYMBOL-P ; in: DEFUN ENCODE-VALUE-IF-IMMEDIATE ; (SB!C:TN-VALUE SB!C:TN) ; ; caught STYLE-WARNING: ; undefined function: TN-VALUE ; in: DEFUN COMBINATION-IMPLEMENTATION-STYLE ; (SB!C::VALID-FUN-USE SB!VM::NODE ; (SB!KERNEL:SPECIFIER-TYPE ; (SB!INT:QUASIQUOTE ; (FUNCTION #S(SB!IMPL::COMMA :EXPR SB!VM::ARGS :KIND 0) ; #S(SB!IMPL::COMMA :EXPR SB!VM::RESULT :KIND 0))))) ; ; caught STYLE-WARNING: ; undefined function: SB!C::VALID-FUN-USE ; ; compilation unit finished ; Undefined types: ; CODE-DELETION-NOTE COMPILER-NOTE ; Undefined functions: ; SB!C::COMBINATION-FUN-SOURCE-NAME SB!C::CONSTANT-LVAR-P FIXNUMIZE SPECIFIER-TYPE STATIC-SYMBOL-OFFSET STATIC-SYMBOL-P TN-VALUE SB!C::VALID-FUN-USE ; caught 14 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/x86/vm.lisp-obj-tmp written ; compilation finished in 0:00:00.649 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/xset.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (DECLAIM (INLINE ALLOC-XSET ...)) ; x-compiling (DEFSTRUCT (XSET # ...) ...) ; x-compiling (DEFUN XSET-COUNT ...) ; x-compiling (DEFUN MAP-XSET ...) ; x-compiling (DEFCONSTANT +XSET-LIST-SIZE-LIMIT+ ...) ; x-compiling (DEFUN ADD-TO-XSET ...) ; x-compiling (DEFUN XSET-FROM-LIST ...) ; x-compiling (DEFUN XSET-UNION ...) ; x-compiling (DEFUN XSET-MEMBER-P ...) ; x-compiling (DEFUN XSET-MEMBERS ...) ; x-compiling (DEFUN XSET-INTERSECTION ...) ; x-compiling (DEFUN XSET-SUBSET-P ...) ; x-compiling (DECLAIM (INLINE XSET-EMPTY-P)) ; x-compiling (DEFUN XSET-EMPTY-P ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/xset.lisp ; in: DEFSTRUCT XSET ; (DEFSTRUCT ; (SB!INT:XSET (:CONSTRUCTOR SB!INT:ALLOC-XSET) (:COPIER NIL) ; (:PREDICATE NIL)) ; (SB!KERNEL::LIST-SIZE 0 :TYPE SB!INT:INDEX) ; (SB!KERNEL::DATA NIL :TYPE (OR LIST HASH-TABLE))) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: %TARGET-DEFSTRUCT ; in: DEFUN XSET-FROM-LIST ; (SB!INT:ALLOC-XSET) ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:.DEFAULTING-TEMP. #:.DEFAULTING-TEMP.) {CED7509}> ; 0 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN ADD-TO-XSET ; (MEMBER ELT SB!KERNEL::DATA :TEST #'EQL) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFSTRUCT XSET ; (DEFSTRUCT ; (SB!INT:XSET (:CONSTRUCTOR SB!INT:ALLOC-XSET) (:COPIER NIL) ; (:PREDICATE NIL)) ; (SB!KERNEL::LIST-SIZE 0 :TYPE SB!INT:INDEX) ; (SB!KERNEL::DATA NIL :TYPE (OR LIST HASH-TABLE))) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:.DEFAULTING-TEMP. #:.DEFAULTING-TEMP.) {C596E11}> ; 0 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 11 more uses of undefined type CODE-DELETION-NOTE ; ; compilation unit finished ; Undefined type: ; CODE-DELETION-NOTE ; Undefined function: ; %TARGET-DEFSTRUCT ; caught 5 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/xset.lisp-obj-tmp written ; compilation finished in 0:00:00.089 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-type.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS) ; x-compiling (DEFSTRUCT (HAIRY-TYPE # ...) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-type.lisp ; in: DEFSTRUCT HAIRY-TYPE ; (DEFSTRUCT ; (SB!KERNEL:HAIRY-TYPE ; (:INCLUDE SB!KERNEL:CTYPE ; (SB!KERNEL::CLASS-INFO ; (SB!KERNEL::TYPE-CLASS-OR-LOSE 'SB!KERNEL::HAIRY))) ; (:CONSTRUCTOR SB!KERNEL::%MAKE-HAIRY-TYPE (SB!KERNEL::SPECIFIER)) ; (:COPIER NIL)) ; (SB!KERNEL::SPECIFIER NIL :TYPE T :READ-ONLY T)) ; --> PROGN EVAL-WHEN ; ==> ; (SB!KERNEL::%COMPILER-DEFSTRUCT ; '# ; '#(# ; # ; # ; #)) ; ; caught STYLE-WARNING: ; Previously compiled call to SB!KERNEL:HAIRY-TYPE-SPECIFIER could not be inlined ; because the structure definition for SB!KERNEL:HAIRY-TYPE was not yet seen. To ; avoid this warning, DEFSTRUCT should precede references to the affected ; functions, or they must be declared locally notinline at each call site. ; x-compiling (!DEFINE-TYPE-CLASS HAIRY ...) ; x-compiling (DEFSTRUCT (UNKNOWN-TYPE # ...)) ; x-compiling (DEFUN MAYBE-REPARSE-SPECIFIER ...) ; x-compiling (DEFMACRO MAYBE-REPARSE-SPECIFIER! ...) ; x-compiling (DEFSTRUCT (NEGATION-TYPE # ...) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-type.lisp ; in: DEFSTRUCT NEGATION-TYPE ; (DEFSTRUCT ; (SB!KERNEL:NEGATION-TYPE ; (:INCLUDE SB!KERNEL:CTYPE ; (SB!KERNEL::CLASS-INFO ; (SB!KERNEL::TYPE-CLASS-OR-LOSE 'SB!KERNEL::NEGATION))) ; (:COPIER NIL)) ; (TYPE (SB!INT:MISSING-ARG) :TYPE SB!KERNEL:CTYPE :READ-ONLY T)) ; --> PROGN EVAL-WHEN ; ==> ; (SB!KERNEL::%COMPILER-DEFSTRUCT ; '# ; '#(# ; # ; # ; #)) ; ; caught STYLE-WARNING: ; Previously compiled call to SB!KERNEL:NEGATION-TYPE-TYPE could not be inlined ; because the structure definition for SB!KERNEL:NEGATION-TYPE was not yet seen. ; To avoid this warning, DEFSTRUCT should precede references to the affected ; functions, or they must be declared locally notinline at each call site. ; x-compiling (!DEFINE-TYPE-CLASS NEGATION ...) ; x-compiling (DEFSTRUCT (ARGS-TYPE # ...) ...) ; x-compiling (DEFUN CANONICALIZE-ARGS-TYPE-ARGS ...) ; x-compiling (DEFUN PARSE-ARGS-TYPES ...) ; x-compiling (DEFSTRUCT (VALUES-TYPE # ...)) ; x-compiling (DECLAIM (INLINE VALUES-TYPE-P)) ; x-compiling (DEFUN VALUES-TYPE-P ...) ; x-compiling (DEFUN-CACHED (MAKE-VALUES-TYPE-CACHED :HASH-BITS ...) ...) ; x-compiling (DEFUN MAKE-VALUES-TYPE ...) ; x-compiling (!DEFINE-TYPE-CLASS VALUES ...) ; x-compiling (DEFSTRUCT (FUN-TYPE # ...) ...) ; x-compiling (DECLAIM (TYPE # ...)) ; x-compiling (DEFGLOBAL *INTERNED-FUN-TYPES* ...) ; x-compiling (DEFUN !INTERN-IMPORTANT-FUN-TYPE-INSTANCES ...) ; x-compiling (DEFUN MAKE-FUN-TYPE ...) ; x-compiling (DEFSTRUCT (CONSTANT-TYPE # ...) ...) ; x-compiling (DEFSTRUCT (NAMED-TYPE # ...) ...) ; x-compiling (DEFPARAMETER *FLOAT-FORMATS* ...) ; x-compiling (DEFTYPE FLOAT-FORMAT ...) ; x-compiling (DEFSTRUCT (NUMERIC-TYPE # ...) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-type.lisp ; in: DEFSTRUCT NUMERIC-TYPE ; (DEFSTRUCT ; (SB!KERNEL:NUMERIC-TYPE ; (:INCLUDE SB!KERNEL:CTYPE ; (SB!KERNEL::CLASS-INFO (SB!KERNEL::TYPE-CLASS-OR-LOSE 'NUMBER))) ; (:CONSTRUCTOR SB!KERNEL::%MAKE-NUMERIC-TYPE) (:COPIER NIL)) ; (SB!KERNEL::ENUMERABLE NIL :READ-ONLY T) ; (CLASS NIL :TYPE (MEMBER INTEGER RATIONAL FLOAT NIL) :READ-ONLY T) ; (FORMAT NIL :TYPE (OR SB!KERNEL::FLOAT-FORMAT NULL) :READ-ONLY T) ; (COMPLEXP :REAL :TYPE (MEMBER :REAL :COMPLEX NIL) :READ-ONLY T) ; (SB!KERNEL::LOW NIL :TYPE (OR NUMBER CONS NULL) :READ-ONLY T) ; (SB!KERNEL::HIGH NIL :TYPE (OR NUMBER CONS NULL) :READ-ONLY T)) ; --> PROGN EVAL-WHEN ; ==> ; (SB!KERNEL::%COMPILER-DEFSTRUCT ; '# ; '#(# ; # ; # ; #)) ; ; caught STYLE-WARNING: ; Previously compiled call to SB!KERNEL:NUMERIC-TYPE-FORMAT could not be inlined ; because the structure definition for SB!KERNEL:NUMERIC-TYPE was not yet seen. ; To avoid this warning, DEFSTRUCT should precede references to the affected ; functions, or they must be declared locally notinline at each call site. ; x-compiling (DEFGLOBAL *UNSIGNED-BYTE-TYPE* ...) ; x-compiling (DEFGLOBAL *INTEGER-TYPE* ...) ; x-compiling (DEFGLOBAL *UNSIGNED-BYTE-N-TYPES* ...) ; x-compiling (DEFGLOBAL *SIGNED-BYTE-N-TYPES* ...) ; x-compiling (DEFGLOBAL *REAL-FFLOAT-TYPE* ...) ; x-compiling (DEFGLOBAL *REAL-DFLOAT-TYPE* ...) ; x-compiling (DEFGLOBAL *COMPLEX-FFLOAT-TYPE* ...) ; x-compiling (DEFGLOBAL *COMPLEX-DFLOAT-TYPE* ...) ; x-compiling (DECLAIM (TYPE # ...) ...) ; x-compiling (DEFUN !INTERN-IMPORTANT-NUMERIC-TYPE-INSTANCES ...) ; x-compiling (DEFUN MAKE-NUMERIC-TYPE ...) ; x-compiling (DEFUN MODIFIED-NUMERIC-TYPE ...) ; x-compiling (DEFSTRUCT (CHARACTER-SET-TYPE # ...) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-type.lisp ; in: DEFSTRUCT CHARACTER-SET-TYPE ; (DEFSTRUCT ; (SB!KERNEL:CHARACTER-SET-TYPE ; (:INCLUDE SB!KERNEL:CTYPE ; (SB!KERNEL::CLASS-INFO ; (SB!KERNEL::TYPE-CLASS-OR-LOSE 'SB!KERNEL:CHARACTER-SET))) ; (:CONSTRUCTOR SB!KERNEL::%MAKE-CHARACTER-SET-TYPE (SB!KERNEL::PAIRS)) ; (:COPIER NIL)) ; (SB!KERNEL::PAIRS (SB!INT:MISSING-ARG) :TYPE LIST :READ-ONLY T)) ; --> PROGN EVAL-WHEN ; ==> ; (SB!KERNEL::%COMPILER-DEFSTRUCT ; '# ; '#(# ; # ; # ; #)) ; ; caught STYLE-WARNING: ; Previously compiled call to SB!KERNEL:CHARACTER-SET-TYPE-PAIRS could not be ; inlined because the structure definition for SB!KERNEL:CHARACTER-SET-TYPE was ; not yet seen. To avoid this warning, DEFSTRUCT should precede references to the ; affected functions, or they must be declared locally notinline at each call ; site. ; x-compiling (DEFGLOBAL *CHARACTER-TYPE* ...) ; x-compiling (DEFGLOBAL *BASE-CHAR-TYPE* ...) ; x-compiling (DEFGLOBAL *EXTENDED-CHAR-TYPE* ...) ; x-compiling (DEFUN !INTERN-IMPORTANT-CHARACTER-SET-TYPE-INSTANCES ...) ; x-compiling (DEFUN MAKE-CHARACTER-SET-TYPE ...) ; x-compiling (DEFSTRUCT (ARRAY-TYPE # ...) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-type.lisp ; in: DEFSTRUCT ARRAY-TYPE ; (DEFSTRUCT ; (SB!KERNEL:ARRAY-TYPE ; (:INCLUDE SB!KERNEL:CTYPE ; (SB!KERNEL::CLASS-INFO (SB!KERNEL::TYPE-CLASS-OR-LOSE 'ARRAY))) ; (:CONSTRUCTOR SB!KERNEL::%MAKE-ARRAY-TYPE ; (SB!KERNEL::DIMENSIONS COMPLEXP SB!KERNEL::ELEMENT-TYPE ; SB!KERNEL::SPECIALIZED-ELEMENT-TYPE)) ; (:COPIER NIL)) ; (SB!KERNEL::DIMENSIONS '* :TYPE (OR LIST (MEMBER *)) :READ-ONLY T) ; (COMPLEXP :MAYBE :TYPE (MEMBER T NIL :MAYBE) :READ-ONLY T) ; (SB!KERNEL::ELEMENT-TYPE (SB!INT:MISSING-ARG) :TYPE SB!KERNEL:CTYPE ; :READ-ONLY T) ; (SB!KERNEL::SPECIALIZED-ELEMENT-TYPE SB!KERNEL:*WILD-TYPE* :TYPE ; SB!KERNEL:CTYPE :READ-ONLY T)) ; --> PROGN EVAL-WHEN ; ==> ; (SB!KERNEL::%COMPILER-DEFSTRUCT ; '# ; '#(# ; # ; # ; #)) ; ; caught STYLE-WARNING: ; Previously compiled calls to SB!KERNEL:ARRAY-TYPE-P, ; SB!KERNEL:ARRAY-TYPE-DIMENSIONS and ; SB!KERNEL:ARRAY-TYPE-SPECIALIZED-ELEMENT-TYPE could not be inlined because the ; structure definition for SB!KERNEL:ARRAY-TYPE was not yet seen. To avoid this ; warning, DEFSTRUCT should precede references to the affected functions, or they ; must be declared locally notinline at each call site. ; x-compiling (DEFGLOBAL *RANK-1-ARRAY-CTYPES* ...) ; x-compiling (DEFCONSTANT +CANON-ARRAY-CTYPE-HASH-DIVISOR+ ...) ; x-compiling (DEFUN !INTERN-IMPORTANT-ARRAY-TYPE-INSTANCES ...) ; x-compiling (DEFUN MAKE-ARRAY-TYPE ...) ; x-compiling (DEFSTRUCT (MEMBER-TYPE # ...) ...) ; x-compiling (DEFGLOBAL *NULL-TYPE* ...) ; x-compiling (DEFGLOBAL *EQL-T-TYPE* ...) ; x-compiling (DEFGLOBAL *BOOLEAN-TYPE* ...) ; x-compiling (DEFUN !INTERN-IMPORTANT-MEMBER-TYPE-INSTANCES ...) ; x-compiling (DEFUN MAKE-MEMBER-TYPE ...) ; x-compiling (DEFUN MEMBER-TYPE-SIZE ...) ; x-compiling (DEFUN MEMBER-TYPE-MEMBER-P ...) ; x-compiling (DEFUN MAPCAR-MEMBER-TYPE-MEMBERS ...) ; x-compiling (DEFUN MAPC-MEMBER-TYPE-MEMBERS ...) ; x-compiling (DEFUN MEMBER-TYPE-MEMBERS ...) ; x-compiling (DEFSTRUCT (COMPOUND-TYPE # ...) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-type.lisp ; in: DEFSTRUCT COMPOUND-TYPE ; (DEFSTRUCT ; (SB!KERNEL:COMPOUND-TYPE (:INCLUDE SB!KERNEL:CTYPE) (:CONSTRUCTOR NIL) ; (:COPIER NIL)) ; (SB!KERNEL::ENUMERABLE NIL :READ-ONLY T) ; (SB!KERNEL::TYPES NIL :TYPE LIST :READ-ONLY T)) ; --> PROGN EVAL-WHEN ; ==> ; (SB!KERNEL::%COMPILER-DEFSTRUCT ; '# ; '#(# ; # ; # ; #)) ; ; caught STYLE-WARNING: ; Previously compiled call to SB!KERNEL:COMPOUND-TYPE-TYPES could not be inlined ; because the structure definition for SB!KERNEL:COMPOUND-TYPE was not yet seen. ; To avoid this warning, DEFSTRUCT should precede references to the affected ; functions, or they must be declared locally notinline at each call site. ; x-compiling (DEFSTRUCT (UNION-TYPE # ...)) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-type.lisp ; in: DEFSTRUCT UNION-TYPE ; (DEFSTRUCT ; (SB!KERNEL:UNION-TYPE ; (:INCLUDE SB!KERNEL:COMPOUND-TYPE ; (SB!KERNEL::CLASS-INFO (SB!KERNEL::TYPE-CLASS-OR-LOSE 'UNION))) ; (:CONSTRUCTOR SB!KERNEL::MAKE-UNION-TYPE ; (SB!KERNEL::ENUMERABLE SB!KERNEL::TYPES)) ; (:COPIER NIL))) ; --> PROGN EVAL-WHEN ; ==> ; (SB!KERNEL::%COMPILER-DEFSTRUCT ; '# ; '#(# ; # ; # ; # ; #)) ; ; caught STYLE-WARNING: ; Previously compiled calls to SB!KERNEL:UNION-TYPE-P and ; SB!KERNEL:UNION-TYPE-TYPES could not be inlined because the structure ; definition for SB!KERNEL:UNION-TYPE was not yet seen. To avoid this warning, ; DEFSTRUCT should precede references to the affected functions, or they must be ; declared locally notinline at each call site. ; x-compiling (DEFSTRUCT (INTERSECTION-TYPE # ...)) ; x-compiling (DEFUN TYPE-*-TO-T ...) ; x-compiling (DEFSTRUCT (CONS-TYPE # ...) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-type.lisp ; in: DEFSTRUCT CONS-TYPE ; (DEFSTRUCT ; (SB!KERNEL:CONS-TYPE ; (:INCLUDE SB!KERNEL:CTYPE ; (SB!KERNEL::CLASS-INFO (SB!KERNEL::TYPE-CLASS-OR-LOSE 'CONS))) ; (:CONSTRUCTOR SB!KERNEL::%MAKE-CONS-TYPE ; (SB!KERNEL::CAR-TYPE SB!KERNEL::CDR-TYPE)) ; (:COPIER NIL)) ; (SB!KERNEL::CAR-TYPE (SB!INT:MISSING-ARG) :TYPE SB!KERNEL:CTYPE :READ-ONLY ; T) ; (SB!KERNEL::CDR-TYPE (SB!INT:MISSING-ARG) :TYPE SB!KERNEL:CTYPE :READ-ONLY ; T)) ; --> PROGN EVAL-WHEN ; ==> ; (SB!KERNEL::%COMPILER-DEFSTRUCT ; '# ; '#(# ; # ; # ; #)) ; ; caught STYLE-WARNING: ; Previously compiled call to SB!KERNEL:CONS-TYPE-P could not be inlined because ; the structure definition for SB!KERNEL:CONS-TYPE was not yet seen. To avoid ; this warning, DEFSTRUCT should precede references to the affected functions, or ; they must be declared locally notinline at each call site. ; x-compiling (DEFGLOBAL *CONS-T-T-TYPE* ...) ; x-compiling (DEFUN !INTERN-IMPORTANT-CONS-TYPE-INSTANCES ...) ; x-compiling (DEFUN MAKE-CONS-TYPE ...) ; x-compiling (DEFUN CONS-TYPE-LENGTH-INFO ...) ; x-compiling (DEFMACRO !VALUES-SPECIFIER-TYPE-BODY ...) ; x-compiling (DEFUN-CACHED (VALUES-SPECIFIER-TYPE :HASH-FUNCTION ...) ...) ; x-compiling (DEFUN SPECIFIER-TYPE ...) ; x-compiling (DEFUN SINGLE-VALUE-SPECIFIER-TYPE ...) ; x-compiling (DEFUN TYPEXPAND-1 ...) ; x-compiling (DEFUN TYPEXPAND ...) ; x-compiling (DEFUN TYPEXPAND-ALL ...) ; x-compiling (DEFUN DEFINED-TYPE-NAME-P ...) ; x-compiling (DEFUN VALID-TYPE-SPECIFIER-P ...) ; x-compiling (DEFUN %NOTE-TYPE-DEFINED ...) ; x-compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !EARLY-TYPE-COLD-INIT) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-type.lisp ; in: DEFGLOBAL *UNSIGNED-BYTE-TYPE* ; (SB!EXT:DEFGLOBAL SB!KERNEL::*UNSIGNED-BYTE-TYPE* -1) ; --> PROGN LET LET ; ==> ; (SB!IMPL::%DEFGLOBAL 'SB!KERNEL::*UNSIGNED-BYTE-TYPE* (UNLESS #:BOUNDP -1) ; #:BOUNDP 'NIL NIL (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::%DEFGLOBAL ; in: DEFGLOBAL *INTERNED-FUN-TYPES* ; (SB!EXT:DEFGLOBAL SB!KERNEL::*INTERNED-FUN-TYPES* (MAKE-ARRAY 4)) ; --> PROGN LET LET ; ==> ; (SB!IMPL::%DEFGLOBAL 'SB!KERNEL::*INTERNED-FUN-TYPES* ; (UNLESS #:BOUNDP (MAKE-ARRAY 4)) #:BOUNDP 'NIL NIL ; (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::%DEFGLOBAL ; in: ; DEFUN-CACHED (MAKE-VALUES-TYPE-CACHED :HASH-BITS 8 :HASH-FUNCTION ; (LAMBDA (REQ OPT REST ALLOWP) ; (LOGXOR (TYPE-LIST-CACHE-HASH REQ) ; (TYPE-LIST-CACHE-HASH OPT) ; (IF REST ; # ; 42) ; (IF ALLOWP ; 194 ; 11)))) ; (SB!INT:DEFUN-CACHED (SB!KERNEL::MAKE-VALUES-TYPE-CACHED :HASH-BITS 8 ; :HASH-FUNCTION ; (LAMBDA ; (SB!KERNEL::REQ ; SB!KERNEL::OPT ; REST ; SB!KERNEL::ALLOWP) ; (LOGXOR ; (SB!KERNEL::TYPE-LIST-CACHE-HASH ; SB!KERNEL::REQ) ; (SB!KERNEL::TYPE-LIST-CACHE-HASH ; SB!KERNEL::OPT) ; (IF REST ; # ; 42) ; (IF SB!KERNEL::ALLOWP ; 194 ; 11)))) ; ((SB!KERNEL::REQUIRED SB!INT:EQUAL-BUT-NO-CAR-RECURSION) ; (SB!KERNEL::OPTIONAL SB!INT:EQUAL-BUT-NO-CAR-RECURSION) (REST EQ) ; (SB!KERNEL::ALLOWP EQ)) ; (SB!KERNEL::%MAKE-VALUES-TYPE :REQUIRED SB!KERNEL::REQUIRED :OPTIONAL ; SB!KERNEL::OPTIONAL :REST REST :ALLOWP ; SB!KERNEL::ALLOWP)) ; --> PROGN SB!INT:DEFINE-HASH-CACHE PROGN SB!EXT:DEFGLOBAL PROGN LET LET ; ==> ; (SB!IMPL::%DEFGLOBAL 'SB!KERNEL::**MAKE-VALUES-TYPE-CACHED-CACHE-VECTOR** ; (UNLESS #:BOUNDP NIL) #:BOUNDP 'NIL NIL ; (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::%DEFGLOBAL ; ; caught STYLE-WARNING: ; 16 more uses of undefined function SB!IMPL::%DEFGLOBAL ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-type.lisp ; in: DEFSTRUCT NEGATION-TYPE ; (DEFSTRUCT ; (SB!KERNEL:NEGATION-TYPE ; (:INCLUDE SB!KERNEL:CTYPE ; (SB!KERNEL::CLASS-INFO ; (SB!KERNEL::TYPE-CLASS-OR-LOSE 'SB!KERNEL::NEGATION))) ; (:COPIER NIL)) ; (TYPE (SB!INT:MISSING-ARG) :TYPE SB!KERNEL:CTYPE :READ-ONLY T)) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: %TARGET-DEFSTRUCT ; in: DEFSTRUCT UNKNOWN-TYPE ; (DEFSTRUCT ; (SB!KERNEL:UNKNOWN-TYPE (:INCLUDE SB!KERNEL:HAIRY-TYPE) (:COPIER NIL))) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: %TARGET-DEFSTRUCT ; in: DEFSTRUCT HAIRY-TYPE ; (DEFSTRUCT ; (SB!KERNEL:HAIRY-TYPE ; (:INCLUDE SB!KERNEL:CTYPE ; (SB!KERNEL::CLASS-INFO ; (SB!KERNEL::TYPE-CLASS-OR-LOSE 'SB!KERNEL::HAIRY))) ; (:CONSTRUCTOR SB!KERNEL::%MAKE-HAIRY-TYPE (SB!KERNEL::SPECIFIER)) ; (:COPIER NIL)) ; (SB!KERNEL::SPECIFIER NIL :TYPE T :READ-ONLY T)) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: %TARGET-DEFSTRUCT ; ; caught STYLE-WARNING: ; 13 more uses of undefined function %TARGET-DEFSTRUCT ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-type.lisp ; in: DEFSTRUCT NEGATION-TYPE ; (DEFSTRUCT ; (SB!KERNEL:NEGATION-TYPE ; (:INCLUDE SB!KERNEL:CTYPE ; (SB!KERNEL::CLASS-INFO ; (SB!KERNEL::TYPE-CLASS-OR-LOSE 'SB!KERNEL::NEGATION))) ; (:COPIER NIL)) ; (TYPE (SB!INT:MISSING-ARG) :TYPE SB!KERNEL:CTYPE :READ-ONLY T)) ; --> PROGN LOCALLY SETF LET* LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!KERNEL:LAYOUT-PURE) #:NEW145 #:G146) ; ; caught STYLE-WARNING: ; undefined function: (SETF LAYOUT-PURE) ; in: DEFSTRUCT UNKNOWN-TYPE ; (DEFSTRUCT ; (SB!KERNEL:UNKNOWN-TYPE (:INCLUDE SB!KERNEL:HAIRY-TYPE) (:COPIER NIL))) ; --> PROGN LOCALLY SETF LET* LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!KERNEL:LAYOUT-PURE) #:NEW68 #:G69) ; ; caught STYLE-WARNING: ; undefined function: (SETF LAYOUT-PURE) ; in: DEFSTRUCT HAIRY-TYPE ; (DEFSTRUCT ; (SB!KERNEL:HAIRY-TYPE ; (:INCLUDE SB!KERNEL:CTYPE ; (SB!KERNEL::CLASS-INFO ; (SB!KERNEL::TYPE-CLASS-OR-LOSE 'SB!KERNEL::HAIRY))) ; (:CONSTRUCTOR SB!KERNEL::%MAKE-HAIRY-TYPE (SB!KERNEL::SPECIFIER)) ; (:COPIER NIL)) ; (SB!KERNEL::SPECIFIER NIL :TYPE T :READ-ONLY T)) ; --> PROGN LOCALLY SETF LET* LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!KERNEL:LAYOUT-PURE) #:NEW20 #:G21) ; ; caught STYLE-WARNING: ; undefined function: (SETF LAYOUT-PURE) ; ; caught STYLE-WARNING: ; 12 more uses of undefined function (SETF LAYOUT-PURE) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-type.lisp ; in: ; DEFUN-CACHED (VALUES-SPECIFIER-TYPE :HASH-FUNCTION #'SXHASH :HASH-BITS 10) ; (SB!KERNEL::!VALUES-SPECIFIER-TYPE-BODY SB!KERNEL::ORIG) ; --> LET OR LET IF OR THE LET COND LET IF COND LET IF COND IF COND IF PROGN IF ; --> OR LET ; ==> ; (SB!KERNEL:BUILT-IN-CLASSOID-TRANSLATION SB!KERNEL::SPEC) ; ; caught STYLE-WARNING: ; undefined function: BUILT-IN-CLASSOID-TRANSLATION ; in: DEFSTRUCT NEGATION-TYPE ; (DEFSTRUCT ; (SB!KERNEL:NEGATION-TYPE ; (:INCLUDE SB!KERNEL:CTYPE ; (SB!KERNEL::CLASS-INFO ; (SB!KERNEL::TYPE-CLASS-OR-LOSE 'SB!KERNEL::NEGATION))) ; (:COPIER NIL)) ; (TYPE (SB!INT:MISSING-ARG) :TYPE SB!KERNEL:CTYPE :READ-ONLY T)) ; --> PROGN LOCALLY SETF LET* LET* ; ==> ; (SB!KERNEL:CLASSOID-LAYOUT (SB!KERNEL:FIND-CLASSOID 'SB!KERNEL:NEGATION-TYPE)) ; ; caught STYLE-WARNING: ; undefined function: CLASSOID-LAYOUT ; in: DEFSTRUCT UNKNOWN-TYPE ; (DEFSTRUCT ; (SB!KERNEL:UNKNOWN-TYPE (:INCLUDE SB!KERNEL:HAIRY-TYPE) (:COPIER NIL))) ; --> PROGN LOCALLY SETF LET* LET* ; ==> ; (SB!KERNEL:CLASSOID-LAYOUT (SB!KERNEL:FIND-CLASSOID 'SB!KERNEL:UNKNOWN-TYPE)) ; ; caught STYLE-WARNING: ; undefined function: CLASSOID-LAYOUT ; in: DEFSTRUCT HAIRY-TYPE ; (DEFSTRUCT ; (SB!KERNEL:HAIRY-TYPE ; (:INCLUDE SB!KERNEL:CTYPE ; (SB!KERNEL::CLASS-INFO ; (SB!KERNEL::TYPE-CLASS-OR-LOSE 'SB!KERNEL::HAIRY))) ; (:CONSTRUCTOR SB!KERNEL::%MAKE-HAIRY-TYPE (SB!KERNEL::SPECIFIER)) ; (:COPIER NIL)) ; (SB!KERNEL::SPECIFIER NIL :TYPE T :READ-ONLY T)) ; --> PROGN LOCALLY SETF LET* LET* ; ==> ; (SB!KERNEL:CLASSOID-LAYOUT (SB!KERNEL:FIND-CLASSOID 'SB!KERNEL:HAIRY-TYPE)) ; ; caught STYLE-WARNING: ; undefined function: CLASSOID-LAYOUT ; ; caught STYLE-WARNING: ; 12 more uses of undefined function CLASSOID-LAYOUT ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-type.lisp ; in: DEFSTRUCT NEGATION-TYPE ; (DEFSTRUCT ; (SB!KERNEL:NEGATION-TYPE ; (:INCLUDE SB!KERNEL:CTYPE ; (SB!KERNEL::CLASS-INFO ; (SB!KERNEL::TYPE-CLASS-OR-LOSE 'SB!KERNEL::NEGATION))) ; (:COPIER NIL)) ; (TYPE (SB!INT:MISSING-ARG) :TYPE SB!KERNEL:CTYPE :READ-ONLY T)) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:.DEFAULTING-TEMP. #:N-SUPPLIED-117 #:.DEFAULTING-TEMP. ; #:N-SUPPLIED-118 #:.DEFAULTING-TEMP. #:N-SUPPLIED-119) ; {D886471}> ; NIL NIL NIL NIL NIL NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN MAYBE-REPARSE-SPECIFIER ; (SB!INT:INFO :TYPE :KIND SB!KERNEL::NAME) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:VALUE73 #:FOUNDP74 #:G75) {D6BF699}> ; #:VALUE73 #:FOUNDP74 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFSTRUCT UNKNOWN-TYPE ; (DEFSTRUCT ; (SB!KERNEL:UNKNOWN-TYPE (:INCLUDE SB!KERNEL:HAIRY-TYPE) (:COPIER NIL))) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:.DEFAULTING-TEMP. #:N-SUPPLIED-43 #:.DEFAULTING-TEMP. ; #:N-SUPPLIED-44 #:.DEFAULTING-TEMP.) ; {D5B7A51}> ; NIL NIL NIL NIL NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 106 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-type.lisp ; in: DEFUN !INTERN-IMPORTANT-ARRAY-TYPE-INSTANCES ; (MAPCAR ; (LAMBDA (SB!KERNEL::X) ; (COND ; ((TYPEP SB!KERNEL::X '#) (AREF SB!KERNEL::*UNSIGNED-BYTE-N-TYPES* #)) ; ((EQ SB!KERNEL::X 'BIT) (AREF SB!KERNEL::*UNSIGNED-BYTE-N-TYPES* 1)) ; ((TYPEP SB!KERNEL::X '#) (AREF SB!KERNEL::*SIGNED-BYTE-N-TYPES* #)) ; ((EQ SB!KERNEL::X 'FIXNUM) (AREF SB!KERNEL::*SIGNED-BYTE-N-TYPES* #)))) ; '(NIL BASE-CHAR CHARACTER SINGLE-FLOAT DOUBLE-FLOAT BIT (UNSIGNED-BYTE 2) ; (UNSIGNED-BYTE 4) (UNSIGNED-BYTE 7) (UNSIGNED-BYTE 8) (UNSIGNED-BYTE 15) ; (UNSIGNED-BYTE 16) ...)) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN PARSE-ARGS-TYPES ; (MAPCAR #'SB!KERNEL:SINGLE-VALUE-SPECIFIER-TYPE SB!KERNEL::OPTIONAL) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; (MAPCAR #'SB!KERNEL:SINGLE-VALUE-SPECIFIER-TYPE SB!KERNEL::REQUIRED) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN CONS-TYPE-LENGTH-INFO ; (SB!KERNEL:CSUBTYPEP CDR (SB!KERNEL:SPECIFIER-TYPE 'NULL)) ; ; caught STYLE-WARNING: ; undefined function: CSUBTYPEP ; in: DEFUN VALID-TYPE-SPECIFIER-P ; (HANDLER-CASE ; (PROG1 T (SB!KERNEL:VALUES-SPECIFIER-TYPE SB!KERNEL:TYPE-SPECIFIER)) ; (SB!KERNEL:PARSE-UNKNOWN-TYPE NIL NIL) (ERROR NIL NIL)) ; --> SB!INT:DX-FLET FLET BLOCK SB!INT:DX-LET LET TAGBODY ; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK ; ==> ; (TYPEP CONDITION 'ERROR) ; ; caught STYLE-WARNING: ; undefined type: ERROR ; in: DEFUN PARSE-ARGS-TYPES ; #'SB!KERNEL:KEY-INFO-NAME ; ; caught STYLE-WARNING: ; undefined function: KEY-INFO-NAME ; (SB!KERNEL:MAKE-KEY-INFO :NAME SB!KERNEL::KWD :TYPE ; (SB!KERNEL:SINGLE-VALUE-SPECIFIER-TYPE ; (SECOND SB!KERNEL::KEY))) ; ; caught STYLE-WARNING: ; undefined function: MAKE-KEY-INFO ; (SB!INT:PARSE-LAMBDA-LIST-LIKE-THING SB!KERNEL::LAMBDA-LIST-LIKE-THING ; :SILENT T) ; ; caught STYLE-WARNING: ; undefined function: PARSE-LAMBDA-LIST-LIKE-THING ; in: DEFUN VALID-TYPE-SPECIFIER-P ; (HANDLER-CASE ; (PROG1 T (SB!KERNEL:VALUES-SPECIFIER-TYPE SB!KERNEL:TYPE-SPECIFIER)) ; (SB!KERNEL:PARSE-UNKNOWN-TYPE NIL NIL) (ERROR NIL NIL)) ; --> SB!INT:DX-FLET FLET BLOCK SB!INT:DX-LET LET TAGBODY ; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK ; ==> ; (TYPEP CONDITION 'SB!KERNEL:PARSE-UNKNOWN-TYPE) ; ; caught STYLE-WARNING: ; undefined type: PARSE-UNKNOWN-TYPE ; in: DEFUN CONS-TYPE-LENGTH-INFO ; (SB!KERNEL:TYPE-INTERSECTION (SB!KERNEL:SPECIFIER-TYPE 'CONS) CDR) ; ; caught STYLE-WARNING: ; undefined function: TYPE-INTERSECTION ; in: DEFUN TYPEXPAND-ALL ; (SB!KERNEL:TYPE-SPECIFIER ; (SB!KERNEL:VALUES-SPECIFIER-TYPE SB!KERNEL:TYPE-SPECIFIER)) ; ; caught STYLE-WARNING: ; undefined function: TYPE-SPECIFIER ; in: DEFUN CONS-TYPE-LENGTH-INFO ; (SB!KERNEL:TYPE/= ; (SB!KERNEL:TYPE-INTERSECTION (SB!KERNEL:SPECIFIER-TYPE 'CONS) CDR) ; SB!KERNEL:*EMPTY-TYPE*) ; ; caught STYLE-WARNING: ; undefined function: TYPE/= ; in: DEFUN MAKE-CONS-TYPE ; (SB!KERNEL:TYPE= SB!KERNEL::CAR-TYPE SB!KERNEL:*UNIVERSAL-TYPE*) ; ; caught STYLE-WARNING: ; undefined function: TYPE= ; in: DEFUN TYPE-*-TO-T ; (SB!KERNEL:TYPE= TYPE SB!KERNEL:*WILD-TYPE*) ; ; caught STYLE-WARNING: ; undefined function: TYPE= ; ; compilation unit finished ; Undefined types: ; CODE-DELETION-NOTE COMPILER-NOTE ERROR PARSE-UNKNOWN-TYPE ; Undefined functions: ; SB!IMPL::%DEFGLOBAL %TARGET-DEFSTRUCT (SETF LAYOUT-PURE) BUILT-IN-CLASSOID-TRANSLATION CLASSOID-LAYOUT CSUBTYPEP KEY-INFO-NAME MAKE-KEY-INFO PARSE-LAMBDA-LIST-LIKE-THING TYPE-INTERSECTION TYPE-SPECIFIER TYPE/= TYPE= ; caught 43 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/early-type.lisp-obj-tmp written ; compilation finished in 0:00:01.219 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/class.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS) ; x-compiling (DEF!STRUCT (CLASSOID # ...) ...) ; x-compiling (DEFUN CLASSOID-MAKE-LOAD-FORM-FUN ...) ; x-compiling (DEF!CONSTANT LAYOUT-CLOS-HASH-LIMIT ...) ; x-compiling (DEF!TYPE LAYOUT-CLOS-HASH ...) ; x-compiling (DEFVAR *!INITIAL-LAYOUTS*) ; x-compiling (DEFVAR *FORWARD-REFERENCED-LAYOUTS*) ; x-compiling (!COLD-INIT-FORMS (SETQ *FORWARD-REFERENCED-LAYOUTS* ...) ...) ; x-compiling (DEF!STRUCT (LAYOUT #) ...) ; x-compiling (DECLAIM (FREEZE-TYPE LAYOUT)) ; x-compiling (DECLAIM (INLINE LAYOUT-FOR-STD-CLASS-P)) ; x-compiling (DEFUN LAYOUT-FOR-STD-CLASS-P ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFUN LAYOUT-PROPER-NAME ...) ; x-compiling (DEFVAR *LAYOUT-CLOS-HASH-RANDOM-STATE*) ; x-compiling (DEFUN RANDOM-LAYOUT-CLOS-HASH ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN FIND-LAYOUT ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN %INIT-OR-CHECK-LAYOUT ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN REDEFINE-LAYOUT-WARNING ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN CHECK-LAYOUT ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN FIND-AND-INIT-OR-CHECK-LAYOUT ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/class.lisp ; in: DEFUN FIND-AND-INIT-OR-CHECK-LAYOUT ; (DEFUN SB!KERNEL:FIND-AND-INIT-OR-CHECK-LAYOUT ; (SB!KERNEL::NAME LENGTH SB!KERNEL::INHERITS SB!KERNEL::DEPTHOID ; SB!KERNEL::METADATA) ; (SB!KERNEL:WITH-WORLD-LOCK NIL ; (LET ((SB!KERNEL:LAYOUT #)) ; (SB!KERNEL::%INIT-OR-CHECK-LAYOUT SB!KERNEL:LAYOUT (OR # #) LENGTH ; SB!KERNEL::INHERITS ; SB!KERNEL::DEPTHOID ; SB!KERNEL::METADATA)))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; ==> ; #'(SB!INT:NAMED-LAMBDA SB!KERNEL:FIND-AND-INIT-OR-CHECK-LAYOUT ; (SB!KERNEL::NAME LENGTH SB!KERNEL::INHERITS SB!KERNEL::DEPTHOID ; SB!KERNEL::METADATA) ; (BLOCK SB!KERNEL:FIND-AND-INIT-OR-CHECK-LAYOUT ; (SB!KERNEL:WITH-WORLD-LOCK NIL ; (LET (#) ; (SB!KERNEL::%INIT-OR-CHECK-LAYOUT SB!KERNEL:LAYOUT # LENGTH ; SB!KERNEL::INHERITS ; SB!KERNEL::DEPTHOID ; SB!KERNEL::METADATA))))) ; ; note: type assertion too complex to check: ; (VALUES LAYOUT &REST T). ; x-compiling (DEFUN REGISTER-LAYOUT ...) ; x-compiling (DEFUN ORDER-LAYOUT-INHERITS ...) ; x-compiling (DEFUN TOPOLOGICAL-SORT ...) ; x-compiling (DEFUN STD-COMPUTE-CLASS-PRECEDENCE-LIST ...) ; x-compiling (DEF!STRUCT (UNDEFINED-CLASSOID # ...)) ; x-compiling (DEF!STRUCT (BUILT-IN-CLASSOID # ...) ...) ; x-compiling (DEF!STRUCT (STRUCTURE-CLASSOID # ...)) ; x-compiling (DEFUN MAKE-STRUCTURE-CLASSOID ...) ; x-compiling (DEF!STRUCT (CLASSOID-CELL # ...) ...) ; x-compiling (DECLAIM (FREEZE-TYPE CLASSOID-CELL)) ; x-compiling (DEFUN FIND-CLASSOID-CELL ...) ; x-compiling (DEFUN FIND-CLASSOID ...) ; x-compiling (DEFUN (SETF FIND-CLASSOID) ...) ; x-compiling (DEFUN %CLEAR-CLASSOID ...) ; x-compiling (DEFUN INSURED-FIND-CLASSOID ...) ; x-compiling (DEFUN CLASSOID-PROPER-NAME ...) ; x-compiling (DEFUN CLASSOID-ENUMERABLE-P ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/class.lisp ; in: DEFUN CLASSOID-ENUMERABLE-P ; (DEFUN SB!KERNEL::CLASSOID-ENUMERABLE-P (SB!KERNEL::X) ; (EQ (SB!KERNEL:CLASSOID-NAME SB!KERNEL::X) 'CHARACTER)) ; ; caught STYLE-WARNING: ; redefining SB!KERNEL::CLASSOID-ENUMERABLE-P in DEFUN ; x-compiling (!DEFINE-TYPE-CLASS CLASSOID ...) ; x-compiling (DEFUN %ENSURE-CLASSOID-VALID ...) ; x-compiling (DEFUN %ENSURE-BOTH-CLASSOIDS-VALID ...) ; x-compiling (DEFUN UPDATE-OBJECT-LAYOUT-OR-INVALID ...) ; x-compiling (!DEFINE-TYPE-METHOD (CLASSOID :SIMPLE-=) ...) ; x-compiling (!DEFINE-TYPE-METHOD (CLASSOID :SIMPLE-SUBTYPEP) ...) ; x-compiling (DEFUN SEALED-CLASS-INTERSECTION2 ...) ; x-compiling (!DEFINE-TYPE-METHOD (CLASSOID :SIMPLE-INTERSECTION2) ...) ; x-compiling (DEFVAR *NON-INSTANCE-CLASSOID-TYPES* ...) ; x-compiling (!DEFINE-TYPE-METHOD (CLASSOID :COMPLEX-SUBTYPEP-ARG2) ...) ; x-compiling (!DEFINE-TYPE-METHOD (CLASSOID :NEGATE) ...) ; x-compiling (!DEFINE-TYPE-METHOD (CLASSOID :UNPARSE) ...) ; x-compiling (DEF!STRUCT (STANDARD-CLASSOID # ...)) ; x-compiling (DEF!STRUCT (STATIC-CLASSOID # ...)) ; x-compiling (!DEFVAR *!BUILT-IN-CLASSES* ...) ; x-compiling (!COLD-INIT-FORMS (DOLIST # ...) ...) ; x-compiling (!COLD-INIT-FORMS (/SHOW0 "about to define temporary STANDARD-CLASSes") ...) ; x-compiling (!COLD-INIT-FORMS (DOLIST # ...)) ; x-compiling (DEFUN %MODIFY-CLASSOID ...) ; x-compiling (DEFUN %INVALIDATE-LAYOUT ...) ; x-compiling (DEFUN !CLASS-FINALIZE ...) ; x-compiling (!COLD-INIT-FORMS (/SHOW0 "about to set *BUILT-IN-CLASS-CODES*") ...) ; x-compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !CLASSES-COLD-INIT) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/class.lisp ; in: DEFUN %ENSURE-CLASSOID-VALID ; (SB!PCL::%FORCE-CACHE-FLUSHES CLASS) ; ; caught STYLE-WARNING: ; undefined function: SB!PCL::%FORCE-CACHE-FLUSHES ; in: ; DEF!STRUCT (UNDEFINED-CLASSOID (:INCLUDE CLASSOID) ; (:CONSTRUCTOR MAKE-UNDEFINED-CLASSOID (NAME))) ; (SB!INT:DEF!STRUCT ; (SB!KERNEL::UNDEFINED-CLASSOID (:INCLUDE SB!KERNEL:CLASSOID) ; (:CONSTRUCTOR SB!KERNEL:MAKE-UNDEFINED-CLASSOID (SB!KERNEL::NAME)))) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: %TARGET-DEFSTRUCT ; in: DEF!STRUCT (LAYOUT (:MAKE-LOAD-FORM-FUN IGNORE-IT)) ; (SB!INT:DEF!STRUCT ; (SB!KERNEL:LAYOUT (:MAKE-LOAD-FORM-FUN SB!KERNEL:IGNORE-IT)) ; (SB!KERNEL::CLOS-HASH (SB!KERNEL:RANDOM-LAYOUT-CLOS-HASH) :TYPE ; SB!KERNEL:LAYOUT-CLOS-HASH) ; (SB!KERNEL:CLASSOID (SB!INT:MISSING-ARG) :TYPE SB!KERNEL:CLASSOID) ; (SB!KERNEL::INVALID :UNINITIALIZED :TYPE ; (OR CONS (MEMBER NIL T :UNINITIALIZED))) ; (SB!KERNEL::INHERITS #() :TYPE SIMPLE-VECTOR) ; (SB!KERNEL::DEPTHOID -1 :TYPE SB!KERNEL:LAYOUT-DEPTHOID) ; (LENGTH 0 :TYPE SB!INT:INDEX) (SB!INT:INFO NIL) ; (SB!KERNEL::PURE NIL :TYPE (MEMBER T NIL 0)) ; (SB!KERNEL::N-UNTAGGED-SLOTS 0 :TYPE SB!INT:INDEX) ; (SB!KERNEL::SOURCE-LOCATION NIL) ...) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: %TARGET-DEFSTRUCT ; in: ; DEF!STRUCT (CLASSOID (:MAKE-LOAD-FORM-FUN CLASSOID-MAKE-LOAD-FORM-FUN) ; (:INCLUDE CTYPE (CLASS-INFO (TYPE-CLASS-OR-LOSE 'CLASSOID))) ; (:CONSTRUCTOR NIL) ; (:PRINT-OBJECT ; (LAMBDA (CLASS STREAM) ; (LET # ; #))) ; ...) ; (SB!INT:DEF!STRUCT ; (SB!KERNEL:CLASSOID ; (:MAKE-LOAD-FORM-FUN SB!KERNEL::CLASSOID-MAKE-LOAD-FORM-FUN) ; (:INCLUDE SB!KERNEL:CTYPE ; (SB!KERNEL::CLASS-INFO ; (SB!KERNEL::TYPE-CLASS-OR-LOSE 'SB!KERNEL:CLASSOID))) ; (:CONSTRUCTOR NIL) ; (:PRINT-OBJECT ; (LAMBDA (CLASS STREAM) ; (LET # ; #))) ; (:PURE NIL)) ; (SB!KERNEL::NAME NIL :TYPE SYMBOL) ; (SB!KERNEL:LAYOUT NIL :TYPE (OR SB!KERNEL:LAYOUT NULL)) ; (SB!KERNEL::STATE NIL :TYPE (MEMBER NIL :READ-ONLY :SEALED)) ; (SB!KERNEL::DIRECT-SUPERCLASSES NIL :TYPE LIST) ; (SB!KERNEL::SUBCLASSES NIL :TYPE (OR NULL HASH-TABLE)) ; (SB!KERNEL::PCL-CLASS NIL)) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: %TARGET-DEFSTRUCT ; ; caught STYLE-WARNING: ; 5 more uses of undefined function %TARGET-DEFSTRUCT ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/class.lisp ; in: DEFUN REGISTER-LAYOUT ; (SB!KERNEL:WITH-WORLD-LOCK NIL ; (LET* ((SB!KERNEL:CLASSOID (SB!KERNEL:LAYOUT-CLASSOID SB!KERNEL:LAYOUT)) ; (SB!KERNEL:CLASSOID-LAYOUT ; (SB!KERNEL:CLASSOID-LAYOUT SB!KERNEL:CLASSOID)) ; (SB!KERNEL::SUBCLASSES ; (SB!KERNEL:CLASSOID-SUBCLASSES SB!KERNEL:CLASSOID))) ; (SB!INT:AVER (NOT (SB!KERNEL::UNDEFINED-CLASSOID-P SB!KERNEL:CLASSOID))) ; (SB!INT:AVER (NOT (EQ SB!KERNEL:CLASSOID-LAYOUT SB!KERNEL:LAYOUT))) ; (WHEN SB!KERNEL:CLASSOID-LAYOUT ; (SB!KERNEL::%MODIFY-CLASSOID SB!KERNEL:CLASSOID) ; (WHEN SB!KERNEL::SUBCLASSES ; (SB!INT:DOHASH # ; # ; #)) ; (WHEN SB!KERNEL::INVALIDATE ; (SB!KERNEL::%INVALIDATE-LAYOUT SB!KERNEL:CLASSOID-LAYOUT) ; (SETF #))) ; (IF SB!KERNEL::DESTRUCT-LAYOUT ; (SETF # NIL ; # # ; # # ; # # ; # # ; # # ; ...) ; (SETF # NIL ; # SB!KERNEL:LAYOUT)) ; (SB!INT:DOVECTOR (SB!KERNEL::SUPER-LAYOUT ; (SB!KERNEL:LAYOUT-INHERITS SB!KERNEL:LAYOUT)) ; (LET* (# #) ; (WHEN # # #) ; (SETF #))))) ; --> SB!THREAD:WITH-RECURSIVE-LOCK SB!INT:DX-FLET FLET ; ==> ; (SB!THREAD::CALL-WITH-RECURSIVE-LOCK #'SB!THREAD::WITH-RECURSIVE-LOCK-THUNK ; SB!C::**WORLD-LOCK** T NIL) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD::CALL-WITH-RECURSIVE-LOCK ; in: DEFUN FIND-AND-INIT-OR-CHECK-LAYOUT ; (SB!KERNEL:WITH-WORLD-LOCK NIL ; (LET ((SB!KERNEL:LAYOUT (SB!KERNEL:FIND-LAYOUT SB!KERNEL::NAME))) ; (SB!KERNEL::%INIT-OR-CHECK-LAYOUT SB!KERNEL:LAYOUT ; (OR ; (SB!KERNEL:FIND-CLASSOID ; SB!KERNEL::NAME NIL) ; (SB!KERNEL:LAYOUT-CLASSOID ; SB!KERNEL:LAYOUT)) ; LENGTH SB!KERNEL::INHERITS ; SB!KERNEL::DEPTHOID ; SB!KERNEL::METADATA))) ; --> SB!THREAD:WITH-RECURSIVE-LOCK SB!INT:DX-FLET FLET ; ==> ; (SB!THREAD::CALL-WITH-RECURSIVE-LOCK #'SB!THREAD::WITH-RECURSIVE-LOCK-THUNK ; SB!C::**WORLD-LOCK** T NIL) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD::CALL-WITH-RECURSIVE-LOCK ; in: DEFUN FIND-LAYOUT ; (SB!KERNEL:WITH-WORLD-LOCK NIL ; (LET ((SB!KERNEL:CLASSOID (SB!KERNEL:FIND-CLASSOID SB!KERNEL::NAME NIL))) ; (OR ; (AND SB!KERNEL:CLASSOID (SB!KERNEL:CLASSOID-LAYOUT SB!KERNEL:CLASSOID)) ; (GETHASH SB!KERNEL::NAME SB!KERNEL::TABLE) (SETF # #)))) ; --> SB!THREAD:WITH-RECURSIVE-LOCK SB!INT:DX-FLET FLET ; ==> ; (SB!THREAD::CALL-WITH-RECURSIVE-LOCK #'SB!THREAD::WITH-RECURSIVE-LOCK-THUNK ; SB!C::**WORLD-LOCK** T NIL) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD::CALL-WITH-RECURSIVE-LOCK ; ; caught STYLE-WARNING: ; 3 more uses of undefined function SB!THREAD::CALL-WITH-RECURSIVE-LOCK ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/class.lisp ; in: DEFUN SEALED-CLASS-INTERSECTION2 ; (SB!INT:DOHASH ((SB!KERNEL::SUBCLASS SB!KERNEL:LAYOUT) SB!KERNEL::S-SUB ; :LOCKED T) ; (DECLARE (IGNORE SB!KERNEL:LAYOUT)) ; (WHEN (GETHASH SB!KERNEL::SUBCLASS SB!KERNEL::O-SUB) ; (SB!KERNEL::RES (SB!KERNEL:SPECIFIER-TYPE SB!KERNEL::SUBCLASS)))) ; --> LET SB!INT:WITH-LOCKED-SYSTEM-TABLE SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK ; --> SB!INT:DX-FLET FLET ; ==> ; (SB!THREAD::CALL-WITH-RECURSIVE-SYSTEM-LOCK ; #'SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK-THUNK ; (SB!IMPL::HASH-TABLE-LOCK #:N-TABLE-1165)) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD::CALL-WITH-RECURSIVE-SYSTEM-LOCK ; in: DEFUN INSURED-FIND-CLASSOID ; (SB!INT:WITH-LOCKED-SYSTEM-TABLE (SB!KERNEL::TABLE) ; (LET* ((SB!KERNEL::OLD (SB!KERNEL:FIND-CLASSOID SB!KERNEL::NAME NIL)) ; (SB!KERNEL::RES ; (IF # ; SB!KERNEL::OLD ; #)) ; (SB!KERNEL::FOUND (OR # #))) ; (WHEN SB!KERNEL::FOUND (SETF # SB!KERNEL::RES)) ; (VALUES SB!KERNEL::RES SB!KERNEL::FOUND))) ; --> SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK SB!INT:DX-FLET FLET ; ==> ; (SB!THREAD::CALL-WITH-RECURSIVE-SYSTEM-LOCK ; #'SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK-THUNK ; (SB!IMPL::HASH-TABLE-LOCK SB!KERNEL::TABLE)) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD::CALL-WITH-RECURSIVE-SYSTEM-LOCK ; in: DEFUN REGISTER-LAYOUT ; (SB!INT:DOHASH ((SB!KERNEL::SUBCLASS SB!KERNEL::SUBCLASS-LAYOUT) ; SB!KERNEL::SUBCLASSES :LOCKED T) ; (SB!KERNEL::%MODIFY-CLASSOID SB!KERNEL::SUBCLASS) ; (WHEN SB!KERNEL::INVALIDATE ; (SB!KERNEL::%INVALIDATE-LAYOUT SB!KERNEL::SUBCLASS-LAYOUT))) ; --> LET SB!INT:WITH-LOCKED-SYSTEM-TABLE SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK ; --> SB!INT:DX-FLET FLET ; ==> ; (SB!THREAD::CALL-WITH-RECURSIVE-SYSTEM-LOCK ; #'SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK-THUNK ; (SB!IMPL::HASH-TABLE-LOCK #:N-TABLE-415)) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD::CALL-WITH-RECURSIVE-SYSTEM-LOCK ; in: DEFUN %ENSURE-CLASSOID-VALID ; (SB!MOP:CLASS-FINALIZED-P CLASS) ; ; caught STYLE-WARNING: ; undefined function: SB!MOP:CLASS-FINALIZED-P ; in: !DEFINE-TYPE-METHOD (CLASSOID :SIMPLE-SUBTYPEP) ; (SB!PCL::CLASS-HAS-A-FORWARD-REFERENCED-SUPERCLASS-P ; (SB!KERNEL:CLASSOID-PCL-CLASS SB!KERNEL::CLASS2)) ; ; caught STYLE-WARNING: ; undefined function: SB!PCL::CLASS-HAS-A-FORWARD-REFERENCED-SUPERCLASS-P ; in: DEFUN %ENSURE-CLASSOID-VALID ; (SB!PCL::CLASS-HAS-A-FORWARD-REFERENCED-SUPERCLASS-P CLASS) ; ; caught STYLE-WARNING: ; undefined function: SB!PCL::CLASS-HAS-A-FORWARD-REFERENCED-SUPERCLASS-P ; in: DEFUN CLASSOID-MAKE-LOAD-FORM-FUN ; (SB!INT:/SHOW "anonymous/undefined class case") ; --> LOCALLY ; ==> ; (VALUES) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; (SB!INT:/SHOW "entering CLASSOID-MAKE-LOAD-FORM-FUN" CLASS) ; --> LOCALLY ; ==> ; (VALUES) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: ; DEF!STRUCT (CLASSOID (:MAKE-LOAD-FORM-FUN CLASSOID-MAKE-LOAD-FORM-FUN) ; (:INCLUDE CTYPE (CLASS-INFO (TYPE-CLASS-OR-LOSE 'CLASSOID))) ; (:CONSTRUCTOR NIL) ; (:PRINT-OBJECT ; (LAMBDA (CLASS STREAM) ; (LET # ; #))) ; ...) ; (SB!INT:DEF!STRUCT ; (SB!KERNEL:CLASSOID ; (:MAKE-LOAD-FORM-FUN SB!KERNEL::CLASSOID-MAKE-LOAD-FORM-FUN) ; (:INCLUDE SB!KERNEL:CTYPE ; (SB!KERNEL::CLASS-INFO ; (SB!KERNEL::TYPE-CLASS-OR-LOSE 'SB!KERNEL:CLASSOID))) ; (:CONSTRUCTOR NIL) ; (:PRINT-OBJECT ; (LAMBDA (CLASS STREAM) ; (LET # ; #))) ; (:PURE NIL)) ; (SB!KERNEL::NAME NIL :TYPE SYMBOL) ; (SB!KERNEL:LAYOUT NIL :TYPE (OR SB!KERNEL:LAYOUT NULL)) ; (SB!KERNEL::STATE NIL :TYPE (MEMBER NIL :READ-ONLY :SEALED)) ; (SB!KERNEL::DIRECT-SUPERCLASSES NIL :TYPE LIST) ; (SB!KERNEL::SUBCLASSES NIL :TYPE (OR NULL HASH-TABLE)) ; (SB!KERNEL::PCL-CLASS NIL)) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL::DELAY-DEFSTRUCT-FUNCTIONS PROGN DEFUN ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK ; --> SETF SB!KERNEL:%INSTANCE-SET THE MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP ; --> LET SB!C::%TYPEP-WRAPPER IF ; ==> ; (MEMBER #:OBJECT48786 '(NIL :READ-ONLY :SEALED)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 85 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/class.lisp ; in: !DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !CLASSES-COLD-INIT ; (SB!INT:!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS SB!KERNEL:!CLASSES-COLD-INIT) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK DOLIST BLOCK LET TAGBODY UNLESS IF PROGN LET TAGBODY ; --> DESTRUCTURING-BIND LET LET* LET* LET SB!KERNEL::MAKE-BUILT-IN-CLASSOID IF ; --> MAPCAR LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN %ENSURE-CLASSOID-VALID ; (SB!MOP:FINALIZE-INHERITANCE CLASS) ; ; caught STYLE-WARNING: ; undefined function: SB!MOP:FINALIZE-INHERITANCE ; in: DEFUN SEALED-CLASS-INTERSECTION2 ; (SB!INT:DOHASH ((SB!KERNEL::SUBCLASS SB!KERNEL:LAYOUT) SB!KERNEL::S-SUB ; :LOCKED T) ; (DECLARE (IGNORE SB!KERNEL:LAYOUT)) ; (WHEN (GETHASH SB!KERNEL::SUBCLASS SB!KERNEL::O-SUB) ; (SB!KERNEL::RES (SB!KERNEL:SPECIFIER-TYPE SB!KERNEL::SUBCLASS)))) ; --> LET SB!INT:WITH-LOCKED-SYSTEM-TABLE SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK ; --> SB!INT:DX-FLET FLET SB!THREAD::CALL-WITH-RECURSIVE-SYSTEM-LOCK ; ==> ; (SB!IMPL::HASH-TABLE-LOCK #:N-TABLE-1165) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::HASH-TABLE-LOCK ; in: DEFUN INSURED-FIND-CLASSOID ; (SB!INT:WITH-LOCKED-SYSTEM-TABLE (SB!KERNEL::TABLE) ; (LET* ((SB!KERNEL::OLD (SB!KERNEL:FIND-CLASSOID SB!KERNEL::NAME NIL)) ; (SB!KERNEL::RES ; (IF # ; SB!KERNEL::OLD ; #)) ; (SB!KERNEL::FOUND (OR # #))) ; (WHEN SB!KERNEL::FOUND (SETF # SB!KERNEL::RES)) ; (VALUES SB!KERNEL::RES SB!KERNEL::FOUND))) ; --> SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK SB!INT:DX-FLET FLET ; --> SB!THREAD::CALL-WITH-RECURSIVE-SYSTEM-LOCK ; ==> ; (SB!IMPL::HASH-TABLE-LOCK SB!KERNEL::TABLE) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::HASH-TABLE-LOCK ; in: DEFUN REGISTER-LAYOUT ; (SB!INT:DOHASH ((SB!KERNEL::SUBCLASS SB!KERNEL::SUBCLASS-LAYOUT) ; SB!KERNEL::SUBCLASSES :LOCKED T) ; (SB!KERNEL::%MODIFY-CLASSOID SB!KERNEL::SUBCLASS) ; (WHEN SB!KERNEL::INVALIDATE ; (SB!KERNEL::%INVALIDATE-LAYOUT SB!KERNEL::SUBCLASS-LAYOUT))) ; --> LET SB!INT:WITH-LOCKED-SYSTEM-TABLE SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK ; --> SB!INT:DX-FLET FLET SB!THREAD::CALL-WITH-RECURSIVE-SYSTEM-LOCK ; ==> ; (SB!IMPL::HASH-TABLE-LOCK #:N-TABLE-415) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::HASH-TABLE-LOCK ; in: DEFUN SEALED-CLASS-INTERSECTION2 ; (SB!INT:DOHASH ((SB!KERNEL::SUBCLASS SB!KERNEL:LAYOUT) SB!KERNEL::S-SUB ; :LOCKED T) ; (DECLARE (IGNORE SB!KERNEL:LAYOUT)) ; (WHEN (GETHASH SB!KERNEL::SUBCLASS SB!KERNEL::O-SUB) ; (SB!KERNEL::RES (SB!KERNEL:SPECIFIER-TYPE SB!KERNEL::SUBCLASS)))) ; --> LET SB!INT:WITH-LOCKED-SYSTEM-TABLE SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK ; --> SB!INT:DX-FLET FLET BLOCK WITH-HASH-TABLE-ITERATOR LET LET* LENGTH ; ==> ; (SB!IMPL::HASH-TABLE-NEXT-VECTOR SB!IMPL::TABLE) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::HASH-TABLE-NEXT-VECTOR ; in: DEFUN TOPOLOGICAL-SORT ; (SB!INT:DOHASH ((SB!KERNEL::OBJ SB!INT:INFO) SB!KERNEL::OBJ-INFO) ; (UNLESS (ZEROP (FIRST SB!INT:INFO)) ; (ERROR "Topological sort failed due to constraint on ~S." ; SB!KERNEL::OBJ))) ; --> LET WITH-HASH-TABLE-ITERATOR LET LET* LENGTH ; ==> ; (SB!IMPL::HASH-TABLE-NEXT-VECTOR SB!IMPL::TABLE) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::HASH-TABLE-NEXT-VECTOR ; in: DEFUN REGISTER-LAYOUT ; (SB!INT:DOHASH ((SB!KERNEL::SUBCLASS SB!KERNEL::SUBCLASS-LAYOUT) ; SB!KERNEL::SUBCLASSES :LOCKED T) ; (SB!KERNEL::%MODIFY-CLASSOID SB!KERNEL::SUBCLASS) ; (WHEN SB!KERNEL::INVALIDATE ; (SB!KERNEL::%INVALIDATE-LAYOUT SB!KERNEL::SUBCLASS-LAYOUT))) ; --> LET SB!INT:WITH-LOCKED-SYSTEM-TABLE SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK ; --> SB!INT:DX-FLET FLET BLOCK WITH-HASH-TABLE-ITERATOR LET LET* LENGTH ; ==> ; (SB!IMPL::HASH-TABLE-NEXT-VECTOR SB!IMPL::TABLE) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::HASH-TABLE-NEXT-VECTOR ; ; caught STYLE-WARNING: ; 1 more use of undefined function SB!IMPL::HASH-TABLE-NEXT-VECTOR ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/class.lisp ; in: DEFUN SEALED-CLASS-INTERSECTION2 ; (SB!INT:DOHASH ((SB!KERNEL::SUBCLASS SB!KERNEL:LAYOUT) SB!KERNEL::S-SUB ; :LOCKED T) ; (DECLARE (IGNORE SB!KERNEL:LAYOUT)) ; (WHEN (GETHASH SB!KERNEL::SUBCLASS SB!KERNEL::O-SUB) ; (SB!KERNEL::RES (SB!KERNEL:SPECIFIER-TYPE SB!KERNEL::SUBCLASS)))) ; --> LET SB!INT:WITH-LOCKED-SYSTEM-TABLE SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK ; --> SB!INT:DX-FLET FLET BLOCK WITH-HASH-TABLE-ITERATOR LET LET* LABELS BLOCK ; --> LET ; ==> ; (SB!IMPL::HASH-TABLE-TABLE SB!IMPL::TABLE) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::HASH-TABLE-TABLE ; in: DEFUN TOPOLOGICAL-SORT ; (SB!INT:DOHASH ((SB!KERNEL::OBJ SB!INT:INFO) SB!KERNEL::OBJ-INFO) ; (UNLESS (ZEROP (FIRST SB!INT:INFO)) ; (ERROR "Topological sort failed due to constraint on ~S." ; SB!KERNEL::OBJ))) ; --> LET WITH-HASH-TABLE-ITERATOR LET LET* LABELS BLOCK LET ; ==> ; (SB!IMPL::HASH-TABLE-TABLE SB!IMPL::TABLE) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::HASH-TABLE-TABLE ; in: DEFUN REGISTER-LAYOUT ; (SB!INT:DOHASH ((SB!KERNEL::SUBCLASS SB!KERNEL::SUBCLASS-LAYOUT) ; SB!KERNEL::SUBCLASSES :LOCKED T) ; (SB!KERNEL::%MODIFY-CLASSOID SB!KERNEL::SUBCLASS) ; (WHEN SB!KERNEL::INVALIDATE ; (SB!KERNEL::%INVALIDATE-LAYOUT SB!KERNEL::SUBCLASS-LAYOUT))) ; --> LET SB!INT:WITH-LOCKED-SYSTEM-TABLE SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK ; --> SB!INT:DX-FLET FLET BLOCK WITH-HASH-TABLE-ITERATOR LET LET* LABELS BLOCK ; --> LET ; ==> ; (SB!IMPL::HASH-TABLE-TABLE SB!IMPL::TABLE) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::HASH-TABLE-TABLE ; ; caught STYLE-WARNING: ; 1 more use of undefined function SB!IMPL::HASH-TABLE-TABLE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/class.lisp ; in: !DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !CLASSES-COLD-INIT ; (SB!INT:!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS SB!KERNEL:!CLASSES-COLD-INIT) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK DOLIST BLOCK LET TAGBODY UNLESS IF PROGN LET TAGBODY LET* ; --> LET SB!INT:/HEXSTR SB!SYS:%PRIMITIVE SB!C::%%PRIMITIVE ; ==> ; (SB!INT:HEXSTR SB!KERNEL::INHERITS) ; ; caught STYLE-WARNING: ; undefined function: HEXSTR ; in: DEFUN RANDOM-LAYOUT-CLOS-HASH ; (RANDOM (1- SB!KERNEL:LAYOUT-CLOS-HASH-LIMIT) ; (IF (BOUNDP 'SB!KERNEL::*LAYOUT-CLOS-HASH-RANDOM-STATE*) ; SB!KERNEL::*LAYOUT-CLOS-HASH-RANDOM-STATE* ; (SETF SB!KERNEL::*LAYOUT-CLOS-HASH-RANDOM-STATE* ; (MAKE-RANDOM-STATE)))) ; ; caught STYLE-WARNING: ; undefined function: RANDOM-CHUNK ; in: DEFUN SEALED-CLASS-INTERSECTION2 ; (SB!KERNEL::RES (SB!KERNEL:SPECIFIER-TYPE SB!KERNEL::SUBCLASS)) ; --> PROGN SETQ THE ; ==> ; (SB!KERNEL:TYPE-UNION (SB!KERNEL:SPECIFIER-TYPE SB!KERNEL::SUBCLASS) ; #:RES-N-VALUE-49701) ; ; caught STYLE-WARNING: ; undefined function: TYPE-UNION ; ; compilation unit finished ; Undefined types: ; CODE-DELETION-NOTE COMPILER-NOTE ; Undefined functions: ; SB!PCL::%FORCE-CACHE-FLUSHES %TARGET-DEFSTRUCT SB!THREAD::CALL-WITH-RECURSIVE-LOCK SB!THREAD::CALL-WITH-RECURSIVE-SYSTEM-LOCK SB!MOP:CLASS-FINALIZED-P SB!PCL::CLASS-HAS-A-FORWARD-REFERENCED-SUPERCLASS-P SB!MOP:FINALIZE-INHERITANCE SB!IMPL::HASH-TABLE-LOCK SB!IMPL::HASH-TABLE-NEXT-VECTOR SB!IMPL::HASH-TABLE-TABLE HEXSTR RANDOM-CHUNK TYPE-UNION ; caught 36 STYLE-WARNING conditions ; printed 1 note ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/class.lisp-obj-tmp written ; compilation finished in 0:00:01.100 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/condition.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (/SHOW0 "condition.lisp 20") ; x-compiling (/SHOW0 "condition.lisp 24") /condition.lisp 24 ; x-compiling (DEF!STRUCT (CONDITION-CLASSOID # ...) ...) ; x-compiling (/SHOW0 "condition.lisp 49") /condition.lisp 49 ; x-compiling (!DEFSTRUCT-WITH-ALTERNATE-METACLASS CONDITION ...) ; x-compiling (DEFSTRUCT (CONDITION-SLOT #) ...) ; x-compiling (/SHOW0 "condition.lisp 103") /condition.lisp 103 ; x-compiling (LET (#) ...) ; x-compiling (/SHOW0 "condition.lisp 103") /condition.lisp 103 ; x-compiling (SETF (CONDITION-CLASSOID-REPORT #) ...) ; x-compiling (DEFUN FIND-CONDITION-LAYOUT ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFVAR *EMPTY-CONDITION-SLOT* ...) ; x-compiling (DEFUN FIND-SLOT-DEFAULT ...) ; x-compiling (DEFUN FIND-CONDITION-CLASS-SLOT ...) ; x-compiling (DEFUN CONDITION-WRITER-FUNCTION ...) ; x-compiling (DEFUN CONDITION-READER-FUNCTION ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/condition.lisp ; in: DEFUN CONDITION-READER-FUNCTION ; (ERROR "missing slot ~S of ~S" SB!KERNEL::NAME CONDITION) ; ==> ; "missing slot ~S of ~S" ; ; note: deleting unreachable code ; x-compiling (DEFUN ALLOCATE-CONDITION ...) ; x-compiling (DEFUN MAKE-CONDITION ...) ; x-compiling (DEFUN %COMPILER-DEFINE-CONDITION ...) ; x-compiling (DEFUN COMPUTE-EFFECTIVE-SLOTS ...) ; x-compiling (DECLAIM (NOTINLINE INSTALL-CONDITION-SLOT-READER ...)) ; x-compiling (DEFUN INSTALL-CONDITION-SLOT-READER ...) ; x-compiling (DEFUN INSTALL-CONDITION-SLOT-WRITER ...) ; x-compiling (!DEFVAR *DEFINE-CONDITION-HOOKS* ...) ; x-compiling (DEFUN %SET-CONDITION-REPORT ...) ; x-compiling (DEFUN %DEFINE-CONDITION ...) ; x-compiling (DEFMACRO DEFINE-CONDITION ...) ; x-compiling (DEFINE-CONDITION SERIOUS-CONDITION ...) ; x-compiling (DEFINE-CONDITION ERROR ...) ; x-compiling (DEFINE-CONDITION WARNING ...) ; x-compiling (DEFINE-CONDITION STYLE-WARNING ...) ; x-compiling (DEFUN SIMPLE-CONDITION-PRINTER ...) ; x-compiling (DEFINE-CONDITION SIMPLE-CONDITION ...) ; x-compiling (DEFINE-CONDITION SIMPLE-WARNING ...) ; x-compiling (DEFINE-CONDITION SIMPLE-ERROR ...) ; x-compiling (DEFINE-CONDITION STORAGE-CONDITION ...) ; x-compiling (DEFINE-CONDITION TYPE-ERROR ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFINE-CONDITION SIMPLE-STYLE-WARNING ...) ; x-compiling (DEFINE-CONDITION SIMPLE-TYPE-ERROR ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN BAD-TYPE ...) ; x-compiling (DEFINE-CONDITION PROGRAM-ERROR ...) ; x-compiling (DEFINE-CONDITION PARSE-ERROR ...) ; x-compiling (DEFINE-CONDITION CONTROL-ERROR ...) ; x-compiling (DEFINE-CONDITION STREAM-ERROR ...) ; x-compiling (DEFINE-CONDITION END-OF-FILE ...) ; x-compiling (DEFINE-CONDITION CLOSED-STREAM-ERROR ...) ; x-compiling (DEFINE-CONDITION FILE-ERROR ...) ; x-compiling (DEFINE-CONDITION PACKAGE-ERROR ...) ; x-compiling (DEFINE-CONDITION CELL-ERROR ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFINE-CONDITION UNBOUND-VARIABLE ...) ; x-compiling (DEFINE-CONDITION UNDEFINED-FUNCTION ...) ; x-compiling (DEFINE-CONDITION SPECIAL-FORM-FUNCTION ...) ; x-compiling (DEFINE-CONDITION ARITHMETIC-ERROR ...) ; x-compiling (DEFINE-CONDITION DIVISION-BY-ZERO ...) ; x-compiling (DEFINE-CONDITION FLOATING-POINT-OVERFLOW ...) ; x-compiling (DEFINE-CONDITION FLOATING-POINT-UNDERFLOW ...) ; x-compiling (DEFINE-CONDITION FLOATING-POINT-INEXACT ...) ; x-compiling (DEFINE-CONDITION FLOATING-POINT-INVALID-OPERATION ...) ; x-compiling (DEFINE-CONDITION PRINT-NOT-READABLE ...) ; x-compiling (DEFINE-CONDITION READER-ERROR ...) ; x-compiling (DEFINE-CONDITION SIMPLE-READER-ERROR ...) ; x-compiling (DEFUN %REPORT-READER-ERROR ...) ; x-compiling (DEFINE-CONDITION BUG ...) ; x-compiling (DEFINE-CONDITION SIMPLE-STORAGE-CONDITION ...) ; x-compiling (DEFINE-CONDITION UNSUPPORTED-OPERATOR ...) ; x-compiling (DEFUN PRINT-REFERENCE ...) ; x-compiling (DEFINE-CONDITION REFERENCE-CONDITION ...) ; x-compiling (DEFVAR *PRINT-CONDITION-REFERENCES* ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFINE-CONDITION SIMPLE-REFERENCE-ERROR ...) ; x-compiling (DEFINE-CONDITION SIMPLE-REFERENCE-WARNING ...) ; x-compiling (DEFINE-CONDITION ARGUMENTS-OUT-OF-DOMAIN-ERROR ...) ; x-compiling (DEFUN REPORT-DUPLICATE-DEFINITION ...) ; x-compiling (DEFINE-CONDITION DUPLICATE-DEFINITION ...) ; x-compiling (DEFINE-CONDITION SAME-FILE-REDEFINITION-WARNING ...) ; x-compiling (DEFINE-CONDITION CONSTANT-MODIFIED ...) ; x-compiling (DEFINE-CONDITION PACKAGE-AT-VARIANCE ...) ; x-compiling (DEFINE-CONDITION PACKAGE-AT-VARIANCE-ERROR ...) ; x-compiling (DEFINE-CONDITION DEFCONSTANT-UNEQL ...) ; x-compiling (DEFINE-CONDITION ARRAY-INITIAL-ELEMENT-MISMATCH ...) ; x-compiling (DEFINE-CONDITION TYPE-WARNING ...) ; x-compiling (DEFINE-CONDITION TYPE-STYLE-WARNING ...) ; x-compiling (DEFINE-CONDITION LOCAL-ARGUMENT-MISMATCH ...) ; x-compiling (DEFINE-CONDITION FORMAT-ARGS-MISMATCH ...) ; x-compiling (DEFINE-CONDITION FORMAT-TOO-FEW-ARGS-WARNING ...) ; x-compiling (DEFINE-CONDITION FORMAT-TOO-MANY-ARGS-WARNING ...) ; x-compiling (DEFINE-CONDITION IMPLICIT-GENERIC-FUNCTION-WARNING ...) ; x-compiling (DEFINE-CONDITION EXTENSION-FAILURE ...) ; x-compiling (DEFINE-CONDITION STRUCTURE-INITARG-NOT-KEYWORD ...) ; x-compiling (DEFINE-CONDITION PACKAGE-LOCK-VIOLATION ...) ; x-compiling (DEFINE-CONDITION PACKAGE-LOCKED-ERROR ...) ; x-compiling (DEFINE-CONDITION SYMBOL-PACKAGE-LOCKED-ERROR ...) ; x-compiling (DEFINE-CONDITION UNDEFINED-ALIEN-ERROR ...) ; x-compiling (DEFINE-CONDITION UNDEFINED-ALIEN-VARIABLE-ERROR ...) ; x-compiling (DEFINE-CONDITION UNDEFINED-ALIEN-FUNCTION-ERROR ...) ; x-compiling (DEFINE-CONDITION ENCAPSULATED-CONDITION ...) ; x-compiling (DEFINE-CONDITION FLOATING-POINT-EXCEPTION ...) ; x-compiling (DEFINE-CONDITION INVALID-ARRAY-INDEX-ERROR ...) ; x-compiling (DEFINE-CONDITION INVALID-ARRAY-ERROR ...) ; x-compiling (DEFINE-CONDITION INDEX-TOO-LARGE-ERROR ...) ; x-compiling (DEFINE-CONDITION BOUNDING-INDICES-BAD-ERROR ...) ; x-compiling (DEFINE-CONDITION NIL-ARRAY-ACCESSED-ERROR ...) ; x-compiling (DEFINE-CONDITION NAMESTRING-PARSE-ERROR ...) ; x-compiling (DEFINE-CONDITION SIMPLE-PACKAGE-ERROR ...) ; x-compiling (DEFINE-CONDITION SIMPLE-READER-PACKAGE-ERROR ...) ; x-compiling (DEFINE-CONDITION READER-EOF-ERROR ...) ; x-compiling (DEFINE-CONDITION READER-IMPOSSIBLE-NUMBER-ERROR ...) ; x-compiling (DEFINE-CONDITION STANDARD-READTABLE-MODIFIED-ERROR ...) ; x-compiling (DEFINE-CONDITION STANDARD-PPRINT-DISPATCH-TABLE-MODIFIED-ERROR ...) ; x-compiling (DEFINE-CONDITION TIMEOUT ...) ; x-compiling (DEFINE-CONDITION IO-TIMEOUT ...) ; x-compiling (DEFINE-CONDITION DEADLINE-TIMEOUT ...) ; x-compiling (DEFINE-CONDITION DECLARATION-TYPE-CONFLICT-ERROR ...) ; x-compiling (DEFINE-CONDITION STEP-CONDITION ...) ; x-compiling (SETF (FDOCUMENTATION # ...) ...) ; x-compiling (DEFINE-CONDITION STEP-FORM-CONDITION ...) ; x-compiling (DEFINE-CONDITION STEP-RESULT-CONDITION ...) ; x-compiling (SETF (FDOCUMENTATION # ...) ...) ; x-compiling (DEFINE-CONDITION STEP-VALUES-CONDITION ...) ; x-compiling (DEFINE-CONDITION STEP-FINISHED-CONDITION ...) ; x-compiling (DEFVAR *MUFFLED-WARNINGS* ...) ; x-compiling (DEFINE-CONDITION REDEFINITION-WARNING ...) ; x-compiling (DEFINE-CONDITION FUNCTION-REDEFINITION-WARNING ...) ; x-compiling (DEFINE-CONDITION REDEFINITION-WITH-DEFUN ...) ; x-compiling (DEFINE-CONDITION REDEFINITION-WITH-DEFMACRO ...) ; x-compiling (DEFINE-CONDITION REDEFINITION-WITH-DEFGENERIC ...) ; x-compiling (DEFINE-CONDITION REDEFINITION-WITH-DEFMETHOD ...) ; x-compiling (DEFUN FUNCTION-FILE-NAMESTRING ...) ; x-compiling (DEFUN INTERESTING-FUNCTION-REDEFINITION-WARNING-P ...) ; x-compiling (DEFUN UNINTERESTING-ORDINARY-FUNCTION-REDEFINITION-P ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/condition.lisp ; in: DEFUN UNINTERESTING-ORDINARY-FUNCTION-REDEFINITION-P ; (MACRO-FUNCTION SB!KERNEL::NAME) ; ==> ; SB!KERNEL::NAME ; ; note: deleting unreachable code ; x-compiling (DEFUN UNINTERESTING-MACRO-REDEFINITION-P ...) ; x-compiling (DEFUN UNINTERESTING-GENERIC-FUNCTION-REDEFINITION-P ...) ; x-compiling (DEFUN UNINTERESTING-METHOD-REDEFINITION-P ...) ; x-compiling (DEFTYPE UNINTERESTING-REDEFINITION ...) ; x-compiling (DEFINE-CONDITION REDEFINITION-WITH-DEFTRANSFORM ...) ; x-compiling (DEFINE-CONDITION DUBIOUS-ASTERISKS-AROUND-VARIABLE-NAME ...) ; x-compiling (DEFINE-CONDITION ASTERISKS-AROUND-LEXICAL-VARIABLE-NAME ...) ; x-compiling (DEFINE-CONDITION ASTERISKS-AROUND-CONSTANT-VARIABLE-NAME ...) ; x-compiling (DEFINE-CONDITION UNDEFINED-ALIEN-STYLE-WARNING ...) ; x-compiling (DEFINE-CONDITION LEXICAL-ENVIRONMENT-TOO-COMPLEX ...) ; x-compiling (DEFINE-CONDITION CHARACTER-DECODING-ERROR-IN-COMMENT ...) ; x-compiling (DEFINE-CONDITION CHARACTER-DECODING-ERROR-IN-MACRO-CHAR-COMMENT ...) ; x-compiling (DEFINE-CONDITION CHARACTER-DECODING-ERROR-IN-DISPATCH-MACRO-CHAR-COMMENT ...) ; x-compiling (DEFUN DECODING-ERROR-IN-COMMENT-MACRO ...) ; x-compiling (DEFINE-CONDITION DEPRECATED-EVAL-WHEN-SITUATIONS ...) ; x-compiling (DEFINE-CONDITION PROCLAMATION-MISMATCH ...) ; x-compiling (DEFINE-CONDITION TYPE-PROCLAMATION-MISMATCH ...) ; x-compiling (DEFINE-CONDITION TYPE-PROCLAMATION-MISMATCH-WARNING ...) ; x-compiling (DEFUN TYPE-PROCLAMATION-MISMATCH-WARN ...) ; x-compiling (DEFINE-CONDITION FTYPE-PROCLAMATION-MISMATCH ...) ; x-compiling (DEFINE-CONDITION FTYPE-PROCLAMATION-MISMATCH-WARNING ...) ; x-compiling (DEFUN FTYPE-PROCLAMATION-MISMATCH-WARN ...) ; x-compiling (DEFINE-CONDITION FTYPE-PROCLAMATION-MISMATCH-ERROR ...) ; x-compiling (DEFINE-CONDITION DEPRECATION-CONDITION ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFINE-CONDITION EARLY-DEPRECATION-WARNING ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFINE-CONDITION LATE-DEPRECATION-WARNING ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFINE-CONDITION FINAL-DEPRECATION-WARNING ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFINE-CONDITION DEPRECATION-ERROR ...) ; x-compiling (DEFINE-CONDITION ABORT-FAILURE ...) ; x-compiling (DEFUN ABORT ...) ; x-compiling (DEFUN MUFFLE-WARNING ...) ; x-compiling (DEFUN TRY-RESTART ...) ; x-compiling (DEFINE-NIL-RETURNING-RESTART CONTINUE ...) ; x-compiling (DEFINE-NIL-RETURNING-RESTART STORE-VALUE ...) ; x-compiling (DEFINE-NIL-RETURNING-RESTART USE-VALUE ...) ; x-compiling (DEFINE-NIL-RETURNING-RESTART PRINT-UNREADABLY ...) ; x-compiling (DEF STEP-CONTINUE ...) ; x-compiling (DEF STEP-NEXT ...) ; x-compiling (DEF STEP-INTO ...) ; x-compiling (DEFINE-CONDITION COMPILER-MACRO-KEYWORD-PROBLEM ...) ; x-compiling (DEFINE-CONDITION SB!C:INLINING-DEPENDENCY-FAILURE ...) ; x-compiling (/SHOW0 "condition.lisp end of file") ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/condition.lisp ; in: !DEFSTRUCT-WITH-ALTERNATE-METACLASS CONDITION ; (SB!KERNEL:!DEFSTRUCT-WITH-ALTERNATE-METACLASS CONDITION :SLOT-NAMES ; (SB!KERNEL::ACTUAL-INITARGS ; SB!KERNEL::ASSIGNED-SLOTS) ; :BOA-CONSTRUCTOR ; SB!KERNEL::%MAKE-CONDITION-OBJECT ; :SUPERCLASS-NAME T ; :METACLASS-NAME ; SB!KERNEL::CONDITION-CLASSOID ; :METACLASS-CONSTRUCTOR ; SB!KERNEL::MAKE-CONDITION-CLASSOID ; ...) ; --> PROGN EVAL-WHEN SB!KERNEL::%COMPILER-SET-UP-LAYOUT ; ==> ; (SB!KERNEL::%COMPILER-SET-UP-LAYOUT ; '# ; '#(#)) ; ; caught STYLE-WARNING: ; undefined function: %COMPILER-SET-UP-LAYOUT ; in: DEFSTRUCT CONDITION-SLOT ; (DEFSTRUCT (SB!KERNEL::CONDITION-SLOT (:COPIER NIL)) ; (SB!KERNEL::NAME (SB!INT:MISSING-ARG) :TYPE SYMBOL) ; (SB!KERNEL::INITARGS (SB!INT:MISSING-ARG) :TYPE LIST) ; (SB!KERNEL::READERS (SB!INT:MISSING-ARG) :TYPE LIST) ; (SB!KERNEL::WRITERS (SB!INT:MISSING-ARG) :TYPE LIST) ; (SB!KERNEL::INITFORM-P (SB!INT:MISSING-ARG) :TYPE (MEMBER T NIL)) ; (SB!KERNEL::INITFORM NIL :TYPE T) ; (SB!KERNEL::INITFUNCTION (SB!INT:MISSING-ARG) :TYPE T) ; (SB!KERNEL::ALLOCATION NIL :TYPE (MEMBER :INSTANCE :CLASS NIL)) ; (SB!KERNEL::CELL NIL :TYPE (OR CONS NULL)) ; (DOCUMENTATION NIL :TYPE (OR STRING NULL))) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: %TARGET-DEFSTRUCT ; in: ; DEF!STRUCT (CONDITION-CLASSOID (:INCLUDE CLASSOID) ; (:CONSTRUCTOR MAKE-CONDITION-CLASSOID)) ; (SB!INT:DEF!STRUCT ; (SB!KERNEL::CONDITION-CLASSOID (:INCLUDE SB!KERNEL:CLASSOID) ; (:CONSTRUCTOR SB!KERNEL::MAKE-CONDITION-CLASSOID)) ; (SB!KERNEL::SLOTS NIL :TYPE LIST) (SB!KERNEL::CLASS-SLOTS NIL :TYPE LIST) ; (SB!KERNEL::REPORT NIL :TYPE (OR FUNCTION NULL)) ; (SB!KERNEL::DIRECT-DEFAULT-INITARGS NIL :TYPE LIST) ; (SB!KERNEL::CPL NIL :TYPE LIST) (SB!KERNEL::HAIRY-SLOTS NIL :TYPE LIST)) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: %TARGET-DEFSTRUCT ; in: DEFUN ALLOCATE-CONDITION ; (TYPECASE SB!KERNEL:CLASSOID ; (SB!KERNEL::CONDITION-CLASSOID SB!KERNEL:CLASSOID) ; (CLASS ; (RETURN-FROM SB!KERNEL:ALLOCATE-CONDITION ; (APPLY #'SB!KERNEL:ALLOCATE-CONDITION (CLASS-NAME SB!KERNEL:CLASSOID) ; SB!KERNEL::INITARGS))) ; (SB!KERNEL:CLASSOID ; (ERROR 'SIMPLE-TYPE-ERROR :DATUM SB!KERNEL:CLASSOID :EXPECTED-TYPE ; 'SB!KERNEL::CONDITION-CLASS :FORMAT-CONTROL ; "~S is not a condition class." :FORMAT-ARGUMENTS (LIST TYPE))) ; (T ; (ERROR 'SIMPLE-TYPE-ERROR :DATUM TYPE :EXPECTED-TYPE ; 'SB!KERNEL::CONDITION-CLASS :FORMAT-CONTROL ; "~S does not designate a condition class." :FORMAT-ARGUMENTS ; (LIST TYPE)))) ; --> LET COND IF COND IF ; ==> ; (TYPEP #:G50525 'CLASS) ; ; caught STYLE-WARNING: ; undefined type: CLASS ; in: DEFUN %REPORT-READER-ERROR ; (CLASS-NAME (CLASS-OF CONDITION)) ; ; caught STYLE-WARNING: ; undefined function: CLASS-NAME ; in: DEFUN ALLOCATE-CONDITION ; (CLASS-NAME SB!KERNEL:CLASSOID) ; ; caught STYLE-WARNING: ; undefined function: CLASS-NAME ; in: DEFUN %REPORT-READER-ERROR ; (CLASS-OF CONDITION) ; ; caught STYLE-WARNING: ; undefined function: CLASS-OF ; in: DEFUN UNINTERESTING-GENERIC-FUNCTION-REDEFINITION-P ; (TYPEP WARNING 'SB!KERNEL:REDEFINITION-WITH-DEFGENERIC) ; --> LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT50901 'SB!KERNEL:REDEFINITION-WITH-DEFGENERIC) ; ; caught STYLE-WARNING: ; undefined function: CLASSOID-CELL-TYPEP ; in: DEFUN UNINTERESTING-MACRO-REDEFINITION-P ; (TYPEP WARNING 'SB!KERNEL:REDEFINITION-WITH-DEFMACRO) ; --> LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT50897 'SB!KERNEL:REDEFINITION-WITH-DEFMACRO) ; ; caught STYLE-WARNING: ; undefined function: CLASSOID-CELL-TYPEP ; in: DEFUN UNINTERESTING-ORDINARY-FUNCTION-REDEFINITION-P ; (TYPEP WARNING 'SB!KERNEL:REDEFINITION-WITH-DEFUN) ; --> LET SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT50893 'SB!KERNEL:REDEFINITION-WITH-DEFUN) ; ; caught STYLE-WARNING: ; undefined function: CLASSOID-CELL-TYPEP ; ; caught STYLE-WARNING: ; 2 more uses of undefined function CLASSOID-CELL-TYPEP ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/condition.lisp ; in: DEFUN FIND-CONDITION-LAYOUT ; (SB!INT:INFO :TYPE :COMPILER-LAYOUT SB!KERNEL::NAME) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:VALUE400 #:FOUNDP401 #:G402) {D515F19}> ; #:VALUE400 #:FOUNDP401 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFSTRUCT CONDITION-SLOT ; (DEFSTRUCT (SB!KERNEL::CONDITION-SLOT (:COPIER NIL)) ; (SB!KERNEL::NAME (SB!INT:MISSING-ARG) :TYPE SYMBOL) ; (SB!KERNEL::INITARGS (SB!INT:MISSING-ARG) :TYPE LIST) ; (SB!KERNEL::READERS (SB!INT:MISSING-ARG) :TYPE LIST) ; (SB!KERNEL::WRITERS (SB!INT:MISSING-ARG) :TYPE LIST) ; (SB!KERNEL::INITFORM-P (SB!INT:MISSING-ARG) :TYPE (MEMBER T NIL)) ; (SB!KERNEL::INITFORM NIL :TYPE T) ; (SB!KERNEL::INITFUNCTION (SB!INT:MISSING-ARG) :TYPE T) ; (SB!KERNEL::ALLOCATION NIL :TYPE (MEMBER :INSTANCE :CLASS NIL)) ; (SB!KERNEL::CELL NIL :TYPE (OR CONS NULL)) ; (DOCUMENTATION NIL :TYPE (OR STRING NULL))) ; --> PROGN SB!KERNEL::DELAY-DEFSTRUCT-FUNCTIONS PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK SETF ; --> SB!KERNEL:%INSTANCE-SET THE MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET ; --> SB!C::%TYPEP-WRAPPER IF ; ==> ; (MEMBER #:OBJECT50356 '(T NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: ; DEF!STRUCT (CONDITION-CLASSOID (:INCLUDE CLASSOID) ; (:CONSTRUCTOR MAKE-CONDITION-CLASSOID)) ; (SB!INT:DEF!STRUCT ; (SB!KERNEL::CONDITION-CLASSOID (:INCLUDE SB!KERNEL:CLASSOID) ; (:CONSTRUCTOR SB!KERNEL::MAKE-CONDITION-CLASSOID)) ; (SB!KERNEL::SLOTS NIL :TYPE LIST) (SB!KERNEL::CLASS-SLOTS NIL :TYPE LIST) ; (SB!KERNEL::REPORT NIL :TYPE (OR FUNCTION NULL)) ; (SB!KERNEL::DIRECT-DEFAULT-INITARGS NIL :TYPE LIST) ; (SB!KERNEL::CPL NIL :TYPE LIST) (SB!KERNEL::HAIRY-SLOTS NIL :TYPE LIST)) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL::DELAY-DEFSTRUCT-FUNCTIONS PROGN DEFUN ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK ; --> SETF SB!KERNEL:%INSTANCE-SET THE MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP ; --> LET SB!C::%TYPEP-WRAPPER IF ; ==> ; (MEMBER #:OBJECT50178 '(NIL :READ-ONLY :SEALED)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 38 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/condition.lisp ; in: DEFUN %COMPILER-DEFINE-CONDITION ; (MAPCAR #'SB!KERNEL:FIND-CLASSOID SB!KERNEL::DIRECT-SUPERS) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN FIND-CONDITION-LAYOUT ; (MAPCAR ; (LAMBDA (SB!KERNEL::X) ; (SB!KERNEL::CONDITION-CLASSOID-CPL ; (SB!KERNEL:FIND-CLASSOID SB!KERNEL::X))) ; SB!KERNEL::PARENT-TYPES) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; (MAPCAR #'SB!KERNEL:CLASSOID-LAYOUT SB!KERNEL::CPL) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; ; caught STYLE-WARNING: ; 1 more use of undefined type COMPILER-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/condition.lisp ; in: DEFUN FUNCTION-FILE-NAMESTRING ; (SB!C::DEBUG-INFO-SOURCE SB!KERNEL::DEBUG-INFO) ; ; caught STYLE-WARNING: ; undefined function: SB!C::DEBUG-INFO-SOURCE ; (SB!C::DEBUG-SOURCE-NAMESTRING SB!KERNEL::DEBUG-SOURCE) ; ; caught STYLE-WARNING: ; undefined function: SB!C::DEBUG-SOURCE-NAMESTRING ; in: DEFUN UNINTERESTING-METHOD-REDEFINITION-P => SB!PCL::DEFINITION-SOURCE OLD-METHOD ; (SB!PCL::DEFINITION-SOURCE SB!KERNEL::OLD-METHOD) ; ; caught STYLE-WARNING: ; undefined function: SB!PCL::DEFINITION-SOURCE ; in: DEFUN UNINTERESTING-GENERIC-FUNCTION-REDEFINITION-P => SB!PCL::DEFINITION-SOURCE OLD ; (SB!PCL::DEFINITION-SOURCE SB!KERNEL::OLD) ; ; caught STYLE-WARNING: ; undefined function: SB!PCL::DEFINITION-SOURCE ; in: DEFUN UNINTERESTING-GENERIC-FUNCTION-REDEFINITION-P => SB!C:DEFINITION-SOURCE-LOCATION-NAMESTRING NEW-LOCATION ; (SB!C:DEFINITION-SOURCE-LOCATION-NAMESTRING SB!KERNEL::NEW-LOCATION) ; ; caught STYLE-WARNING: ; undefined function: SB!C:DEFINITION-SOURCE-LOCATION-NAMESTRING ; in: DEFUN INTERESTING-FUNCTION-REDEFINITION-WARNING-P => SB!C:DEFINITION-SOURCE-LOCATION-NAMESTRING SOURCE-LOCATION ; (SB!C:DEFINITION-SOURCE-LOCATION-NAMESTRING SB!KERNEL::SOURCE-LOCATION) ; ; caught STYLE-WARNING: ; undefined function: SB!C:DEFINITION-SOURCE-LOCATION-NAMESTRING ; in: DEFUN FUNCTION-FILE-NAMESTRING => ; SB!C:DEFINITION-SOURCE-LOCATION-NAMESTRING (SB!EVAL:INTERPRETED-FUNCTION-SOURCE-LOCATION ; FUNCTION) ; (SB!C:DEFINITION-SOURCE-LOCATION-NAMESTRING ; (SB!EVAL:INTERPRETED-FUNCTION-SOURCE-LOCATION FUNCTION)) ; ; caught STYLE-WARNING: ; undefined function: SB!C:DEFINITION-SOURCE-LOCATION-NAMESTRING ; ; caught STYLE-WARNING: ; 1 more use of undefined function SB!C:DEFINITION-SOURCE-LOCATION-NAMESTRING ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/condition.lisp ; in: DEFUN UNINTERESTING-GENERIC-FUNCTION-REDEFINITION-P ; (TYPEP SB!KERNEL::OLD 'GENERIC-FUNCTION) ; ; caught STYLE-WARNING: ; undefined type: GENERIC-FUNCTION ; in: DEFUN INTERESTING-FUNCTION-REDEFINITION-WARNING-P ; (TYPEP SB!KERNEL::OLD 'COMPILED-FUNCTION) ; --> LET SB!C::%TYPEP-WRAPPER COMPILED-FUNCTION-P LET AND IF AND THE NOT IF ; ==> ; (SB!EVAL:INTERPRETED-FUNCTION-P #:X1102) ; ; caught STYLE-WARNING: ; undefined function: SB!EVAL:INTERPRETED-FUNCTION-P ; in: DEFUN FUNCTION-FILE-NAMESTRING => ; SB!C:DEFINITION-SOURCE-LOCATION-NAMESTRING (SB!EVAL:INTERPRETED-FUNCTION-SOURCE-LOCATION ; FUNCTION) ; (SB!EVAL:INTERPRETED-FUNCTION-SOURCE-LOCATION FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: SB!EVAL:INTERPRETED-FUNCTION-SOURCE-LOCATION ; in: DEFINE-CONDITION UNDEFINED-ALIEN-FUNCTION-ERROR ; (SLOT-BOUNDP CONDITION 'SB!KERNEL::NAME) ; ; caught STYLE-WARNING: ; undefined function: SLOT-BOUNDP ; in: DEFINE-CONDITION UNDEFINED-ALIEN-ERROR ; (SLOT-BOUNDP CONDITION 'SB!KERNEL::NAME) ; ; caught STYLE-WARNING: ; undefined function: SLOT-BOUNDP ; in: DEFUN REPORT-DUPLICATE-DEFINITION ; (SLOT-VALUE CONDITION 'SB!KERNEL::NAME) ; ; caught STYLE-WARNING: ; undefined function: SLOT-VALUE ; ; compilation unit finished ; Undefined types: ; CLASS CODE-DELETION-NOTE COMPILER-NOTE GENERIC-FUNCTION ; Undefined functions: ; %COMPILER-SET-UP-LAYOUT %TARGET-DEFSTRUCT CLASS-NAME CLASS-OF CLASSOID-CELL-TYPEP SB!C::DEBUG-INFO-SOURCE SB!C::DEBUG-SOURCE-NAMESTRING SB!PCL::DEFINITION-SOURCE SB!C:DEFINITION-SOURCE-LOCATION-NAMESTRING SB!EVAL:INTERPRETED-FUNCTION-P SB!EVAL:INTERPRETED-FUNCTION-SOURCE-LOCATION SLOT-BOUNDP SLOT-VALUE ; caught 33 STYLE-WARNING conditions ; printed 2 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/condition.lisp-obj-tmp written ; compilation finished in 0:00:01.184 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/primtype.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (/SHOW0 "primtype.lisp 17") ; x-compiling (!DEF-PRIMITIVE-TYPE T ...) ; x-compiling (/SHOW0 "primtype.lisp 20") ; x-compiling (SETF *BACKEND-T-PRIMITIVE-TYPE* ...) ; x-compiling (/SHOW0 "primtype.lisp 24") ; x-compiling (!DEF-PRIMITIVE-TYPE POSITIVE-FIXNUM ...) ; x-compiling (/SHOW0 "primtype.lisp 27") ; x-compiling (!DEF-PRIMITIVE-TYPE UNSIGNED-BYTE-31 ...) ; x-compiling (/SHOW0 "primtype.lisp 31") ; x-compiling (!DEF-PRIMITIVE-TYPE UNSIGNED-BYTE-32 ...) ; x-compiling (/SHOW0 "primtype.lisp 35") ; x-compiling (!DEF-PRIMITIVE-TYPE FIXNUM ...) ; x-compiling (!DEF-PRIMITIVE-TYPE SIGNED-BYTE-32 ...) ; x-compiling (DEFVAR *FIXNUM-PRIMITIVE-TYPE* ...) ; x-compiling (/SHOW0 "primtype.lisp 53") ; x-compiling (!DEF-PRIMITIVE-TYPE-ALIAS TAGGED-NUM ...) ; x-compiling (MULTIPLE-VALUE-BIND (UNSIGNED SIGNED) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/primtype.lisp ; in: MULTIPLE-VALUE-BIND (UNSIGNED SIGNED) ; '(SB!VM::UNSIGNED-BYTE-64 SB!VM::UNSIGNED-BYTE-63 SB!VM::POSITIVE-FIXNUM) ; ; note: deleting unreachable code ; x-compiling (/SHOW0 "primtype.lisp 68") ; x-compiling (!DEF-PRIMITIVE-TYPE CHARACTER ...) ; x-compiling (/SHOW0 "primtype.lisp 73") ; x-compiling (!DEF-PRIMITIVE-TYPE FUNCTION ...) ; x-compiling (!DEF-PRIMITIVE-TYPE LIST ...) ; x-compiling (!DEF-PRIMITIVE-TYPE INSTANCE ...) ; x-compiling (/SHOW0 "primtype.lisp 77") ; x-compiling (!DEF-PRIMITIVE-TYPE FUNCALLABLE-INSTANCE ...) ; x-compiling (/SHOW0 "primtype.lisp 81") ; x-compiling (!DEF-PRIMITIVE-TYPE BIGNUM ...) ; x-compiling (!DEF-PRIMITIVE-TYPE RATIO ...) ; x-compiling (!DEF-PRIMITIVE-TYPE COMPLEX ...) ; x-compiling (/SHOW0 "about to !DEF-PRIMITIVE-TYPE SINGLE-FLOAT") ; x-compiling (!DEF-PRIMITIVE-TYPE SINGLE-FLOAT ...) ; x-compiling (/SHOW0 "about to !DEF-PRIMITIVE-TYPE DOUBLE-FLOAT") ; x-compiling (!DEF-PRIMITIVE-TYPE DOUBLE-FLOAT ...) ; x-compiling (/SHOW0 "about to !DEF-PRIMITIVE-TYPE COMPLEX-SINGLE-FLOAT") ; x-compiling (!DEF-PRIMITIVE-TYPE COMPLEX-SINGLE-FLOAT ...) ; x-compiling (/SHOW0 "about to !DEF-PRIMITIVE-TYPE COMPLEX-DOUBLE-FLOAT") ; x-compiling (!DEF-PRIMITIVE-TYPE COMPLEX-DOUBLE-FLOAT ...) ; x-compiling (/SHOW0 "primtype.lisp 96") ; x-compiling (DEFINE-SIMPLE-ARRAY-PRIMITIVE-TYPES) ; x-compiling (!DEF-PRIMITIVE-TYPE SYSTEM-AREA-POINTER ...) ; x-compiling (!DEF-PRIMITIVE-TYPE WEAK-POINTER ...) ; x-compiling (!DEF-PRIMITIVE-TYPE CATCH-BLOCK ...) ; x-compiling (/SHOW0 "primtype.lisp 147") ; x-compiling (DEFUN PRIMITIVE-TYPE-OF ...) ; x-compiling (/SHOW0 "primtype.lisp 188") ; x-compiling (DEFUN PRIMITIVE-TYPE ...) ; x-compiling (/SHOW0 "primtype.lisp 191") ; x-compiling (DEFUN-CACHED (PRIMITIVE-TYPE-AUX :HASH-FUNCTION ...) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/primtype.lisp ; in: ; DEFUN-CACHED (PRIMITIVE-TYPE-AUX :HASH-FUNCTION #'TYPE-HASH-VALUE :HASH-BITS 9 ; ...) ; 'SB!VM::SIGNED-BYTE-64 ; ; note: deleting unreachable code ; 'SB!VM::UNSIGNED-BYTE-63 ; ; note: deleting unreachable code ; 'SB!VM::UNSIGNED-BYTE-64 ; ; note: deleting unreachable code ; 'SB!VM::SIGNED-BYTE-64 ; ; note: deleting unreachable code ; 'SB!VM::UNSIGNED-BYTE-63 ; ; note: deleting unreachable code ; 'SB!VM::UNSIGNED-BYTE-64 ; ; note: deleting unreachable code ; x-compiling (/SHOW0 "primtype.lisp end of file") ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/primtype.lisp ; in: ; DEFUN-CACHED (PRIMITIVE-TYPE-AUX :HASH-FUNCTION #'TYPE-HASH-VALUE :HASH-BITS 9 ; ...) ; (SB!INT:DEFUN-CACHED (SB!VM::PRIMITIVE-TYPE-AUX :HASH-FUNCTION ; #'SB!KERNEL:TYPE-HASH-VALUE ; :HASH-BITS 9 :VALUES 2) ; ((TYPE EQ)) ; (DECLARE (TYPE SB!KERNEL:CTYPE TYPE)) ; (MACROLET ((SB!C:ANY () ; '(VALUES SB!C:*BACKEND-T-PRIMITIVE-TYPE* NIL)) ; (SB!VM::EXACTLY (TYPE) ; (SB!INT:QUASIQUOTE #)) ; (SB!VM::PART-OF (TYPE) ; (SB!INT:QUASIQUOTE #))) ; (FLET ((SB!VM::MAYBE-NUMERIC-TYPE-UNION # ; #)) ; (ETYPECASE TYPE ; (SB!KERNEL:NUMERIC-TYPE #) ; (SB!KERNEL:ARRAY-TYPE #) ; (SB!KERNEL:UNION-TYPE #) ; (SB!KERNEL:INTERSECTION-TYPE #) ; (SB!KERNEL:MEMBER-TYPE #) ; (SB!KERNEL:NAMED-TYPE #) ; (SB!KERNEL:CHARACTER-SET-TYPE #) ; (SB!KERNEL:BUILT-IN-CLASSOID #) ; (SB!KERNEL:FUN-TYPE #) ; (SB!KERNEL:CLASSOID #) ; ...)))) ; --> PROGN SB!INT:DEFINE-HASH-CACHE PROGN SB!EXT:DEFGLOBAL PROGN LET LET ; ==> ; (SB!IMPL::%DEFGLOBAL 'SB!VM::**PRIMITIVE-TYPE-AUX-CACHE-VECTOR** ; (UNLESS #:BOUNDP NIL) #:BOUNDP 'NIL NIL ; (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::%DEFGLOBAL ; in: MULTIPLE-VALUE-BIND (UNSIGNED SIGNED) ; (SB!C:!DEF-PRIMITIVE-TYPE-ALIAS SB!VM::UNSIGNED-NUM ; (SB!INT:QUASIQUOTE ; (:OR ; #S(SB!IMPL::COMMA ; :EXPR SB!ALIEN:UNSIGNED ; :KIND 2)))) ; --> PROGN ASSERT TAGBODY LET ; ==> ; (ASSOC 'SB!VM::UNSIGNED-NUM SB!C::*BACKEND-PRIMITIVE-TYPE-ALIASES*) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; (MULTIPLE-VALUE-BIND (SB!ALIEN:UNSIGNED SB!ALIEN:SIGNED) ; (CASE SB!VM:N-MACHINE-WORD-BITS ; (64 ; (VALUES ; '(SB!VM::UNSIGNED-BYTE-64 SB!VM::UNSIGNED-BYTE-63 ; SB!VM::POSITIVE-FIXNUM) ; '(SB!VM::SIGNED-BYTE-64 FIXNUM SB!VM::UNSIGNED-BYTE-63 ; SB!VM::POSITIVE-FIXNUM))) ; (32 ; (VALUES ; '(SB!VM::UNSIGNED-BYTE-32 SB!VM::UNSIGNED-BYTE-31 ; SB!VM::POSITIVE-FIXNUM) ; '(SB!VM::SIGNED-BYTE-32 FIXNUM SB!VM::UNSIGNED-BYTE-31 ; SB!VM::POSITIVE-FIXNUM)))) ; (SB!C:!DEF-PRIMITIVE-TYPE-ALIAS SB!VM::UNSIGNED-NUM ; (SB!INT:QUASIQUOTE ; (:OR ; #S(SB!IMPL::COMMA ; :EXPR SB!ALIEN:UNSIGNED ; :KIND 2)))) ; (SB!C:!DEF-PRIMITIVE-TYPE-ALIAS SB!VM::SIGNED-NUM ; (SB!INT:QUASIQUOTE ; (:OR ; #S(SB!IMPL::COMMA ; :EXPR SB!ALIEN:SIGNED ; :KIND 2)))) ; (SB!C:!DEF-PRIMITIVE-TYPE-ALIAS SB!VM::UNTAGGED-NUM ; (SB!INT:QUASIQUOTE ; (:OR #S(SB!IMPL::COMMA :EXPR # :KIND 2))))) ; --> MULTIPLE-VALUE-CALL MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!ALIEN:UNSIGNED SB!ALIEN:SIGNED #:G23) {CFC6811}> ; SB!ALIEN:UNSIGNED SB!ALIEN:SIGNED NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: !DEF-PRIMITIVE-TYPE-ALIAS TAGGED-NUM ; (SB!C:!DEF-PRIMITIVE-TYPE-ALIAS SB!VM::TAGGED-NUM ; '(:OR SB!VM::POSITIVE-FIXNUM FIXNUM)) ; --> PROGN ASSERT TAGBODY TAGBODY LET ; ==> ; (ASSOC 'SB!VM::TAGGED-NUM SB!C::*BACKEND-PRIMITIVE-TYPE-ALIASES*) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 14 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/primtype.lisp ; in: ; DEFUN-CACHED (PRIMITIVE-TYPE-AUX :HASH-FUNCTION #'TYPE-HASH-VALUE :HASH-BITS 9 ; ...) ; (SB!KERNEL:CSUBTYPEP TYPE (SB!KERNEL:SPECIFIER-TYPE 'FUNCTION)) ; ; caught STYLE-WARNING: ; undefined function: CSUBTYPEP ; (SB!KERNEL:TYPE-SPECIFIER SB!VM::ETYPE) ; ; caught STYLE-WARNING: ; undefined function: TYPE-SPECIFIER ; (SB!KERNEL:TYPE= TYPE (SB!KERNEL:SPECIFIER-TYPE 'LIST)) ; ; caught STYLE-WARNING: ; undefined function: TYPE= ; ; compilation unit finished ; Undefined type: ; CODE-DELETION-NOTE ; Undefined functions: ; SB!IMPL::%DEFGLOBAL CSUBTYPEP TYPE-SPECIFIER TYPE= ; caught 8 STYLE-WARNING conditions ; printed 7 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/generic/primtype.lisp-obj-tmp written ; compilation finished in 0:00:00.332 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/parse-lambda-list.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (/SHOW0 "parse-lambda-list.lisp 12") ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN PARSE-LAMBDA-LIST-LIKE-THING ...) ; x-compiling (DEFUN PARSE-LAMBDA-LIST ...) ; x-compiling (/SHOW0 "parse-lambda-list.lisp end of file") ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/parse-lambda-list.lisp ; in: DEFUN PARSE-LAMBDA-LIST-LIKE-THING ; (MEMBER SB!C::STATE '(:REQUIRED :OPTIONAL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; (MEMBER SB!C::ARG SB-XC:LAMBDA-LIST-KEYWORDS) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; (DEFUN SB!INT:PARSE-LAMBDA-LIST-LIKE-THING (LIST &KEY SB!C::SILENT) ; (SB!INT:COLLECT ((SB!C::REQUIRED) (SB!C::OPTIONAL) (SB!C::KEYS) (SB!C::AUX)) ; (LET ((SB!C::RESTP NIL) ; (REST NIL) ; (SB!C::MOREP NIL) ; (SB!C::MORE-CONTEXT NIL) ; (SB!C::MORE-COUNT NIL) ; (SB!C::KEYP NIL) ; (SB!C::AUXP NIL) ; (SB!C::ALLOWP NIL) ; (SB!C::STATE :REQUIRED)) ; (DECLARE (TYPE # SB!C::STATE)) ; (DOLIST (SB!C::ARG LIST) ; (IF # ; # ; #)) ; (WHEN (EQ SB!C::STATE :REST) ; (SB!C:COMPILER-ERROR "&REST without rest variable")) ; (VALUES (SB!C::REQUIRED) (SB!C::OPTIONAL) SB!C::RESTP REST SB!C::KEYP ; (SB!C::KEYS) SB!C::ALLOWP SB!C::AUXP (SB!C::AUX) SB!C::MOREP ; SB!C::MORE-CONTEXT ...)))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (LIST #:.DEFAULTING-TEMP.) {B06BBD9}> ; LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 12 more uses of undefined type CODE-DELETION-NOTE ; ; compilation unit finished ; Undefined type: ; CODE-DELETION-NOTE ; caught 4 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/parse-lambda-list.lisp-obj-tmp written ; compilation finished in 0:00:00.113 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/host-alieneval.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!ALIEN") ; x-compiling (/SHOW0 "host-alieneval.lisp 15") ; x-compiling (DEFUN ALIGN-OFFSET ...) ; x-compiling (DEFUN GUESS-ALIGNMENT ...) ; x-compiling (DEFSTRUCT (ALIEN-TYPE-CLASS #) ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFUN ALIEN-TYPE-CLASS-OR-LOSE ...) ; x-compiling (DEFUN CREATE-ALIEN-TYPE-CLASS-IF-NECESSARY ...) ; x-compiling (DEFPARAMETER *METHOD-SLOT-ALIST* ...) ; x-compiling (DEFUN METHOD-SLOT ...) ; x-compiling (DEF!MACRO DEFINE-ALIEN-TYPE-CLASS ...) ; x-compiling (DEF!MACRO DEFINE-ALIEN-TYPE-METHOD ...) ; x-compiling (DEF!MACRO INVOKE-ALIEN-TYPE-METHOD ...) ; x-compiling (DEFUN AUXILIARY-TYPE-DEFINITIONS ...) ; x-compiling (DEF!MACRO WITH-AUXILIARY-ALIEN-TYPES ...) ; x-compiling (DEFUN PARSE-ALIEN-TYPE ...) ; x-compiling (DEFUN AUXILIARY-ALIEN-TYPE ...) ; x-compiling (DEFUN (SETF AUXILIARY-ALIEN-TYPE) ...) ; x-compiling (DEFUN VERIFY-LOCAL-AUXILIARIES-OKAY ...) ; x-compiling (DEFUN UNPARSE-ALIEN-TYPE ...) ; x-compiling (DEFUN %UNPARSE-ALIEN-TYPE ...) ; x-compiling (DEF!MACRO DEFINE-ALIEN-TYPE-TRANSLATOR ...) ; x-compiling (DEFUN %DEFINE-ALIEN-TYPE-TRANSLATOR ...) ; x-compiling (DEF!MACRO DEFINE-ALIEN-TYPE ...) ; x-compiling (DEFUN %DEF-AUXILIARY-ALIEN-TYPES ...) ; x-compiling (DEFUN %DEFINE-ALIEN-TYPE ...) ; x-compiling (CREATE-ALIEN-TYPE-CLASS-IF-NECESSARY (QUOTE ROOT) ...) ; x-compiling (DEF!STRUCT (ALIEN-TYPE # ...) ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFINE-ALIEN-TYPE-CLASS (SYSTEM-AREA-POINTER)) ; x-compiling (DEFINE-ALIEN-TYPE-TRANSLATOR SYSTEM-AREA-POINTER ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/host-alieneval.lisp ; in: DEFINE-ALIEN-TYPE-TRANSLATOR SYSTEM-AREA-POINTER ; (SB!ALIEN-INTERNALS:DEFINE-ALIEN-TYPE-TRANSLATOR SB!SYS:SYSTEM-AREA-POINTER ; NIL ; (SB!ALIEN::MAKE-ALIEN-SYSTEM-AREA-POINTER-TYPE :BITS SB!VM:N-WORD-BITS)) ; --> EVAL-WHEN ; ==> ; (DEFUN SB!ALIEN::ALIEN-SYSTEM-AREA-POINTER-TYPE-TRANSLATOR ; (#:WHOLE721 #:ENV722) ; (DECLARE (IGNORABLE #:ENV722)) ; (DECLARE (IGNORE #:ENV722)) ; (BLOCK SB!SYS:SYSTEM-AREA-POINTER ; (LET* () ; (LET (#) ; (UNLESS # #)) ; (LET* () ; (BLOCK SB!SYS:SYSTEM-AREA-POINTER #))))) ; ; caught STYLE-WARNING: ; redefining SB!ALIEN::ALIEN-SYSTEM-AREA-POINTER-TYPE-TRANSLATOR in DEFUN ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :UNPARSE) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :LISP-REP) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :ALIEN-REP) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :NATURALIZE-GEN) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :DEPORT-GEN) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :EXTRACT-GEN) ...) ; x-compiling (DEFINE-ALIEN-TYPE-CLASS (ALIEN-VALUE :INCLUDE ...)) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ALIEN-VALUE :LISP-REP) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ALIEN-VALUE :NATURALIZE-GEN) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ALIEN-VALUE :DEPORT-GEN) ...) ; x-compiling (DEF!STRUCT (HEAP-ALIEN-INFO #) ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFUN HEAP-ALIEN-INFO-SAP-FORM ...) ; x-compiling (DEFUN HEAP-ALIEN-INFO-SAP ...) ; x-compiling (DEFUN ALIEN-TYPE-= ...) ; x-compiling (DEFUN ALIEN-SUBTYPE-P ...) ; x-compiling (DEFUN COMPUTE-NATURALIZE-LAMBDA ...) ; x-compiling (DEFUN COMPUTE-DEPORT-LAMBDA ...) ; x-compiling (DEFUN COMPUTE-DEPORT-ALLOC-LAMBDA ...) ; x-compiling (DEFUN COMPUTE-EXTRACT-LAMBDA ...) ; x-compiling (DEF!MACRO MAYBE-WITH-PINNED-OBJECTS ...) ; x-compiling (DEFUN COMPUTE-DEPOSIT-LAMBDA ...) ; x-compiling (DEFUN COMPUTE-LISP-REP-TYPE ...) ; x-compiling (DEFUN COMPUTE-ALIEN-REP-TYPE ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :UNPARSE) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :TYPE=) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :SUBTYPEP) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :LISP-REP) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :ALIEN-REP) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :NATURALIZE-GEN) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :DEPORT-GEN) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :DEPORT-ALLOC-GEN) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :DEPORT-PIN-P) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :EXTRACT-GEN) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :DEPOSIT-GEN) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :ARG-TN) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ROOT :RESULT-TN) ...) ; x-compiling (DEFINE-ALIEN-TYPE-CLASS (INTEGER) ...) ; x-compiling (DEFINE-ALIEN-TYPE-TRANSLATOR SIGNED ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/host-alieneval.lisp ; in: DEFINE-ALIEN-TYPE-TRANSLATOR SIGNED ; (SB!ALIEN-INTERNALS:DEFINE-ALIEN-TYPE-TRANSLATOR SB!ALIEN:SIGNED ; (&OPTIONAL (SB!ALIEN::BITS SB!VM:N-WORD-BITS)) ; (SB!ALIEN::MAKE-ALIEN-INTEGER-TYPE :BITS SB!ALIEN::BITS)) ; --> EVAL-WHEN ; ==> ; (DEFUN SB!ALIEN::ALIEN-SIGNED-TYPE-TRANSLATOR (#:WHOLE1266 #:ENV1267) ; (DECLARE (IGNORABLE #:ENV1267)) ; (DECLARE (IGNORE #:ENV1267)) ; (BLOCK SB!ALIEN:SIGNED ; (LET* ((#:SUPPLIEDP-52336 #)) ; (LET (#) ; (UNLESS # #)) ; (LET* (#) ; (BLOCK SB!ALIEN:SIGNED #))))) ; ; caught STYLE-WARNING: ; redefining SB!ALIEN::ALIEN-SIGNED-TYPE-TRANSLATOR in DEFUN ; x-compiling (DEFINE-ALIEN-TYPE-TRANSLATOR INTEGER ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/host-alieneval.lisp ; in: DEFINE-ALIEN-TYPE-TRANSLATOR INTEGER ; (SB!ALIEN-INTERNALS:DEFINE-ALIEN-TYPE-TRANSLATOR INTEGER ; (&OPTIONAL (SB!ALIEN::BITS SB!VM:N-WORD-BITS)) ; (SB!ALIEN::MAKE-ALIEN-INTEGER-TYPE :BITS SB!ALIEN::BITS)) ; --> EVAL-WHEN ; ==> ; (DEFUN SB!ALIEN::ALIEN-INTEGER-TYPE-TRANSLATOR (#:WHOLE1271 #:ENV1272) ; (DECLARE (IGNORABLE #:ENV1272)) ; (DECLARE (IGNORE #:ENV1272)) ; (BLOCK INTEGER ; (LET* ((#:SUPPLIEDP-52339 #)) ; (LET (#) ; (UNLESS # #)) ; (LET* (#) ; (BLOCK INTEGER #))))) ; ; caught STYLE-WARNING: ; redefining SB!ALIEN::ALIEN-INTEGER-TYPE-TRANSLATOR in DEFUN ; x-compiling (DEFINE-ALIEN-TYPE-TRANSLATOR UNSIGNED ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/host-alieneval.lisp ; in: DEFINE-ALIEN-TYPE-TRANSLATOR UNSIGNED ; (SB!ALIEN-INTERNALS:DEFINE-ALIEN-TYPE-TRANSLATOR SB!ALIEN:UNSIGNED ; (&OPTIONAL (SB!ALIEN::BITS SB!VM:N-WORD-BITS)) ; (SB!ALIEN::MAKE-ALIEN-INTEGER-TYPE :BITS SB!ALIEN::BITS :SIGNED NIL)) ; --> EVAL-WHEN ; ==> ; (DEFUN SB!ALIEN::ALIEN-UNSIGNED-TYPE-TRANSLATOR (#:WHOLE1276 #:ENV1277) ; (DECLARE (IGNORABLE #:ENV1277)) ; (DECLARE (IGNORE #:ENV1277)) ; (BLOCK SB!ALIEN:UNSIGNED ; (LET* ((#:SUPPLIEDP-52342 #)) ; (LET (#) ; (UNLESS # #)) ; (LET* (#) ; (BLOCK SB!ALIEN:UNSIGNED #))))) ; ; caught STYLE-WARNING: ; redefining SB!ALIEN::ALIEN-UNSIGNED-TYPE-TRANSLATOR in DEFUN ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :UNPARSE) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :TYPE=) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :LISP-REP) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :ALIEN-REP) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :DEPORT-GEN) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :EXTRACT-GEN) ...) ; x-compiling (DEFINE-ALIEN-TYPE-CLASS (BOOLEAN :INCLUDE ...)) ; x-compiling (DEFINE-ALIEN-TYPE-TRANSLATOR BOOLEAN ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/host-alieneval.lisp ; in: DEFINE-ALIEN-TYPE-TRANSLATOR BOOLEAN ; (SB!ALIEN-INTERNALS:DEFINE-ALIEN-TYPE-TRANSLATOR BOOLEAN ; (&OPTIONAL (SB!ALIEN::BITS SB!VM:N-WORD-BITS)) ; (SB!ALIEN::MAKE-ALIEN-BOOLEAN-TYPE :BITS SB!ALIEN::BITS :SIGNED NIL)) ; --> EVAL-WHEN ; ==> ; (DEFUN SB!ALIEN::ALIEN-BOOLEAN-TYPE-TRANSLATOR (#:WHOLE1432 #:ENV1433) ; (DECLARE (IGNORABLE #:ENV1433)) ; (DECLARE (IGNORE #:ENV1433)) ; (BLOCK BOOLEAN ; (LET* ((#:SUPPLIEDP-52478 #)) ; (LET (#) ; (UNLESS # #)) ; (LET* (#) ; (BLOCK BOOLEAN #))))) ; ; caught STYLE-WARNING: ; redefining SB!ALIEN::ALIEN-BOOLEAN-TYPE-TRANSLATOR in DEFUN ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (BOOLEAN :UNPARSE) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (BOOLEAN :LISP-REP) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (BOOLEAN :NATURALIZE-GEN) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (BOOLEAN :DEPORT-GEN) ...) ; x-compiling (DEFINE-ALIEN-TYPE-CLASS (ENUM :INCLUDE ...) ...) ; x-compiling (DEFINE-ALIEN-TYPE-TRANSLATOR ENUM ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/host-alieneval.lisp ; in: DEFINE-ALIEN-TYPE-TRANSLATOR ENUM ; (SB!ALIEN-INTERNALS:DEFINE-ALIEN-TYPE-TRANSLATOR SB!ALIEN:ENUM ; (&WHOLE TYPE SB!ALIEN::NAME &REST SB!ALIEN::MAPPINGS &ENVIRONMENT ; SB!ALIEN::ENV) ; (COND ; (SB!ALIEN::MAPPINGS ; (LET (#) ; (WHEN SB!ALIEN::NAME #) ; SB!ALIEN::RESULT)) ; (SB!ALIEN::NAME ; (MULTIPLE-VALUE-BIND (SB!ALIEN::RESULT SB!ALIEN::FOUND) ; (SB!ALIEN::AUXILIARY-ALIEN-TYPE :ENUM SB!ALIEN::NAME SB!ALIEN::ENV) ; (UNLESS SB!ALIEN::FOUND #) ; SB!ALIEN::RESULT)) ; (T (ERROR "empty enum type: ~S" TYPE)))) ; --> EVAL-WHEN ; ==> ; (DEFUN SB!ALIEN::ALIEN-ENUM-TYPE-TRANSLATOR (#:WHOLE1613 #:ENV1614) ; (DECLARE (IGNORABLE #:ENV1614)) ; (BLOCK SB!ALIEN:ENUM ; (LET* () ; (LET (#) ; (UNLESS # #)) ; (LET* (# # # #) ; (BLOCK SB!ALIEN:ENUM #))))) ; ; caught STYLE-WARNING: ; undefined function: (SETF ALIEN-TYPE-FROM) ; ; caught STYLE-WARNING: ; undefined function: (SETF ALIEN-TYPE-KIND) ; ; caught STYLE-WARNING: ; undefined function: (SETF ALIEN-TYPE-OFFSET) ; ; caught STYLE-WARNING: ; undefined function: (SETF ALIEN-TYPE-SIGNED) ; ; caught STYLE-WARNING: ; undefined function: (SETF ALIEN-TYPE-TO) ; ; caught STYLE-WARNING: ; undefined function: ALIEN-TYPE-FROM ; ; caught STYLE-WARNING: ; undefined function: ALIEN-TYPE-KIND ; ; caught STYLE-WARNING: ; undefined function: ALIEN-TYPE-OFFSET ; ; caught STYLE-WARNING: ; undefined function: ALIEN-TYPE-SIGNED ; ; caught STYLE-WARNING: ; undefined function: ALIEN-TYPE-TO ; ; caught STYLE-WARNING: ; redefining SB!ALIEN::ALIEN-ENUM-TYPE-TRANSLATOR in DEFUN ; x-compiling (DEFUN PARSE-ENUM ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ENUM :UNPARSE) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ENUM :TYPE=) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ENUM :LISP-REP) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ENUM :NATURALIZE-GEN) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ENUM :DEPORT-GEN) ...) ; x-compiling (DEFINE-ALIEN-TYPE-CLASS (FLOAT) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (FLOAT :UNPARSE) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (FLOAT :LISP-REP) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (FLOAT :ALIEN-REP) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (FLOAT :NATURALIZE-GEN) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (FLOAT :DEPORT-GEN) ...) ; x-compiling (DEFINE-ALIEN-TYPE-CLASS (SINGLE-FLOAT :INCLUDE ...)) ; x-compiling (DEFINE-ALIEN-TYPE-TRANSLATOR SINGLE-FLOAT ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/host-alieneval.lisp ; in: DEFINE-ALIEN-TYPE-TRANSLATOR SINGLE-FLOAT ; (SB!ALIEN-INTERNALS:DEFINE-ALIEN-TYPE-TRANSLATOR SINGLE-FLOAT ; NIL ; (SB!ALIEN::MAKE-ALIEN-SINGLE-FLOAT-TYPE :TYPE 'SINGLE-FLOAT)) ; --> EVAL-WHEN ; ==> ; (DEFUN SB!ALIEN::ALIEN-SINGLE-FLOAT-TYPE-TRANSLATOR (#:WHOLE1946 #:ENV1947) ; (DECLARE (IGNORABLE #:ENV1947)) ; (DECLARE (IGNORE #:ENV1947)) ; (BLOCK SINGLE-FLOAT ; (LET* () ; (LET (#) ; (UNLESS # #)) ; (LET* () ; (BLOCK SINGLE-FLOAT #))))) ; ; caught STYLE-WARNING: ; redefining SB!ALIEN::ALIEN-SINGLE-FLOAT-TYPE-TRANSLATOR in DEFUN ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (SINGLE-FLOAT :EXTRACT-GEN) ...) ; x-compiling (DEFINE-ALIEN-TYPE-CLASS (DOUBLE-FLOAT :INCLUDE ...)) ; x-compiling (DEFINE-ALIEN-TYPE-TRANSLATOR DOUBLE-FLOAT ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/host-alieneval.lisp ; in: DEFINE-ALIEN-TYPE-TRANSLATOR DOUBLE-FLOAT ; (SB!ALIEN-INTERNALS:DEFINE-ALIEN-TYPE-TRANSLATOR DOUBLE-FLOAT ; NIL ; (SB!ALIEN::MAKE-ALIEN-DOUBLE-FLOAT-TYPE :TYPE 'DOUBLE-FLOAT)) ; --> EVAL-WHEN ; ==> ; (DEFUN SB!ALIEN::ALIEN-DOUBLE-FLOAT-TYPE-TRANSLATOR (#:WHOLE2033 #:ENV2034) ; (DECLARE (IGNORABLE #:ENV2034)) ; (DECLARE (IGNORE #:ENV2034)) ; (BLOCK DOUBLE-FLOAT ; (LET* () ; (LET (#) ; (UNLESS # #)) ; (LET* () ; (BLOCK DOUBLE-FLOAT #))))) ; ; caught STYLE-WARNING: ; redefining SB!ALIEN::ALIEN-DOUBLE-FLOAT-TYPE-TRANSLATOR in DEFUN ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (DOUBLE-FLOAT :EXTRACT-GEN) ...) ; x-compiling (DEFINE-ALIEN-TYPE-CLASS (POINTER :INCLUDE ...) ...) ; x-compiling (DEFINE-ALIEN-TYPE-TRANSLATOR * ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/host-alieneval.lisp ; in: DEFINE-ALIEN-TYPE-TRANSLATOR * ; (SB!ALIEN-INTERNALS:DEFINE-ALIEN-TYPE-TRANSLATOR * ; (SB!ALIEN::TO &ENVIRONMENT SB!ALIEN::ENV) ; (SB!ALIEN-INTERNALS:MAKE-ALIEN-POINTER-TYPE :TO ; (IF (EQ SB!ALIEN::TO T) ; NIL ; (SB!ALIEN-INTERNALS:PARSE-ALIEN-TYPE ; SB!ALIEN::TO ; SB!ALIEN::ENV)))) ; --> EVAL-WHEN ; ==> ; (DEFUN SB!ALIEN::ALIEN-*-TYPE-TRANSLATOR (#:WHOLE2122 #:ENV2123) ; (DECLARE (IGNORABLE #:ENV2123)) ; (BLOCK * ; (LET* () ; (LET (#) ; (UNLESS # #)) ; (LET* (# #) ; (BLOCK * #))))) ; ; caught STYLE-WARNING: ; redefining SB!ALIEN::ALIEN-*-TYPE-TRANSLATOR in DEFUN ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (POINTER :UNPARSE) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (POINTER :TYPE=) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (POINTER :SUBTYPEP) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (POINTER :DEPORT-GEN) ...) ; x-compiling (DEFINE-ALIEN-TYPE-CLASS (MEM-BLOCK :INCLUDE ...)) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (MEM-BLOCK :EXTRACT-GEN) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (MEM-BLOCK :DEPOSIT-GEN) ...) ; x-compiling (DEFINE-ALIEN-TYPE-CLASS (ARRAY :INCLUDE ...) ...) ; x-compiling (DEFINE-ALIEN-TYPE-TRANSLATOR ARRAY ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/host-alieneval.lisp ; in: DEFINE-ALIEN-TYPE-TRANSLATOR ARRAY ; (SB!ALIEN-INTERNALS:DEFINE-ALIEN-TYPE-TRANSLATOR ARRAY ; (SB!ALIEN::ELE-TYPE &REST SB!ALIEN::DIMS &ENVIRONMENT SB!ALIEN::ENV) ; (WHEN SB!ALIEN::DIMS ; (UNLESS (TYPEP (FIRST SB!ALIEN::DIMS) '(OR SB!INT:INDEX NULL)) ; (ERROR "The first dimension is not a non-negative fixnum or NIL: ~S" ; (FIRST SB!ALIEN::DIMS))) ; (LET ((SB!ALIEN::LOSER #)) ; (WHEN SB!ALIEN::LOSER ; (ERROR "A dimension is not a non-negative fixnum: ~S" ; SB!ALIEN::LOSER)))) ; (LET ((SB!ALIEN::PARSED-ELE-TYPE ; (SB!ALIEN-INTERNALS:PARSE-ALIEN-TYPE SB!ALIEN::ELE-TYPE ; SB!ALIEN::ENV))) ; (SB!ALIEN::MAKE-ALIEN-ARRAY-TYPE :ELEMENT-TYPE SB!ALIEN::PARSED-ELE-TYPE ; :DIMENSIONS SB!ALIEN::DIMS :ALIGNMENT ; (SB!ALIEN-INTERNALS:ALIEN-TYPE-ALIGNMENT ; SB!ALIEN::PARSED-ELE-TYPE) ; :BITS ; (IF (AND # #) ; (* # #))))) ; --> EVAL-WHEN ; ==> ; (DEFUN SB!ALIEN::ALIEN-ARRAY-TYPE-TRANSLATOR (#:WHOLE2350 #:ENV2351) ; (DECLARE (IGNORABLE #:ENV2351)) ; (BLOCK ARRAY ; (LET* () ; (LET (#) ; (UNLESS # #)) ; (LET* (# # #) ; (BLOCK ARRAY # #))))) ; ; caught STYLE-WARNING: ; redefining SB!ALIEN::ALIEN-ARRAY-TYPE-TRANSLATOR in DEFUN ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ARRAY :UNPARSE) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ARRAY :TYPE=) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (ARRAY :SUBTYPEP) ...) ; x-compiling (DEF!STRUCT (ALIEN-RECORD-FIELD #) ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFINE-ALIEN-TYPE-CLASS (RECORD :INCLUDE ...) ...) ; x-compiling (DEFINE-ALIEN-TYPE-TRANSLATOR STRUCT ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/host-alieneval.lisp ; in: DEFINE-ALIEN-TYPE-TRANSLATOR STRUCT ; (SB!ALIEN-INTERNALS:DEFINE-ALIEN-TYPE-TRANSLATOR SB!ALIEN:STRUCT ; (SB!ALIEN::NAME &REST SB!ALIEN::FIELDS &ENVIRONMENT SB!ALIEN::ENV) ; (SB!ALIEN::PARSE-ALIEN-RECORD-TYPE :STRUCT SB!ALIEN::NAME SB!ALIEN::FIELDS ; SB!ALIEN::ENV)) ; --> EVAL-WHEN ; ==> ; (DEFUN SB!ALIEN::ALIEN-STRUCT-TYPE-TRANSLATOR (#:WHOLE2584 #:ENV2585) ; (DECLARE (IGNORABLE #:ENV2585)) ; (BLOCK SB!ALIEN:STRUCT ; (LET* () ; (LET (#) ; (UNLESS # #)) ; (LET* (# # #) ; (BLOCK SB!ALIEN:STRUCT #))))) ; ; caught STYLE-WARNING: ; redefining SB!ALIEN::ALIEN-STRUCT-TYPE-TRANSLATOR in DEFUN ; x-compiling (DEFINE-ALIEN-TYPE-TRANSLATOR UNION ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/host-alieneval.lisp ; in: DEFINE-ALIEN-TYPE-TRANSLATOR UNION ; (SB!ALIEN-INTERNALS:DEFINE-ALIEN-TYPE-TRANSLATOR UNION ; (SB!ALIEN::NAME &REST SB!ALIEN::FIELDS &ENVIRONMENT SB!ALIEN::ENV) ; (SB!ALIEN::PARSE-ALIEN-RECORD-TYPE :UNION SB!ALIEN::NAME SB!ALIEN::FIELDS ; SB!ALIEN::ENV)) ; --> EVAL-WHEN ; ==> ; (DEFUN SB!ALIEN::ALIEN-UNION-TYPE-TRANSLATOR (#:WHOLE2589 #:ENV2590) ; (DECLARE (IGNORABLE #:ENV2590)) ; (BLOCK UNION ; (LET* () ; (LET (#) ; (UNLESS # #)) ; (LET* (# # #) ; (BLOCK UNION #))))) ; ; caught STYLE-WARNING: ; redefining SB!ALIEN::ALIEN-UNION-TYPE-TRANSLATOR in DEFUN ; x-compiling (DEFUN PARSE-ALIEN-RECORD-TYPE ...) ; x-compiling (DEFUN PARSE-ALIEN-RECORD-FIELDS ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (RECORD :UNPARSE) ...) ; x-compiling (DEFUN UNPARSE-ALIEN-RECORD-KIND ...) ; x-compiling (DEFUN UNPARSE-ALIEN-RECORD-FIELD ...) ; x-compiling (DEFUN RECORD-FIELDS-MATCH-P ...) ; x-compiling (DEFVAR *ALIEN-TYPE-MATCHES* ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (RECORD :TYPE=) ...) ; x-compiling (DEF!TYPE CALLING-CONVENTION ...) ; x-compiling (DEFINE-ALIEN-TYPE-CLASS (FUN :INCLUDE ...) ...) ; x-compiling (DEFINE-ALIEN-TYPE-TRANSLATOR FUNCTION ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/host-alieneval.lisp ; in: DEFINE-ALIEN-TYPE-TRANSLATOR FUNCTION ; (SB!ALIEN-INTERNALS:DEFINE-ALIEN-TYPE-TRANSLATOR FUNCTION ; (SB!ALIEN::RESULT-TYPE &REST SB!ALIEN::ARG-TYPES &ENVIRONMENT ; SB!ALIEN::ENV) ; (MULTIPLE-VALUE-BIND ; (SB!ALIEN::BARE-RESULT-TYPE SB!ALIEN::CALLING-CONVENTION) ; (TYPECASE SB!ALIEN::RESULT-TYPE ; ((CONS SB!ALIEN::CALLING-CONVENTION *) (VALUES # #)) ; (T SB!ALIEN::RESULT-TYPE)) ; (SB!ALIEN-INTERNALS:MAKE-ALIEN-FUN-TYPE :CONVENTION ; SB!ALIEN::CALLING-CONVENTION ; :RESULT-TYPE ; (LET (#) ; (SB!ALIEN-INTERNALS:PARSE-ALIEN-TYPE ; SB!ALIEN::BARE-RESULT-TYPE ; SB!ALIEN::ENV)) ; :ARG-TYPES ; (MAPCAR (LAMBDA # #) ; SB!ALIEN::ARG-TYPES)))) ; --> EVAL-WHEN ; ==> ; (DEFUN SB!ALIEN::ALIEN-FUNCTION-TYPE-TRANSLATOR (#:WHOLE2869 #:ENV2870) ; (DECLARE (IGNORABLE #:ENV2870)) ; (BLOCK FUNCTION ; (LET* () ; (LET (#) ; (UNLESS # #)) ; (LET* (# # #) ; (BLOCK FUNCTION #))))) ; ; caught STYLE-WARNING: ; redefining SB!ALIEN::ALIEN-FUNCTION-TYPE-TRANSLATOR in DEFUN ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (FUN :UNPARSE) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (FUN :TYPE=) ...) ; x-compiling (DEFINE-ALIEN-TYPE-CLASS (VALUES) ...) ; x-compiling (DEFINE-ALIEN-TYPE-TRANSLATOR VALUES ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/host-alieneval.lisp ; in: DEFINE-ALIEN-TYPE-TRANSLATOR VALUES ; (SB!ALIEN-INTERNALS:DEFINE-ALIEN-TYPE-TRANSLATOR VALUES ; (&REST VALUES &ENVIRONMENT SB!ALIEN::ENV) ; (UNLESS SB!ALIEN-INTERNALS:*VALUES-TYPE-OKAY* ; (ERROR "cannot use values types here")) ; (LET ((SB!ALIEN-INTERNALS:*VALUES-TYPE-OKAY* NIL)) ; (SB!ALIEN::MAKE-ALIEN-VALUES-TYPE :VALUES (MAPCAR (LAMBDA # #) VALUES)))) ; --> EVAL-WHEN ; ==> ; (DEFUN SB!ALIEN::ALIEN-VALUES-TYPE-TRANSLATOR (#:WHOLE2997 #:ENV2998) ; (DECLARE (IGNORABLE #:ENV2998)) ; (BLOCK VALUES ; (LET* () ; (LET* (# #) ; (BLOCK VALUES # #))))) ; ; caught STYLE-WARNING: ; redefining SB!ALIEN::ALIEN-VALUES-TYPE-TRANSLATOR in DEFUN ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (VALUES :UNPARSE) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (VALUES :TYPE=) ...) ; x-compiling (DEF!STRUCT (LOCAL-ALIEN-INFO # ...) ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFMACRO-MUNDANELY ADDR ...) ; x-compiling (/SHOW0 "host-alieneval.lisp end of file") ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/host-alieneval.lisp ; in: DEFINE-ALIEN-TYPE-CLASS (SYSTEM-AREA-POINTER) ; (SB!ALIEN-INTERNALS:DEFINE-ALIEN-TYPE-CLASS (SB!SYS:SYSTEM-AREA-POINTER)) ; --> PROGN SB!INT:DEF!STRUCT PROGN DEFSTRUCT PROGN ; --> SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: ; DEF!STRUCT (ALIEN-TYPE (:MAKE-LOAD-FORM-FUN SB!KERNEL:JUST-DUMP-IT-NORMALLY) ; (:CONSTRUCTOR MAKE-ALIEN-TYPE ; (&KEY CLASS BITS ALIGNMENT &AUX ...))) ; (SB!INT:DEF!STRUCT ; (SB!ALIEN-INTERNALS:ALIEN-TYPE ; (:MAKE-LOAD-FORM-FUN SB!KERNEL:JUST-DUMP-IT-NORMALLY) ; (:CONSTRUCTOR SB!ALIEN::MAKE-ALIEN-TYPE ; (&KEY CLASS SB!ALIEN::BITS SB!ALIEN::ALIGNMENT &AUX ; (SB!ALIEN::ALIGNMENT #)))) ; (CLASS 'SB!ALIEN::ROOT :TYPE SYMBOL) ; (SB!ALIEN::BITS NIL :TYPE (OR NULL UNSIGNED-BYTE)) ; (SB!ALIEN::ALIGNMENT NIL :TYPE (OR NULL UNSIGNED-BYTE))) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: DEFSTRUCT ALIEN-TYPE-CLASS ; (DEFSTRUCT (SB!ALIEN::ALIEN-TYPE-CLASS (:COPIER NIL)) ; (SB!ALIEN::NAME NIL :TYPE SYMBOL) ; (SB!ALIEN::DEFSTRUCT-NAME NIL :TYPE SYMBOL) ; (SB!ALIEN::INCLUDE NIL :TYPE (OR NULL SB!ALIEN::ALIEN-TYPE-CLASS)) ; (SB!ALIEN::UNPARSE NIL :TYPE (OR NULL FUNCTION)) ; (SB!ALIEN::TYPE= NIL :TYPE (OR NULL FUNCTION)) ; (SB!ALIEN::LISP-REP NIL :TYPE (OR NULL FUNCTION)) ; (SB!ALIEN::ALIEN-REP NIL :TYPE (OR NULL FUNCTION)) ; (SB!ALIEN::EXTRACT-GEN NIL :TYPE (OR NULL FUNCTION)) ; (SB!ALIEN::DEPOSIT-GEN NIL :TYPE (OR NULL FUNCTION)) ; (SB!ALIEN::NATURALIZE-GEN NIL :TYPE (OR NULL FUNCTION)) ; ...) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; ; caught STYLE-WARNING: ; 16 more uses of undefined function SB!KERNEL::%TARGET-DEFSTRUCT ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/host-alieneval.lisp ; in: DEFINE-ALIEN-TYPE-TRANSLATOR ENUM ; (SETF (SB!ALIEN::ALIEN-TYPE-FROM SB!ALIEN::OLD) ; (SB!ALIEN::ALIEN-TYPE-FROM SB!ALIEN::RESULT) ; (SB!ALIEN::ALIEN-TYPE-TO SB!ALIEN::OLD) ; (SB!ALIEN::ALIEN-TYPE-TO SB!ALIEN::RESULT) ; (SB!ALIEN::ALIEN-TYPE-KIND SB!ALIEN::OLD) ; (SB!ALIEN::ALIEN-TYPE-KIND SB!ALIEN::RESULT) ; (SB!ALIEN::ALIEN-TYPE-OFFSET SB!ALIEN::OLD) ; (SB!ALIEN::ALIEN-TYPE-OFFSET SB!ALIEN::RESULT) ; (SB!ALIEN::ALIEN-TYPE-SIGNED SB!ALIEN::OLD) ; (SB!ALIEN::ALIEN-TYPE-SIGNED SB!ALIEN::RESULT)) ; --> PROGN SETF LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!ALIEN::ALIEN-TYPE-FROM) #:NEW1617 #:OLD1618) ; ; caught STYLE-WARNING: ; undefined function: (SETF ALIEN-TYPE-FROM) ; ==> ; (SB!C::%FUNCALL #'(SETF SB!ALIEN::ALIEN-TYPE-KIND) #:NEW1621 #:OLD1622) ; ; caught STYLE-WARNING: ; undefined function: (SETF ALIEN-TYPE-KIND) ; ==> ; (SB!C::%FUNCALL #'(SETF SB!ALIEN::ALIEN-TYPE-OFFSET) #:NEW1623 #:OLD1624) ; ; caught STYLE-WARNING: ; undefined function: (SETF ALIEN-TYPE-OFFSET) ; ==> ; (SB!C::%FUNCALL #'(SETF SB!ALIEN::ALIEN-TYPE-SIGNED) #:NEW1625 #:OLD1626) ; ; caught STYLE-WARNING: ; undefined function: (SETF ALIEN-TYPE-SIGNED) ; ==> ; (SB!C::%FUNCALL #'(SETF SB!ALIEN::ALIEN-TYPE-TO) #:NEW1619 #:OLD1620) ; ; caught STYLE-WARNING: ; undefined function: (SETF ALIEN-TYPE-TO) ; (SB!ALIEN::ALIEN-TYPE-FROM SB!ALIEN::RESULT) ; ; caught STYLE-WARNING: ; undefined function: ALIEN-TYPE-FROM ; (SB!ALIEN::ALIEN-TYPE-KIND SB!ALIEN::RESULT) ; ; caught STYLE-WARNING: ; undefined function: ALIEN-TYPE-KIND ; (SB!ALIEN::ALIEN-TYPE-OFFSET SB!ALIEN::RESULT) ; ; caught STYLE-WARNING: ; undefined function: ALIEN-TYPE-OFFSET ; (SB!ALIEN::ALIEN-TYPE-SIGNED SB!ALIEN::RESULT) ; ; caught STYLE-WARNING: ; undefined function: ALIEN-TYPE-SIGNED ; (SB!ALIEN::ALIEN-TYPE-TO SB!ALIEN::RESULT) ; ; caught STYLE-WARNING: ; undefined function: ALIEN-TYPE-TO ; in: DEFUN METHOD-SLOT ; (ASSOC METHOD SB!ALIEN::*METHOD-SLOT-ALIST*) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFSTRUCT ALIEN-TYPE-CLASS ; (DEFSTRUCT (SB!ALIEN::ALIEN-TYPE-CLASS (:COPIER NIL)) ; (SB!ALIEN::NAME NIL :TYPE SYMBOL) ; (SB!ALIEN::DEFSTRUCT-NAME NIL :TYPE SYMBOL) ; (SB!ALIEN::INCLUDE NIL :TYPE (OR NULL SB!ALIEN::ALIEN-TYPE-CLASS)) ; (SB!ALIEN::UNPARSE NIL :TYPE (OR NULL FUNCTION)) ; (SB!ALIEN::TYPE= NIL :TYPE (OR NULL FUNCTION)) ; (SB!ALIEN::LISP-REP NIL :TYPE (OR NULL FUNCTION)) ; (SB!ALIEN::ALIEN-REP NIL :TYPE (OR NULL FUNCTION)) ; (SB!ALIEN::EXTRACT-GEN NIL :TYPE (OR NULL FUNCTION)) ; (SB!ALIEN::DEPOSIT-GEN NIL :TYPE (OR NULL FUNCTION)) ; (SB!ALIEN::NATURALIZE-GEN NIL :TYPE (OR NULL FUNCTION)) ; ...) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:.DEFAULTING-TEMP. #:.DEFAULTING-TEMP. #:.DEFAULTING-TEMP. ; #:.DEFAULTING-TEMP. #:.DEFAULTING-TEMP. #:.DEFAULTING-TEMP. ; #:.DEFAULTING-TEMP. #:.DEFAULTING-TEMP. #:.DEFAULTING-TEMP. ; #:.DEFAULTING-TEMP. #:.DEFAULTING-TEMP. #:.DEFAULTING-TEMP. ...) ; {D649E11}> ; NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL ...)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN ALIGN-OFFSET ; (REM SB!ALIEN::OFFSET SB!ALIEN::ALIGNMENT) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 123 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/host-alieneval.lisp ; in: DEFINE-ALIEN-TYPE-METHOD (ENUM :UNPARSE) ; (SB!INT:QUASIQUOTE ; (SB!ALIEN:ENUM ; #S(SB!IMPL::COMMA :EXPR (SB!ALIEN::ALIEN-ENUM-TYPE-NAME TYPE) :KIND 0) ; #S(SB!IMPL::COMMA ; :EXPR (LET (#) ; (MAPCAR # #)) ; :KIND 2))) ; --> SB!IMPL::|List*| LET MAPCAR LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN PARSE-ENUM ; (MAPCAR (LAMBDA (SB!ALIEN::X) (CONS (CDR SB!ALIEN::X) (CAR SB!ALIEN::X))) ; SB!ALIEN::FROM-ALIST) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEF!MACRO DEFINE-ALIEN-TYPE-CLASS ; (SB!INT:QUASIQUOTE ; (PROGN ; (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) ; (SB!ALIEN::CREATE-ALIEN-TYPE-CLASS-IF-NECESSARY ; '#S(SB!IMPL::COMMA :EXPR SB!ALIEN::NAME :KIND 0) ; '#S(SB!IMPL::COMMA :EXPR SB!ALIEN::DEFSTRUCT-NAME :KIND 0) ; '#S(SB!IMPL::COMMA :EXPR # :KIND 0))) ; (SB!INT:DEF!STRUCT ; (#S(SB!IMPL::COMMA :EXPR SB!ALIEN::DEFSTRUCT-NAME :KIND 0) ; (:INCLUDE # # #) (:CONSTRUCTOR # #)) ; #S(SB!IMPL::COMMA :EXPR SB!ALIEN::SLOTS :KIND 2)))) ; --> SB!IMPL::|List| SB!IMPL::|List*| SB!IMPL::|List| SB!IMPL::|List| ; --> SB!IMPL::|List*| SB!IMPL::|Append| MAPCAR LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; ; caught STYLE-WARNING: ; 9 more uses of undefined type COMPILER-NOTE ; ; compilation unit finished ; Undefined types: ; CODE-DELETION-NOTE COMPILER-NOTE ; Undefined functions: ; SB!KERNEL::%TARGET-DEFSTRUCT (SETF ALIEN-TYPE-FROM) (SETF ALIEN-TYPE-KIND) (SETF ALIEN-TYPE-OFFSET) (SETF ALIEN-TYPE-SIGNED) (SETF ALIEN-TYPE-TO) ALIEN-TYPE-FROM ALIEN-TYPE-KIND ALIEN-TYPE-OFFSET ALIEN-TYPE-SIGNED ALIEN-TYPE-TO ; caught 46 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/host-alieneval.lisp-obj-tmp written ; compilation finished in 0:00:02.105 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/host-c-call.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!ALIEN") ; x-compiling (/SHOW0 "host-c-call.lisp 12") ; x-compiling (DEFINE-ALIEN-TYPE-CLASS (C-STRING :INCLUDE ...) ...) ; x-compiling (DEFINE-ALIEN-TYPE-TRANSLATOR C-STRING ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/host-c-call.lisp ; in: DEFINE-ALIEN-TYPE-TRANSLATOR C-STRING ; (SB!ALIEN-INTERNALS:DEFINE-ALIEN-TYPE-TRANSLATOR SB!ALIEN:C-STRING ; (&KEY (SB!ALIEN::EXTERNAL-FORMAT :DEFAULT) ; (SB!ALIEN::ELEMENT-TYPE 'CHARACTER) (SB!ALIEN::NOT-NULL NIL)) ; (SB!ALIEN::MAKE-ALIEN-C-STRING-TYPE :TO ; (SB!ALIEN-INTERNALS:PARSE-ALIEN-TYPE ; 'CHAR (SB!KERNEL:MAKE-NULL-LEXENV)) ; :ELEMENT-TYPE SB!ALIEN::ELEMENT-TYPE ; :EXTERNAL-FORMAT ; SB!ALIEN::EXTERNAL-FORMAT :NOT-NULL ; SB!ALIEN::NOT-NULL)) ; --> EVAL-WHEN ; ==> ; (DEFUN SB!ALIEN::ALIEN-C-STRING-TYPE-TRANSLATOR (#:WHOLE161 #:ENV162) ; (DECLARE (IGNORABLE #:ENV162)) ; (DECLARE (IGNORE #:ENV162)) ; (BLOCK SB!ALIEN:C-STRING ; (LET* ((#:KEYWORDS-54027 #) ; (#:SUPPLIEDP-54028 #) ; (#:SUPPLIEDP-54029 #) ; (#:SUPPLIEDP-54030 #)) ; (DECLARE (IGNORABLE #:KEYWORDS-54027)) ; (MULTIPLE-VALUE-BIND (#:PROBLEM163 #:INFO164) ; (SB!KERNEL::VERIFY-KEYWORDS #:KEYWORDS-54027 '# 'NIL NIL) ; (WHEN #:PROBLEM163 #)) ; (LET* (# # #) ; (BLOCK SB!ALIEN:C-STRING #))))) ; ; caught STYLE-WARNING: ; redefining SB!ALIEN::ALIEN-C-STRING-TYPE-TRANSLATOR in DEFUN ; x-compiling (DEFUN C-STRING-EXTERNAL-FORMAT ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (C-STRING :UNPARSE) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (C-STRING :LISP-REP) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (C-STRING :DEPORT-PIN-P) ...) ; x-compiling (DEFUN C-STRING-NEEDS-CONVERSION-P ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN NULL-ERROR ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (C-STRING :NATURALIZE-GEN) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (C-STRING :DEPORT-GEN) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (C-STRING :DEPORT-ALLOC-GEN) ...) ; x-compiling (/SHOW0 "host-c-call.lisp end of file") ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/host-c-call.lisp ; in: ; DEFINE-ALIEN-TYPE-CLASS (C-STRING :INCLUDE POINTER :INCLUDE-ARGS (TO)) ; (SB!ALIEN-INTERNALS:DEFINE-ALIEN-TYPE-CLASS ; (SB!ALIEN:C-STRING :INCLUDE SB!ALIEN::POINTER :INCLUDE-ARGS (SB!ALIEN::TO)) ; (SB!ALIEN::EXTERNAL-FORMAT :DEFAULT :TYPE KEYWORD) ; (SB!ALIEN::ELEMENT-TYPE 'CHARACTER :TYPE (MEMBER CHARACTER BASE-CHAR)) ; (SB!ALIEN::NOT-NULL NIL :TYPE BOOLEAN)) ; --> PROGN SB!INT:DEF!STRUCT PROGN DEFSTRUCT PROGN ; --> SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: DEFINE-ALIEN-TYPE-TRANSLATOR C-STRING ; (SB!ALIEN-INTERNALS:DEFINE-ALIEN-TYPE-TRANSLATOR SB!ALIEN:C-STRING ; (&KEY (SB!ALIEN::EXTERNAL-FORMAT :DEFAULT) ; (SB!ALIEN::ELEMENT-TYPE 'CHARACTER) (SB!ALIEN::NOT-NULL NIL)) ; (SB!ALIEN::MAKE-ALIEN-C-STRING-TYPE :TO ; (SB!ALIEN-INTERNALS:PARSE-ALIEN-TYPE ; 'CHAR (SB!KERNEL:MAKE-NULL-LEXENV)) ; :ELEMENT-TYPE SB!ALIEN::ELEMENT-TYPE ; :EXTERNAL-FORMAT ; SB!ALIEN::EXTERNAL-FORMAT :NOT-NULL ; SB!ALIEN::NOT-NULL)) ; --> EVAL-WHEN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK BLOCK LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:PROBLEM163 #:INFO164 #:G165) {EC80321}> ; #:PROBLEM163 #:INFO164 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: ; DEFINE-ALIEN-TYPE-CLASS (C-STRING :INCLUDE POINTER :INCLUDE-ARGS (TO)) ; (SB!ALIEN-INTERNALS:DEFINE-ALIEN-TYPE-CLASS ; (SB!ALIEN:C-STRING :INCLUDE SB!ALIEN::POINTER :INCLUDE-ARGS (SB!ALIEN::TO)) ; (SB!ALIEN::EXTERNAL-FORMAT :DEFAULT :TYPE KEYWORD) ; (SB!ALIEN::ELEMENT-TYPE 'CHARACTER :TYPE (MEMBER CHARACTER BASE-CHAR)) ; (SB!ALIEN::NOT-NULL NIL :TYPE BOOLEAN)) ; --> PROGN SB!INT:DEF!STRUCT PROGN DEFSTRUCT PROGN ; --> SB!KERNEL::DELAY-DEFSTRUCT-FUNCTIONS PROGN DEFUN PROGN SB!IMPL::%DEFUN ; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK SETF ; --> SB!KERNEL:%INSTANCE-SET THE MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET ; --> SB!C::%TYPEP-WRAPPER IF ; ==> ; (MEMBER #:OBJECT53975 '(CHARACTER BASE-CHAR)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFINE-ALIEN-TYPE-TRANSLATOR C-STRING ; (SB!KERNEL:MAKE-NULL-LEXENV) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL:MAKE-NULL-LEXENV ; ; compilation unit finished ; Undefined type: ; CODE-DELETION-NOTE ; Undefined functions: ; SB!KERNEL::%TARGET-DEFSTRUCT SB!KERNEL:MAKE-NULL-LEXENV ; caught 5 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/host-c-call.lisp-obj-tmp written ; compilation finished in 0:00:00.161 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/compiler-deftype.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (/SHOW0 "compiler-deftype.lisp 14") ; x-compiling (DEFUN %COMPILER-DEFTYPE ...) ; x-compiling (/SHOW0 "compiler-deftype.lisp end of file") ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/compiler-deftype.lisp ; in: DEFUN %COMPILER-DEFTYPE ; (SB!INT:INFO :TYPE :KIND SB!IMPL::NAME) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:VALUE21 #:FOUNDP22 #:G23) {F078321}> ; #:VALUE21 #:FOUNDP22 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; (SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR (:SYMBOL SB!IMPL::NAME ; "defining ~A as a type specifier")) ; --> PROGN LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:NEXT4 #:START5 #:COUNT6 #:G7) {F04D809}> ; #:NEXT4 #:START5 #:COUNT6 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; (SB!KERNEL:UNDECLARE-STRUCTURE (SB!KERNEL:FIND-CLASSOID SB!IMPL::NAME) T) ; ; caught STYLE-WARNING: ; undefined function: UNDECLARE-STRUCTURE ; ; compilation unit finished ; Undefined type: ; CODE-DELETION-NOTE ; Undefined function: ; UNDECLARE-STRUCTURE ; caught 3 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/compiler-deftype.lisp-obj-tmp written ; compilation finished in 0:00:00.030 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/late-type.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (/SHOW0 "late-type.lisp 19") ; x-compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS) ; x-compiling (DEFINE-CONDITION PARSE-UNKNOWN-TYPE ...) ; x-compiling (DEFUN DELEGATE-COMPLEX-SUBTYPEP-ARG2 ...) ; x-compiling (DEFUN DELEGATE-COMPLEX-INTERSECTION2 ...) ; x-compiling (DEFUN CONTAINS-UNKNOWN-TYPE-P ...) ; x-compiling (DEFUN HAS-SUPERCLASSES-COMPLEX-SUBTYPEP-ARG1 ...) ; x-compiling (DEFMACRO !DEFINE-SUPERCLASSES ...) ; x-compiling (DEFSTRUCT (KEY-INFO # ...) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/late-type.lisp ; in: DEFSTRUCT KEY-INFO ; (DEFSTRUCT (SB!KERNEL:KEY-INFO (:PURE T) (:COPIER NIL)) ; (SB!KERNEL::NAME (SB!INT:MISSING-ARG) :TYPE SYMBOL :READ-ONLY T) ; (TYPE (SB!INT:MISSING-ARG) :TYPE SB!KERNEL:CTYPE :READ-ONLY T)) ; --> PROGN EVAL-WHEN ; ==> ; (SB!KERNEL::%COMPILER-DEFSTRUCT ; '# ; '#(# ; #)) ; ; caught STYLE-WARNING: ; Previously compiled call to SB!KERNEL:KEY-INFO-NAME could not be inlined ; because the structure definition for SB!KERNEL:KEY-INFO was not yet seen. To ; avoid this warning, DEFSTRUCT should precede references to the affected ; functions, or they must be declared locally notinline at each call site. ; x-compiling (!DEFINE-TYPE-METHOD (VALUES :SIMPLE-SUBTYPEP ...) ...) ; x-compiling (!DEFINE-TYPE-METHOD (VALUES :COMPLEX-SUBTYPEP-ARG2) ...) ; x-compiling (!DEFINE-TYPE-METHOD (VALUES :NEGATE) ...) ; x-compiling (!DEFINE-TYPE-METHOD (VALUES :UNPARSE) ...) ; x-compiling (DEFUN TYPE=-LIST ...) ; x-compiling (!DEFINE-TYPE-METHOD (VALUES :SIMPLE-=) ...) ; x-compiling (!DEFINE-TYPE-CLASS FUNCTION ...) ; x-compiling (!DEFVAR *UNPARSE-FUN-TYPE-SIMPLIFY* ...) ; x-compiling (!DEFVAR *UNPARSE-ALLOW-NEGATION* ...) ; x-compiling (!DEFINE-TYPE-METHOD (FUNCTION :NEGATE) ...) ; x-compiling (!DEFINE-TYPE-METHOD (FUNCTION :UNPARSE) ...) ; x-compiling (!DEFINE-TYPE-METHOD (FUNCTION :SIMPLE-SUBTYPEP) ...) ; x-compiling (!DEFINE-SUPERCLASSES FUNCTION ...) ; x-compiling (!DEFINE-TYPE-METHOD (FUNCTION :SIMPLE-UNION2) ...) ; x-compiling (!DEFINE-TYPE-METHOD (FUNCTION :SIMPLE-INTERSECTION2) ...) ; x-compiling (!DEFINE-TYPE-METHOD (FUNCTION :COMPLEX-INTERSECTION2) ...) ; x-compiling (!DEFINE-TYPE-METHOD (FUNCTION :COMPLEX-UNION2) ...) ; x-compiling (!DEFINE-TYPE-METHOD (FUNCTION :SIMPLE-=) ...) ; x-compiling (!DEFINE-TYPE-CLASS CONSTANT ...) ; x-compiling (!DEFINE-TYPE-METHOD (CONSTANT :NEGATE) ...) ; x-compiling (!DEFINE-TYPE-METHOD (CONSTANT :UNPARSE) ...) ; x-compiling (!DEFINE-TYPE-METHOD (CONSTANT :SIMPLE-=) ...) ; x-compiling (!DEF-TYPE-TRANSLATOR CONSTANT-ARG ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN UNPARSE-ARGS-TYPES ...) ; x-compiling (!DEF-TYPE-TRANSLATOR FUNCTION ...) ; x-compiling (!DEF-TYPE-TRANSLATOR VALUES ...) ; x-compiling (DEFUN VALUES-TYPE-MIN-VALUE-COUNT ...) ; x-compiling (DEFUN VALUES-TYPE-MAX-VALUE-COUNT ...) ; x-compiling (DEFUN VALUES-TYPE-MAY-BE-SINGLE-VALUE-P ...) ; x-compiling (DEFUN TYPE-SINGLE-VALUE-P ...) ; x-compiling (DECLAIM (FREEZE-TYPE VALUES-TYPE)) ; x-compiling (DEFUN SINGLE-VALUE-TYPE ...) ; x-compiling (DEFUN FUN-TYPE-NARGS ...) ; x-compiling (DEFUN VALUES-TYPES ...) ; x-compiling (DEFUN VALUES-TYPE-TYPES ...) ; x-compiling (DEFUN VALUES-TYPE-OUT ...) ; x-compiling (DEFUN VALUES-TYPE-IN ...) ; x-compiling (DEFUN FIXED-VALUES-OP ...) ; x-compiling (DEFUN-CACHED (%COERCE-TO-VALUES :HASH-BITS ...) ...) ; x-compiling (DEFUN COERCE-TO-VALUES ...) ; x-compiling (DEFUN MAKE-SHORT-VALUES-TYPE ...) ; x-compiling (DEFUN MAKE-SINGLE-VALUE-TYPE ...) ; x-compiling (DEFUN ARGS-TYPE-OP ...) ; x-compiling (DEFUN VALUES-TYPE-OP ...) ; x-compiling (DEFUN COMPARE-KEY-ARGS ...) ; x-compiling (DEFUN TYPE=-ARGS ...) ; x-compiling (DEFUN-CACHED (VALUES-TYPE-UNION :HASH-FUNCTION ...) ...) ; x-compiling (DEFUN-CACHED (VALUES-TYPE-INTERSECTION :HASH-FUNCTION ...) ...) ; x-compiling (DEFUN VALUES-TYPES-EQUAL-OR-INTERSECT ...) ; x-compiling (DEFUN-CACHED (VALUES-SUBTYPEP :HASH-FUNCTION ...) ...) ; x-compiling (DEFUN-CACHED (CSUBTYPEP :HASH-FUNCTION ...) ...) ; x-compiling (DEFUN SB-XC:SUBTYPEP ...) ; x-compiling (DEFUN-CACHED (TYPE= :HASH-FUNCTION ...) ...) ; x-compiling (DEFUN TYPE/= ...) ; x-compiling (DEFUN %TYPE-UNION2 ...) ; x-compiling (DEFUN-CACHED (TYPE-UNION2 :HASH-FUNCTION ...) ...) ; x-compiling (DEFUN %TYPE-INTERSECTION2 ...) ; x-compiling (DEFUN-CACHED (TYPE-INTERSECTION2 :HASH-FUNCTION ...) ...) ; x-compiling (DEFUN TYPE-APPROX-INTERSECTION2 ...) ; x-compiling (DEFUN TYPES-EQUAL-OR-INTERSECT ...) ; x-compiling (DEFUN TYPE-SPECIFIER ...) ; x-compiling (DEFUN-CACHED (TYPE-NEGATION :HASH-FUNCTION ...) ...) ; x-compiling (DEFUN-CACHED (TYPE-SINGLETON-P :HASH-FUNCTION ...) ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN PRECOMPUTE-TYPES ...) ; x-compiling (DEF SIMPLIFY-INTERSECTIONS ...) ; x-compiling (DEF SIMPLIFY-UNIONS ...) ; x-compiling (DEFUN MAYBE-DISTRIBUTE-ONE-UNION ...) ; x-compiling (DEFUN TYPE-INTERSECTION ...) ; x-compiling (DEFUN-CACHED (%TYPE-INTERSECTION :HASH-BITS ...) ...) ; x-compiling (DEFUN TYPE-UNION ...) ; x-compiling (DEFUN-CACHED (%TYPE-UNION :HASH-BITS ...) ...) ; x-compiling (!DEFINE-TYPE-CLASS NAMED ...) ; x-compiling (DEFGLOBAL *SATISFIES-KEYWORDP-TYPE* ...) ; x-compiling (DEFGLOBAL *FUN-NAME-TYPE* ...) ; x-compiling (DEFUN !LATE-TYPE-COLD-INIT2 ...) ; x-compiling (!DEFINE-TYPE-METHOD (NAMED :SIMPLE-=) ...) ; x-compiling (DEFUN CONS-TYPE-MIGHT-BE-EMPTY-TYPE ...) ; x-compiling (!DEFINE-TYPE-METHOD (NAMED :COMPLEX-=) ...) ; x-compiling (!DEFINE-TYPE-METHOD (NAMED :SIMPLE-SUBTYPEP) ...) ; x-compiling (!DEFINE-TYPE-METHOD (NAMED :COMPLEX-SUBTYPEP-ARG1) ...) ; x-compiling (!DEFINE-TYPE-METHOD (NAMED :COMPLEX-SUBTYPEP-ARG2) ...) ; x-compiling (!DEFINE-TYPE-METHOD (NAMED :COMPLEX-INTERSECTION2) ...) ; x-compiling (!DEFINE-TYPE-METHOD (NAMED :COMPLEX-UNION2) ...) ; x-compiling (!DEFINE-TYPE-METHOD (NAMED :NEGATE) ...) ; x-compiling (!DEFINE-TYPE-METHOD (NAMED :UNPARSE) ...) ; x-compiling (!DEFINE-TYPE-METHOD (HAIRY :NEGATE) ...) ; x-compiling (!DEFINE-TYPE-METHOD (HAIRY :UNPARSE) ...) ; x-compiling (!DEFINE-TYPE-METHOD (HAIRY :SIMPLE-SUBTYPEP) ...) ; x-compiling (!DEFINE-TYPE-METHOD (HAIRY :COMPLEX-SUBTYPEP-ARG2) ...) ; x-compiling (!DEFINE-TYPE-METHOD (HAIRY :COMPLEX-SUBTYPEP-ARG1) ...) ; x-compiling (!DEFINE-TYPE-METHOD (HAIRY :COMPLEX-=) ...) ; x-compiling (!DEFINE-TYPE-METHOD (HAIRY :SIMPLE-INTERSECTION2 ...) ...) ; x-compiling (!DEFINE-TYPE-METHOD (HAIRY :SIMPLE-UNION2) ...) ; x-compiling (!DEFINE-TYPE-METHOD (HAIRY :SIMPLE-=) ...) ; x-compiling (!DEF-TYPE-TRANSLATOR SATISFIES ...) ; x-compiling (!DEFINE-TYPE-METHOD (NEGATION :NEGATE) ...) ; x-compiling (!DEFINE-TYPE-METHOD (NEGATION :UNPARSE) ...) ; x-compiling (!DEFINE-TYPE-METHOD (NEGATION :SIMPLE-SUBTYPEP) ...) ; x-compiling (!DEFINE-TYPE-METHOD (NEGATION :COMPLEX-SUBTYPEP-ARG2) ...) ; x-compiling (!DEFINE-TYPE-METHOD (NEGATION :COMPLEX-SUBTYPEP-ARG1) ...) ; x-compiling (!DEFINE-TYPE-METHOD (NEGATION :COMPLEX-=) ...) ; x-compiling (!DEFINE-TYPE-METHOD (NEGATION :SIMPLE-INTERSECTION2) ...) ; x-compiling (DEFUN MAYBE-COMPLEX-ARRAY-REFINEMENT ...) ; x-compiling (!DEFINE-TYPE-METHOD (NEGATION :COMPLEX-INTERSECTION2) ...) ; x-compiling (!DEFINE-TYPE-METHOD (NEGATION :SIMPLE-UNION2) ...) ; x-compiling (!DEFINE-TYPE-METHOD (NEGATION :COMPLEX-UNION2) ...) ; x-compiling (!DEFINE-TYPE-METHOD (NEGATION :SIMPLE-=) ...) ; x-compiling (!DEF-TYPE-TRANSLATOR NOT ...) ; x-compiling (!DEFINE-TYPE-CLASS NUMBER ...) ; x-compiling (DECLAIM (INLINE NUMERIC-TYPE-EQUAL)) ; x-compiling (DEFUN NUMERIC-TYPE-EQUAL ...) ; x-compiling (!DEFINE-TYPE-METHOD (NUMBER :SIMPLE-=) ...) ; x-compiling (!DEFINE-TYPE-METHOD (NUMBER :NEGATE) ...) ; x-compiling (!DEFINE-TYPE-METHOD (NUMBER :UNPARSE) ...) ; x-compiling (!DEFINE-TYPE-METHOD (NUMBER :SINGLETON-P) ...) ; x-compiling (DEFMACRO NUMERIC-BOUND-TEST ...) ; x-compiling (DEFMACRO NUMERIC-BOUND-TEST* ...) ; x-compiling (DEFMACRO NUMERIC-BOUND-MAX ...) ; x-compiling (!DEFINE-TYPE-METHOD (NUMBER :SIMPLE-SUBTYPEP) ...) ; x-compiling (!DEFINE-SUPERCLASSES NUMBER ...) ; x-compiling (DEFUN NUMERIC-TYPES-ADJACENT ...) ; x-compiling (DEFVAR *APPROXIMATE-NUMERIC-UNIONS* ...) ; x-compiling (!DEFINE-TYPE-METHOD (NUMBER :SIMPLE-UNION2) ...) ; x-compiling (!COLD-INIT-FORMS (SETF # ...) ...) ; x-compiling (!DEF-TYPE-TRANSLATOR COMPLEX ...) ; x-compiling (DECLAIM (INLINE CANONICALIZED-BOUND)) ; x-compiling (DEFUN CANONICALIZED-BOUND ...) ; x-compiling (!DEF-TYPE-TRANSLATOR INTEGER ...) ; x-compiling (DEFMACRO !DEF-BOUNDED-TYPE ...) ; x-compiling (!DEF-BOUNDED-TYPE RATIONAL ...) ; x-compiling (DEFUN COERCE-BOUND ...) ; x-compiling (DEFUN INNER-COERCE-REAL-BOUND ...) ; x-compiling (DEFUN INNER-COERCE-FLOAT-BOUND ...) ; x-compiling (DEFUN COERCED-REAL-BOUND ...) ; x-compiling (DEFUN COERCED-FLOAT-BOUND ...) ; x-compiling (!DEF-TYPE-TRANSLATOR REAL ...) ; x-compiling (!DEF-TYPE-TRANSLATOR FLOAT ...) ; x-compiling (DEFMACRO !DEFINE-FLOAT-FORMAT ...) ; x-compiling (!DEFINE-FLOAT-FORMAT SHORT-FLOAT) ; x-compiling (!DEFINE-FLOAT-FORMAT SINGLE-FLOAT) ; x-compiling (!DEFINE-FLOAT-FORMAT DOUBLE-FLOAT) ; x-compiling (!DEFINE-FLOAT-FORMAT LONG-FLOAT) ; x-compiling (DEFUN NUMERIC-TYPES-INTERSECT ...) ; x-compiling (DEFUN ROUND-NUMERIC-BOUND ...) ; x-compiling (!DEFINE-TYPE-METHOD (NUMBER :SIMPLE-INTERSECTION2) ...) ; x-compiling (DEFUN FLOAT-FORMAT-MAX ...) ; x-compiling (DEFUN NUMERIC-CONTAGION ...) ; x-compiling (!DEFINE-TYPE-CLASS ARRAY ...) ; x-compiling (!DEFINE-TYPE-METHOD (ARRAY :SIMPLE-=) ...) ; x-compiling (!DEFINE-TYPE-METHOD (ARRAY :NEGATE) ...) ; x-compiling (!DEFINE-TYPE-METHOD (ARRAY :UNPARSE) ...) ; x-compiling (!DEFINE-TYPE-METHOD (ARRAY :SIMPLE-SUBTYPEP) ...) ; x-compiling (!DEFINE-SUPERCLASSES ARRAY ...) ; x-compiling (DEFUN ARRAY-TYPES-INTERSECT ...) ; x-compiling (DEFUN UNITE-ARRAY-TYPES-COMPLEXP ...) ; x-compiling (DEFUN UNITE-ARRAY-TYPES-DIMENSIONS ...) ; x-compiling (DEFUN UNITE-ARRAY-TYPES-ELEMENT-TYPES ...) ; x-compiling (DEFUN UNITE-ARRAY-TYPES-SUPERTYPES-COMPATIBLE-P ...) ; x-compiling (!DEFINE-TYPE-METHOD (ARRAY :SIMPLE-UNION2) ...) ; x-compiling (!DEFINE-TYPE-METHOD (ARRAY :SIMPLE-INTERSECTION2) ...) ; x-compiling (DEFUN CANONICAL-ARRAY-DIMENSIONS ...) ; x-compiling (!DEFINE-TYPE-CLASS MEMBER ...) ; x-compiling (!DEFINE-TYPE-METHOD (MEMBER :NEGATE) ...) ; x-compiling (!DEFINE-TYPE-METHOD (MEMBER :UNPARSE) ...) ; x-compiling (!DEFINE-TYPE-METHOD (MEMBER :SINGLETON-P) ...) ; x-compiling (!DEFINE-TYPE-METHOD (MEMBER :SIMPLE-SUBTYPEP) ...) ; x-compiling (!DEFINE-TYPE-METHOD (MEMBER :COMPLEX-SUBTYPEP-ARG1) ...) ; x-compiling (!DEFINE-TYPE-METHOD (MEMBER :COMPLEX-SUBTYPEP-ARG2) ...) ; x-compiling (!DEFINE-TYPE-METHOD (MEMBER :SIMPLE-INTERSECTION2) ...) ; x-compiling (!DEFINE-TYPE-METHOD (MEMBER :COMPLEX-INTERSECTION2) ...) ; x-compiling (!DEFINE-TYPE-METHOD (MEMBER :SIMPLE-UNION2) ...) ; x-compiling (!DEFINE-TYPE-METHOD (MEMBER :SIMPLE-=) ...) ; x-compiling (!DEFINE-TYPE-METHOD (MEMBER :COMPLEX-=) ...) ; x-compiling (!DEF-TYPE-TRANSLATOR MEMBER ...) ; x-compiling (!DEFINE-TYPE-CLASS INTERSECTION ...) ; x-compiling (!DEFINE-TYPE-METHOD (INTERSECTION :NEGATE) ...) ; x-compiling (!DEFINE-TYPE-METHOD (INTERSECTION :UNPARSE) ...) ; x-compiling (DEFUN TYPE=-SET ...) ; x-compiling (!DEFINE-TYPE-METHOD (INTERSECTION :SIMPLE-=) ...) ; x-compiling (DEFUN %INTERSECTION-COMPLEX-SUBTYPEP-ARG1 ...) ; x-compiling (DEFUN %INTERSECTION-SIMPLE-SUBTYPEP ...) ; x-compiling (!DEFINE-TYPE-METHOD (INTERSECTION :SIMPLE-SUBTYPEP) ...) ; x-compiling (!DEFINE-TYPE-METHOD (INTERSECTION :COMPLEX-SUBTYPEP-ARG1) ...) ; x-compiling (DEFUN %INTERSECTION-COMPLEX-SUBTYPEP-ARG2 ...) ; x-compiling (!DEFINE-TYPE-METHOD (INTERSECTION :COMPLEX-SUBTYPEP-ARG2) ...) ; x-compiling (!DEFINE-TYPE-METHOD (INTERSECTION :SIMPLE-UNION2 ...) ...) ; x-compiling (!DEF-TYPE-TRANSLATOR AND ...) ; x-compiling (!DEFINE-TYPE-CLASS UNION ...) ; x-compiling (!DEFINE-TYPE-METHOD (UNION :NEGATE) ...) ; x-compiling (!DEFINE-TYPE-METHOD (UNION :UNPARSE) ...) ; x-compiling (!DEFINE-TYPE-METHOD (UNION :SIMPLE-=) ...) ; x-compiling (!DEFINE-TYPE-METHOD (UNION :COMPLEX-=) ...) ; x-compiling (DEFUN UNION-SIMPLE-SUBTYPEP ...) ; x-compiling (!DEFINE-TYPE-METHOD (UNION :SIMPLE-SUBTYPEP) ...) ; x-compiling (DEFUN UNION-COMPLEX-SUBTYPEP-ARG1 ...) ; x-compiling (!DEFINE-TYPE-METHOD (UNION :COMPLEX-SUBTYPEP-ARG1) ...) ; x-compiling (DEFUN UNION-COMPLEX-SUBTYPEP-ARG2 ...) ; x-compiling (!DEFINE-TYPE-METHOD (UNION :COMPLEX-SUBTYPEP-ARG2) ...) ; x-compiling (!DEFINE-TYPE-METHOD (UNION :SIMPLE-INTERSECTION2 ...) ...) ; x-compiling (!DEF-TYPE-TRANSLATOR OR ...) ; x-compiling (!DEFINE-TYPE-CLASS CONS ...) ; x-compiling (!DEF-TYPE-TRANSLATOR CONS ...) ; x-compiling (!DEFINE-TYPE-METHOD (CONS :NEGATE) ...) ; x-compiling (!DEFINE-TYPE-METHOD (CONS :UNPARSE) ...) ; x-compiling (!DEFINE-TYPE-METHOD (CONS :SIMPLE-=) ...) ; x-compiling (!DEFINE-TYPE-METHOD (CONS :SIMPLE-SUBTYPEP) ...) ; x-compiling (!DEFINE-TYPE-METHOD (CONS :SIMPLE-UNION2) ...) ; x-compiling (!DEFINE-TYPE-METHOD (CONS :SIMPLE-INTERSECTION2) ...) ; x-compiling (!DEFINE-SUPERCLASSES CONS ...) ; x-compiling (!DEFINE-TYPE-CLASS CHARACTER-SET ...) ; x-compiling (!DEF-TYPE-TRANSLATOR CHARACTER-SET ...) ; x-compiling (!DEFINE-TYPE-METHOD (CHARACTER-SET :NEGATE) ...) ; x-compiling (!DEFINE-TYPE-METHOD (CHARACTER-SET :UNPARSE) ...) ; x-compiling (!DEFINE-TYPE-METHOD (CHARACTER-SET :SINGLETON-P) ...) ; x-compiling (!DEFINE-TYPE-METHOD (CHARACTER-SET :SIMPLE-=) ...) ; x-compiling (!DEFINE-TYPE-METHOD (CHARACTER-SET :SIMPLE-SUBTYPEP) ...) ; x-compiling (!DEFINE-TYPE-METHOD (CHARACTER-SET :SIMPLE-UNION2) ...) ; x-compiling (!DEFINE-TYPE-METHOD (CHARACTER-SET :SIMPLE-INTERSECTION2) ...) ; x-compiling (DEFUN INTERSECT-TYPE-PAIRS ...) ; x-compiling (DEFUN TYPE-DIFFERENCE ...) ; x-compiling (!DEF-TYPE-TRANSLATOR ARRAY ...) ; x-compiling (!DEF-TYPE-TRANSLATOR SIMPLE-ARRAY ...) ; x-compiling (DEFUN DEFINED-FTYPE-MATCHES-DECLARED-FTYPE-P ...) ; x-compiling (DEFUN CTYPE-OF-NUMBER ...) ; x-compiling (DECLAIM (INLINE GENERIC-ABSTRACT-TYPE-FUNCTION)) ; x-compiling (DEFUN GENERIC-ABSTRACT-TYPE-FUNCTION ...) ; x-compiling (DECLAIM (NOTINLINE GENERIC-ABSTRACT-TYPE-FUNCTION)) ; x-compiling (DEFUN LIST-ABSTRACT-TYPE-FUNCTION ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/late-type.lisp ; in: DEFUN LIST-ABSTRACT-TYPE-FUNCTION ; (SB!KERNEL:GENERIC-ABSTRACT-TYPE-FUNCTION TYPE SB!KERNEL::OVERAPPROXIMATE ; #'UNION #'INTERSECTION ; #'SET-DIFFERENCE '* NIL ; SB!KERNEL::OVER SB!KERNEL::UNDER) ; --> BLOCK LABELS BLOCK UNLESS IF PROGN RETURN-FROM SB!KERNEL::DEFAULT ; ==> ; SB!KERNEL::OVERAPPROXIMATE ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; x-compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !LATE-TYPE-COLD-INIT) ; x-compiling (/SHOW0 "late-type.lisp end of file") ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/late-type.lisp ; in: ; DEFUN-CACHED (VALUES-TYPE-INTERSECTION :HASH-FUNCTION #'TYPE-CACHE-HASH ; :HASH-BITS 8) ; (SB!INT:DEFUN-CACHED (SB!KERNEL:VALUES-TYPE-INTERSECTION :HASH-FUNCTION ; #'SB!KERNEL::TYPE-CACHE-HASH ; :HASH-BITS 8) ; ((SB!KERNEL::TYPE1 EQ) (SB!KERNEL::TYPE2 EQ)) ; (DECLARE (TYPE SB!KERNEL:CTYPE SB!KERNEL::TYPE1 SB!KERNEL::TYPE2)) ; (COND ; ((EQ SB!KERNEL::TYPE1 SB!KERNEL:*WILD-TYPE*) ; (SB!KERNEL:COERCE-TO-VALUES SB!KERNEL::TYPE2)) ; ((OR (EQ SB!KERNEL::TYPE2 SB!KERNEL:*WILD-TYPE*) ; (EQ SB!KERNEL::TYPE2 SB!KERNEL:*UNIVERSAL-TYPE*)) ; SB!KERNEL::TYPE1) ; ((OR (EQ SB!KERNEL::TYPE1 SB!KERNEL:*EMPTY-TYPE*) ; (EQ SB!KERNEL::TYPE2 SB!KERNEL:*EMPTY-TYPE*)) ; SB!KERNEL:*EMPTY-TYPE*) ; ((AND (NOT #) (SB!KERNEL:VALUES-TYPE-REQUIRED SB!KERNEL::TYPE1)) ; (LET (#) ; (SB!KERNEL:MAKE-VALUES-TYPE :REQUIRED # :OPTIONAL # :REST # :ALLOWP ; #))) ; (T ; (VALUES ; (SB!KERNEL::VALUES-TYPE-OP SB!KERNEL::TYPE1 # ; #'SB!KERNEL:TYPE-INTERSECTION #'MAX))))) ; --> PROGN SB!INT:DEFINE-HASH-CACHE PROGN SB!EXT:DEFGLOBAL PROGN LET LET ; ==> ; (SB!IMPL::%DEFGLOBAL 'SB!KERNEL::**VALUES-TYPE-INTERSECTION-CACHE-VECTOR** ; (UNLESS #:BOUNDP NIL) #:BOUNDP 'NIL NIL ; (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::%DEFGLOBAL ; in: ; DEFUN-CACHED (VALUES-TYPE-UNION :HASH-FUNCTION #'TYPE-CACHE-HASH :HASH-BITS 8) ; (SB!INT:DEFUN-CACHED (SB!KERNEL:VALUES-TYPE-UNION :HASH-FUNCTION ; #'SB!KERNEL::TYPE-CACHE-HASH ; :HASH-BITS 8) ; ((SB!KERNEL::TYPE1 EQ) (SB!KERNEL::TYPE2 EQ)) ; (DECLARE (TYPE SB!KERNEL:CTYPE SB!KERNEL::TYPE1 SB!KERNEL::TYPE2)) ; (COND ; ((OR (EQ SB!KERNEL::TYPE1 SB!KERNEL:*WILD-TYPE*) ; (EQ SB!KERNEL::TYPE2 SB!KERNEL:*WILD-TYPE*)) ; SB!KERNEL:*WILD-TYPE*) ; ((EQ SB!KERNEL::TYPE1 SB!KERNEL:*EMPTY-TYPE*) SB!KERNEL::TYPE2) ; ((EQ SB!KERNEL::TYPE2 SB!KERNEL:*EMPTY-TYPE*) SB!KERNEL::TYPE1) ; (T ; (VALUES ; (SB!KERNEL::VALUES-TYPE-OP SB!KERNEL::TYPE1 SB!KERNEL::TYPE2 ; #'SB!KERNEL:TYPE-UNION #'MIN))))) ; --> PROGN SB!INT:DEFINE-HASH-CACHE PROGN SB!EXT:DEFGLOBAL PROGN LET LET ; ==> ; (SB!IMPL::%DEFGLOBAL 'SB!KERNEL::**VALUES-TYPE-UNION-CACHE-VECTOR** ; (UNLESS #:BOUNDP NIL) #:BOUNDP 'NIL NIL ; (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::%DEFGLOBAL ; in: ; DEFUN-CACHED (%COERCE-TO-VALUES :HASH-BITS 8 :HASH-FUNCTION #'TYPE-HASH-VALUE) ; (SB!INT:DEFUN-CACHED (SB!KERNEL::%COERCE-TO-VALUES :HASH-BITS 8 ; :HASH-FUNCTION ; #'SB!KERNEL:TYPE-HASH-VALUE) ; ((TYPE EQ)) ; (COND ; ((MULTIPLE-VALUE-BIND (SB!KERNEL::RES SB!KERNEL::SURE) ; (SB!KERNEL:CSUBTYPEP # TYPE) ; (AND # SB!KERNEL::SURE)) ; (SB!KERNEL:MAKE-VALUES-TYPE :REQUIRED (LIST TYPE) :REST ; SB!KERNEL:*UNIVERSAL-TYPE*)) ; (T ; (SB!KERNEL:MAKE-VALUES-TYPE :OPTIONAL (LIST TYPE) :REST ; SB!KERNEL:*UNIVERSAL-TYPE*)))) ; --> PROGN SB!INT:DEFINE-HASH-CACHE PROGN SB!EXT:DEFGLOBAL PROGN LET LET ; ==> ; (SB!IMPL::%DEFGLOBAL 'SB!KERNEL::**%COERCE-TO-VALUES-CACHE-VECTOR** ; (UNLESS #:BOUNDP NIL) #:BOUNDP 'NIL NIL ; (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::%DEFGLOBAL ; ; caught STYLE-WARNING: ; 11 more uses of undefined function SB!IMPL::%DEFGLOBAL ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/late-type.lisp ; in: DEFSTRUCT KEY-INFO ; (DEFSTRUCT (SB!KERNEL:KEY-INFO (:PURE T) (:COPIER NIL)) ; (SB!KERNEL::NAME (SB!INT:MISSING-ARG) :TYPE SYMBOL :READ-ONLY T) ; (TYPE (SB!INT:MISSING-ARG) :TYPE SB!KERNEL:CTYPE :READ-ONLY T)) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: %TARGET-DEFSTRUCT ; in: !DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !LATE-TYPE-COLD-INIT ; (SB!INT:!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS SB!KERNEL:!LATE-TYPE-COLD-INIT) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK LET SB!INT:NAMED-LAMBDA FUNCTION BLOCK DESTRUCTURING-BIND ; --> LET LET* LET* LET SB!KERNEL:MAKE-ARRAY-TYPE ; ==> ; (SB!KERNEL::%UPGRADED-ARRAY-ELEMENT-TYPE SB!KERNEL::ELTYPE) ; ; caught STYLE-WARNING: ; undefined function: %UPGRADED-ARRAY-ELEMENT-TYPE ; in: !DEFINE-TYPE-METHOD (ARRAY :UNPARSE) ; (SB!KERNEL::%UPGRADED-ARRAY-ELEMENT-TYPE SB!KERNEL::DTYPE) ; ; caught STYLE-WARNING: ; undefined function: %UPGRADED-ARRAY-ELEMENT-TYPE ; in: !DEFINE-TYPE-METHOD #':SIMPLE-SUBTYPEP ; (MULTIPLE-VALUE-BIND (SB!KERNEL::RES SB!KERNEL::SURE-P) ; (SB!KERNEL:CSUBTYPEP SB!KERNEL::A1 SB!KERNEL::A2) ; (UNLESS SB!KERNEL::RES (RETURN (VALUES SB!KERNEL::RES SB!KERNEL::SURE-P)))) ; --> MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!KERNEL::RES SB!KERNEL::SURE-P #:G124) {D5A1001}> ; SB!KERNEL::RES SB!KERNEL::SURE-P NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN TYPE=-LIST ; (MULTIPLE-VALUE-BIND (SB!KERNEL::VAL SB!KERNEL::WIN) ; (SB!KERNEL:TYPE= (FIRST SB!KERNEL::TYPES1) (FIRST SB!KERNEL::TYPES2)) ; (UNLESS SB!KERNEL::WIN (RETURN (VALUES NIL NIL))) ; (UNLESS SB!KERNEL::VAL (RETURN (VALUES NIL T)))) ; --> MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!KERNEL::VAL SB!KERNEL::WIN #:G112) {D47C4A9}> ; SB!KERNEL::VAL SB!KERNEL::WIN NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFSTRUCT KEY-INFO ; (DEFSTRUCT (SB!KERNEL:KEY-INFO (:PURE T) (:COPIER NIL)) ; (SB!KERNEL::NAME (SB!INT:MISSING-ARG) :TYPE SYMBOL :READ-ONLY T) ; (TYPE (SB!INT:MISSING-ARG) :TYPE SB!KERNEL:CTYPE :READ-ONLY T)) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:.DEFAULTING-TEMP. #:N-SUPPLIED-76 #:.DEFAULTING-TEMP. ; #:N-SUPPLIED-77) ; {D30B391}> ; NIL NIL NIL NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 244 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/late-type.lisp ; in: DEFUN UNITE-ARRAY-TYPES-DIMENSIONS ; (MAPCAR ; (LAMBDA (SB!KERNEL::DIM1 SB!KERNEL::DIM2) ; (COND ((EQUAL SB!KERNEL::DIM1 SB!KERNEL::DIM2) SB!KERNEL::DIM1) ; ((EQ SB!KERNEL::DIM1 '*) (SETF #) '*) ; ((EQ SB!KERNEL::DIM2 '*) (SETF #) '*) (T (SETF #)))) ; SB!KERNEL::DIMS1 SB!KERNEL::DIMS2) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN MAYBE-DISTRIBUTE-ONE-UNION ; (MAPCAR ; (LAMBDA (SB!KERNEL::X) ; (SB!KERNEL:TYPE-INTERSECTION SB!KERNEL::X INTERSECTION)) ; (SB!KERNEL:UNION-TYPE-TYPES SB!KERNEL:UNION-TYPE)) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN FIXED-VALUES-OP ; (MAPCAR ; (LAMBDA (SB!KERNEL::T1 SB!KERNEL::T2) ; (MULTIPLE-VALUE-BIND (SB!KERNEL::RES SB!KERNEL::WIN) ; (FUNCALL SB!KERNEL::OPERATION SB!KERNEL::T1 SB!KERNEL::T2) ; (UNLESS SB!KERNEL::WIN (SETQ #)) ; SB!KERNEL::RES)) ; SB!KERNEL::TYPES1 ; (APPEND SB!KERNEL::TYPES2 ; (MAKE-LIST (- (LENGTH SB!KERNEL::TYPES1) (LENGTH SB!KERNEL::TYPES2)) ; :INITIAL-ELEMENT SB!KERNEL::REST2))) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; ; caught STYLE-WARNING: ; 15 more uses of undefined type COMPILER-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/late-type.lisp ; in: DEFUN CTYPE-OF-NUMBER ; (SB!KERNEL:FLOAT-FORMAT-NAME SB!KERNEL::NUM) ; ; caught STYLE-WARNING: ; undefined function: FLOAT-FORMAT-NAME ; in: !DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !LATE-TYPE-COLD-INIT ; (SB!INT:!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS SB!KERNEL:!LATE-TYPE-COLD-INIT) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK LET SB!INT:NAMED-LAMBDA FUNCTION BLOCK DESTRUCTURING-BIND ; --> LET LET* LET* LET IF ; ==> ; (SB!KERNEL::SIMPLIFY-ARRAY-UNIONS TYPE) ; ; caught STYLE-WARNING: ; undefined function: SIMPLIFY-ARRAY-UNIONS ; ; compilation unit finished ; Undefined types: ; CODE-DELETION-NOTE COMPILER-NOTE ; Undefined functions: ; SB!IMPL::%DEFGLOBAL %TARGET-DEFSTRUCT %UPGRADED-ARRAY-ELEMENT-TYPE FLOAT-FORMAT-NAME SIMPLIFY-ARRAY-UNIONS ; caught 18 STYLE-WARNING conditions ; printed 3 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/late-type.lisp-obj-tmp written ; compilation finished in 0:00:02.970 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/deftypes-for-target.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (/SHOW0 "deftypes-for-target.lisp 14") ; x-compiling (SB-XC:DEFTYPE BOOLEAN ...) ; x-compiling (SB-XC:DEFTYPE MOD ...) ; x-compiling (SB-XC:DEFTYPE SIGNED-BYTE ...) ; x-compiling (SB-XC:DEFTYPE UNSIGNED-BYTE ...) ; x-compiling (SB-XC:DEFTYPE UNSIGNED-BYTE* ...) ; x-compiling (SB-XC:DEFTYPE BIT ...) ; x-compiling (SB-XC:DEFTYPE ATOM ...) ; x-compiling (SB-XC:DEFTYPE BASE-CHAR ...) ; x-compiling (SB-XC:DEFTYPE EXTENDED-CHAR ...) ; x-compiling (SB-XC:DEFTYPE STANDARD-CHAR ...) ; x-compiling (SB-XC:DEFTYPE KEYWORD ...) ; x-compiling (SB-XC:DEFTYPE EQL ...) ; x-compiling (SB-XC:DEFTYPE VECTOR ...) ; x-compiling (SB-XC:DEFTYPE SIMPLE-VECTOR ...) ; x-compiling (SB-XC:DEFTYPE BASE-STRING ...) ; x-compiling (SB-XC:DEFTYPE SIMPLE-BASE-STRING ...) ; x-compiling (SB-XC:DEFTYPE STRING ...) ; x-compiling (SB-XC:DEFTYPE SIMPLE-STRING ...) ; x-compiling (SB-XC:DEFTYPE BIT-VECTOR ...) ; x-compiling (SB-XC:DEFTYPE SIMPLE-BIT-VECTOR ...) ; x-compiling (SB-XC:DEFTYPE GENERALIZED-BOOLEAN ...) ; x-compiling (SB-XC:DEFTYPE FORMAT-CONTROL ...) ; x-compiling (SB-XC:DEFTYPE RESTART-DESIGNATOR ...) ; x-compiling (SB-XC:DEFTYPE ARRAY-RANK ...) ; x-compiling (SB-XC:DEFTYPE ARRAY-TOTAL-SIZE ...) ; x-compiling (SB-XC:DEFTYPE FORM ...) ; x-compiling (SB-XC:DEFTYPE STRING-DESIGNATOR ...) ; x-compiling (SB-XC:DEFTYPE FILENAME ...) ; x-compiling (SB-XC:DEFTYPE PATHNAME-DESIGNATOR ...) ; x-compiling (SB-XC:DEFTYPE LOGICAL-HOST-DESIGNATOR ...) ; x-compiling (SB-XC:DEFTYPE PACKAGE-DESIGNATOR ...) ; x-compiling (SB-XC:DEFTYPE SYMBOLS-DESIGNATOR ...) ; x-compiling (SB-XC:DEFTYPE IRRATIONAL ...) ; x-compiling (SB-XC:DEFTYPE CHAR-CODE ...) ; x-compiling (SB-XC:DEFTYPE CONSED-SEQUENCE ...) ; x-compiling (SB-XC:DEFTYPE SEQUENCE-END ...) ; x-compiling (SB-XC:DEFTYPE SEQUENCE-COUNT ...) ; x-compiling (SB-XC:DEFTYPE STREAM-DESIGNATOR ...) ; x-compiling (SB-XC:DEFTYPE EXTERNAL-FORMAT-DESIGNATOR ...) ; x-compiling (SB-XC:DEFTYPE LEXENV-DESIGNATOR ...) ; x-compiling (SB-XC:DEFTYPE CALLABLE ...) ; x-compiling (SB-XC:DEFTYPE SINGLE-FLOAT-EXPONENT ...) ; x-compiling (SB-XC:DEFTYPE DOUBLE-FLOAT-EXPONENT ...) ; x-compiling (SB-XC:DEFTYPE SINGLE-FLOAT-INT-EXPONENT ...) ; x-compiling (SB-XC:DEFTYPE DOUBLE-FLOAT-INT-EXPONENT ...) ; x-compiling (SB-XC:DEFTYPE SINGLE-FLOAT-SIGNIFICAND ...) ; x-compiling (SB-XC:DEFTYPE DOUBLE-FLOAT-SIGNIFICAND ...) ; x-compiling (/SHOW0 "deftypes-for-target.lisp end of file") ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/deftypes-for-target.lisp-obj-tmp written ; compilation finished in 0:00:00.301 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/knownfun.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (/SHOW0 "knownfun.lisp 17") ; x-compiling (!DEF-BOOLEAN-ATTRIBUTE IR1 ...) ; x-compiling (DEFSTRUCT (FUN-INFO #) ...) ; x-compiling (DEFPRINTER (FUN-INFO) ...) ; x-compiling (DEFSTRUCT (TRANSFORM #) ...) ; x-compiling (DEFPRINTER (TRANSFORM) ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN %DEFTRANSFORM ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN %DEFKNOWN ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN FUN-INFO-OR-LOSE ...) ; x-compiling (DEFUN RESULT-TYPE-FIRST-ARG ...) ; x-compiling (DEFUN RESULT-TYPE-LAST-ARG ...) ; x-compiling (DEFUN RESULT-TYPE-FLOAT-CONTAGION ...) ; x-compiling (DEFUN SEQUENCE-RESULT-NTH-ARG ...) ; x-compiling (DEFUN RESULT-TYPE-SPECIFIER-NTH-ARG ...) ; x-compiling (DEFUN CREATION-RESULT-TYPE-SPECIFIER-NTH-ARG ...) ; x-compiling (DEFUN REMOVE-NON-CONSTANTS-AND-NILS ...) ; x-compiling (DEFUN NTH-CONSTANT-ARGS ...) ; x-compiling (DEFUN NTH-CONSTANT-NONEMPTY-SEQUENCE-ARGS ...) ; x-compiling (DEFUN READ-ELT-TYPE-DERIVER ...) ; x-compiling (DEFUN POSITION-DERIVE-TYPE ...) ; x-compiling (/SHOW0 "knownfun.lisp end of file") ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/knownfun.lisp ; in: DEFSTRUCT TRANSFORM ; (DEFSTRUCT (SB!C::TRANSFORM (:COPIER NIL)) ; (TYPE (SB!INT:MISSING-ARG) :TYPE SB!KERNEL:CTYPE) ; (FUNCTION (SB!INT:MISSING-ARG) :TYPE FUNCTION) ; (SB!C::NOTE (SB!INT:MISSING-ARG) :TYPE STRING) ; (SB!C::IMPORTANT NIL :TYPE (MEMBER NIL :SLIGHTLY T))) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: DEFSTRUCT FUN-INFO ; (DEFSTRUCT (SB!C::FUN-INFO (:PURE T)) ; (SB!C:ATTRIBUTES (SB!INT:MISSING-ARG) :TYPE SB!C:ATTRIBUTES) ; (SB!C::TRANSFORMS NIL :TYPE LIST) ; (SB!C:DERIVE-TYPE NIL :TYPE (OR FUNCTION NULL)) ; (SB!C:OPTIMIZER NIL :TYPE (OR FUNCTION NULL)) ; (SB!C::DESTROYED-CONSTANT-ARGS NIL :TYPE (OR FUNCTION NULL)) ; (SB!C:LTN-ANNOTATE NIL :TYPE (OR FUNCTION NULL)) ; (SB!C:IR2-CONVERT NIL :TYPE (OR FUNCTION NULL)) ; (SB!C::STACK-ALLOCATE-RESULT NIL :TYPE (OR FUNCTION NULL)) ; (SB!C::CONSTRAINT-PROPAGATE NIL :TYPE (OR FUNCTION NULL)) ; (SB!C::CONSTRAINT-PROPAGATE-IF NIL :TYPE (OR FUNCTION NULL)) ; ...) ; --> PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%TARGET-DEFSTRUCT ; in: !DEF-BOOLEAN-ATTRIBUTE IR1 ; (SB!INT:!DEF-BOOLEAN-ATTRIBUTE SB!C::IR1 SB!C:CALL SB!C:UNWIND SB!C:ANY ; SB!C::DX-SAFE SB!C:FOLDABLE SB!ASSEM:FLUSHABLE ; SB!C:UNSAFELY-FLUSHABLE SB!C::IMPORTANT-RESULT ; SB!C:MOVABLE SB!C::PREDICATE ...) ; --> PROGN SB!C::!DEF-BOOLEAN-ATTRIBUTE-SETTER DEFINE-SETF-EXPANDER EVAL-WHEN ; --> SB!IMPL::ASSIGN-SETF-MACRO ; ==> ; (SB!IMPL::ASSIGN-SETF-MACRO 'SB!C::IR1-ATTRIBUTEP ; (LAMBDA (#:WHOLE11 #:ENVIRONMENT12) ; (LET* () ; (LET (#) ; (UNLESS # #)) ; (LET* (# # #) ; (BLOCK SB!C::IR1-ATTRIBUTEP #)))) ; '(SB!C::PLACE &REST SB!C:ATTRIBUTES &ENVIRONMENT ; SB!C::ENV) ; NIL ; '"Automagically generated boolean attribute setter. See ; !DEF-BOOLEAN-ATTRIBUTE.") ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::ASSIGN-SETF-MACRO ; in: DEFUN CREATION-RESULT-TYPE-SPECIFIER-NTH-ARG ; (SB!C::CAREFUL-SPECIFIER-TYPE ; (SB!INT:QUASIQUOTE ; (VECTOR CHARACTER ; #S(SB!IMPL::COMMA :EXPR (WHEN SB!C::SIZE SB!C::SIZE) :KIND 2)))) ; ; caught STYLE-WARNING: ; undefined function: CAREFUL-SPECIFIER-TYPE ; in: DEFUN RESULT-TYPE-SPECIFIER-NTH-ARG ; (SB!C::CAREFUL-SPECIFIER-TYPE (SB!C::LVAR-VALUE SB!C::LVAR)) ; ; caught STYLE-WARNING: ; undefined function: CAREFUL-SPECIFIER-TYPE ; in: DEFSTRUCT TRANSFORM ; (DEFSTRUCT (SB!C::TRANSFORM (:COPIER NIL)) ; (TYPE (SB!INT:MISSING-ARG) :TYPE SB!KERNEL:CTYPE) ; (FUNCTION (SB!INT:MISSING-ARG) :TYPE FUNCTION) ; (SB!C::NOTE (SB!INT:MISSING-ARG) :TYPE STRING) ; (SB!C::IMPORTANT NIL :TYPE (MEMBER NIL :SLIGHTLY T))) ; --> PROGN SB!KERNEL::DELAY-DEFSTRUCT-FUNCTIONS PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK SETF ; --> SB!KERNEL:%INSTANCE-SET THE MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET ; --> SB!C::%TYPEP-WRAPPER IF ; ==> ; (MEMBER #:OBJECT57385 '(NIL :SLIGHTLY T)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFSTRUCT FUN-INFO ; (DEFSTRUCT (SB!C::FUN-INFO (:PURE T)) ; (SB!C:ATTRIBUTES (SB!INT:MISSING-ARG) :TYPE SB!C:ATTRIBUTES) ; (SB!C::TRANSFORMS NIL :TYPE LIST) ; (SB!C:DERIVE-TYPE NIL :TYPE (OR FUNCTION NULL)) ; (SB!C:OPTIMIZER NIL :TYPE (OR FUNCTION NULL)) ; (SB!C::DESTROYED-CONSTANT-ARGS NIL :TYPE (OR FUNCTION NULL)) ; (SB!C:LTN-ANNOTATE NIL :TYPE (OR FUNCTION NULL)) ; (SB!C:IR2-CONVERT NIL :TYPE (OR FUNCTION NULL)) ; (SB!C::STACK-ALLOCATE-RESULT NIL :TYPE (OR FUNCTION NULL)) ; (SB!C::CONSTRAINT-PROPAGATE NIL :TYPE (OR FUNCTION NULL)) ; (SB!C::CONSTRAINT-PROPAGATE-IF NIL :TYPE (OR FUNCTION NULL)) ; ...) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:.DEFAULTING-TEMP. #:N-SUPPLIED-166 #:.DEFAULTING-TEMP. ; #:.DEFAULTING-TEMP. #:.DEFAULTING-TEMP. #:.DEFAULTING-TEMP. ; #:.DEFAULTING-TEMP. #:.DEFAULTING-TEMP. #:.DEFAULTING-TEMP. ; #:.DEFAULTING-TEMP. #:.DEFAULTING-TEMP. #:.DEFAULTING-TEMP. ...) ; {C5FA289}> ; NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL ...)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: !DEF-BOOLEAN-ATTRIBUTE IR1 ; (SB!INT:!DEF-BOOLEAN-ATTRIBUTE SB!C::IR1 SB!C:CALL SB!C:UNWIND SB!C:ANY ; SB!C::DX-SAFE SB!C:FOLDABLE SB!ASSEM:FLUSHABLE ; SB!C:UNSAFELY-FLUSHABLE SB!C::IMPORTANT-RESULT ; SB!C:MOVABLE SB!C::PREDICATE ...) ; --> PROGN SB!C::!DEF-BOOLEAN-ATTRIBUTE-SETTER DEFINE-SETF-EXPANDER EVAL-WHEN ; --> SB!IMPL::ASSIGN-SETF-MACRO SB!IMPL::ASSIGN-SETF-MACRO LAMBDA FUNCTION ; --> LET* LET* BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!C::TEMPS VALUES SB!C::STORES SET GET #:G14) {BE049C9}> ; SB!C::TEMPS VALUES SB!C::STORES SET GET NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 17 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/knownfun.lisp ; in: DEFUN REMOVE-NON-CONSTANTS-AND-NILS ; #'SB!C::CONSTANT-LVAR-P ; ; caught STYLE-WARNING: ; undefined function: CONSTANT-LVAR-P ; in: DEFUN CREATION-RESULT-TYPE-SPECIFIER-NTH-ARG ; (SB!C::CONSTANT-LVAR-P SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: CONSTANT-LVAR-P ; in: DEFUN RESULT-TYPE-SPECIFIER-NTH-ARG ; (SB!C::CONSTANT-LVAR-P SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: CONSTANT-LVAR-P ; ; caught STYLE-WARNING: ; 3 more uses of undefined function CONSTANT-LVAR-P ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/knownfun.lisp ; in: !DEF-BOOLEAN-ATTRIBUTE IR1 ; (SB!INT:!DEF-BOOLEAN-ATTRIBUTE SB!C::IR1 SB!C:CALL SB!C:UNWIND SB!C:ANY ; SB!C::DX-SAFE SB!C:FOLDABLE SB!ASSEM:FLUSHABLE ; SB!C:UNSAFELY-FLUSHABLE SB!C::IMPORTANT-RESULT ; SB!C:MOVABLE SB!C::PREDICATE ...) ; --> PROGN SB!C::!DEF-BOOLEAN-ATTRIBUTE-SETTER DEFINE-SETF-EXPANDER EVAL-WHEN ; --> SB!IMPL::ASSIGN-SETF-MACRO SB!IMPL::ASSIGN-SETF-MACRO LAMBDA FUNCTION ; --> LET* LET* BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; (SB-XC:GET-SETF-EXPANSION SB!C::PLACE SB!C::ENV) ; ; caught STYLE-WARNING: ; undefined function: SB-XC:GET-SETF-EXPANSION ; in: DEFUN RESULT-TYPE-FLOAT-CONTAGION ; #'SB!C::LVAR-TYPE ; ; caught STYLE-WARNING: ; undefined function: LVAR-TYPE ; in: DEFUN RESULT-TYPE-LAST-ARG ; (SB!C::LVAR-TYPE SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: LVAR-TYPE ; in: DEFUN RESULT-TYPE-FIRST-ARG ; (SB!C::LVAR-TYPE SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: LVAR-TYPE ; ; caught STYLE-WARNING: ; 2 more uses of undefined function LVAR-TYPE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/knownfun.lisp ; in: DEFUN REMOVE-NON-CONSTANTS-AND-NILS ; #'SB!C::LVAR-VALUE ; ; caught STYLE-WARNING: ; undefined function: LVAR-VALUE ; in: DEFUN CREATION-RESULT-TYPE-SPECIFIER-NTH-ARG ; (SB!C::LVAR-VALUE SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: LVAR-VALUE ; in: DEFUN RESULT-TYPE-SPECIFIER-NTH-ARG ; (SB!C::LVAR-VALUE SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: LVAR-VALUE ; ; caught STYLE-WARNING: ; 2 more uses of undefined function LVAR-VALUE ; ; compilation unit finished ; Undefined type: ; CODE-DELETION-NOTE ; Undefined functions: ; SB!KERNEL::%TARGET-DEFSTRUCT SB!IMPL::ASSIGN-SETF-MACRO CAREFUL-SPECIFIER-TYPE CONSTANT-LVAR-P SB-XC:GET-SETF-EXPANSION LVAR-TYPE LVAR-VALUE ; caught 22 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/knownfun.lisp-obj-tmp written ; compilation finished in 0:00:00.356 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/constantp.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS) ; x-compiling (DEFGLOBAL **SPECIAL-FORM-CONSTANTP-TESTS** ...) ; x-compiling (DECLAIM (TYPE HASH-TABLE ...)) ; x-compiling (!COLD-INIT-FORMS (SETF **SPECIAL-FORM-CONSTANTP-TESTS** ...)) ; x-compiling (!DEFVAR *SPECIAL-CONSTANT-VARIABLES* ...) ; x-compiling (DEFUN %CONSTANTP ...) ; x-compiling (DEFUN %CONSTANT-FORM-VALUE ...) ; x-compiling (DEFUN CONSTANT-SPECIAL-FORM-P ...) ; x-compiling (DEFUN CONSTANT-SPECIAL-FORM-VALUE ...) ; x-compiling (DEFUN CONSTANT-SPECIAL-VARIABLE-P ...) ; x-compiling (DEFUN CONSTANT-FUNCTION-CALL-P ...) ; x-compiling (DEFUN CONSTANT-FUNCTION-CALL-VALUE ...) ; x-compiling (DECLAIM (INLINE SB-XC:CONSTANTP)) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/constantp.lisp ; in: DECLAIM (INLINE SB-XC:CONSTANTP) ; (DECLAIM (INLINE SB-XC:CONSTANTP)) ; --> EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE SB-XC:CONSTANTP)) ; ; caught STYLE-WARNING: ; Proclaiming SB-XC:CONSTANTP to be INLINE, but 7 calls to it were previously ; compiled. A declaration of NOTINLINE at the call sites will eliminate this ; warning, as will proclaiming and defining the function before its first ; potential use. ; x-compiling (DEFUN SB-XC:CONSTANTP ...) ; x-compiling (DECLAIM (INLINE CONSTANT-FORM-VALUE)) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/constantp.lisp ; in: DECLAIM (INLINE CONSTANT-FORM-VALUE) ; (DECLAIM (INLINE SB!INT:CONSTANT-FORM-VALUE)) ; --> EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE SB!INT:CONSTANT-FORM-VALUE)) ; ; caught STYLE-WARNING: ; Proclaiming SB!INT:CONSTANT-FORM-VALUE to be INLINE, but 4 calls to it were ; previously compiled. A declaration of NOTINLINE at the call sites will ; eliminate this warning, as will proclaiming and defining the function before ; its first potential use. ; x-compiling (DEFUN CONSTANT-FORM-VALUE ...) ; x-compiling (DECLAIM (INLINE CONSTANT-TYPEP)) ; x-compiling (DEFUN CONSTANT-TYPEP ...) ; x-compiling (DEFMACRO !DEFCONSTANTP ...) ; x-compiling (!DEFCONSTANTP QUOTE ...) ; x-compiling (!DEFCONSTANTP IF ...) ; x-compiling (!DEFCONSTANTP PROGN ...) ; x-compiling (!DEFCONSTANTP UNWIND-PROTECT ...) ; x-compiling (!DEFCONSTANTP THE ...) ; x-compiling (!DEFCONSTANTP BLOCK ...) ; x-compiling (!DEFCONSTANTP MULTIPLE-VALUE-PROG1 ...) ; x-compiling (!DEFCONSTANTP PROGV ...) ; x-compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !CONSTANTP-COLD-INIT) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/constantp.lisp ; in: !DEFCONSTANTP THE ; (SB!KERNEL::%%TYPEP (SB!C::CONSTANT-FORM-VALUE* SB!KERNEL:FORM) SB!C::PARSED ; NIL) ; ; caught STYLE-WARNING: ; undefined function: SB!KERNEL::%%TYPEP ; in: DEFGLOBAL **SPECIAL-FORM-CONSTANTP-TESTS** ; (SB!EXT:DEFGLOBAL SB!C::**SPECIAL-FORM-CONSTANTP-TESTS** NIL) ; --> PROGN LET LET ; ==> ; (SB!IMPL::%DEFGLOBAL 'SB!C::**SPECIAL-FORM-CONSTANTP-TESTS** ; (UNLESS #:BOUNDP NIL) #:BOUNDP 'NIL NIL ; (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::%DEFGLOBAL ; in: !DEFCONSTANTP THE ; (SB!C::CAREFUL-SPECIFIER-TYPE TYPE) ; ; caught STYLE-WARNING: ; undefined function: CAREFUL-SPECIFIER-TYPE ; (HANDLER-CASE ; (LET ((SB!C::PARSED (SB!C::CAREFUL-SPECIFIER-TYPE TYPE))) ; (AND SB!C::PARSED ; (SB!KERNEL::%%TYPEP (SB!C::CONSTANT-FORM-VALUE* SB!KERNEL:FORM) ; SB!C::PARSED NIL))) ; (ERROR NIL NIL)) ; --> SB!INT:DX-FLET FLET BLOCK SB!INT:DX-LET LET TAGBODY ; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK TYPEP LET ; --> SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT57612 'ERROR) ; ; caught STYLE-WARNING: ; undefined function: CLASSOID-CELL-TYPEP ; in: DEFUN CONSTANT-FUNCTION-CALL-P ; (HANDLER-CASE ; (VALUES T ; (SB!C::CONSTANT-FUNCTION-CALL-VALUE SB!KERNEL:FORM SB!C::ENVIRONMENT ; SB!C::ENVP)) ; (ERROR NIL (VALUES NIL NIL))) ; --> SB!INT:DX-FLET FLET BLOCK SB!INT:DX-LET LET TAGBODY ; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK TYPEP LET ; --> SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT57545 'ERROR) ; ; caught STYLE-WARNING: ; undefined function: CLASSOID-CELL-TYPEP ; (SB!INT:INFO :FUNCTION :KIND SB!C::NAME) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:VALUE34 #:FOUNDP35 #:G36) {B04BD01}> ; #:VALUE34 #:FOUNDP35 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN CONSTANT-SPECIAL-VARIABLE-P ; (MEMBER SB!C::NAME SB!C::*SPECIAL-CONSTANT-VARIABLES*) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN %CONSTANTP ; (SB!INT:INFO :VARIABLE :KIND SB!KERNEL:FORM) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:VALUE0 #:FOUNDP1 #:G2) {AF76169}> ; #:VALUE0 #:FOUNDP1 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 17 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/constantp.lisp ; in: DEFUN CONSTANT-FUNCTION-CALL-VALUE ; (MAPCAR ; (LAMBDA (SB!C::ARG) ; (SB!C::%CONSTANT-FORM-VALUE SB!C::ARG SB!C::ENVIRONMENT SB!C::ENVP)) ; (CDR SB!KERNEL:FORM)) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; ; compilation unit finished ; Undefined types: ; CODE-DELETION-NOTE COMPILER-NOTE ; Undefined functions: ; SB!KERNEL::%%TYPEP SB!IMPL::%DEFGLOBAL CAREFUL-SPECIFIER-TYPE CLASSOID-CELL-TYPEP ; caught 12 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/constantp.lisp-obj-tmp written ; compilation finished in 0:00:00.198 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/fun-info-funs.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFUN %DEF-REFFER ...) ; x-compiling (DEFUN %DEF-SETTER ...) ; x-compiling (DEFUN %DEF-ALLOC ...) ; x-compiling (DEFUN %DEF-CASSER ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/fun-info-funs.lisp ; in: DEFUN %DEF-CASSER ; (SB!C::IR2-CONVERT-CASSER SB!C::NODE BLOCK SB!C::NAME SB!C::OFFSET ; SB!C::LOWTAG) ; ; caught STYLE-WARNING: ; undefined function: IR2-CONVERT-CASSER ; in: DEFUN %DEF-ALLOC ; (SB!C::IR2-CONVERT-FIXED-ALLOCATION SB!C::NODE BLOCK SB!C::NAME SB!SYS:WORDS ; SB!C::HEADER SB!C::LOWTAG SB!C::INITS) ; ; caught STYLE-WARNING: ; undefined function: IR2-CONVERT-FIXED-ALLOCATION ; in: DEFUN %DEF-REFFER ; (SB!C::IR2-CONVERT-REFFER SB!C::NODE BLOCK SB!C::NAME SB!C::OFFSET ; SB!C::LOWTAG) ; ; caught STYLE-WARNING: ; undefined function: IR2-CONVERT-REFFER ; in: DEFUN %DEF-SETTER ; (SB!C::IR2-CONVERT-SETFER SB!C::NODE BLOCK SB!C::NAME SB!C::OFFSET ; SB!C::LOWTAG) ; ; caught STYLE-WARNING: ; undefined function: IR2-CONVERT-SETFER ; (SB!C::IR2-CONVERT-SETTER SB!C::NODE BLOCK SB!C::NAME SB!C::OFFSET ; SB!C::LOWTAG) ; ; caught STYLE-WARNING: ; undefined function: IR2-CONVERT-SETTER ; in: DEFUN %DEF-ALLOC ; (SB!C::IR2-CONVERT-STRUCTURE-ALLOCATION SB!C::NODE BLOCK SB!C::NAME ; SB!SYS:WORDS SB!C::HEADER ; SB!C::LOWTAG SB!C::INITS) ; ; caught STYLE-WARNING: ; undefined function: IR2-CONVERT-STRUCTURE-ALLOCATION ; (SB!C::IR2-CONVERT-VARIABLE-ALLOCATION SB!C::NODE BLOCK SB!C::NAME ; SB!SYS:WORDS SB!C::HEADER SB!C::LOWTAG ; SB!C::INITS) ; ; caught STYLE-WARNING: ; undefined function: IR2-CONVERT-VARIABLE-ALLOCATION ; ; compilation unit finished ; Undefined functions: ; IR2-CONVERT-CASSER IR2-CONVERT-FIXED-ALLOCATION IR2-CONVERT-REFFER IR2-CONVERT-SETFER IR2-CONVERT-SETTER IR2-CONVERT-STRUCTURE-ALLOCATION IR2-CONVERT-VARIABLE-ALLOCATION ; caught 7 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/fun-info-funs.lisp-obj-tmp written ; compilation finished in 0:00:00.018 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/vm-type.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (SETF (INFO :TYPE ...) ...) ; x-compiling (SB-XC:DEFTYPE LONG-FLOAT ...) ; x-compiling (SETF (INFO :TYPE ...) ...) ; x-compiling (SB-XC:DEFTYPE SHORT-FLOAT ...) ; x-compiling (SB-XC:DEFTYPE FLOAT-EXPONENT ...) ; x-compiling (SB-XC:DEFTYPE FLOAT-DIGITS ...) ; x-compiling (SB-XC:DEFTYPE FLOAT-RADIX ...) ; x-compiling (SB-XC:DEFTYPE FLOAT-INT-EXPONENT ...) ; x-compiling (SB-XC:DEFTYPE BOOLE-CODE ...) ; x-compiling (SB-XC:DEFTYPE BYTE-SPECIFIER ...) ; x-compiling (SB-XC:DEFTYPE CHAR-INT ...) ; x-compiling (SB-XC:DEFTYPE PATHNAME-HOST ...) ; x-compiling (SB-XC:DEFTYPE PATHNAME-DEVICE ...) ; x-compiling (SB-XC:DEFTYPE PATHNAME-DIRECTORY ...) ; x-compiling (SB-XC:DEFTYPE PATHNAME-NAME ...) ; x-compiling (SB-XC:DEFTYPE PATHNAME-TYPE ...) ; x-compiling (SB-XC:DEFTYPE PATHNAME-VERSION ...) ; x-compiling (SB-XC:DEFTYPE INTERNAL-TIME ...) ; x-compiling (SB-XC:DEFTYPE BIGNUM-ELEMENT-TYPE ...) ; x-compiling (SB-XC:DEFTYPE BIGNUM-TYPE ...) ; x-compiling (SB-XC:DEFTYPE BIGNUM-INDEX ...) ; x-compiling (SB-XC:DEFTYPE BIGNUM-LENGTH ...) ; x-compiling (SB-XC:DEFTYPE BIT-INDEX ...) ; x-compiling (SB-XC:DEFTYPE UNBOXED-ARRAY ...) ; x-compiling (SB-XC:DEFTYPE SIMPLE-UNBOXED-ARRAY ...) ; x-compiling (SB-XC:DEFTYPE COMPLEX-VECTOR ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN FLOAT-FORMAT-NAME ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN %UPGRADED-ARRAY-ELEMENT-TYPE ...) ; x-compiling (DEFUN SB-XC:UPGRADED-ARRAY-ELEMENT-TYPE ...) ; x-compiling (DEFUN SB-XC:UPGRADED-COMPLEX-PART-TYPE ...) ; x-compiling (DEFUN CONTAINING-INTEGER-TYPE ...) ; x-compiling (DEFUN HAIRY-TYPE-CHECK-TEMPLATE-NAME ...) ; x-compiling (DEFUN SIMPLIFY-ARRAY-UNIONS ...) ; x-compiling (DEFUN WIDETAGS-FROM-UNION-TYPE ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/vm-type.lisp ; in: DEFUN SB-XC:UPGRADED-ARRAY-ELEMENT-TYPE ; (HANDLER-CASE ; (LET ((TYPE (SB!KERNEL:SPECIFIER-TYPE SB!KERNEL::SPEC))) ; (IF (SB!KERNEL:CONTAINS-UNKNOWN-TYPE-P TYPE) ; (ERROR "Undefined type: ~S" SB!KERNEL::SPEC) ; (SB!KERNEL:TYPE-SPECIFIER ; (SB!KERNEL::%UPGRADED-ARRAY-ELEMENT-TYPE TYPE)))) ; (SB!KERNEL:PARSE-UNKNOWN-TYPE (SB!KERNEL::C) ; (ERROR "Undefined type: ~S" ; (SB!KERNEL:PARSE-UNKNOWN-TYPE-SPECIFIER SB!KERNEL::C)))) ; --> SB!INT:DX-FLET FLET BLOCK SB!INT:DX-LET LET TAGBODY ; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK TYPEP LET ; --> SB!C::%TYPEP-WRAPPER ; ==> ; (SB!C::%INSTANCE-TYPEP #:OBJECT57734 'SB!KERNEL:PARSE-UNKNOWN-TYPE) ; ; caught STYLE-WARNING: ; undefined function: CLASSOID-CELL-TYPEP ; in: DEFUN SIMPLIFY-ARRAY-UNIONS ; (DEFUN SB!KERNEL::SIMPLIFY-ARRAY-UNIONS ; (SB!KERNEL::INPUT &OPTIONAL SB!KERNEL::FOR-TYPEP) ; (LET* ((SB!KERNEL::ARRAY-PROPS ; SB!VM:*SPECIALIZED-ARRAY-ELEMENT-TYPE-PROPERTIES*) ; (SB!KERNEL::TYPES ; (IF # ; SB!KERNEL::INPUT ; #)) ; (SB!KERNEL::FULL-MASK (1- #)) ; SB!KERNEL::BUCKETS ; SB!KERNEL::OUTPUT) ; (WHEN ; (IF SB!KERNEL::FOR-TYPEP ; (< # #) ; (< # #)) ; (RETURN-FROM SB!KERNEL::SIMPLIFY-ARRAY-UNIONS SB!KERNEL::INPUT)) ; (FLET ((SB!KERNEL::BUCKET-MATCH-P # ; #) ; (SB!KERNEL::SAETP-INDEX # ; #) ; (SB!KERNEL::WILD # ; #)) ; (DOLIST (TYPE SB!KERNEL::TYPES) ; (SB!INT:BINDING* # ; # ; #)) ; (COND (SB!KERNEL::FOR-TYPEP #) (# #) (T SB!KERNEL::INPUT))))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!KERNEL::INPUT SB!KERNEL::FOR-TYPEP) {CB782C9}> ; SB!KERNEL::INPUT 'NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN SB-XC:UPGRADED-COMPLEX-PART-TYPE ; (DEFUN SB-XC:UPGRADED-COMPLEX-PART-TYPE ; (SB!KERNEL::SPEC &OPTIONAL SB!KERNEL::ENVIRONMENT) ; "Return the element type of the most specialized COMPLEX number type that ; can hold parts of type SPEC." ; (DECLARE (IGNORE SB!KERNEL::ENVIRONMENT)) ; (LET ((TYPE (SB!KERNEL:SPECIFIER-TYPE SB!KERNEL::SPEC))) ; (COND ((EQ TYPE SB!KERNEL:*EMPTY-TYPE*) NIL) ; ((SB!KERNEL:UNKNOWN-TYPE-P TYPE) ; (ERROR "undefined type: ~S" SB!KERNEL::SPEC)) ; (T ; (LET # ; #))))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!KERNEL::SPEC SB!KERNEL::ENVIRONMENT) {CA19251}> ; SB!KERNEL::SPEC 'NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN SB-XC:UPGRADED-ARRAY-ELEMENT-TYPE ; (DEFUN SB-XC:UPGRADED-ARRAY-ELEMENT-TYPE ; (SB!KERNEL::SPEC &OPTIONAL SB!KERNEL::ENVIRONMENT) ; "Return the element type that will actually be used to implement an array ; with the specifier :ELEMENT-TYPE Spec." ; (DECLARE (IGNORE SB!KERNEL::ENVIRONMENT)) ; (HANDLER-CASE ; (LET ((TYPE #)) ; (IF (SB!KERNEL:CONTAINS-UNKNOWN-TYPE-P TYPE) ; (ERROR "Undefined type: ~S" SB!KERNEL::SPEC) ; (SB!KERNEL:TYPE-SPECIFIER #))) ; (SB!KERNEL:PARSE-UNKNOWN-TYPE (SB!KERNEL::C) ; (ERROR "Undefined type: ~S" ; (SB!KERNEL:PARSE-UNKNOWN-TYPE-SPECIFIER SB!KERNEL::C))))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!KERNEL::SPEC SB!KERNEL::ENVIRONMENT) {C90DCD9}> ; SB!KERNEL::SPEC 'NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 14 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/vm-type.lisp ; in: DEFUN SIMPLIFY-ARRAY-UNIONS ; (SB!INT:QUASIQUOTE ; (AND ; #S(SB!IMPL::COMMA ; :EXPR (SB!KERNEL:TYPE-SPECIFIER (SB!KERNEL::WILD TYPE)) ; :KIND 0) ; #S(SB!IMPL::COMMA :EXPR (MAPCAR (LAMBDA # #) SB!KERNEL::EXCLUDE) :KIND 2))) ; --> SB!IMPL::|List*| MAPCAR LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; ; compilation unit finished ; Undefined types: ; CODE-DELETION-NOTE COMPILER-NOTE ; Undefined function: ; CLASSOID-CELL-TYPEP ; caught 6 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/generic/vm-type.lisp-obj-tmp written ; compilation finished in 0:00:00.202 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/proclaim.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFVAR *UNDEFINED-WARNINGS*) ; x-compiling (DECLAIM (LIST *UNDEFINED-WARNINGS*)) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN GET-OLD-VARS ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN PROCESS-OPTIMIZE-DECL ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN PROCESS-HANDLE-CONDITIONS-DECL ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN PROCESS-MUFFLE-CONDITIONS-DECL ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN PROCESS-UNHANDLE-CONDITIONS-DECL ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN PROCESS-UNMUFFLE-CONDITIONS-DECL ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN PROCESS-PACKAGE-LOCK-DECL ...) ; x-compiling (!DEFVAR *QUEUED-PROCLAIMS* ...) ; x-compiling (DEFUN PROCESS-VARIABLE-DECLARATION ...) ; x-compiling (DEFUN PROCLAIM-TYPE ...) ; x-compiling (DEFUN PROCLAIM-FTYPE ...) ; x-compiling (DEFUN SEAL-CLASS ...) ; x-compiling (DEFUN PROCESS-FREEZE-TYPE-DECLARATION ...) ; x-compiling (DEFUN PROCESS-INLINE-DECLARATION ...) ; x-compiling (DEFUN PROCESS-DECLARATION-DECLARATION ...) ; x-compiling (DEFUN CANONIZED-DECL-SPEC ...) ; x-compiling (DEFUN SB-XC:PROCLAIM ...) ; x-compiling (DEFUN ADVISE-IF-REPEATED-OPTIMIZE-QUALITIES ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/proclaim.lisp ; in: DEFUN SEAL-CLASS ; (SB!INT:DOHASH ((SB!C::SUBCLASS SB!KERNEL:LAYOUT) SB!C::SUBCLASSES :LOCKED T) ; (DECLARE (IGNORE SB!KERNEL:LAYOUT)) ; (SETF (SB!KERNEL:CLASSOID-STATE SB!C::SUBCLASS) :SEALED)) ; --> LET SB!INT:WITH-LOCKED-SYSTEM-TABLE SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK ; --> SB!INT:DX-FLET FLET ; ==> ; (SB!THREAD::CALL-WITH-RECURSIVE-SYSTEM-LOCK ; #'SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK-THUNK ; (SB!IMPL::HASH-TABLE-LOCK #:N-TABLE-291)) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD::CALL-WITH-RECURSIVE-SYSTEM-LOCK ; in: DEFUN CANONIZED-DECL-SPEC ; (TYPEP SB!C::ID 'CLASS) ; ; caught STYLE-WARNING: ; undefined type: CLASS ; in: DEFUN PROCESS-OPTIMIZE-DECL ; (DEFUN SB!C::PROCESS-OPTIMIZE-DECL (SB!C::SPEC SB!C:POLICY) ; (LET ((SB!C::RESULT NIL) (SB!C::SPECIFIED-QUALITIES)) ; (DOLIST (SB!C::Q-AND-V-OR-JUST-Q (CDR SB!C::SPEC)) ; (MULTIPLE-VALUE-BIND (SB!C::QUALITY SB!C::RAW-VALUE) ; (IF # ; # ; #) ; (COND # # #))) ; (DOLIST (SB!C::OLD-ENTRY SB!C:POLICY) ; (UNLESS (SB!INT:ASSQ # SB!C::RESULT) ; (PUSH SB!C::OLD-ENTRY SB!C::RESULT))) ; (VALUES (SB!C::SORT-POLICY SB!C::RESULT) SB!C::SPECIFIED-QUALITIES))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:G37 #:G38 #:G39) {DB33329}> ; #:G37 #:G38 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; (MEMBER SB!C::QUALITY SB!C::RESULT :KEY #'CAR) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; (MULTIPLE-VALUE-BIND (SB!C::QUALITY SB!C::RAW-VALUE) ; (IF (ATOM SB!C::Q-AND-V-OR-JUST-Q) ; (VALUES SB!C::Q-AND-V-OR-JUST-Q 3) ; (DESTRUCTURING-BIND ; (SB!C::QUALITY SB!C::RAW-VALUE) ; SB!C::Q-AND-V-OR-JUST-Q ; (VALUES SB!C::QUALITY SB!C::RAW-VALUE))) ; (COND ; ((NOT (SB!C::POLICY-QUALITY-NAME-P SB!C::QUALITY)) ; (OR (SB!C::POLICY-QUALITY-DEPRECATION-WARNING SB!C::QUALITY) ; (SB!C:COMPILER-WARN ; "~@" ; SB!C::QUALITY SB!C::SPEC))) ; ((NOT (TYPEP SB!C::RAW-VALUE 'SB!C::POLICY-QUALITY)) ; (SB!C:COMPILER-WARN "~@" ; SB!C::RAW-VALUE SB!C::SPEC)) ; (T ; (LET* (# #) ; (PUSH SB!C::PAIR SB!C::SPECIFIED-QUALITIES) ; (IF SB!C::FOUND ; # ; #))))) ; --> MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!C::QUALITY SB!C::RAW-VALUE #:G5) {DAD7711}> ; SB!C::QUALITY SB!C::RAW-VALUE NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 33 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/proclaim.lisp ; in: DEFUN PROCESS-UNMUFFLE-CONDITIONS-DECL ; (MAPCAR (LAMBDA (SB!C::X) (LIST SB!C::X 'MUFFLE-WARNING)) (CDR SB!C::SPEC)) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN PROCESS-MUFFLE-CONDITIONS-DECL ; (MAPCAR (LAMBDA (SB!C::X) (LIST SB!C::X 'MUFFLE-WARNING)) (CDR SB!C::SPEC)) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN SEAL-CLASS ; (SB!INT:DOHASH ((SB!C::SUBCLASS SB!KERNEL:LAYOUT) SB!C::SUBCLASSES :LOCKED T) ; (DECLARE (IGNORE SB!KERNEL:LAYOUT)) ; (SETF (SB!KERNEL:CLASSOID-STATE SB!C::SUBCLASS) :SEALED)) ; --> LET SB!INT:WITH-LOCKED-SYSTEM-TABLE SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK ; --> SB!INT:DX-FLET FLET SB!THREAD::CALL-WITH-RECURSIVE-SYSTEM-LOCK ; ==> ; (SB!IMPL::HASH-TABLE-LOCK #:N-TABLE-291) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::HASH-TABLE-LOCK ; --> LET SB!INT:WITH-LOCKED-SYSTEM-TABLE SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK ; --> SB!INT:DX-FLET FLET BLOCK WITH-HASH-TABLE-ITERATOR LET LET* LENGTH ; ==> ; (SB!IMPL::HASH-TABLE-NEXT-VECTOR SB!IMPL::TABLE) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::HASH-TABLE-NEXT-VECTOR ; --> LET SB!INT:WITH-LOCKED-SYSTEM-TABLE SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK ; --> SB!INT:DX-FLET FLET BLOCK WITH-HASH-TABLE-ITERATOR LET LET* LABELS BLOCK ; --> LET ; ==> ; (SB!IMPL::HASH-TABLE-TABLE SB!IMPL::TABLE) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::HASH-TABLE-TABLE ; in: DEFUN SB-XC:PROCLAIM ; (SB!INT:/HEXSTR SB!C::RAW-FORM) ; --> SB!SYS:%PRIMITIVE SB!C::%%PRIMITIVE ; ==> ; (SB!INT:HEXSTR SB!C::RAW-FORM) ; ; caught STYLE-WARNING: ; undefined function: HEXSTR ; in: DEFUN PROCESS-INLINE-DECLARATION ; (SB!C::WARN-IF-INLINE-FAILED/PROCLAIM SB!C::NAME SB!C::NEWVAL) ; ; caught STYLE-WARNING: ; undefined function: WARN-IF-INLINE-FAILED/PROCLAIM ; ; compilation unit finished ; Undefined types: ; CLASS CODE-DELETION-NOTE COMPILER-NOTE ; Undefined functions: ; SB!THREAD::CALL-WITH-RECURSIVE-SYSTEM-LOCK SB!IMPL::HASH-TABLE-LOCK SB!IMPL::HASH-TABLE-NEXT-VECTOR SB!IMPL::HASH-TABLE-TABLE HEXSTR WARN-IF-INLINE-FAILED/PROCLAIM ; caught 13 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/proclaim.lisp-obj-tmp written ; compilation finished in 0:00:00.184 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/class-init.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (/SHOW0 "beginning class-init.lisp") ; x-compiling (DOLIST (X *!BUILT-IN-CLASSES*) ...) ; x-compiling (/SHOW0 "done with class-init.lisp") ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/class-init.lisp ; in: DOLIST (X *!BUILT-IN-CLASSES*) ; (SETF (SB!KERNEL:BUILT-IN-CLASSOID-TRANSLATION SB!KERNEL:CLASSOID) TYPE) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL SB!C::%FUNCALL ; --> (SETF SB!KERNEL:BUILT-IN-CLASSOID-TRANSLATION) LET ; --> SB!KERNEL:%INSTANCE-SET THE MULTIPLE-VALUE-BIND LET UNLESS IF TYPEP LET ; --> SB!C::%TYPEP-WRAPPER LET OR LET IF OR THE TYPEP LET SB!C::%TYPEP-WRAPPER ; --> IF ; ==> ; (MEMBER #:OBJECT58037 '(NIL :INITIALIZING)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; (DESTRUCTURING-BIND ; (SB!KERNEL::NAME ; &KEY (SB!KERNEL::TRANSLATION NIL SB!KERNEL::TRANS-P) &ALLOW-OTHER-KEYS) ; SB!KERNEL::X ; (SB!INT:/SHOW0 "doing class with NAME=..") ; (SB!INT:/PRIMITIVE-PRINT (SYMBOL-NAME SB!KERNEL::NAME)) ; (WHEN SB!KERNEL::TRANS-P ; (SB!INT:/SHOW0 "in TRANS-P case") ; (LET ((SB!KERNEL:CLASSOID #) (TYPE #)) ; (SETF # TYPE) ; (SETF # TYPE)))) ; --> LET LET* MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:PROBLEM1 #:INFO2 #:G3) {BD97521}> ; #:PROBLEM1 #:INFO2 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; compilation unit finished ; Undefined type: ; CODE-DELETION-NOTE ; caught 2 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/class-init.lisp-obj-tmp written ; compilation finished in 0:00:00.019 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/defstruct.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (/SHOW0 "code/defstruct.lisp 15") ; x-compiling (DEFUN COMPILER-LAYOUT-OR-LOSE ...) ; x-compiling (DEFUN COMPILER-LAYOUT-READY-P ...) ; x-compiling (SB-XC:DEFMACRO %MAKE-STRUCTURE-INSTANCE-MACRO ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN %MAKE-STRUCTURE-INSTANCE-ALLOCATOR ...) ; x-compiling (DEFUN %MAKE-FUNCALLABLE-STRUCTURE-INSTANCE-ALLOCATOR ...) ; x-compiling (SB-XC:DEFMACRO %DELAYED-GET-COMPILER-LAYOUT ...) ; x-compiling (DEF!STRUCT (DEFSTRUCT-DESCRIPTION # ...) ...) ; x-compiling (DECLAIM (FREEZE-TYPE DEFSTRUCT-DESCRIPTION)) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFUN DD-CLASS-P ...) ; x-compiling (DEFUN DD-LAYOUT-OR-LOSE ...) ; x-compiling (DEF!STRUCT (DEFSTRUCT-SLOT-DESCRIPTION # ...) ...) ; x-compiling (DECLAIM (FREEZE-TYPE DEFSTRUCT-SLOT-DESCRIPTION)) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFUN DD-LISP-TYPE ...) ; x-compiling (SB-XC:DEFMACRO DELAY-DEFSTRUCT-FUNCTIONS ...) ; x-compiling (DEFUN %EXPANDER-FOR-DEFSTRUCT ...) ; x-compiling (SB-XC:DEFMACRO DEFSTRUCT ...) ; x-compiling (DEFUN ACCESSOR-INHERITED-DATA ...) ; x-compiling (DEFUN TYPED-PREDICATE-DEFINITIONS ...) ; x-compiling (DEFUN TYPED-COPIER-DEFINITIONS ...) ; x-compiling (DEFUN TYPED-ACCESSOR-DEFINITIONS ...) ; x-compiling (DEFCONSTANT-EQX +DD-OPTION-NAMES+ ...) ; x-compiling (DEFUN PARSE-1-DD-OPTION ...) ; x-compiling (DEFUN PARSE-DEFSTRUCT-NAME-AND-OPTIONS ...) ; x-compiling (DEFUN DETERMINE-UNSAFE-SLOTS ...) ; x-compiling (DEFUN PARSE-DEFSTRUCT-NAME-AND-OPTIONS-AND-SLOT-DESCRIPTIONS ...) ; x-compiling (DEFUN PARSE-1-DSD ...) ; x-compiling (DEFUN STRUCTURE-RAW-SLOT-DATA ...) ; x-compiling (DEFUN ALLOCATE-1-SLOT ...) ; x-compiling (DEFUN TYPED-STRUCTURE-INFO-OR-LOSE ...) ; x-compiling (DEFUN FROB-DD-INCLUSION-STUFF ...) ; x-compiling (DEFUN INHERITS-FOR-STRUCTURE ...) ; x-compiling (DEFUN %DEFSTRUCT ...) ; x-compiling (DEFUN %ACCESSOR-PLACE-FORM ...) ; x-compiling (DEFUN SLOT-ACCESS-TRANSFORM ...) ; x-compiling (DEFUN SLOT-SETTER-LAMBDA-FORM ...) ; x-compiling (DEFUN UNDECLARE-STRUCTURE ...) ; x-compiling (DEFUN %COMPILER-SET-UP-LAYOUT ...) ; x-compiling (DEFUN %COMPILER-DEFSTRUCT ...) ; x-compiling (DEFUN COMPARE-SLOTS ...) ; x-compiling (DEFUN REDEFINE-STRUCTURE-WARNING ...) ; x-compiling (DEFUN %REDEFINE-DEFSTRUCT ...) ; x-compiling (DECLAIM (INLINE DD-LAYOUT-LENGTH)) ; x-compiling (DEFUN DD-LAYOUT-LENGTH ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN DD-INSTANCE-LENGTH ...) ; x-compiling (DEFUN DD-BITMAP ...) ; x-compiling (DEFUN ENSURE-STRUCTURE-CLASS ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/defstruct.lisp ; in: DEFUN ENSURE-STRUCTURE-CLASS ; (VALUES CLASS SB!KERNEL::NEW-LAYOUT SB!KERNEL::OLD-LAYOUT) ; ==> ; CLASS ; ; note: deleting unreachable code ; x-compiling (DEFUN FIND-NAME-INDICES ...) ; x-compiling (DEFUN CREATE-VECTOR-CONSTRUCTOR ...) ; x-compiling (DEFUN CREATE-LIST-CONSTRUCTOR ...) ; x-compiling (DEFUN CREATE-STRUCTURE-CONSTRUCTOR ...) ; x-compiling (DEFUN CREATE-KEYWORD-CONSTRUCTOR ...) ; x-compiling (DEFUN CREATE-BOA-CONSTRUCTOR ...) ; x-compiling (DEFUN CONSTRUCTOR-DEFINITIONS ...) ; x-compiling (DEFUN ACCESSOR-DEFINITIONS ...) ; x-compiling (DEFUN COPIER-DEFINITION ...) ; x-compiling (DEFUN PREDICATE-DEFINITION ...) ; x-compiling (DEFUN MAKE-DD-WITH-ALTERNATE-METACLASS ...) ; x-compiling (SB-XC:PROCLAIM (QUOTE #)) ; x-compiling (SB-XC:DEFMACRO !DEFSTRUCT-WITH-ALTERNATE-METACLASS ...) ; x-compiling (DEFUN !SET-UP-STRUCTURE-OBJECT-CLASS ...) ; x-compiling (DOLIST (ARGS #) ...) ; x-compiling (DEFUN FIND-DEFSTRUCT-DESCRIPTION ...) ; x-compiling (/SHOW0 "code/defstruct.lisp end of file") ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/defstruct.lisp ; in: ; DEF!STRUCT (DEFSTRUCT-SLOT-DESCRIPTION ; (:MAKE-LOAD-FORM-FUN JUST-DUMP-IT-NORMALLY) (:CONC-NAME DSD-) ; (:COPIER NIL) (:PURE T)) ; (SB!INT:DEF!STRUCT ; (SB!KERNEL:DEFSTRUCT-SLOT-DESCRIPTION ; (:MAKE-LOAD-FORM-FUN SB!KERNEL:JUST-DUMP-IT-NORMALLY) ; (:CONC-NAME SB!KERNEL::DSD-) (:COPIER NIL) (:PURE T)) ; SB!KERNEL::NAME (SB!INT:INDEX (SB!INT:MISSING-ARG) :TYPE FIXNUM) ; (SB!KERNEL::ACCESSOR-NAME NIL :TYPE SYMBOL) SB!KERNEL::DEFAULT (TYPE T) ; (SB!KERNEL::SAFE-P T :TYPE BOOLEAN) ; (SB!KERNEL::RAW-TYPE T :TYPE ; (MEMBER T SINGLE-FLOAT DOUBLE-FLOAT SB!KERNEL::COMPLEX-SINGLE-FLOAT ; SB!KERNEL::COMPLEX-DOUBLE-FLOAT SB!EXT:WORD)) ; (SB!KERNEL::READ-ONLY NIL :TYPE (MEMBER T NIL))) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: %TARGET-DEFSTRUCT ; in: ; DEF!STRUCT (DEFSTRUCT-DESCRIPTION (:CONC-NAME DD-) ; (:MAKE-LOAD-FORM-FUN JUST-DUMP-IT-NORMALLY) (:PURE T) ; (:CONSTRUCTOR MAKE-DEFSTRUCT-DESCRIPTION (NAME))) ; (SB!INT:DEF!STRUCT ; (SB!KERNEL:DEFSTRUCT-DESCRIPTION (:CONC-NAME SB!KERNEL::DD-) ; (:MAKE-LOAD-FORM-FUN SB!KERNEL:JUST-DUMP-IT-NORMALLY) (:PURE T) ; (:CONSTRUCTOR SB!KERNEL::MAKE-DEFSTRUCT-DESCRIPTION (SB!KERNEL::NAME))) ; (SB!KERNEL::NAME (SB!INT:MISSING-ARG) :TYPE SYMBOL :READ-ONLY T) ; (SB!KERNEL::DOC NIL :TYPE (OR STRING NULL)) ; (SB!KERNEL::CONC-NAME NIL :TYPE (OR STRING NULL)) ; (SB!KERNEL::DEFAULT-CONSTRUCTOR NIL :TYPE SYMBOL) ; (SB!KERNEL::CONSTRUCTORS NIL :TYPE LIST) ; (SB!KERNEL::COPIER-NAME NIL :TYPE SYMBOL) ; (SB!KERNEL::PREDICATE-NAME NIL :TYPE SYMBOL) ; (SB!KERNEL::INCLUDE NIL :TYPE LIST) ; (SB!KERNEL::ALTERNATE-METACLASS NIL :TYPE LIST) ; (SB!KERNEL::SLOTS NIL :TYPE LIST) ...) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL::%TARGET-DEFSTRUCT ; ==> ; (SB!KERNEL::%TARGET-DEFSTRUCT ; '#) ; ; caught STYLE-WARNING: ; undefined function: %TARGET-DEFSTRUCT ; in: DEFUN UNDECLARE-STRUCTURE ; (SB!INT:DOHASH ((SB!KERNEL:CLASSOID SB!KERNEL:LAYOUT) SB!KERNEL::SUBCLASSES ; :LOCKED T) ; (DECLARE (IGNORE SB!KERNEL:LAYOUT)) ; (SB!KERNEL:UNDECLARE-STRUCTURE SB!KERNEL:CLASSOID NIL) ; (SB!KERNEL::SUBS (SB!KERNEL:CLASSOID-PROPER-NAME SB!KERNEL:CLASSOID))) ; --> LET SB!INT:WITH-LOCKED-SYSTEM-TABLE SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK ; --> SB!INT:DX-FLET FLET ; ==> ; (SB!THREAD::CALL-WITH-RECURSIVE-SYSTEM-LOCK ; #'SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK-THUNK ; (SB!IMPL::HASH-TABLE-LOCK #:N-TABLE-1814)) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD::CALL-WITH-RECURSIVE-SYSTEM-LOCK ; in: SB-XC:DEFMACRO %DELAYED-GET-COMPILER-LAYOUT ; (SB!INT:INFO :TYPE :COMPILER-LAYOUT SB!KERNEL::NAME) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:VALUE80 #:FOUNDP81 #:G82) {C137B91}> ; #:VALUE80 #:FOUNDP81 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN COMPILER-LAYOUT-READY-P ; (SB!INT:INFO :TYPE :COMPILER-LAYOUT SB!KERNEL::NAME) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:VALUE7 #:FOUNDP8 #:G9) {BF334F1}> ; #:VALUE7 #:FOUNDP8 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN COMPILER-LAYOUT-OR-LOSE ; (SB!INT:INFO :TYPE :COMPILER-LAYOUT SB!KERNEL::NAME) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:VALUE0 #:FOUNDP1 #:G2) {BEFC919}> ; #:VALUE0 #:FOUNDP1 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 497 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/defstruct.lisp ; in: DEFUN COMPARE-SLOTS ; (MAPCAR #'SB!KERNEL:DSD-NAME SB!KERNEL::OSLOTS) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; (MAPCAR #'SB!KERNEL:DSD-NAME SB!KERNEL::NSLOTS) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN PARSE-DEFSTRUCT-NAME-AND-OPTIONS ; (CONCATENATE 'STRING (STRING SB!KERNEL::NAME) "-") ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; ; caught STYLE-WARNING: ; 182 more uses of undefined type COMPILER-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/defstruct.lisp ; in: DEFUN UNDECLARE-STRUCTURE ; (SB!INT:DOHASH ((SB!KERNEL:CLASSOID SB!KERNEL:LAYOUT) SB!KERNEL::SUBCLASSES ; :LOCKED T) ; (DECLARE (IGNORE SB!KERNEL:LAYOUT)) ; (SB!KERNEL:UNDECLARE-STRUCTURE SB!KERNEL:CLASSOID NIL) ; (SB!KERNEL::SUBS (SB!KERNEL:CLASSOID-PROPER-NAME SB!KERNEL:CLASSOID))) ; --> LET SB!INT:WITH-LOCKED-SYSTEM-TABLE SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK ; --> SB!INT:DX-FLET FLET SB!THREAD::CALL-WITH-RECURSIVE-SYSTEM-LOCK ; ==> ; (SB!IMPL::HASH-TABLE-LOCK #:N-TABLE-1814) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::HASH-TABLE-LOCK ; --> LET SB!INT:WITH-LOCKED-SYSTEM-TABLE SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK ; --> SB!INT:DX-FLET FLET BLOCK WITH-HASH-TABLE-ITERATOR LET LET* LENGTH ; ==> ; (SB!IMPL::HASH-TABLE-NEXT-VECTOR SB!IMPL::TABLE) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::HASH-TABLE-NEXT-VECTOR ; --> LET SB!INT:WITH-LOCKED-SYSTEM-TABLE SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK ; --> SB!INT:DX-FLET FLET BLOCK WITH-HASH-TABLE-ITERATOR LET LET* LABELS BLOCK ; --> LET ; ==> ; (SB!IMPL::HASH-TABLE-TABLE SB!IMPL::TABLE) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::HASH-TABLE-TABLE ; ; compilation unit finished ; Undefined types: ; CODE-DELETION-NOTE COMPILER-NOTE ; Undefined functions: ; %TARGET-DEFSTRUCT SB!THREAD::CALL-WITH-RECURSIVE-SYSTEM-LOCK SB!IMPL::HASH-TABLE-LOCK SB!IMPL::HASH-TABLE-NEXT-VECTOR SB!IMPL::HASH-TABLE-TABLE ; caught 14 STYLE-WARNING conditions ; printed 1 note ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/defstruct.lisp-obj-tmp written ; compilation finished in 0:00:01.519 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-defstruct.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (/SHOW0 "target-defstruct.lisp 12") ; x-compiling (DEFUN %MAKE-INSTANCE ...) ; x-compiling (DEFUN %INSTANCE-LENGTH ...) ; x-compiling (DEFUN %INSTANCE-REF ...) ; x-compiling (DEFUN %INSTANCE-SET ...) ; x-compiling (DEFUN %MAKE-STRUCTURE-INSTANCE ...) ; x-compiling (DEFUN %RAW-INSTANCE-REF/WORD ...) ; x-compiling (DEFUN %RAW-INSTANCE-SET/WORD ...) ; x-compiling (DEFUN %RAW-INSTANCE-REF/SINGLE ...) ; x-compiling (DEFUN %RAW-INSTANCE-SET/SINGLE ...) ; x-compiling (DEFUN %RAW-INSTANCE-REF/DOUBLE ...) ; x-compiling (DEFUN %RAW-INSTANCE-SET/DOUBLE ...) ; x-compiling (DEFUN %RAW-INSTANCE-REF/COMPLEX-SINGLE ...) ; x-compiling (DEFUN %RAW-INSTANCE-SET/COMPLEX-SINGLE ...) ; x-compiling (DEFUN %RAW-INSTANCE-REF/COMPLEX-DOUBLE ...) ; x-compiling (DEFUN %RAW-INSTANCE-SET/COMPLEX-DOUBLE ...) ; x-compiling (DEFUN %INSTANCE-LAYOUT ...) ; x-compiling (DEFUN %SET-INSTANCE-LAYOUT ...) ; x-compiling (DEFUN %MAKE-FUNCALLABLE-INSTANCE ...) ; x-compiling (DEFUN FUNCALLABLE-INSTANCE-P ...) ; x-compiling (DEFTYPE FUNCALLABLE-INSTANCE ...) ; x-compiling (DEFUN %FUNCALLABLE-INSTANCE-INFO ...) ; x-compiling (DEFUN %SET-FUNCALLABLE-INSTANCE-INFO ...) ; x-compiling (DEFUN FUNCALLABLE-INSTANCE-FUN ...) ; x-compiling (DEFUN (SETF FUNCALLABLE-INSTANCE-FUN) ...) ; x-compiling (!DEFVAR *DEFSTRUCT-HOOKS* ...) ; x-compiling (DEFUN %TARGET-DEFSTRUCT ...) ; x-compiling (DEFUN COPY-STRUCTURE ...) ; x-compiling (DEFUN RAW-INSTANCE-SLOTS-EQUALP ...) ; x-compiling (DEFUN %DEFAULT-STRUCTURE-PRETTY-PRINT ...) ; x-compiling (DEFUN %DEFAULT-STRUCTURE-UGLY-PRINT ...) ; x-compiling (DEFUN DEFAULT-STRUCTURE-PRINT ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFUN STRUCTURE-OBJ-SLOT-SAVING-FORMS ...) ; x-compiling (DEFUN CANONICAL-SLOT-SAVING-FORMS-P ...) ; x-compiling (/SHOW0 "target-defstruct.lisp end of file") ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-defstruct.lisp ; in: DEFUN CANONICAL-SLOT-SAVING-FORMS-P ; (SB!C::CANONICAL-INSTANCE-MAKER-FORM-P SB!KERNEL::CREATION-FORM) ; ; caught STYLE-WARNING: ; undefined function: SB!C::CANONICAL-INSTANCE-MAKER-FORM-P ; (CLASS-NAME (CLASS-OF SB!ALIEN:STRUCT)) ; ; caught STYLE-WARNING: ; undefined function: CLASS-NAME ; (CLASS-OF SB!ALIEN:STRUCT) ; ; caught STYLE-WARNING: ; undefined function: CLASS-OF ; in: DEFUN STRUCTURE-OBJ-SLOT-SAVING-FORMS ; (SB!INT:QUASIQUOTE ; ((SB!KERNEL:%INSTANCE-REF #S(SB!IMPL::COMMA :EXPR SB!ALIEN:STRUCT :KIND 0) ; #S(SB!IMPL::COMMA :EXPR SB!INT:INDEX :KIND 0)) ; #S(SB!IMPL::COMMA ; :EXPR (LET (#) ; (IF # ; # ; SB!KERNEL::VAL)) ; :KIND 0))) ; --> SB!IMPL::|List| LET IF AND IF AND THE NOT IF ; ==> ; (MEMBER SB!KERNEL::VAL '(NIL T)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN %MAKE-STRUCTURE-INSTANCE ; (DEFUN SB!KERNEL:%MAKE-STRUCTURE-INSTANCE ; (SB!KERNEL::DD SB!KERNEL::SLOT-SPECS &REST SB!KERNEL::SLOT-VALUES) ; (LET ((SB!KERNEL:INSTANCE (SB!KERNEL:%MAKE-INSTANCE #))) ; (SETF (SB!KERNEL:%INSTANCE-LAYOUT SB!KERNEL:INSTANCE) ; (SB!KERNEL::DD-LAYOUT-OR-LOSE SB!KERNEL::DD)) ; (MAPC ; (LAMBDA (SB!KERNEL::SPEC SB!KERNEL::VALUE) (DESTRUCTURING-BIND # # #)) ; SB!KERNEL::SLOT-SPECS SB!KERNEL::SLOT-VALUES) ; SB!KERNEL:INSTANCE)) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!KERNEL::DD SB!KERNEL::SLOT-SPECS SB!KERNEL::SLOT-VALUES ; #:REST-CONTEXT-16 #:REST-COUNT-17) ; {C713999}> ; SB!KERNEL::DD SB!KERNEL::SLOT-SPECS NIL NIL 0)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN STRUCTURE-OBJ-SLOT-SAVING-FORMS ; (MAPCAN ; (LAMBDA (SB!KERNEL::DSD) ; (WHEN ; (OR (NOT SB!KERNEL::SLOT-NAMES-P) ; (SB!INT:MEMQ # SB!KERNEL::SLOT-NAMES)) ; (LET (# #) ; (IF # ; # ; #)))) ; (SB!KERNEL:DD-SLOTS SB!KERNEL::DD)) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; ; compilation unit finished ; Undefined types: ; CODE-DELETION-NOTE COMPILER-NOTE ; Undefined functions: ; SB!C::CANONICAL-INSTANCE-MAKER-FORM-P CLASS-NAME CLASS-OF ; caught 6 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/target-defstruct.lisp-obj-tmp written ; compilation finished in 0:00:00.174 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/alien-type.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (/SHOW0 "code/alien-type.lisp 16") ; x-compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS) ; x-compiling (DEFSTRUCT (ALIEN-TYPE-TYPE # ...) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/alien-type.lisp ; in: DEFSTRUCT ALIEN-TYPE-TYPE ; (DEFSTRUCT ; (SB!KERNEL:ALIEN-TYPE-TYPE ; (:INCLUDE SB!KERNEL:CTYPE ; (SB!KERNEL::CLASS-INFO ; (SB!KERNEL::TYPE-CLASS-OR-LOSE 'SB!ALIEN:ALIEN))) ; (:CONSTRUCTOR SB!KERNEL::%MAKE-ALIEN-TYPE-TYPE ; (SB!ALIEN-INTERNALS:ALIEN-TYPE)) ; (:COPIER NIL)) ; (SB!ALIEN-INTERNALS:ALIEN-TYPE NIL :TYPE SB!ALIEN-INTERNALS:ALIEN-TYPE ; :READ-ONLY T)) ; --> PROGN EVAL-WHEN ; ==> ; (SB!KERNEL::%COMPILER-DEFSTRUCT ; '# ; '#(# ; # ; # ; #)) ; ; caught STYLE-WARNING: ; Previously compiled call to SB!KERNEL:ALIEN-TYPE-TYPE-ALIEN-TYPE could not be ; inlined because the structure definition for SB!KERNEL:ALIEN-TYPE-TYPE was not ; yet seen. To avoid this warning, DEFSTRUCT should precede references to the ; affected functions, or they must be declared locally notinline at each call ; site. ; x-compiling (!DEFINE-TYPE-CLASS ALIEN ...) ; x-compiling (!DEFINE-TYPE-METHOD (ALIEN :NEGATE) ...) ; x-compiling (!DEFINE-TYPE-METHOD (ALIEN :UNPARSE) ...) ; x-compiling (!DEFINE-TYPE-METHOD (ALIEN :SIMPLE-SUBTYPEP) ...) ; x-compiling (!DEFINE-SUPERCLASSES ALIEN ...) ; x-compiling (!DEFINE-TYPE-METHOD (ALIEN :SIMPLE-=) ...) ; x-compiling (!DEF-TYPE-TRANSLATOR ALIEN ...) ; x-compiling (DEFUN MAKE-ALIEN-TYPE-TYPE ...) ; x-compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !ALIEN-TYPE-COLD-INIT) ; x-compiling (/SHOW0 "code/alien-type.lisp end of file") ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/alien-type.lisp ; in: DEFUN MAKE-ALIEN-TYPE-TYPE ; (DEFUN SB!KERNEL:MAKE-ALIEN-TYPE-TYPE ; (&OPTIONAL SB!ALIEN-INTERNALS:ALIEN-TYPE) ; (IF SB!ALIEN-INTERNALS:ALIEN-TYPE ; (LET ((SB!KERNEL::LISP-REP-TYPE #)) ; (IF SB!KERNEL::LISP-REP-TYPE ; (SB!KERNEL:SINGLE-VALUE-SPECIFIER-TYPE SB!KERNEL::LISP-REP-TYPE) ; (SB!KERNEL::%MAKE-ALIEN-TYPE-TYPE ; SB!ALIEN-INTERNALS:ALIEN-TYPE))) ; SB!KERNEL:*UNIVERSAL-TYPE*)) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!ALIEN-INTERNALS:ALIEN-TYPE) {DE960F9}> ; 'NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFSTRUCT ALIEN-TYPE-TYPE ; (DEFSTRUCT ; (SB!KERNEL:ALIEN-TYPE-TYPE ; (:INCLUDE SB!KERNEL:CTYPE ; (SB!KERNEL::CLASS-INFO ; (SB!KERNEL::TYPE-CLASS-OR-LOSE 'SB!ALIEN:ALIEN))) ; (:CONSTRUCTOR SB!KERNEL::%MAKE-ALIEN-TYPE-TYPE ; (SB!ALIEN-INTERNALS:ALIEN-TYPE)) ; (:COPIER NIL)) ; (SB!ALIEN-INTERNALS:ALIEN-TYPE NIL :TYPE SB!ALIEN-INTERNALS:ALIEN-TYPE ; :READ-ONLY T)) ; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:NEXT4 #:START5 #:COUNT6 #:G7) {DBAF1C9}> ; #:NEXT4 #:START5 #:COUNT6 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: !DEFINE-SUPERCLASSES ALIEN ; (SB!KERNEL::!DEFINE-SUPERCLASSES SB!ALIEN:ALIEN ; ((SB!ALIEN-INTERNALS:ALIEN-VALUE)) PROGN) ; --> PROGN LET LET MAPCAR LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: !DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !ALIEN-TYPE-COLD-INIT ; (SB!INT:!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS SB!KERNEL:!ALIEN-TYPE-COLD-INIT) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK LET SB!INT:NAMED-LAMBDA FUNCTION BLOCK DESTRUCTURING-BIND ; --> LET LET* LET* TYPECASE LET COND IF COND IF COND THE PROGN ; --> SB!KERNEL:MAKE-ALIEN-TYPE-TYPE SB!ALIEN-INTERNALS:PARSE-ALIEN-TYPE ; ==> ; (SB!KERNEL:MAKE-NULL-LEXENV) ; ; caught STYLE-WARNING: ; undefined function: MAKE-NULL-LEXENV ; ; compilation unit finished ; Undefined types: ; CODE-DELETION-NOTE COMPILER-NOTE ; Undefined function: ; MAKE-NULL-LEXENV ; caught 5 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/alien-type.lisp-obj-tmp written ; compilation finished in 0:00:00.074 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/force-delayed-defbangstructs.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/force-delayed-defbangstructs.lisp-obj-tmp written ; compilation finished in 0:00:00.004 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-full-eval.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!EVAL") ; x-compiling (SB!INT:!DEFPARAMETER *EVAL-LEVEL* ...) ; x-compiling (SB!INT:!DEFPARAMETER *EVAL-VERBOSE* ...) ; x-compiling (!DEFSTRUCT-WITH-ALTERNATE-METACLASS INTERPRETED-FUNCTION ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-full-eval.lisp ; in: !DEFSTRUCT-WITH-ALTERNATE-METACLASS INTERPRETED-FUNCTION ; (SB!KERNEL:!DEFSTRUCT-WITH-ALTERNATE-METACLASS SB!EVAL:INTERPRETED-FUNCTION ; :SLOT-NAMES ; (SB!EVAL::NAME ; SB!EVAL::DEBUG-NAME ; SB!EVAL::LAMBDA-LIST ; SB!EVAL::DEBUG-LAMBDA-LIST ; SB!EVAL::ENV ; SB!EVAL::DECLARATIONS ; DOCUMENTATION SB!EVAL::BODY ; SB!EVAL::SOURCE-LOCATION) ; :BOA-CONSTRUCTOR ; SB!EVAL::%MAKE-INTERPRETED-FUNCTION ; :SUPERCLASS-NAME FUNCTION ; :METACLASS-NAME ; SB!KERNEL:STATIC-CLASSOID ; :METACLASS-CONSTRUCTOR ; SB!KERNEL:MAKE-STATIC-CLASSOID ; ...) ; --> PROGN DECLAIM EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM ; '(INLINE SB!EVAL:INTERPRETED-FUNCTION-NAME ; SB!EVAL:INTERPRETED-FUNCTION-DEBUG-NAME ; SB!EVAL:INTERPRETED-FUNCTION-LAMBDA-LIST ; SB!EVAL:INTERPRETED-FUNCTION-DEBUG-LAMBDA-LIST ; SB!EVAL::INTERPRETED-FUNCTION-ENV ; SB!EVAL:INTERPRETED-FUNCTION-DECLARATIONS ; SB!EVAL:INTERPRETED-FUNCTION-DOCUMENTATION ; SB!EVAL:INTERPRETED-FUNCTION-BODY ; SB!EVAL:INTERPRETED-FUNCTION-SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; Proclaiming SB!EVAL:INTERPRETED-FUNCTION-DEBUG-NAME to be INLINE, but 1 call to ; it was previously compiled. A declaration of NOTINLINE at the call site will ; eliminate this warning, as will proclaiming and defining the function before ; its first potential use. ; ; caught STYLE-WARNING: ; Proclaiming SB!EVAL:INTERPRETED-FUNCTION-DEBUG-LAMBDA-LIST to be INLINE, but 1 ; call to it was previously compiled. A declaration of NOTINLINE at the call site ; will eliminate this warning, as will proclaiming and defining the function ; before its first potential use. ; ; caught STYLE-WARNING: ; Proclaiming SB!EVAL:INTERPRETED-FUNCTION-DOCUMENTATION to be INLINE, but 1 call ; to it was previously compiled. A declaration of NOTINLINE at the call site will ; eliminate this warning, as will proclaiming and defining the function before ; its first potential use. ; ; caught STYLE-WARNING: ; Proclaiming SB!EVAL:INTERPRETED-FUNCTION-SOURCE-LOCATION to be INLINE, but 1 ; call to it was previously compiled. A declaration of NOTINLINE at the call site ; will eliminate this warning, as will proclaiming and defining the function ; before its first potential use. ; ==> ; (SB-XC:PROCLAIM ; '(INLINE (SETF SB!EVAL:INTERPRETED-FUNCTION-NAME) ; (SETF SB!EVAL:INTERPRETED-FUNCTION-DEBUG-NAME) ; (SETF SB!EVAL:INTERPRETED-FUNCTION-LAMBDA-LIST) ; (SETF SB!EVAL:INTERPRETED-FUNCTION-DEBUG-LAMBDA-LIST) ; (SETF SB!EVAL::INTERPRETED-FUNCTION-ENV) ; (SETF SB!EVAL:INTERPRETED-FUNCTION-DECLARATIONS) ; (SETF SB!EVAL:INTERPRETED-FUNCTION-DOCUMENTATION) ; (SETF SB!EVAL:INTERPRETED-FUNCTION-BODY) ; (SETF SB!EVAL:INTERPRETED-FUNCTION-SOURCE-LOCATION))) ; ; caught STYLE-WARNING: ; Proclaiming (COMMON-LISP:SETF SB!EVAL:INTERPRETED-FUNCTION-DEBUG-NAME) to be ; INLINE, but 1 call to it was previously compiled. A declaration of NOTINLINE at ; the call site will eliminate this warning, as will proclaiming and defining the ; function before its first potential use. ; ; caught STYLE-WARNING: ; Proclaiming (COMMON-LISP:SETF SB!EVAL:INTERPRETED-FUNCTION-DEBUG-LAMBDA-LIST) ; to be INLINE, but 1 call to it was previously compiled. A declaration of ; NOTINLINE at the call site will eliminate this warning, as will proclaiming and ; defining the function before its first potential use. ; ; caught STYLE-WARNING: ; Proclaiming (COMMON-LISP:SETF SB!EVAL:INTERPRETED-FUNCTION-DOCUMENTATION) to be ; INLINE, but 1 call to it was previously compiled. A declaration of NOTINLINE at ; the call site will eliminate this warning, as will proclaiming and defining the ; function before its first potential use. ; x-compiling (DECLAIM (FREEZE-TYPE INTERPRETED-FUNCTION)) ; x-compiling (DEFUN MAKE-INTERPRETED-FUNCTION ...) ; x-compiling (DEFUN INTERPRETED-FUNCTION-P ...) ; x-compiling (SB!INT:DEF!METHOD PRINT-OBJECT ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-full-eval.lisp ; in: DEFUN MAKE-INTERPRETED-FUNCTION ; (DEFUN SB!EVAL::MAKE-INTERPRETED-FUNCTION ; (&KEY SB!EVAL::NAME SB!EVAL::LAMBDA-LIST SB!EVAL::ENV ; SB!EVAL::DECLARATIONS DOCUMENTATION SB!EVAL::BODY ; SB!EVAL::SOURCE-LOCATION) ; (LET ((FUNCTION ; (SB!EVAL::%MAKE-INTERPRETED-FUNCTION SB!EVAL::NAME SB!EVAL::NAME ; SB!EVAL::LAMBDA-LIST SB!EVAL::LAMBDA-LIST SB!EVAL::ENV ; SB!EVAL::DECLARATIONS DOCUMENTATION SB!EVAL::BODY ; SB!EVAL::SOURCE-LOCATION))) ; (SETF (SB!KERNEL:FUNCALLABLE-INSTANCE-FUN FUNCTION) #'(LAMBDA # #)) ; FUNCTION)) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:.DEFAULTING-TEMP. #:.DEFAULTING-TEMP. #:.DEFAULTING-TEMP. ; #:.DEFAULTING-TEMP. #:.DEFAULTING-TEMP. #:.DEFAULTING-TEMP. ; #:.DEFAULTING-TEMP.) ; {E8C2EF9}> ; NIL NIL NIL NIL NIL NIL NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; #'(LAMBDA (&REST SB!EVAL::ARGS) ; (SB!EVAL::INTERPRETED-APPLY FUNCTION SB!EVAL::ARGS)) ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!EVAL::ARGS #:REST-CONTEXT-98 #:REST-COUNT-99) {E8C6EA9}> ; NIL NIL 0)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; (SB!EVAL::INTERPRETED-APPLY FUNCTION SB!EVAL::ARGS) ; ; caught STYLE-WARNING: ; undefined function: INTERPRETED-APPLY ; ; compilation unit finished ; Undefined type: ; CODE-DELETION-NOTE ; Undefined function: ; INTERPRETED-APPLY ; caught 10 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/early-full-eval.lisp-obj-tmp written ; compilation finished in 0:00:00.048 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/typep.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (DEFUN TYPEP ...) ; x-compiling (DEFUN %TYPEP ...) ; x-compiling (DEFUN %%TYPEP ...) ; x-compiling (DEFUN CLASSOID-CELL-TYPEP ...) ; x-compiling (DEFUN CLASSOID-TYPEP ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/typep.lisp ; in: DEFUN %%TYPEP ; (EVERY ; (LAMBDA (SB!KERNEL::SPEC) ; (SB!KERNEL::%%TYPEP SB!KERNEL::OBJECT ; (SB!KERNEL:SPECIFIER-TYPE SB!KERNEL::SPEC) SB!KERNEL::STRICT)) ; (REST SB!KERNEL::HAIRY-SPEC)) ; --> LET BLOCK FLET MAP SB!EXT:TRULY-THE ; ==> ; (SB!KERNEL:%MAP SB!C::RESULT-TYPE-ARG SB!C::FUN #:G38) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; (DEFUN SB!KERNEL::%%TYPEP ; (SB!KERNEL::OBJECT TYPE &OPTIONAL (SB!KERNEL::STRICT T)) ; (DECLARE (TYPE SB!KERNEL:CTYPE TYPE)) ; (ETYPECASE TYPE ; (SB!KERNEL:NAMED-TYPE ; (ECASE (SB!KERNEL:NAMED-TYPE-NAME TYPE) ; (# T) ; (# #) ; (# #) ; (# #) ; (# NIL))) ; (SB!KERNEL:NUMERIC-TYPE ; (AND (NUMBERP SB!KERNEL::OBJECT) ; (LET # ; #) ; (FLET # ; #))) ; (SB!KERNEL:ARRAY-TYPE ; (AND (ARRAYP SB!KERNEL::OBJECT) (ECASE # # # #) (OR # #) ; (IF # ; # ; T) ; (OR # #))) ; (SB!KERNEL:MEMBER-TYPE ; (WHEN (SB!KERNEL::MEMBER-TYPE-MEMBER-P SB!KERNEL::OBJECT TYPE) T)) ; (SB!KERNEL:CLASSOID ; (SB!KERNEL:CLASSOID-TYPEP (SB!KERNEL:LAYOUT-OF SB!KERNEL::OBJECT) TYPE ; SB!KERNEL::OBJECT)) ; (SB!KERNEL:UNION-TYPE ; (SOME (LAMBDA # #) (SB!KERNEL:UNION-TYPE-TYPES TYPE))) ; (SB!KERNEL:INTERSECTION-TYPE ; (EVERY (LAMBDA # #) (SB!KERNEL:INTERSECTION-TYPE-TYPES TYPE))) ; (SB!KERNEL:CONS-TYPE ; (AND (CONSP SB!KERNEL::OBJECT) ; (SB!KERNEL::%%TYPEP # # SB!KERNEL::STRICT) ; (SB!KERNEL::%%TYPEP # # SB!KERNEL::STRICT))) ; (SB!KERNEL:CHARACTER-SET-TYPE ; (AND (CHARACTERP SB!KERNEL::OBJECT) ; (LET # ; #))) ; (SB!KERNEL:UNKNOWN-TYPE ; (LET (#) ; (IF # ; # ; #))) ; ...)) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!KERNEL::OBJECT TYPE SB!KERNEL::STRICT) {EAE0191}> ; SB!KERNEL::OBJECT TYPE 'T)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN TYPEP ; (DEFUN TYPEP (SB!KERNEL::OBJECT TYPE &OPTIONAL SB!KERNEL::ENVIRONMENT) ; "Is OBJECT of type TYPE?" ; (DECLARE (IGNORE SB!KERNEL::ENVIRONMENT)) ; (SB!KERNEL:%TYPEP SB!KERNEL::OBJECT TYPE)) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!KERNEL::OBJECT TYPE SB!KERNEL::ENVIRONMENT) {EA1EF11}> ; SB!KERNEL::OBJECT TYPE 'NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 1 more use of undefined type CODE-DELETION-NOTE ; ; compilation unit finished ; Undefined type: ; CODE-DELETION-NOTE ; caught 4 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/typep.lisp-obj-tmp written ; compilation finished in 0:00:00.206 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/compiler-error.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DECLAIM (TYPE # ...)) ; x-compiling (DEFVAR *COMPILER-ERROR-BAILOUT*) ; x-compiling (DEFINE-CONDITION COMPILER-ERROR ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN COMPILER-ERROR ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/compiler-error.lisp ; in: DEFUN COMPILER-ERROR ; (SB!INT:BUG "Control returned from *COMPILER-ERROR-BAILOUT*.") ; ==> ; "Control returned from *COMPILER-ERROR-BAILOUT*." ; ; note: deleting unreachable code ; x-compiling (DEFMACRO WITH-COMPILER-ERROR-RESIGNALLING ...) ; x-compiling (DEFUN COMPILER-WARN ...) ; x-compiling (DEFUN COMPILER-STYLE-WARN ...) ; x-compiling (DEFUN SOURCE-TO-STRING ...) ; x-compiling (DEFUN MAKE-COMPILER-ERROR-FORM ...) ; x-compiling (DEFINE-CONDITION FATAL-COMPILER-ERROR ...) ; x-compiling (DEFINE-CONDITION INPUT-ERROR-IN-COMPILE-FILE ...) ; x-compiling (DEFINE-CONDITION INPUT-ERROR-IN-LOAD ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/compiler-error.lisp ; in: DEFUN COMPILER-WARN ; (DEFUN SB!C:COMPILER-WARN (SB!C::DATUM &REST SB!C::ARGUMENTS) ; (APPLY #'WARN SB!C::DATUM SB!C::ARGUMENTS) ; (VALUES)) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!C::DATUM SB!C::ARGUMENTS #:REST-CONTEXT-39 #:REST-COUNT-40) ; {B74F991}> ; SB!C::DATUM NIL NIL 0)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN COMPILER-ERROR ; (DEFUN SB!C:COMPILER-ERROR (SB!C::DATUM &REST SB!C::ARGUMENTS) ; (LET ((CONDITION ; (SB!KERNEL:COERCE-TO-CONDITION SB!C::DATUM SB!C::ARGUMENTS ; 'SB!INT:SIMPLE-PROGRAM-ERROR ; 'SB!C:COMPILER-ERROR))) ; (RESTART-CASE (CERROR "Replace form with call to ERROR." ; 'SB!C:COMPILER-ERROR :CONDITION CONDITION) ; (SB!C::SIGNAL-ERROR NIL (ERROR CONDITION))) ; (FUNCALL SB!C::*COMPILER-ERROR-BAILOUT* CONDITION) ; (SB!INT:BUG "Control returned from *COMPILER-ERROR-BAILOUT*."))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!C::DATUM SB!C::ARGUMENTS #:REST-CONTEXT-2 #:REST-COUNT-3) ; {B648079}> ; SB!C::DATUM NIL NIL 0)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; (RESTART-CASE (CERROR "Replace form with call to ERROR." 'SB!C:COMPILER-ERROR ; :CONDITION CONDITION) ; (SB!C::SIGNAL-ERROR NIL (ERROR CONDITION))) ; --> BLOCK LET TAGBODY RESTART-BIND LET RETURN-FROM LET ; --> WITH-CONDITION-RESTARTS LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:NEXT12 #:START13 #:COUNT14 #:G18) {B654629}> ; #:NEXT12 #:START13 #:COUNT14 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 2 more uses of undefined type CODE-DELETION-NOTE ; ; compilation unit finished ; Undefined type: ; CODE-DELETION-NOTE ; caught 4 STYLE-WARNING conditions ; printed 1 note ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/compiler-error.lisp-obj-tmp written ; compilation finished in 0:00:00.045 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/late-deftypes-for-target.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (SB-XC:DEFTYPE COMPILED-FUNCTION ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/late-deftypes-for-target.lisp-obj-tmp written ; compilation finished in 0:00:00.006 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/type-init.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (/SHOW0 "precomputing numeric types") ; x-compiling (PRECOMPUTE-TYPES (QUOTE #)) ; x-compiling (/SHOW0 "precomputing built-in symbol type specifiers") ; x-compiling (PRECOMPUTE-TYPES *!STANDARD-TYPE-NAMES*) ; x-compiling (/SHOW0 "done with type-init.lisp") ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/type-init.lisp-obj-tmp written ; compilation finished in 0:00:00.007 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/fixup-type.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS) ; x-compiling (!COLD-INIT-FORMS (MAP # ...)) ; x-compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !FIXUP-TYPE-COLD-INIT) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/fixup-type.lisp ; in: !DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !FIXUP-TYPE-COLD-INIT ; (SB!INT:!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS SB!KERNEL:!FIXUP-TYPE-COLD-INIT) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK MAP SB!EXT:TRULY-THE ; ==> ; (SB!KERNEL:%MAP SB!C::RESULT-TYPE-ARG SB!C::FUN #:G7) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; compilation unit finished ; Undefined type: ; CODE-DELETION-NOTE ; caught 1 STYLE-WARNING condition ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/fixup-type.lisp-obj-tmp written ; compilation finished in 0:00:00.011 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/package.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEF!TYPE HASH-VECTOR ...) ; x-compiling (DEF!STRUCT (PACKAGE-HASHTABLE # ...) ...) ; x-compiling (DEF!STRUCT (SB-XC:PACKAGE # ...) ...) ; x-compiling (FLET (#) ...) ; x-compiling (DEFUN PACKAGE-ITER-INIT ...) ; x-compiling (DECLAIM (INLINE PKG-SYMBOL-VALID-P)) ; x-compiling (DEFUN PKG-SYMBOL-VALID-P ...) ; x-compiling (DEFCONSTANT +PACKAGE-ITER-CHECK-SHADOWS+ ...) ; x-compiling (DEFUN PACKAGE-ITER-STEP ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/package.lisp ; in: DEFUN PACKAGE-ITER-STEP ; (THE FIXNUM (+ SB!IMPL::STATE (ASH 1 6))) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; x-compiling (DEFMACRO-MUNDANELY WITH-PACKAGE-ITERATOR ...) ; x-compiling (DEFMACRO-MUNDANELY WITH-PACKAGE-GRAPH ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/package.lisp ; in: ; FLET ((EXPAND-ITERATOR (RANGE VAR BODY RESULT-FORM) ; (MULTIPLE-VALUE-BIND (FORMS DECLS) ; (PARSE-BODY BODY :DOC-STRING-ALLOWED NIL) ; (WITH-UNIQUE-NAMES # ; #)))) ; (MULTIPLE-VALUE-BIND (SB!IMPL::FORMS SB!IMPL::DECLS) ; (SB!INT:PARSE-BODY SB!IMPL::BODY :DOC-STRING-ALLOWED NIL) ; (SB!INT:WITH-UNIQUE-NAMES (SB!IMPL::ITERATOR SB!IMPL::WINP SB!IMPL::NEXT) ; (SB!INT:QUASIQUOTE (BLOCK NIL (WITH-PACKAGE-ITERATOR # #))))) ; --> MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!IMPL::FORMS SB!IMPL::DECLS #:G210) {E002001}> ; SB!IMPL::FORMS SB!IMPL::DECLS NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: ; DEF!STRUCT (SB-XC:PACKAGE ; (:CONSTRUCTOR %MAKE-PACKAGE ; (%NAME INTERNAL-SYMBOLS EXTERNAL-SYMBOLS)) ; (:MAKE-LOAD-FORM-FUN (LAMBDA (P) (VALUES # NIL))) ; (:PREDICATE SB-XC:PACKAGEP)) ; (SB!INT:DEF!STRUCT ; (SB-XC:PACKAGE ; (:CONSTRUCTOR SB!IMPL::%MAKE-PACKAGE ; (SB!IMPL::%NAME SB!IMPL::INTERNAL-SYMBOLS SB!IMPL::EXTERNAL-SYMBOLS)) ; (:MAKE-LOAD-FORM-FUN (LAMBDA (SB!IMPL::P) (VALUES # NIL))) ; (:PREDICATE SB-XC:PACKAGEP)) ; "the standard structure for the description of a package" ; (SB!IMPL::%NAME NIL :TYPE (OR SIMPLE-STRING NULL)) ; (SB!IMPL::%NICKNAMES NIL :TYPE LIST) (SB!IMPL::%USE-LIST NIL :TYPE LIST) ; (SB!IMPL::TABLES #() :TYPE SIMPLE-VECTOR) ; (SB!IMPL::MRU-TABLE-INDEX 0 :TYPE SB!INT:INDEX) ; (SB!IMPL::%USED-BY-LIST NIL :TYPE LIST) ; (SB!IMPL::INTERNAL-SYMBOLS NIL :TYPE SB!INT:PACKAGE-HASHTABLE) ; (SB!IMPL::EXTERNAL-SYMBOLS NIL :TYPE SB!INT:PACKAGE-HASHTABLE) ; (SB!IMPL::%SHADOWING-SYMBOLS NIL :TYPE LIST) ...) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN ; --> LET LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:NEXT55 #:START56 #:COUNT57 #:G58) {BEDDE79}> ; #:NEXT55 #:START56 #:COUNT57 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: ; DEF!STRUCT (PACKAGE-HASHTABLE ; (:CONSTRUCTOR %MAKE-PACKAGE-HASHTABLE ; (CELLS SIZE &AUX (FREE SIZE))) ; (:COPIER NIL)) ; (SB!INT:DEF!STRUCT ; (SB!INT:PACKAGE-HASHTABLE ; (:CONSTRUCTOR SB!IMPL::%MAKE-PACKAGE-HASHTABLE ; (SB!IMPL::CELLS SB!IMPL::SIZE &AUX (SB!IMPL::FREE SB!IMPL::SIZE))) ; (:COPIER NIL)) ; (SB!IMPL::CELLS (SB!INT:MISSING-ARG) :TYPE SIMPLE-VECTOR) ; (SB!IMPL::SIZE (SB!INT:MISSING-ARG) :TYPE SB!INT:INDEX) ; (SB!IMPL::FREE (SB!INT:MISSING-ARG) :TYPE SB!INT:INDEX) ; (SB!IMPL::DELETED 0 :TYPE SB!INT:INDEX)) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN ; --> LET LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:NEXT4 #:START5 #:COUNT6 #:G7) {BCEA2B1}> ; #:NEXT4 #:START5 #:COUNT6 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 12 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/package.lisp ; in: DEFUN PACKAGE-ITER-INIT ; (SB!IMPL::PACKAGE-LISTIFY SB!IMPL::PKG-DESIGNATOR-LIST) ; ; caught STYLE-WARNING: ; undefined function: PACKAGE-LISTIFY ; ; compilation unit finished ; Undefined type: ; CODE-DELETION-NOTE ; Undefined function: ; PACKAGE-LISTIFY ; caught 5 STYLE-WARNING conditions ; printed 1 note ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/package.lisp-obj-tmp written ; compilation finished in 0:00:00.225 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/random.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (DEF!CONSTANT N-RANDOM-CHUNK-BITS ...) ; x-compiling (SB-XC:DEFSTRUCT (RANDOM-STATE # ...) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/random.lisp ; in: ; SB-XC:DEFSTRUCT (RANDOM-STATE (:CONSTRUCTOR %MAKE-RANDOM-STATE (STATE)) ; (:CONSTRUCTOR %%MAKE-RANDOM-STATE) (:COPIER NIL)) ; (SB-XC:DEFSTRUCT ; (RANDOM-STATE ; (:CONSTRUCTOR SB!KERNEL::%MAKE-RANDOM-STATE (SB!KERNEL::STATE)) ; (:CONSTRUCTOR SB!KERNEL::%%MAKE-RANDOM-STATE) (:COPIER NIL)) ; (SB!KERNEL::STATE (SB!KERNEL::INIT-RANDOM-STATE) :TYPE ; (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (627)) :READ-ONLY T)) ; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:NEXT4 #:START5 #:COUNT6 #:G7) {EBDDD99}> ; #:NEXT4 #:START5 #:COUNT6 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; (SB!KERNEL::INIT-RANDOM-STATE) ; ; caught STYLE-WARNING: ; undefined function: INIT-RANDOM-STATE ; ; compilation unit finished ; Undefined type: ; CODE-DELETION-NOTE ; Undefined function: ; INIT-RANDOM-STATE ; caught 2 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/random.lisp-obj-tmp written ; compilation finished in 0:00:00.028 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/hash-table.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (SB-XC:DEFSTRUCT (HASH-TABLE #) ...) ; x-compiling (DEFCONSTANT +MAGIC-HASH-VECTOR-VALUE+ ...) ; x-compiling (DEFMACRO-MUNDANELY WITH-HASH-TABLE-ITERATOR ...) ; x-compiling (DEFMACRO-MUNDANELY WITH-LOCKED-HASH-TABLE ...) ; x-compiling (DEFMACRO-MUNDANELY WITH-LOCKED-SYSTEM-TABLE ...) ; x-compiling (DEFUN %HASH-TABLE-ALIST ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/hash-table.lisp ; in: DEFMACRO-MUNDANELY WITH-HASH-TABLE-ITERATOR ; (CONCATENATE 'STRING (SYMBOL-NAME SB!IMPL::NAME) "-FUN") ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: ; SB-XC:DEFSTRUCT (HASH-TABLE ; (:CONSTRUCTOR %MAKE-HASH-TABLE ; (TEST TEST-FUN HASH-FUN REHASH-SIZE REHASH-THRESHOLD ...))) ; (SB-XC:DEFSTRUCT ; (HASH-TABLE ; (:CONSTRUCTOR SB!IMPL::%MAKE-HASH-TABLE ; (SB!IMPL::TEST SB!IMPL::TEST-FUN SB!IMPL::HASH-FUN SB!IMPL::REHASH-SIZE ; SB!IMPL::REHASH-THRESHOLD SB!IMPL::REHASH-TRIGGER SB!IMPL::TABLE ; SB!IMPL::WEAKNESS SB!IMPL::INDEX-VECTOR SB!IMPL::NEXT-VECTOR ; SB!IMPL::HASH-VECTOR SB!IMPL::SYNCHRONIZED-P))) ; (SB!IMPL::TEST NIL :TYPE SYMBOL :READ-ONLY T) ; (SB!IMPL::TEST-FUN NIL :TYPE FUNCTION :READ-ONLY T) ; (SB!IMPL::HASH-FUN NIL :TYPE FUNCTION :READ-ONLY T) ; (SB!IMPL::REHASH-SIZE NIL :TYPE (OR SB!INT:INDEX (SINGLE-FLOAT (1.0))) ; :READ-ONLY T) ; (SB!IMPL::REHASH-THRESHOLD NIL :TYPE (SINGLE-FLOAT (0.0) 1.0) :READ-ONLY T) ; (SB!IMPL::REHASH-TRIGGER NIL :TYPE SB!INT:INDEX) ; (SB!IMPL::NUMBER-ENTRIES 0 :TYPE SB!INT:INDEX) ; (SB!IMPL::TABLE NIL :TYPE SIMPLE-VECTOR) ; (SB!IMPL::NEXT-WEAK-HASH-TABLE NIL :TYPE NULL) ; (SB!IMPL::WEAKNESS NIL :TYPE ; (MEMBER NIL :KEY :VALUE :KEY-OR-VALUE :KEY-AND-VALUE) :READ-ONLY T) ; ...) ; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:NEXT4 #:START5 #:COUNT6 #:G7) {ED928C9}> ; #:NEXT4 #:START5 #:COUNT6 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFMACRO-MUNDANELY WITH-HASH-TABLE-ITERATOR ; (CONCATENATE 'STRING (SYMBOL-NAME SB!IMPL::NAME) "-FUN") ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: ; SB-XC:DEFSTRUCT (HASH-TABLE ; (:CONSTRUCTOR %MAKE-HASH-TABLE ; (TEST TEST-FUN HASH-FUN REHASH-SIZE REHASH-THRESHOLD ...))) ; (SB!THREAD:MAKE-MUTEX :NAME "hash-table lock") ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD:MAKE-MUTEX ; ; compilation unit finished ; Undefined types: ; CODE-DELETION-NOTE COMPILER-NOTE ; Undefined function: ; SB!THREAD:MAKE-MUTEX ; caught 4 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/hash-table.lisp-obj-tmp written ; compilation finished in 0:00:00.229 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/readtable.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (SB-XC:DEFTYPE ATTRIBUTE-TABLE ...) ; x-compiling (DEF!CONSTANT +CHAR-ATTR-WHITESPACE+ ...) ; x-compiling (DEF!CONSTANT +CHAR-ATTR-TERMINATING-MACRO+ ...) ; x-compiling (DEF!CONSTANT +CHAR-ATTR-SINGLE-ESCAPE+ ...) ; x-compiling (DEF!CONSTANT +CHAR-ATTR-MULTIPLE-ESCAPE+ ...) ; x-compiling (DEF!CONSTANT +CHAR-ATTR-CONSTITUENT+ ...) ; x-compiling (DEF!CONSTANT +CHAR-ATTR-CONSTITUENT-DOT+ ...) ; x-compiling (DEF!CONSTANT +CHAR-ATTR-CONSTITUENT-EXPT+ ...) ; x-compiling (DEF!CONSTANT +CHAR-ATTR-CONSTITUENT-SLASH+ ...) ; x-compiling (DEF!CONSTANT +CHAR-ATTR-CONSTITUENT-DIGIT+ ...) ; x-compiling (DEF!CONSTANT +CHAR-ATTR-CONSTITUENT-SIGN+ ...) ; x-compiling (DEF!CONSTANT +CHAR-ATTR-CONSTITUENT-DECIMAL-DIGIT+ ...) ; x-compiling (DEF!CONSTANT +CHAR-ATTR-CONSTITUENT-DIGIT-OR-EXPT+ ...) ; x-compiling (DEF!CONSTANT +CHAR-ATTR-PACKAGE-DELIMITER+ ...) ; x-compiling (DEF!CONSTANT +CHAR-ATTR-INVALID+ ...) ; x-compiling (DEF!CONSTANT +CHAR-ATTR-DELIMITER+ ...) ; x-compiling (SB-XC:DEFSTRUCT (READTABLE # ...) ...) ; x-compiling (DECLAIM (FREEZE-TYPE READTABLE)) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/readtable.lisp ; in: ; SB-XC:DEFSTRUCT (READTABLE (:CONC-NAME NIL) (:CONSTRUCTOR MAKE-READTABLE NIL) ; (:PREDICATE READTABLEP) (:COPIER NIL)) ; (MAKE-ARRAY SB!INT:BASE-CHAR-CODE-LIMIT :INITIAL-ELEMENT NIL) ; --> LOCALLY MAKE-ARRAY SB!EXT:TRULY-THE ; ==> ; (FILL ; (SB!EXT:TRULY-THE (SIMPLE-ARRAY T (128)) ; (SB!KERNEL:ALLOCATE-VECTOR 214 (THE SB!INT:INDEX LENGTH) ; 128)) ; (THE T 'NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; (MAKE-ARRAY SB!INT:BASE-CHAR-CODE-LIMIT :ELEMENT-TYPE '(UNSIGNED-BYTE 8) ; :INITIAL-ELEMENT SB!IMPL::+CHAR-ATTR-CONSTITUENT+) ; --> LOCALLY MAKE-ARRAY SB!EXT:TRULY-THE ; ==> ; (FILL ; (SB!EXT:TRULY-THE (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (128)) ; (SB!KERNEL:ALLOCATE-VECTOR 154 (THE SB!INT:INDEX LENGTH) ; 32)) ; (THE (UNSIGNED-BYTE 8) '4)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; (SB-XC:DEFSTRUCT ; (READTABLE (:CONC-NAME NIL) (:CONSTRUCTOR SB!IMPL::MAKE-READTABLE NIL) ; (:PREDICATE READTABLEP) (:COPIER NIL)) ; "A READTABLE is a data structure that maps characters into syntax ; types for the Common Lisp expression reader." ; (SB!IMPL::CHARACTER-ATTRIBUTE-ARRAY ; (MAKE-ARRAY SB!INT:BASE-CHAR-CODE-LIMIT :ELEMENT-TYPE '(UNSIGNED-BYTE 8) ; :INITIAL-ELEMENT SB!IMPL::+CHAR-ATTR-CONSTITUENT+) ; :TYPE SB!IMPL::ATTRIBUTE-TABLE :READ-ONLY T) ; (SB!IMPL::CHARACTER-ATTRIBUTE-HASH-TABLE (MAKE-HASH-TABLE) :TYPE HASH-TABLE ; :READ-ONLY T) ; (SB!IMPL::CHARACTER-MACRO-ARRAY ; (MAKE-ARRAY SB!INT:BASE-CHAR-CODE-LIMIT :INITIAL-ELEMENT NIL) :TYPE ; (SIMPLE-VECTOR 128) :READ-ONLY T) ; (SB!IMPL::CHARACTER-MACRO-HASH-TABLE (MAKE-HASH-TABLE) :TYPE HASH-TABLE ; :READ-ONLY T) ; (SB!IMPL::%READTABLE-CASE :UPCASE :TYPE ; (MEMBER :UPCASE :DOWNCASE :PRESERVE :INVERT)) ; (SB!IMPL::%READTABLE-NORMALIZATION T :TYPE BOOLEAN)) ; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:NEXT4 #:START5 #:COUNT6 #:G7) {C22C3E1}> ; #:NEXT4 #:START5 #:COUNT6 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; (MAKE-ARRAY SB!INT:BASE-CHAR-CODE-LIMIT :ELEMENT-TYPE '(UNSIGNED-BYTE 8) ; :INITIAL-ELEMENT SB!IMPL::+CHAR-ATTR-CONSTITUENT+) ; --> LOCALLY MAKE-ARRAY SB!EXT:TRULY-THE ; ==> ; (FILL ; (SB!EXT:TRULY-THE (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (128)) ; (SB!KERNEL:ALLOCATE-VECTOR 154 (THE SB!INT:INDEX LENGTH) ; 32)) ; (THE (UNSIGNED-BYTE 8) '4)) ; ; caught STYLE-WARNING: ; undefined function: UB8-BASH-FILL ; ; compilation unit finished ; Undefined type: ; CODE-DELETION-NOTE ; Undefined function: ; UB8-BASH-FILL ; caught 4 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/readtable.lisp-obj-tmp written ; compilation finished in 0:00:00.067 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/pathname.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEF!STRUCT (HOST #) ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEF!STRUCT (LOGICAL-HOST # ...) ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFUN MAKE-LOGICAL-HOST-LOAD-FORM-FUN ...) ; x-compiling (DEF!STRUCT (PATTERN #) ...) ; x-compiling (DEF!TYPE PATHNAME-COMPONENT-TOKENS ...) ; x-compiling (SB-XC:DEFSTRUCT (PATHNAME # ...) ...) ; x-compiling (SB-XC:DEFSTRUCT (LOGICAL-PATHNAME # ...)) ; x-compiling (DEFUN UNPARSE-PHYSICAL-DIRECTORY ...) ; x-compiling (DEFUN UNPARSE-PHYSICAL-DIRECTORY-LIST ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/pathname.lisp ; in: ; DEF!STRUCT (LOGICAL-HOST (:MAKE-LOAD-FORM-FUN MAKE-LOGICAL-HOST-LOAD-FORM-FUN) ; (:INCLUDE HOST (PARSE #'PARSE-LOGICAL-NAMESTRING) ; (PARSE-NATIVE (LAMBDA # #)) ; (UNPARSE #'UNPARSE-LOGICAL-NAMESTRING) ...)) ; (LAMBDA (&REST SB!IMPL::X) ; (ERROR "called NATIVE-NAMESTRING using a ~ ; logical host: ~S" ; (FIRST SB!IMPL::X))) ; --> FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!IMPL::X #:REST-CONTEXT-250 #:REST-COUNT-251) {EFAFD39}> ; NIL NIL 0)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; (SB!INT:DEF!STRUCT ; (SB!KERNEL:LOGICAL-HOST ; (:MAKE-LOAD-FORM-FUN SB!IMPL::MAKE-LOGICAL-HOST-LOAD-FORM-FUN) ; (:INCLUDE SB!KERNEL:HOST ; (SB!IMPL::PARSE #'SB!IMPL::PARSE-LOGICAL-NAMESTRING) ; (SB!IMPL::PARSE-NATIVE (LAMBDA # #)) ; (SB!IMPL::UNPARSE #'SB!IMPL::UNPARSE-LOGICAL-NAMESTRING) ; (SB!IMPL::UNPARSE-NATIVE (LAMBDA # #)) ; (SB!IMPL::UNPARSE-HOST (LAMBDA # #)) ; (SB!IMPL::UNPARSE-DIRECTORY #'SB!IMPL::UNPARSE-LOGICAL-DIRECTORY) ; (SB!IMPL::UNPARSE-FILE #'SB!IMPL::UNPARSE-LOGICAL-FILE) ; (SB!IMPL::UNPARSE-ENOUGH #'SB!IMPL::UNPARSE-ENOUGH-NAMESTRING) ; (SB!IMPL::UNPARSE-DIRECTORY-SEPARATOR ";") ; (SB!INT:SIMPLIFY-NAMESTRING #'IDENTITY) ...)) ; (SB!IMPL::NAME "" :TYPE SIMPLE-STRING) ; (SB!IMPL::TRANSLATIONS NIL :TYPE LIST) ; (SB!IMPL::CANON-TRANSLS NIL :TYPE LIST)) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN ; --> LET LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:NEXT115 #:START116 #:COUNT117 #:G118) {EAF8201}> ; #:NEXT115 #:START116 #:COUNT117 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEF!STRUCT (HOST (:CONSTRUCTOR NIL)) ; (SB!INT:DEF!STRUCT (SB!KERNEL:HOST (:CONSTRUCTOR NIL)) ; (SB!IMPL::PARSE (SB!INT:MISSING-ARG) :TYPE FUNCTION) ; (SB!IMPL::PARSE-NATIVE (SB!INT:MISSING-ARG) :TYPE ; FUNCTION) ; (SB!IMPL::UNPARSE (SB!INT:MISSING-ARG) :TYPE FUNCTION) ; (SB!IMPL::UNPARSE-NATIVE (SB!INT:MISSING-ARG) :TYPE ; FUNCTION) ; (SB!IMPL::UNPARSE-HOST (SB!INT:MISSING-ARG) :TYPE ; FUNCTION) ; (SB!IMPL::UNPARSE-DIRECTORY (SB!INT:MISSING-ARG) :TYPE ; FUNCTION) ; (SB!IMPL::UNPARSE-FILE (SB!INT:MISSING-ARG) :TYPE ; FUNCTION) ; (SB!IMPL::UNPARSE-ENOUGH (SB!INT:MISSING-ARG) :TYPE ; FUNCTION) ; (SB!IMPL::UNPARSE-DIRECTORY-SEPARATOR (SB!INT:MISSING-ARG) ; :TYPE SIMPLE-STRING) ; (SB!INT:SIMPLIFY-NAMESTRING (SB!INT:MISSING-ARG) :TYPE ; FUNCTION) ; ...) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN ; --> LET LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:NEXT4 #:START5 #:COUNT6 #:G7) {E0B9E59}> ; #:NEXT4 #:START5 #:COUNT6 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 39 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/pathname.lisp ; in: ; DEF!STRUCT (LOGICAL-HOST (:MAKE-LOAD-FORM-FUN MAKE-LOGICAL-HOST-LOAD-FORM-FUN) ; (:INCLUDE HOST (PARSE #'PARSE-LOGICAL-NAMESTRING) ; (PARSE-NATIVE (LAMBDA # #)) ; (UNPARSE #'UNPARSE-LOGICAL-NAMESTRING) ...)) ; #'SB!IMPL::PARSE-LOGICAL-NAMESTRING ; ; caught STYLE-WARNING: ; undefined function: PARSE-LOGICAL-NAMESTRING ; #'SB!IMPL::UNPARSE-ENOUGH-NAMESTRING ; ; caught STYLE-WARNING: ; undefined function: UNPARSE-ENOUGH-NAMESTRING ; #'SB!IMPL::UNPARSE-LOGICAL-DIRECTORY ; ; caught STYLE-WARNING: ; undefined function: UNPARSE-LOGICAL-DIRECTORY ; #'SB!IMPL::UNPARSE-LOGICAL-FILE ; ; caught STYLE-WARNING: ; undefined function: UNPARSE-LOGICAL-FILE ; #'SB!IMPL::UNPARSE-LOGICAL-NAMESTRING ; ; caught STYLE-WARNING: ; undefined function: UNPARSE-LOGICAL-NAMESTRING ; in: DEFUN UNPARSE-PHYSICAL-DIRECTORY-LIST ; (SB!IMPL::UNPARSE-PHYSICAL-PIECE SB!IMPL::DIR SB!IMPL::ESCAPE-CHAR) ; ; caught STYLE-WARNING: ; undefined function: UNPARSE-PHYSICAL-PIECE ; ; compilation unit finished ; Undefined type: ; CODE-DELETION-NOTE ; Undefined functions: ; PARSE-LOGICAL-NAMESTRING UNPARSE-ENOUGH-NAMESTRING UNPARSE-LOGICAL-DIRECTORY UNPARSE-LOGICAL-FILE UNPARSE-LOGICAL-NAMESTRING UNPARSE-PHYSICAL-PIECE ; caught 10 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/pathname.lisp-obj-tmp written ; compilation finished in 0:00:00.480 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/host-pprint.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!PRETTY") ; x-compiling (DEF!STRUCT (PPRINT-DISPATCH-TABLE #) ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/host-pprint.lisp ; in: DEF!STRUCT (PPRINT-DISPATCH-TABLE (:COPIER NIL)) ; (SB!INT:DEF!STRUCT (SB!PRETTY:PPRINT-DISPATCH-TABLE (:COPIER NIL)) ; (SB!PRETTY::ENTRIES NIL :TYPE LIST) ; (SB!PRETTY::CONS-ENTRIES (MAKE-HASH-TABLE :TEST 'EQL) ; :READ-ONLY T)) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN ; --> LET LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:NEXT4 #:START5 #:COUNT6 #:G7) {E093679}> ; #:NEXT4 #:START5 #:COUNT6 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; compilation unit finished ; Undefined type: ; CODE-DELETION-NOTE ; caught 1 STYLE-WARNING condition ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/host-pprint.lisp-obj-tmp written ; compilation finished in 0:00:00.030 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/lexenv.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DECLAIM (INLINE INTERNAL-MAKE-LEXENV)) ; x-compiling (DEF!STRUCT (LEXENV # ...) ...) ; x-compiling (DEFUN LEXENV-POLICY ...) ; x-compiling (DEFUN NULL-LEXENV-P ...) ; x-compiling (DEFUN COERCE-TO-LEXENV ...) ; x-compiling (DEFUN PRINT-LEXENV ...) ; x-compiling (DEFUN MAYBE-INLINE-SYNTACTIC-CLOSURE ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/lexenv.lisp ; in: DEFUN MAYBE-INLINE-SYNTACTIC-CLOSURE ; (ASSOC SB!C::NAME SB!C::FUNS :TEST #'EQUAL) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; (ASSOC SB!C::NAME SB!C::VARS :TEST #'EQ) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: ; DEF!STRUCT (LEXENV (:PRINT-FUNCTION PRINT-LEXENV) ; (:CONSTRUCTOR MAKE-NULL-LEXENV NIL) ; (:CONSTRUCTOR INTERNAL-MAKE-LEXENV ; (FUNS VARS BLOCKS TAGS TYPE-RESTRICTIONS ...))) ; (SB!INT:DEF!STRUCT ; (SB!KERNEL:LEXENV (:PRINT-FUNCTION SB!C::PRINT-LEXENV) ; (:CONSTRUCTOR SB!KERNEL:MAKE-NULL-LEXENV NIL) ; (:CONSTRUCTOR SB!C::INTERNAL-MAKE-LEXENV ; (SB!C::FUNS SB!C::VARS SB!C::BLOCKS SB!C::TAGS SB!C::TYPE-RESTRICTIONS ; LAMBDA SB!C::CLEANUP SB!C::HANDLED-CONDITIONS ; SB!KERNEL:DISABLED-PACKAGE-LOCKS SB!C::%POLICY SB!C::USER-DATA))) ; (SB!C::FUNS NIL :TYPE LIST) (SB!C::VARS NIL :TYPE LIST) ; (SB!C::BLOCKS NIL :TYPE LIST) (SB!C::TAGS NIL :TYPE LIST) ; (SB!C::TYPE-RESTRICTIONS NIL :TYPE LIST) (LAMBDA ()) (SB!C::CLEANUP NIL) ; (SB!C::HANDLED-CONDITIONS SB!C::*HANDLED-CONDITIONS*) ; (SB!KERNEL:DISABLED-PACKAGE-LOCKS SB!C::*DISABLED-PACKAGE-LOCKS*) ; (SB!C::%POLICY NIL :TYPE SB!C:POLICY) ...) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN ; --> LET LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:NEXT6 #:START7 #:COUNT8 #:G9) {E8C7C69}> ; #:NEXT6 #:START7 #:COUNT8 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 2 more uses of undefined type CODE-DELETION-NOTE ; ; compilation unit finished ; Undefined type: ; CODE-DELETION-NOTE ; caught 4 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/lexenv.lisp-obj-tmp written ; compilation finished in 0:00:00.093 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/fndb.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFKNOWN COERCE ...) ; x-compiling (DEFKNOWN LIST-TO-VECTOR* ...) ; x-compiling (DEFKNOWN VECTOR-TO-VECTOR* ...) ; x-compiling (DEFKNOWN TYPE-OF ...) ; x-compiling (DEFKNOWN (SB-XC:UPGRADED-COMPLEX-PART-TYPE SB-XC:UPGRADED-ARRAY-ELEMENT-TYPE) ...) ; x-compiling (DEFKNOWN TYPEP ...) ; x-compiling (DEFKNOWN SUBTYPEP ...) ; x-compiling (DEFKNOWN (NULL SYMBOLP ...) ...) ; x-compiling (DEFKNOWN (EQ EQL ...) ...) ; x-compiling (DEFKNOWN (EQUAL EQUALP) ...) ; x-compiling (DEFKNOWN FIXNUM-MOD-P ...) ; x-compiling (SB-XC:DEFTYPE NAME-FOR-CLASS ...) ; x-compiling (DEFKNOWN CLASSOID-NAME ...) ; x-compiling (DEFKNOWN FIND-CLASSOID ...) ; x-compiling (DEFKNOWN CLASSOID-OF ...) ; x-compiling (DEFKNOWN LAYOUT-OF ...) ; x-compiling (DEFKNOWN COPY-STRUCTURE ...) ; x-compiling (DEFKNOWN (SYMBOL-VALUE) ...) ; x-compiling (DEFKNOWN ABOUT-TO-MODIFY-SYMBOL-VALUE ...) ; x-compiling (DEFKNOWN (SYMBOL-FUNCTION) ...) ; x-compiling (DEFKNOWN BOUNDP ...) ; x-compiling (DEFKNOWN FBOUNDP ...) ; x-compiling (DEFKNOWN SPECIAL-OPERATOR-P ...) ; x-compiling (DEFKNOWN SET ...) ; x-compiling (DEFKNOWN FDEFINITION ...) ; x-compiling (DEFKNOWN %SET-FDEFINITION ...) ; x-compiling (DEFKNOWN MAKUNBOUND ...) ; x-compiling (DEFKNOWN FMAKUNBOUND ...) ; x-compiling (DEFKNOWN APPLY ...) ; x-compiling (DEFKNOWN FUNCALL ...) ; x-compiling (DEFKNOWN (MAPCAR MAPLIST) ...) ; x-compiling (DEFKNOWN (MAPCAN MAPCON) ...) ; x-compiling (DEFKNOWN (MAPC MAPL) ...) ; x-compiling (DEFKNOWN VALUES ...) ; x-compiling (DEFKNOWN VALUES-LIST ...) ; x-compiling (DEFKNOWN MACRO-FUNCTION ...) ; x-compiling (DEFKNOWN (MACROEXPAND MACROEXPAND-1 ...) ...) ; x-compiling (DEFKNOWN COMPILER-MACRO-FUNCTION ...) ; x-compiling (DEFKNOWN PROCLAIM ...) ; x-compiling (DEFKNOWN GET ...) ; x-compiling (DEFKNOWN SB!IMPL::GET3 ...) ; x-compiling (DEFKNOWN REMPROP ...) ; x-compiling (DEFKNOWN SYMBOL-PLIST ...) ; x-compiling (DEFKNOWN GETF ...) ; x-compiling (DEFKNOWN GET-PROPERTIES ...) ; x-compiling (DEFKNOWN SYMBOL-NAME ...) ; x-compiling (DEFKNOWN MAKE-SYMBOL ...) ; x-compiling (DEFKNOWN %MAKE-SYMBOL ...) ; x-compiling (DEFKNOWN COPY-SYMBOL ...) ; x-compiling (DEFKNOWN GENSYM ...) ; x-compiling (DEFKNOWN SYMBOL-PACKAGE ...) ; x-compiling (DEFKNOWN KEYWORDP ...) ; x-compiling (DEFKNOWN GENTEMP ...) ; x-compiling (DEFKNOWN MAKE-PACKAGE ...) ; x-compiling (DEFKNOWN FIND-PACKAGE ...) ; x-compiling (DEFKNOWN FIND-UNDELETED-PACKAGE-OR-LOSE ...) ; x-compiling (DEFKNOWN PACKAGE-NAME ...) ; x-compiling (DEFKNOWN PACKAGE-NICKNAMES ...) ; x-compiling (DEFKNOWN RENAME-PACKAGE ...) ; x-compiling (DEFKNOWN PACKAGE-USE-LIST ...) ; x-compiling (DEFKNOWN PACKAGE-USED-BY-LIST ...) ; x-compiling (DEFKNOWN PACKAGE-SHADOWING-SYMBOLS ...) ; x-compiling (DEFKNOWN LIST-ALL-PACKAGES ...) ; x-compiling (DEFKNOWN INTERN ...) ; x-compiling (DEFKNOWN FIND-SYMBOL ...) ; x-compiling (DEFKNOWN (EXPORT IMPORT) ...) ; x-compiling (DEFKNOWN UNINTERN ...) ; x-compiling (DEFKNOWN UNEXPORT ...) ; x-compiling (DEFKNOWN SHADOWING-IMPORT ...) ; x-compiling (DEFKNOWN SHADOW ...) ; x-compiling (DEFKNOWN (USE-PACKAGE UNUSE-PACKAGE) ...) ; x-compiling (DEFKNOWN FIND-ALL-SYMBOLS ...) ; x-compiling (DEFKNOWN PACKAGE-ITER-STEP ...) ; x-compiling (DEFKNOWN ZEROP ...) ; x-compiling (DEFKNOWN (PLUSP MINUSP) ...) ; x-compiling (DEFKNOWN (ODDP EVENP) ...) ; x-compiling (DEFKNOWN (=) ...) ; x-compiling (DEFKNOWN (/=) ...) ; x-compiling (DEFKNOWN (< > ...) ...) ; x-compiling (DEFKNOWN (MAX MIN) ...) ; x-compiling (DEFKNOWN (+ *) ...) ; x-compiling (DEFKNOWN - ...) ; x-compiling (DEFKNOWN / ...) ; x-compiling (DEFKNOWN (1+ 1-) ...) ; x-compiling (DEFKNOWN CONJUGATE ...) ; x-compiling (DEFKNOWN GCD ...) ; x-compiling (DEFKNOWN LCM ...) ; x-compiling (DEFKNOWN EXP ...) ; x-compiling (DEFKNOWN EXPT ...) ; x-compiling (DEFKNOWN LOG ...) ; x-compiling (DEFKNOWN SQRT ...) ; x-compiling (DEFKNOWN ISQRT ...) ; x-compiling (DEFKNOWN (ABS PHASE ...) ...) ; x-compiling (DEFKNOWN CIS ...) ; x-compiling (DEFKNOWN (SIN COS) ...) ; x-compiling (DEFKNOWN ATAN ...) ; x-compiling (DEFKNOWN (TAN SINH ...) ...) ; x-compiling (DEFKNOWN (ASIN ACOS ...) ...) ; x-compiling (DEFKNOWN FLOAT ...) ; x-compiling (DEFKNOWN (RATIONAL) ...) ; x-compiling (DEFKNOWN (RATIONALIZE) ...) ; x-compiling (DEFKNOWN (NUMERATOR DENOMINATOR) ...) ; x-compiling (DEFKNOWN (FLOOR CEILING ...) ...) ; x-compiling (DEFKNOWN TRUNCATE ...) ; x-compiling (DEFKNOWN %MULTIPLY-HIGH ...) ; x-compiling (DEFKNOWN (MOD REM) ...) ; x-compiling (DEFKNOWN (FFLOOR FCEILING ...) ...) ; x-compiling (DEFKNOWN DECODE-FLOAT ...) ; x-compiling (DEFKNOWN SCALE-FLOAT ...) ; x-compiling (DEFKNOWN FLOAT-RADIX ...) ; x-compiling (DEFKNOWN FLOAT-SIGN ...) ; x-compiling (DEFKNOWN (FLOAT-DIGITS FLOAT-PRECISION) ...) ; x-compiling (DEFKNOWN INTEGER-DECODE-FLOAT ...) ; x-compiling (DEFKNOWN COMPLEX ...) ; x-compiling (DEFKNOWN (REALPART IMAGPART) ...) ; x-compiling (DEFKNOWN (LOGIOR LOGXOR ...) ...) ; x-compiling (DEFKNOWN (LOGNAND LOGNOR ...) ...) ; x-compiling (DEFKNOWN BOOLE ...) ; x-compiling (DEFKNOWN LOGNOT ...) ; x-compiling (DEFKNOWN LOGTEST ...) ; x-compiling (DEFKNOWN LOGBITP ...) ; x-compiling (DEFKNOWN ASH ...) ; x-compiling (DEFKNOWN %ASH/RIGHT ...) ; x-compiling (DEFKNOWN (LOGCOUNT INTEGER-LENGTH) ...) ; x-compiling (DEFKNOWN BYTE ...) ; x-compiling (DEFKNOWN (BYTE-SIZE BYTE-POSITION) ...) ; x-compiling (DEFKNOWN LDB ...) ; x-compiling (DEFKNOWN LDB-TEST ...) ; x-compiling (DEFKNOWN MASK-FIELD ...) ; x-compiling (DEFKNOWN DPB ...) ; x-compiling (DEFKNOWN DEPOSIT-FIELD ...) ; x-compiling (DEFKNOWN RANDOM ...) ; x-compiling (DEFKNOWN MAKE-RANDOM-STATE ...) ; x-compiling (DEFKNOWN SEED-RANDOM-STATE ...) ; x-compiling (DEFKNOWN RANDOM-STATE-P ...) ; x-compiling (DEFKNOWN (STANDARD-CHAR-P GRAPHIC-CHAR-P ...) ...) ; x-compiling (DEFKNOWN DIGIT-CHAR-P ...) ; x-compiling (DEFKNOWN (CHAR=) ...) ; x-compiling (DEFKNOWN (CHAR/= CHAR< ...) ...) ; x-compiling (DEFKNOWN (CHAR-EQUAL CHAR-LESSP ...) ...) ; x-compiling (DEFKNOWN (TWO-ARG-CHAR-EQUAL) ...) ; x-compiling (DEFKNOWN (TWO-ARG-CHAR-NOT-EQUAL TWO-ARG-CHAR-LESSP ...) ...) ; x-compiling (DEFKNOWN CHAR-EQUAL-CONSTANT ...) ; x-compiling (DEFKNOWN CHARACTER ...) ; x-compiling (DEFKNOWN CHAR-CODE ...) ; x-compiling (DEFKNOWN (CHAR-UPCASE CHAR-DOWNCASE) ...) ; x-compiling (DEFKNOWN DIGIT-CHAR ...) ; x-compiling (DEFKNOWN CHAR-INT ...) ; x-compiling (DEFKNOWN CHAR-NAME ...) ; x-compiling (DEFKNOWN NAME-CHAR ...) ; x-compiling (DEFKNOWN CODE-CHAR ...) ; x-compiling (DEFKNOWN ELT ...) ; x-compiling (DEFKNOWN SUBSEQ ...) ; x-compiling (DEFKNOWN COPY-SEQ ...) ; x-compiling (DEFKNOWN LENGTH ...) ; x-compiling (DEFKNOWN REVERSE ...) ; x-compiling (DEFKNOWN NREVERSE ...) ; x-compiling (DEFKNOWN MAKE-SEQUENCE ...) ; x-compiling (DEFKNOWN CONCATENATE ...) ; x-compiling (DEFKNOWN %CONCATENATE-TO-STRING ...) ; x-compiling (DEFKNOWN %CONCATENATE-TO-BASE-STRING ...) ; x-compiling (DEFKNOWN (MAP %MAP) ...) ; x-compiling (DEFKNOWN %MAP-FOR-EFFECT-ARITY-1 ...) ; x-compiling (DEFKNOWN %MAP-TO-LIST-ARITY-1 ...) ; x-compiling (DEFKNOWN %MAP-TO-SIMPLE-VECTOR-ARITY-1 ...) ; x-compiling (DEFKNOWN MAP-INTO ...) ; x-compiling (DEFKNOWN SOME ...) ; x-compiling (DEFKNOWN (EVERY NOTANY ...) ...) ; x-compiling (DEFKNOWN REDUCE ...) ; x-compiling (DEFKNOWN FILL ...) ; x-compiling (DEFKNOWN REPLACE ...) ; x-compiling (DEFKNOWN REMOVE ...) ; x-compiling (DEFKNOWN SUBSTITUTE ...) ; x-compiling (DEFKNOWN (REMOVE-IF REMOVE-IF-NOT) ...) ; x-compiling (DEFKNOWN (SUBSTITUTE-IF SUBSTITUTE-IF-NOT) ...) ; x-compiling (DEFKNOWN DELETE ...) ; x-compiling (DEFKNOWN NSUBSTITUTE ...) ; x-compiling (DEFKNOWN (DELETE-IF DELETE-IF-NOT) ...) ; x-compiling (DEFKNOWN (NSUBSTITUTE-IF NSUBSTITUTE-IF-NOT) ...) ; x-compiling (DEFKNOWN REMOVE-DUPLICATES ...) ; x-compiling (DEFKNOWN DELETE-DUPLICATES ...) ; x-compiling (DEFKNOWN FIND ...) ; x-compiling (DEFKNOWN (FIND-IF FIND-IF-NOT) ...) ; x-compiling (DEFKNOWN POSITION ...) ; x-compiling (DEFKNOWN (POSITION-IF POSITION-IF-NOT) ...) ; x-compiling (DEFKNOWN COUNT ...) ; x-compiling (DEFKNOWN (COUNT-IF COUNT-IF-NOT) ...) ; x-compiling (DEFKNOWN (MISMATCH SEARCH) ...) ; x-compiling (DEFKNOWN (STABLE-SORT SORT) ...) ; x-compiling (DEFKNOWN SB!IMPL::STABLE-SORT-LIST ...) ; x-compiling (DEFKNOWN SB!IMPL::SORT-VECTOR ...) ; x-compiling (DEFKNOWN SB!IMPL::STABLE-SORT-VECTOR ...) ; x-compiling (DEFKNOWN SB!IMPL::STABLE-SORT-SIMPLE-VECTOR ...) ; x-compiling (DEFKNOWN MERGE ...) ; x-compiling (DEFKNOWN READ-SEQUENCE ...) ; x-compiling (DEFKNOWN WRITE-SEQUENCE ...) ; x-compiling (DEFKNOWN (CAR CDR ...) ...) ; x-compiling (DEFKNOWN (CAAR CADR ...) ...) ; x-compiling (DEFKNOWN CONS ...) ; x-compiling (DEFKNOWN TREE-EQUAL ...) ; x-compiling (DEFKNOWN ENDP ...) ; x-compiling (DEFKNOWN LIST-LENGTH ...) ; x-compiling (DEFKNOWN (NTH FAST-&REST-NTH) ...) ; x-compiling (DEFKNOWN NTHCDR ...) ; x-compiling (DEFKNOWN LAST ...) ; x-compiling (DEFKNOWN %LAST0 ...) ; x-compiling (DEFKNOWN %LAST1 ...) ; x-compiling (DEFKNOWN %LASTN/FIXNUM ...) ; x-compiling (DEFKNOWN %LASTN/BIGNUM ...) ; x-compiling (DEFKNOWN LIST ...) ; x-compiling (DEFKNOWN LIST* ...) ; x-compiling (DEFKNOWN MAKE-LIST ...) ; x-compiling (DEFKNOWN SB!IMPL::|List| ...) ; x-compiling (DEFKNOWN SB!IMPL::|List*| ...) ; x-compiling (DEFKNOWN SB!IMPL::|Append| ...) ; x-compiling (DEFKNOWN SB!IMPL::|Vector| ...) ; x-compiling (DEFKNOWN APPEND ...) ; x-compiling (DEFKNOWN SB!IMPL::APPEND2 ...) ; x-compiling (DEFKNOWN COPY-LIST ...) ; x-compiling (DEFKNOWN COPY-ALIST ...) ; x-compiling (DEFKNOWN COPY-TREE ...) ; x-compiling (DEFKNOWN REVAPPEND ...) ; x-compiling (DEFKNOWN NCONC ...) ; x-compiling (DEFKNOWN NRECONC ...) ; x-compiling (DEFKNOWN BUTLAST ...) ; x-compiling (DEFKNOWN NBUTLAST ...) ; x-compiling (DEFKNOWN LDIFF ...) ; x-compiling (DEFKNOWN (RPLACA RPLACD) ...) ; x-compiling (DEFKNOWN SUBST ...) ; x-compiling (DEFKNOWN NSUBST ...) ; x-compiling (DEFKNOWN (SUBST-IF SUBST-IF-NOT) ...) ; x-compiling (DEFKNOWN (NSUBST-IF NSUBST-IF-NOT) ...) ; x-compiling (DEFKNOWN SUBLIS ...) ; x-compiling (DEFKNOWN NSUBLIS ...) ; x-compiling (DEFKNOWN MEMBER ...) ; x-compiling (DEFKNOWN (MEMBER-IF MEMBER-IF-NOT) ...) ; x-compiling (DEFKNOWN TAILP ...) ; x-compiling (DEFKNOWN ADJOIN ...) ; x-compiling (DEFKNOWN (UNION INTERSECTION ...) ...) ; x-compiling (DEFKNOWN (NUNION NINTERSECTION ...) ...) ; x-compiling (DEFKNOWN SUBSETP ...) ; x-compiling (DEFKNOWN ACONS ...) ; x-compiling (DEFKNOWN PAIRLIS ...) ; x-compiling (DEFKNOWN (RASSOC ASSOC) ...) ; x-compiling (DEFKNOWN (ASSOC-IF-NOT ASSOC-IF ...) ...) ; x-compiling (DEFKNOWN (MEMQ ASSQ) ...) ; x-compiling (DEFKNOWN DELQ ...) ; x-compiling (DEFKNOWN MAKE-HASH-TABLE ...) ; x-compiling (DEFKNOWN HASH-TABLE-P ...) ; x-compiling (DEFKNOWN GETHASH ...) ; x-compiling (DEFKNOWN SB!IMPL::GETHASH3 ...) ; x-compiling (DEFKNOWN %PUTHASH ...) ; x-compiling (DEFKNOWN REMHASH ...) ; x-compiling (DEFKNOWN MAPHASH ...) ; x-compiling (DEFKNOWN CLRHASH ...) ; x-compiling (DEFKNOWN HASH-TABLE-COUNT ...) ; x-compiling (DEFKNOWN HASH-TABLE-REHASH-SIZE ...) ; x-compiling (DEFKNOWN HASH-TABLE-REHASH-THRESHOLD ...) ; x-compiling (DEFKNOWN HASH-TABLE-SIZE ...) ; x-compiling (DEFKNOWN HASH-TABLE-TEST ...) ; x-compiling (DEFKNOWN SXHASH ...) ; x-compiling (DEFKNOWN PSXHASH ...) ; x-compiling (DEFKNOWN HASH-TABLE-EQUALP ...) ; x-compiling (DEFKNOWN MAKE-ARRAY ...) ; x-compiling (DEFKNOWN %MAKE-ARRAY ...) ; x-compiling (DEFKNOWN SB!IMPL::FILL-DATA-VECTOR ...) ; x-compiling (DEFKNOWN VECTOR ...) ; x-compiling (DEFKNOWN AREF ...) ; x-compiling (DEFKNOWN ROW-MAJOR-AREF ...) ; x-compiling (DEFKNOWN ARRAY-ELEMENT-TYPE ...) ; x-compiling (DEFKNOWN ARRAY-RANK ...) ; x-compiling (DEFKNOWN ARRAY-DIMENSION ...) ; x-compiling (DEFKNOWN ARRAY-DIMENSIONS ...) ; x-compiling (DEFKNOWN ARRAY-IN-BOUNDS-P ...) ; x-compiling (DEFKNOWN ARRAY-ROW-MAJOR-INDEX ...) ; x-compiling (DEFKNOWN ARRAY-TOTAL-SIZE ...) ; x-compiling (DEFKNOWN ADJUSTABLE-ARRAY-P ...) ; x-compiling (DEFKNOWN SVREF ...) ; x-compiling (DEFKNOWN BIT ...) ; x-compiling (DEFKNOWN SBIT ...) ; x-compiling (DEFKNOWN (BIT-AND BIT-IOR ...) ...) ; x-compiling (DEFKNOWN BIT-NOT ...) ; x-compiling (DEFKNOWN BIT-VECTOR-= ...) ; x-compiling (DEFKNOWN ARRAY-HAS-FILL-POINTER-P ...) ; x-compiling (DEFKNOWN FILL-POINTER ...) ; x-compiling (DEFKNOWN SB!IMPL::FILL-POINTER-ERROR ...) ; x-compiling (DEFKNOWN VECTOR-PUSH ...) ; x-compiling (DEFKNOWN VECTOR-PUSH-EXTEND ...) ; x-compiling (DEFKNOWN VECTOR-POP ...) ; x-compiling (DEFKNOWN ADJUST-ARRAY ...) ; x-compiling (DEFKNOWN CHAR ...) ; x-compiling (DEFKNOWN SCHAR ...) ; x-compiling (DEFKNOWN (STRING= STRING-EQUAL) ...) ; x-compiling (DEFKNOWN (STRING< STRING> ...) ...) ; x-compiling (DEFKNOWN MAKE-STRING ...) ; x-compiling (DEFKNOWN (STRING-TRIM STRING-LEFT-TRIM ...) ...) ; x-compiling (DEFKNOWN (STRING-UPCASE STRING-DOWNCASE ...) ...) ; x-compiling (DEFKNOWN (NSTRING-UPCASE NSTRING-DOWNCASE ...) ...) ; x-compiling (DEFKNOWN STRING ...) ; x-compiling (DEFKNOWN (STRING<* STRING>* ...) ...) ; x-compiling (DEFKNOWN STRING=* ...) ; x-compiling (DEFKNOWN EVAL ...) ; x-compiling (DEFKNOWN CONSTANTP ...) ; x-compiling (DEFKNOWN MAKE-SYNONYM-STREAM ...) ; x-compiling (DEFKNOWN MAKE-BROADCAST-STREAM ...) ; x-compiling (DEFKNOWN MAKE-CONCATENATED-STREAM ...) ; x-compiling (DEFKNOWN MAKE-TWO-WAY-STREAM ...) ; x-compiling (DEFKNOWN MAKE-ECHO-STREAM ...) ; x-compiling (DEFKNOWN MAKE-STRING-INPUT-STREAM ...) ; x-compiling (DEFKNOWN MAKE-STRING-OUTPUT-STREAM ...) ; x-compiling (DEFKNOWN GET-OUTPUT-STREAM-STRING ...) ; x-compiling (DEFKNOWN STREAMP ...) ; x-compiling (DEFKNOWN STREAM-ELEMENT-TYPE ...) ; x-compiling (DEFKNOWN STREAM-EXTERNAL-FORMAT ...) ; x-compiling (DEFKNOWN (OUTPUT-STREAM-P INPUT-STREAM-P) ...) ; x-compiling (DEFKNOWN OPEN-STREAM-P ...) ; x-compiling (DEFKNOWN CLOSE ...) ; x-compiling (DEFKNOWN FILE-STRING-LENGTH ...) ; x-compiling (DEFKNOWN COPY-READTABLE ...) ; x-compiling (DEFKNOWN READTABLEP ...) ; x-compiling (DEFKNOWN SET-SYNTAX-FROM-CHAR ...) ; x-compiling (DEFKNOWN SET-MACRO-CHARACTER ...) ; x-compiling (DEFKNOWN GET-MACRO-CHARACTER ...) ; x-compiling (DEFKNOWN MAKE-DISPATCH-MACRO-CHARACTER ...) ; x-compiling (DEFKNOWN SET-DISPATCH-MACRO-CHARACTER ...) ; x-compiling (DEFKNOWN GET-DISPATCH-MACRO-CHARACTER ...) ; x-compiling (DEFKNOWN COPY-PPRINT-DISPATCH ...) ; x-compiling (DEFKNOWN PPRINT-DISPATCH ...) ; x-compiling (DEFKNOWN (PPRINT-FILL PPRINT-LINEAR) ...) ; x-compiling (DEFKNOWN PPRINT-TABULAR ...) ; x-compiling (DEFKNOWN PPRINT-INDENT ...) ; x-compiling (DEFKNOWN PPRINT-NEWLINE ...) ; x-compiling (DEFKNOWN PPRINT-TAB ...) ; x-compiling (DEFKNOWN SET-PPRINT-DISPATCH ...) ; x-compiling (DEFKNOWN (READ READ-PRESERVING-WHITESPACE) ...) ; x-compiling (DEFKNOWN READ-CHAR ...) ; x-compiling (DEFKNOWN READ-CHAR-NO-HANG ...) ; x-compiling (DEFKNOWN READ-DELIMITED-LIST ...) ; x-compiling (DEFKNOWN READ-LINE ...) ; x-compiling (DEFKNOWN UNREAD-CHAR ...) ; x-compiling (DEFKNOWN PEEK-CHAR ...) ; x-compiling (DEFKNOWN LISTEN ...) ; x-compiling (DEFKNOWN CLEAR-INPUT ...) ; x-compiling (DEFKNOWN READ-FROM-STRING ...) ; x-compiling (DEFKNOWN PARSE-INTEGER ...) ; x-compiling (DEFKNOWN READ-BYTE ...) ; x-compiling (DEFKNOWN (PRIN1 PRINT ...) ...) ; x-compiling (DEFKNOWN OUTPUT-OBJECT ...) ; x-compiling (DEFKNOWN (PPRINT) ...) ; x-compiling (DEFFROB WRITE ...) ; x-compiling (DEFFROB WRITE-TO-STRING ...) ; x-compiling (DEFKNOWN (PRIN1-TO-STRING PRINC-TO-STRING) ...) ; x-compiling (DEFKNOWN SB!IMPL::STRINGIFY-OBJECT ...) ; x-compiling (DEFKNOWN WRITE-CHAR ...) ; x-compiling (DEFKNOWN (WRITE-STRING WRITE-LINE) ...) ; x-compiling (DEFKNOWN (TERPRI FINISH-OUTPUT ...) ...) ; x-compiling (DEFKNOWN FRESH-LINE ...) ; x-compiling (DEFKNOWN WRITE-BYTE ...) ; x-compiling (DEFKNOWN FORMAT ...) ; x-compiling (DEFKNOWN SB!FORMAT::ARGS-EXHAUSTED ...) ; x-compiling (DEFKNOWN (Y-OR-N-P YES-OR-NO-P) ...) ; x-compiling (DEFKNOWN WILD-PATHNAME-P ...) ; x-compiling (DEFKNOWN PATHNAME-MATCH-P ...) ; x-compiling (DEFKNOWN TRANSLATE-PATHNAME ...) ; x-compiling (DEFKNOWN LOGICAL-PATHNAME ...) ; x-compiling (DEFKNOWN TRANSLATE-LOGICAL-PATHNAME ...) ; x-compiling (DEFKNOWN LOAD-LOGICAL-PATHNAME-TRANSLATIONS ...) ; x-compiling (DEFKNOWN LOGICAL-PATHNAME-TRANSLATIONS ...) ; x-compiling (DEFKNOWN PATHNAME ...) ; x-compiling (DEFKNOWN TRUENAME ...) ; x-compiling (DEFKNOWN PARSE-NAMESTRING ...) ; x-compiling (DEFKNOWN MERGE-PATHNAMES ...) ; x-compiling (DEFKNOWN MAKE-PATHNAME ...) ; x-compiling (DEFKNOWN PATHNAMEP ...) ; x-compiling (DEFKNOWN PATHNAME-HOST ...) ; x-compiling (DEFKNOWN PATHNAME-DEVICE ...) ; x-compiling (DEFKNOWN PATHNAME-DIRECTORY ...) ; x-compiling (DEFKNOWN PATHNAME-NAME ...) ; x-compiling (DEFKNOWN PATHNAME-TYPE ...) ; x-compiling (DEFKNOWN PATHNAME-VERSION ...) ; x-compiling (DEFKNOWN PATHNAME= ...) ; x-compiling (DEFKNOWN (NAMESTRING FILE-NAMESTRING ...) ...) ; x-compiling (DEFKNOWN ENOUGH-NAMESTRING ...) ; x-compiling (DEFKNOWN USER-HOMEDIR-PATHNAME ...) ; x-compiling (DEFKNOWN OPEN ...) ; x-compiling (DEFKNOWN RENAME-FILE ...) ; x-compiling (DEFKNOWN DELETE-FILE ...) ; x-compiling (DEFKNOWN PROBE-FILE ...) ; x-compiling (DEFKNOWN FILE-WRITE-DATE ...) ; x-compiling (DEFKNOWN FILE-AUTHOR ...) ; x-compiling (DEFKNOWN FILE-POSITION ...) ; x-compiling (DEFKNOWN FILE-LENGTH ...) ; x-compiling (DEFKNOWN LOAD ...) ; x-compiling (DEFKNOWN DIRECTORY ...) ; x-compiling (DEFKNOWN ERROR ...) ; x-compiling (DEFKNOWN CERROR ...) ; x-compiling (DEFKNOWN INVALID-METHOD-ERROR ...) ; x-compiling (DEFKNOWN METHOD-COMBINATION-ERROR ...) ; x-compiling (DEFKNOWN SIGNAL ...) ; x-compiling (DEFKNOWN WARN ...) ; x-compiling (DEFKNOWN INVOKE-DEBUGGER ...) ; x-compiling (DEFKNOWN BREAK ...) ; x-compiling (DEFKNOWN MAKE-CONDITION ...) ; x-compiling (DEFKNOWN COMPUTE-RESTARTS ...) ; x-compiling (DEFKNOWN FIND-RESTART ...) ; x-compiling (DEFKNOWN INVOKE-RESTART ...) ; x-compiling (DEFKNOWN INVOKE-RESTART-INTERACTIVELY ...) ; x-compiling (DEFKNOWN RESTART-NAME ...) ; x-compiling (DEFKNOWN (ABORT MUFFLE-WARNING) ...) ; x-compiling (DEFKNOWN CONTINUE ...) ; x-compiling (DEFKNOWN (STORE-VALUE USE-VALUE) ...) ; x-compiling (DEFKNOWN SB!IMPL::%FAILED-AVER ...) ; x-compiling (DEFKNOWN BUG ...) ; x-compiling (DEFKNOWN SIMPLE-READER-ERROR ...) ; x-compiling (DEFKNOWN READER-EOF-ERROR ...) ; x-compiling (DEFKNOWN COMPILE ...) ; x-compiling (DEFKNOWN COMPILE-FILE ...) ; x-compiling (DEFKNOWN (COMPILE-FILE-PATHNAME) ...) ; x-compiling (DEFKNOWN DISASSEMBLE ...) ; x-compiling (DEFKNOWN DESCRIBE ...) ; x-compiling (DEFKNOWN FUNCTION-LAMBDA-EXPRESSION ...) ; x-compiling (DEFKNOWN INSPECT ...) ; x-compiling (DEFKNOWN ROOM ...) ; x-compiling (DEFKNOWN ED ...) ; x-compiling (DEFKNOWN DRIBBLE ...) ; x-compiling (DEFKNOWN APROPOS ...) ; x-compiling (DEFKNOWN APROPOS-LIST ...) ; x-compiling (DEFKNOWN GET-DECODED-TIME ...) ; x-compiling (DEFKNOWN GET-UNIVERSAL-TIME ...) ; x-compiling (DEFKNOWN DECODE-UNIVERSAL-TIME ...) ; x-compiling (DEFKNOWN ENCODE-UNIVERSAL-TIME ...) ; x-compiling (DEFKNOWN (GET-INTERNAL-RUN-TIME GET-INTERNAL-REAL-TIME) ...) ; x-compiling (DEFKNOWN SLEEP ...) ; x-compiling (DEFKNOWN CALL-WITH-TIMING ...) ; x-compiling (DEFKNOWN (LISP-IMPLEMENTATION-TYPE LISP-IMPLEMENTATION-VERSION) ...) ; x-compiling (DEFKNOWN (MACHINE-TYPE MACHINE-VERSION ...) ...) ; x-compiling (DEFKNOWN IDENTITY ...) ; x-compiling (DEFKNOWN CONSTANTLY ...) ; x-compiling (DEFKNOWN COMPLEMENT ...) ; x-compiling (DEFKNOWN SYMBOL-GLOBAL-VALUE ...) ; x-compiling (DEFKNOWN SET-SYMBOL-GLOBAL-VALUE ...) ; x-compiling (DEFKNOWN GET-BYTES-CONSED ...) ; x-compiling (DEFKNOWN MASK-SIGNED-FIELD ...) ; x-compiling (DEFKNOWN ARRAY-STORAGE-VECTOR ...) ; x-compiling (DEFKNOWN %REST-VALUES ...) ; x-compiling (DEFKNOWN %REST-REF ...) ; x-compiling (DEFKNOWN %REST-LENGTH ...) ; x-compiling (DEFKNOWN %REST-NULL ...) ; x-compiling (DEFKNOWN %REST-TRUE ...) ; x-compiling (DEFKNOWN %UNARY-TRUNCATE/SINGLE-FLOAT ...) ; x-compiling (DEFKNOWN %UNARY-TRUNCATE/DOUBLE-FLOAT ...) ; x-compiling (DEFKNOWN %TYPEP ...) ; x-compiling (DEFKNOWN %INSTANCE-TYPEP ...) ; x-compiling (DEFKNOWN %TYPEP-WRAPPER ...) ; x-compiling (DEFKNOWN %CLEANUP-POINT ...) ; x-compiling (DEFKNOWN %SPECIAL-BIND ...) ; x-compiling (DEFKNOWN %SPECIAL-UNBIND ...) ; x-compiling (DEFKNOWN %LISTIFY-REST-ARGS ...) ; x-compiling (DEFKNOWN %MORE-ARG-CONTEXT ...) ; x-compiling (DEFKNOWN %MORE-ARG ...) ; x-compiling (DEFKNOWN %MORE-KW-ARG ...) ; x-compiling (DEFKNOWN %MORE-ARG-VALUES ...) ; x-compiling (DEFKNOWN %ARG-COUNT-ERROR ...) ; x-compiling (DEFKNOWN %UNKNOWN-VALUES ...) ; x-compiling (DEFKNOWN %CATCH ...) ; x-compiling (DEFKNOWN %UNWIND-PROTECT ...) ; x-compiling (DEFKNOWN (%CATCH-BREAKUP %UNWIND-PROTECT-BREAKUP) ...) ; x-compiling (DEFKNOWN %LEXICAL-EXIT-BREAKUP ...) ; x-compiling (DEFKNOWN %CONTINUE-UNWIND ...) ; x-compiling (DEFKNOWN %THROW ...) ; x-compiling (DEFKNOWN %NLX-ENTRY ...) ; x-compiling (DEFKNOWN %%PRIMITIVE ...) ; x-compiling (DEFKNOWN %POP-VALUES ...) ; x-compiling (DEFKNOWN %NIP-VALUES ...) ; x-compiling (DEFKNOWN %DUMMY-DX-ALLOC ...) ; x-compiling (DEFKNOWN %ALLOCATE-CLOSURES ...) ; x-compiling (DEFKNOWN %TYPE-CHECK-ERROR ...) ; x-compiling (DEFKNOWN %TYPE-CHECK-ERROR/C ...) ; x-compiling (DEFKNOWN %COMPILE-TIME-TYPE-ERROR ...) ; x-compiling (DEFKNOWN CASE-FAILURE ...) ; x-compiling (DEFKNOWN %ODD-KEY-ARGS-ERROR ...) ; x-compiling (DEFKNOWN %UNKNOWN-KEY-ARG-ERROR ...) ; x-compiling (DEFKNOWN (%LDB %MASK-FIELD) ...) ; x-compiling (DEFKNOWN (%DPB %DEPOSIT-FIELD) ...) ; x-compiling (DEFKNOWN %NEGATE ...) ; x-compiling (DEFKNOWN %CHECK-BOUND ...) ; x-compiling (DEFKNOWN DATA-VECTOR-REF ...) ; x-compiling (DEFKNOWN DATA-VECTOR-REF-WITH-OFFSET ...) ; x-compiling (DEFKNOWN DATA-NIL-VECTOR-REF ...) ; x-compiling (DEFKNOWN DATA-VECTOR-SET ...) ; x-compiling (DEFKNOWN DATA-VECTOR-SET-WITH-OFFSET ...) ; x-compiling (DEFKNOWN HAIRY-DATA-VECTOR-REF ...) ; x-compiling (DEFKNOWN HAIRY-DATA-VECTOR-SET ...) ; x-compiling (DEFKNOWN HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ...) ; x-compiling (DEFKNOWN HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS ...) ; x-compiling (DEFKNOWN %CALLER-FRAME ...) ; x-compiling (DEFKNOWN %CALLER-PC ...) ; x-compiling (DEFKNOWN %WITH-ARRAY-DATA ...) ; x-compiling (DEFKNOWN %WITH-ARRAY-DATA/FP ...) ; x-compiling (DEFKNOWN %SET-SYMBOL-PACKAGE ...) ; x-compiling (DEFKNOWN %COERCE-NAME-TO-FUN ...) ; x-compiling (DEFKNOWN %COERCE-CALLABLE-TO-FUN ...) ; x-compiling (DEFKNOWN ARRAY-BOUNDING-INDICES-BAD-ERROR ...) ; x-compiling (DEFKNOWN SEQUENCE-BOUNDING-INDICES-BAD-ERROR ...) ; x-compiling (DEFKNOWN %FIND-POSITION ...) ; x-compiling (DEFKNOWN (%FIND-POSITION-IF %FIND-POSITION-IF-NOT) ...) ; x-compiling (DEFKNOWN EFFECTIVE-FIND-POSITION-TEST ...) ; x-compiling (DEFKNOWN EFFECTIVE-FIND-POSITION-KEY ...) ; x-compiling (DEFKNOWN (%ADJOIN %ADJOIN-EQ) ...) ; x-compiling (DEFKNOWN (%MEMBER %MEMBER-EQ ...) ...) ; x-compiling (DEFKNOWN (%ADJOIN-KEY %ADJOIN-KEY-EQ) ...) ; x-compiling (DEFKNOWN (%MEMBER-KEY %MEMBER-KEY-EQ ...) ...) ; x-compiling (DEFKNOWN (%ASSOC-IF %ASSOC-IF-NOT ...) ...) ; x-compiling (DEFKNOWN (%ASSOC-IF-KEY %ASSOC-IF-NOT-KEY ...) ...) ; x-compiling (DEFKNOWN (%ADJOIN-TEST %ADJOIN-TEST-NOT) ...) ; x-compiling (DEFKNOWN (%MEMBER-TEST %MEMBER-TEST-NOT ...) ...) ; x-compiling (DEFKNOWN (%ADJOIN-KEY-TEST %ADJOIN-KEY-TEST-NOT) ...) ; x-compiling (DEFKNOWN (%MEMBER-KEY-TEST %MEMBER-KEY-TEST-NOT ...) ...) ; x-compiling (DEFKNOWN %CHECK-VECTOR-SEQUENCE-BOUNDS ...) ; x-compiling (DEFKNOWN ARG-COUNT-ERROR ...) ; x-compiling (DEFKNOWN (SETF AREF) ...) ; x-compiling (DEFKNOWN %SET-ROW-MAJOR-AREF ...) ; x-compiling (DEFKNOWN (%RPLACA %RPLACD) ...) ; x-compiling (DEFKNOWN %PUT ...) ; x-compiling (DEFKNOWN %SETELT ...) ; x-compiling (DEFKNOWN %SVSET ...) ; x-compiling (DEFKNOWN (SETF BIT) ...) ; x-compiling (DEFKNOWN (SETF SBIT) ...) ; x-compiling (DEFKNOWN %CHARSET ...) ; x-compiling (DEFKNOWN %SCHARSET ...) ; x-compiling (DEFKNOWN %SET-SYMBOL-VALUE ...) ; x-compiling (DEFKNOWN (SETF SYMBOL-FUNCTION) ...) ; x-compiling (DEFKNOWN %SET-SYMBOL-PLIST ...) ; x-compiling (DEFKNOWN %SETNTH ...) ; x-compiling (DEFKNOWN %SET-FILL-POINTER ...) ; x-compiling (DEFKNOWN SB!VM::TOUCH-OBJECT ...) ; x-compiling (DEFKNOWN FOREIGN-SYMBOL-DATAREF-SAP ...) ; x-compiling (DEFKNOWN FOREIGN-SYMBOL-SAP ...) ; x-compiling (DEFKNOWN FOREIGN-SYMBOL-ADDRESS ...) ; x-compiling (DEFKNOWN %FUN-NAME ...) ; x-compiling (DEFKNOWN (SETF %FUN-NAME) ...) ; x-compiling (DEFKNOWN POLICY-QUALITY ...) ; x-compiling (DEFKNOWN COMPILER-ERROR ...) ; x-compiling (DEFKNOWN (COMPILER-WARN COMPILER-STYLE-WARN) ...) ; x-compiling (DEFKNOWN (COMPILER-NOTIFY MAYBE-COMPILER-NOTIFY) ...) ; x-compiling (DEFKNOWN STYLE-WARN ...) ; x-compiling (DEFKNOWN COERCE-TO-CONDITION ...) ; x-compiling (DEFKNOWN COERCE-SYMBOL-TO-FUN ...) ; x-compiling (DEFKNOWN SC-NUMBER-OR-LOSE ...) ; x-compiling (DEFKNOWN SB!VM:%COMPILER-BARRIER ...) ; x-compiling (DEFKNOWN SB!VM:%MEMORY-BARRIER ...) ; x-compiling (DEFKNOWN SB!VM:%READ-BARRIER ...) ; x-compiling (DEFKNOWN SB!VM:%WRITE-BARRIER ...) ; x-compiling (DEFKNOWN SB!VM:%DATA-DEPENDENCY-BARRIER ...) ; x-compiling (DEFKNOWN %COMPARE-AND-SWAP-SVREF ...) ; x-compiling (DEFKNOWN %COMPARE-AND-SWAP-INSTANCE-REF ...) ; x-compiling (DEFKNOWN %COMPARE-AND-SWAP-SYMBOL-VALUE ...) ; x-compiling (DEFKNOWN (%ATOMIC-DEC-SYMBOL-GLOBAL-VALUE %ATOMIC-INC-SYMBOL-GLOBAL-VALUE) ...) ; x-compiling (DEFKNOWN (%ATOMIC-DEC-CAR %ATOMIC-INC-CAR ...) ...) ; x-compiling (DEFKNOWN SPIN-LOOP-HINT ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/fndb.lisp-obj-tmp written ; compilation finished in 0:00:00.402 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/vm-fndb.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFKNOWN (FIXNUMP BIGNUMP ...) ...) ; x-compiling (DEFKNOWN (VECTOR-SINGLE-FLOAT-P VECTOR-DOUBLE-FLOAT-P ...) ...) ; x-compiling (DEFKNOWN %OTHER-POINTER-P ...) ; x-compiling (DEFKNOWN %OTHER-POINTER-SUBTYPE-P ...) ; x-compiling (DEFKNOWN POINTER-HASH ...) ; x-compiling (DEFKNOWN %SP-STRING-COMPARE ...) ; x-compiling (DEFKNOWN %SXHASH-SIMPLE-STRING ...) ; x-compiling (DEFKNOWN (%SXHASH-SIMPLE-SUBSTRING COMPUTE-SYMBOL-HASH) ...) ; x-compiling (DEFKNOWN SYMBOL-HASH ...) ; x-compiling (DEFKNOWN %SET-SYMBOL-HASH ...) ; x-compiling (DEFKNOWN SYMBOL-INFO-VECTOR ...) ; x-compiling (DEFKNOWN INITIALIZE-VECTOR ...) ; x-compiling (DEFKNOWN VECTOR-FILL* ...) ; x-compiling (DEFKNOWN VECTOR-LENGTH ...) ; x-compiling (DEFKNOWN VECTOR-SAP ...) ; x-compiling (DEFKNOWN LOWTAG-OF ...) ; x-compiling (DEFKNOWN WIDETAG-OF ...) ; x-compiling (DEFKNOWN (GET-HEADER-DATA GET-CLOSURE-LENGTH) ...) ; x-compiling (DEFKNOWN SET-HEADER-DATA ...) ; x-compiling (DEFKNOWN %ARRAY-DIMENSION ...) ; x-compiling (DEFKNOWN %SET-ARRAY-DIMENSION ...) ; x-compiling (DEFKNOWN %ARRAY-RANK ...) ; x-compiling (DEFKNOWN %MAKE-INSTANCE ...) ; x-compiling (DEFKNOWN %MAKE-STRUCTURE-INSTANCE ...) ; x-compiling (DEFKNOWN %INSTANCE-LAYOUT ...) ; x-compiling (DEFKNOWN %SET-INSTANCE-LAYOUT ...) ; x-compiling (DEFKNOWN %INSTANCE-LENGTH ...) ; x-compiling (DEFKNOWN %INSTANCE-REF ...) ; x-compiling (DEFKNOWN %INSTANCE-SET ...) ; x-compiling (DEFKNOWN %LAYOUT-INVALID-ERROR ...) ; x-compiling (DEFKNOWN %RAW-INSTANCE-REF/WORD ...) ; x-compiling (DEFKNOWN %RAW-INSTANCE-SET/WORD ...) ; x-compiling (DEFKNOWN %RAW-INSTANCE-REF/SINGLE ...) ; x-compiling (DEFKNOWN %RAW-INSTANCE-SET/SINGLE ...) ; x-compiling (DEFKNOWN %RAW-INSTANCE-REF/DOUBLE ...) ; x-compiling (DEFKNOWN %RAW-INSTANCE-SET/DOUBLE ...) ; x-compiling (DEFKNOWN %RAW-INSTANCE-REF/COMPLEX-SINGLE ...) ; x-compiling (DEFKNOWN %RAW-INSTANCE-SET/COMPLEX-SINGLE ...) ; x-compiling (DEFKNOWN %RAW-INSTANCE-REF/COMPLEX-DOUBLE ...) ; x-compiling (DEFKNOWN %RAW-INSTANCE-SET/COMPLEX-DOUBLE ...) ; x-compiling (DEFKNOWN %RAW-INSTANCE-ATOMIC-INCF/WORD ...) ; x-compiling (DEFKNOWN %ARRAY-ATOMIC-INCF/WORD ...) ; x-compiling (DEFKNOWN %VECTOR-RAW-BITS ...) ; x-compiling (DEFKNOWN (%SET-VECTOR-RAW-BITS) ...) ; x-compiling (DEFKNOWN ALLOCATE-VECTOR ...) ; x-compiling (DEFKNOWN MAKE-ARRAY-HEADER ...) ; x-compiling (DEFKNOWN MAKE-WEAK-POINTER ...) ; x-compiling (DEFKNOWN %MAKE-COMPLEX ...) ; x-compiling (DEFKNOWN %MAKE-RATIO ...) ; x-compiling (DEFKNOWN MAKE-VALUE-CELL ...) ; x-compiling (DEFKNOWN (DYNAMIC-SPACE-FREE-POINTER BINDING-STACK-POINTER-SAP ...) ...) ; x-compiling (DEFKNOWN ENSURE-SYMBOL-TLS-INDEX ...) ; x-compiling (DEFKNOWN CURRENT-SP ...) ; x-compiling (DEFKNOWN CURRENT-FP ...) ; x-compiling (DEFKNOWN STACK-REF ...) ; x-compiling (DEFKNOWN %SET-STACK-REF ...) ; x-compiling (DEFKNOWN LRA-CODE-HEADER ...) ; x-compiling (DEFKNOWN FUN-CODE-HEADER ...) ; x-compiling (DEFKNOWN %MAKE-LISP-OBJ ...) ; x-compiling (DEFKNOWN GET-LISP-OBJ-ADDRESS ...) ; x-compiling (DEFKNOWN FUN-WORD-OFFSET ...) ; x-compiling (DEFKNOWN WORD-LOGICAL-NOT ...) ; x-compiling (DEFKNOWN (WORD-LOGICAL-AND WORD-LOGICAL-NAND ...) ...) ; x-compiling (DEFKNOWN (SHIFT-TOWARDS-START SHIFT-TOWARDS-END) ...) ; x-compiling (DEFKNOWN %ALLOCATE-BIGNUM ...) ; x-compiling (DEFKNOWN %BIGNUM-LENGTH ...) ; x-compiling (DEFKNOWN %BIGNUM-SET-LENGTH ...) ; x-compiling (DEFKNOWN %BIGNUM-REF ...) ; x-compiling (DEFKNOWN %BIGNUM-REF-WITH-OFFSET ...) ; x-compiling (DEFKNOWN %BIGNUM-SET ...) ; x-compiling (DEFKNOWN %DIGIT-0-OR-PLUSP ...) ; x-compiling (DEFKNOWN (%ADD-WITH-CARRY %SUBTRACT-WITH-BORROW) ...) ; x-compiling (DEFKNOWN %MULTIPLY-AND-ADD ...) ; x-compiling (DEFKNOWN %MULTIPLY ...) ; x-compiling (DEFKNOWN %LOGNOT ...) ; x-compiling (DEFKNOWN (%LOGAND %LOGIOR ...) ...) ; x-compiling (DEFKNOWN %FIXNUM-TO-DIGIT ...) ; x-compiling (DEFKNOWN %BIGFLOOR ...) ; x-compiling (DEFKNOWN %FIXNUM-DIGIT-WITH-CORRECT-SIGN ...) ; x-compiling (DEFKNOWN (%ASHL %ASHR ...) ...) ; x-compiling (DEFINE-KNOWN-COPIERS) ; x-compiling (DEFKNOWN %BYTE-BLT ...) ; x-compiling (DEFKNOWN CODE-INSTRUCTIONS ...) ; x-compiling (DEFKNOWN CODE-HEADER-REF ...) ; x-compiling (DEFKNOWN CODE-HEADER-SET ...) ; x-compiling (DEFKNOWN FUN-SUBTYPE ...) ; x-compiling (DEFKNOWN (#) ...) ; x-compiling (DEFKNOWN MAKE-FDEFN ...) ; x-compiling (DEFKNOWN FDEFN-P ...) ; x-compiling (DEFKNOWN FDEFN-NAME ...) ; x-compiling (DEFKNOWN FDEFN-FUN ...) ; x-compiling (DEFKNOWN (SETF FDEFN-FUN) ...) ; x-compiling (DEFKNOWN FDEFN-MAKUNBOUND ...) ; x-compiling (DEFKNOWN %SIMPLE-FUN-SELF ...) ; x-compiling (DEFKNOWN (SETF %SIMPLE-FUN-SELF) ...) ; x-compiling (DEFKNOWN %CLOSURE-FUN ...) ; x-compiling (DEFKNOWN %CLOSURE-INDEX-REF ...) ; x-compiling (DEFKNOWN %MAKE-FUNCALLABLE-INSTANCE ...) ; x-compiling (DEFKNOWN %FUNCALLABLE-INSTANCE-INFO ...) ; x-compiling (DEFKNOWN %SET-FUNCALLABLE-INSTANCE-INFO ...) ; x-compiling (DEFKNOWN %DATA-VECTOR-AND-INDEX ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/generic/vm-fndb.lisp-obj-tmp written ; compilation finished in 0:00:00.091 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/late-objdef.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (FROB) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/generic/late-objdef.lisp-obj-tmp written ; compilation finished in 0:00:00.048 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/interr.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (DEFUN ERROR-NUMBER-OR-LOSE ...) ; x-compiling (DEFUN !C-STRINGIFY-INTERNAL-ERROR ...) ; x-compiling (SETF SB!C:*BACKEND-INTERNAL-ERRORS* ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/interr.lisp ; in: SETF SB!C:*BACKEND-INTERNAL-ERRORS* ; (MAP 'VECTOR ; (LAMBDA (SB!KERNEL::X) ; (CONS (CADR SB!KERNEL::X) ; (SB!INT:SYMBOLICATE (CAR SB!KERNEL::X) "-ERROR"))) ; (SB!INT:QUASIQUOTE ; ((SB!KERNEL::UNKNOWN "unknown system lossage") ; (SB!KERNEL::OBJECT-NOT-FUNCTION FUNCTION) ; (SB!KERNEL::OBJECT-NOT-LIST LIST) ; (SB!KERNEL::OBJECT-NOT-BIGNUM BIGNUM) ; (SB!KERNEL::OBJECT-NOT-RATIO RATIO) ; (SB!KERNEL::OBJECT-NOT-SINGLE-FLOAT SINGLE-FLOAT) ; (SB!KERNEL::OBJECT-NOT-DOUBLE-FLOAT DOUBLE-FLOAT) ; (SB!KERNEL::OBJECT-NOT-SIMPLE-STRING SIMPLE-STRING) ; (SB!KERNEL::OBJECT-NOT-FIXNUM FIXNUM) ; (SB!KERNEL::OBJECT-NOT-VECTOR VECTOR) ; (SB!KERNEL::OBJECT-NOT-STRING STRING) ; (SB!KERNEL::OBJECT-NOT-BASE-STRING BASE-STRING) ...))) ; --> SB!EXT:TRULY-THE ; ==> ; (SB!KERNEL:%MAP SB!C::RESULT-TYPE-ARG SB!C::FUN #:G174) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; (SB!INT:QUASIQUOTE ; ((SB!KERNEL::UNKNOWN "unknown system lossage") ; (SB!KERNEL::OBJECT-NOT-FUNCTION FUNCTION) (SB!KERNEL::OBJECT-NOT-LIST LIST) ; (SB!KERNEL::OBJECT-NOT-BIGNUM BIGNUM) (SB!KERNEL::OBJECT-NOT-RATIO RATIO) ; (SB!KERNEL::OBJECT-NOT-SINGLE-FLOAT SINGLE-FLOAT) ; (SB!KERNEL::OBJECT-NOT-DOUBLE-FLOAT DOUBLE-FLOAT) ; (SB!KERNEL::OBJECT-NOT-SIMPLE-STRING SIMPLE-STRING) ; (SB!KERNEL::OBJECT-NOT-FIXNUM FIXNUM) (SB!KERNEL::OBJECT-NOT-VECTOR VECTOR) ; (SB!KERNEL::OBJECT-NOT-STRING STRING) ; (SB!KERNEL::OBJECT-NOT-BASE-STRING BASE-STRING) ...)) ; --> SB!IMPL::|List*| SB!IMPL::|Append| MAP SB!EXT:TRULY-THE ; ==> ; (SB!KERNEL:%MAP SB!C::RESULT-TYPE-ARG SB!C::FUN #:G65) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN ERROR-NUMBER-OR-LOSE ; (POSITION SB!KERNEL::NAME SB!C:*BACKEND-INTERNAL-ERRORS* :KEY #'CDR) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; compilation unit finished ; Undefined type: ; CODE-DELETION-NOTE ; caught 3 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/generic/interr.lisp-obj-tmp written ; compilation finished in 0:00:00.044 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/bit-util.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DECLAIM (INLINE CLEAR-BIT-VECTOR ...)) ; x-compiling (DEFUN CLEAR-BIT-VECTOR ...) ; x-compiling (DEFUN SET-BIT-VECTOR ...) ; x-compiling (DEFUN BIT-VECTOR-REPLACE ...) ; x-compiling (DEFUN BIT-VECTOR-COPY ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/bit-util.lisp ; in: DEFUN BIT-VECTOR-COPY ; (COPY-SEQ SB!C::VEC) ; --> LET* LOCALLY ; ==> ; (REPLACE SB!C::RESULT SB!C::SEQ :START1 0 :START2 0 :END1 LENGTH) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN BIT-VECTOR-REPLACE ; (REPLACE SB!C::TO SB!C::FROM) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; compilation unit finished ; Undefined type: ; CODE-DELETION-NOTE ; caught 2 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/bit-util.lisp-obj-tmp written ; compilation finished in 0:00:00.058 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/early-assem.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!ASSEM") ; x-compiling (DEF!CONSTANT ASSEMBLY-UNIT-BITS ...) ; x-compiling (DEF!CONSTANT ASSEMBLY-UNIT-MASK ...) ; x-compiling (DEF!TYPE ASSEMBLY-UNIT ...) ; x-compiling (DEF!TYPE POSSIBLY-SIGNED-ASSEMBLY-UNIT ...) ; x-compiling (DEF!CONSTANT MAX-ALIGNMENT ...) ; x-compiling (DEF!TYPE ALIGNMENT ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/early-assem.lisp-obj-tmp written ; compilation finished in 0:00:00.016 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/barrier.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!THREAD") ; x-compiling (DEFUN SB!VM:%COMPILER-BARRIER ...) ; x-compiling (DEFUN SB!VM:%MEMORY-BARRIER ...) ; x-compiling (DEFUN SB!VM:%READ-BARRIER ...) ; x-compiling (DEFUN SB!VM:%WRITE-BARRIER ...) ; x-compiling (DEFUN SB!VM:%DATA-DEPENDENCY-BARRIER ...) ; x-compiling (DEFPARAMETER *BARRIER-KIND-FUNCTIONS* ...) ; x-compiling (DEFUN BARRIER-KIND-FUNCTION ...) ; x-compiling (DEF!MACRO BARRIER ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/barrier.lisp-obj-tmp written ; compilation finished in 0:00:00.014 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/core.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFSTRUCT (CORE-OBJECT # ...) ...) ; x-compiling (DEFUN NOTE-FUN ...) ; x-compiling (DEFUN DO-CORE-FIXUPS ...) ; x-compiling (DEFUN REFERENCE-CORE-FUN ...) ; x-compiling (DEFUN CORE-CALL-TOPLEVEL-LAMBDA ...) ; x-compiling (DEFUN FIX-CORE-SOURCE-INFO ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/core.lisp ; in: DEFUN FIX-CORE-SOURCE-INFO ; (SETF (SB!C::DEBUG-INFO-SOURCE SB!INT:INFO) SB!C::SOURCE) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!C::DEBUG-INFO-SOURCE) #:NEW64 #:INFO65) ; ; caught STYLE-WARNING: ; undefined function: (SETF DEBUG-INFO-SOURCE) ; (DEFUN SB!C::FIX-CORE-SOURCE-INFO ; (SB!INT:INFO SB!C::OBJECT &OPTIONAL FUNCTION) ; (DECLARE (TYPE SB!C::CORE-OBJECT SB!C::OBJECT) ; (TYPE (OR NULL FUNCTION) FUNCTION)) ; (SB!INT:AVER ; (ZEROP (HASH-TABLE-COUNT (SB!C::CORE-OBJECT-PATCH-TABLE SB!C::OBJECT)))) ; (LET ((SB!C::SOURCE ; (SB!C::DEBUG-SOURCE-FOR-INFO SB!INT:INFO :FUNCTION FUNCTION))) ; (DOLIST (SB!INT:INFO (SB!C::CORE-OBJECT-DEBUG-INFO SB!C::OBJECT)) ; (SETF # SB!C::SOURCE))) ; (SETF (SB!C::CORE-OBJECT-DEBUG-INFO SB!C::OBJECT) NIL) ; (VALUES)) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!INT:INFO SB!C::OBJECT FUNCTION) {C12B871}> ; SB!INT:INFO SB!C::OBJECT 'NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFSTRUCT CORE-OBJECT ; (DEFSTRUCT ; (SB!C::CORE-OBJECT (:CONSTRUCTOR SB!C::MAKE-CORE-OBJECT NIL) ; (:PRINT-OBJECT (LAMBDA (SB!C::X SB!C::S) (PRINT-UNREADABLE-OBJECT #))) ; (:COPIER NIL)) ; (SB!C::ENTRY-TABLE (MAKE-HASH-TABLE :TEST 'EQ) :TYPE HASH-TABLE) ; (SB!C::PATCH-TABLE (MAKE-HASH-TABLE :TEST 'EQ) :TYPE HASH-TABLE) ; (SB!C::DEBUG-INFO NIL :TYPE LIST)) ; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:NEXT6 #:START7 #:COUNT8 #:G9) {BE3BD99}> ; #:NEXT6 #:START7 #:COUNT8 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN FIX-CORE-SOURCE-INFO ; (SB!C::DEBUG-SOURCE-FOR-INFO SB!INT:INFO :FUNCTION FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: DEBUG-SOURCE-FOR-INFO ; in: DEFUN DO-CORE-FIXUPS ; (SB!C:FIXUP-FLAVOR SB!C:FIXUP) ; ; caught STYLE-WARNING: ; undefined function: FIXUP-FLAVOR ; (SB!C:FIXUP-NAME SB!C:FIXUP) ; ; caught STYLE-WARNING: ; undefined function: FIXUP-NAME ; (SB!C:FIXUP-NOTE-FIXUP SB!C::NOTE) ; ; caught STYLE-WARNING: ; undefined function: FIXUP-NOTE-FIXUP ; (SB!C:FIXUP-NOTE-KIND SB!C::NOTE) ; ; caught STYLE-WARNING: ; undefined function: FIXUP-NOTE-KIND ; (SB!C:FIXUP-NOTE-POSITION SB!C::NOTE) ; ; caught STYLE-WARNING: ; undefined function: FIXUP-NOTE-POSITION ; ; compilation unit finished ; Undefined type: ; CODE-DELETION-NOTE ; Undefined functions: ; (SETF DEBUG-INFO-SOURCE) DEBUG-SOURCE-FOR-INFO FIXUP-FLAVOR FIXUP-NAME FIXUP-NOTE-FIXUP FIXUP-NOTE-KIND FIXUP-NOTE-POSITION ; caught 9 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/generic/core.lisp-obj-tmp written ; compilation finished in 0:00:00.063 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/thread.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!THREAD") ; x-compiling (SB-XC:PROCLAIM (QUOTE #)) ; x-compiling (DEF!TYPE THREAD-NAME ...) ; x-compiling (DEF!STRUCT (THREAD #) ...) ; x-compiling (DEF!STRUCT (FOREIGN-THREAD # ...) ...) ; x-compiling (DECLAIM (INLINE MAKE-MUTEX)) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/thread.lisp ; in: DECLAIM (INLINE MAKE-MUTEX) ; (DECLAIM (INLINE SB!THREAD:MAKE-MUTEX)) ; --> EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE SB!THREAD:MAKE-MUTEX)) ; ; caught STYLE-WARNING: ; Proclaiming SB!THREAD:MAKE-MUTEX to be INLINE, but 11 calls to it were ; previously compiled. A declaration of NOTINLINE at the call sites will ; eliminate this warning, as will proclaiming and defining the function before ; its first potential use. ; x-compiling (DEF!STRUCT MUTEX ...) ; x-compiling (DECLAIM (NOTINLINE MAKE-MUTEX)) ; x-compiling (DEFUN MUTEX-VALUE ...) ; x-compiling (DEFUN HOLDING-MUTEX-P ...) ; x-compiling (DEFSETF MUTEX-VALUE ...) ; x-compiling (DECLAIM (INLINE SET-MUTEX-VALUE)) ; x-compiling (DEFUN SET-MUTEX-VALUE ...) ; x-compiling (DEFINE-COMPILER-MACRO SET-MUTEX-VALUE ...) ; x-compiling (DEFTYPE SPINLOCK ...) ; x-compiling (DEFINE-DEPRECATED-FUNCTION :EARLY ...) ; x-compiling (DEFINE-DEPRECATED-FUNCTION :EARLY ...) ; x-compiling (DEFINE-DEPRECATED-FUNCTION :EARLY ...) ; x-compiling (DEFINE-DEPRECATED-FUNCTION :EARLY ...) ; x-compiling (DEFINE-DEPRECATED-FUNCTION :EARLY ...) ; x-compiling (DEFINE-DEPRECATED-FUNCTION :EARLY ...) ; x-compiling (SB-XC:DEFMACRO WITH-RECURSIVE-SPINLOCK ...) ; x-compiling (SB-XC:DEFMACRO WITH-SPINLOCK ...) ; x-compiling (SB-XC:DEFMACRO WITHOUT-THREAD-WAITING-FOR ...) ; x-compiling (SB-XC:DEFMACRO WITH-MUTEX ...) ; x-compiling (SB-XC:DEFMACRO WITH-SYSTEM-MUTEX ...) ; x-compiling (SB-XC:DEFMACRO WITH-RECURSIVE-LOCK ...) ; x-compiling (SB-XC:DEFMACRO WITH-RECURSIVE-SYSTEM-LOCK ...) ; x-compiling (DEF CALL-WITH-SYSTEM-MUTEX) ; x-compiling (DEF CALL-WITH-SYSTEM-MUTEX ...) ; x-compiling (DEF CALL-WITH-SYSTEM-MUTEX ...) ; x-compiling (DEFUN CALL-WITH-MUTEX ...) ; x-compiling (DEFUN CALL-WITH-RECURSIVE-LOCK ...) ; x-compiling (DEFUN CALL-WITH-RECURSIVE-SYSTEM-LOCK ...) ; x-compiling (DEFUN CALL-WITH-RECURSIVE-SYSTEM-LOCK/WITHOUT-GCING ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/thread.lisp ; in: DEFSETF MUTEX-VALUE ; (DEFSETF SB!THREAD:MUTEX-VALUE SB!THREAD::SET-MUTEX-VALUE) ; --> EVAL-WHEN SB!IMPL::ASSIGN-SETF-MACRO ; ==> ; (SB!IMPL::ASSIGN-SETF-MACRO 'SB!THREAD:MUTEX-VALUE NIL NIL ; 'SB!THREAD::SET-MUTEX-VALUE NIL) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::ASSIGN-SETF-MACRO ; in: DEF!STRUCT MUTEX ; (SB!INT:DEF!STRUCT SB!THREAD:MUTEX "Mutex type." ; (SB!THREAD::NAME NIL :TYPE ; (OR NULL SB!THREAD:THREAD-NAME)) ; (SB!THREAD::%OWNER NIL :TYPE (OR NULL SB!THREAD:THREAD))) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN ; --> LET LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:NEXT270 #:START271 #:COUNT272 #:G273) {EBE8201}> ; #:NEXT270 #:START271 #:COUNT272 NIL)) ; ; caught STYLE-WARNING: ; undefined type: SB!EXT:CODE-DELETION-NOTE ; in: ; DEF!STRUCT (FOREIGN-THREAD (:INCLUDE THREAD) (:CONC-NAME "THREAD-")) ; (SB!INT:DEF!STRUCT ; (SB!THREAD:FOREIGN-THREAD (:INCLUDE SB!THREAD:THREAD) ; (:CONC-NAME "THREAD-")) ; "Type of native threads which are attached to the runtime as Lisp threads ; temporarily.") ; --> PROGN DEFSTRUCT PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN ; --> LET LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:NEXT187 #:START188 #:COUNT189 #:G190) {E971F31}> ; #:NEXT187 #:START188 #:COUNT189 NIL)) ; ; caught STYLE-WARNING: ; undefined type: SB!EXT:CODE-DELETION-NOTE ; in: DEF!STRUCT (THREAD (:CONSTRUCTOR %MAKE-THREAD)) ; (SB!INT:DEF!STRUCT (SB!THREAD:THREAD (:CONSTRUCTOR SB!THREAD::%MAKE-THREAD)) ; "Thread type. Do not rely on threads being structs as it may change ; in future versions." ; (SB!THREAD::NAME NIL :TYPE ; (OR SB!THREAD:THREAD-NAME NULL)) ; (SB!THREAD::%ALIVE-P NIL :TYPE BOOLEAN) ; (SB!THREAD::%EPHEMERAL-P NIL :TYPE BOOLEAN) ; (SB!THREAD::OS-THREAD 0 :TYPE SB!EXT:WORD) ; (SB!THREAD::INTERRUPTIONS NIL :TYPE LIST) ; (SB!THREAD::RESULT 0) ; (SB!THREAD::INTERRUPTIONS-LOCK ; (SB!THREAD:MAKE-MUTEX :NAME "thread interruptions lock") ; :TYPE SB!THREAD:MUTEX) ; (SB!THREAD::RESULT-LOCK ; (SB!THREAD:MAKE-MUTEX :NAME "thread result lock") :TYPE ; SB!THREAD:MUTEX) ; SB!THREAD::WAITING-FOR) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN ; --> LET LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:NEXT4 #:START5 #:COUNT6 #:G7) {C284809}> ; #:NEXT4 #:START5 #:COUNT6 NIL)) ; ; caught STYLE-WARNING: ; undefined type: SB!EXT:CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 16 more uses of undefined type SB!EXT:CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/thread.lisp ; in: DEF CALL-WITH-SYSTEM-MUTEX ; (SB!THREAD::DEF SB!THREAD::CALL-WITH-SYSTEM-MUTEX :WITHOUT-GCING) ; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; --> BLOCK FLET BLOCK SB!INT:DX-LET LET UNWIND-PROTECT FLET BLOCK ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK SB!C::%WITHIN-CLEANUP ; --> RETURN-FROM WHEN IF SETF SETQ THE ; ==> ; (SB!THREAD:GRAB-MUTEX SB!THREAD:MUTEX) ; ; caught STYLE-WARNING: ; undefined function: GRAB-MUTEX ; (SB!THREAD::DEF SB!THREAD::CALL-WITH-SYSTEM-MUTEX) ; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; --> BLOCK FLET BLOCK SB!INT:DX-LET LET UNWIND-PROTECT FLET BLOCK ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK SB!C::%WITHIN-CLEANUP ; --> RETURN-FROM WHEN IF SETF SETQ THE ; ==> ; (SB!THREAD:GRAB-MUTEX SB!THREAD:MUTEX) ; ; caught STYLE-WARNING: ; undefined function: GRAB-MUTEX ; in: DEFINE-DEPRECATED-FUNCTION :EARLY ; (SB!THREAD:GRAB-MUTEX SB!THREAD::LOCK) ; ; caught STYLE-WARNING: ; undefined function: GRAB-MUTEX ; ; caught STYLE-WARNING: ; 1 more use of undefined function GRAB-MUTEX ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/thread.lisp ; in: DEFINE-DEPRECATED-FUNCTION :EARLY ; (SB!THREAD:MUTEX-OWNER SB!THREAD::LOCK) ; ; caught STYLE-WARNING: ; undefined function: MUTEX-OWNER ; in: DEF CALL-WITH-SYSTEM-MUTEX ; (SB!THREAD::DEF SB!THREAD::CALL-WITH-SYSTEM-MUTEX :WITHOUT-GCING) ; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; --> BLOCK FLET BLOCK SB!INT:DX-LET LET UNWIND-PROTECT FLET BLOCK WHEN IF ; --> PROGN ; ==> ; (SB!THREAD:RELEASE-MUTEX SB!THREAD:MUTEX) ; ; caught STYLE-WARNING: ; undefined function: RELEASE-MUTEX ; (SB!THREAD::DEF SB!THREAD::CALL-WITH-SYSTEM-MUTEX) ; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; --> BLOCK FLET BLOCK SB!INT:DX-LET LET UNWIND-PROTECT FLET BLOCK WHEN IF ; --> PROGN ; ==> ; (SB!THREAD:RELEASE-MUTEX SB!THREAD:MUTEX) ; ; caught STYLE-WARNING: ; undefined function: RELEASE-MUTEX ; in: DEFINE-DEPRECATED-FUNCTION :EARLY ; (SB!THREAD:RELEASE-MUTEX SB!THREAD::LOCK) ; ; caught STYLE-WARNING: ; undefined function: RELEASE-MUTEX ; ; caught STYLE-WARNING: ; 1 more use of undefined function RELEASE-MUTEX ; ; compilation unit finished ; Undefined type: ; SB!EXT:CODE-DELETION-NOTE ; Undefined functions: ; SB!IMPL::ASSIGN-SETF-MACRO GRAB-MUTEX MUTEX-OWNER RELEASE-MUTEX ; caught 15 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/thread.lisp-obj-tmp written ; compilation finished in 0:00:00.337 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/load.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!FASL") ; x-compiling (DEFUN LOAD-FRESH-LINE ...) ; x-compiling (DEFUN MAYBE-ANNOUNCE-LOAD ...) ; x-compiling (DECLAIM (INLINE READ-BYTE)) ; x-compiling (DEFMACRO FAST-READ-U-INTEGER ...) ; x-compiling (DEFMACRO FAST-READ-VAR-U-INTEGER ...) ; x-compiling (DEFMACRO FAST-READ-S-INTEGER ...) ; x-compiling (DEFMACRO READ-ARG ...) ; x-compiling (DECLAIM (INLINE READ-BYTE-ARG ...)) ; x-compiling (DEFUN READ-BYTE-ARG ...) ; x-compiling (DEFUN READ-HALFWORD-ARG ...) ; x-compiling (DEFUN READ-WORD-ARG ...) ; x-compiling (DEFUN READ-UNSIGNED-BYTE-32-ARG ...) ; x-compiling (DEFVAR *FOP-TABLE*) ; x-compiling (DECLAIM (SIMPLE-VECTOR *FOP-TABLE*)) ; x-compiling (DECLAIM (INLINE REF-FOP-TABLE)) ; x-compiling (DEFUN REF-FOP-TABLE ...) ; x-compiling (DEFUN GET-FOP-TABLE-INDEX ...) ; x-compiling (DEFUN RESET-FOP-TABLE ...) ; x-compiling (DEFUN PUSH-FOP-TABLE ...) ; x-compiling (DEFUN MAKE-FOP-VECTOR ...) ; x-compiling (DEFUN GROW-FOP-VECTOR ...) ; x-compiling (DEFUN NUKE-FOP-VECTOR ...) ; x-compiling (DEFVAR *FOP-STACK*) ; x-compiling (DECLAIM (SIMPLE-VECTOR *FOP-STACK*)) ; x-compiling (DECLAIM (INLINE FOP-STACK-EMPTY-P)) ; x-compiling (DEFUN FOP-STACK-EMPTY-P ...) ; x-compiling (DEFUN FOP-STACK-POP-N ...) ; x-compiling (DEFUN PUSH-FOP-STACK ...) ; x-compiling (DEFINE-CONDITION INVALID-FASL ...) ; x-compiling (DEFINE-CONDITION INVALID-FASL-HEADER ...) ; x-compiling (DEFINE-CONDITION INVALID-FASL-VERSION ...) ; x-compiling (DEFINE-CONDITION INVALID-FASL-IMPLEMENTATION ...) ; x-compiling (DEFINE-CONDITION INVALID-FASL-FEATURES ...) ; x-compiling (DEFUN MAYBE-SKIP-SHEBANG-LINE ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/load.lisp ; in: DEFUN MAYBE-SKIP-SHEBANG-LINE ; (READ-BYTE STREAM NIL) ; --> BLOCK IF LET IF SB!IMPL::EOF-OR-LOSE IF ERROR ; ==> ; STREAM ; ; note: deleting unreachable code ; x-compiling (DEFUN FASL-HEADER-P ...) ; x-compiling (DEFUN CHECK-FASL-HEADER ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/load.lisp ; in: DEFUN CHECK-FASL-HEADER ; (READ-BYTE STREAM NIL) ; --> BLOCK IF LET IF SB!IMPL::EOF-OR-LOSE IF ERROR ; ==> ; STREAM ; ; note: deleting unreachable code ; x-compiling (DEFVAR *SHOW-FOPS-P* ...) ; x-compiling (DEFCONSTANT +2-OPERAND-FOPS+ ...) ; x-compiling (DEFUN LOAD-FASL-GROUP ...) ; x-compiling (DEFUN LOAD-AS-FASL ...) ; x-compiling (DECLAIM (NOTINLINE READ-BYTE)) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/load.lisp ; in: DEFUN READ-WORD-ARG ; (SB!FASL::READ-ARG 4) ; --> SB!INT:WITH-FAST-READ-BYTE LET* FLET UNWIND-PROTECT FLET BLOCK ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:NEXT166 #:START167 #:COUNT168 #:G172) {C191819}> ; #:NEXT166 #:START167 #:COUNT168 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN READ-HALFWORD-ARG ; (SB!FASL::READ-ARG 2) ; --> SB!INT:WITH-FAST-READ-BYTE LET* FLET UNWIND-PROTECT FLET BLOCK ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:NEXT143 #:START144 #:COUNT145 #:G149) {C104F11}> ; #:NEXT143 #:START144 #:COUNT145 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN READ-BYTE-ARG ; (SB!FASL::READ-ARG 1) ; --> THE READ-BYTE BLOCK IF SB!IMPL::ANSI-STREAM-READ-BYTE BLOCK ; --> SB!INT:WITH-FAST-READ-BYTE LET* FLET UNWIND-PROTECT FLET BLOCK ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:NEXT118 #:START119 #:COUNT120 #:G124) {C061001}> ; #:NEXT118 #:START119 #:COUNT120 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 50 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/load.lisp ; in: DEFUN CHECK-FASL-HEADER ; (SB!FASL::READ-STRING-AS-BYTES STREAM SB!FASL::RESULT) ; ; caught STYLE-WARNING: ; undefined function: READ-STRING-AS-BYTES ; ; compilation unit finished ; Undefined type: ; CODE-DELETION-NOTE ; Undefined function: ; READ-STRING-AS-BYTES ; caught 5 STYLE-WARNING conditions ; printed 2 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/load.lisp-obj-tmp written ; compilation finished in 0:00:00.552 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/linkage-table.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFINE-ALIEN-ROUTINE ARCH-WRITE-LINKAGE-TABLE-JMP ...) /entering WITH-ALIEN BINDINGS=((ARCH-WRITE-LINKAGE-TABLE-JMP (FUNCTION VOID SYSTEM-AREA-POINTER SYSTEM-AREA-POINTER) :EXTERN "arch_write_linkage_table_jmp")) /BINDING=(ARCH-WRITE-LINKAGE-TABLE-JMP (FUNCTION VOID SYSTEM-AREA-POINTER SYSTEM-AREA-POINTER) :EXTERN "arch_write_linkage_table_jmp") /SYMBOL=ARCH-WRITE-LINKAGE-TABLE-JMP TYPE=(FUNCTION VOID SYSTEM-AREA-POINTER SYSTEM-AREA-POINTER) OPT1=:EXTERN OPT2="arch_write_linkage_table_jmp" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="arch_write_linkage_table_jmp" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((ARCH-WRITE-LINKAGE-TABLE-JMP #)) (ALIEN-FUNCALL ARCH-WRITE-LINKAGE-TABLE-JMP TABLE-ADDRESS REAL-ADDRESS) (VALUES NIL))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; x-compiling (DEFINE-ALIEN-ROUTINE ARCH-WRITE-LINKAGE-TABLE-REF ...) /entering WITH-ALIEN BINDINGS=((ARCH-WRITE-LINKAGE-TABLE-REF (FUNCTION VOID SYSTEM-AREA-POINTER SYSTEM-AREA-POINTER) :EXTERN "arch_write_linkage_table_ref")) /BINDING=(ARCH-WRITE-LINKAGE-TABLE-REF (FUNCTION VOID SYSTEM-AREA-POINTER SYSTEM-AREA-POINTER) :EXTERN "arch_write_linkage_table_ref") /SYMBOL=ARCH-WRITE-LINKAGE-TABLE-REF TYPE=(FUNCTION VOID SYSTEM-AREA-POINTER SYSTEM-AREA-POINTER) OPT1=:EXTERN OPT2="arch_write_linkage_table_ref" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="arch_write_linkage_table_ref" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((ARCH-WRITE-LINKAGE-TABLE-REF #)) (ALIEN-FUNCALL ARCH-WRITE-LINKAGE-TABLE-REF TABLE-ADDRESS REAL-ADDRESS) (VALUES NIL))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; x-compiling (DEFVAR *LINKAGE-INFO* ...) ; x-compiling (DEFUN WRITE-LINKAGE-TABLE-ENTRY ...) ; x-compiling (DEFUN LINK-FOREIGN-SYMBOL ...) ; x-compiling (DEFUN ENSURE-FOREIGN-SYMBOL-LINKAGE ...) ; x-compiling (DEFUN UPDATE-LINKAGE-TABLE ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/linkage-table.lisp ; in: DEFUN UPDATE-LINKAGE-TABLE ; (SB!INT:DOHASH ((SB!IMPL::NAME-AND-DATAP SB!IMPL::TABLE-ADDRESS) ; SB!SYS:*LINKAGE-INFO* :LOCKED T) ; (LET* ((SB!IMPL::NAME (CAR SB!IMPL::NAME-AND-DATAP)) ; (SB!IMPL::DATAP (CDR SB!IMPL::NAME-AND-DATAP)) ; (SB!IMPL::REAL-ADDRESS ; (SB!SYS:ENSURE-DYNAMIC-FOREIGN-SYMBOL-ADDRESS SB!IMPL::NAME ; SB!IMPL::DATAP))) ; (SB!INT:AVER (AND SB!IMPL::TABLE-ADDRESS SB!IMPL::REAL-ADDRESS)) ; (SB!IMPL::WRITE-LINKAGE-TABLE-ENTRY SB!IMPL::TABLE-ADDRESS ; SB!IMPL::REAL-ADDRESS SB!IMPL::DATAP))) ; --> LET SB!INT:WITH-LOCKED-SYSTEM-TABLE SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK ; --> SB!INT:DX-FLET FLET BLOCK WITH-HASH-TABLE-ITERATOR LET MACROLET LOOP ; --> BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:N-MORE-25 SB!IMPL::NAME-AND-DATAP SB!IMPL::TABLE-ADDRESS #:G30) ; {BEDBC01}> ; #:N-MORE-25 SB!IMPL::NAME-AND-DATAP SB!IMPL::TABLE-ADDRESS NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFINE-ALIEN-ROUTINE ARCH-WRITE-LINKAGE-TABLE-REF ; (SB!ALIEN:DEFINE-ALIEN-ROUTINE SB!IMPL::ARCH-WRITE-LINKAGE-TABLE-REF ; SB!ALIEN:VOID (SB!IMPL::TABLE-ADDRESS SB!SYS:SYSTEM-AREA-POINTER) ; (SB!IMPL::REAL-ADDRESS SB!SYS:SYSTEM-AREA-POINTER)) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK SB!ALIEN:WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET ; --> SYMBOL-MACROLET ; ==> ; (SB!ALIEN:ALIEN-FUNCALL SB!IMPL::ARCH-WRITE-LINKAGE-TABLE-REF ; SB!IMPL::TABLE-ADDRESS SB!IMPL::REAL-ADDRESS) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFINE-ALIEN-ROUTINE ARCH-WRITE-LINKAGE-TABLE-JMP ; (SB!ALIEN:DEFINE-ALIEN-ROUTINE SB!IMPL::ARCH-WRITE-LINKAGE-TABLE-JMP ; SB!ALIEN:VOID (SB!IMPL::TABLE-ADDRESS SB!SYS:SYSTEM-AREA-POINTER) ; (SB!IMPL::REAL-ADDRESS SB!SYS:SYSTEM-AREA-POINTER)) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK SB!ALIEN:WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET ; --> SYMBOL-MACROLET ; ==> ; (SB!ALIEN:ALIEN-FUNCALL SB!IMPL::ARCH-WRITE-LINKAGE-TABLE-JMP ; SB!IMPL::TABLE-ADDRESS SB!IMPL::REAL-ADDRESS) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFINE-ALIEN-ROUTINE ARCH-WRITE-LINKAGE-TABLE-REF ; (SB!ALIEN:DEFINE-ALIEN-ROUTINE SB!IMPL::ARCH-WRITE-LINKAGE-TABLE-REF ; SB!ALIEN:VOID (SB!IMPL::TABLE-ADDRESS SB!SYS:SYSTEM-AREA-POINTER) ; (SB!IMPL::REAL-ADDRESS SB!SYS:SYSTEM-AREA-POINTER)) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK SB!ALIEN:WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET ; --> SYMBOL-MACROLET ; ==> ; (SB!ALIEN:ALIEN-FUNCALL SB!IMPL::ARCH-WRITE-LINKAGE-TABLE-REF ; SB!IMPL::TABLE-ADDRESS SB!IMPL::REAL-ADDRESS) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFINE-ALIEN-ROUTINE ARCH-WRITE-LINKAGE-TABLE-JMP ; (SB!ALIEN:DEFINE-ALIEN-ROUTINE SB!IMPL::ARCH-WRITE-LINKAGE-TABLE-JMP ; SB!ALIEN:VOID (SB!IMPL::TABLE-ADDRESS SB!SYS:SYSTEM-AREA-POINTER) ; (SB!IMPL::REAL-ADDRESS SB!SYS:SYSTEM-AREA-POINTER)) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK SB!ALIEN:WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET ; --> SYMBOL-MACROLET ; ==> ; (SB!ALIEN:ALIEN-FUNCALL SB!IMPL::ARCH-WRITE-LINKAGE-TABLE-JMP ; SB!IMPL::TABLE-ADDRESS SB!IMPL::REAL-ADDRESS) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN UPDATE-LINKAGE-TABLE ; (SB!SYS:ENSURE-DYNAMIC-FOREIGN-SYMBOL-ADDRESS SB!IMPL::NAME SB!IMPL::DATAP) ; ; caught STYLE-WARNING: ; undefined function: ENSURE-DYNAMIC-FOREIGN-SYMBOL-ADDRESS ; in: DEFUN LINK-FOREIGN-SYMBOL ; (SB!SYS:ENSURE-DYNAMIC-FOREIGN-SYMBOL-ADDRESS SB!IMPL::NAME SB!IMPL::DATAP) ; ; caught STYLE-WARNING: ; undefined function: ENSURE-DYNAMIC-FOREIGN-SYMBOL-ADDRESS ; ; compilation unit finished ; Undefined types: ; CODE-DELETION-NOTE COMPILER-NOTE ; Undefined function: ; ENSURE-DYNAMIC-FOREIGN-SYMBOL-ADDRESS ; caught 7 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/linkage-table.lisp-obj-tmp written ; compilation finished in 0:00:00.096 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/foreign-load.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!ALIEN") ; x-compiling (DEFVAR *SHARED-OBJECTS-LOCK* ...) ; x-compiling (DEFINE-UNSUPPORTED-FUN LOAD-FOREIGN ...) ; x-compiling (DEFINE-UNSUPPORTED-FUN LOAD-1-FOREIGN ...) ; x-compiling (DEFINE-ALIEN-VARIABLE UNDEFINED-ALIEN-ADDRESS ...) ; x-compiling (DEFVAR *RUNTIME-DLHANDLE*) ; x-compiling (DEFVAR *SHARED-OBJECTS*) ; x-compiling (DEFSTRUCT SHARED-OBJECT ...) ; x-compiling (DEFUN LOAD-SHARED-OBJECT ...) ; x-compiling (DEFUN UNLOAD-SHARED-OBJECT ...) ; x-compiling (DEFUN TRY-REOPEN-SHARED-OBJECT ...) ; x-compiling (DEFUN REOPEN-SHARED-OBJECTS ...) ; x-compiling (DEFUN CLOSE-SHARED-OBJECTS ...) ; x-compiling (LET (# #) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/foreign-load.lisp ; in: DEFSTRUCT SHARED-OBJECT ; (DEFSTRUCT SB!ALIEN::SHARED-OBJECT ; PATHNAME ; NAMESTRING ; SB!ALIEN::HANDLE ; SB!ALIEN::DONT-SAVE) ; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:NEXT18 #:START19 #:COUNT20 #:G21) {C0BC5D9}> ; #:NEXT18 #:START19 #:COUNT20 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFINE-UNSUPPORTED-FUN LOAD-1-FOREIGN ; (SB!INT:DEFINE-UNSUPPORTED-FUN SB!ALIEN:LOAD-1-FOREIGN ; "Unsupported as of SBCL 0.8.13. Please use LOAD-SHARED-OBJECT." ; "~S is unsupported as of SBCL 0.8.13. Please use LOAD-SHARED-OBJECT." ; (SB!ALIEN:LOAD-1-FOREIGN)) ; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!IMPL::ARGS) {C078E81}> ; NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFINE-UNSUPPORTED-FUN LOAD-FOREIGN ; (SB!INT:DEFINE-UNSUPPORTED-FUN SB!ALIEN:LOAD-FOREIGN ; "Unsupported as of SBCL 0.8.13. See LOAD-SHARED-OBJECT." ; "~S is unsupported as of SBCL 0.8.13. See LOAD-SHARED-OBJECT." ; (SB!ALIEN:LOAD-FOREIGN)) ; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!IMPL::ARGS) {C058001}> ; NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 6 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/foreign-load.lisp ; in: DEFUN REOPEN-SHARED-OBJECTS ; (MAPCAR #'SB!ALIEN::TRY-REOPEN-SHARED-OBJECT SB!SYS:*SHARED-OBJECTS*) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN CLOSE-SHARED-OBJECTS ; (SB!ALIEN::DLCLOSE-OR-LOSE SB!ALIEN::OBJ) ; ; caught STYLE-WARNING: ; undefined function: DLCLOSE-OR-LOSE ; in: DEFUN UNLOAD-SHARED-OBJECT ; (SB!ALIEN::DLCLOSE-OR-LOSE SB!ALIEN::OLD) ; ; caught STYLE-WARNING: ; undefined function: DLCLOSE-OR-LOSE ; in: DEFUN REOPEN-SHARED-OBJECTS ; (SB!SYS:DLOPEN-OR-LOSE) ; ; caught STYLE-WARNING: ; undefined function: DLOPEN-OR-LOSE ; in: DEFUN TRY-REOPEN-SHARED-OBJECT ; (SB!SYS:DLOPEN-OR-LOSE SB!ALIEN::OBJ) ; ; caught STYLE-WARNING: ; undefined function: DLOPEN-OR-LOSE ; in: DEFUN LOAD-SHARED-OBJECT ; (SB!SYS:DLOPEN-OR-LOSE SB!ALIEN::OBJ) ; ; caught STYLE-WARNING: ; undefined function: DLOPEN-OR-LOSE ; in: DEFUN ENSURE-DYNAMIC-FOREIGN-SYMBOL-ADDRESS ; (SB!SYS:FIND-DYNAMIC-FOREIGN-SYMBOL-ADDRESS SYMBOL) ; ; caught STYLE-WARNING: ; undefined function: FIND-DYNAMIC-FOREIGN-SYMBOL-ADDRESS ; (SB!SYS:FIND-FOREIGN-SYMBOL-ADDRESS "undefined_alien_function") ; ; caught STYLE-WARNING: ; undefined function: FIND-FOREIGN-SYMBOL-ADDRESS ; in: DEFUN TRY-REOPEN-SHARED-OBJECT ; (SB!EXT:NATIVE-NAMESTRING (TRANSLATE-LOGICAL-PATHNAME PATHNAME) :AS-FILE T) ; ; caught STYLE-WARNING: ; undefined function: NATIVE-NAMESTRING ; in: DEFUN LOAD-SHARED-OBJECT ; (SB!EXT:NATIVE-NAMESTRING (TRANSLATE-LOGICAL-PATHNAME PATHNAME) :AS-FILE T) ; ; caught STYLE-WARNING: ; undefined function: NATIVE-NAMESTRING ; ; compilation unit finished ; Undefined types: ; CODE-DELETION-NOTE COMPILER-NOTE ; Undefined functions: ; DLCLOSE-OR-LOSE DLOPEN-OR-LOSE FIND-DYNAMIC-FOREIGN-SYMBOL-ADDRESS FIND-FOREIGN-SYMBOL-ADDRESS NATIVE-NAMESTRING ; caught 14 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/foreign-load.lisp-obj-tmp written ; compilation finished in 0:00:00.144 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/unix-foreign-load.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!ALIEN") ; x-compiling (DEFINE-ALIEN-ROUTINE DLOPEN ...) /entering WITH-ALIEN BINDINGS=((DLOPEN (FUNCTION SYSTEM-AREA-POINTER C-STRING INT) :EXTERN "dlopen")) /BINDING=(DLOPEN (FUNCTION SYSTEM-AREA-POINTER C-STRING INT) :EXTERN "dlopen") /SYMBOL=DLOPEN TYPE=(FUNCTION SYSTEM-AREA-POINTER C-STRING INT) OPT1=:EXTERN OPT2="dlopen" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="dlopen" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((DLOPEN #)) (VALUES (ALIEN-FUNCALL DLOPEN FILE MODE)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; x-compiling (DEFINE-ALIEN-ROUTINE DLCLOSE ...) /entering WITH-ALIEN BINDINGS=((DLCLOSE (FUNCTION INT SYSTEM-AREA-POINTER) :EXTERN "dlclose")) /BINDING=(DLCLOSE (FUNCTION INT SYSTEM-AREA-POINTER) :EXTERN "dlclose") /SYMBOL=DLCLOSE TYPE=(FUNCTION INT SYSTEM-AREA-POINTER) OPT1=:EXTERN OPT2="dlclose" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="dlclose" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((DLCLOSE #)) (VALUES (ALIEN-FUNCALL DLCLOSE HANDLE)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; x-compiling (DEFINE-ALIEN-ROUTINE DLERROR ...) /entering WITH-ALIEN BINDINGS=((DLERROR #'C-STRING :EXTERN "dlerror")) /BINDING=(DLERROR #'C-STRING :EXTERN "dlerror") /SYMBOL=DLERROR TYPE=#'C-STRING OPT1=:EXTERN OPT2="dlerror" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="dlerror" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((DLERROR #)) (VALUES (ALIEN-FUNCALL DLERROR)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; x-compiling (DEFINE-ALIEN-ROUTINE DLSYM ...) /entering WITH-ALIEN BINDINGS=((DLSYM (FUNCTION SYSTEM-AREA-POINTER SYSTEM-AREA-POINTER C-STRING) :EXTERN "dlsym")) /BINDING=(DLSYM (FUNCTION SYSTEM-AREA-POINTER SYSTEM-AREA-POINTER C-STRING) :EXTERN "dlsym") /SYMBOL=DLSYM TYPE=(FUNCTION SYSTEM-AREA-POINTER SYSTEM-AREA-POINTER C-STRING) OPT1=:EXTERN OPT2="dlsym" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="dlsym" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((DLSYM #)) (VALUES (ALIEN-FUNCALL DLSYM HANDLE SYMBOL)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; x-compiling (DEFUN DLOPEN-OR-LOSE ...) ; x-compiling (DEFUN DLCLOSE-OR-LOSE ...) ; x-compiling (DEFUN FIND-DYNAMIC-FOREIGN-SYMBOL-ADDRESS ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/unix-foreign-load.lisp ; in: DEFUN DLCLOSE-OR-LOSE ; (DEFUN SB!ALIEN::DLCLOSE-OR-LOSE ; (&OPTIONAL (SB!ALIEN::OBJ () SB!ALIEN::OBJP)) ; (SB!ALIEN::DLERROR) ; (LET (SB!ALIEN::DLERROR) ; (COND ; ((AND # SB!SYS:*RUNTIME-DLHANDLE*) ; (SB!ALIEN::DLCLOSE SB!SYS:*RUNTIME-DLHANDLE*) (SETF #)) ; ((AND SB!ALIEN::OBJP #) (SB!ALIEN::DLCLOSE #) (SETF #))) ; (WHEN SB!ALIEN::DLERROR ; (CERROR "Ignore the error and continue as if closing succeeded." ; "dlerror() returned an error while trying to close ~ ; ~:[runtime~;shared object ~:*~S~]: ~S" ; (WHEN SB!ALIEN::OBJ #) SB!ALIEN::DLERROR)))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!ALIEN::OBJ SB!ALIEN::OBJP) {EDE5711}> ; SB!ALIEN::OBJ T)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN DLOPEN-OR-LOSE ; (DEFUN SB!SYS:DLOPEN-OR-LOSE (&OPTIONAL (SB!ALIEN::OBJ () SB!ALIEN::OBJP)) ; (WHEN SB!ALIEN::OBJP (SB!ALIEN::DLCLOSE-OR-LOSE SB!ALIEN::OBJ)) ; (SB!ALIEN::DLERROR) ; (LET* ((NAMESTRING (AND SB!ALIEN::OBJ #)) ; (SB!ALIEN::SAP (SB!ALIEN::DLOPEN NAMESTRING #))) ; (WHEN (ZEROP (SB!SYS:SAP-INT SB!ALIEN::SAP)) ; (IF SB!ALIEN::OBJP ; (SETF #) ; (SETF #)) ; (ERROR "Error opening ~:[runtime~;shared object ~:*~S~]:~% ~A." ; NAMESTRING (SB!ALIEN::DLERROR))) ; (WHEN SB!ALIEN::OBJP (SETF # SB!ALIEN::SAP)) ; SB!ALIEN::SAP)) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!ALIEN::OBJ SB!ALIEN::OBJP) {ED62AC9}> ; SB!ALIEN::OBJ T)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFINE-ALIEN-ROUTINE DLERROR ; (SB!ALIEN:DEFINE-ALIEN-ROUTINE SB!ALIEN::DLERROR SB!ALIEN:C-STRING) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK SB!ALIEN:WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET ; --> SYMBOL-MACROLET VALUES PROG1 LET ; ==> ; (SB!ALIEN:ALIEN-FUNCALL SB!ALIEN::DLERROR) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFINE-ALIEN-ROUTINE DLCLOSE ; (SB!ALIEN:DEFINE-ALIEN-ROUTINE SB!ALIEN::DLCLOSE SB!ALIEN:INT ; (SB!ALIEN::HANDLE SB!SYS:SYSTEM-AREA-POINTER)) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK SB!ALIEN:WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET ; --> SYMBOL-MACROLET VALUES PROG1 LET ; ==> ; (SB!ALIEN:ALIEN-FUNCALL SB!ALIEN::DLCLOSE SB!ALIEN::HANDLE) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFINE-ALIEN-ROUTINE DLOPEN ; (SB!ALIEN:DEFINE-ALIEN-ROUTINE SB!ALIEN::DLOPEN SB!SYS:SYSTEM-AREA-POINTER ; (SB!ALIEN::FILE SB!ALIEN:C-STRING) (SB!ALIEN::MODE SB!ALIEN:INT)) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK SB!ALIEN:WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET ; --> SYMBOL-MACROLET VALUES PROG1 LET ; ==> ; (SB!ALIEN:ALIEN-FUNCALL SB!ALIEN::DLOPEN SB!ALIEN::FILE SB!ALIEN::MODE) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; ; caught STYLE-WARNING: ; 2 more uses of undefined type COMPILER-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/unix-foreign-load.lisp ; in: DEFUN FIND-DYNAMIC-FOREIGN-SYMBOL-ADDRESS ; (SB!SYS:EXTERN-ALIEN-NAME SYMBOL) ; ; caught STYLE-WARNING: ; undefined function: EXTERN-ALIEN-NAME ; ; compilation unit finished ; Undefined types: ; CODE-DELETION-NOTE COMPILER-NOTE ; Undefined function: ; EXTERN-ALIEN-NAME ; caught 7 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/unix-foreign-load.lisp-obj-tmp written ; compilation finished in 0:00:00.125 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/foreign.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFUN EXTERN-ALIEN-NAME ...) ; x-compiling (DECLAIM (TYPE HASH-TABLE ...)) ; x-compiling (DEFVAR *STATIC-FOREIGN-SYMBOLS* ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN FIND-FOREIGN-SYMBOL-IN-TABLE ...) ; x-compiling (DEFUN FIND-FOREIGN-SYMBOL-ADDRESS ...) ; x-compiling (DEFUN FOREIGN-SYMBOL-ADDRESS ...) ; x-compiling (DEFUN FOREIGN-SYMBOL-SAP ...) ; x-compiling (DEFUN FOREIGN-REINIT ...) ; x-compiling (DEFUN FOREIGN-DEINIT ...) ; x-compiling (DECLAIM (MAYBE-INLINE SAP-FOREIGN-SYMBOL)) ; x-compiling (DEFUN SAP-FOREIGN-SYMBOL ...) /entering WITH-ALIEN BINDINGS=((INFO (STRUCT DL-INFO (FILENAME C-STRING) (BASE UNSIGNED) (SYMBOL C-STRING) ...)) (DLADDR (FUNCTION UNSIGNED UNSIGNED (* #)) :EXTERN "dladdr")) /BINDING=(DLADDR (FUNCTION UNSIGNED UNSIGNED (* (STRUCT DL-INFO))) :EXTERN "dladdr") /SYMBOL=DLADDR TYPE=(FUNCTION UNSIGNED UNSIGNED (* (STRUCT DL-INFO))) OPT1=:EXTERN OPT2="dladdr" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="dladdr" /:EXTERN case /BINDING=(INFO (STRUCT DL-INFO (FILENAME C-STRING) (BASE UNSIGNED) (SYMBOL C-STRING) ...)) /SYMBOL=INFO TYPE=(STRUCT DL-INFO (FILENAME C-STRING) (BASE UNSIGNED) (SYMBOL C-STRING) ...) OPT1=NIL OPT2=NIL /ALIEN-TYPE=# /ALLOCATION=:LOCAL INITIAL-VALUE=NIL /:LOCAL case /VAR=#:VAR249 INITVAL=NIL INFO=# /revised BODY=((LET ((#:VAR249 #)) (SB!ALIEN-INTERNALS:NOTE-LOCAL-ALIEN-TYPE '# #:VAR249) (SYMBOL-MACROLET (#) (SYMBOL-MACROLET # #)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; x-compiling (DEFVAR *!INITIAL-FOREIGN-SYMBOLS*) ; x-compiling (DEFUN !FOREIGN-COLD-INIT ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/foreign.lisp ; in: DEFUN FOREIGN-SYMBOL-SAP ; (MULTIPLE-VALUE-BIND (SB!ALIEN:ADDR SB!IMPL::SHAREDP) ; (SB!SYS:FOREIGN-SYMBOL-ADDRESS SYMBOL SB!IMPL::DATAP) ; NIL ; (IF (AND SB!IMPL::SHAREDP SB!IMPL::DATAP) ; (SB!SYS:INT-SAP (SB!SYS:SAP-REF-WORD (SB!SYS:INT-SAP SB!ALIEN:ADDR) 0)) ; (SB!SYS:INT-SAP SB!ALIEN:ADDR))) ; --> MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!ALIEN:ADDR SB!IMPL::SHAREDP #:G212) {BF616D9}> ; SB!ALIEN:ADDR SB!IMPL::SHAREDP NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN FOREIGN-SYMBOL-ADDRESS ; (DEFUN SB!SYS:FOREIGN-SYMBOL-ADDRESS (SB!IMPL::NAME &OPTIONAL SB!IMPL::DATAP) ; "Returns the address of the foreign symbol NAME. DATAP must be true if the ; symbol designates a variable (used only on linkage-table platforms). Returns a ; secondary value that is true if DATAP was true and the symbol is a dynamic ; foreign symbol. ; ; On linkage-table ports the returned address is always static: either direct ; address of a static symbol, or the linkage-table address of a dynamic one. ; Dynamic symbols are entered into the linkage-table if they aren't there already. ; ; On non-linkage-table ports signals an error if the symbol isn't found." ; (DECLARE (IGNORABLE SB!IMPL::DATAP)) ; (LET ((SB!IMPL::STATIC ; (SB!SYS:FIND-FOREIGN-SYMBOL-IN-TABLE SB!IMPL::NAME ; SB!SYS:*STATIC-FOREIGN-SYMBOLS*))) ; (IF SB!IMPL::STATIC ; (VALUES SB!IMPL::STATIC NIL) ; (PROGN (VALUES # T))))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!IMPL::NAME SB!IMPL::DATAP) {BEE3A09}> ; SB!IMPL::NAME 'NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN FIND-FOREIGN-SYMBOL-IN-TABLE ; (CONCATENATE 'BASE-STRING "ldso_stub__" SB!IMPL::EXTERN) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 5 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/foreign.lisp ; in: DEFUN SAP-FOREIGN-SYMBOL ; (SB!ALIEN:ALIEN-FUNCALL SB!IMPL::DLADDR SB!ALIEN:ADDR ; (SB!ALIEN:ADDR SB!INT:INFO)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN FIND-FOREIGN-SYMBOL-IN-TABLE ; (CONCATENATE 'BASE-STRING "ldso_stub__" SB!IMPL::EXTERN) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; ; compilation unit finished ; Undefined types: ; CODE-DELETION-NOTE COMPILER-NOTE ; caught 6 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/foreign.lisp-obj-tmp written ; compilation finished in 0:00:00.255 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/fop.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!FASL") ; x-compiling (DEFVAR *SKIP-UNTIL* ...) ; x-compiling (DEFMACRO WITH-FOP-STACK ...) ; x-compiling (DEFMACRO !DEFINE-FOP ...) ; x-compiling (DEFUN !%DEFINE-FOP ...) ; x-compiling (DEFUN READ-STRING-AS-BYTES ...) ; x-compiling (DEFUN READ-BASE-STRING-AS-BYTES ...) ; x-compiling (DEFUN READ-STRING-AS-UNSIGNED-BYTE-32 ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/fop.lisp ; in: DEFUN READ-STRING-AS-UNSIGNED-BYTE-32 ; (SB-XC:CODE-CHAR (SB!INT:FAST-READ-U-INTEGER 4)) ; --> MULTIPLE-VALUE-BIND LET UNLESS IF PROGN ; ==> ; (SB!C::%TYPE-CHECK-ERROR/C #:G269 ; 'SB!KERNEL::OBJECT-NOT-UNICODE-CODE-POINT-ERROR) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first argument of TYPE-CHECK-ERROR/C ; x-compiling (DEFVAR *SHOW-FOP-NOP4-P* ...) ; x-compiling (!DEFINE-FOP 137 ...) ; x-compiling (!DEFINE-FOP 0 ...) ; x-compiling (!DEFINE-FOP 1 ...) ; x-compiling (!DEFINE-FOP 2 ...) ; x-compiling (!DEFINE-FOP 3 ...) ; x-compiling (!DEFINE-FOP 4 ...) ; x-compiling (!DEFINE-FOP 66 ...) ; x-compiling (!DEFINE-FOP 76 ...) ; x-compiling (!DEFINE-FOP 48 ...) ; x-compiling (!DEFINE-FOP 45 ...) ; x-compiling (!DEFINE-FOP 68 ...) ; x-compiling (!DEFINE-FOP 69 ...) ; x-compiling (!DEFINE-FOP 64 ...) ; x-compiling (!DEFINE-FOP 62 ...) ; x-compiling (!DEFINE-FOP 63 ...) ; x-compiling (DEFSTRUCT (UNDEFINED-PACKAGE #) ...) ; x-compiling (DECLAIM (FREEZE-TYPE UNDEFINED-PACKAGE)) ; x-compiling (DEFUN AUX-FOP-INTERN ...) ; x-compiling (!DEFINE-FOP 80 ...) ; x-compiling (!DEFINE-FOP 84 ...) ; x-compiling (!DEFINE-FOP 240 ...) ; x-compiling (!DEFINE-FOP 96 ...) ; x-compiling (!DEFINE-FOP 104 ...) ; x-compiling (!DEFINE-FOP 44 ...) ; x-compiling (!DEFINE-FOP 156 ...) ; x-compiling (DEFUN LOAD-S-INTEGER ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/fop.lisp ; in: DEFUN LOAD-S-INTEGER ; (ASH 1 SB!FASL::BITS) ; ; note: forced to do full call ; unable to do inline ASH (cost 3) because: ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; (- SB!FASL::RESULT (ASH 1 SB!FASL::BITS)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 32) arithmetic (cost 5) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 32). ; The second argument is a (INTEGER 1), not a (SIGNED-BYTE 32). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 32) &REST ; T). ; etc. ; (ASH SB-XC:BYTE SB!FASL::BITS) ; ; note: forced to do full call ; unable to do inline ASH (cost 3) because: ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; (+ SB!FASL::RESULT (ASH SB-XC:BYTE SB!FASL::BITS)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 32) arithmetic (cost 5) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 32). ; The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 32). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 32) &REST ; T). ; etc. ; (DO* ((SB!INT:INDEX LENGTH (1- SB!INT:INDEX)) ; (SB-XC:BYTE 0 (SB!INT:FAST-READ-BYTE)) ; (SB!FASL::RESULT 0 (+ SB!FASL::RESULT (ASH SB-XC:BYTE SB!FASL::BITS))) ; (SB!FASL::BITS 0 (+ SB!FASL::BITS 8))) ; ((= SB!INT:INDEX 0) ; (IF (LOGBITP 7 SB-XC:BYTE) ; (- SB!FASL::RESULT (ASH 1 SB!FASL::BITS)) ; SB!FASL::RESULT)) ; (DECLARE (FIXNUM SB!INT:INDEX SB-XC:BYTE SB!FASL::BITS))) ; --> BLOCK LET* TAGBODY SETQ SETQ ; ==> ; (THE FIXNUM (1- SB!INT:INDEX)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; ==> ; (THE FIXNUM (+ SB!FASL::BITS 8)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of CHECK-FIXNUM ; x-compiling (!DEFINE-FOP 36 ...) ; x-compiling (!DEFINE-FOP 34 ...) ; x-compiling (!DEFINE-FOP 35 ...) ; x-compiling (!DEFINE-FOP 70 ...) ; x-compiling (!DEFINE-FOP 71 ...) ; x-compiling (DEFINE-COMPLEX-FOP 72 ...) ; x-compiling (DEFINE-COMPLEX-FOP 73 ...) ; x-compiling (DEFINE-FLOAT-FOP 46 ...) ; x-compiling (DEFINE-FLOAT-FOP 47 ...) ; x-compiling (DEFUN FOP-LIST-FROM-STACK ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/fop.lisp ; in: DEFUN FOP-LIST-FROM-STACK ; (DO* ((SB!FASL::I (+ SB!FASL::PTR SB!FASL::N) (1- SB!FASL::I)) ; (SB!FASL::RES NIL ; (CONS (SB!FASL::FOP-STACK-REF SB!FASL::I) SB!FASL::RES))) ; ((= SB!FASL::I SB!FASL::PTR) SB!FASL::RES) ; (DECLARE (TYPE SB!INT:INDEX SB!FASL::I))) ; --> BLOCK LET* MULTIPLE-VALUE-BIND LET UNLESS IF PROGN ; ==> ; (SB!C::%TYPE-CHECK-ERROR/C #:G977 'SB!KERNEL::OBJECT-NOT-INDEX-ERROR) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of TYPE-CHECK-ERROR/C ; x-compiling (!DEFINE-FOP 33 ...) ; x-compiling (!DEFINE-FOP 16 ...) ; x-compiling (FROB FOP-LIST-1 ...) ; x-compiling (FROB FOP-LIST-2 ...) ; x-compiling (FROB FOP-LIST-3 ...) ; x-compiling (FROB FOP-LIST-4 ...) ; x-compiling (FROB FOP-LIST-5 ...) ; x-compiling (FROB FOP-LIST-6 ...) ; x-compiling (FROB FOP-LIST-7 ...) ; x-compiling (FROB FOP-LIST-8 ...) ; x-compiling (FROB FOP-LIST*-1 ...) ; x-compiling (FROB FOP-LIST*-2 ...) ; x-compiling (FROB FOP-LIST*-3 ...) ; x-compiling (FROB FOP-LIST*-4 ...) ; x-compiling (FROB FOP-LIST*-5 ...) ; x-compiling (FROB FOP-LIST*-6 ...) ; x-compiling (FROB FOP-LIST*-7 ...) ; x-compiling (FROB FOP-LIST*-8 ...) ; x-compiling (!DEFINE-FOP 100 ...) ; x-compiling (!DEFINE-FOP 160 ...) ; x-compiling (!DEFINE-FOP 92 ...) ; x-compiling (!DEFINE-FOP 89 ...) ; x-compiling (DEFGLOBAL **SAETP-BITS-PER-LENGTH** ...) ; x-compiling (DECLAIM (TYPE # ...)) ; x-compiling (!DEFINE-FOP 43 ...) ; x-compiling (!DEFINE-FOP 53 ...) ; x-compiling (!DEFINE-FOP 54 ...) ; x-compiling (DEFUN FOP-FUNCALL* ...) ; x-compiling (!DEFINE-FOP 55 ...) ; x-compiling (!DEFINE-FOP 56 ...) ; x-compiling (!DEFINE-FOP 200 ...) ; x-compiling (!DEFINE-FOP 201 ...) ; x-compiling (!DEFINE-FOP 202 ...) ; x-compiling (!DEFINE-FOP 204 ...) ; x-compiling (!DEFINE-FOP 203 ...) ; x-compiling (!DEFINE-FOP 224 ...) ; x-compiling (!DEFINE-FOP 60 ...) ; x-compiling (!DEFINE-FOP 65 ...) ; x-compiling (!DEFINE-FOP 74 ...) ; x-compiling (!DEFINE-FOP 174 ...) ; x-compiling (!DEFINE-FOP 140 ...) ; x-compiling (!DEFINE-FOP 139 ...) ; x-compiling (!DEFINE-FOP 144 ...) ; x-compiling (!DEFINE-FOP 145 ...) ; x-compiling (!DEFINE-FOP 146 ...) ; x-compiling (!DEFINE-FOP 147 ...) ; x-compiling (!DEFINE-FOP 148 ...) ; x-compiling (!DEFINE-FOP 149 ...) ; x-compiling (!DEFINE-FOP 150 ...) ; x-compiling (!DEFINE-FOP 151 ...) ; x-compiling (!DEFINE-FOP 152 ...) ; x-compiling (!DEFINE-FOP 153 ...) ; x-compiling (!DEFINE-FOP 154 ...) ; x-compiling (!DEFINE-FOP 155 ...) ; x-compiling (FROB (108 T) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/fop.lisp ; in: DEFGLOBAL **SAETP-BITS-PER-LENGTH** ; (SB!EXT:DEFGLOBAL SB!FASL::**SAETP-BITS-PER-LENGTH** ; (LET ((ARRAY ; (MAKE-ARRAY # :ELEMENT-TYPE '# :INITIAL-ELEMENT ; 255))) ; (LOOP SB!FASL::FOR SB!FASL::SAETP SB!FASL::ACROSS SB!VM:*SPECIALIZED-ARRAY-ELEMENT-TYPE-PROPERTIES* ; DO (SETF # #)) ; ARRAY) ; "255 means bad entry.") ; --> PROGN LET LET ; ==> ; (SB!IMPL::%DEFGLOBAL 'SB!FASL::**SAETP-BITS-PER-LENGTH** ; (UNLESS #:BOUNDP ; (LET ((ARRAY #)) ; (LOOP SB!FASL::FOR SB!FASL::SAETP SB!FASL::ACROSS SB!VM:*SPECIALIZED-ARRAY-ELEMENT-TYPE-PROPERTIES* ; DO (SETF #)) ; ARRAY)) ; #:BOUNDP '"255 means bad entry." T ; (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::%DEFGLOBAL ; in: !DEFINE-FOP 174 ; (SETF (SB!C::DEBUG-SOURCE-COMPILED SB!FASL::DEBUG-SOURCE) ; (GET-UNIVERSAL-TIME) ; (SB!C::DEBUG-SOURCE-CREATED SB!FASL::DEBUG-SOURCE) ; (FILE-WRITE-DATE ; (SB!C::DEBUG-SOURCE-NAMESTRING SB!FASL::DEBUG-SOURCE))) ; --> PROGN SETF LET* MULTIPLE-VALUE-BIND LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'(SETF SB!C::DEBUG-SOURCE-COMPILED) #:NEW1911 ; #:DEBUG-SOURCE1912) ; ; caught STYLE-WARNING: ; undefined function: (SETF SB!C::DEBUG-SOURCE-COMPILED) ; ==> ; (SB!C::%FUNCALL #'(SETF SB!C::DEBUG-SOURCE-CREATED) #:NEW1914 ; #:DEBUG-SOURCE1915) ; ; caught STYLE-WARNING: ; undefined function: (SETF SB!C::DEBUG-SOURCE-CREATED) ; in: !DEFINE-FOP 68 ; (ALLOCATE-INSTANCE (FIND-CLASS (THE SYMBOL SB!FASL::NAME))) ; ; caught STYLE-WARNING: ; undefined function: ALLOCATE-INSTANCE ; in: DEFUN !%DEFINE-FOP ; (MOD SB!FASL::BASE-OPCODE SB!FASL::N-SLOTS) ; --> LET ; ==> ; (REM NUMBER SB!C::DIVISOR) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFMACRO !DEFINE-FOP ; (MEMBER SB!FASL::PUSHP '(NIL T)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; (MULTIPLE-VALUE-BIND (SB!FASL::OPERANDS SB!FASL::STACK-ARGS) ; (IF (CONSP (CAR SB!FASL::ARGLIST)) ; (ECASE (CAAR SB!FASL::ARGLIST) (:OPERANDS (VALUES # #))) ; (VALUES NIL SB!FASL::ARGLIST)) ; (ASSERT (<= (LENGTH SB!FASL::OPERANDS) 2)) ; (SB!INT:QUASIQUOTE ; (PROGN ; (DEFUN #S(SB!IMPL::COMMA :EXPR SB!FASL::NAME :KIND 0) ; #S(SB!IMPL::COMMA :EXPR SB!FASL::OPERANDS :KIND 0) ; #S(SB!IMPL::COMMA :EXPR # :KIND 2)) ; (SB!FASL::!%DEFINE-FOP '#S(SB!IMPL::COMMA :EXPR SB!FASL::NAME :KIND 0) ; #S(SB!IMPL::COMMA :EXPR SB!FASL::FOP-CODE :KIND 0) ; #S(SB!IMPL::COMMA :EXPR # :KIND 0) ; #S(SB!IMPL::COMMA :EXPR # :KIND 0))))) ; --> MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!FASL::OPERANDS SB!FASL::STACK-ARGS #:G37) {E035131}> ; SB!FASL::OPERANDS SB!FASL::STACK-ARGS NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 150 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/fop.lisp ; in: !DEFINE-FOP 174 ; (SB!C::DEBUG-SOURCE-NAMESTRING SB!FASL::DEBUG-SOURCE) ; ; caught STYLE-WARNING: ; undefined function: SB!C::DEBUG-SOURCE-NAMESTRING ; in: !DEFINE-FOP 68 ; (FIND-CLASS (THE SYMBOL SB!FASL::NAME)) ; ; caught STYLE-WARNING: ; undefined function: FIND-CLASS ; in: DEFUN AUX-FOP-INTERN ; (SB!INT:INTERN* SB!FASL::BUFFER SB!FASL::SIZE PACKAGE :NO-COPY T) ; ; caught STYLE-WARNING: ; undefined function: INTERN* ; in: !DEFINE-FOP 224 ; (SB!FASL::LOAD-CODE SB!FASL::N-BOXED-WORDS SB!FASL::N-UNBOXED-BYTES) ; ; caught STYLE-WARNING: ; undefined function: LOAD-CODE ; in: !DEFINE-FOP 69 ; (SB!PCL::SET-SLOT-VALUE SB!FASL::OBJ SB!FASL::SLOT-NAME SB!FASL::VAL) ; ; caught STYLE-WARNING: ; undefined function: SB!PCL::SET-SLOT-VALUE ; (SLOT-MAKUNBOUND SB!FASL::OBJ SB!FASL::SLOT-NAME) ; ; caught STYLE-WARNING: ; undefined function: SLOT-MAKUNBOUND ; in: !DEFINE-FOP 150 ; (SB!SYS:READ-N-BYTES SB!FASL::*FASL-INPUT-STREAM* SB!FASL::SYM 0 SB!FASL::LEN) ; --> BLOCK IF LET* ; ==> ; (SB!GRAY:STREAM-READ-SEQUENCE STREAM SB!IMPL::BUFFER SB!IMPL::START ; SB!IMPL::END) ; ; caught STYLE-WARNING: ; undefined function: SB!GRAY:STREAM-READ-SEQUENCE ; in: !DEFINE-FOP 147 ; (SB!SYS:READ-N-BYTES SB!FASL::*FASL-INPUT-STREAM* SB!FASL::SYM 0 SB!FASL::LEN) ; --> BLOCK IF LET* ; ==> ; (SB!GRAY:STREAM-READ-SEQUENCE STREAM SB!IMPL::BUFFER SB!IMPL::START ; SB!IMPL::END) ; ; caught STYLE-WARNING: ; undefined function: SB!GRAY:STREAM-READ-SEQUENCE ; in: !DEFINE-FOP 43 ; (SB!SYS:READ-N-BYTES SB!FASL::*FASL-INPUT-STREAM* VECTOR 0 SB!FASL::BYTES) ; --> BLOCK IF LET* ; ==> ; (SB!GRAY:STREAM-READ-SEQUENCE STREAM SB!IMPL::BUFFER SB!IMPL::START ; SB!IMPL::END) ; ; caught STYLE-WARNING: ; undefined function: SB!GRAY:STREAM-READ-SEQUENCE ; in: DEFGLOBAL **SAETP-BITS-PER-LENGTH** ; (MAKE-ARRAY (1+ SB!VM:WIDETAG-MASK) :ELEMENT-TYPE '(UNSIGNED-BYTE 8) ; :INITIAL-ELEMENT 255) ; --> LOCALLY MAKE-ARRAY SB!EXT:TRULY-THE ; ==> ; (FILL ; (SB!EXT:TRULY-THE (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (256)) ; (SB!KERNEL:ALLOCATE-VECTOR 154 (THE SB!INT:INDEX LENGTH) ; 64)) ; (THE (UNSIGNED-BYTE 8) '255)) ; ; caught STYLE-WARNING: ; undefined function: UB8-BASH-FILL ; ; compilation unit finished ; Undefined type: ; CODE-DELETION-NOTE ; Undefined functions: ; SB!IMPL::%DEFGLOBAL (SETF SB!C::DEBUG-SOURCE-COMPILED) (SETF SB!C::DEBUG-SOURCE-CREATED) ALLOCATE-INSTANCE SB!C::DEBUG-SOURCE-NAMESTRING FIND-CLASS INTERN* LOAD-CODE SB!PCL::SET-SLOT-VALUE SLOT-MAKUNBOUND SB!GRAY:STREAM-READ-SEQUENCE UB8-BASH-FILL ; caught 18 STYLE-WARNING conditions ; printed 8 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/fop.lisp-obj-tmp written ; compilation finished in 0:00:01.287 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ctype.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DECLAIM (TYPE # ...)) ; x-compiling (DEFVAR *LOSSAGE-FUN*) ; x-compiling (DEFVAR *UNWINNAGE-FUN*) ; x-compiling (DEFVAR *CTYPE-TEST-FUN*) ; x-compiling (DEFVAR *LOSSAGE-DETECTED*) ; x-compiling (DEFVAR *UNWINNAGE-DETECTED*) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN NOTE-LOSSAGE ...) ; x-compiling (DEFUN NOTE-UNWINNAGE ...) ; x-compiling (DECLAIM (SPECIAL *COMPILER-ERROR-CONTEXT*)) ; x-compiling (DEFUN ALWAYS-SUBTYPEP ...) ; x-compiling (DEFUN VALID-FUN-USE ...) ; x-compiling (DEFUN CHECK-ARG-TYPE ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN CHECK-FIXED-AND-REST ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN CHECK-KEY-ARGS ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN DEFINITION-TYPE ...) ; x-compiling (DEFSTRUCT (APPROXIMATE-FUN-TYPE #) ...) ; x-compiling (DEFSTRUCT (APPROXIMATE-KEY-INFO #) ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN NOTE-FUN-USE ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN VALID-APPROXIMATE-TYPE ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN CHECK-APPROXIMATE-FIXED-AND-REST ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN CHECK-APPROXIMATE-ARG-TYPE ...) ; x-compiling (DEFUN CHECK-APPROXIMATE-KEYWORDS ...) ; x-compiling (DEFUN TRY-TYPE-INTERSECTIONS ...) ; x-compiling (DEFUN FIND-OPTIONAL-DISPATCH-TYPES ...) ; x-compiling (DEFUN FIND-LAMBDA-TYPES ...) ; x-compiling (DEFUN ASSERT-DEFINITION-TYPE ...) ; x-compiling (DEFUN ASSERT-GLOBAL-FUNCTION-DEFINITION-TYPE ...) ; x-compiling (DEFUN MASSAGE-GLOBAL-DEFINITION-TYPE ...) ; x-compiling (DEFUN MAP-COMBINATION-ARGS-AND-TYPES ...) ; x-compiling (DEFUN ASSERT-CALL-TYPE ...) ; x-compiling (DEFUN CHECK-CATCH-TAG-TYPE ...) ; x-compiling (DEFUN %COMPILE-TIME-TYPE-ERROR ...) ; x-compiling (DEFOPTIMIZER (%COMPILE-TIME-TYPE-ERROR IR2-CONVERT) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ctype.lisp ; in: DEFUN ASSERT-CALL-TYPE ; (SB!C::ASSERT-LVAR-TYPE SB!C::LVAR SB!C::RETURNS SB!C:POLICY) ; ; caught STYLE-WARNING: ; undefined function: ASSERT-LVAR-TYPE ; in: DEFUN ASSERT-DEFINITION-TYPE ; (SB!C::ASSERT-LVAR-TYPE (SB!C::RETURN-RESULT RETURN) SB!C::TYPE-RETURNS ; SB!C:POLICY) ; ; caught STYLE-WARNING: ; undefined function: ASSERT-LVAR-TYPE ; in: DEFUN VALID-FUN-USE ; (MULTIPLE-VALUE-BIND (SB!ALIEN:INT SB!C::WIN) ; (FUNCALL SB!C::RESULT-TEST SB!C::OUT-TYPE SB!C::RETURN-TYPE) ; (COND ; ((NOT SB!C::WIN) ; (SB!C::NOTE-UNWINNAGE "can't tell whether the result is a ~S" ; (SB!KERNEL:TYPE-SPECIFIER SB!C::RETURN-TYPE))) ; ((NOT SB!ALIEN:INT) ; (SB!C::NOTE-LOSSAGE "The result is a ~S, not a ~S." ; (SB!KERNEL:TYPE-SPECIFIER SB!C::OUT-TYPE) ; (SB!KERNEL:TYPE-SPECIFIER SB!C::RETURN-TYPE))))) ; --> MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!ALIEN:INT SB!C::WIN #:G28) {BDC6951}> ; SB!ALIEN:INT SB!C::WIN NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN NOTE-UNWINNAGE ; (DEFUN SB!C::NOTE-UNWINNAGE (SB!C::FORMAT-STRING &REST SB!C::FORMAT-ARGS) ; (SETQ SB!C::*UNWINNAGE-DETECTED* T) ; (WHEN SB!C::*UNWINNAGE-FUN* ; (APPLY SB!C::*UNWINNAGE-FUN* SB!C::FORMAT-STRING SB!C::FORMAT-ARGS)) ; (VALUES)) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!C::FORMAT-STRING SB!C::FORMAT-ARGS #:REST-CONTEXT-12 ; #:REST-COUNT-13) ; {BD40D41}> ; SB!C::FORMAT-STRING NIL NIL 0)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN NOTE-LOSSAGE ; (DEFUN SB!C::NOTE-LOSSAGE (SB!C::FORMAT-STRING &REST SB!C::FORMAT-ARGS) ; (SETQ SB!C::*LOSSAGE-DETECTED* T) ; (WHEN SB!C::*LOSSAGE-FUN* ; (APPLY SB!C::*LOSSAGE-FUN* SB!C::FORMAT-STRING SB!C::FORMAT-ARGS)) ; (VALUES)) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!C::FORMAT-STRING SB!C::FORMAT-ARGS #:REST-CONTEXT-0 ; #:REST-COUNT-1) ; {BCF8121}> ; SB!C::FORMAT-STRING NIL NIL 0)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 62 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ctype.lisp ; in: DEFUN NOTE-FUN-USE ; (MAPCAR (LAMBDA (SB!C::X) (LIST (SB!C::LVAR-TYPE SB!C::X))) SB!C::ARG) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN DEFINITION-TYPE ; (MAPCAR #'SB!C::LEAF-TYPE (SB!C::LAMBDA-VARS SB!C::FUNCTIONAL)) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN NOTE-FUN-USE ; (SB!C::CONSTANT-LVAR-P SB!C::KEY) ; ; caught STYLE-WARNING: ; undefined function: CONSTANT-LVAR-P ; in: DEFUN CHECK-KEY-ARGS ; (SB!C::CONSTANT-LVAR-P SB!C::K) ; ; caught STYLE-WARNING: ; undefined function: CONSTANT-LVAR-P ; in: DEFUN CHECK-ARG-TYPE ; (SB!C::CONSTANT-LVAR-P SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: CONSTANT-LVAR-P ; ; caught STYLE-WARNING: ; 1 more use of undefined function CONSTANT-LVAR-P ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ctype.lisp ; in: DEFUN ASSERT-CALL-TYPE ; (SB!C::DERIVE-NODE-TYPE SB!C:CALL SB!C::RETURNS) ; ; caught STYLE-WARNING: ; undefined function: DERIVE-NODE-TYPE ; in: DEFUN ASSERT-DEFINITION-TYPE ; (SB!C::DERIVE-NODE-TYPE SB!C::REF SB!C::S-TYPE) ; ; caught STYLE-WARNING: ; undefined function: DERIVE-NODE-TYPE ; in: DEFUN VALID-FUN-USE ; (SB!C::IMMEDIATELY-USED-P SB!C::LVAR SB!C:CALL) ; ; caught STYLE-WARNING: ; undefined function: IMMEDIATELY-USED-P ; in: DEFOPTIMIZER (%COMPILE-TIME-TYPE-ERROR IR2-CONVERT) ; (SB!C::IR2-CONVERT-FULL-CALL SB!C::NODE BLOCK) ; ; caught STYLE-WARNING: ; undefined function: IR2-CONVERT-FULL-CALL ; in: DEFUN CHECK-CATCH-TAG-TYPE ; (SB!C::LVAR-ALL-SOURCES SB!C::TAG) ; ; caught STYLE-WARNING: ; undefined function: LVAR-ALL-SOURCES ; in: DEFUN ASSERT-DEFINITION-TYPE ; (SB!C::LVAR-DERIVED-TYPE (SB!C::RETURN-RESULT RETURN)) ; ; caught STYLE-WARNING: ; undefined function: LVAR-DERIVED-TYPE ; in: DEFUN ASSERT-CALL-TYPE ; (SB!C::LVAR-HAS-SINGLE-USE-P SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: LVAR-HAS-SINGLE-USE-P ; in: DEFUN MAP-COMBINATION-ARGS-AND-TYPES ; (SB!C::LVAR-TYPE (SB!C::COMBINATION-FUN SB!C:CALL)) ; ; caught STYLE-WARNING: ; undefined function: LVAR-TYPE ; in: DEFUN NOTE-FUN-USE ; (SB!C::LVAR-TYPE (CAR SB!C::ARG)) ; ; caught STYLE-WARNING: ; undefined function: LVAR-TYPE ; in: DEFUN CHECK-ARG-TYPE ; (SB!C::LVAR-TYPE SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: LVAR-TYPE ; ; caught STYLE-WARNING: ; 1 more use of undefined function LVAR-TYPE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ctype.lisp ; in: DEFUN NOTE-FUN-USE ; (SB!C::LVAR-VALUE SB!C::KEY) ; ; caught STYLE-WARNING: ; undefined function: LVAR-VALUE ; in: DEFUN CHECK-KEY-ARGS ; (SB!C::LVAR-VALUE SB!C::V) ; ; caught STYLE-WARNING: ; undefined function: LVAR-VALUE ; in: DEFUN CHECK-ARG-TYPE ; (SB!C::LVAR-VALUE SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: LVAR-VALUE ; ; caught STYLE-WARNING: ; 2 more uses of undefined function LVAR-VALUE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ctype.lisp ; in: DEFUN ASSERT-DEFINITION-TYPE ; (SB!C::MAIN-ENTRY SB!C::FUNCTIONAL) ; ; caught STYLE-WARNING: ; undefined function: MAIN-ENTRY ; in: DEFUN ASSERT-CALL-TYPE ; (SB!C::REOPTIMIZE-LVAR SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: REOPTIMIZE-LVAR ; ; compilation unit finished ; Undefined types: ; CODE-DELETION-NOTE COMPILER-NOTE ; Undefined functions: ; ASSERT-LVAR-TYPE CONSTANT-LVAR-P DERIVE-NODE-TYPE IMMEDIATELY-USED-P IR2-CONVERT-FULL-CALL LVAR-ALL-SOURCES LVAR-DERIVED-TYPE LVAR-HAS-SINGLE-USE-P LVAR-TYPE LVAR-VALUE MAIN-ENTRY REOPTIMIZE-LVAR ; caught 29 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/ctype.lisp-obj-tmp written ; compilation finished in 0:00:00.545 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/disassem.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!DISASSEM") ; x-compiling (DEF!CONSTANT LABEL-COLUMN-WIDTH ...) ; x-compiling (DEFTYPE TEXT-WIDTH ...) ; x-compiling (DEFTYPE ALIGNMENT ...) ; x-compiling (DEFTYPE OFFSET ...) ; x-compiling (DEFTYPE ADDRESS ...) ; x-compiling (DEFTYPE DISASSEM-LENGTH ...) ; x-compiling (DEFTYPE COLUMN ...) ; x-compiling (DEF!CONSTANT MAX-FILTERED-VALUE-INDEX ...) ; x-compiling (DEFTYPE FILTERED-VALUE-INDEX ...) ; x-compiling (DEFTYPE FILTERED-VALUE-VECTOR ...) ; x-compiling (DEFVAR *DISASSEM-INSTS* ...) ; x-compiling (DECLAIM (TYPE HASH-TABLE ...)) ; x-compiling (DEFVAR *DISASSEM-INST-SPACE* ...) ; x-compiling (DEFVAR *DISASSEM-INST-ALIGNMENT-BYTES* ...) ; x-compiling (DECLAIM (TYPE ALIGNMENT ...)) ; x-compiling (DEFVAR *DISASSEM-LOCATION-COLUMN-WIDTH* ...) ; x-compiling (DECLAIM (TYPE # ...)) ; x-compiling (DEFVAR *DISASSEM-OPCODE-COLUMN-WIDTH* ...) ; x-compiling (DECLAIM (TYPE TEXT-WIDTH ...)) ; x-compiling (DEFVAR *DISASSEM-INST-COLUMN-WIDTH* ...) ; x-compiling (DECLAIM (TYPE TEXT-WIDTH ...)) ; x-compiling (DEFVAR *DISASSEM-NOTE-COLUMN* ...) ; x-compiling (DEFSTRUCT (FUN-CACHE # ...) ...) ; x-compiling (DEFVAR *DISASSEM-FUN-CACHE* ...) ; x-compiling (DECLAIM (TYPE FUN-CACHE ...)) ; x-compiling (DECLAIM (INLINE DCHUNK-OR ...)) ; x-compiling (DEF!CONSTANT DCHUNK-BITS ...) ; x-compiling (DEFTYPE DCHUNK ...) ; x-compiling (DEFTYPE DCHUNK-INDEX ...) ; x-compiling (DEF!CONSTANT DCHUNK-ZERO ...) ; x-compiling (DEF!CONSTANT DCHUNK-ONE ...) ; x-compiling (DEFUN DCHUNK-EXTRACT ...) ; x-compiling (DEFMACRO DCHUNK-COPY ...) ; x-compiling (DEFUN DCHUNK-OR ...) ; x-compiling (DEFUN DCHUNK-AND ...) ; x-compiling (DEFUN DCHUNK-CLEAR ...) ; x-compiling (DEFUN DCHUNK-NOT ...) ; x-compiling (DEFMACRO DCHUNK-ANDF ...) ; x-compiling (DEFMACRO DCHUNK-ORF ...) ; x-compiling (DEFMACRO DCHUNK-CLEARF ...) ; x-compiling (DEFUN DCHUNK-MAKE-MASK ...) ; x-compiling (DEFUN DCHUNK-MAKE-FIELD ...) ; x-compiling (DEFMACRO MAKE-DCHUNK ...) ; x-compiling (DEFUN SAP-REF-DCHUNK ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/disassem.lisp ; in: DEFUN SAP-REF-DCHUNK ; (EQ SB!DISASSEM::BYTE-ORDER :BIG-ENDIAN) ; ==> ; SB!DISASSEM::BYTE-ORDER ; ; note: deleting unreachable code ; (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET) ; ==> ; SB!DISASSEM::SAP ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (DEFUN SB!DISASSEM:SAP-REF-DCHUNK ; (SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET SB!DISASSEM::BYTE-ORDER) ; (DECLARE (TYPE SB!SYS:SYSTEM-AREA-POINTER SB!DISASSEM::SAP) ; (TYPE SB!DISASSEM::OFFSET SB!DISASSEM::BYTE-OFFSET) ; (OPTIMIZE (SPEED 3) (SAFETY 0))) ; (THE SB!DISASSEM:DCHUNK ; (ECASE SB!DISASSEM::DCHUNK-BITS ; (32 ; (IF # ; # ; #)) ; (64 ; (IF # ; # ; #))))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; ==> ; #'(SB!INT:NAMED-LAMBDA SB!DISASSEM:SAP-REF-DCHUNK ; (SB!DISASSEM::SAP SB!DISASSEM::BYTE-OFFSET SB!DISASSEM::BYTE-ORDER) ; (DECLARE (TYPE SB!SYS:SYSTEM-AREA-POINTER SB!DISASSEM::SAP) ; (TYPE SB!DISASSEM::OFFSET SB!DISASSEM::BYTE-OFFSET) ; (OPTIMIZE (SPEED 3) (SAFETY 0))) ; (BLOCK SB!DISASSEM:SAP-REF-DCHUNK ; (THE SB!DISASSEM:DCHUNK ; (ECASE SB!DISASSEM::DCHUNK-BITS (32 #) (64 #))))) ; ; note: doing unsigned word to integer coercion (cost 20) to "" ; x-compiling (DEFUN DCHUNK-CORRECTED-EXTRACT ...) ; x-compiling (DEFMACRO DCHUNK-INSERTF ...) ; x-compiling (DEFUN DCHUNK= ...) ; x-compiling (DEFMACRO DCHUNK-ZEROP ...) ; x-compiling (DEFUN DCHUNK-STRICT-SUPERSET-P ...) ; x-compiling (DEFUN DCHUNK-COUNT-BITS ...) ; x-compiling (DEFSTRUCT (INSTRUCTION # ...) ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFSTRUCT (INST-SPACE # ...) ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DECLAIM (TYPE # ...)) ; x-compiling (DEFSTRUCT (INST-SPACE-CHOICE # ...) ...) ; x-compiling (DEFVAR *ARG-FORM-KINDS* ...) ; x-compiling (DEFSTRUCT (ARG-FORM-KIND #) ...) ; x-compiling (DEFUN ARG-FORM-KIND-OR-LOSE ...) ; x-compiling (DEFUN FIND-ARG-FORM-PRODUCER ...) ; x-compiling (DEFUN FIND-ARG-FORM-CHECKER ...) ; x-compiling (DEFUN CANONICALIZE-ARG-FORM-KIND ...) ; x-compiling (DEFVAR *DISASSEM-INST-FORMATS* ...) ; x-compiling (DEFVAR *DISASSEM-ARG-TYPES* ...) ; x-compiling (DEFVAR *DISASSEM-FUN-CACHE* ...) ; x-compiling (DEFSTRUCT (ARG # ...) ...) ; x-compiling (DEFSTRUCT (INSTRUCTION-FORMAT # ...) ...) ; x-compiling (DEFSTRUCT (FUNSTATE # ...) ...) ; x-compiling (DEFUN MAKE-FUNSTATE ...) ; x-compiling (DEFUN FUNSTATE-COMPATIBLE-P ...) ; x-compiling (DEFUN ARG-OR-LOSE ...) ; x-compiling (DEFSTRUCT (VALSRC # ...) ...) ; x-compiling (DEFUN MAKE-VALSRC ...) ; x-compiling (DEFVAR *CURRENT-INSTRUCTION-FLAVOR* ...) ; x-compiling (DEFUN PD-ERROR ...) ; x-compiling (DEFUN SELF-EVALUATING-P ...) ; x-compiling (DEFUN MAYBE-QUOTE ...) ; x-compiling (DEFUN DOESNT-NEED-WRAPPING-P ...) ; x-compiling (DEFUN MAKE-WRAPPER ...) ; x-compiling (DEFUN FILTER-OVERRIDES ...) ; x-compiling (DEFPARAMETER *ARG-FUN-PARAMS* ...) ; x-compiling (DEFUN MUNGE-FUN-REFS ...) ; x-compiling (DEFUN GEN-ARGS-DEF-FORM ...) ; x-compiling (DEFUN GEN-PRINTER-DEF-FORMS-DEF-FORM ...) ; x-compiling (DEFUN UPDATE-ARGS-FORM ...) ; x-compiling (DEFUN FORMAT-OR-LOSE ...) ; x-compiling (DEFMACRO DEFINE-INSTRUCTION-FORMAT ...) ; x-compiling (DEFUN MAKE-ARG ...) ; x-compiling (DEFUN COPY-ARG ...) ; x-compiling (DEFUN MODIFY-OR-ADD-ARG ...) ; x-compiling (DEFUN MODIFY-ARG ...) ; x-compiling (DEFMACRO ARG-ACCESS-MACRO ...) ; x-compiling (DEFUN ARG-VALUE-FORM ...) ; x-compiling (DEFUN CORRECT-DCHUNK-BYTESPEC-FOR-ENDIANNESS ...) ; x-compiling (DEFUN MAKE-ARG-TEMP-BINDINGS ...) ; x-compiling (DEFUN GEN-ARG-FORMS ...) ; x-compiling (DEFUN MAYBE-LISTIFY ...) ; x-compiling (DEFUN SET-ARG-FROM-TYPE ...) ; x-compiling (DEFUN GET-ARG-TEMP ...) ; x-compiling (DEFUN SET-ARG-TEMPS ...) ; x-compiling (DEFMACRO DEFINE-ARG-TYPE ...) ; x-compiling (DEFMACRO DEF-ARG-FORM-KIND ...) ; x-compiling (DEF-ARG-FORM-KIND (:RAW) ...) ; x-compiling (DEF-ARG-FORM-KIND (:SIGN-EXTENDED :UNFILTERED) ...) ; x-compiling (DEFUN VALSRC-EQUAL ...) ; x-compiling (DEF-ARG-FORM-KIND (:FILTERING) ...) ; x-compiling (DEF-ARG-FORM-KIND (:FILTERED :UNADJUSTED) ...) ; x-compiling (DEF-ARG-FORM-KIND (:ADJUSTED :NUMERIC ...) ...) ; x-compiling (DEF-ARG-FORM-KIND (:LABELLED :FINAL) ...) ; x-compiling (DEF-ARG-FORM-KIND (:PRINTED) ...) ; x-compiling (DEFUN REMEMBER-PRINTER-USE ...) ; x-compiling (DEFUN SOURCE-FORM ...) ; x-compiling (DEFUN VALUE-OR-SOURCE ...) ; x-compiling (DEFSTRUCT (CACHED-FUN # ...) ...) ; x-compiling (DEFUN FIND-CACHED-FUN ...) ; x-compiling (DEFMACRO !WITH-CACHED-FUN ...) ; x-compiling (DEFUN FIND-PRINTER-FUN ...) ; x-compiling (DEFUN MAKE-PRINTER-DEFUN ...) ; x-compiling (DEFUN PREPROCESS-TEST ...) ; x-compiling (DEFUN PREPROCESS-CONDITIONALS ...) ; x-compiling (DEFUN PREPROCESS-PRINTER ...) ; x-compiling (DEFUN FIND-FIRST-FIELD-NAME ...) ; x-compiling (DEFUN PREPROCESS-CHOOSES ...) ; x-compiling (DEFUN SHARING-CONS ...) ; x-compiling (DEFUN SHARING-MAPCAR ...) ; x-compiling (DEFUN ALL-ARG-REFS-RELEVANT-P ...) ; x-compiling (DEFUN PICK-PRINTER-CHOICE ...) ; x-compiling (DEFUN COMPILE-PRINTER-LIST ...) ; x-compiling (DEFUN COMPILE-PRINTER-BODY ...) ; x-compiling (DEFUN COMPILE-PRINT ...) ; x-compiling (DEFUN STRING-OR-QSYM-P ...) ; x-compiling (DEFUN STRIP-QUOTE ...) ; x-compiling (DEFUN COMPARE-FIELDS-FORM ...) ; x-compiling (DEFUN COMPILE-TEST ...) ; x-compiling (DEFUN FIND-LABELLER-FUN ...) ; x-compiling (DEFUN FIND-PREFILTER-FUN ...) ; x-compiling (DEFUN COMPUTE-MASK-ID ...) ; x-compiling (DEFUN INSTALL-INST-FLAVORS ...) ; x-compiling (DECLAIM (INLINE BYTES-TO-BITS)) ; x-compiling (DECLAIM (MAYBE-INLINE SIGN-EXTEND ...)) ; x-compiling (DEFUN BYTES-TO-BITS ...) ; x-compiling (DEFUN BITS-TO-BYTES ...) ; x-compiling (DEFUN SIGN-EXTEND ...) ; x-compiling (DEFUN ALIGNED-P ...) ; x-compiling (DEFUN ALIGN ...) ; x-compiling (DEFUN TAB ...) ; x-compiling (DEFUN TAB0 ...) ; x-compiling (DEFUN PRINC16 ...) ; x-compiling (DEFUN READ-SIGNED-SUFFIX ...) ; x-compiling (DEFSTRUCT (DISASSEM-STATE # ...) ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFUN DSTATE-CUR-ADDR ...) ; x-compiling (DEFUN DSTATE-NEXT-ADDR ...) ; x-compiling (DEFMACRO DSTATE-GET-PROP ...) ; x-compiling (DEFUN DSTATE-PUT-INST-PROP ...) ; x-compiling (DEFUN DSTATE-GET-INST-PROP ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/disassem.lisp ; in: DEFSTRUCT INST-SPACE ; (DEFSTRUCT ; (SB!DISASSEM::INST-SPACE (:CONC-NAME SB!DISASSEM::ISPACE-) (:COPIER NIL)) ; (SB!DISASSEM::VALID-MASK SB!DISASSEM::DCHUNK-ZERO :TYPE SB!DISASSEM:DCHUNK) ; (SB!DISASSEM::CHOICES NIL :TYPE LIST)) ; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:NEXT310 #:START311 #:COUNT312 #:G313) {F2F2479}> ; #:NEXT310 #:START311 #:COUNT312 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFSTRUCT INSTRUCTION ; (DEFSTRUCT ; (SB!DISASSEM:INSTRUCTION (:CONC-NAME SB!DISASSEM::INST-) ; (:CONSTRUCTOR SB!DISASSEM::MAKE-INSTRUCTION ; (SB!DISASSEM::NAME SB!DISASSEM::FORMAT-NAME SB!DISASSEM::PRINT-NAME ; LENGTH SB!DISASSEM::MASK SB!DISASSEM::ID SB!DISASSEM::PRINTER ; SB!DISASSEM::LABELLER SB!DISASSEM::PREFILTER SB!DISASSEM::CONTROL)) ; (:COPIER NIL)) ; (SB!DISASSEM::NAME NIL :TYPE (OR SYMBOL STRING)) ; (SB!DISASSEM::FORMAT-NAME NIL :TYPE (OR SYMBOL STRING)) ; (SB!DISASSEM::MASK SB!DISASSEM::DCHUNK-ZERO :TYPE SB!DISASSEM:DCHUNK) ; (SB!DISASSEM::ID SB!DISASSEM::DCHUNK-ZERO :TYPE SB!DISASSEM:DCHUNK) ; (LENGTH 0 :TYPE SB!DISASSEM::DISASSEM-LENGTH) ; (SB!DISASSEM::PRINT-NAME NIL :TYPE SYMBOL) ; (SB!DISASSEM::PREFILTER NIL :TYPE (OR NULL FUNCTION)) ; (SB!DISASSEM::LABELLER NIL :TYPE (OR NULL FUNCTION)) ; (SB!DISASSEM::PRINTER (SB!INT:MISSING-ARG) :TYPE (OR NULL FUNCTION)) ; (SB!DISASSEM::CONTROL NIL :TYPE (OR NULL FUNCTION)) ; ...) ; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:NEXT179 #:START180 #:COUNT181 #:G182) {EDD0B59}> ; #:NEXT179 #:START180 #:COUNT181 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFSTRUCT FUN-CACHE ; (DEFSTRUCT ; (SB!DISASSEM::FUN-CACHE (:COPIER NIL) ; (:PRINT-OBJECT ; (LAMBDA (SB!DISASSEM::SELF STREAM) (PRINT-UNREADABLE-OBJECT #)))) ; (SB!DISASSEM::SERIAL-NUMBER 0 :TYPE FIXNUM) ; (SB!DISASSEM::PRINTERS NIL :TYPE LIST) ; (SB!DISASSEM::LABELLERS NIL :TYPE LIST) ; (SB!DISASSEM::PREFILTERS NIL :TYPE LIST)) ; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:NEXT12 #:START13 #:COUNT14 #:G15) {E08BAE1}> ; #:NEXT12 #:START13 #:COUNT14 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 108 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/disassem.lisp ; in: DEFUN MODIFY-ARG ; (MAPCAR ; (LAMBDA (SB!DISASSEM::BYTESPEC) ; (WHEN (> (+ # #) SB!DISASSEM::FORMAT-LENGTH) ; (ERROR "~@" ; (SB!DISASSEM::ARG-NAME SB!DISASSEM::ARG) SB!DISASSEM::BYTESPEC ; SB!DISASSEM::FORMAT-LENGTH)) ; (SB!DISASSEM::CORRECT-DCHUNK-BYTESPEC-FOR-ENDIANNESS SB!DISASSEM::BYTESPEC ; SB!DISASSEM::FORMAT-LENGTH ; SB!C:*BACKEND-BYTE-ORDER*)) ; SB!DISASSEM::FIELDS) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN GEN-ARGS-DEF-FORM ; (SB!INT:QUASIQUOTE ; (LET ((#S(SB!IMPL::COMMA :EXPR SB!DISASSEM::ARGS-VAR :KIND 0) (COPY-LIST #))) ; #S(SB!IMPL::COMMA ; :EXPR (MAPCAR (LAMBDA # #) SB!DISASSEM::OVERRIDES) ; :KIND 2) ; #S(SB!IMPL::COMMA :EXPR SB!DISASSEM::ARGS-VAR :KIND 0))) ; --> SB!IMPL::|List*| SB!IMPL::|Append| MAPCAR LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN FILTER-OVERRIDES ; (MAPCAR ; (LAMBDA (SB!DISASSEM::OVERRIDE) ; (LIST* (CAR SB!DISASSEM::OVERRIDE) (CADR SB!DISASSEM::OVERRIDE) ; (SB!DISASSEM::MUNGE-FUN-REFS (CDDR SB!DISASSEM::OVERRIDE) ; SB!DISASSEM::EVALP))) ; SB!DISASSEM::OVERRIDES) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; ; caught STYLE-WARNING: ; 10 more uses of undefined type COMPILER-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/disassem.lisp ; in: DEFUN READ-SIGNED-SUFFIX ; (SB!DISASSEM:READ-SUFFIX LENGTH SB!DISASSEM::DSTATE) ; ; caught STYLE-WARNING: ; undefined function: READ-SUFFIX ; in: DEFUN DSTATE-NEXT-ADDR ; (SB!DISASSEM:SEG-VIRTUAL-LOCATION ; (SB!DISASSEM:DSTATE-SEGMENT SB!DISASSEM::DSTATE)) ; ; caught STYLE-WARNING: ; undefined function: SEG-VIRTUAL-LOCATION ; in: DEFUN DSTATE-CUR-ADDR ; (SB!DISASSEM:SEG-VIRTUAL-LOCATION ; (SB!DISASSEM:DSTATE-SEGMENT SB!DISASSEM::DSTATE)) ; ; caught STYLE-WARNING: ; undefined function: SEG-VIRTUAL-LOCATION ; in: DEFSTRUCT DISASSEM-STATE ; (DEFSTRUCT ; (SB!DISASSEM:DISASSEM-STATE (:CONC-NAME SB!DISASSEM::DSTATE-) ; (:CONSTRUCTOR SB!DISASSEM::%MAKE-DSTATE) (:COPIER NIL)) ; (SB!DISASSEM::CUR-OFFS 0 :TYPE SB!DISASSEM::OFFSET) ; (SB!DISASSEM::NEXT-OFFS 0 :TYPE SB!DISASSEM::OFFSET) ; (SB!DISASSEM::SEGMENT-SAP NIL :TYPE (OR NULL SB!SYS:SYSTEM-AREA-POINTER)) ; (SB!DISASSEM:SEGMENT NIL :TYPE (OR NULL SB!DISASSEM:SEGMENT)) ; (SB!DISASSEM::ALIGNMENT SB!VM:N-WORD-BYTES :TYPE SB!DISASSEM::ALIGNMENT) ; (SB!DISASSEM::BYTE-ORDER :LITTLE-ENDIAN :TYPE ; (MEMBER :BIG-ENDIAN :LITTLE-ENDIAN)) ; (SB!DISASSEM::PROPERTIES NIL :TYPE LIST) ; (SB!DISASSEM::INST-PROPERTIES NIL :TYPE LIST) ; (SB!DISASSEM::FILTERED-VALUES ; (MAKE-ARRAY SB!DISASSEM::MAX-FILTERED-VALUE-INDEX) :TYPE ; SB!DISASSEM::FILTERED-VALUE-VECTOR) ; (SB!DISASSEM::ADDR-PRINT-LEN NIL :TYPE (OR NULL (INTEGER 0 20))) ; ...) ; ; caught STYLE-WARNING: ; undefined type: SEGMENT ; ; compilation unit finished ; Undefined types: ; CODE-DELETION-NOTE COMPILER-NOTE SEGMENT ; Undefined functions: ; READ-SUFFIX SEG-VIRTUAL-LOCATION ; caught 12 STYLE-WARNING conditions ; printed 4 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/disassem.lisp-obj-tmp written ; compilation finished in 0:00:01.461 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/assem.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!ASSEM") ; x-compiling (DEFVAR *ASSEM-SCHEDULER-P* ...) ; x-compiling (DECLAIM (TYPE BOOLEAN ...)) ; x-compiling (DEFVAR *ASSEM-INSTRUCTIONS* ...) ; x-compiling (DECLAIM (TYPE HASH-TABLE ...)) ; x-compiling (DEFVAR *ASSEM-MAX-LOCATIONS* ...) ; x-compiling (DECLAIM (TYPE INDEX ...)) ; x-compiling (DEFSTRUCT (SEGMENT #) ...) ; x-compiling (DEFPRINTER (SEGMENT) ...) ; x-compiling (DECLAIM (INLINE SEGMENT-CURRENT-INDEX)) ; x-compiling (DEFUN SEGMENT-CURRENT-INDEX ...) ; x-compiling (DEFUN (SETF SEGMENT-CURRENT-INDEX) ...) ; x-compiling (DEFMACRO WITH-MODIFIED-SEGMENT-INDEX-AND-POSN ...) ; x-compiling (!DEF-BOOLEAN-ATTRIBUTE INSTRUCTION ...) ; x-compiling (DEF!STRUCT (INSTRUCTION # ...) ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFMACRO WITHOUT-SCHEDULING ...) ; x-compiling (DEFMACRO NOTE-DEPENDENCIES ...) ; x-compiling (DEFUN NOTE-READ-DEPENDENCY ...) ; x-compiling (DEFUN NOTE-WRITE-DEPENDENCY ...) ; x-compiling (DEFUN QUEUE-INST ...) ; x-compiling (DEFUN SCHEDULE-PENDING-INSTRUCTIONS ...) ; x-compiling (DEFUN ADD-TO-NTH-LIST ...) ; x-compiling (DEFUN SCHEDULE-ONE-INST ...) ; x-compiling (DEFUN NOTE-RESOLVED-DEPENDENCIES ...) ; x-compiling (DEFUN ADVANCE-ONE-INST ...) ; x-compiling (DEFUN INSERT-EMITTABLE-INST ...) ; x-compiling (DEF!STRUCT (ANNOTATION # ...) ...) ; x-compiling (DEF!STRUCT (LABEL # ...)) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEF!STRUCT (ALIGNMENT-NOTE # ...) ...) ; x-compiling (DEF!STRUCT (BACK-PATCH # ...) ...) ; x-compiling (DEF!STRUCT (CHOOSER # ...) ...) ; x-compiling (DEF!STRUCT (FILLER # ...) ...) ; x-compiling (DEFUN EMIT-BYTE ...) ; x-compiling (DEFUN EMIT-SKIP ...) ; x-compiling (DEFUN EMIT-ANNOTATION ...) ; x-compiling (DEFUN EMIT-BACK-PATCH ...) ; x-compiling (DEFUN EMIT-CHOOSER ...) ; x-compiling (DEFUN ADJUST-ALIGNMENT-AFTER-CHOOSER ...) ; x-compiling (DEFUN EMIT-FILLER ...) ; x-compiling (DEFUN %EMIT-LABEL ...) ; x-compiling (DEFUN %EMIT-ALIGNMENT ...) ; x-compiling (DEFUN FIND-ALIGNMENT ...) ; x-compiling (DEFUN %EMIT-POSTIT ...) ; x-compiling (DEFUN COMPRESS-OUTPUT ...) ; x-compiling (DEFUN FINALIZE-POSITIONS ...) ; x-compiling (DEFUN PROCESS-BACK-PATCHES ...) ; x-compiling (DEFUN COMPACT-SEGMENT-BUFFER ...) ; x-compiling (DEFMACRO %%CURRENT-SEGMENT%% ...) ; x-compiling (DEFVAR **CURRENT-SEGMENT**) ; x-compiling (DEFMACRO %%CURRENT-VOP%% ...) ; x-compiling (DEFVAR **CURRENT-VOP** ...) ; x-compiling (DEF DEF!MACRO ...) ; x-compiling (DEFMACRO INST ...) ; x-compiling (DEFMACRO EMIT-LABEL ...) ; x-compiling (DEFMACRO EMIT-POSTIT ...) ; x-compiling (DEFMACRO EMIT-ALIGNMENT ...) ; x-compiling (DEFUN LABEL-POSITION ...) ; x-compiling (DEFUN APPEND-SEGMENT ...) ; x-compiling (DEFUN FINALIZE-SEGMENT ...) ; x-compiling (DEFUN SEGMENT-CONTENTS-AS-VECTOR ...) ; x-compiling (DEFUN WRITE-SEGMENT-CONTENTS ...) ; x-compiling (DEFMACRO DEFINE-BITFIELD-EMITTER ...) ; x-compiling (DEFUN GROVEL-LAMBDA-LIST ...) ; x-compiling (DEFUN EXTRACT-NTHS ...) ; x-compiling (DEFMACRO DEFINE-INSTRUCTION ...) ; x-compiling (DEFMACRO DEFINE-INSTRUCTION-MACRO ...) ; x-compiling (DEFUN %DEFINE-INSTRUCTION ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/assem.lisp ; in: !DEF-BOOLEAN-ATTRIBUTE INSTRUCTION ; (SB!INT:!DEF-BOOLEAN-ATTRIBUTE SB!ASSEM::INSTRUCTION SB!ASSEM:FLUSHABLE ; SB!ASSEM:BRANCH SB!ASSEM:VARIABLE-LENGTH) ; --> PROGN SB!C::!DEF-BOOLEAN-ATTRIBUTE-SETTER DEFINE-SETF-EXPANDER EVAL-WHEN ; --> SB!IMPL::ASSIGN-SETF-MACRO ; ==> ; (SB!IMPL::ASSIGN-SETF-MACRO 'SB!ASSEM::INSTRUCTION-ATTRIBUTEP ; (LAMBDA (#:WHOLE457 #:ENVIRONMENT458) ; (LET* () ; (LET (#) ; (UNLESS # #)) ; (LET* (# # #) ; (BLOCK SB!ASSEM::INSTRUCTION-ATTRIBUTEP ; #)))) ; '(SB!C::PLACE &REST SB!C:ATTRIBUTES &ENVIRONMENT ; SB!C::ENV) ; NIL ; '"Automagically generated boolean attribute setter. See ; !DEF-BOOLEAN-ATTRIBUTE.") ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::ASSIGN-SETF-MACRO ; in: DEFSTRUCT SEGMENT ; (MAKE-ARRAY SB!ASSEM:*ASSEM-MAX-LOCATIONS* :INITIAL-ELEMENT NIL) ; --> LOCALLY MAKE-ARRAY SB!EXT:TRULY-THE ; ==> ; (FILL ; (SB!EXT:TRULY-THE (SIMPLE-ARRAY T (*)) ; (SB!KERNEL:ALLOCATE-VECTOR 214 (THE SB!INT:INDEX LENGTH) ; (* LENGTH 1))) ; (THE T 'NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; (DEFSTRUCT (SB!ASSEM:SEGMENT (:COPIER NIL)) ; (TYPE :REGULAR :TYPE (MEMBER :REGULAR :ELSEWHERE)) ; (SB!ASSEM::BUFFER (MAKE-ARRAY 0 :ELEMENT-TYPE 'SB!ASSEM:ASSEMBLY-UNIT) ; :TYPE (OR NULL (SIMPLE-ARRAY SB!ASSEM:ASSEMBLY-UNIT))) ; (SB!ASSEM::RUN-SCHEDULER NIL) ; (SB!ASSEM::INST-HOOK NIL :TYPE (OR FUNCTION NULL)) ; (SB!ASSEM::CURRENT-POSN 0 :TYPE SB!INT:INDEX) ; (SB!ASSEM::%CURRENT-INDEX 0 :TYPE SB!INT:INDEX) ; (SB!ASSEM::ANNOTATIONS NIL :TYPE LIST) ; (SB!ASSEM::LAST-ANNOTATION NIL :TYPE LIST) ; (SB!ASSEM::ALIGNMENT SB!ASSEM::MAX-ALIGNMENT :TYPE SB!ASSEM::ALIGNMENT) ; (SB!ASSEM::SYNC-POSN 0 :TYPE SB!INT:INDEX) ; ...) ; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:NEXT4 #:START5 #:COUNT6 #:G7) {CCEA3E1}> ; #:NEXT4 #:START5 #:COUNT6 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 399 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/assem.lisp ; in: DEFUN EXTRACT-NTHS ; (MAPCAR (LAMBDA (LIST) (NTH SB!INT:INDEX LIST)) SB!ASSEM::LIST-OF-LISTS) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; (MAPCAR ; (LAMBDA (SB!ASSEM::LIST-OF-LISTS) ; (CONS SB!ASSEM::GLUE (MAPCAR (LAMBDA # #) SB!ASSEM::LIST-OF-LISTS))) ; SB!ASSEM::LIST-OF-LISTS-OF-LISTS) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEF DEF!MACRO ; (SB!ASSEM::DEF SB!INT:DEF!MACRO MACROEXPAND) ; --> SB!INT:DEF!MACRO SB!INT:DEFMACRO-MUNDANELY LET LET SB-XC:DEFMACRO PROGN ; --> EVAL-WHEN SB!C::%DEFMACRO FUNCTION LET* LET* BLOCK FLET LET* ; --> SB!INT:QUASIQUOTE SB!IMPL::|List| SB!IMPL::|List*| SB!IMPL::|Append| ; --> MAPCAR LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; ; caught STYLE-WARNING: ; 315 more uses of undefined type COMPILER-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/assem.lisp ; in: DEFUN EMIT-SKIP ; (SB!VM:EMIT-LONG-NOP SB!ASSEM:SEGMENT SB!ASSEM::AMOUNT) ; ; caught STYLE-WARNING: ; undefined function: SB!VM:EMIT-LONG-NOP ; in: DEFUN SCHEDULE-PENDING-INSTRUCTIONS ; (SB!C:EMIT-NOP SB!ASSEM:SEGMENT) ; ; caught STYLE-WARNING: ; undefined function: SB!C:EMIT-NOP ; in: !DEF-BOOLEAN-ATTRIBUTE INSTRUCTION ; (SB!INT:!DEF-BOOLEAN-ATTRIBUTE SB!ASSEM::INSTRUCTION SB!ASSEM:FLUSHABLE ; SB!ASSEM:BRANCH SB!ASSEM:VARIABLE-LENGTH) ; --> PROGN SB!C::!DEF-BOOLEAN-ATTRIBUTE-SETTER DEFINE-SETF-EXPANDER EVAL-WHEN ; --> SB!IMPL::ASSIGN-SETF-MACRO SB!IMPL::ASSIGN-SETF-MACRO LAMBDA FUNCTION ; --> LET* LET* BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; (SB-XC:GET-SETF-EXPANSION SB!C::PLACE SB!C::ENV) ; ; caught STYLE-WARNING: ; undefined function: SB-XC:GET-SETF-EXPANSION ; in: DEFUN NOTE-WRITE-DEPENDENCY ; (SB!C:LOCATION-NUMBER WRITE) ; ; caught STYLE-WARNING: ; undefined function: SB!C:LOCATION-NUMBER ; in: DEFUN NOTE-READ-DEPENDENCY ; (SB!C:LOCATION-NUMBER READ) ; ; caught STYLE-WARNING: ; undefined function: SB!C:LOCATION-NUMBER ; ; compilation unit finished ; Undefined types: ; CODE-DELETION-NOTE COMPILER-NOTE ; Undefined functions: ; SB!IMPL::ASSIGN-SETF-MACRO SB!VM:EMIT-LONG-NOP SB!C:EMIT-NOP SB-XC:GET-SETF-EXPANSION SB!C:LOCATION-NUMBER ; caught 14 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/assem.lisp-obj-tmp written ; compilation finished in 0:00:01.550 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/debug-info.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEF!CONSTANT COMPILED-DEBUG-VAR-MORE-CONTEXT-P ...) ; x-compiling (DEF!CONSTANT COMPILED-DEBUG-VAR-MORE-COUNT-P ...) ; x-compiling (DEF!CONSTANT COMPILED-DEBUG-VAR-ENVIRONMENT-LIVE ...) ; x-compiling (DEF!CONSTANT COMPILED-DEBUG-VAR-SAVE-LOC-P ...) ; x-compiling (DEF!CONSTANT COMPILED-DEBUG-VAR-ID-P ...) ; x-compiling (DEF!CONSTANT COMPILED-DEBUG-VAR-MINIMAL-P ...) ; x-compiling (DEF!CONSTANT COMPILED-DEBUG-VAR-DELETED-P ...) ; x-compiling (DEF!CONSTANT COMPILED-DEBUG-VAR-INDIRECT-P ...) ; x-compiling (DEFPARAMETER *COMPILED-CODE-LOCATION-KINDS* ...) ; x-compiling (DEF!STRUCT (DEBUG-FUN #)) ; x-compiling (DEF!STRUCT (COMPILED-DEBUG-FUN # ...) ...) ; x-compiling (DEF!STRUCT (DEBUG-SOURCE #) ...) ; x-compiling (DEF!STRUCT DEBUG-INFO ...) ; x-compiling (DEFCONSTANT +DEBUG-INFO-SOURCE-INDEX+ ...) ; x-compiling (DEF!STRUCT (COMPILED-DEBUG-INFO # ...) ...) ; x-compiling (DEFVAR *!INITIAL-DEBUG-SOURCES*) ; x-compiling (DEFUN !DEBUG-INFO-COLD-INIT ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/debug-info.lisp ; in: DEF!STRUCT (DEBUG-SOURCE (:PURE T)) ; (SB!INT:DEF!STRUCT (SB!C::DEBUG-SOURCE (:PURE T)) ; (NAMESTRING NIL :TYPE (OR NULL STRING)) ; (SB!C::CREATED NIL :TYPE (OR UNSIGNED-BYTE NULL)) ; (SB!C::SOURCE-ROOT 0 :TYPE SB!INT:INDEX) ; (SB!C::START-POSITIONS NIL :TYPE ; (OR (SIMPLE-ARRAY * (*)) NULL)) ; (SB!KERNEL:FORM NIL :TYPE LIST) #'NIL ; (SB!C::COMPILED (SB!INT:MISSING-ARG) :TYPE UNSIGNED-BYTE) ; (SB!C::PLIST SB!C::*SOURCE-PLIST*)) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN ; --> LET LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:NEXT332 #:START333 #:COUNT334 #:G335) {EC05681}> ; #:NEXT332 #:START333 #:COUNT334 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEF!STRUCT (COMPILED-DEBUG-FUN (:INCLUDE DEBUG-FUN) (:PURE T)) ; (SB!INT:DEF!STRUCT ; (SB!C::COMPILED-DEBUG-FUN (:INCLUDE SB!C::DEBUG-FUN) (:PURE T)) ; (SB!C::NAME (SB!INT:MISSING-ARG) :TYPE (OR SIMPLE-STRING CONS SYMBOL)) ; (SB!C::KIND NIL :TYPE (MEMBER NIL :OPTIONAL :EXTERNAL :TOPLEVEL :CLEANUP)) ; (SB!C::VARS NIL :TYPE (OR SIMPLE-VECTOR NULL)) ; (SB!C::BLOCKS NIL :TYPE (OR (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) NULL)) ; (SB!C::TLF-NUMBER NIL :TYPE (OR SB!INT:INDEX NULL)) ; (SB!C::ARGUMENTS NIL :TYPE (OR (SIMPLE-ARRAY * (*)) (MEMBER :MINIMAL NIL))) ; (SB!C::RETURNS :FIXED :TYPE ; (OR (SIMPLE-ARRAY * (*)) (MEMBER :STANDARD :FIXED))) ; (SB!C::RETURN-PC (SB!INT:MISSING-ARG) :TYPE SB!C:SC-OFFSET) ; (SB!C::OLD-FP (SB!INT:MISSING-ARG) :TYPE SB!C:SC-OFFSET) ; (SB!C::NFP NIL :TYPE (OR SB!C:SC-OFFSET NULL)) ...) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN ; --> LET LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:NEXT20 #:START21 #:COUNT22 #:G23) {CAA7479}> ; #:NEXT20 #:START21 #:COUNT22 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEF!STRUCT (DEBUG-FUN (:CONSTRUCTOR NIL)) ; (SB!INT:DEF!STRUCT (SB!C::DEBUG-FUN (:CONSTRUCTOR NIL))) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN ; --> LET LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:NEXT4 #:START5 #:COUNT6 #:G7) {C9A8EF9}> ; #:NEXT4 #:START5 #:COUNT6 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 8 more uses of undefined type CODE-DELETION-NOTE ; ; compilation unit finished ; Undefined type: ; CODE-DELETION-NOTE ; caught 4 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/debug-info.lisp-obj-tmp written ; compilation finished in 0:00:00.350 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/dump.lisp" (written 18 MAR 2015 12:50:47 PM): ; x-compiling (IN-PACKAGE "SB!FASL") ; x-compiling (DEFSTRUCT (FASL-OUTPUT # ...) ...) ; x-compiling (DEFSTRUCT (CIRCULARITY #) ...) ; x-compiling (DEFVAR *CIRCULARITIES-DETECTED*) ; x-compiling (DEFVAR *DUMP-ONLY-VALID-STRUCTURES* ...) ; x-compiling (DEFUN DUMP-BYTE ...) ; x-compiling (DEFUN DUMP-WORD ...) ; x-compiling (DEFUN DUMP-UNSIGNED-BYTE-32 ...) ; x-compiling (DEFUN DUMP-INTEGER-AS-N-BYTES ...) ; x-compiling (DEFUN DUMP-FOP+OPERANDS ...) ; x-compiling (DEFVAR *FOP-NOP4-COUNT* ...) ; x-compiling (DECLAIM (TYPE # ...)) ; x-compiling (DEFMACRO DUMP-FOP ...) ; x-compiling (DEFUN DUMP-PUSH ...) ; x-compiling (DEFUN DUMP-POP ...) ; x-compiling (DEFUN EQUAL-CHECK-TABLE ...) ; x-compiling (DEFUN STRING-CHECK-TABLE ...) ; x-compiling (DEFUN EQ-SAVE-OBJECT ...) ; x-compiling (DEFUN EQUAL-SAVE-OBJECT ...) ; x-compiling (DEFUN STRING-SAVE-OBJECT ...) ; x-compiling (DEFUN NOTE-POTENTIAL-CIRCULARITY ...) ; x-compiling (DEFUN OPEN-FASL-OUTPUT ...) ; x-compiling (DEFUN CLOSE-FASL-OUTPUT ...) ; x-compiling (DEFUN DUMP-NON-IMMEDIATE-OBJECT ...) ; x-compiling (DEFUN SUB-DUMP-OBJECT ...) ; x-compiling (DEFUN DUMP-CIRCULARITIES ...) ; x-compiling (DEFUN DUMP-OBJECT ...) ; x-compiling (DEFUN FASL-DUMP-LOAD-TIME-VALUE-LAMBDA ...) ; x-compiling (DEFUN FASL-CONSTANT-ALREADY-DUMPED-P ...) ; x-compiling (DEFUN FASL-NOTE-HANDLE-FOR-CONSTANT ...) ; x-compiling (DEFUN FASL-VALIDATE-STRUCTURE ...) ; x-compiling (DEFUN DUMP-RATIO ...) ; x-compiling (DEFUN DUMP-INTEGER ...) ; x-compiling (DEFUN DUMP-FLOAT ...) ; x-compiling (DEFUN DUMP-COMPLEX-SINGLE-FLOAT ...) ; x-compiling (DEFUN DUMP-COMPLEX-DOUBLE-FLOAT ...) ; x-compiling (DEFUN DUMP-COMPLEX-RATIONAL ...) ; x-compiling (DEFUN DUMP-COMPLEX ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN DUMP-PACKAGE ...) ; x-compiling (DEFUN DUMP-LIST ...) ; x-compiling (DEFUN TERMINATE-DOTTED-LIST ...) ; x-compiling (DEFUN TERMINATE-UNDOTTED-LIST ...) ; x-compiling (DEFUN DUMP-ARRAY ...) ; x-compiling (DEFUN DUMP-VECTOR ...) ; x-compiling (DEFUN DUMP-SIMPLE-VECTOR ...) ; x-compiling (DEFUN DUMP-SPECIALIZED-VECTOR ...) ; x-compiling (DEFUN DUMP-CHARACTER ...) ; x-compiling (DEFUN DUMP-BASE-CHARS-OF-STRING ...) ; x-compiling (DEFUN DUMP-SIMPLE-BASE-STRING ...) ; x-compiling (DEFUN DUMP-SYMBOL ...) ; x-compiling (DEFUN DUMP-SEGMENT ...) ; x-compiling (DEFUN DUMP-FIXUPS ...) ; x-compiling (DEFUN DUMP-CODE-OBJECT ...) ; x-compiling (DEFUN DUMP-ASSEMBLER-ROUTINES ...) ; x-compiling (DEFUN DUMP-ONE-ENTRY ...) ; x-compiling (DEFUN DUMP-ALTER-CODE-OBJECT ...) ; x-compiling (DEFUN FASL-DUMP-COMPONENT ...) ; x-compiling (DEFUN DUMP-PUSH-PREVIOUSLY-DUMPED-FUN ...) ; x-compiling (DEFUN FASL-DUMP-TOPLEVEL-LAMBDA-CALL ...) ; x-compiling (DEFUN FASL-DUMP-SOURCE-INFO ...) ; x-compiling (DEFUN DUMP-STRUCTURE ...) ; x-compiling (DEFUN DUMP-LAYOUT ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/dump.lisp ; in: DEFUN DUMP-FOP+OPERANDS ; (MULTIPLE-VALUE-BIND (SB!FASL::MODIFIER1 SB!FASL::MODIFIER2) ; (FLET ((SB!FASL::FOP-OPCODE-MODIFIER (SB!FASL::ARG) ; (IF # ; # ; #))) ; (DECLARE (INLINE SB!FASL::FOP-OPCODE-MODIFIER)) ; (VALUES (SB!FASL::FOP-OPCODE-MODIFIER SB!FASL::ARG1) ; (IF SB!FASL::ARG2P ; (SB!FASL::FOP-OPCODE-MODIFIER SB!FASL::ARG2) ; 0))) ; (SB!FASL::DUMP-BYTE ; (LOGIOR SB!FASL::OPCODE (ASH SB!FASL::MODIFIER2 2) SB!FASL::MODIFIER1) ; SB!FASL:FASL-OUTPUT) ; (SB!FASL::DUMP-INTEGER-AS-N-BYTES SB!FASL::ARG1 (ASH 1 SB!FASL::MODIFIER1) ; SB!FASL:FASL-OUTPUT) ; (WHEN SB!FASL::ARG2P ; (SB!FASL::DUMP-INTEGER-AS-N-BYTES SB!FASL::ARG2 ; (ASH 1 SB!FASL::MODIFIER2) ; SB!FASL:FASL-OUTPUT))) ; --> MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!FASL::MODIFIER1 SB!FASL::MODIFIER2 #:G289) {CE803B1}> ; SB!FASL::MODIFIER1 SB!FASL::MODIFIER2 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFSTRUCT CIRCULARITY ; (DEFSTRUCT (SB!FASL::CIRCULARITY (:COPIER NIL)) ; (TYPE (SB!INT:MISSING-ARG) :TYPE ; (MEMBER :RPLACA :RPLACD :SVSET :STRUCT-SET)) ; SB!FASL::OBJECT ; (SB!INT:INDEX (SB!INT:MISSING-ARG) :TYPE SB!INT:INDEX) ; SB!FASL::VALUE ; SB!FASL::ENCLOSING-OBJECT) ; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:NEXT159 #:START160 #:COUNT161 #:G162) {C994AE9}> ; #:NEXT159 #:START160 #:COUNT161 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFSTRUCT FASL-OUTPUT ; (DEFSTRUCT ; (SB!FASL:FASL-OUTPUT ; (:PRINT-OBJECT ; (LAMBDA (SB!FASL::X SB!FASL::S) (PRINT-UNREADABLE-OBJECT # #))) ; (:COPIER NIL)) ; (STREAM (SB!INT:MISSING-ARG) :TYPE STREAM) ; (SB!FASL::EQUAL-TABLE (MAKE-HASH-TABLE :TEST 'EQUAL) :TYPE HASH-TABLE) ; (SB!FASL::EQ-TABLE (MAKE-HASH-TABLE :TEST 'EQ) :TYPE HASH-TABLE) ; (SB!FASL::STRING=-TABLE (MAKE-HASH-TABLE :TEST 'EQUAL) :TYPE HASH-TABLE) ; (SB!FASL::TABLE-FREE 0 :TYPE SB!INT:INDEX) ; (SB!FASL::PACKAGES NIL :TYPE LIST) ; (SB!FASL::ENTRY-TABLE (MAKE-HASH-TABLE :TEST 'EQ) :TYPE HASH-TABLE) ; (SB!FASL::PATCH-TABLE (MAKE-HASH-TABLE :TEST 'EQ) :TYPE HASH-TABLE) ; (SB!FASL::DEBUG-INFO NIL :TYPE LIST) ; (SB!FASL::CIRCULARITY-TABLE (MAKE-HASH-TABLE :TEST 'EQ) :TYPE HASH-TABLE) ; ...) ; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:NEXT6 #:START7 #:COUNT8 #:G9) {B8EE899}> ; #:NEXT6 #:START7 #:COUNT8 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 13 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/dump.lisp ; in: DEFUN DUMP-CODE-OBJECT ; (SB!C::DEBUG-INFO-FOR-COMPONENT SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: SB!C::DEBUG-INFO-FOR-COMPONENT ; in: DEFUN FASL-DUMP-SOURCE-INFO ; (SB!C::DEBUG-SOURCE-FOR-INFO SB!INT:INFO) ; ; caught STYLE-WARNING: ; undefined function: SB!C::DEBUG-SOURCE-FOR-INFO ; in: DEFUN DUMP-SYMBOL ; (SB!FASL::DUMP-CHARACTERS-OF-STRING SB!FASL::PNAME SB!FASL::FILE) ; ; caught STYLE-WARNING: ; undefined function: DUMP-CHARACTERS-OF-STRING ; in: DEFUN DUMP-PACKAGE ; (SB!FASL::DUMP-CHARACTERS-OF-STRING ; (COERCE SB!FASL::S '(SIMPLE-ARRAY CHARACTER (*))) SB!FASL::FILE) ; ; caught STYLE-WARNING: ; undefined function: DUMP-CHARACTERS-OF-STRING ; in: DEFUN DUMP-ARRAY ; (SB!FASL::DUMP-MULTI-DIM-ARRAY SB!FASL::X SB!FASL::FILE) ; ; caught STYLE-WARNING: ; undefined function: DUMP-MULTI-DIM-ARRAY ; in: DEFUN DUMP-SPECIALIZED-VECTOR ; (SB!FASL::DUMP-RAW-BYTES VECTOR ; (CEILING (* LENGTH SB!FASL::BITS-PER-LENGTH) SB!VM:N-BYTE-BITS) ; SB!FASL::FILE) ; ; caught STYLE-WARNING: ; undefined function: DUMP-RAW-BYTES ; in: DEFUN DUMP-VECTOR ; (SB!FASL::DUMP-SIMPLE-CHARACTER-STRING SB!FASL::SIMPLE-VERSION SB!FASL::FILE) ; ; caught STYLE-WARNING: ; undefined function: DUMP-SIMPLE-CHARACTER-STRING ; in: DEFUN DUMP-FIXUPS ; (SB!C:FIXUP-FLAVOR SB!C:FIXUP) ; ; caught STYLE-WARNING: ; undefined function: FIXUP-FLAVOR ; (SB!C:FIXUP-NAME SB!C:FIXUP) ; ; caught STYLE-WARNING: ; undefined function: FIXUP-NAME ; (SB!C:FIXUP-NOTE-FIXUP SB!FASL::NOTE) ; ; caught STYLE-WARNING: ; undefined function: FIXUP-NOTE-FIXUP ; (SB!C:FIXUP-NOTE-KIND SB!FASL::NOTE) ; ; caught STYLE-WARNING: ; undefined function: FIXUP-NOTE-KIND ; (SB!C:FIXUP-NOTE-POSITION SB!FASL::NOTE) ; ; caught STYLE-WARNING: ; undefined function: FIXUP-NOTE-POSITION ; in: DEFUN OPEN-FASL-OUTPUT ; (SB!EXT:NATIVE-NAMESTRING SB!EXT:*RUNTIME-PATHNAME* :AS-FILE T) ; ; caught STYLE-WARNING: ; undefined function: NATIVE-NAMESTRING ; (SB!EXT:STRING-TO-OCTETS STRING :EXTERNAL-FORMAT :UTF-8) ; ; caught STYLE-WARNING: ; undefined function: STRING-TO-OCTETS ; ; compilation unit finished ; Undefined type: ; CODE-DELETION-NOTE ; Undefined functions: ; SB!C::DEBUG-INFO-FOR-COMPONENT SB!C::DEBUG-SOURCE-FOR-INFO DUMP-CHARACTERS-OF-STRING DUMP-MULTI-DIM-ARRAY DUMP-RAW-BYTES DUMP-SIMPLE-CHARACTER-STRING FIXUP-FLAVOR FIXUP-NAME FIXUP-NOTE-FIXUP FIXUP-NOTE-KIND FIXUP-NOTE-POSITION NATIVE-NAMESTRING STRING-TO-OCTETS ; caught 18 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/dump.lisp-obj-tmp written ; compilation finished in 0:00:00.811 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/main.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DECLAIM (SPECIAL *CONSTANTS* ...)) ; x-compiling (DEFVAR *FLAME-ON-NECESSARILY-UNDEFINED-THING* ...) ; x-compiling (DEFVAR *CHECK-CONSISTENCY* ...) ; x-compiling (DEFVAR *LOOP-ANALYZE* ...) ; x-compiling (DEFVAR *COMPILER-TRACE-OUTPUT* ...) ; x-compiling (DEFVAR *BLOCK-COMPILE*) ; x-compiling (DEFVAR *BLOCK-COMPILE-ARG*) ; x-compiling (DECLAIM (TYPE # ...)) ; x-compiling (DEFVAR *ENTRY-POINTS*) ; x-compiling (DECLAIM (LIST *ENTRY-POINTS*)) ; x-compiling (DEFVAR *TOPLEVEL-LAMBDAS*) ; x-compiling (DECLAIM (LIST *TOPLEVEL-LAMBDAS*)) ; x-compiling (DEFVAR *TOP-LEVEL-FORM-NOTED* ...) ; x-compiling (DEFVAR SB-XC:*COMPILE-VERBOSE* ...) ; x-compiling (DEFVAR SB-XC:*COMPILE-PRINT* ...) ; x-compiling (DEFVAR *COMPILE-PROGRESS* ...) ; x-compiling (DEFVAR SB-XC:*COMPILE-FILE-PATHNAME* ...) ; x-compiling (DEFVAR SB-XC:*COMPILE-FILE-TRUENAME* ...) ; x-compiling (DECLAIM (TYPE # ...)) ; x-compiling (DEFVAR *SOURCE-INFO* ...) ; x-compiling (DEFVAR *IN-COMPILATION-UNIT* ...) ; x-compiling (DEFVAR *ABORTED-COMPILATION-UNIT-COUNT*) ; x-compiling (DEFUN MAYBE-MUMBLE ...) ; x-compiling (DEFTYPE OBJECT ...) ; x-compiling (DEFVAR *COMPILE-OBJECT* ...) ; x-compiling (DECLAIM (TYPE OBJECT ...)) ; x-compiling (DEFVAR *COMPILE-TOPLEVEL-OBJECT* ...) ; x-compiling (DEFVAR *EMIT-CFASL* ...) ; x-compiling (DEFVAR *FOPCOMPILE-LABEL-COUNTER*) ; x-compiling (DEFVAR *CODE-COVERAGE-RECORDS* ...) ; x-compiling (DEFVAR *CODE-COVERAGE-BLOCKS* ...) ; x-compiling (DEFVAR *CODE-COVERAGE-INFO* ...) ; x-compiling (DEFMACRO SB-XC:WITH-COMPILATION-UNIT ...) ; x-compiling (DEFVAR *SOURCE-PLIST* ...) ; x-compiling (DEFVAR *SOURCE-NAMESTRING* ...) ; x-compiling (DEFUN %WITH-COMPILATION-UNIT ...) ; x-compiling (DEFUN NAME-RESERVED-BY-ANSI-P ...) ; x-compiling (DEFUN SUMMARIZE-COMPILATION-UNIT ...) ; x-compiling (DEFMACRO WITH-COMPILATION-VALUES ...) ; x-compiling (DEFPARAMETER *MAX-OPTIMIZE-ITERATIONS* ...) ; x-compiling (DEFEVENT IR1-OPTIMIZE-UNTIL-DONE ...) ; x-compiling (DEFEVENT IR1-OPTIMIZE-MAXED-OUT ...) ; x-compiling (DEFUN IR1-OPTIMIZE-UNTIL-DONE ...) ; x-compiling (DEFPARAMETER *CONSTRAINT-PROPAGATE* ...) ; x-compiling (DEFPARAMETER *REOPTIMIZE-AFTER-TYPE-CHECK-MAX* ...) ; x-compiling (DEFEVENT REOPTIMIZE-MAXED-OUT ...) ; x-compiling (DEFUN DFO-AS-NEEDED ...) ; x-compiling (DEFUN IR1-PHASES ...) ; x-compiling (DEFUN %COMPILE-COMPONENT ...) ; x-compiling (DEFUN DELETE-IF-NO-ENTRIES ...) ; x-compiling (DEFUN COMPILE-COMPONENT ...) ; x-compiling (DEFUN CLEAR-CONSTANT-INFO ...) ; x-compiling (DEFUN CLEAR-IR1-INFO ...) ; x-compiling (DEFUN DESCRIBE-COMPONENT ...) ; x-compiling (DEFUN DESCRIBE-IR2-COMPONENT ...) ; x-compiling (DEF!STRUCT (FILE-INFO # ...) ...) ; x-compiling (DEF!STRUCT (SOURCE-INFO # ...) ...) ; x-compiling (DEFUN MAKE-FILE-SOURCE-INFO ...) ; x-compiling (DEFUN MAKE-LISP-SOURCE-INFO ...) ; x-compiling (DEFUN GET-TOPLEVELISH-FILE-INFO ...) ; x-compiling (DEFUN READ-FOR-COMPILE-FILE ...) ; x-compiling (DEFUN GET-SOURCE-STREAM ...) ; x-compiling (DEFUN CLOSE-SOURCE-INFO ...) ; x-compiling (DEFMACRO DO-FORMS-FROM-INFO ...) ; x-compiling (DEFUN SUB-SUB-COMPILE-FILE ...) ; x-compiling (DEFUN FIND-SOURCE-ROOT ...) ; x-compiling (DEFUN CONVERT-AND-MAYBE-COMPILE ...) ; x-compiling (DEFUN PREPROCESSOR-MACROEXPAND-1 ...) ; x-compiling (DEFUN PROCESS-TOPLEVEL-PROGN ...) ; x-compiling (DEFUN PROCESS-TOPLEVEL-LOCALLY ...) ; x-compiling (DEFUN PARSE-EVAL-WHEN-SITUATIONS ...) ; x-compiling (DEFUN FUNCTIONAL-COMPONENTS ...) ; x-compiling (DEFUN MAKE-FUNCTIONAL-FROM-TOPLEVEL-LAMBDA ...) ; x-compiling (DEFUN %COMPILE ...) ; x-compiling (DEFUN NOTE-TOP-LEVEL-FORM ...) ; x-compiling (DEFUN EVAL-COMPILE-TOPLEVEL ...) ; x-compiling (DEFUN PROCESS-TOPLEVEL-FORM ...) ; x-compiling (DEFUN PRODUCING-FASL-FILE ...) ; x-compiling (DEFUN COMPILE-LOAD-TIME-VALUE ...) ; x-compiling (DEFUN COMPILE-MAKE-LOAD-FORM-INIT-FORMS ...) ; x-compiling (DEFUN COMPILE-LOAD-TIME-STUFF ...) ; x-compiling (DEFUN COMPILE-LOAD-TIME-VALUE-LAMBDA ...) ; x-compiling (DEFUN OBJECT-CALL-TOPLEVEL-LAMBDA ...) ; x-compiling (DEFUN SUB-COMPILE-TOPLEVEL-LAMBDAS ...) ; x-compiling (DEFUN COMPILE-TOPLEVEL-LAMBDAS ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/main.lisp ; in: DEFUN COMPILE-TOPLEVEL-LAMBDAS ; (POSITION-IF (LAMBDA (SB!C::X) (NOT (EQ (SB!C::COMPONENT-KIND #) :TOPLEVEL))) ; SB!C::LAMBDAS :START (MIN SB!C::START SB!C::LEN)) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB!KERNEL:%FIND-POSITION-IF LET FLET IF AND IF AND THE > ; ==> ; SB!C::START ; ; note: deleting unreachable code ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB!KERNEL:%FIND-POSITION-IF LET FLET BLOCK ; --> SB!INT:SEQUENCE-BOUNDING-INDICES-BAD-ERROR ; ==> ; SB!C::START ; ; note: deleting unreachable code ; x-compiling (DEFUN COMPILE-TOPLEVEL ...) ; x-compiling (DEFUN FINISH-BLOCK-COMPILATION ...) ; x-compiling (DEFUN HANDLE-CONDITION-P ...) ; x-compiling (DEFUN HANDLE-CONDITION-HANDLER ...) ; x-compiling (DEFUN SUB-COMPILE-FILE ...) ; x-compiling (DEFUN VERIFY-SOURCE-FILE ...) ; x-compiling (DEFUN ELAPSED-TIME-TO-STRING ...) ; x-compiling (DEFUN PRINT-COMPILE-START-NOTE ...) ; x-compiling (DEFUN PRINT-COMPILE-END-NOTE ...) ; x-compiling (DEFUN SB-XC:COMPILE-FILE ...) ; x-compiling (DEFUN CFP-OUTPUT-FILE-DEFAULT ...) ; x-compiling (DEFUN SB-XC:COMPILE-FILE-PATHNAME ...) ; x-compiling (DEFVAR *CONSTANTS-BEING-CREATED* ...) ; x-compiling (DEFVAR *CONSTANTS-CREATED-SINCE-LAST-INIT* ...) ; x-compiling (DEFUN EMIT-MAKE-LOAD-FORM ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/main.lisp ; in: DEFUN IR1-PHASES ; (SB!C::EVENT SB!C::REOPTIMIZE-MAXED-OUT) ; ==> ; (SB!C::%EVENT SB!C::*REOPTIMIZE-MAXED-OUT-EVENT-INFO* NIL) ; ; caught STYLE-WARNING: ; undefined function: %EVENT ; in: DEFUN IR1-OPTIMIZE-UNTIL-DONE ; (SB!C::EVENT SB!C::IR1-OPTIMIZE-UNTIL-DONE) ; ==> ; (SB!C::%EVENT SB!C::*IR1-OPTIMIZE-UNTIL-DONE-EVENT-INFO* NIL) ; ; caught STYLE-WARNING: ; undefined function: %EVENT ; in: DEFUN COMPILE-TOPLEVEL ; (SB!C::CHECK-IR1-CONSISTENCY SB!C::ALL-COMPONENTS) ; ; caught STYLE-WARNING: ; undefined function: CHECK-IR1-CONSISTENCY ; in: DEFUN %COMPILE-COMPONENT ; (SB!C::CHECK-IR2-CONSISTENCY SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: CHECK-IR2-CONSISTENCY ; (SB!C::CHECK-LIFE-CONSISTENCY SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: CHECK-LIFE-CONSISTENCY ; (SB!C::CHECK-PACK-CONSISTENCY SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: CHECK-PACK-CONSISTENCY ; in: DEFUN %WITH-COMPILATION-UNIT ; (UNWIND-PROTECT ; (MULTIPLE-VALUE-PROG1 (FUNCALL SB!C::FN) (SETF SB!C::SUCCEEDED-P T)) ; (UNLESS SB!C::SUCCEEDED-P (INCF SB!C::*ABORTED-COMPILATION-UNIT-COUNT*)) ; (SB!C::SUMMARIZE-COMPILATION-UNIT (NOT SB!C::SUCCEEDED-P))) ; --> FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:NEXT51 #:START52 #:COUNT53 #:G55) {F4720B9}> ; #:NEXT51 #:START52 #:COUNT53 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; (UNWIND-PROTECT ; (MULTIPLE-VALUE-PROG1 (FUNCALL SB!C::FN) (SETF SB!C::SUCCEEDED-P T)) ; (UNLESS SB!C::SUCCEEDED-P (INCF SB!C::*ABORTED-COMPILATION-UNIT-COUNT*))) ; --> FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:NEXT39 #:START40 #:COUNT41 #:G43) {F452CC9}> ; #:NEXT39 #:START40 #:COUNT41 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN MAYBE-MUMBLE ; (DEFUN SB!C::MAYBE-MUMBLE (&REST SB!C::FOO) ; (WHEN SB!EXT:*COMPILE-PROGRESS* ; (SB!C::COMPILER-MUMBLE "~&") ; (PPRINT-LOGICAL-BLOCK (*STANDARD-OUTPUT* NIL :PER-LINE-PREFIX "; ") ; (APPLY #'SB!C::COMPILER-MUMBLE SB!C::FOO)))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!C::FOO #:REST-CONTEXT-0 #:REST-COUNT-1) {F277121}> ; NIL NIL 0)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 97 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/main.lisp ; in: DEFUN HANDLE-CONDITION-HANDLER ; (ETYPECASE SB!C::*COMPILER-ERROR-CONTEXT* ; (SB!C::NODE (SB!C::NODE-LEXENV SB!C::*COMPILER-ERROR-CONTEXT*)) ; (SB!C::COMPILER-ERROR-CONTEXT ; (LET ((SB!KERNEL:LEXENV #)) ; (SB!INT:AVER SB!KERNEL:LEXENV) ; SB!KERNEL:LEXENV)) ; (NULL SB!C:*LEXENV*)) ; --> LET COND IF COND IF ; ==> ; (TYPEP #:G69569 'SB!C::COMPILER-ERROR-CONTEXT) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-ERROR-CONTEXT ; in: DEFUN HANDLE-CONDITION-P ; (DEFUN SB!C::HANDLE-CONDITION-P (CONDITION) ; (LET ((SB!KERNEL:LEXENV (ETYPECASE SB!C::*COMPILER-ERROR-CONTEXT* # # #))) ; (LET ((SB!C::MUFFLES #)) ; (IF (NULL SB!C::MUFFLES) ; NIL ; (DOLIST # #))))) ; --> PROGN ; ==> ; (SB!IMPL::%DEFUN 'SB!C::HANDLE-CONDITION-P ; (SB!INT:NAMED-LAMBDA SB!C::HANDLE-CONDITION-P ; (CONDITION) ; (BLOCK SB!C::HANDLE-CONDITION-P ; (LET (#) ; (LET # ; #)))) ; NIL 'NIL (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-ERROR-CONTEXT ; (ETYPECASE SB!C::*COMPILER-ERROR-CONTEXT* ; (SB!C::NODE (SB!C::NODE-LEXENV SB!C::*COMPILER-ERROR-CONTEXT*)) ; (SB!C::COMPILER-ERROR-CONTEXT ; (LET ((SB!KERNEL:LEXENV #)) ; (SB!INT:AVER SB!KERNEL:LEXENV) ; SB!KERNEL:LEXENV)) ; (NULL SB!C:*LEXENV*)) ; --> LET COND IF COND IF ; ==> ; (TYPEP #:G69553 'SB!C::COMPILER-ERROR-CONTEXT) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-ERROR-CONTEXT ; ; caught STYLE-WARNING: ; 6 more uses of undefined type COMPILER-ERROR-CONTEXT ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/main.lisp ; in: DEFUN HANDLE-CONDITION-HANDLER ; (SB!C::COMPILER-ERROR-CONTEXT-LEXENV SB!C::*COMPILER-ERROR-CONTEXT*) ; ; caught STYLE-WARNING: ; undefined function: COMPILER-ERROR-CONTEXT-LEXENV ; in: DEFUN HANDLE-CONDITION-P ; (SB!C::COMPILER-ERROR-CONTEXT-LEXENV SB!C::*COMPILER-ERROR-CONTEXT*) ; ; caught STYLE-WARNING: ; undefined function: COMPILER-ERROR-CONTEXT-LEXENV ; in: DEFUN SUB-COMPILE-FILE ; (SB!C::WITH-COMPILATION-VALUES ; (SB-XC:WITH-COMPILATION-UNIT NIL ; (SB!KERNEL:WITH-WORLD-LOCK NIL ; (SB!C::SUB-SUB-COMPILE-FILE SB!INT:INFO) ; (UNLESS (ZEROP #) ; (SB!C::WITH-SOURCE-PATHS ; #)) ; (SB!C::FINISH-BLOCK-COMPILATION) ; (LET (#) ; (ETYPECASE SB!C::OBJECT # # #)) ; NIL))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM LET HANDLER-BIND ; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET LET LIST* CONS LIST CONS ; ==> ; #'SB!C::COMPILER-ERROR-HANDLER ; ; caught STYLE-WARNING: ; undefined function: COMPILER-ERROR-HANDLER ; in: DEFUN NOTE-TOP-LEVEL-FORM ; (SB!C::COMPILER-MUMBLE "~&; ~:[compiling~;converting~] ~S" ; SB!C::*BLOCK-COMPILE* SB!KERNEL:FORM) ; ; caught STYLE-WARNING: ; undefined function: COMPILER-MUMBLE ; in: DEFUN %COMPILE-COMPONENT ; (SB!C::COMPILER-MUMBLE "") ; ; caught STYLE-WARNING: ; undefined function: COMPILER-MUMBLE ; in: DEFUN MAYBE-MUMBLE ; (SB!C::COMPILER-MUMBLE "~&") ; ; caught STYLE-WARNING: ; undefined function: COMPILER-MUMBLE ; ; caught STYLE-WARNING: ; 4 more uses of undefined function COMPILER-MUMBLE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/main.lisp ; in: DEFUN NOTE-TOP-LEVEL-FORM ; (SB!C::WITH-COMPILER-IO-SYNTAX ; (SB!C::COMPILER-MUMBLE "~&; ... top level ~S" SB!KERNEL:FORM)) ; --> SB!INT:WITH-SANE-IO-SYNTAX SB!IMPL::CALL-WITH-SANE-IO-SYNTAX LAMBDA ; --> FUNCTION PROGV LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN LABELS ; --> #:BIND937 NREVERSE MAPCAR LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; (SB!C::WITH-COMPILER-IO-SYNTAX ; (SB!C::COMPILER-MUMBLE "~&; ~:[compiling~;converting~] ~S" ; SB!C::*BLOCK-COMPILE* SB!KERNEL:FORM)) ; --> SB!INT:WITH-SANE-IO-SYNTAX SB!IMPL::CALL-WITH-SANE-IO-SYNTAX LAMBDA ; --> FUNCTION PROGV LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN LABELS ; --> #:BIND923 NREVERSE MAPCAR LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN SUMMARIZE-COMPILATION-UNIT ; (MAPCAR #'SB!C::UNDEFINED-WARNING-NAME ; (REMOVE SB!C::KIND SB!C::UNDEFS :TEST #'SB!INT:NEQ :KEY ; #'SB!C::UNDEFINED-WARNING-KIND)) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN SUB-COMPILE-FILE ; (SB!C::WITH-COMPILATION-VALUES ; (SB-XC:WITH-COMPILATION-UNIT NIL ; (SB!KERNEL:WITH-WORLD-LOCK NIL ; (SB!C::SUB-SUB-COMPILE-FILE SB!INT:INFO) ; (UNLESS (ZEROP #) ; (SB!C::WITH-SOURCE-PATHS ; #)) ; (SB!C::FINISH-BLOCK-COMPILATION) ; (LET (#) ; (ETYPECASE SB!C::OBJECT # # #)) ; NIL))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM LET HANDLER-BIND ; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET LET LIST* CONS LIST CONS ; ==> ; #'SB!C::COMPILER-STYLE-WARNING-HANDLER ; ; caught STYLE-WARNING: ; undefined function: COMPILER-STYLE-WARNING-HANDLER ; in: DEFUN SUMMARIZE-COMPILATION-UNIT ; #'SB!C::COMPILER-STYLE-WARNING-HANDLER ; ; caught STYLE-WARNING: ; undefined function: COMPILER-STYLE-WARNING-HANDLER ; in: DEFUN SUB-COMPILE-FILE ; (SB!C::WITH-COMPILATION-VALUES ; (SB-XC:WITH-COMPILATION-UNIT NIL ; (SB!KERNEL:WITH-WORLD-LOCK NIL ; (SB!C::SUB-SUB-COMPILE-FILE SB!INT:INFO) ; (UNLESS (ZEROP #) ; (SB!C::WITH-SOURCE-PATHS ; #)) ; (SB!C::FINISH-BLOCK-COMPILATION) ; (LET (#) ; (ETYPECASE SB!C::OBJECT # # #)) ; NIL))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM LET HANDLER-BIND ; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET LET LIST* CONS LIST CONS ; ==> ; #'SB!C::COMPILER-WARNING-HANDLER ; ; caught STYLE-WARNING: ; undefined function: COMPILER-WARNING-HANDLER ; in: DEFUN SUMMARIZE-COMPILATION-UNIT ; #'SB!C::COMPILER-WARNING-HANDLER ; ; caught STYLE-WARNING: ; undefined function: COMPILER-WARNING-HANDLER ; in: DEFUN IR1-PHASES ; (SB!C::CONSTRAINT-PROPAGATE SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: CONSTRAINT-PROPAGATE ; in: DEFUN %COMPILE-COMPONENT ; (SB!C::CONTROL-ANALYZE SB!C:COMPONENT #'SB!C::MAKE-IR2-BLOCK) ; ; caught STYLE-WARNING: ; undefined function: CONTROL-ANALYZE ; (SB!C::COPY-PROPAGATE SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: COPY-PROPAGATE ; in: DEFUN DELETE-IF-NO-ENTRIES ; (SB!C::DELETE-COMPONENT SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: DELETE-COMPONENT ; in: DEFUN %COMPILE-COMPONENT ; (SB!C::DELETE-UNREFERENCED-TNS SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: DELETE-UNREFERENCED-TNS ; (SB!DISASSEM:DISASSEMBLE-ASSEM-SEGMENT SB!C:*CODE-SEGMENT* ; SB!C::*COMPILER-TRACE-OUTPUT*) ; ; caught STYLE-WARNING: ; undefined function: SB!DISASSEM:DISASSEMBLE-ASSEM-SEGMENT ; (SB!C::ENTRY-ANALYZE SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: ENTRY-ANALYZE ; in: DEFUN EVAL-COMPILE-TOPLEVEL ; (SB!EXT:EVAL-TLF ; (SB!INT:QUASIQUOTE (PROGN #S(SB!IMPL::COMMA :EXPR SB!C::BODY :KIND 2))) ; (SB!C::SOURCE-PATH-TLF-NUMBER SB!C::PATH) SB!C:*LEXENV*) ; ; caught STYLE-WARNING: ; undefined function: EVAL-TLF ; in: DEFUN PREPROCESSOR-MACROEXPAND-1 ; (SB!C::EXPAND-COMPILER-MACRO SB!KERNEL:FORM) ; ; caught STYLE-WARNING: ; undefined function: EXPAND-COMPILER-MACRO ; in: DEFUN DFO-AS-NEEDED ; (SB!C::FIND-DFO SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: FIND-DFO ; in: DEFUN COMPILE-COMPONENT ; (SB!C::FIND-DOMINATORS SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: FIND-DOMINATORS ; in: DEFUN %COMPILE-COMPONENT ; (SB!C::FIND-DOMINATORS SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: FIND-DOMINATORS ; in: DEFUN COMPILE-TOPLEVEL ; (SB!C::FIND-INITIAL-DFO SB!C::LAMBDAS) ; ; caught STYLE-WARNING: ; undefined function: FIND-INITIAL-DFO ; in: DEFUN %COMPILE ; (SB!C::FIND-INITIAL-DFO (LIST SB!C::FUN)) ; ; caught STYLE-WARNING: ; undefined function: FIND-INITIAL-DFO ; in: DEFUN SUB-SUB-COMPILE-FILE ; (SB!C::FIND-SOURCE-PATHS SB!KERNEL:FORM SB!C::CURRENT-INDEX) ; ; caught STYLE-WARNING: ; undefined function: FIND-SOURCE-PATHS ; in: DEFUN IR1-PHASES ; (SB!C::FLUSH-DEAD-CODE BLOCK) ; ; caught STYLE-WARNING: ; undefined function: FLUSH-DEAD-CODE ; in: DEFUN CONVERT-AND-MAYBE-COMPILE ; (SB!C::FOPCOMPILABLE-P SB!KERNEL:FORM SB!C::EXPAND) ; ; caught STYLE-WARNING: ; undefined function: FOPCOMPILABLE-P ; in: DEFUN SUB-COMPILE-FILE ; (SB!C::FOPCOMPILE ; (SB!INT:QUASIQUOTE ; (SB!C::RECORD-CODE-COVERAGE ; '#S(SB!IMPL::COMMA :EXPR (NAMESTRING *COMPILE-FILE-PATHNAME*) :KIND 0) ; '#S(SB!IMPL::COMMA ; :EXPR (LET # ; # ; LIST) ; :KIND 0))) ; NIL NIL) ; ; caught STYLE-WARNING: ; undefined function: FOPCOMPILE ; in: DEFUN CONVERT-AND-MAYBE-COMPILE ; (SB!C::FOPCOMPILE SB!KERNEL:FORM SB!C::PATH NIL SB!C::EXPAND) ; ; caught STYLE-WARNING: ; undefined function: FOPCOMPILE ; in: DEFUN EMIT-MAKE-LOAD-FORM ; (SB!C::FOPCOMPILE-ALLOCATE-INSTANCE SB!C::CREATION-FORM) ; ; caught STYLE-WARNING: ; undefined function: FOPCOMPILE-ALLOCATE-INSTANCE ; (SB!C::FOPCOMPILE-CONSTANT-INIT-FORMS SB!C::FORMS) ; ; caught STYLE-WARNING: ; undefined function: FOPCOMPILE-CONSTANT-INIT-FORMS ; in: DEFUN PRINT-COMPILE-START-NOTE ; (SB!INT:FORMAT-UNIVERSAL-TIME NIL ; (SB!C::FILE-INFO-WRITE-DATE SB!C::FILE-INFO) ; :STYLE :GOVERNMENT :PRINT-WEEKDAY NIL ; :PRINT-TIMEZONE NIL) ; ; caught STYLE-WARNING: ; undefined function: FORMAT-UNIVERSAL-TIME ; in: DEFUN PROCESS-TOPLEVEL-FORM ; (SB!C::FUNCALL-IN-MACROLET-LEXENV SB!C::MAGIC ; (LAMBDA (&KEY SB!C::FUNS SB!C::PREPEND) ; (DECLARE (IGNORE SB!C::FUNS)) ; (SB!INT:AVER (NULL SB!C::PREPEND)) ; (SB!C::PROCESS-TOPLEVEL-LOCALLY ; SB!C::BODY SB!C::PATH ; SB!C::COMPILE-TIME-TOO)) ; :COMPILE) ; ; caught STYLE-WARNING: ; undefined function: FUNCALL-IN-MACROLET-LEXENV ; (SB!C::FUNCALL-IN-SYMBOL-MACROLET-LEXENV SB!C::MAGIC ; (LAMBDA ; (&KEY SB!C::VARS SB!C::PREPEND) ; (SB!INT:AVER (NULL SB!C::PREPEND)) ; (SB!C::PROCESS-TOPLEVEL-LOCALLY ; SB!C::BODY SB!C::PATH ; SB!C::COMPILE-TIME-TOO :VARS ; SB!C::VARS)) ; :COMPILE) ; ; caught STYLE-WARNING: ; undefined function: FUNCALL-IN-SYMBOL-MACROLET-LEXENV ; in: DEFUN %COMPILE-COMPONENT ; (SB!C::GENERATE-CODE SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: GENERATE-CODE ; in: DEFUN IR1-PHASES ; (SB!C::GENERATE-TYPE-CHECKS SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: GENERATE-TYPE-CHECKS ; in: DEFUN PROCESS-TOPLEVEL-FORM ; (SB!C::GET-SOURCE-PATH SB!KERNEL:FORM) ; ; caught STYLE-WARNING: ; undefined function: GET-SOURCE-PATH ; in: DEFUN %COMPILE-COMPONENT ; (SB!C::GTN-ANALYZE SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: GTN-ANALYZE ; (SB!C::INIT-ASSEMBLER) ; ; caught STYLE-WARNING: ; undefined function: INIT-ASSEMBLER ; in: DEFUN MAKE-FUNCTIONAL-FROM-TOPLEVEL-LAMBDA ; (SB!C::IR1-CONVERT-LAMBDA (SB!C::MAKE-XEP-LAMBDA-EXPRESSION SB!C::FUN) ; :SOURCE-NAME SB!C::SOURCE-NAME :DEBUG-NAME ; (SB!C::DEBUG-NAME 'SB!C::TL-XEP ; SB!C::DEBUG-NAME-TAIL) ; :SYSTEM-LAMBDA T) ; ; caught STYLE-WARNING: ; undefined function: IR1-CONVERT-LAMBDA ; (FUNCALL #'SB!C::IR1-CONVERT-LAMBDALIKE SB!C::LAMBDA-EXPRESSION :SOURCE-NAME ; SB!C::SOURCE-NAME) ; ==> ; (SB!C::%FUNCALL #'SB!C::IR1-CONVERT-LAMBDALIKE SB!C::LAMBDA-EXPRESSION ; :SOURCE-NAME SB!C::SOURCE-NAME) ; ; caught STYLE-WARNING: ; undefined function: IR1-CONVERT-LAMBDALIKE ; in: DEFUN IR1-PHASES ; (SB!C::IR1-FINALIZE SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: IR1-FINALIZE ; in: DEFUN IR1-OPTIMIZE-UNTIL-DONE ; (SB!C::IR1-OPTIMIZE SB!C:COMPONENT SB!C::FASTP) ; ; caught STYLE-WARNING: ; undefined function: IR1-OPTIMIZE ; in: DEFUN COMPILE-LOAD-TIME-STUFF ; (SB!C::IR1-TOPLEVEL SB!KERNEL:FORM SB!C::*CURRENT-PATH* SB!C::FOR-VALUE NIL) ; ; caught STYLE-WARNING: ; undefined function: IR1-TOPLEVEL ; in: DEFUN CONVERT-AND-MAYBE-COMPILE ; (SB!C::IR1-TOPLEVEL SB!KERNEL:FORM SB!C::PATH NIL) ; ; caught STYLE-WARNING: ; undefined function: IR1-TOPLEVEL ; in: DEFUN %COMPILE-COMPONENT ; (SB!C:IR2-CONVERT SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: IR2-CONVERT ; (SB!C::IR2-OPTIMIZE SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: IR2-OPTIMIZE ; in: DEFUN DESCRIBE-IR2-COMPONENT ; (SB!C:LABEL-ID (SB!C::ENTRY-INFO-OFFSET SB!C::ENTRY)) ; ; caught STYLE-WARNING: ; undefined function: LABEL-ID ; in: DEFUN COMPILE-LOAD-TIME-VALUE-LAMBDA ; (SB!C::LAMBDA-COMPONENT LAMBDA) ; ; caught STYLE-WARNING: ; undefined function: LAMBDA-COMPONENT ; in: DEFUN FUNCTIONAL-COMPONENTS ; (SB!C::LAMBDA-COMPONENT SB!C::F) ; ; caught STYLE-WARNING: ; undefined function: LAMBDA-COMPONENT ; in: DEFUN COMPILE-COMPONENT ; (SB!C::LAMBDA-COMPONENT LAMBDA) ; ; caught STYLE-WARNING: ; undefined function: LAMBDA-COMPONENT ; in: DEFUN %COMPILE-COMPONENT ; (SB!C::LIFETIME-ANALYZE SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: LIFETIME-ANALYZE ; in: DEFUN COMPILE-TOPLEVEL ; (SB!C::LOCALL-ANALYZE-CLAMBDAS-UNTIL-DONE SB!C::LAMBDAS) ; ; caught STYLE-WARNING: ; undefined function: LOCALL-ANALYZE-CLAMBDAS-UNTIL-DONE ; in: DEFUN %COMPILE ; (SB!C::LOCALL-ANALYZE-CLAMBDAS-UNTIL-DONE (LIST SB!C::FUN)) ; ; caught STYLE-WARNING: ; undefined function: LOCALL-ANALYZE-CLAMBDAS-UNTIL-DONE ; in: DEFUN IR1-PHASES ; (SB!C::LOCALL-ANALYZE-COMPONENT SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: LOCALL-ANALYZE-COMPONENT ; in: DEFUN MAKE-FUNCTIONAL-FROM-TOPLEVEL-LAMBDA ; (SB!C::LOCALL-ANALYZE-XEP-ENTRY-POINT SB!C::FUN) ; ; caught STYLE-WARNING: ; undefined function: LOCALL-ANALYZE-XEP-ENTRY-POINT ; in: DEFUN COMPILE-COMPONENT ; (SB!C::LOOP-ANALYZE SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: LOOP-ANALYZE ; in: DEFUN %COMPILE-COMPONENT ; (SB!C::LTN-ANALYZE SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: LTN-ANALYZE ; (SB!C::MAKE-CORE-COMPONENT SB!C:COMPONENT SB!C:*CODE-SEGMENT* ; SB!C::CODE-LENGTH SB!C::FIXUP-NOTES SB!C::*COMPILE-OBJECT*) ; ; caught STYLE-WARNING: ; undefined function: MAKE-CORE-COMPONENT ; in: DEFUN MAKE-FUNCTIONAL-FROM-TOPLEVEL-LAMBDA ; (SB!C::MAKE-EMPTY-COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: MAKE-EMPTY-COMPONENT ; in: DEFUN %COMPILE ; (SB!C::MAKE-LEXENV :POLICY SB!C::*POLICY* :HANDLED-CONDITIONS ; SB!C::*HANDLED-CONDITIONS* :DISABLED-PACKAGE-LOCKS ; SB!C::*DISABLED-PACKAGE-LOCKS*) ; ; caught STYLE-WARNING: ; undefined function: MAKE-LEXENV ; in: DEFUN MAKE-FUNCTIONAL-FROM-TOPLEVEL-LAMBDA ; (SB!C::MAKE-LEXENV :POLICY ; (SB!C::LEXENV-POLICY (SB!C::FUNCTIONAL-LEXENV SB!C::FUN))) ; ; caught STYLE-WARNING: ; undefined function: MAKE-LEXENV ; in: DEFUN CONVERT-AND-MAYBE-COMPILE ; (SB!C::MAKE-LEXENV :POLICY SB!C::*POLICY* :HANDLED-CONDITIONS ; SB!C::*HANDLED-CONDITIONS* :DISABLED-PACKAGE-LOCKS ; SB!C::*DISABLED-PACKAGE-LOCKS*) ; ; caught STYLE-WARNING: ; undefined function: MAKE-LEXENV ; ; caught STYLE-WARNING: ; 1 more use of undefined function MAKE-LEXENV ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/main.lisp ; in: DEFUN EMIT-MAKE-LOAD-FORM ; (SB-XC:MAKE-LOAD-FORM SB!KERNEL:CONSTANT (SB!KERNEL:MAKE-NULL-LEXENV)) ; ; caught STYLE-WARNING: ; undefined function: SB-XC:MAKE-LOAD-FORM ; in: DEFUN MAKE-FUNCTIONAL-FROM-TOPLEVEL-LAMBDA ; (SB!C::MAKE-XEP-LAMBDA-EXPRESSION SB!C::FUN) ; ; caught STYLE-WARNING: ; undefined function: MAKE-XEP-LAMBDA-EXPRESSION ; in: DEFUN SUB-COMPILE-TOPLEVEL-LAMBDAS ; (SB!C::MERGE-TOPLEVEL-LAMBDAS SB!C::LAMBDAS) ; ; caught STYLE-WARNING: ; undefined function: MERGE-TOPLEVEL-LAMBDAS ; in: DEFUN MAKE-FUNCTIONAL-FROM-TOPLEVEL-LAMBDA ; (SB!C::NAME-LAMBDALIKE SB!C::LAMBDA-EXPRESSION) ; ; caught STYLE-WARNING: ; undefined function: NAME-LAMBDALIKE ; in: DEFUN CLEAR-IR1-INFO ; (SB!C::NODE-COMPONENT SB!C::X) ; ; caught STYLE-WARNING: ; undefined function: NODE-COMPONENT ; in: DEFUN COMPILE-COMPONENT ; (SB!C::NODE-COMPONENT (SB!C::LAMBDA-BIND LAMBDA)) ; ; caught STYLE-WARNING: ; undefined function: NODE-COMPONENT ; in: DEFUN DELETE-IF-NO-ENTRIES ; (SB!C::NODE-COMPONENT SB!C::REF) ; ; caught STYLE-WARNING: ; undefined function: NODE-COMPONENT ; ; caught STYLE-WARNING: ; 1 more use of undefined function NODE-COMPONENT ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/main.lisp ; in: DEFUN %WITH-COMPILATION-UNIT ; (SB!C::NOTE-UNDEFINED-REFERENCE ; (SB!KERNEL:PARSE-UNKNOWN-TYPE-SPECIFIER SB!C::C) :TYPE) ; ; caught STYLE-WARNING: ; undefined function: NOTE-UNDEFINED-REFERENCE ; in: DEFUN %COMPILE-COMPONENT ; (SB!REGALLOC:PACK SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: SB!REGALLOC:PACK ; in: DEFUN COMPILE-COMPONENT ; (SB!C::PHYSENV-ANALYZE SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: PHYSENV-ANALYZE ; in: DEFUN DESCRIBE-IR2-COMPONENT ; (SB!C::PRE-PACK-TN-STATS SB!C:COMPONENT *STANDARD-OUTPUT*) ; ; caught STYLE-WARNING: ; undefined function: PRE-PACK-TN-STATS ; in: DEFUN %COMPILE-COMPONENT ; (SB!C::PRE-PACK-TN-STATS SB!C:COMPONENT *STANDARD-OUTPUT*) ; ; caught STYLE-WARNING: ; undefined function: PRE-PACK-TN-STATS ; in: DEFUN COMPILE-TOPLEVEL ; (SB!C::PRE-PHYSENV-ANALYZE-TOPLEVEL SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: PRE-PHYSENV-ANALYZE-TOPLEVEL ; in: DEFUN DESCRIBE-COMPONENT ; (SB!C::PRINT-ALL-BLOCKS SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: PRINT-ALL-BLOCKS ; in: DEFUN DESCRIBE-IR2-COMPONENT ; (SB!C::PRINT-IR2-BLOCKS SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: PRINT-IR2-BLOCKS ; in: DEFUN PROCESS-TOPLEVEL-LOCALLY ; (SB!C::PROCESS-DECLS SB!C::DECLS SB!C::VARS SB!C::FUNS) ; ; caught STYLE-WARNING: ; undefined function: PROCESS-DECLS ; in: DEFUN COMPILE-COMPONENT ; (SB!C::RECORD-COMPONENT-XREFS SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: RECORD-COMPONENT-XREFS ; in: DEFUN MAKE-FUNCTIONAL-FROM-TOPLEVEL-LAMBDA ; (SB!C::REOPTIMIZE-COMPONENT SB!C:COMPONENT :MAYBE) ; ; caught STYLE-WARNING: ; undefined function: REOPTIMIZE-COMPONENT ; in: DEFUN COMPILE-TOPLEVEL ; (SB!C::REPLACE-TOPLEVEL-XEPS SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: REPLACE-TOPLEVEL-XEPS ; in: DEFUN %COMPILE ; (SB!C::REPLACE-TOPLEVEL-XEPS SB!C::COMPONENT-FROM-DFO) ; ; caught STYLE-WARNING: ; undefined function: REPLACE-TOPLEVEL-XEPS ; in: DEFUN IR1-PHASES ; (SB!C::RETRY-DELAYED-IR1-TRANSFORMS :CONSTRAINT) ; ; caught STYLE-WARNING: ; undefined function: RETRY-DELAYED-IR1-TRANSFORMS ; in: DEFUN IR1-OPTIMIZE-UNTIL-DONE ; (SB!C::RETRY-DELAYED-IR1-TRANSFORMS :OPTIMIZE) ; ; caught STYLE-WARNING: ; undefined function: RETRY-DELAYED-IR1-TRANSFORMS ; in: DEFUN %COMPILE-COMPONENT ; (SB!C::SELECT-REPRESENTATIONS SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: SELECT-REPRESENTATIONS ; in: DEFUN EVAL-COMPILE-TOPLEVEL ; (SB!C::SOURCE-PATH-TLF-NUMBER SB!C::PATH) ; ; caught STYLE-WARNING: ; undefined function: SOURCE-PATH-TLF-NUMBER ; in: DEFUN %COMPILE-COMPONENT ; (SB!C::STACK-ANALYZE SB!C:COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: STACK-ANALYZE ; in: DEFUN MAKE-FUNCTIONAL-FROM-TOPLEVEL-LAMBDA ; (SB!C::SUBSTITUTE-LEAF-IF ; (LAMBDA (SB!C::REF) ; (LET* ((SB!C::LVAR #) (SB!C::DEST #) (SB!C::KIND #)) ; (SB!INT:NEQ :LOCAL SB!C::KIND))) ; SB!C::XEP SB!C::FUN) ; ; caught STYLE-WARNING: ; undefined function: SUBSTITUTE-LEAF-IF ; ; compilation unit finished ; Undefined types: ; CODE-DELETION-NOTE COMPILER-ERROR-CONTEXT COMPILER-NOTE ; Undefined functions: ; %EVENT CHECK-IR1-CONSISTENCY CHECK-IR2-CONSISTENCY CHECK-LIFE-CONSISTENCY CHECK-PACK-CONSISTENCY COMPILER-ERROR-CONTEXT-LEXENV COMPILER-ERROR-HANDLER COMPILER-MUMBLE COMPILER-STYLE-WARNING-HANDLER COMPILER-WARNING-HANDLER CONSTRAINT-PROPAGATE CONTROL-ANALYZE COPY-PROPAGATE DELETE-COMPONENT DELETE-UNREFERENCED-TNS SB!DISASSEM:DISASSEMBLE-ASSEM-SEGMENT ENTRY-ANALYZE EVAL-TLF EXPAND-COMPILER-MACRO FIND-DFO FIND-DOMINATORS FIND-INITIAL-DFO FIND-SOURCE-PATHS FLUSH-DEAD-CODE FOPCOMPILABLE-P FOPCOMPILE FOPCOMPILE-ALLOCATE-INSTANCE FOPCOMPILE-CONSTANT-INIT-FORMS FORMAT-UNIVERSAL-TIME FUNCALL-IN-MACROLET-LEXENV FUNCALL-IN-SYMBOL-MACROLET-LEXENV GENERATE-CODE GENERATE-TYPE-CHECKS GET-SOURCE-PATH GTN-ANALYZE INIT-ASSEMBLER IR1-CONVERT-LAMBDA IR1-CONVERT-LAMBDALIKE IR1-FINALIZE IR1-OPTIMIZE IR1-TOPLEVEL IR2-CONVERT IR2-OPTIMIZE LABEL-ID LAMBDA-COMPONENT LIFETIME-ANALYZE LOCALL-ANALYZE-CLAMBDAS-UNTIL-DONE LOCALL-ANALYZE-COMPONENT LOCALL-ANALYZE-XEP-ENTRY-POINT LOOP-ANALYZE LTN-ANALYZE MAKE-CORE-COMPONENT MAKE-EMPTY-COMPONENT MAKE-LEXENV SB-XC:MAKE-LOAD-FORM MAKE-XEP-LAMBDA-EXPRESSION MERGE-TOPLEVEL-LAMBDAS NAME-LAMBDALIKE NODE-COMPONENT NOTE-UNDEFINED-REFERENCE SB!REGALLOC:PACK PHYSENV-ANALYZE PRE-PACK-TN-STATS PRE-PHYSENV-ANALYZE-TOPLEVEL PRINT-ALL-BLOCKS PRINT-IR2-BLOCKS PROCESS-DECLS RECORD-COMPONENT-XREFS REOPTIMIZE-COMPONENT REPLACE-TOPLEVEL-XEPS RETRY-DELAYED-IR1-TRANSFORMS SELECT-REPRESENTATIONS SOURCE-PATH-TLF-NUMBER STACK-ANALYZE SUBSTITUTE-LEAF-IF ; caught 109 STYLE-WARNING conditions ; printed 2 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/main.lisp-obj-tmp written ; compilation finished in 0:00:01.055 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/xref.lisp" (written 27 FEB 2015 04:49:49 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFVAR *XREF-KINDS* ...) ; x-compiling (DEFUN RECORD-COMPONENT-XREFS ...) ; x-compiling (DEFUN CALL-WITH-BLOCK-EXTERNAL-FUNCTIONALS ...) ; x-compiling (DEFUN RECORD-NODE-XREFS ...) ; x-compiling (DEFUN INTERNAL-NAME-P ...) ; x-compiling (DEFUN RECORD-XREF ...) ; x-compiling (DEFUN RECORD-MACROEXPANSION ...) ; x-compiling (DEFUN RECORD-CALL ...) ; x-compiling (DEFUN PACK-XREF-DATA ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/xref.lisp ; in: DEFUN CALL-WITH-BLOCK-EXTERNAL-FUNCTIONALS ; (SB!C::BLOCK-HOME-LAMBDA BLOCK) ; ; caught STYLE-WARNING: ; undefined function: BLOCK-HOME-LAMBDA ; in: DEFUN INTERNAL-NAME-P ; (MEMBER (SYMBOL-PACKAGE SB!C::WHAT) ; (LOAD-TIME-VALUE ; (LIST* (FIND-PACKAGE "COMMON-LISP") ; (REMOVE-IF-NOT (LAMBDA # #) (LIST-ALL-PACKAGES))))) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN CALL-WITH-BLOCK-EXTERNAL-FUNCTIONALS ; (MEMBER (CAR SB!C::NAME) ; '(FLET LABELS ; LAMBDA)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; (MEMBER SB!C::FUNCTIONAL SB!C::SEEN) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 2 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/xref.lisp ; in: DEFUN RECORD-NODE-XREFS ; (SB!C::CONSTANT-LVAR-P SB!C::ARG) ; ; caught STYLE-WARNING: ; undefined function: CONSTANT-LVAR-P ; (SB!C::LVAR-VALUE SB!C::ARG) ; ; caught STYLE-WARNING: ; undefined function: LVAR-VALUE ; in: DEFUN CALL-WITH-BLOCK-EXTERNAL-FUNCTIONALS ; (SB!C::NODE-HOME-LAMBDA SB!C::REF) ; ; caught STYLE-WARNING: ; undefined function: NODE-HOME-LAMBDA ; in: DEFUN RECORD-NODE-XREFS ; (SB!C::PRINCIPAL-LVAR-USE (SB!C::COMBINATION-FUN SB!C::NODE)) ; ; caught STYLE-WARNING: ; undefined function: PRINCIPAL-LVAR-USE ; in: DEFUN RECORD-XREF ; (SB!C::SOURCE-PATH-ORIGINAL-SOURCE ; (OR SB!C::PATH (SB!C::NODE-SOURCE-PATH SB!C::NODE))) ; ; caught STYLE-WARNING: ; undefined function: SOURCE-PATH-ORIGINAL-SOURCE ; ; compilation unit finished ; Undefined type: ; CODE-DELETION-NOTE ; Undefined functions: ; BLOCK-HOME-LAMBDA CONSTANT-LVAR-P LVAR-VALUE NODE-HOME-LAMBDA PRINCIPAL-LVAR-USE SOURCE-PATH-ORIGINAL-SOURCE ; caught 10 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/xref.lisp-obj-tmp written ; compilation finished in 0:00:00.099 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/source-location.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEF!STRUCT (DEFINITION-SOURCE-LOCATION # ...) ...) ; x-compiling (DEFUN MAKE-DEFINITION-SOURCE-LOCATION ...) ; x-compiling (DEFUN MAKE-FILE-INFO-NAMESTRING ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/source-location.lisp ; in: DEFUN MAKE-DEFINITION-SOURCE-LOCATION ; (STRING= (SB!C:DEFINITION-SOURCE-LOCATION-NAMESTRING LAST) NAMESTRING) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: ; DEF!STRUCT (DEFINITION-SOURCE-LOCATION ; (:CONSTRUCTOR %MAKE-DEFINITION-SOURCE-LOCATION ; (NAMESTRING TOPLEVEL-FORM-NUMBER)) ; (:COPIER NIL) (:MAKE-LOAD-FORM-FUN JUST-DUMP-IT-NORMALLY)) ; (SB!INT:DEF!STRUCT ; (SB!C:DEFINITION-SOURCE-LOCATION ; (:CONSTRUCTOR SB!C::%MAKE-DEFINITION-SOURCE-LOCATION ; (NAMESTRING SB!C::TOPLEVEL-FORM-NUMBER)) ; (:COPIER NIL) (:MAKE-LOAD-FORM-FUN SB!KERNEL:JUST-DUMP-IT-NORMALLY)) ; (NAMESTRING NIL :TYPE (OR STRING NULL) :READ-ONLY T) ; (SB!C::TOPLEVEL-FORM-NUMBER NIL :TYPE (OR FIXNUM NULL) :READ-ONLY T) ; (SB!C::PLIST SB!C::*SOURCE-PLIST* :READ-ONLY T)) ; --> PROGN DEFSTRUCT PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN ; --> LET LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:NEXT4 #:START5 #:COUNT6 #:G7) {CE25001}> ; #:NEXT4 #:START5 #:COUNT6 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN MAKE-DEFINITION-SOURCE-LOCATION ; (SB!C::SOURCE-PATH-TLF-NUMBER SB!C::*CURRENT-PATH*) ; ; caught STYLE-WARNING: ; undefined function: SOURCE-PATH-TLF-NUMBER ; ; compilation unit finished ; Undefined type: ; CODE-DELETION-NOTE ; Undefined function: ; SOURCE-PATH-TLF-NUMBER ; caught 3 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/source-location.lisp-obj-tmp written ; compilation finished in 0:00:00.042 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/target-main.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFUN GET-LAMBDA-TO-COMPILE ...) ; x-compiling (DEFUN ACTUALLY-COMPILE ...) ; x-compiling (DEFUN COMPILE-IN-LEXENV ...) ; x-compiling (DEFUN COMPILE ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/target-main.lisp ; in: DEFUN ACTUALLY-COMPILE ; (SB!C::WITH-SOURCE-PATHS ; (PROG* ((SB!C::TLF (OR SB!C::TLF 0)) ; (SB!C::*SOURCE-PATHS* (OR SB!C::SOURCE-PATHS SB!C::*SOURCE-PATHS*)) ; (SB!KERNEL:FORM (SB!C::GET-LAMBDA-TO-COMPILE SB!C::DEFINITION)) ; (SB!C::*SOURCE-INFO* (OR SB!C::SOURCE-INFO #)) ; (SB!C::*TOPLEVEL-LAMBDAS* NIL) (SB!C::*BLOCK-COMPILE* NIL) ; (SB!C::*ALLOW-INSTRUMENTING* NIL) ; (SB!C::*CODE-COVERAGE-RECORDS* NIL) ; (SB!C::*CODE-COVERAGE-BLOCKS* NIL) (SB!C::*CURRENT-PATH* NIL) ; (SB!C::*LAST-SOURCE-CONTEXT* NIL) ; (SB!C::*LAST-ORIGINAL-SOURCE* NIL) ...) ; (HANDLER-BIND ((# #'SB!C::HANDLE-CONDITION-HANDLER)) ; (UNLESS SB!C::SOURCE-PATHS ; (SB!C::FIND-SOURCE-PATHS SB!KERNEL:FORM SB!C::TLF)) ; (LET (#) ; (RETURN #))) ; :ERROR ; (IF SB!C::ERRORP ; (ERROR SB!C::OOPS) ; (LET (# #) ; (RETURN #))))) ; --> LET* UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:NEXT20 #:START21 #:COUNT22 #:G23) {DAFA511}> ; #:NEXT20 #:START21 #:COUNT22 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; (SB!C::WITH-COMPILATION-VALUES ; (SB-XC:WITH-COMPILATION-UNIT NIL ; (SB!C::WITH-SOURCE-PATHS ; (PROG* (# # # # # # # # # # # # ...) ; (HANDLER-BIND # ; # ; #) ; :ERROR ; (IF SB!C::ERRORP ; # ; #))))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:NEXT7 #:START8 #:COUNT9 #:G10) {DADB379}> ; #:NEXT7 #:START8 #:COUNT9 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN GET-LAMBDA-TO-COMPILE ; (MULTIPLE-VALUE-BIND (SB!C::DEFINITION SB!C::ENV-P) ; (FUNCTION-LAMBDA-EXPRESSION SB!C::DEFINITION-DESIGNATOR) ; (WHEN SB!C::ENV-P ; (ERROR "~S was defined in a non-null environment." ; SB!C::DEFINITION-DESIGNATOR)) ; (UNLESS SB!C::DEFINITION ; (ERROR "can't find a definition for ~S" SB!C::DEFINITION-DESIGNATOR)) ; SB!C::DEFINITION) ; --> MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!C::DEFINITION SB!C::ENV-P #:G0) {DAA3AB1}> ; SB!C::DEFINITION SB!C::ENV-P NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 13 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/target-main.lisp ; in: DEFUN ACTUALLY-COMPILE ; (SB!C::WITH-COMPILATION-VALUES ; (SB-XC:WITH-COMPILATION-UNIT NIL ; (SB!C::WITH-SOURCE-PATHS ; (PROG* (# # # # # # # # # # # # ...) ; (HANDLER-BIND # ; # ; #) ; :ERROR ; (IF SB!C::ERRORP ; # ; #))))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB!C::%WITHIN-CLEANUP RETURN-FROM LET HANDLER-BIND ; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET LET LIST* CONS LIST CONS ; ==> ; #'SB!C::COMPILER-ERROR-HANDLER ; ; caught STYLE-WARNING: ; undefined function: COMPILER-ERROR-HANDLER ; ==> ; #'SB!C::COMPILER-STYLE-WARNING-HANDLER ; ; caught STYLE-WARNING: ; undefined function: COMPILER-STYLE-WARNING-HANDLER ; ==> ; #'SB!C::COMPILER-WARNING-HANDLER ; ; caught STYLE-WARNING: ; undefined function: COMPILER-WARNING-HANDLER ; (SB!C::FIND-SOURCE-PATHS SB!KERNEL:FORM SB!C::TLF) ; ; caught STYLE-WARNING: ; undefined function: FIND-SOURCE-PATHS ; in: DEFUN COMPILE-IN-LEXENV ; (SB!EVAL:PREPARE-FOR-COMPILE SB!C::DEFINITION) ; ; caught STYLE-WARNING: ; undefined function: SB!EVAL:PREPARE-FOR-COMPILE ; ; compilation unit finished ; Undefined type: ; CODE-DELETION-NOTE ; Undefined functions: ; COMPILER-ERROR-HANDLER COMPILER-STYLE-WARNING-HANDLER COMPILER-WARNING-HANDLER FIND-SOURCE-PATHS SB!EVAL:PREPARE-FOR-COMPILE ; caught 9 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/target-main.lisp-obj-tmp written ; compilation finished in 0:00:00.065 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir1tran.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DECLAIM (SPECIAL *COMPILER-ERROR-BAILOUT*)) ; x-compiling (DECLAIM (TYPE INDEX ...)) ; x-compiling (DEFVAR *CURRENT-FORM-NUMBER*) ; x-compiling (DECLAIM (HASH-TABLE *SOURCE-PATHS*)) ; x-compiling (DEFVAR *SOURCE-PATHS*) ; x-compiling (DECLAIM (INLINE SOURCE-FORM-HAS-PATH-P)) ; x-compiling (DEFUN SOURCE-FORM-HAS-PATH-P ...) ; x-compiling (DEFUN GET-SOURCE-PATH ...) ; x-compiling (DEFUN ENSURE-SOURCE-PATH ...) ; x-compiling (DEFUN SIMPLIFY-SOURCE-PATH-FORM ...) ; x-compiling (DEFUN NOTE-SOURCE-PATH ...) ; x-compiling (DECLAIM (TYPE # ...)) ; x-compiling (DEFVAR *CURRENT-COMPONENT*) ; x-compiling (DECLAIM (LIST *CURRENT-PATH*)) ; x-compiling (DEFVAR *CURRENT-PATH*) ; x-compiling (DEFVAR *DERIVE-FUNCTION-TYPES* ...) ; x-compiling (DEFVAR *FUN-NAMES-IN-THIS-FILE* ...) ; x-compiling (DEFVAR *POST-BINDING-VARIABLE-LEXENV* ...) ; x-compiling (DEFUN FUN-LEXICALLY-NOTINLINE-P ...) ; x-compiling (DECLAIM (NOTINLINE MAYBE-UPDATE-INFO-FOR-GF)) ; x-compiling (DEFUN MAYBE-UPDATE-INFO-FOR-GF ...) ; x-compiling (DEFUN MAYBE-DEFINED-HERE ...) ; x-compiling (DEFUN FIND-GLOBAL-FUN ...) ; x-compiling (DEFUN CLEAR-INVALID-FUNCTIONALS ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN FIND-FREE-FUN ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN FIND-LEXICALLY-APPARENT-FUN ...) ; x-compiling (DEFUN MAYBE-FIND-FREE-VAR ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN FIND-FREE-VAR ...) ; x-compiling (DEFUN MAYBE-EMIT-MAKE-LOAD-FORMS ...) ; x-compiling (DEFUN LINK-NODE-TO-PREVIOUS-CTRAN ...) ; x-compiling (DECLAIM (INLINE USE-CTRAN)) ; x-compiling (DEFUN USE-CTRAN ...) ; x-compiling (DEFUN %USE-CTRAN ...) ; x-compiling (DEFUN INSERT-NODE-BEFORE ...) ; x-compiling (DEFUN USE-LVAR ...) ; x-compiling (DECLAIM (INLINE USE-CONTINUATION)) ; x-compiling (DEFUN USE-CONTINUATION ...) ; x-compiling (DEFUN IR1-TOPLEVEL ...) ; x-compiling (DEFUN FIND-SOURCE-PATHS ...) ; x-compiling (DEFUN SUB-FIND-SOURCE-PATHS ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN IR1-CONVERT ...) ; x-compiling (DEFUN REFERENCE-CONSTANT ...) ; x-compiling (DEFUN MAYBE-REANALYZE-FUNCTIONAL ...) ; x-compiling (DEFUN REFERENCE-LEAF ...) ; x-compiling (DEFUN ALWAYS-BOUNDP ...) ; x-compiling (DEFUN IR1-CONVERT-VAR ...) ; x-compiling (DEFUN FIND-COMPILER-MACRO ...) ; x-compiling (DEFUN EXPAND-COMPILER-MACRO ...) ; x-compiling (DEFUN IR1-CONVERT-FUNCTOID ...) ; x-compiling (DEFUN IR1-CONVERT-COMMON-FUNCTOID ...) ; x-compiling (DEFUN IR1-CONVERT-GLOBAL-FUNCTOID ...) ; x-compiling (DEFUN MUFFLE-WARNING-OR-DIE ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir1tran.lisp ; in: DEFUN MUFFLE-WARNING-OR-DIE ; (SB!INT:BUG "no MUFFLE-WARNING restart") ; ==> ; "no MUFFLE-WARNING restart" ; ; note: deleting unreachable code ; x-compiling (DEFUN CAREFUL-EXPAND-MACRO ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN IR1-CONVERT-PROGN-BODY ...) ; x-compiling (DEFUN INSTRUMENT-COVERAGE ...) ; x-compiling (DEFUN MAYBE-INSTRUMENT-PROGN-LIKE ...) ; x-compiling (DEFUN RECORD-CODE-COVERAGE ...) ; x-compiling (DEFUN CLEAR-CODE-COVERAGE ...) ; x-compiling (DEFUN RESET-CODE-COVERAGE ...) ; x-compiling (DEFUN CODE-COVERAGE-RECORD-MARKED ...) ; x-compiling (DEFUN STEP-FORM-P ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN IR1-CONVERT-COMBINATION ...) ; x-compiling (DEFUN IR1-CONVERT-COMBINATION-ARGS ...) ; x-compiling (DEFUN IR1-CONVERT-SRCTRAN ...) ; x-compiling (DEFVAR *INSTRUMENT-IF-FOR-CODE-COVERAGE* ...) ; x-compiling (DEFUN IR1-CONVERT-MAYBE-PREDICATE ...) ; x-compiling (DEFUN IR1-CONVERT-COMBINATION-CHECKING-TYPE ...) ; x-compiling (DEFUN IR1-CONVERT-LOCAL-COMBINATION ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN FIND-IN-BINDINGS ...) ; x-compiling (DEFUN PROCESS-TYPE-DECL ...) ; x-compiling (DEFUN PROCESS-FTYPE-DECL ...) ; x-compiling (DEFUN PROCESS-SPECIAL-DECL ...) ; x-compiling (DEFUN MAKE-NEW-INLINEP ...) ; x-compiling (DEFUN PROCESS-INLINE-DECL ...) ; x-compiling (DEFUN FIND-IN-BINDINGS-OR-FBINDINGS ...) ; x-compiling (DEFUN PROCESS-IGNORE-DECL ...) ; x-compiling (DEFUN PROCESS-EXTENT-DECL ...) ; x-compiling (DEFVAR *SUPPRESS-VALUES-DECLARATION* ...) ; x-compiling (DEFUN PROCESS-1-DECL ...) ; x-compiling (DEFUN PROCESS-DECLS ...) ; x-compiling (DEFUN %PROCESSING-DECLS ...) ; x-compiling (DEFMACRO PROCESSING-DECLS ...) ; x-compiling (DEFUN SPECVAR-FOR-BINDING ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir1tran.lisp ; in: DEFUN IR1-CONVERT-LOCAL-COMBINATION ; (SB!C::ASSURE-FUNCTIONAL-LIVE-P SB!C::FUNCTIONAL) ; ; caught STYLE-WARNING: ; undefined function: ASSURE-FUNCTIONAL-LIVE-P ; in: DEFUN REFERENCE-LEAF ; (SB!C::ASSURE-LEAF-LIVE-P SB!C::LEAF) ; ; caught STYLE-WARNING: ; undefined function: ASSURE-LEAF-LIVE-P ; in: DEFUN FUN-LEXICALLY-NOTINLINE-P ; (SB!C:LEXENV-FIND SB!C::NAME SB!C::FUNS :TEST #'EQUAL) ; --> LET ; ==> ; (ASSOC SB!C::NAME (SB!C::LEXENV-FUNS SB!C:*LEXENV*) :TEST #'EQUAL) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; (SB!INT:INFO :FUNCTION :INLINEP SB!C::NAME) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:VALUE17 #:FOUNDP18 #:G19) {EEB1221}> ; #:VALUE17 #:FOUNDP18 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN NOTE-SOURCE-PATH ; (DEFUN SB!C::NOTE-SOURCE-PATH (SB!KERNEL:FORM &REST SB!C::ARGUMENTS) ; (WHEN (SB!C::SOURCE-FORM-HAS-PATH-P SB!KERNEL:FORM) ; (SETF (GETHASH SB!KERNEL:FORM SB!C::*SOURCE-PATHS*) ; (APPLY #'LIST* 'SB!C::ORIGINAL-SOURCE-START ; SB!C::*CURRENT-FORM-NUMBER* SB!C::ARGUMENTS)))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!KERNEL:FORM SB!C::ARGUMENTS #:REST-CONTEXT-6 #:REST-COUNT-7) ; {EE1B001}> ; SB!KERNEL:FORM NIL NIL 0)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 99 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir1tran.lisp ; in: DEFUN STEP-FORM-P ; (MAPCAR #'FIND-PACKAGE ; '(SB!C::SB!C SB!C::SB!INT SB!C::SB!IMPL SB!C::SB!KERNEL SB!C::SB!PCL)) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN PROCESS-FTYPE-DECL ; (SB!C::COMPILER-SPECIFIER-TYPE SB!C::SPEC) ; ; caught STYLE-WARNING: ; undefined function: COMPILER-SPECIFIER-TYPE ; in: DEFUN PROCESS-TYPE-DECL ; (SB!C::COMPILER-SPECIFIER-TYPE (FIRST SB!C::DECL)) ; ; caught STYLE-WARNING: ; undefined function: COMPILER-SPECIFIER-TYPE ; in: DEFUN PROCESS-1-DECL ; (SB!C::COMPILER-VALUES-SPECIFIER-TYPE ; (IF (SB!INT:SINGLETON-P SB!C::TYPES) ; (CAR SB!C::TYPES) ; (SB!INT:QUASIQUOTE ; (VALUES #S(SB!IMPL::COMMA :EXPR SB!C::TYPES :KIND 2))))) ; ; caught STYLE-WARNING: ; undefined function: COMPILER-VALUES-SPECIFIER-TYPE ; in: DEFUN IR1-CONVERT-VAR ; (SB!C::CTRAN-HOME-LAMBDA-OR-NULL SB!C::START) ; ; caught STYLE-WARNING: ; undefined function: CTRAN-HOME-LAMBDA-OR-NULL ; in: DEFUN REFERENCE-LEAF => DEFINED-FUN-FUNCTIONAL LEAF ; (SB!C::DEFINED-FUN-FUNCTIONAL SB!C::LEAF) ; ; caught STYLE-WARNING: ; undefined function: DEFINED-FUN-FUNCTIONAL ; in: DEFUN INSERT-NODE-BEFORE ; (SB!C::ENSURE-BLOCK-START SB!C::PREV) ; ; caught STYLE-WARNING: ; undefined function: ENSURE-BLOCK-START ; in: DEFUN REFERENCE-CONSTANT ; (SB!C::FIND-CONSTANT SB!C::VALUE) ; ; caught STYLE-WARNING: ; undefined function: FIND-CONSTANT ; in: DEFUN FIND-FREE-VAR ; (SB!C::FIND-CONSTANT SB!C::VALUE SB!C::NAME) ; ; caught STYLE-WARNING: ; undefined function: FIND-CONSTANT ; in: DEFUN IR1-TOPLEVEL ; (SB!C::IR1-CONVERT-LAMBDA-BODY SB!C::FORMS NIL :DEBUG-NAME ; (SB!C::DEBUG-NAME 'SB!C::TOP-LEVEL-FORM ; SB!KERNEL:FORM)) ; ; caught STYLE-WARNING: ; undefined function: IR1-CONVERT-LAMBDA-BODY ; in: DEFUN MAYBE-REANALYZE-FUNCTIONAL ; (SB!C::LAMBDA-COMPONENT SB!C::FUNCTIONAL) ; ; caught STYLE-WARNING: ; undefined function: LAMBDA-COMPONENT ; in: DEFUN CLEAR-INVALID-FUNCTIONALS ; (SB!C::LAMBDA-COMPONENT SB!C::FUNCTIONAL) ; ; caught STYLE-WARNING: ; undefined function: LAMBDA-COMPONENT ; in: DEFUN %PROCESSING-DECLS ; (SB!C::MAKE-CAST SB!C::VALUE-LVAR SB!C::RESULT-TYPE ; (SB!C::LEXENV-POLICY SB!C:*LEXENV*)) ; ; caught STYLE-WARNING: ; undefined function: MAKE-CAST ; in: DEFUN REFERENCE-LEAF ; (SB!C::MAKE-CAST SB!C::REF-LVAR (SB!KERNEL:MAKE-SINGLE-VALUE-TYPE TYPE) ; (SB!C::LEXENV-POLICY SB!C:*LEXENV*)) ; ; caught STYLE-WARNING: ; undefined function: MAKE-CAST ; in: DEFUN IR1-TOPLEVEL ; (SB!C::MAKE-EMPTY-COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: MAKE-EMPTY-COMPONENT ; in: DEFUN PROCESS-SPECIAL-DECL ; (SB!C::MAKE-LEXENV :DEFAULT SB!C::RES :VARS (SB!C::NEW-VENV)) ; ; caught STYLE-WARNING: ; undefined function: MAKE-LEXENV ; in: DEFUN PROCESS-FTYPE-DECL ; (SB!C::MAKE-LEXENV :DEFAULT SB!C::RES :TYPE-RESTRICTIONS (SB!C::RES)) ; ; caught STYLE-WARNING: ; undefined function: MAKE-LEXENV ; in: DEFUN PROCESS-TYPE-DECL ; (SB!C::MAKE-LEXENV :DEFAULT SB!C::RES :TYPE-RESTRICTIONS (SB!C::RESTR) :VARS ; (SB!C::NEW-VARS)) ; ; caught STYLE-WARNING: ; undefined function: MAKE-LEXENV ; ; caught STYLE-WARNING: ; 2 more uses of undefined function MAKE-LEXENV ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir1tran.lisp ; in: DEFUN FIND-FREE-VAR ; (SB!C::NOTE-UNDEFINED-REFERENCE SB!C::NAME :VARIABLE) ; ; caught STYLE-WARNING: ; undefined function: NOTE-UNDEFINED-REFERENCE ; in: DEFUN FIND-GLOBAL-FUN ; (SB!C::NOTE-UNDEFINED-REFERENCE SB!C::NAME :FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: NOTE-UNDEFINED-REFERENCE ; in: DEFUN EXPAND-COMPILER-MACRO ; (SB!C::PRINT-COMPILER-MESSAGE *ERROR-OUTPUT* "note: ~A" (LIST SB!C::C)) ; ; caught STYLE-WARNING: ; undefined function: PRINT-COMPILER-MESSAGE ; in: DEFUN USE-LVAR ; (SB!C::REOPTIMIZE-LVAR SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: REOPTIMIZE-LVAR ; in: DEFUN INSTRUMENT-COVERAGE ; (SB!C::SOURCE-PATH-ORIGINAL-SOURCE SB!C::*CURRENT-PATH*) ; ; caught STYLE-WARNING: ; undefined function: SOURCE-PATH-ORIGINAL-SOURCE ; in: DEFUN IR1-CONVERT-COMBINATION-CHECKING-TYPE ; (SB!C::VALIDATE-CALL-TYPE SB!C::NODE TYPE SB!C::VAR T) ; ; caught STYLE-WARNING: ; undefined function: VALIDATE-CALL-TYPE ; ; compilation unit finished ; Undefined types: ; CODE-DELETION-NOTE COMPILER-NOTE ; Undefined functions: ; ASSURE-FUNCTIONAL-LIVE-P ASSURE-LEAF-LIVE-P COMPILER-SPECIFIER-TYPE COMPILER-VALUES-SPECIFIER-TYPE CTRAN-HOME-LAMBDA-OR-NULL DEFINED-FUN-FUNCTIONAL ENSURE-BLOCK-START FIND-CONSTANT IR1-CONVERT-LAMBDA-BODY LAMBDA-COMPONENT MAKE-CAST MAKE-EMPTY-COMPONENT MAKE-LEXENV NOTE-UNDEFINED-REFERENCE PRINT-COMPILER-MESSAGE REOPTIMIZE-LVAR SOURCE-PATH-ORIGINAL-SOURCE VALIDATE-CALL-TYPE ; caught 31 STYLE-WARNING conditions ; printed 1 note ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/ir1tran.lisp-obj-tmp written ; compilation finished in 0:00:00.833 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir1tran-lambda.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN VARIFY-LAMBDA-ARG ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN MAKE-KEYWORD-FOR-ARG ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN MAKE-LAMBDA-VARS ...) ; x-compiling (DEFUN IR1-CONVERT-AUX-BINDINGS ...) ; x-compiling (DEFUN IR1-CONVERT-SPECIAL-BINDINGS ...) ; x-compiling (DEFUN IR1-CONVERT-LAMBDA-BODY ...) ; x-compiling (DEFUN REGISTER-ENTRY-POINT ...) ; x-compiling (DEFUN CONVERT-OPTIONAL-ENTRY ...) ; x-compiling (DEFUN GENERATE-OPTIONAL-DEFAULT-ENTRY ...) ; x-compiling (DEFUN CONVERT-MORE-ENTRY ...) ; x-compiling (DEFUN IR1-CONVERT-MORE ...) ; x-compiling (DEFUN IR1-CONVERT-HAIRY-ARGS ...) ; x-compiling (DEFUN IR1-CONVERT-HAIRY-LAMBDA ...) ; x-compiling (DEFUN IR1-CONVERT-LAMBDA ...) ; x-compiling (DEFUN WRAP-FORMS-IN-DEBUG-CATCH ...) ; x-compiling (DEFUN IR1-CONVERT-LAMBDALIKE ...) ; x-compiling (DEFUN IR1-CONVERT-INLINE-LAMBDA ...) ; x-compiling (DEFUN FTYPE-FROM-LAMBDA-LIST ...) ; x-compiling (DEFUN GET-DEFINED-FUN ...) ; x-compiling (DEFUN ASSERT-NEW-DEFINITION ...) ; x-compiling (DEFUN IR1-CONVERT-INLINE-EXPANSION ...) ; x-compiling (DEFUN %SET-INLINE-EXPANSION ...) ; x-compiling (DEFUN %COMPILER-DEFUN ...) ; x-compiling (DEFUN %COMPILER-DEFMACRO ...) ; x-compiling (DEFUN OPTIONAL-DISPATCH-ENTRY-POINT-FUN ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir1tran-lambda.lisp ; in: DEFUN VARIFY-LAMBDA-ARG ; (MEMBER SB!C::NAME SB!C::NAMES-SO-FAR :TEST #'EQ) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; (DEFUN SB!C::VARIFY-LAMBDA-ARG ; (SB!C::NAME SB!C::NAMES-SO-FAR ; &OPTIONAL (SB!C::CONTEXT "lambda list")) ; (DECLARE (INLINE MEMBER)) ; (UNLESS (SYMBOLP SB!C::NAME) ; (SB!C:COMPILER-ERROR ; "~S is not a symbol, and cannot be used as a variable." SB!C::NAME)) ; (WHEN (MEMBER SB!C::NAME SB!C::NAMES-SO-FAR :TEST #'EQ) ; (SB!C:COMPILER-ERROR "The variable ~S occurs more than once in the ~A." ; SB!C::NAME SB!C::CONTEXT)) ; (LET ((SB!C::KIND (SB!INT:INFO :VARIABLE :KIND SB!C::NAME))) ; (COND ; ((KEYWORDP SB!C::NAME) ; (SB!C:COMPILER-ERROR ; "~S is a keyword, and cannot be used as a local variable." ; SB!C::NAME)) ; ((EQ SB!C::KIND :CONSTANT) ; (SB!C:COMPILER-ERROR ; "~@<~S names a defined constant, and cannot be used as a ~ ; local variable.~:@>" ; SB!C::NAME)) ; ((EQ :GLOBAL SB!C::KIND) ; (SB!C:COMPILER-ERROR ; "~@<~S names a global lexical variable, and cannot be used ~ ; as a local variable.~:@>" ; SB!C::NAME)) ; ((EQ SB!C::KIND :SPECIAL) ; (LET # ; #)) ; (T (SB!C::MAKE-LAMBDA-VAR :%SOURCE-NAME SB!C::NAME))))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!C::NAME SB!C::NAMES-SO-FAR SB!C::CONTEXT) {CC232B9}> ; SB!C::NAME SB!C::NAMES-SO-FAR '"lambda list")) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; (SB!INT:INFO :VARIABLE :KIND SB!C::NAME) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:VALUE0 #:FOUNDP1 #:G2) {CC2F581}> ; #:VALUE0 #:FOUNDP1 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 53 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir1tran-lambda.lisp ; in: DEFUN FTYPE-FROM-LAMBDA-LIST ; (MAPCAR (CONSTANTLY T) LIST) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN IR1-CONVERT-INLINE-LAMBDA ; (MAPCAR ; (LAMBDA (SB!C::X) ; (SB!INT:QUASIQUOTE ; (#S(SB!IMPL::COMMA :EXPR # :KIND 0) SB!SYS:MACRO ; . #S(SB!IMPL::COMMA :EXPR # :KIND 0)))) ; SB!C::MACROS) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN CONVERT-OPTIONAL-ENTRY ; (MAPCAR ; (LAMBDA (SB!C::VAR) ; (SB!C::MAKE-LAMBDA-VAR :%SOURCE-NAME (SB!C::LEAF-SOURCE-NAME SB!C::VAR) ; :TYPE (SB!C::LEAF-TYPE SB!C::VAR) :WHERE-FROM ; (SB!C::LEAF-WHERE-FROM SB!C::VAR) :SPECVAR ; (SB!C::LAMBDA-VAR-SPECVAR SB!C::VAR))) ; SB!C::FVARS) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; ; caught STYLE-WARNING: ; 1 more use of undefined type COMPILER-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir1tran-lambda.lisp ; in: DEFUN IR1-CONVERT-LAMBDA-BODY ; (SB!C::CTRAN-STARTS-BLOCK SB!C::RESULT-CTRAN) ; ; caught STYLE-WARNING: ; undefined function: CTRAN-STARTS-BLOCK ; in: DEFUN IR1-CONVERT-SPECIAL-BINDINGS ; (SB!C::CTRAN-STARTS-BLOCK SB!C::NEXT) ; ; caught STYLE-WARNING: ; undefined function: CTRAN-STARTS-BLOCK ; in: DEFUN IR1-CONVERT-LAMBDA-BODY ; (SB!C::LINK-BLOCKS BLOCK (SB!C::COMPONENT-TAIL SB!C::*CURRENT-COMPONENT*)) ; ; caught STYLE-WARNING: ; undefined function: LINK-BLOCKS ; (SB!C::MAKE-LEXENV :VARS (SB!C::NEW-VENV) :LAMBDA LAMBDA :CLEANUP NIL) ; ; caught STYLE-WARNING: ; undefined function: MAKE-LEXENV ; in: DEFUN IR1-CONVERT-SPECIAL-BINDINGS ; (SB!C::MAKE-LEXENV :CLEANUP SB!C::CLEANUP) ; ; caught STYLE-WARNING: ; undefined function: MAKE-LEXENV ; in: DEFUN IR1-CONVERT-AUX-BINDINGS ; (SB!C::MAKE-LEXENV :VARS (COPY-LIST SB!C::POST-BINDING-LEXENV)) ; ; caught STYLE-WARNING: ; undefined function: MAKE-LEXENV ; ; caught STYLE-WARNING: ; 1 more use of undefined function MAKE-LEXENV ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir1tran-lambda.lisp ; in: DEFUN IR1-CONVERT-INLINE-LAMBDA ; (SB!C::NAME-LAMBDALIKE SB!C::FUN) ; ; caught STYLE-WARNING: ; undefined function: NAME-LAMBDALIKE ; in: DEFUN IR1-CONVERT-LAMBDALIKE ; (SB!C::NAME-LAMBDALIKE SB!C::THING) ; ; caught STYLE-WARNING: ; undefined function: NAME-LAMBDALIKE ; in: DEFUN IR1-CONVERT-LAMBDA ; (SB!C::NAME-LAMBDALIKE SB!KERNEL:FORM) ; ; caught STYLE-WARNING: ; undefined function: NAME-LAMBDALIKE ; in: DEFUN IR1-CONVERT-LAMBDA-BODY ; (SB!C::NODE-BLOCK SB!C:BIND) ; ; caught STYLE-WARNING: ; undefined function: NODE-BLOCK ; in: DEFUN IR1-CONVERT-INLINE-EXPANSION ; (SB!C::SUBSTITUTE-LEAF SB!C::FUN SB!C::VAR) ; ; caught STYLE-WARNING: ; undefined function: SUBSTITUTE-LEAF ; in: DEFUN GET-DEFINED-FUN ; (SB!C::SUBSTITUTE-LEAF SB!C::RES SB!C::FOUND) ; ; caught STYLE-WARNING: ; undefined function: SUBSTITUTE-LEAF ; in: DEFUN IR1-CONVERT-LAMBDALIKE ; (SB!C::SUBSTITUTE-LEAF-IF ; (LAMBDA (SB!C::REF) ; (SB!C:POLICY SB!C::REF (> SB!C::RECOGNIZE-SELF-CALLS 0))) ; SB!C::RES SB!C::DEFINED-FUN-RES) ; ; caught STYLE-WARNING: ; undefined function: SUBSTITUTE-LEAF-IF ; ; compilation unit finished ; Undefined types: ; CODE-DELETION-NOTE COMPILER-NOTE ; Undefined functions: ; CTRAN-STARTS-BLOCK LINK-BLOCKS MAKE-LEXENV NAME-LAMBDALIKE NODE-BLOCK SUBSTITUTE-LEAF SUBSTITUTE-LEAF-IF ; caught 22 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/ir1tran-lambda.lisp-obj-tmp written ; compilation finished in 0:00:00.526 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir1-translators.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEF-IR1-TRANSLATOR PROGN ...) ; x-compiling (DEF-IR1-TRANSLATOR IF ...) ; x-compiling (DEFUN BEST-SUB-SOURCE-PATH ...) ; x-compiling (DEF-IR1-TRANSLATOR BLOCK ...) ; x-compiling (DEF-IR1-TRANSLATOR RETURN-FROM ...) ; x-compiling (DEFUN PARSE-TAGBODY ...) ; x-compiling (DEF-IR1-TRANSLATOR TAGBODY ...) ; x-compiling (DEF-IR1-TRANSLATOR GO ...) ; x-compiling (DEF-IR1-TRANSLATOR EVAL-WHEN ...) ; x-compiling (DEFUN %FUNCALL-IN-FOOMACROLET-LEXENV ...) ; x-compiling (DEFUN MACROLET-DEFINITIONIZE-FUN ...) ; x-compiling (DEFUN FUNCALL-IN-MACROLET-LEXENV ...) ; x-compiling (DEF-IR1-TRANSLATOR MACROLET ...) ; x-compiling (DEFUN SYMBOL-MACROLET-DEFINITIONIZE-FUN ...) ; x-compiling (DEFUN FUNCALL-IN-SYMBOL-MACROLET-LEXENV ...) ; x-compiling (DEF-IR1-TRANSLATOR SYMBOL-MACROLET ...) ; x-compiling (DEFUN EVAL-INFO-ARGS ...) ; x-compiling (DEF-IR1-TRANSLATOR %PRIMITIVE ...) ; x-compiling (DEF-IR1-TRANSLATOR QUOTE ...) ; x-compiling (DEFUN NAME-CONTEXT ...) ; x-compiling (DEFUN NAME-LAMBDALIKE ...) ; x-compiling (DEFUN FUN-NAME-LEAF ...) ; x-compiling (DEF-IR1-TRANSLATOR %%ALLOCATE-CLOSURES ...) ; x-compiling (DEFMACRO WITH-FUN-NAME-LEAF ...) ; x-compiling (DEF-IR1-TRANSLATOR FUNCTION ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir1-translators.lisp ; in: DEF-IR1-TRANSLATOR FUNCTION ; (SB!C::WITH-FUN-NAME-LEAF (SB!C::LEAF SB!C::THING SB!C::START) ; (SB!C::REFERENCE-LEAF SB!C::START SB!C::NEXT SB!C::RESULT SB!C::LEAF)) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF SB!C::FIND-GLOBAL-FUN ; ==> ; SB!C::THING ; ; note: deleting unreachable code ; x-compiling (DEF-IR1-TRANSLATOR GLOBAL-FUNCTION ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir1-translators.lisp ; in: DEF-IR1-TRANSLATOR GLOBAL-FUNCTION ; (SB!C::WITH-FUN-NAME-LEAF (SB!C::LEAF SB!C::THING SB!C::START ; :GLOBAL-FUNCTION T) ; (SB!C::REFERENCE-LEAF SB!C::START SB!C::NEXT SB!C::RESULT SB!C::LEAF)) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF SB!C::FUN-NAME-LEAF ; ==> ; SB!C::THING ; ; note: deleting unreachable code ; (SB!C::REFERENCE-LEAF SB!C::START SB!C::NEXT SB!C::RESULT SB!C::LEAF) ; ==> ; SB!C::START ; ; note: deleting unreachable code ; x-compiling (DEFUN CONSTANT-GLOBAL-FUN-NAME ...) ; x-compiling (DEFUN LVAR-CONSTANT-GLOBAL-FUN-NAME ...) ; x-compiling (DEFUN ENSURE-SOURCE-FUN-FORM ...) ; x-compiling (DEFUN ENSURE-LVAR-FUN-FORM ...) ; x-compiling (DEFTRANSFORM FUNCALL ...) ; x-compiling (DEF-IR1-TRANSLATOR %FUNCALL ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir1-translators.lisp ; in: DEF-IR1-TRANSLATOR %FUNCALL ; (SB!C::WITH-FUN-NAME-LEAF (SB!C::LEAF SB!C::THING SB!C::START) ; (SB!C::IR1-CONVERT SB!C::START SB!C::NEXT SB!C::RESULT ; (SB!INT:QUASIQUOTE ; (#S(SB!IMPL::COMMA :EXPR SB!C::LEAF :KIND 0) ; #S(SB!IMPL::COMMA :EXPR SB!C::ARGS :KIND 2))))) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF SB!C::FIND-GLOBAL-FUN ; ==> ; SB!C::THING ; ; note: deleting unreachable code ; (SB!C::WITH-FUN-NAME-LEAF (SB!C::LEAF SB!C::THING SB!C::START ; :GLOBAL-FUNCTION T) ; (SB!C::IR1-CONVERT SB!C::START SB!C::NEXT SB!C::RESULT ; (SB!INT:QUASIQUOTE ; (#S(SB!IMPL::COMMA :EXPR SB!C::LEAF :KIND 0) ; #S(SB!IMPL::COMMA :EXPR SB!C::ARGS :KIND 2))))) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF SB!C::FUN-NAME-LEAF ; ==> ; SB!C::THING ; ; note: deleting unreachable code ; (SB!C::IR1-CONVERT SB!C::START SB!C::NEXT SB!C::RESULT ; (SB!INT:QUASIQUOTE ; (#S(SB!IMPL::COMMA :EXPR SB!C::LEAF :KIND 0) ; #S(SB!IMPL::COMMA :EXPR SB!C::ARGS :KIND 2)))) ; ==> ; SB!C::START ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; x-compiling (DEFINE-SOURCE-TRANSFORM FUNCALL ...) ; x-compiling (DEFTRANSFORM %COERCE-CALLABLE-TO-FUN ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM %COERCE-CALLABLE-TO-FUN ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN EXTRACT-LET-VARS ...) ; x-compiling (DEF-IR1-TRANSLATOR LET ...) ; x-compiling (DEF-IR1-TRANSLATOR LET* ...) ; x-compiling (DEFUN IR1-TRANSLATE-LOCALLY ...) ; x-compiling (DEF-IR1-TRANSLATOR LOCALLY ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN EXTRACT-FLET-VARS ...) ; x-compiling (DEFUN IR1-CONVERT-FBINDINGS ...) ; x-compiling (DEF-IR1-TRANSLATOR FLET ...) ; x-compiling (DEF-IR1-TRANSLATOR LABELS ...) ; x-compiling (DEFUN THE-IN-POLICY ...) ; x-compiling (DEF-IR1-TRANSLATOR THE ...) ; x-compiling (DEF-IR1-TRANSLATOR TRULY-THE ...) ; x-compiling (SETF (INFO :FUNCTION ...) ...) ; x-compiling (DEF-IR1-TRANSLATOR SETQ ...) ; x-compiling (DEFUN SETQ-VAR ...) ; x-compiling (DEF-IR1-TRANSLATOR THROW ...) ; x-compiling (DEF-IR1-TRANSLATOR %WITHIN-CLEANUP ...) ; x-compiling (DEF-IR1-TRANSLATOR %ESCAPE-FUN ...) ; x-compiling (DEF-IR1-TRANSLATOR %CLEANUP-FUN ...) ; x-compiling (DEF-IR1-TRANSLATOR CATCH ...) ; x-compiling (DEF-IR1-TRANSLATOR UNWIND-PROTECT ...) ; x-compiling (DEF-IR1-TRANSLATOR MULTIPLE-VALUE-CALL ...) ; x-compiling (DEF-IR1-TRANSLATOR MULTIPLE-VALUE-PROG1 ...) ; x-compiling (DEFUN REVERT-SOURCE-PATH ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir1-translators.lisp ; in: DEF-IR1-TRANSLATOR IF ; (SB!C:DEF-IR1-TRANSLATOR IF ; ((SB!C::TEST SB!C::THEN &OPTIONAL SB!C::ELSE) SB!C::START SB!C::NEXT ; SB!C::RESULT) ; "IF predicate then [else] ; ; If PREDICATE evaluates to true, evaluate THEN and return its values, ; otherwise evaluate ELSE and return its values. ELSE defaults to NIL." ; (LET* ((SB!C::PRED-CTRAN (SB!C::MAKE-CTRAN)) ; (SB!C::PRED-LVAR (SB!C::MAKE-LVAR)) ; (SB!C::THEN-CTRAN (SB!C::MAKE-CTRAN)) ; (SB!C::THEN-BLOCK (SB!C::CTRAN-STARTS-BLOCK SB!C::THEN-CTRAN)) ; (SB!C::ELSE-CTRAN (SB!C::MAKE-CTRAN)) ; (SB!C::ELSE-BLOCK (SB!C::CTRAN-STARTS-BLOCK SB!C::ELSE-CTRAN)) ; (SB!C::MAYBE-INSTRUMENT SB!C::*INSTRUMENT-IF-FOR-CODE-COVERAGE*) ; (SB!C::*INSTRUMENT-IF-FOR-CODE-COVERAGE* T) ; (SB!C::NODE ; (SB!C::MAKE-IF :TEST SB!C::PRED-LVAR :CONSEQUENT SB!C::THEN-BLOCK ; :ALTERNATIVE SB!C::ELSE-BLOCK))) ; (SETF (SB!C::LVAR-DEST SB!C::PRED-LVAR) SB!C::NODE) ; (MULTIPLE-VALUE-BIND (SB!C::CONTEXT COUNT) ; (SB!C::POSSIBLE-REST-ARG-CONTEXT SB!C::TEST) ; (IF SB!C::CONTEXT ; (SB!C::IR1-CONVERT SB!C::START SB!C::PRED-CTRAN SB!C::PRED-LVAR #) ; (SB!C::IR1-CONVERT SB!C::START SB!C::PRED-CTRAN SB!C::PRED-LVAR ; SB!C::TEST))) ; (SB!C::LINK-NODE-TO-PREVIOUS-CTRAN SB!C::NODE SB!C::PRED-CTRAN) ; (LET ((SB!C::START-BLOCK #)) ; (SETF # SB!C::NODE) ; (SB!C::CTRAN-STARTS-BLOCK SB!C::NEXT) ; (SB!C::LINK-BLOCKS SB!C::START-BLOCK SB!C::THEN-BLOCK) ; (SB!C::LINK-BLOCKS SB!C::START-BLOCK SB!C::ELSE-BLOCK)) ; (LET ((SB!C::PATH #)) ; (SB!C::IR1-CONVERT ; (IF # ; # ; SB!C::THEN-CTRAN) ; SB!C::NEXT SB!C::RESULT SB!C::THEN) ; (SB!C::IR1-CONVERT ; (IF # ; # ; SB!C::ELSE-CTRAN) ; SB!C::NEXT SB!C::RESULT SB!C::ELSE)))) ; --> PROGN LET LET SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!C::ARGS) {DE062A1}> ; NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; (MULTIPLE-VALUE-BIND (SB!C::CONTEXT COUNT) ; (SB!C::POSSIBLE-REST-ARG-CONTEXT SB!C::TEST) ; (IF SB!C::CONTEXT ; (SB!C::IR1-CONVERT SB!C::START SB!C::PRED-CTRAN SB!C::PRED-LVAR ; (SB!INT:QUASIQUOTE (SB!C::%REST-TRUE # # #))) ; (SB!C::IR1-CONVERT SB!C::START SB!C::PRED-CTRAN SB!C::PRED-LVAR ; SB!C::TEST))) ; --> MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!C::CONTEXT COUNT #:G30) {DD1AE51}> ; SB!C::CONTEXT COUNT NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEF-IR1-TRANSLATOR PROGN ; (SB!C:DEF-IR1-TRANSLATOR PROGN ; ((&REST SB!C::FORMS) SB!C::START SB!C::NEXT SB!C::RESULT) ; "PROGN form* ; ; Evaluates each FORM in order, returning the values of the last form. With no ; forms, returns NIL." ; (SB!C::IR1-CONVERT-PROGN-BODY SB!C::START SB!C::NEXT SB!C::RESULT ; SB!C::FORMS)) ; --> PROGN LET LET SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!C::ARGS) {DCBA019}> ; NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 133 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir1-translators.lisp ; in: DEFUN EVAL-INFO-ARGS ; (MAPCAR #'EVAL SB!C::ARGS) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN %FUNCALL-IN-FOOMACROLET-LEXENV ; (MAPCAR SB!C::DEFINITIONIZE-FUN SB!C::DEFINITIONS) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN PARSE-TAGBODY ; (MAPCAR #'CONS (CONS NIL (SB!C::TAGS)) (SB!C::SEGMENTS)) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; ; caught STYLE-WARNING: ; 4 more uses of undefined type COMPILER-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir1-translators.lisp ; in: DEFUN THE-IN-POLICY ; (SB!C::COMPILER-VALUES-SPECIFIER-TYPE TYPE) ; ; caught STYLE-WARNING: ; undefined function: COMPILER-VALUES-SPECIFIER-TYPE ; in: DEFUN LVAR-CONSTANT-GLOBAL-FUN-NAME ; (SB!C::CONSTANT-LVAR-P SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: CONSTANT-LVAR-P ; in: DEF-IR1-TRANSLATOR RETURN-FROM ; (SB!C::CTRAN-DELETED-P SB!C::EXIT-CTRAN) ; ; caught STYLE-WARNING: ; undefined function: CTRAN-DELETED-P ; in: DEF-IR1-TRANSLATOR SETQ ; (SB!C::CTRAN-HOME-LAMBDA-OR-NULL SB!C::START) ; ; caught STYLE-WARNING: ; undefined function: CTRAN-HOME-LAMBDA-OR-NULL ; in: DEF-IR1-TRANSLATOR GO ; (SB!C::CTRAN-HOME-LAMBDA-OR-NULL SB!C::START) ; ; caught STYLE-WARNING: ; undefined function: CTRAN-HOME-LAMBDA-OR-NULL ; in: DEF-IR1-TRANSLATOR RETURN-FROM ; (SB!C::CTRAN-HOME-LAMBDA-OR-NULL SB!C::START) ; ; caught STYLE-WARNING: ; undefined function: CTRAN-HOME-LAMBDA-OR-NULL ; (SB!C::CTRAN-STARTS-BLOCK SB!C::NEXT) ; ; caught STYLE-WARNING: ; undefined function: CTRAN-STARTS-BLOCK ; in: DEF-IR1-TRANSLATOR BLOCK ; (SB!C::CTRAN-STARTS-BLOCK SB!C::NEXT) ; ; caught STYLE-WARNING: ; undefined function: CTRAN-STARTS-BLOCK ; in: DEF-IR1-TRANSLATOR IF ; (SB!C::CTRAN-STARTS-BLOCK SB!C::NEXT) ; ; caught STYLE-WARNING: ; undefined function: CTRAN-STARTS-BLOCK ; ; caught STYLE-WARNING: ; 4 more uses of undefined function CTRAN-STARTS-BLOCK ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir1-translators.lisp ; in: DEFTRANSFORM %COERCE-CALLABLE-TO-FUN ; (SB!C:DEFTRANSFORM SB!KERNEL:%COERCE-CALLABLE-TO-FUN ; ((SB!C::THING) * * :NODE SB!C::NODE) ; "optimize away possible call to FDEFINITION at runtime" ; (SB!C::ENSURE-LVAR-FUN-FORM SB!C::THING 'SB!C::THING T)) ; --> SB!C::%DEFTRANSFORM SB!C::%DEFTRANSFORM LAMBDA FUNCTION UNLESS IF PROGN ; ==> ; (SB!C::GIVE-UP-IR1-TRANSFORM) ; ; caught STYLE-WARNING: ; undefined function: GIVE-UP-IR1-TRANSFORM ; in: DEFTRANSFORM FUNCALL ; (SB!C:DEFTRANSFORM FUNCALL ; ((FUNCTION &REST SB!C::ARGS) * *) ; (LET ((SB!C::ARG-NAMES (SB!INT:MAKE-GENSYM-LIST #))) ; (SB!INT:QUASIQUOTE ; (LAMBDA (FUNCTION #) (DECLARE #) (SB!INT:QUASIQUOTE #))))) ; --> SB!C::%DEFTRANSFORM SB!C::%DEFTRANSFORM LAMBDA FUNCTION UNLESS IF PROGN ; ==> ; (SB!C::GIVE-UP-IR1-TRANSFORM) ; ; caught STYLE-WARNING: ; undefined function: GIVE-UP-IR1-TRANSFORM ; in: DEFUN ENSURE-LVAR-FUN-FORM ; (SB!C::GIVE-UP-IR1-TRANSFORM "not known to be a function") ; ; caught STYLE-WARNING: ; undefined function: GIVE-UP-IR1-TRANSFORM ; in: DEF-IR1-TRANSLATOR IF ; (SB!C::LINK-BLOCKS SB!C::START-BLOCK SB!C::THEN-BLOCK) ; ; caught STYLE-WARNING: ; undefined function: LINK-BLOCKS ; in: DEFUN ENSURE-LVAR-FUN-FORM ; (SB!C::LVAR-TYPE SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: LVAR-TYPE ; in: DEFUN LVAR-CONSTANT-GLOBAL-FUN-NAME ; (SB!C::LVAR-VALUE SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: LVAR-VALUE ; in: DEFUN THE-IN-POLICY ; (SB!C::MAKE-CAST SB!C::VALUE-LVAR TYPE SB!C:POLICY) ; ; caught STYLE-WARNING: ; undefined function: MAKE-CAST ; in: DEFUN %FUNCALL-IN-FOOMACROLET-LEXENV ; (SB!C::MAKE-LEXENV SB!C::DEFINITIONIZE-KEYWORD SB!C::PROCESSED-DEFINITIONS) ; ; caught STYLE-WARNING: ; undefined function: MAKE-LEXENV ; in: DEF-IR1-TRANSLATOR TAGBODY ; (SB!C::MAKE-LEXENV :CLEANUP SB!C::CLEANUP :TAGS (SB!C::TAGS)) ; ; caught STYLE-WARNING: ; undefined function: MAKE-LEXENV ; in: DEF-IR1-TRANSLATOR BLOCK ; (SB!C::MAKE-LEXENV :BLOCKS (LIST (CONS SB!C::NAME SB!C::ENV-ENTRY)) :CLEANUP ; SB!C::CLEANUP) ; ; caught STYLE-WARNING: ; undefined function: MAKE-LEXENV ; ; caught STYLE-WARNING: ; 4 more uses of undefined function MAKE-LEXENV ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir1-translators.lisp ; in: DEFUN FUNCALL-IN-MACROLET-LEXENV ; (SB!C::MAKE-RESTRICTED-LEXENV SB!C:*LEXENV*) ; ; caught STYLE-WARNING: ; undefined function: MAKE-RESTRICTED-LEXENV ; in: DEFUN IR1-CONVERT-FBINDINGS ; (SB!C::NODE-DEST (SB!C::CTRAN-NEXT SB!C::START)) ; ; caught STYLE-WARNING: ; undefined function: NODE-DEST ; in: DEF-IR1-TRANSLATOR %%ALLOCATE-CLOSURES ; (SB!C::NODE-DEST (SB!C::CTRAN-NEXT SB!C::START)) ; ; caught STYLE-WARNING: ; undefined function: NODE-DEST ; in: DEF-IR1-TRANSLATOR IF ; (SB!C::POSSIBLE-REST-ARG-CONTEXT SB!C::TEST) ; ; caught STYLE-WARNING: ; undefined function: POSSIBLE-REST-ARG-CONTEXT ; in: DEF-IR1-TRANSLATOR TAGBODY ; (SB!C::START-BLOCK SB!C::START) ; ; caught STYLE-WARNING: ; undefined function: START-BLOCK ; in: DEF-IR1-TRANSLATOR BLOCK ; (SB!C::START-BLOCK SB!C::START) ; ; caught STYLE-WARNING: ; undefined function: START-BLOCK ; in: DEF-IR1-TRANSLATOR LABELS ; (SB!C::SUBSTITUTE-LEAF SB!C::REAL-FUN (CDR SB!C::PLACEHOLDER-CONS)) ; ; caught STYLE-WARNING: ; undefined function: SUBSTITUTE-LEAF ; ; compilation unit finished ; Undefined types: ; CODE-DELETION-NOTE COMPILER-NOTE ; Undefined functions: ; COMPILER-VALUES-SPECIFIER-TYPE CONSTANT-LVAR-P CTRAN-DELETED-P CTRAN-HOME-LAMBDA-OR-NULL CTRAN-STARTS-BLOCK GIVE-UP-IR1-TRANSFORM LINK-BLOCKS LVAR-TYPE LVAR-VALUE MAKE-CAST MAKE-LEXENV MAKE-RESTRICTED-LEXENV NODE-DEST POSSIBLE-REST-ARG-CONTEXT START-BLOCK SUBSTITUTE-LEAF ; caught 36 STYLE-WARNING conditions ; printed 7 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/ir1-translators.lisp-obj-tmp written ; compilation finished in 0:00:00.885 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir1util.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFUN NODE-ENCLOSING-CLEANUP ...) ; x-compiling (DEFUN MAP-NESTED-CLEANUPS ...) ; x-compiling (DEFUN INSERT-CLEANUP-CODE ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN FIND-USES ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN PRINCIPAL-LVAR ...) ; x-compiling (DEFUN PRINCIPAL-LVAR-USE ...) ; x-compiling (DEFUN PRINCIPAL-LVAR-DEST ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN %DELETE-LVAR-USE ...) ; x-compiling (DEFUN DELETE-LVAR-USE ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN ADD-LVAR-USE ...) ; x-compiling (DEFUN IMMEDIATELY-USED-P ...) ; x-compiling (DEFUN COMBINATION-DEFINED-TYPE ...) ; x-compiling (DEFUN ALMOST-IMMEDIATELY-USED-P ...) ; x-compiling (DEFUN SUBSTITUTE-LVAR ...) ; x-compiling (DEFUN SUBSTITUTE-LVAR-USES ...) ; x-compiling (DEFUN CTRAN-STARTS-BLOCK ...) ; x-compiling (DEFUN ENSURE-BLOCK-START ...) ; x-compiling (DEFUN START-BLOCK ...) ; x-compiling (DEFUN FILTER-LVAR ...) ; x-compiling (DEFUN DELETE-FILTER ...) ; x-compiling (DEFUN INSERT-CAST-BEFORE ...) ; x-compiling (DEFUN NODE-HOME-LAMBDA ...) ; x-compiling (DECLAIM (INLINE NODE-BLOCK)) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir1util.lisp ; in: DECLAIM (INLINE NODE-BLOCK) ; (DECLAIM (INLINE SB!C::NODE-BLOCK)) ; --> EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE SB!C::NODE-BLOCK)) ; ; caught STYLE-WARNING: ; Proclaiming SB!C::NODE-BLOCK to be INLINE, but 6 calls to it were previously ; compiled. A declaration of NOTINLINE at the call sites will eliminate this ; warning, as will proclaiming and defining the function before its first ; potential use. ; x-compiling (DEFUN NODE-BLOCK ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN NODE-COMPONENT ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN NODE-PHYSENV ...) ; x-compiling (DECLAIM (INLINE NODE-DEST)) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir1util.lisp ; in: DECLAIM (INLINE NODE-DEST) ; (DECLAIM (INLINE SB!C::NODE-DEST)) ; --> EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE SB!C::NODE-DEST)) ; ; caught STYLE-WARNING: ; Proclaiming SB!C::NODE-DEST to be INLINE, but 3 calls to it were previously ; compiled. A declaration of NOTINLINE at the call sites will eliminate this ; warning, as will proclaiming and defining the function before its first ; potential use. ; x-compiling (DEFUN NODE-DEST ...) ; x-compiling (DECLAIM (INLINE NODE-STACK-ALLOCATE-P)) ; x-compiling (DEFUN NODE-STACK-ALLOCATE-P ...) ; x-compiling (DEFUN FLUSHABLE-COMBINATION-P ...) ; x-compiling (DEFUN LAMBDA-VAR-ORIGINAL-NAME ...) ; x-compiling (DEFUN NOTE-NO-STACK-ALLOCATION ...) ; x-compiling (DEFUN USE-GOOD-FOR-DX-P ...) ; x-compiling (DEFUN LVAR-GOOD-FOR-DX-P ...) ; x-compiling (DEFUN KNOWN-DX-COMBINATION-P ...) ; x-compiling (DEFUN DX-COMBINATION-P ...) ; x-compiling (DEFUN COMBINATION-ARGS-FLOW-CLEANLY-P ...) ; x-compiling (DEFUN REF-GOOD-FOR-DX-P ...) ; x-compiling (DEFUN TRIVIAL-LAMBDA-VAR-REF-P ...) ; x-compiling (DEFUN TRIVIAL-LAMBDA-VAR-REF-LVAR ...) ; x-compiling (DEFUN HANDLE-NESTED-DYNAMIC-EXTENT-LVARS ...) ; x-compiling (DECLAIM (INLINE BLOCK-TO-BE-DELETED-P)) ; x-compiling (DEFUN BLOCK-TO-BE-DELETED-P ...) ; x-compiling (DECLAIM (INLINE NODE-TO-BE-DELETED-P)) ; x-compiling (DEFUN NODE-TO-BE-DELETED-P ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN LAMBDA-BLOCK ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN LAMBDA-COMPONENT ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN BLOCK-START-NODE ...) ; x-compiling (DEFUN BLOCK-START-CLEANUP ...) ; x-compiling (DEFUN BLOCK-END-CLEANUP ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN BLOCK-HOME-LAMBDA-OR-NULL ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN BLOCK-HOME-LAMBDA ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN BLOCK-PHYSENV ...) ; x-compiling (DEFUN SOURCE-PATH-TLF-NUMBER ...) ; x-compiling (DEFUN SOURCE-PATH-ORIGINAL-SOURCE ...) ; x-compiling (DEFUN SOURCE-PATH-FORM-NUMBER ...) ; x-compiling (DEFUN SOURCE-PATH-FORMS ...) ; x-compiling (DEFUN TREE-SOME ...) ; x-compiling (DEFUN NODE-SOURCE-FORM ...) ; x-compiling (DEFUN LVAR-SOURCE ...) ; x-compiling (DEFUN COMMON-SUFFIX ...) ; x-compiling (DEFUN LVAR-ALL-SOURCES ...) ; x-compiling (DECLAIM (INLINE LVAR-USE)) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir1util.lisp ; in: DECLAIM (INLINE LVAR-USE) ; (DECLAIM (INLINE SB!C::LVAR-USE)) ; --> EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE SB!C::LVAR-USE)) ; ; caught STYLE-WARNING: ; Proclaiming SB!C::LVAR-USE to be INLINE, but 3 calls to it were previously ; compiled. A declaration of NOTINLINE at the call sites will eliminate this ; warning, as will proclaiming and defining the function before its first ; potential use. ; x-compiling (DEFUN LVAR-USE ...) ; x-compiling (DECLAIM (INLINE LVAR-HAS-SINGLE-USE-P)) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir1util.lisp ; in: DECLAIM (INLINE LVAR-HAS-SINGLE-USE-P) ; (DECLAIM (INLINE SB!C::LVAR-HAS-SINGLE-USE-P)) ; --> EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE SB!C::LVAR-HAS-SINGLE-USE-P)) ; ; caught STYLE-WARNING: ; Proclaiming SB!C::LVAR-HAS-SINGLE-USE-P to be INLINE, but 1 call to it was ; previously compiled. A declaration of NOTINLINE at the call site will eliminate ; this warning, as will proclaiming and defining the function before its first ; potential use. ; x-compiling (DEFUN LVAR-HAS-SINGLE-USE-P ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN CTRAN-HOME-LAMBDA-OR-NULL ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN CTRAN-HOME-LAMBDA ...) ; x-compiling (DECLAIM (INLINE CAST-SINGLE-VALUE-P)) ; x-compiling (DEFUN CAST-SINGLE-VALUE-P ...) ; x-compiling (DECLAIM (INLINE LVAR-SINGLE-VALUE-P)) ; x-compiling (DEFUN LVAR-SINGLE-VALUE-P ...) ; x-compiling (DEFUN PRINCIPAL-LVAR-END ...) ; x-compiling (DEFUN PRINCIPAL-LVAR-SINGLE-VALUIFY ...) ; x-compiling (DEFUN MAKE-LEXENV ...) ; x-compiling (DEFUN MAKE-RESTRICTED-LEXENV ...) ; x-compiling (DEFUN LINK-BLOCKS ...) ; x-compiling (DEFUN %LINK-BLOCKS ...) ; x-compiling (DEFUN UNLINK-BLOCKS ...) ; x-compiling (DEFUN CHANGE-BLOCK-SUCCESSOR ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN REMOVE-FROM-DFO ...) ; x-compiling (DEFUN ADD-TO-DFO ...) ; x-compiling (DEFUN MAP-BLOCK-NLXES ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN CLEAR-FLAGS ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN MAKE-EMPTY-COMPONENT ...) ; x-compiling (DEFUN NODE-ENDS-BLOCK ...) ; x-compiling (DEFUN DELETE-LAMBDA-VAR ...) ; x-compiling (DEFUN REOPTIMIZE-LAMBDA-VAR ...) ; x-compiling (DEFUN DELETE-FUNCTIONAL ...) ; x-compiling (DEFUN DELETE-LAMBDA ...) ; x-compiling (DEFUN DELETE-OPTIONAL-DISPATCH ...) ; x-compiling (DEFUN NOTE-LOCAL-FUNCTIONAL ...) ; x-compiling (DEFUN DEFINED-FUN-FUNCTIONAL ...) ; x-compiling (DEFUN DELETE-REF ...) ; x-compiling (DEFUN FLUSH-NODE ...) ; x-compiling (DEFUN FLUSH-DEST ...) ; x-compiling (DEFUN DELETE-DEST ...) ; x-compiling (DEFUN DELETE-BLOCK-LAZILY ...) ; x-compiling (DEFUN MARK-FOR-DELETION ...) ; x-compiling (DEFUN DELETE-BLOCK ...) ; x-compiling (DEFUN DELETE-RETURN ...) ; x-compiling (DEFUN NOTE-UNREFERENCED-VARS ...) ; x-compiling (DEFUN NOTE-UNREFERENCED-FUN-VARS ...) ; x-compiling (DEFVAR *DELETION-IGNORED-OBJECTS* ...) ; x-compiling (DEFUN PRESENT-IN-FORM ...) ; x-compiling (DEFUN NOTE-BLOCK-DELETION ...) ; x-compiling (DEFUN UNLINK-NODE ...) ; x-compiling (DEFUN CTRAN-DELETED-P ...) ; x-compiling (DEFUN NODE-DELETED ...) ; x-compiling (DEFUN DELETE-COMPONENT ...) ; x-compiling (DEFUN CLEAN-COMPONENT ...) ; x-compiling (DEFUN SPLICE-FUN-ARGS ...) ; x-compiling (DEFUN ELIMINATE-KEYWORD-ARGS ...) ; x-compiling (DEFUN EXTRACT-FUN-ARGS ...) ; x-compiling (DEFUN FLUSH-COMBINATION ...) ; x-compiling (DEFUN CHANGE-REF-LEAF ...) ; x-compiling (DEFUN SUBSTITUTE-LEAF ...) ; x-compiling (DEFUN SUBSTITUTE-LEAF-IF ...) ; x-compiling (DEFUN FIND-CONSTANT ...) ; x-compiling (DEFUN CLOSURE-VAR-P ...) ; x-compiling (DEFUN FIND-NLX-INFO ...) ; x-compiling (DEFUN NLX-INFO-LVAR ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN MAIN-ENTRY ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN LOOKS-LIKE-AN-MV-BIND ...) ; x-compiling (DEFUN XEP-P ...) ; x-compiling (DEFUN LVAR-FUN-NAME ...) ; x-compiling (DEFUN LVAR-FUN-DEBUG-NAME ...) ; x-compiling (DEFUN COMBINATION-FUN-SOURCE-NAME ...) ; x-compiling (DEFUN COMBINATION-FUN-DEBUG-NAME ...) ; x-compiling (DEFUN LET-COMBINATION ...) ; x-compiling (DEFUN LET-VAR-INITIAL-VALUE ...) ; x-compiling (DEFUN COMBINATION-LAMBDA ...) ; x-compiling (DEFVAR *INLINE-EXPANSION-LIMIT* ...) ; x-compiling (DEFUN INLINE-EXPANSION-OK ...) ; x-compiling (DEFUN ASSURE-FUNCTIONAL-LIVE-P ...) ; x-compiling (DEFUN ASSURE-LEAF-LIVE-P ...) ; x-compiling (DEFUN CALL-FULL-LIKE-P ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN CAREFUL-CALL ...) ; x-compiling (DEFFROB SPECIFIER-TYPE ...) ; x-compiling (DEFFROB VALUES-SPECIFIER-TYPE ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN FIND-KEYWORD-LVAR ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN CHECK-KEY-ARGS-CONSTANT ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN CHECK-TRANSFORM-KEYS ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN %EVENT ...) ; x-compiling (DEFUN MAKE-CAST ...) ; x-compiling (DEFUN CAST-TYPE-CHECK ...) ; x-compiling (DEFUN NOTE-SINGLE-VALUIFIED-LVAR ...) ; x-compiling (DEFUN LVAR-FUN-IS ...) ; x-compiling (DEFUN LVAR-MATCHES ...) ; x-compiling (DEFUN OPTIONAL-REST-P ...) ; x-compiling (DEFUN PRESERVE-SINGLE-USE-DEBUG-VAR-P ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir1util.lisp ; in: DEFFROB VALUES-SPECIFIER-TYPE ; (SB!C::DEFFROB SB!KERNEL:VALUES-SPECIFIER-TYPE ; SB!C::CAREFUL-VALUES-SPECIFIER-TYPE SB!C::COMPILER-VALUES-SPECIFIER-TYPE ; SB!C::IR1-TRANSFORM-VALUES-SPECIFIER-TYPE) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK HANDLER-CASE SB!INT:DX-FLET FLET BLOCK SB!INT:DX-LET LET ; --> TAGBODY SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK ; ==> ; (TYPEP CONDITION 'SB!KERNEL::ARG-COUNT-ERROR) ; ; caught STYLE-WARNING: ; undefined type: SB!KERNEL::ARG-COUNT-ERROR ; in: DEFFROB SPECIFIER-TYPE ; (SB!C::DEFFROB SB!KERNEL:SPECIFIER-TYPE SB!C::CAREFUL-SPECIFIER-TYPE ; SB!C::COMPILER-SPECIFIER-TYPE SB!C::IR1-TRANSFORM-SPECIFIER-TYPE) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK HANDLER-CASE SB!INT:DX-FLET FLET BLOCK SB!INT:DX-LET LET ; --> TAGBODY SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK ; ==> ; (TYPEP CONDITION 'SB!KERNEL::ARG-COUNT-ERROR) ; ; caught STYLE-WARNING: ; undefined type: SB!KERNEL::ARG-COUNT-ERROR ; in: DEFUN INSERT-CLEANUP-CODE ; (DEFUN SB!C::INSERT-CLEANUP-CODE ; (SB!C::BLOCK1 SB!C::BLOCK2 SB!C::NODE SB!KERNEL:FORM ; &OPTIONAL SB!C::CLEANUP) ; (DECLARE (TYPE SB!C::CBLOCK SB!C::BLOCK1 SB!C::BLOCK2) ; (TYPE SB!C::NODE SB!C::NODE) ; (TYPE (OR SB!C::CLEANUP NULL) SB!C::CLEANUP)) ; (SETF (SB!C::COMPONENT-REANALYZE (SB!C::BLOCK-COMPONENT SB!C::BLOCK1)) T) ; (SB!C::WITH-IR1-ENVIRONMENT-FROM-NODE SB!C::NODE ; (SB!C::WITH-COMPONENT-LAST-BLOCK (SB!C::*CURRENT-COMPONENT* ; (SB!C::BLOCK-NEXT ; #)) ; (LET* (# # # #) ; (SB!C::CHANGE-BLOCK-SUCCESSOR ; SB!C::BLOCK1 SB!C::BLOCK2 BLOCK) ; (SB!C::LINK-BLOCKS BLOCK ; SB!C::BLOCK2) ; (SB!C::IR1-CONVERT SB!C::START ; SB!C::NEXT NIL ; SB!KERNEL:FORM) ; (SETF #) ; (SETF #) ; BLOCK)))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (SB!C::BLOCK1 SB!C::BLOCK2 SB!C::NODE SB!KERNEL:FORM SB!C::CLEANUP) ; {D9C7921}> ; SB!C::BLOCK1 SB!C::BLOCK2 SB!C::NODE SB!KERNEL:FORM 'NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; (SB!C::WITH-COMPONENT-LAST-BLOCK (SB!C::*CURRENT-COMPONENT* ; (SB!C::BLOCK-NEXT ; (SB!C::COMPONENT-HEAD ; SB!C::*CURRENT-COMPONENT*))) ; (LET* ((SB!C::START (SB!C::MAKE-CTRAN)) ; (BLOCK (SB!C::CTRAN-STARTS-BLOCK SB!C::START)) ; (SB!C::NEXT (SB!C::MAKE-CTRAN)) ; (SB!C:*LEXENV* ; (IF SB!C::CLEANUP ; # ; SB!C:*LEXENV*))) ; (SB!C::CHANGE-BLOCK-SUCCESSOR SB!C::BLOCK1 SB!C::BLOCK2 BLOCK) ; (SB!C::LINK-BLOCKS BLOCK SB!C::BLOCK2) ; (SB!C::IR1-CONVERT SB!C::START SB!C::NEXT NIL SB!KERNEL:FORM) ; (SETF (SB!C::BLOCK-LAST BLOCK) (SB!C::CTRAN-USE SB!C::NEXT)) ; (SETF (SB!C::NODE-NEXT #) NIL) ; BLOCK)) ; --> LET LET LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (#:NEXT20 #:START21 #:COUNT22 #:G26) {D9D4851}> ; #:NEXT20 #:START21 #:COUNT22 NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; in: DEFUN MAP-NESTED-CLEANUPS ; (DEFUN SB!C::MAP-NESTED-CLEANUPS ; (FUNCTION BLOCK &OPTIONAL SB!C::RETURN-VALUE) ; (DECLARE (TYPE SB!C::CBLOCK BLOCK)) ; (DO ((SB!C::CLEANUP (SB!C::BLOCK-END-CLEANUP BLOCK) ; (SB!C::NODE-ENCLOSING-CLEANUP #))) ; ((NOT SB!C::CLEANUP) SB!C::RETURN-VALUE) ; (FUNCALL FUNCTION SB!C::CLEANUP))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (LOCALLY ; (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:CODE-DELETION-NOTE)) ; (SB!C::%FUNCALL ; # ; :WHERE-FROM :DEFINED ; :VARS (FUNCTION BLOCK SB!C::RETURN-VALUE) {D5CC309}> ; FUNCTION BLOCK 'NIL)) ; ; caught STYLE-WARNING: ; undefined type: CODE-DELETION-NOTE ; ; caught STYLE-WARNING: ; 84 more uses of undefined type CODE-DELETION-NOTE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir1util.lisp ; in: DEFUN LVAR-FUN-DEBUG-NAME ; (MAPCAR #'SB!C::NAME1 SB!C::USES) ; --> LET LET ; ==> ; (LOCALLY (DECLARE (SB!EXT:MUFFLE-CONDITIONS SB!EXT:COMPILER-NOTE)) (LIST NIL)) ; ; caught STYLE-WARNING: ; undefined type: COMPILER-NOTE ; in: DEFUN CHECK-KEY-ARGS-CONSTANT ; (SB!C::CONSTANT-LVAR-P (FIRST SB!C::ARG)) ; ; caught STYLE-WARNING: ; undefined function: CONSTANT-LVAR-P ; in: DEFUN ELIMINATE-KEYWORD-ARGS ; (SB!C::CONSTANT-LVAR-P SB!C::KEY) ; ; caught STYLE-WARNING: ; undefined function: CONSTANT-LVAR-P ; in: DEFUN CHANGE-REF-LEAF ; (SB!C::DERIVE-NODE-TYPE SB!C::REF SB!C::VLTYPE :FROM-SCRATCH SB!C::RECKLESSLY) ; ; caught STYLE-WARNING: ; undefined function: DERIVE-NODE-TYPE ; in: DEFUN LVAR-ALL-SOURCES ; (SB!C::FIND-ORIGINAL-SOURCE SB!C::PATH) ; ; caught STYLE-WARNING: ; undefined function: FIND-ORIGINAL-SOURCE ; in: DEFUN NODE-SOURCE-FORM ; (SB!C::FIND-ORIGINAL-SOURCE SB!C::PATH) ; ; caught STYLE-WARNING: ; undefined function: FIND-ORIGINAL-SOURCE ; in: DEFUN NOTE-NO-STACK-ALLOCATION ; (SB!C::FIND-ORIGINAL-SOURCE (SB!C::NODE-SOURCE-PATH SB!C::USE)) ; ; caught STYLE-WARNING: ; undefined function: FIND-ORIGINAL-SOURCE ; ; caught STYLE-WARNING: ; 1 more use of undefined function FIND-ORIGINAL-SOURCE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir1util.lisp ; in: DEFUN SPLICE-FUN-ARGS ; (SB!C::FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE SB!C::ARG) ; ; caught STYLE-WARNING: ; undefined function: FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE ; in: DEFUN FLUSH-DEST ; (SB!C::FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE ; in: DEFUN SUBSTITUTE-LVAR ; (SB!C::FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE SB!C::NEW) ; ; caught STYLE-WARNING: ; undefined function: FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE ; in: DEFUN EXTRACT-FUN-ARGS ; (SB!C::GIVE-UP-IR1-TRANSFORM) ; ; caught STYLE-WARNING: ; undefined function: GIVE-UP-IR1-TRANSFORM ; in: DEFUN ELIMINATE-KEYWORD-ARGS ; (SB!C::GIVE-UP-IR1-TRANSFORM) ; ; caught STYLE-WARNING: ; undefined function: GIVE-UP-IR1-TRANSFORM ; in: DEFUN SPLICE-FUN-ARGS ; (SB!C::GIVE-UP-IR1-TRANSFORM) ; ; caught STYLE-WARNING: ; undefined function: GIVE-UP-IR1-TRANSFORM ; ; caught STYLE-WARNING: ; 2 more uses of undefined function GIVE-UP-IR1-TRANSFORM ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir1util.lisp ; in: DEFUN CAST-TYPE-CHECK ; (SB!C::IR1-OPTIMIZE-CAST SB!ALIEN:CAST T) ; ; caught STYLE-WARNING: ; undefined function: IR1-OPTIMIZE-CAST ; in: DEFUN FILTER-LVAR ; (SB!C::LOCALL-ANALYZE-COMPONENT SB!C::*CURRENT-COMPONENT*) ; ; caught STYLE-WARNING: ; undefined function: LOCALL-ANALYZE-COMPONENT ; in: DEFUN CHECK-TRANSFORM-KEYS ; (SB!C::LVAR-VALUE (FIRST SB!C::ARG)) ; ; caught STYLE-WARNING: ; undefined function: LVAR-VALUE ; in: DEFUN FIND-KEYWORD-LVAR ; (SB!C::LVAR-VALUE (FIRST SB!C::ARG)) ; ; caught STYLE-WARNING: ; undefined function: LVAR-VALUE ; in: DEFUN ELIMINATE-KEYWORD-ARGS ; (SB!C::LVAR-VALUE SB!C::KEY) ; ; caught STYLE-WARNING: ; undefined function: LVAR-VALUE ; in: DEFUN DELETE-REF ; (SB!C::MAYBE-CONVERT-TO-ASSIGNMENT SB!C::LEAF) ; ; caught STYLE-WARNING: ; undefined function: MAYBE-CONVERT-TO-ASSIGNMENT ; in: DEFUN DELETE-OPTIONAL-DISPATCH ; (SB!C::MAYBE-CONVERT-TO-ASSIGNMENT SB!C::FUN) ; ; caught STYLE-WARNING: ; undefined function: MAYBE-CONVERT-TO-ASSIGNMENT ; in: DEFUN DELETE-REF ; (SB!C::MAYBE-LET-CONVERT SB!C::LEAF) ; ; caught STYLE-WARNING: ; undefined function: MAYBE-LET-CONVERT ; in: DEFUN DELETE-OPTIONAL-DISPATCH ; (SB!C::MAYBE-LET-CONVERT SB!C::FUN) ; ; caught STYLE-WARNING: ; undefined function: MAYBE-LET-CONVERT ; in: DEFUN MAKE-CAST ; (SB!C::MAYBE-WEAKEN-CHECK TYPE SB!C:POLICY) ; ; caught STYLE-WARNING: ; undefined function: MAYBE-WEAKEN-CHECK ; in: DEFUN DELETE-FILTER ; (SB!C::MERGE-TAIL-SETS MERGE) ; ; caught STYLE-WARNING: ; undefined function: MERGE-TAIL-SETS ; in: DEFUN NOTE-SINGLE-VALUIFIED-LVAR ; (SB!C::REOPTIMIZE-COMPONENT (SB!C::NODE-COMPONENT SB!C::NODE) :MAYBE) ; ; caught STYLE-WARNING: ; undefined function: REOPTIMIZE-COMPONENT ; in: DEFUN FLUSH-NODE ; (SB!C::REOPTIMIZE-COMPONENT (SB!C::BLOCK-COMPONENT BLOCK) T) ; ; caught STYLE-WARNING: ; undefined function: REOPTIMIZE-COMPONENT ; in: DEFUN CHANGE-BLOCK-SUCCESSOR ; (SB!C::REOPTIMIZE-COMPONENT (SB!C::BLOCK-COMPONENT BLOCK) :MAYBE) ; ; caught STYLE-WARNING: ; undefined function: REOPTIMIZE-COMPONENT ; in: DEFUN INSERT-CAST-BEFORE ; (SB!C::REOPTIMIZE-LVAR SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: REOPTIMIZE-LVAR ; in: DEFUN SUBSTITUTE-LVAR-USES ; (SB!C::REOPTIMIZE-LVAR SB!C::NEW) ; ; caught STYLE-WARNING: ; undefined function: REOPTIMIZE-LVAR ; in: DEFUN DELETE-LVAR-USE ; (SB!C::REOPTIMIZE-LVAR SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: REOPTIMIZE-LVAR ; ; caught STYLE-WARNING: ; 5 more uses of undefined function REOPTIMIZE-LVAR ; ; compilation unit finished ; Undefined types: ; SB!KERNEL::ARG-COUNT-ERROR CODE-DELETION-NOTE COMPILER-NOTE ; Undefined functions: ; CONSTANT-LVAR-P DERIVE-NODE-TYPE FIND-ORIGINAL-SOURCE FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE GIVE-UP-IR1-TRANSFORM IR1-OPTIMIZE-CAST LOCALL-ANALYZE-COMPONENT LVAR-VALUE MAYBE-CONVERT-TO-ASSIGNMENT MAYBE-LET-CONVERT MAYBE-WEAKEN-CHECK MERGE-TAIL-SETS REOPTIMIZE-COMPONENT REOPTIMIZE-LVAR ; caught 43 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/ir1util.lisp-obj-tmp written ; compilation finished in 0:00:01.336 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir1report.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DECLAIM (SPECIAL *CURRENT-PATH*)) ; x-compiling (DEFVAR *ENCLOSING-SOURCE-CUTOFF* ...) ; x-compiling (DECLAIM (TYPE UNSIGNED-BYTE ...)) ; x-compiling (DEFSTRUCT (COMPILER-ERROR-CONTEXT # ...) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir1report.lisp ; in: DEFSTRUCT COMPILER-ERROR-CONTEXT ; (DEFSTRUCT ; (SB!C::COMPILER-ERROR-CONTEXT ; (:PRINT-OBJECT (LAMBDA (SB!C::X STREAM) (PRINT-UNREADABLE-OBJECT #))) ; (:COPIER NIL)) ; (SB!C::ENCLOSING-SOURCE NIL :TYPE LIST) ; (SB!C::SOURCE NIL :TYPE LIST) ; (SB!C::ORIGINAL-SOURCE (SB!INT:MISSING-ARG) :TYPE SIMPLE-STRING) ; (SB!C::CONTEXT NIL :TYPE LIST) ; (SB!INT:FILE-NAME (SB!INT:MISSING-ARG) :TYPE ; (OR PATHNAME (MEMBER :LISP :STREAM))) ; (FILE-POSITION NIL :TYPE (OR SB!INT:INDEX NULL)) ; (SB!C::ORIGINAL-SOURCE-PATH NIL :TYPE LIST) ; (SB!KERNEL:LEXENV NIL :TYPE (OR NULL SB!KERNEL:LEXENV))) ; --> PROGN EVAL-WHEN ; ==> ; (SB!KERNEL::%COMPILER-DEFSTRUCT ; '# ; '#(# ; #)) ; ; caught STYLE-WARNING: ; Previously compiled call to SB!C::COMPILER-ERROR-CONTEXT-LEXENV could not be ; inlined because the structure definition for SB!C::COMPILER-ERROR-CONTEXT was ; not yet seen. To avoid this warning, DEFSTRUCT should precede references to the ; affected functions, or they must be declared locally notinline at each call ; site. ; x-compiling (DECLAIM (TYPE # ...)) ; x-compiling (DEFVAR *COMPILER-ERROR-CONTEXT* ...) ; x-compiling (DEFVAR *SOURCE-CONTEXT-METHODS* ...) ; x-compiling (DEFMACRO DEFINE-SOURCE-CONTEXT ...) ; x-compiling (DEFINE-SOURCE-CONTEXT DEFSTRUCT ...) ; x-compiling (DEFINE-SOURCE-CONTEXT FUNCTION ...) ; x-compiling (DEFINE-SOURCE-CONTEXT NAMED-LAMBDA ...) ; x-compiling (DEFVAR *SOURCE-FORM-CONTEXT-ALIST* ...) ; x-compiling (DEFUN SOURCE-FORM-CONTEXT ...) ; x-compiling (DEFUN FIND-ORIGINAL-SOURCE ...) ; x-compiling (DEFUN STRINGIFY-FORM ...) ; x-compiling (DEFUN FIND-ERROR-CONTEXT ...) ; x-compiling (DEFVAR *LAST-ERROR-CONTEXT* ...) ; x-compiling (DECLAIM (TYPE # ...)) ; x-compiling (DEFVAR *LAST-FORMAT-STRING* ...) ; x-compiling (DEFVAR *LAST-FORMAT-ARGS* ...) ; x-compiling (DECLAIM (TYPE # ...)) ; x-compiling (DECLAIM (TYPE LIST ...)) ; x-compiling (DEFVAR *LAST-MESSAGE-COUNT* ...) ; x-compiling (DECLAIM (TYPE INDEX ...)) ; x-compiling (DEFUN NOTE-MESSAGE-REPEATS ...) ; x-compiling (DEFUN PRINT-COMPILER-MESSAGE ...) ; x-compiling (DEFUN %PRINT-COMPILER-MESSAGE ...) ; x-compiling (DEFUN PRINT-COMPILER-CONDITION ...) ; x-compiling (DEFINE-CONDITION COMPILER-NOTE ...) ; x-compiling (DEFINE-CONDITION SIMPLE-COMPILER-NOTE ...) ; x-compiling (DEFINE-CONDITION CODE-DELETION-NOTE ...) ; x-compiling (DEFUN COMPILER-NOTIFY ...) ; x-compiling (DEFUN MAYBE-COMPILER-NOTIFY ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN COMPILER-MUMBLE ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN FIND-COMPONENT-NAME ...) ; x-compiling (DEFVAR *COMPILER-ERROR-COUNT*) ; x-compiling (DEFVAR *COMPILER-WARNING-COUNT*) ; x-compiling (DEFVAR *COMPILER-STYLE-WARNING-COUNT*) ; x-compiling (DEFVAR *COMPILER-NOTE-COUNT*) ; x-compiling (DEFVAR *FAILURE-P*) ; x-compiling (DEFVAR *WARNINGS-P*) ; x-compiling (DEFUN COMPILER-ERROR-HANDLER ...) ; x-compiling (DEFUN COMPILER-WARNING-HANDLER ...) ; x-compiling (DEFUN COMPILER-STYLE-WARNING-HANDLER ...) ; x-compiling (DEFVAR *UNDEFINED-WARNING-LIMIT* ...) ; x-compiling (DEFUN NOTE-UNDEFINED-REFERENCE ...) ; x-compiling (DEFUN WARN-IF-COMPILER-MACRO-DEPENDENCY-PROBLEM ...) ; x-compiling (DEFUN WARN-IF-INLINE-FAILED/PROCLAIM ...) ; x-compiling (DEFUN WARN-IF-INLINE-FAILED/CALL ...); ; compilation unit finished ; caught 1 STYLE-WARNING condition ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/ir1report.lisp-obj-tmp written ; compilation finished in 0:00:00.430 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir1opt.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFUN CONSTANT-LVAR-P ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN LVAR-VALUE ...) ; x-compiling (DECLAIM (INLINE LVAR-DERIVED-TYPE)) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir1opt.lisp ; in: DECLAIM (INLINE LVAR-DERIVED-TYPE) ; (DECLAIM (INLINE SB!C::LVAR-DERIVED-TYPE)) ; --> EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE SB!C::LVAR-DERIVED-TYPE)) ; ; caught STYLE-WARNING: ; Proclaiming SB!C::LVAR-DERIVED-TYPE to be INLINE, but 1 call to it was ; previously compiled. A declaration of NOTINLINE at the call site will eliminate ; this warning, as will proclaiming and defining the function before its first ; potential use. ; x-compiling (DEFUN LVAR-DERIVED-TYPE ...) ; x-compiling (DEFUN %LVAR-DERIVED-TYPE ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN LVAR-TYPE ...) ; x-compiling (DEFUN LVAR-CONSERVATIVE-TYPE ...) ; x-compiling (DEFUN NODE-CONSERVATIVE-TYPE ...) ; x-compiling (DEFUN CONSERVATIVE-TYPE ...) ; x-compiling (DEFUN TYPE-NEEDS-CONSERVATION-P ...) ; x-compiling (DECLAIM (INLINE LVAR-EXTERNALLY-CHECKABLE-TYPE)) ; x-compiling (DEFUN LVAR-EXTERNALLY-CHECKABLE-TYPE ...) ; x-compiling (DEFUN %LVAR-%EXTERNALLY-CHECKABLE-TYPE ...) ; x-compiling (DECLAIM (INLINE FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE)) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir1opt.lisp ; in: DECLAIM (INLINE FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE) ; (DECLAIM (INLINE SB!C::FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE)) ; --> EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE SB!C::FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE)) ; ; caught STYLE-WARNING: ; Proclaiming SB!C::FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE to be INLINE, but 3 ; calls to it were previously compiled. A declaration of NOTINLINE at the call ; sites will eliminate this warning, as will proclaiming and defining the ; function before its first potential use. ; x-compiling (DEFUN FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE ...) ; x-compiling (DECLAIM (INLINE REOPTIMIZE-COMPONENT)) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir1opt.lisp ; in: DECLAIM (INLINE REOPTIMIZE-COMPONENT) ; (DECLAIM (INLINE SB!C::REOPTIMIZE-COMPONENT)) ; --> EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE SB!C::REOPTIMIZE-COMPONENT)) ; ; caught STYLE-WARNING: ; Proclaiming SB!C::REOPTIMIZE-COMPONENT to be INLINE, but 4 calls to it were ; previously compiled. A declaration of NOTINLINE at the call sites will ; eliminate this warning, as will proclaiming and defining the function before ; its first potential use. ; x-compiling (DEFUN REOPTIMIZE-COMPONENT ...) ; x-compiling (DEFUN REOPTIMIZE-LVAR ...) ; x-compiling (DEFUN REOPTIMIZE-LVAR-USES ...) ; x-compiling (DEFUN DERIVE-NODE-TYPE ...) ; x-compiling (DEFUN ASSERT-LVAR-TYPE ...) ; x-compiling (DEFUN IR1-OPTIMIZE ...) ; x-compiling (DEFUN IR1-OPTIMIZE-BLOCK ...) ; x-compiling (DEFUN JOIN-SUCCESSOR-IF-POSSIBLE ...) ; x-compiling (DEFUN JOIN-BLOCKS ...) ; x-compiling (DEFUN FLUSH-DEAD-CODE ...) ; x-compiling (DEFUN FIND-RESULT-TYPE ...) ; x-compiling (DEFUN IR1-OPTIMIZE-RETURN ...) ; x-compiling (DEFUN CBLOCKS-EQUIVALENT-P ...) ; x-compiling (DEFUN IR1-OPTIMIZE-IF ...) ; x-compiling (DEFUN KILL-IF-BRANCH-1 ...) ; x-compiling (DEFUN TENSION-IF-IF-1 ...) ; x-compiling (DEFUN DUPLICATE-IF-IF-1 ...) ; x-compiling (DEFUN CONVERT-IF-IF ...) ; x-compiling (DEFUN MAYBE-DELETE-EXIT ...) ; x-compiling (DEFVAR *SHOW-TRANSFORMS-P* ...) ; x-compiling (DEFUN CHECK-IMPORTANT-RESULT ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN IR1-OPTIMIZE-COMBINATION ...) ; x-compiling (DEFUN XEP-TAIL-COMBINATION-P ...) ; x-compiling (DEFUN MAYBE-TERMINATE-BLOCK ...) ; x-compiling (DEFUN RECOGNIZE-KNOWN-CALL ...) ; x-compiling (DEFUN VALIDATE-CALL-TYPE ...) ; x-compiling (DEFUN PROPAGATE-FUN-CHANGE ...) ; x-compiling (DEFUN RECORD-OPTIMIZATION-FAILURE ...) ; x-compiling (DEFUN IR1-TRANSFORM ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN GIVE-UP-IR1-TRANSFORM ...) ; x-compiling (DEFUN ABORT-IR1-TRANSFORM ...) ; x-compiling (DEFUN DELAY-IR1-TRANSFORM ...) ; x-compiling (DEFUN RETRY-DELAYED-IR1-TRANSFORMS ...) ; x-compiling (DEFUN TRANSFORM-CALL ...) ; x-compiling (DEFUN CONSTANT-FOLD-CALL ...) ; x-compiling (DEFUN PROPAGATE-TO-REFS ...) ; x-compiling (DEFUN MAYBE-INFER-ITERATION-VAR-TYPE ...) ; x-compiling (DEFTRANSFORM + ...) ; x-compiling (DEFUN PROPAGATE-FROM-SETS ...) ; x-compiling (DEFUN IR1-OPTIMIZE-SET ...) ; x-compiling (DEFUN CONSTANT-REFERENCE-P ...) ; x-compiling (DEFUN SUBSTITUTE-SINGLE-USE-LVAR ...) ; x-compiling (DEFUN DELETE-LET ...) ; x-compiling (DEFUN PROPAGATE-LET-ARGS ...) ; x-compiling (DEFUN PROPAGATE-LOCAL-CALL-ARGS ...) ; x-compiling (DEFUN IR1-OPTIMIZE-MV-COMBINATION ...) ; x-compiling (DEFUN IR1-OPTIMIZE-MV-BIND ...) ; x-compiling (DEFUN IR1-OPTIMIZE-MV-CALL ...) ; x-compiling (DEFUN CONVERT-MV-BIND-TO-LET ...) ; x-compiling (DEFOPTIMIZER (VALUES-LIST OPTIMIZER) ...) ; x-compiling (DEFTRANSFORM VALUES ...) ; x-compiling (DEFUN DELETE-CAST ...) ; x-compiling (DEFUN MAY-DELETE-VESTIGIAL-EXIT ...) ; x-compiling (DEFUN IR1-OPTIMIZE-CAST ...) ; x-compiling (DEFTRANSFORM MAKE-SYMBOL ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir1opt.lisp ; in: DEFUN IR1-OPTIMIZE-MV-COMBINATION ; (SB!C::CONVERT-CALL-IF-POSSIBLE SB!C::USE SB!C::NODE) ; ; caught STYLE-WARNING: ; undefined function: CONVERT-CALL-IF-POSSIBLE ; in: DEFUN PROPAGATE-FUN-CHANGE ; (SB!C::CONVERT-CALL-IF-POSSIBLE ; (SB!C::LVAR-USES (SB!C::BASIC-COMBINATION-FUN SB!C:CALL)) SB!C:CALL) ; ; caught STYLE-WARNING: ; undefined function: CONVERT-CALL-IF-POSSIBLE ; in: DEFUN IR1-OPTIMIZE-MV-CALL ; (SB!C::LOCALL-ANALYZE-COMPONENT SB!C::*CURRENT-COMPONENT*) ; ; caught STYLE-WARNING: ; undefined function: LOCALL-ANALYZE-COMPONENT ; in: DEFUN TRANSFORM-CALL ; (SB!C::LOCALL-ANALYZE-COMPONENT SB!C::*CURRENT-COMPONENT*) ; ; caught STYLE-WARNING: ; undefined function: LOCALL-ANALYZE-COMPONENT ; in: DEFUN RECOGNIZE-KNOWN-CALL ; (SB!C::LOCALL-ANALYZE-COMPONENT SB!C::*CURRENT-COMPONENT*) ; ; caught STYLE-WARNING: ; undefined function: LOCALL-ANALYZE-COMPONENT ; in: DEFUN FIND-RESULT-TYPE ; (SB!C::MAYBE-CONVERT-TAIL-LOCAL-CALL SB!C::USE) ; ; caught STYLE-WARNING: ; undefined function: MAYBE-CONVERT-TAIL-LOCAL-CALL ; in: DEFUN IR1-OPTIMIZE-MV-COMBINATION ; (SB!C::MAYBE-LET-CONVERT (SB!C::COMBINATION-LAMBDA SB!C::NODE)) ; ; caught STYLE-WARNING: ; undefined function: MAYBE-LET-CONVERT ; in: DEFUN PROPAGATE-FUN-CHANGE ; (SB!C::MAYBE-LET-CONVERT SB!C::FUN) ; ; caught STYLE-WARNING: ; undefined function: MAYBE-LET-CONVERT ; in: DEFUN IR1-OPTIMIZE-CAST ; (SB!C::MERGE-TAIL-SETS SB!C::USE) ; ; caught STYLE-WARNING: ; undefined function: MERGE-TAIL-SETS ; in: DEFUN CONVERT-MV-BIND-TO-LET ; (SB!C::PROPAGATE-TO-ARGS SB!C::USE SB!C::FUN) ; ; caught STYLE-WARNING: ; undefined function: PROPAGATE-TO-ARGS ; (SB!C::REOPTIMIZE-CALL SB!C::USE) ; ; caught STYLE-WARNING: ; undefined function: REOPTIMIZE-CALL ; ; compilation unit finished ; Undefined functions: ; CONVERT-CALL-IF-POSSIBLE LOCALL-ANALYZE-COMPONENT MAYBE-CONVERT-TAIL-LOCAL-CALL MAYBE-LET-CONVERT MERGE-TAIL-SETS PROPAGATE-TO-ARGS REOPTIMIZE-CALL ; caught 14 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/ir1opt.lisp-obj-tmp written ; compilation finished in 0:00:00.981 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/loop.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFUN FIND-DOMINATORS ...) ; x-compiling (DEFUN DOMINATES-P ...) ; x-compiling (DEFUN LOOP-ANALYZE ...) ; x-compiling (DEFUN FIND-LOOP-BLOCKS ...) ; x-compiling (DEFUN FIND-BLOCKS-FROM-HERE ...) ; x-compiling (DEFUN NOTE-LOOP-HEAD ...) ; x-compiling (DEFUN FIND-SUPERIOR ...) ; x-compiling (DEFUN FIND-STRANGE-LOOP-BLOCKS ...) ; x-compiling (DEFUN FIND-STRANGE-LOOP-SEGMENTS ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/loop.lisp-obj-tmp written ; compilation finished in 0:00:00.072 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir1final.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFUN NOTE-FAILED-OPTIMIZATION ...) ; x-compiling (DEFUN FINALIZE-XEP-DEFINITION ...) ; x-compiling (DEFUN NOTE-ASSUMED-TYPES ...) ; x-compiling (DEFUN IR1-MERGE-CASTS ...) ; x-compiling (DEFUN IR1-FINALIZE ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/ir1final.lisp-obj-tmp written ; compilation finished in 0:00:00.067 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/array-tran.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFUN UPGRADED-ELEMENT-TYPE-SPECIFIER-OR-GIVE-UP ...) ; x-compiling (DEFUN UPGRADED-ELEMENT-TYPE-SPECIFIER ...) ; x-compiling (DEFUN ARRAY-TYPE-UPGRADED-ELEMENT-TYPE ...) ; x-compiling (DEFUN ARRAY-TYPE-DECLARED-ELEMENT-TYPE ...) ; x-compiling (DEFUN ASSERT-NEW-VALUE-TYPE ...) ; x-compiling (DEFUN UNSUPPLIED-OR-NIL ...) ; x-compiling (DEFUN SUPPLIED-AND-TRUE ...) ; x-compiling (DEFUN ASSERT-ARRAY-RANK ...) ; x-compiling (DEFUN DERIVE-AREF-TYPE ...) ; x-compiling (DEFOPTIMIZER (ARRAY-IN-BOUNDS-P DERIVE-TYPE) ...) ; x-compiling (DEFTRANSFORM ARRAY-IN-BOUNDS-P ...) ; x-compiling (DEFOPTIMIZER (AREF DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (# DERIVE-TYPE) ...) ; x-compiling (DEFINE HAIRY-DATA-VECTOR-REF) ; x-compiling (DEFINE HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS) ; x-compiling (DEFINE DATA-VECTOR-REF) ; x-compiling (DEFOPTIMIZER (DATA-VECTOR-REF-WITH-OFFSET DERIVE-TYPE) ...) ; x-compiling (DEFINE HAIRY-DATA-VECTOR-SET) ; x-compiling (DEFINE HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS) ; x-compiling (DEFINE DATA-VECTOR-SET) ; x-compiling (DEFOPTIMIZER (DATA-VECTOR-SET-WITH-OFFSET DERIVE-TYPE) ...) ; x-compiling (DEFUN DERIVE-%WITH-ARRAY-DATA/MUMBLE-TYPE ...) ; x-compiling (DEFOPTIMIZER (%WITH-ARRAY-DATA DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (%WITH-ARRAY-DATA/FP DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (ARRAY-ROW-MAJOR-INDEX DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (ROW-MAJOR-AREF DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (%SET-ROW-MAJOR-AREF DERIVE-TYPE) ...) ; x-compiling (DEFUN DERIVE-MAKE-ARRAY-TYPE ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/array-tran.lisp ; in: DEFUN DERIVE-MAKE-ARRAY-TYPE ; 'ARRAY ; ; note: deleting unreachable code ; x-compiling (DEFOPTIMIZER (MAKE-ARRAY DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (%MAKE-ARRAY DERIVE-TYPE) ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM VECTOR ...) ; x-compiling (DEFTRANSFORM MAKE-STRING ...) ; x-compiling (DEFUN REWRITE-INITIAL-CONTENTS ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM MAKE-ARRAY ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/array-tran.lisp ; in: DEFINE-SOURCE-TRANSFORM MAKE-ARRAY ; (VALUES SB!C::DIMENSIONS (LENGTH (CDR SB!C::DIMENSIONS))) ; ==> ; SB!C::DIMENSIONS ; ; note: deleting unreachable code ; x-compiling (DEFINE-SOURCE-TRANSFORM COERCE ...) ; x-compiling (DEFUN TRANSFORM-MAKE-ARRAY-VECTOR ...) ; x-compiling (DEFTRANSFORM MAKE-ARRAY ...) ; x-compiling (DEFTRANSFORM MAKE-ARRAY ...) ; x-compiling (DEFTRANSFORM MAKE-ARRAY ...) ; x-compiling (DEFUN ARRAY-TYPE-DIMENSIONS-OR-GIVE-UP ...) ; x-compiling (DEFUN CONSERVATIVE-ARRAY-TYPE-COMPLEXP ...) ; x-compiling (DEFTRANSFORM ARRAY-RANK ...) ; x-compiling (DEFUN DERIVE-ARRAY-RANK ...) ; x-compiling (DEFOPTIMIZER (ARRAY-RANK DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (%ARRAY-RANK DERIVE-TYPE) ...) ; x-compiling (DEFTRANSFORM ARRAY-DIMENSION ...) ; x-compiling (DEFTRANSFORM LENGTH ...) ; x-compiling (DEFTRANSFORM LENGTH ...) ; x-compiling (DEFTRANSFORM VECTOR-LENGTH ...) ; x-compiling (DEFTRANSFORM ARRAY-TOTAL-SIZE ...) ; x-compiling (DEFTRANSFORM ARRAY-HAS-FILL-POINTER-P ...) ; x-compiling (DEFTRANSFORM %CHECK-BOUND ...) ; x-compiling (DEF!MACRO WITH-ARRAY-DATA ...) ; x-compiling (DEF!MACRO %WITH-ARRAY-DATA-MACRO ...) ; x-compiling (DEFUN TRANSFORM-%WITH-ARRAY-DATA/MUMBLE ...) ; x-compiling (DEFTRANSFORM %WITH-ARRAY-DATA ...) ; x-compiling (DEFTRANSFORM %WITH-ARRAY-DATA/FP ...) ; x-compiling (DEFINE-BIT-FROB SBIT ...) ; x-compiling (DEFINE-BIT-FROB BIT ...) ; x-compiling (DEFINE-FROB SCHAR ...) ; x-compiling (DEFINE-FROB CHAR ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM SVREF ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM %SVSET ...) ; x-compiling (DEFTRANSFORM ARRAY-ROW-MAJOR-INDEX ...) ; x-compiling (DEFTRANSFORM AREF ...) ; x-compiling (DEFTRANSFORM (SETF AREF) ...) ; x-compiling (DEFTRANSFORM AREF ...) ; x-compiling (DEFTRANSFORM (SETF AREF) ...) ; x-compiling (DEFINE HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ...) ; x-compiling (DEFINE HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS ...) ; x-compiling (DEFTRANSFORM ROW-MAJOR-AREF ...) ; x-compiling (DEFTRANSFORM %SET-ROW-MAJOR-AREF ...) ; x-compiling (DEF BIT-AND) ; x-compiling (DEF BIT-IOR) ; x-compiling (DEF BIT-XOR) ; x-compiling (DEF BIT-EQV) ; x-compiling (DEF BIT-NAND) ; x-compiling (DEF BIT-NOR) ; x-compiling (DEF BIT-ANDC1) ; x-compiling (DEF BIT-ANDC2) ; x-compiling (DEF BIT-ORC1) ; x-compiling (DEF BIT-ORC2) ; x-compiling (DEFTRANSFORM BIT-NOT ...) ; x-compiling (DEFTRANSFORM BIT-NOT ...) ; x-compiling (DEFOPTIMIZER (ARRAY-HEADER-P DERIVE-TYPE) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/array-tran.lisp ; in: DEFTRANSFORM ARRAY-IN-BOUNDS-P ; (SB!C::INTEGER-TYPE-P SB!C::TYPE2) ; ; caught STYLE-WARNING: ; undefined function: INTEGER-TYPE-P ; in: DEFINE-SOURCE-TRANSFORM COERCE ; (SB!INT:QUASIQUOTE ; (MAKE-ARRAY #S(SB!IMPL::COMMA :EXPR LENGTH :KIND 0) :ELEMENT-TYPE ; '#S(SB!IMPL::COMMA ; :EXPR (IF SB!C::STRING-P ; 'CHARACTER ; (NTH-VALUE 1 #)) ; :KIND 0) ; :INITIAL-CONTENTS #S(SB!IMPL::COMMA :EXPR SB!C::X :KIND 0))) ; --> SB!IMPL::|List| SB!IMPL::|List| IF NTH-VALUE MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL ; ==> ; (SB!C::SIMPLIFY-VECTOR-TYPE SB!KERNEL:CTYPE) ; ; caught STYLE-WARNING: ; undefined function: SIMPLIFY-VECTOR-TYPE ; in: DEFTRANSFORM ARRAY-IN-BOUNDS-P ; (SB!C::WEAKEN-INTEGER-TYPE SB!C::TYPE1 :RANGE-ONLY T) ; ; caught STYLE-WARNING: ; undefined function: WEAKEN-INTEGER-TYPE ; ; compilation unit finished ; Undefined functions: ; INTEGER-TYPE-P SIMPLIFY-VECTOR-TYPE WEAKEN-INTEGER-TYPE ; caught 3 STYLE-WARNING conditions ; printed 2 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/array-tran.lisp-obj-tmp written ; compilation finished in 0:00:00.990 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/seqtran.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFUN MAPFOO-TRANSFORM ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM MAPC ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM MAPCAR ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM MAPCAN ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM MAPL ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM MAPLIST ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM MAPCON ...) ; x-compiling (DEFTRANSFORM MAP ...) ; x-compiling (DEFUN BUILD-SEQUENCE-ITERATOR ...) ; x-compiling (DEFTRANSFORM %MAP ...) ; x-compiling (DEFTRANSFORM MAP-INTO ...) ; x-compiling (DEFTRANSFORM ELT ...) ; x-compiling (DEFTRANSFORM ELT ...) ; x-compiling (DEFTRANSFORM %SETELT ...) ; x-compiling (DEFTRANSFORM %SETELT ...) ; x-compiling (DEFTRANSFORM %CHECK-VECTOR-SEQUENCE-BOUNDS ...) ; x-compiling (DEF!TYPE EQ-COMPARABLE-TYPE ...) ; x-compiling (DEFUN EQ-COMPARABLE-TYPE-P ...) ; x-compiling (DEFUN SPECIALIZED-LIST-SEEK-FUNCTION-NAME ...) ; x-compiling (DEFPARAMETER *LIST-OPEN-CODE-LIMIT* ...) ; x-compiling (DEFUN TRANSFORM-LIST-ITEM-SEEK ...) ; x-compiling (DEFUN TRANSFORM-LIST-PRED-SEEK ...) ; x-compiling (DEF ADJOIN) ; x-compiling (DEF ASSOC ...) ; x-compiling (DEF MEMBER ...) ; x-compiling (DEF RASSOC ...) ; x-compiling (DEFTRANSFORM MEMQ ...) ; x-compiling (DEFTRANSFORM DELETE ...) ; x-compiling (DEFTRANSFORM DELETE-IF ...) ; x-compiling (DEFTRANSFORM FILL ...) ; x-compiling (DEFTRANSFORM FILL ...) ; x-compiling (DEFTRANSFORM FILL ...) ; x-compiling (DEF STRING< ...) ; x-compiling (DEF STRING> ...) ; x-compiling (DEF STRING<= ...) ; x-compiling (DEF STRING>= ...) ; x-compiling (DEF STRING= ...) ; x-compiling (DEF STRING/= ...) ; x-compiling (DEF STRING<* ...) ; x-compiling (DEF STRING<=* ...) ; x-compiling (DEF STRING>* ...) ; x-compiling (DEF STRING>=* ...) ; x-compiling (DEFTRANSFORM STRING=* ...) ; x-compiling (DEFTRANSFORM STRING/=* ...) ; x-compiling (DEF STRING=* ...) ; x-compiling (DEF STRING/=* ...) ; x-compiling (DEFTRANSFORM STRING/=* ...) ; x-compiling (DEFTRANSFORM STRING ...) ; x-compiling (DEF!CONSTANT VECTOR-DATA-BIT-OFFSET ...) ; x-compiling (DEFUN MAKE-REPLACE-TRANSFORM ...) ; x-compiling (DEFINE-REPLACE-TRANSFORMS) ; x-compiling (DEFINE-ONE-TRANSFORM (SIMPLE-ARRAY BASE-CHAR ...) ...) ; x-compiling (DEFINE-ONE-TRANSFORM (SIMPLE-ARRAY CHARACTER ...) ...) ; x-compiling (DEFUN FROB-BASH-TRANSFORM ...) ; x-compiling (DEFTRANSFORM UB1-BASH-COPY ...) ; x-compiling (DEFTRANSFORM UB2-BASH-COPY ...) ; x-compiling (DEFTRANSFORM UB4-BASH-COPY ...) ; x-compiling (DEFTRANSFORM UB8-BASH-COPY ...) ; x-compiling (DEFTRANSFORM UB16-BASH-COPY ...) ; x-compiling (DEFTRANSFORM UB32-BASH-COPY ...) ; x-compiling (DEFUN INLINEABLE-COPY-VECTOR-P ...) ; x-compiling (DEFUN MAYBE-EXPAND-COPY-LOOP-INLINE ...) ; x-compiling (DEFUN EXPAND-AREF-COPY-LOOP ...) ; x-compiling (DEFTRANSFORM MAKE-SEQUENCE ...) ; x-compiling (DEFTRANSFORM SUBSEQ ...) ; x-compiling (DEFTRANSFORM SUBSEQ ...) ; x-compiling (DEFTRANSFORM SUBSEQ ...) ; x-compiling (DEFTRANSFORM COPY-SEQ ...) ; x-compiling (DEFTRANSFORM COPY-SEQ ...) ; x-compiling (DEFTRANSFORM COPY-SEQ ...) ; x-compiling (DEFTRANSFORM SEARCH ...) ; x-compiling (DEFVAR *CONCATENATE-OPEN-CODE-LIMIT* ...) ; x-compiling (DEFTRANSFORM CONCATENATE ...) ; x-compiling (DEFOPTIMIZER (CAR DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (CDR DERIVE-TYPE) ...) ; x-compiling (DEFUN CHECK-INLINEABILITY-OF-FIND-POSITION-IF ...) ; x-compiling (DEFUN %FIND/POSITION-IF-LIST-EXPANSION ...) ; x-compiling (DEF %FIND-POSITION-IF ...) ; x-compiling (DEF %FIND-POSITION-IF-NOT ...) ; x-compiling (DEFTRANSFORM %FIND-POSITION ...) ; x-compiling (DEFUN %FIND-POSITION-OR-FIND-POSITION-IF-VECTOR-EXPANSION ...) ; x-compiling (DEF!MACRO %FIND-POSITION-VECTOR-MACRO ...) ; x-compiling (DEF!MACRO %FIND-POSITION-IF-VECTOR-MACRO ...) ; x-compiling (DEF!MACRO %FIND-POSITION-IF-NOT-VECTOR-MACRO ...) ; x-compiling (DEFTRANSFORM %FIND-POSITION-IF ...) ; x-compiling (DEFTRANSFORM %FIND-POSITION-IF-NOT ...) ; x-compiling (DEFTRANSFORM %FIND-POSITION ...) ; x-compiling (DEFTRANSFORM %FIND-POSITION ...) ; x-compiling (DEFTRANSFORM %FIND-POSITION ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM EFFECTIVE-FIND-POSITION-TEST ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM EFFECTIVE-FIND-POSITION-KEY ...) ; x-compiling (DEFINE-FIND-POSITION FIND ...) ; x-compiling (DEFINE-FIND-POSITION POSITION ...) ; x-compiling (DEFINE-FIND-POSITION-IF FIND-IF ...) ; x-compiling (DEFINE-FIND-POSITION-IF POSITION-IF ...) ; x-compiling (DEFINE-FIND-POSITION-IF-NOT FIND-IF-NOT ...) ; x-compiling (DEFINE-FIND-POSITION-IF-NOT POSITION-IF-NOT ...) ; x-compiling (DEFINE-TRIMMER-TRANSFORM STRING-LEFT-TRIM ...) ; x-compiling (DEFINE-TRIMMER-TRANSFORM STRING-RIGHT-TRIM ...) ; x-compiling (DEFINE-TRIMMER-TRANSFORM STRING-TRIM ...) ; x-compiling (DEFUN TRANSFORM-BACKQ-LIST-OR-LIST* ...) ; x-compiling (DEFTRANSFORM SB!IMPL::|List| ...) ; x-compiling (DEFTRANSFORM SB!IMPL::|List*| ...) ; x-compiling (DEFTRANSFORM SB!IMPL::|Append| ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/seqtran.lisp ; in: DEFUN MAPFOO-TRANSFORM ; (SB!INT:FUNARG-BIND/CALL-FORMS SB!C::FN (SB!C::ARGS-TO-FN)) ; ; caught STYLE-WARNING: ; undefined function: FUNARG-BIND/CALL-FORMS ; in: DEFTRANSFORM FILL ; (SB!C::INTEGER-TYPE-P SB!C::ELEMENT-CTYPE) ; ; caught STYLE-WARNING: ; undefined function: INTEGER-TYPE-P ; ; compilation unit finished ; Undefined functions: ; FUNARG-BIND/CALL-FORMS INTEGER-TYPE-P ; caught 2 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/seqtran.lisp-obj-tmp written ; compilation finished in 0:00:01.313 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/typetran.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFMACRO DEFINE-TYPE-PREDICATE ...) ; x-compiling (DEFUN %DEFINE-TYPE-PREDICATE ...) ; x-compiling (DEFTRANSFORM TYPEP ...) ; x-compiling (DEFUN IR1-TRANSFORM-TYPE-PREDICATE ...) ; x-compiling (DEFTRANSFORM %TYPEP ...) ; x-compiling (DEFTRANSFORM FOLD-TYPE-PREDICATE ...) ; x-compiling (DEFTRANSFORM FIND-CLASSOID ...) ; x-compiling (DEFOPTIMIZER (%TYPEP-WRAPPER CONSTRAINT-PROPAGATE-IF) ...) ; x-compiling (DEFTRANSFORM %TYPEP-WRAPPER ...) ; x-compiling (DEFUN !DEFINE-STANDARD-TYPE-PREDICATES ...) ; x-compiling (!DEFINE-STANDARD-TYPE-PREDICATES) ; x-compiling (DEFINE-SOURCE-TRANSFORM ATOM ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM BASE-CHAR-P ...) ; x-compiling (DEFTRANSFORM CONSP ...) ; x-compiling (DEFUN TRANSFORM-NUMERIC-BOUND-TEST ...) ; x-compiling (DEFUN SOURCE-TRANSFORM-NUMERIC-TYPEP ...) ; x-compiling (DEFUN SOURCE-TRANSFORM-HAIRY-TYPEP ...) ; x-compiling (DEFUN SOURCE-TRANSFORM-NEGATION-TYPEP ...) ; x-compiling (DEFUN SOURCE-TRANSFORM-UNION-TYPEP ...) ; x-compiling (DEFUN SOURCE-TRANSFORM-INTERSECTION-TYPEP ...) ; x-compiling (DEFUN SOURCE-TRANSFORM-CONS-TYPEP ...) ; x-compiling (DEFUN SOURCE-TRANSFORM-CHARACTER-SET-TYPEP ...) ; x-compiling (DEFUN FIND-SUPERTYPE-PREDICATE ...) ; x-compiling (DEFUN TEST-ARRAY-DIMENSIONS ...) ; x-compiling (DEFUN TEST-ARRAY-ELEMENT-TYPE ...) ; x-compiling (DEFUN SOURCE-TRANSFORM-ARRAY-TYPEP ...) ; x-compiling (DEFTRANSFORM %INSTANCE-TYPEP ...) ; x-compiling (DEFUN %SOURCE-TRANSFORM-TYPEP ...) ; x-compiling (DEFUN SOURCE-TRANSFORM-TYPEP ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM TYPEP ...) ; x-compiling (DEFOPTIMIZER (COERCE OPTIMIZER) ...) ; x-compiling (DEFUN SIMPLIFY-VECTOR-TYPE ...) ; x-compiling (DEFTRANSFORM COERCE ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/typetran.lisp-obj-tmp written ; compilation finished in 0:00:00.379 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/vm-typetran.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFINE-TYPE-PREDICATE BASE-STRING-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE BIGNUMP ...) ; x-compiling (DEFINE-TYPE-PREDICATE CHARACTER-STRING-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE COMPLEX-DOUBLE-FLOAT-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE COMPLEX-SINGLE-FLOAT-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE DOUBLE-FLOAT-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE FIXNUMP ...) ; x-compiling (DEFINE-TYPE-PREDICATE LONG-FLOAT-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE RATIOP ...) ; x-compiling (DEFINE-TYPE-PREDICATE SHORT-FLOAT-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE SINGLE-FLOAT-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-NIL-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-BYTE-2-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-BYTE-4-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-BYTE-7-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-BYTE-8-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-BYTE-15-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-BYTE-16-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-FIXNUM-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-BYTE-31-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-UNSIGNED-BYTE-32-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-SIGNED-BYTE-8-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-SIGNED-BYTE-16-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-FIXNUM-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-SIGNED-BYTE-32-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-SINGLE-FLOAT-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-DOUBLE-FLOAT-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-BASE-STRING-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE SIMPLE-CHARACTER-STRING-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE SYSTEM-AREA-POINTER-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE UNSIGNED-BYTE-32-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE SIGNED-BYTE-32-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE VECTOR-NIL-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE WEAK-POINTER-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE CODE-COMPONENT-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE LRA-P ...) ; x-compiling (DEFINE-TYPE-PREDICATE FDEFN-P ...) ; x-compiling (DEF) ; x-compiling (DEFINE-TYPE-PREDICATE %STANDARD-CHAR-P ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/generic/vm-typetran.lisp-obj-tmp written ; compilation finished in 0:00:00.040 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/float-tran.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFKNOWN %SINGLE-FLOAT ...) ; x-compiling (DEFKNOWN %DOUBLE-FLOAT ...) ; x-compiling (DEFTRANSFORM FLOAT ...) ; x-compiling (DEFTRANSFORM FLOAT ...) ; x-compiling (DEFTRANSFORM FLOAT ...) ; x-compiling (DEFTRANSFORM %SINGLE-FLOAT ...) ; x-compiling (DEFTRANSFORM %DOUBLE-FLOAT ...) ; x-compiling (FROB %RANDOM-SINGLE-FLOAT ...) ; x-compiling (FROB %RANDOM-DOUBLE-FLOAT ...) ; x-compiling (DEFUN GENERATE-RANDOM-EXPR-FOR-POWER-OF-2 ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/float-tran.lisp ; in: DEFUN GENERATE-RANDOM-EXPR-FOR-POWER-OF-2 ; (<= SB!C::N-BITS (* 2 SB!KERNEL:N-RANDOM-CHUNK-BITS)) ; ==> ; SB!C::N-BITS ; ; note: deleting unreachable code ; (* 2 SB!KERNEL:N-RANDOM-CHUNK-BITS) ; ==> ; SB!KERNEL:N-RANDOM-CHUNK-BITS ; ; note: deleting unreachable code ; (ERROR "Unexpectedly small N-RANDOM-CHUNK-BITS") ; ==> ; "Unexpectedly small N-RANDOM-CHUNK-BITS" ; ; note: deleting unreachable code ; x-compiling (DEFTRANSFORM RANDOM ...) ; x-compiling (DEFKNOWN MAKE-SINGLE-FLOAT ...) ; x-compiling (DEFKNOWN MAKE-DOUBLE-FLOAT ...) ; x-compiling (DEFTRANSFORM MAKE-SINGLE-FLOAT ...) ; x-compiling (DEFTRANSFORM MAKE-DOUBLE-FLOAT ...) ; x-compiling (DEFKNOWN SINGLE-FLOAT-BITS ...) ; x-compiling (DEFKNOWN DOUBLE-FLOAT-HIGH-BITS ...) ; x-compiling (DEFKNOWN DOUBLE-FLOAT-LOW-BITS ...) ; x-compiling (DEFTRANSFORM FLOAT-SIGN ...) ; x-compiling (DEFTRANSFORM FLOAT-SIGN ...) ; x-compiling (DEFKNOWN DECODE-SINGLE-FLOAT ...) ; x-compiling (DEFKNOWN DECODE-DOUBLE-FLOAT ...) ; x-compiling (DEFKNOWN INTEGER-DECODE-SINGLE-FLOAT ...) ; x-compiling (DEFKNOWN INTEGER-DECODE-DOUBLE-FLOAT ...) ; x-compiling (DEFKNOWN SCALE-SINGLE-FLOAT ...) ; x-compiling (DEFKNOWN SCALE-DOUBLE-FLOAT ...) ; x-compiling (DEFTRANSFORM DECODE-FLOAT ...) ; x-compiling (DEFTRANSFORM DECODE-FLOAT ...) ; x-compiling (DEFTRANSFORM INTEGER-DECODE-FLOAT ...) ; x-compiling (DEFTRANSFORM INTEGER-DECODE-FLOAT ...) ; x-compiling (DEFTRANSFORM SCALE-FLOAT ...) ; x-compiling (DEFTRANSFORM SCALE-FLOAT ...) ; x-compiling (DEFUN SCALE-FLOAT-DERIVE-TYPE-AUX ...) ; x-compiling (DEFOPTIMIZER (SCALE-SINGLE-FLOAT DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (SCALE-DOUBLE-FLOAT DERIVE-TYPE) ...) ; x-compiling (FROB %SINGLE-FLOAT ...) ; x-compiling (FROB %DOUBLE-FLOAT ...) ; x-compiling (DEFUN SAFE-CTYPE-FOR-SINGLE-COERCION-P ...) ; x-compiling (DEFTRANSFORM FLOAT-CONTAGION-ARG1 ...) ; x-compiling (DEFTRANSFORM FLOAT-CONTAGION-ARG2 ...) ; x-compiling (DOLIST (X #) ...) ; x-compiling (DOLIST (X #) ...) ; x-compiling (DEF SINGLE-FLOAT ...) ; x-compiling (DEF DOUBLE-FLOAT ...) ; x-compiling (DEFUN MAYBE-EXACT-RECIPROCAL ...) ; x-compiling (DEF SINGLE-FLOAT) ; x-compiling (DEF DOUBLE-FLOAT) ; x-compiling (DEF + ...) ; x-compiling (DEF - ...) ; x-compiling (DEF + ...) ; x-compiling (DEF - ...) ; x-compiling (DEF SINGLE-FLOAT ...) ; x-compiling (DEF DOUBLE-FLOAT ...) ; x-compiling (FROB <) ; x-compiling (FROB >) ; x-compiling (FROB =) ; x-compiling (DEFKNOWN (%TAN %SINH ...) ...) ; x-compiling (DEFKNOWN (%SIN %COS ...) ...) ; x-compiling (DEFKNOWN (%ASIN %ATAN) ...) ; x-compiling (DEFKNOWN (%ACOS) ...) ; x-compiling (DEFKNOWN (%COSH) ...) ; x-compiling (DEFKNOWN (%ACOSH %EXP ...) ...) ; x-compiling (DEFKNOWN %EXPM1 ...) ; x-compiling (DEFKNOWN (%HYPOT) ...) ; x-compiling (DEFKNOWN (%POW) ...) ; x-compiling (DEFKNOWN (%ATAN2) ...) ; x-compiling (DEFKNOWN (%SCALB) ...) ; x-compiling (DEFKNOWN (%SCALBN) ...) ; x-compiling (DEFKNOWN (%LOG1P) ...) ; x-compiling (DEF EXP ...) ; x-compiling (DEF LOG ...) ; x-compiling (DEF SQRT ...) ; x-compiling (DEF ASIN ...) ; x-compiling (DEF ACOS ...) ; x-compiling (DEF ATAN ...) ; x-compiling (DEF SINH ...) ; x-compiling (DEF COSH ...) ; x-compiling (DEF TANH ...) ; x-compiling (DEF ASINH ...) ; x-compiling (DEF ACOSH ...) ; x-compiling (DEF ATANH ...) ; x-compiling (DEF SIN ...) ; x-compiling (DEF COS ...) ; x-compiling (DEF TAN ...) ; x-compiling (DEFTRANSFORM ATAN ...) ; x-compiling (DEFTRANSFORM ATAN ...) ; x-compiling (DEFTRANSFORM EXPT ...) ; x-compiling (DEFTRANSFORM EXPT ...) ; x-compiling (DEFTRANSFORM EXPT ...) ; x-compiling (DEFTRANSFORM EXPT ...) ; x-compiling (DEFTRANSFORM LOG ...) ; x-compiling (DEFTRANSFORM ABS ...) ; x-compiling (DEFTRANSFORM ABS ...) ; x-compiling (DEFTRANSFORM PHASE ...) ; x-compiling (DEFTRANSFORM PHASE ...) ; x-compiling (DEFTRANSFORM PHASE ...) ; x-compiling (DEFUN NUMERIC-TYPE-REAL-P ...) ; x-compiling (DEFUN COERCE-NUMERIC-BOUND ...) ; x-compiling (DEFUN COMPLEX-FLOAT-TYPE ...) ; x-compiling (DEFUN FLOAT-OR-COMPLEX-FLOAT-TYPE ...) ; x-compiling (DEFUN DOMAIN-SUBTYPEP ...) ; x-compiling (DEFUN ELFUN-DERIVE-TYPE-SIMPLE ...) ; x-compiling (FROB EXP ...) ; x-compiling (FROB SINH ...) ; x-compiling (FROB TANH ...) ; x-compiling (FROB ASINH ...) ; x-compiling (FROB ASIN ...) ; x-compiling (FROB ACOS ...) ; x-compiling (FROB ACOSH ...) ; x-compiling (FROB ATANH ...) ; x-compiling (FROB SQRT ...) ; x-compiling (DEFUN SAFE-EXPT ...) ; x-compiling (DEFUN INTERVAL-EXPT-> ...) ; x-compiling (DEFUN INTERVAL-EXPT-< ...) ; x-compiling (DEFUN INTERVAL-EXPT ...) ; x-compiling (DEFUN FIXUP-INTERVAL-EXPT ...) ; x-compiling (DEFUN MERGED-INTERVAL-EXPT ...) ; x-compiling (DEFUN EXPT-DERIVE-TYPE-AUX ...) ; x-compiling (DEFOPTIMIZER (EXPT DERIVE-TYPE) ...) ; x-compiling (DEFUN LOG-DERIVE-TYPE-AUX-1 ...) ; x-compiling (DEFUN LOG-DERIVE-TYPE-AUX-2 ...) ; x-compiling (DEFOPTIMIZER (LOG DERIVE-TYPE) ...) ; x-compiling (DEFUN ATAN-DERIVE-TYPE-AUX-1 ...) ; x-compiling (DEFUN ATAN-DERIVE-TYPE-AUX-2 ...) ; x-compiling (DEFOPTIMIZER (ATAN DERIVE-TYPE) ...) ; x-compiling (DEFUN COSH-DERIVE-TYPE-AUX ...) ; x-compiling (DEFOPTIMIZER (COSH DERIVE-TYPE) ...) ; x-compiling (DEFUN PHASE-DERIVE-TYPE-AUX ...) ; x-compiling (DEFOPTIMIZER (PHASE DERIVE-TYPE) ...) ; x-compiling (DEFTRANSFORM REALPART ...) ; x-compiling (DEFTRANSFORM IMAGPART ...) ; x-compiling (DEFUN REALPART-DERIVE-TYPE-AUX ...) ; x-compiling (DEFOPTIMIZER (REALPART DERIVE-TYPE) ...) ; x-compiling (DEFUN IMAGPART-DERIVE-TYPE-AUX ...) ; x-compiling (DEFOPTIMIZER (IMAGPART DERIVE-TYPE) ...) ; x-compiling (DEFUN COMPLEX-DERIVE-TYPE-AUX-1 ...) ; x-compiling (DEFUN COMPLEX-DERIVE-TYPE-AUX-2 ...) ; x-compiling (DEFOPTIMIZER (COMPLEX DERIVE-TYPE) ...) ; x-compiling (FROB SINGLE-FLOAT) ; x-compiling (FROB DOUBLE-FLOAT) ; x-compiling (DEFUN TRIG-DERIVE-TYPE-AUX ...) ; x-compiling (DEFOPTIMIZER (SIN DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (COS DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (TAN DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (CONJUGATE DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (CIS DERIVE-TYPE) ...) ; x-compiling (DEFINE-FROBS TRUNCATE ...) ; x-compiling (DEFINE-FROBS ROUND ...) ; x-compiling (DEFTRANSFORM %UNARY-TRUNCATE ...) ; x-compiling (DEFTRANSFORM %UNARY-TRUNCATE ...) ; x-compiling (DEF SINGLE-FLOAT ...) ; x-compiling (DEF DOUBLE-FLOAT ...) ; x-compiling (DEFKNOWN %UNARY-FTRUNCATE ...) ; x-compiling (DEFKNOWN %UNARY-FTRUNCATE/SINGLE ...) ; x-compiling (DEFKNOWN %UNARY-FTRUNCATE/DOUBLE ...) ; x-compiling (DEFUN %UNARY-FTRUNCATE/SINGLE ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/float-tran.lisp ; in: DEFUN %UNARY-FTRUNCATE/SINGLE ; (DEFUN SB!C::%UNARY-FTRUNCATE/SINGLE (SB!C::X) ; (DECLARE (TYPE SINGLE-FLOAT SB!C::X)) ; (DECLARE (OPTIMIZE SPEED (SAFETY 0))) ; (LET* ((SB!C::BITS (SB!KERNEL:SINGLE-FLOAT-BITS SB!C::X)) ; (EXP (SB-XC:LDB SB!VM:SINGLE-FLOAT-EXPONENT-BYTE SB!C::BITS)) ; (SB!C::BIASED (THE SB!KERNEL:SINGLE-FLOAT-EXPONENT #))) ; (DECLARE (TYPE (SIGNED-BYTE 32) SB!C::BITS)) ; (COND ((= EXP SB!VM:SINGLE-FLOAT-NORMAL-EXPONENT-MAX) SB!C::X) ; ((<= SB!C::BIASED 0) (* SB!C::X 0.0)) ((>= SB!C::BIASED #) SB!C::X) ; (T ; (LET # ; # ; #))))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; ==> ; #'(SB!INT:NAMED-LAMBDA SB!C::%UNARY-FTRUNCATE/SINGLE ; (SB!C::X) ; (DECLARE (TYPE SINGLE-FLOAT SB!C::X)) ; (DECLARE (OPTIMIZE SPEED (SAFETY 0))) ; (BLOCK SB!C::%UNARY-FTRUNCATE/SINGLE ; (LET* ((SB!C::BITS #) (EXP #) (SB!C::BIASED #)) ; (DECLARE (TYPE # SB!C::BITS)) ; (COND (# SB!C::X) (# #) (# SB!C::X) (T #))))) ; ; note: doing float to pointer coercion (cost 13) to "" ; x-compiling (DEFUN %UNARY-FTRUNCATE/DOUBLE ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/float-tran.lisp ; in: DEFUN %UNARY-FTRUNCATE/DOUBLE ; (DEFUN SB!C::%UNARY-FTRUNCATE/DOUBLE (SB!C::X) ; (DECLARE (TYPE DOUBLE-FLOAT SB!C::X)) ; (DECLARE (OPTIMIZE SPEED (SAFETY 0))) ; (LET* ((SB!C::HIGH (SB!KERNEL:DOUBLE-FLOAT-HIGH-BITS SB!C::X)) ; (SB!C::LOW (SB!KERNEL:DOUBLE-FLOAT-LOW-BITS SB!C::X)) ; (EXP (SB-XC:LDB SB!VM:DOUBLE-FLOAT-EXPONENT-BYTE SB!C::HIGH)) ; (SB!C::BIASED (THE SB!KERNEL:DOUBLE-FLOAT-EXPONENT #))) ; (DECLARE (TYPE (SIGNED-BYTE 32) SB!C::HIGH) ; (TYPE (UNSIGNED-BYTE 32) SB!C::LOW)) ; (COND ((= EXP SB!VM:DOUBLE-FLOAT-NORMAL-EXPONENT-MAX) SB!C::X) ; ((<= SB!C::BIASED 0) (* SB!C::X 0.0d0)) ; ((>= SB!C::BIASED #) SB!C::X) ; (T ; (LET # ; # ; #))))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; ==> ; #'(SB!INT:NAMED-LAMBDA SB!C::%UNARY-FTRUNCATE/DOUBLE ; (SB!C::X) ; (DECLARE (TYPE DOUBLE-FLOAT SB!C::X)) ; (DECLARE (OPTIMIZE SPEED (SAFETY 0))) ; (BLOCK SB!C::%UNARY-FTRUNCATE/DOUBLE ; (LET* ((SB!C::HIGH #) (SB!C::LOW #) (EXP #) (SB!C::BIASED #)) ; (DECLARE (TYPE # SB!C::HIGH) ; (TYPE # SB!C::LOW)) ; (COND (# SB!C::X) (# #) (# SB!C::X) (T #))))) ; ; note: doing float to pointer coercion (cost 13) to "" ; x-compiling (DEF SINGLE-FLOAT ...) ; x-compiling (DEF DOUBLE-FLOAT ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/float-tran.lisp ; in: DEFUN LOG-DERIVE-TYPE-AUX-2 ; (SB!C::/-DERIVE-TYPE-AUX SB!C::X-TYPE SB!C::Y-TYPE SB!C::SAME-ARG) ; ; caught STYLE-WARNING: ; undefined function: /-DERIVE-TYPE-AUX ; in: DEFUN COSH-DERIVE-TYPE-AUX ; (SB!C::ABS-DERIVE-TYPE-AUX SB!C::X) ; ; caught STYLE-WARNING: ; undefined function: ABS-DERIVE-TYPE-AUX ; in: DEFUN ELFUN-DERIVE-TYPE-SIMPLE ; (SB!C::BOUND-FUNC SB!C::FUN ; (IF SB!C::INCREASINGP ; SB!C::HIGH ; SB!C::LOW) ; NIL) ; ; caught STYLE-WARNING: ; undefined function: BOUND-FUNC ; in: ; PROGN (DEFUN SCALE-FLOAT-DERIVE-TYPE-AUX (F EX SAME-ARG) ; (DECLARE (IGNORE SAME-ARG)) ; (FLET ((SCALE-BOUND # ; #)) ; (WHEN (AND # #) ; (LET # ; # ; # ; #)))) ; (SB!C::FROB SB!KERNEL:%DOUBLE-FLOAT DOUBLE-FLOAT MOST-NEGATIVE-DOUBLE-FLOAT ; MOST-POSITIVE-DOUBLE-FLOAT) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK LET* ; ==> ; (SB!C::BOUND-FUNC ; (LAMBDA (SB!C::X) ; (IF (< MOST-POSITIVE-DOUBLE-FLOAT SB!C::X) ; MOST-POSITIVE-DOUBLE-FLOAT ; (COERCE SB!C::X 'DOUBLE-FLOAT))) ; (SB!KERNEL:NUMERIC-TYPE-HIGH SB!C::NUM) NIL) ; ; caught STYLE-WARNING: ; undefined function: BOUND-FUNC ; (SB!C::FROB SB!KERNEL:%SINGLE-FLOAT SINGLE-FLOAT MOST-NEGATIVE-SINGLE-FLOAT ; MOST-POSITIVE-SINGLE-FLOAT) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK LET* ; ==> ; (SB!C::BOUND-FUNC ; (LAMBDA (SB!C::X) ; (IF (< MOST-POSITIVE-SINGLE-FLOAT SB!C::X) ; MOST-POSITIVE-SINGLE-FLOAT ; (COERCE SB!C::X 'SINGLE-FLOAT))) ; (SB!KERNEL:NUMERIC-TYPE-HIGH SB!C::NUM) NIL) ; ; caught STYLE-WARNING: ; undefined function: BOUND-FUNC ; ; caught STYLE-WARNING: ; 2 more uses of undefined function BOUND-FUNC ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/float-tran.lisp ; in: DEFUN LOG-DERIVE-TYPE-AUX-2 ; (SB!C::FLATTEN-LIST SB!C::ACCUMULATED-LIST) ; ; caught STYLE-WARNING: ; undefined function: FLATTEN-LIST ; in: DEFUN MERGED-INTERVAL-EXPT ; (SB!C::FLATTEN-LIST (SB!C::INTERVAL-EXPT SB!C::X-INT SB!C::Y-INT)) ; ; caught STYLE-WARNING: ; undefined function: FLATTEN-LIST ; in: DEFUN INTERVAL-EXPT-< ; (SB!C::INTERVAL-HIGH SB!C::Y) ; ; caught STYLE-WARNING: ; undefined function: INTERVAL-HIGH ; in: DEFUN INTERVAL-EXPT-> ; (SB!C::INTERVAL-HIGH SB!C::X) ; ; caught STYLE-WARNING: ; undefined function: INTERVAL-HIGH ; in: DEFUN ELFUN-DERIVE-TYPE-SIMPLE ; (SB!C::INTERVAL-HIGH INTERSECTION) ; ; caught STYLE-WARNING: ; undefined function: INTERVAL-HIGH ; ; caught STYLE-WARNING: ; 1 more use of undefined function INTERVAL-HIGH ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/float-tran.lisp ; in: DEFUN ELFUN-DERIVE-TYPE-SIMPLE ; (SB!C::INTERVAL-INTERSECTION/DIFFERENCE ; (SB!C::NUMERIC-TYPE->INTERVAL SB!C::ARG) ; (SB!C::MAKE-INTERVAL :LOW SB!C::DOMAIN-LOW :HIGH SB!C::DOMAIN-HIGH)) ; ; caught STYLE-WARNING: ; undefined function: INTERVAL-INTERSECTION/DIFFERENCE ; in: DEFUN INTERVAL-EXPT-< ; (SB!C::INTERVAL-LOW SB!C::X) ; ; caught STYLE-WARNING: ; undefined function: INTERVAL-LOW ; in: DEFUN INTERVAL-EXPT-> ; (SB!C::INTERVAL-LOW SB!C::X) ; ; caught STYLE-WARNING: ; undefined function: INTERVAL-LOW ; in: DEFUN ELFUN-DERIVE-TYPE-SIMPLE ; (SB!C::INTERVAL-LOW INTERSECTION) ; ; caught STYLE-WARNING: ; undefined function: INTERVAL-LOW ; ; caught STYLE-WARNING: ; 1 more use of undefined function INTERVAL-LOW ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/float-tran.lisp ; in: DEFUN INTERVAL-EXPT ; (SB!C::INTERVAL-RANGE-INFO SB!C::X 1) ; ; caught STYLE-WARNING: ; undefined function: INTERVAL-RANGE-INFO ; in: DEFUN INTERVAL-EXPT-< ; (SB!C::INTERVAL-RANGE-INFO SB!C::Y) ; ; caught STYLE-WARNING: ; undefined function: INTERVAL-RANGE-INFO ; in: DEFUN INTERVAL-EXPT-> ; (SB!C::INTERVAL-RANGE-INFO SB!C::Y 0.0d0) ; ; caught STYLE-WARNING: ; undefined function: INTERVAL-RANGE-INFO ; ; caught STYLE-WARNING: ; 1 more use of undefined function INTERVAL-RANGE-INFO ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/float-tran.lisp ; in: DEFUN INTERVAL-EXPT ; (SB!C::INTERVAL-SPLIT 1 SB!C::X T T) ; ; caught STYLE-WARNING: ; undefined function: INTERVAL-SPLIT ; in: DEFUN INTERVAL-EXPT-< ; (SB!C::INTERVAL-SPLIT 0 SB!C::Y T) ; ; caught STYLE-WARNING: ; undefined function: INTERVAL-SPLIT ; in: DEFUN INTERVAL-EXPT-> ; (SB!C::INTERVAL-SPLIT 0 SB!C::Y T) ; ; caught STYLE-WARNING: ; undefined function: INTERVAL-SPLIT ; in: DEFUN INTERVAL-EXPT-< ; (SB!C::MAKE-INTERVAL :LOW (OR SB!C::LO 0) :HIGH (OR SB!C::HI 1)) ; ; caught STYLE-WARNING: ; undefined function: MAKE-INTERVAL ; in: DEFUN INTERVAL-EXPT-> ; (SB!C::MAKE-INTERVAL :LOW (OR SB!C::LO 1) :HIGH SB!C::HI) ; ; caught STYLE-WARNING: ; undefined function: MAKE-INTERVAL ; in: DEFUN ELFUN-DERIVE-TYPE-SIMPLE ; (SB!C::MAKE-INTERVAL :LOW SB!C::DOMAIN-LOW :HIGH SB!C::DOMAIN-HIGH) ; ; caught STYLE-WARNING: ; undefined function: MAKE-INTERVAL ; in: DEFUN PHASE-DERIVE-TYPE-AUX ; (SB!C::NUMERIC-TYPE->INTERVAL SB!C::ARG) ; ; caught STYLE-WARNING: ; undefined function: NUMERIC-TYPE->INTERVAL ; in: DEFUN MERGED-INTERVAL-EXPT ; (SB!C::NUMERIC-TYPE->INTERVAL SB!C::Y) ; ; caught STYLE-WARNING: ; undefined function: NUMERIC-TYPE->INTERVAL ; in: DEFUN ELFUN-DERIVE-TYPE-SIMPLE ; (SB!C::NUMERIC-TYPE->INTERVAL SB!C::ARG) ; ; caught STYLE-WARNING: ; undefined function: NUMERIC-TYPE->INTERVAL ; in: ; PROGN (DEFUN ELFUN-DERIVE-TYPE-SIMPLE ; (ARG FUN DOMAIN-LOW DOMAIN-HIGH DEFAULT-LOW ...) ; (DECLARE (TYPE (OR NULL REAL) DOMAIN-LOW DOMAIN-HIGH)) ; (ETYPECASE ARG (NUMERIC-TYPE (COND # # #)))) ; (SB!C::FROB EXP NIL NIL 0 NIL) ; --> SB!C:DEFOPTIMIZER PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN ; --> SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET* ; ==> ; (SB!C::ONE-ARG-DERIVE-TYPE #:G79226 ; (LAMBDA (SB!C::ARG) ; (SB!C::ELFUN-DERIVE-TYPE-SIMPLE SB!C::ARG #'EXP ; NIL NIL 0 NIL T)) ; #'EXP) ; ; caught STYLE-WARNING: ; undefined function: ONE-ARG-DERIVE-TYPE ; in: ; PROGN (DEFUN SCALE-FLOAT-DERIVE-TYPE-AUX (F EX SAME-ARG) ; (DECLARE (IGNORE SAME-ARG)) ; (FLET ((SCALE-BOUND # ; #)) ; (WHEN (AND # #) ; (LET # ; # ; # ; #)))) ; (SB!C::FROB SB!KERNEL:%DOUBLE-FLOAT DOUBLE-FLOAT MOST-NEGATIVE-DOUBLE-FLOAT ; MOST-POSITIVE-DOUBLE-FLOAT) ; --> PROGN SB!C:DEFOPTIMIZER PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN ; --> SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET* HANDLER-CASE SB!INT:DX-FLET FLET ; --> BLOCK MULTIPLE-VALUE-PROG1 ; ==> ; (SB!C::ONE-ARG-DERIVE-TYPE SB!C::NUM #'SB!C::%DOUBLE-FLOAT-DERIVE-TYPE-AUX ; #'SB!KERNEL:%DOUBLE-FLOAT) ; ; caught STYLE-WARNING: ; undefined function: ONE-ARG-DERIVE-TYPE ; (SB!C::FROB SB!KERNEL:%SINGLE-FLOAT SINGLE-FLOAT MOST-NEGATIVE-SINGLE-FLOAT ; MOST-POSITIVE-SINGLE-FLOAT) ; --> PROGN SB!C:DEFOPTIMIZER PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN ; --> SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET* HANDLER-CASE SB!INT:DX-FLET FLET ; --> BLOCK MULTIPLE-VALUE-PROG1 ; ==> ; (SB!C::ONE-ARG-DERIVE-TYPE SB!C::NUM #'SB!C::%SINGLE-FLOAT-DERIVE-TYPE-AUX ; #'SB!KERNEL:%SINGLE-FLOAT) ; ; caught STYLE-WARNING: ; undefined function: ONE-ARG-DERIVE-TYPE ; ; caught STYLE-WARNING: ; 20 more uses of undefined function ONE-ARG-DERIVE-TYPE ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/float-tran.lisp ; in: DEFUN LOG-DERIVE-TYPE-AUX-2 ; (SB!C::PREPARE-ARG-FOR-DERIVE-TYPE SB!C::LOG-Y) ; ; caught STYLE-WARNING: ; undefined function: PREPARE-ARG-FOR-DERIVE-TYPE ; in: DEFOPTIMIZER (CONJUGATE DERIVE-TYPE) ; (SB!C::SET-BOUND (- (SB!INT:TYPE-BOUND-NUMBER SB!C::H)) (CONSP SB!C::H)) ; ; caught STYLE-WARNING: ; undefined function: SET-BOUND ; in: DEFUN SCALE-FLOAT-DERIVE-TYPE-AUX ; (SB!C::SET-BOUND ; (HANDLER-CASE (SCALE-FLOAT (SB!INT:TYPE-BOUND-NUMBER SB!C::X) SB!C::N) ; (FLOATING-POINT-OVERFLOW NIL NIL)) ; (CONSP SB!C::X)) ; ; caught STYLE-WARNING: ; undefined function: SET-BOUND ; in: DEFOPTIMIZER (EXPT DERIVE-TYPE) ; (SB!C::TWO-ARG-DERIVE-TYPE SB!C::X SB!C::Y #'SB!C::EXPT-DERIVE-TYPE-AUX ; #'EXPT) ; ; caught STYLE-WARNING: ; undefined function: TWO-ARG-DERIVE-TYPE ; in: DEFOPTIMIZER (SCALE-DOUBLE-FLOAT DERIVE-TYPE) ; (SB!C::TWO-ARG-DERIVE-TYPE SB!C::F SB!C::EX ; #'SB!C::SCALE-FLOAT-DERIVE-TYPE-AUX ; #'SB!KERNEL:SCALE-DOUBLE-FLOAT T) ; ; caught STYLE-WARNING: ; undefined function: TWO-ARG-DERIVE-TYPE ; in: DEFOPTIMIZER (SCALE-SINGLE-FLOAT DERIVE-TYPE) ; (SB!C::TWO-ARG-DERIVE-TYPE SB!C::F SB!C::EX ; #'SB!C::SCALE-FLOAT-DERIVE-TYPE-AUX ; #'SB!KERNEL:SCALE-SINGLE-FLOAT T) ; ; caught STYLE-WARNING: ; undefined function: TWO-ARG-DERIVE-TYPE ; ; caught STYLE-WARNING: ; 3 more uses of undefined function TWO-ARG-DERIVE-TYPE ; ; compilation unit finished ; Undefined functions: ; /-DERIVE-TYPE-AUX ABS-DERIVE-TYPE-AUX BOUND-FUNC FLATTEN-LIST INTERVAL-HIGH INTERVAL-INTERSECTION/DIFFERENCE INTERVAL-LOW INTERVAL-RANGE-INFO INTERVAL-SPLIT MAKE-INTERVAL NUMERIC-TYPE->INTERVAL ONE-ARG-DERIVE-TYPE PREPARE-ARG-FOR-DERIVE-TYPE SET-BOUND TWO-ARG-DERIVE-TYPE ; caught 41 STYLE-WARNING conditions ; printed 5 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/float-tran.lisp-obj-tmp written ; compilation finished in 0:00:01.395 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/saptran.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFTRANSFORM FOREIGN-SYMBOL-ADDRESS ...) ; x-compiling (DEFTRANSFORM FOREIGN-SYMBOL-SAP ...) ; x-compiling (DEFKNOWN (SAP< SAP<= ...) ...) ; x-compiling (DEFKNOWN SAP+ ...) ; x-compiling (DEFKNOWN SAP- ...) ; x-compiling (DEFKNOWN SAP-INT ...) ; x-compiling (DEFKNOWN INT-SAP ...) ; x-compiling (DEFSAPREF SAP-REF-8 ...) ; x-compiling (DEFSAPREF SAP-REF-16 ...) ; x-compiling (DEFSAPREF SAP-REF-32 ...) ; x-compiling (DEFSAPREF SAP-REF-64 ...) ; x-compiling (DEFSAPREF SAP-REF-WORD ...) ; x-compiling (DEFSAPREF SIGNED-SAP-REF-8 ...) ; x-compiling (DEFSAPREF SIGNED-SAP-REF-16 ...) ; x-compiling (DEFSAPREF SIGNED-SAP-REF-32 ...) ; x-compiling (DEFSAPREF SIGNED-SAP-REF-64 ...) ; x-compiling (DEFSAPREF SIGNED-SAP-REF-WORD ...) ; x-compiling (DEFSAPREF SAP-REF-SAP ...) ; x-compiling (DEFSAPREF SAP-REF-LISPOBJ ...) ; x-compiling (DEFSAPREF SAP-REF-SINGLE ...) ; x-compiling (DEFSAPREF SAP-REF-DOUBLE ...) ; x-compiling (DEFSAPREF SAP-REF-LONG ...) ; x-compiling (DEF SAP< ...) ; x-compiling (DEF SAP<= ...) ; x-compiling (DEF SAP= ...) ; x-compiling (DEF SAP>= ...) ; x-compiling (DEF SAP> ...) ; x-compiling (DEFTRANSFORM SAP+ ...) ; x-compiling (DEF SAP-REF-8) ; x-compiling (DEF %SET-SAP-REF-8 ...) ; x-compiling (DEF SIGNED-SAP-REF-8) ; x-compiling (DEF %SET-SIGNED-SAP-REF-8 ...) ; x-compiling (DEF SAP-REF-16) ; x-compiling (DEF %SET-SAP-REF-16 ...) ; x-compiling (DEF SIGNED-SAP-REF-16) ; x-compiling (DEF %SET-SIGNED-SAP-REF-16 ...) ; x-compiling (DEF SAP-REF-32) ; x-compiling (DEF %SET-SAP-REF-32 ...) ; x-compiling (DEF SIGNED-SAP-REF-32) ; x-compiling (DEF %SET-SIGNED-SAP-REF-32 ...) ; x-compiling (DEF SAP-REF-64) ; x-compiling (DEF %SET-SAP-REF-64 ...) ; x-compiling (DEF SIGNED-SAP-REF-64) ; x-compiling (DEF %SET-SIGNED-SAP-REF-64 ...) ; x-compiling (DEF SAP-REF-SAP) ; x-compiling (DEF %SET-SAP-REF-SAP ...) ; x-compiling (DEF SAP-REF-LISPOBJ) ; x-compiling (DEF %SET-SAP-REF-LISPOBJ ...) ; x-compiling (DEF SAP-REF-SINGLE) ; x-compiling (DEF %SET-SAP-REF-SINGLE ...) ; x-compiling (DEF SAP-REF-DOUBLE) ; x-compiling (DEF %SET-SAP-REF-DOUBLE ...) ; x-compiling (DEF SAP-REF-WORD ...) ; x-compiling (DEF SIGNED-SAP-REF-WORD ...) ; x-compiling (DEF %SET-SAP-REF-WORD ...) ; x-compiling (DEF %SET-SIGNED-SAP-REF-WORD ...) ; x-compiling (DEFTRANSFORM SAP-REF-64 ...) ; x-compiling (DEFTRANSFORM SIGNED-SAP-REF-64 ...) ; x-compiling (DEFTRANSFORM %SET-SAP-REF-64 ...) ; x-compiling (DEFTRANSFORM %SET-SIGNED-SAP-REF-64 ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/saptran.lisp ; in: DEF SIGNED-SAP-REF-8 ; (SB!C::DEF SB!SYS:SIGNED-SAP-REF-8) ; --> PROGN PROGN SB!C:DEFTRANSFORM SB!C::%DEFTRANSFORM SB!C::%DEFTRANSFORM ; --> LAMBDA FUNCTION MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL PROGN ; ==> ; (SB!C::FOLD-INDEX-ADDRESSING 'SB!C::SIGNED-SAP-REF-8-WITH-OFFSET 8 0 0 ; SB!C::OFFSET SB!C::DISP NIL) ; ; caught STYLE-WARNING: ; undefined function: FOLD-INDEX-ADDRESSING ; in: DEF %SET-SAP-REF-8 ; (SB!C::DEF SB!KERNEL:%SET-SAP-REF-8 T (UNSIGNED-BYTE 8)) ; --> PROGN PROGN SB!C:DEFTRANSFORM SB!C::%DEFTRANSFORM SB!C::%DEFTRANSFORM ; --> LAMBDA FUNCTION MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL PROGN ; ==> ; (SB!C::FOLD-INDEX-ADDRESSING 'SB!C::%SET-SAP-REF-8-WITH-OFFSET 8 0 0 ; SB!C::OFFSET SB!C::DISP T) ; ; caught STYLE-WARNING: ; undefined function: FOLD-INDEX-ADDRESSING ; in: DEF SAP-REF-8 ; (SB!C::DEF SB!SYS:SAP-REF-8) ; --> PROGN PROGN SB!C:DEFTRANSFORM SB!C::%DEFTRANSFORM SB!C::%DEFTRANSFORM ; --> LAMBDA FUNCTION MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL PROGN ; ==> ; (SB!C::FOLD-INDEX-ADDRESSING 'SB!C::SAP-REF-8-WITH-OFFSET 8 0 0 SB!C::OFFSET ; SB!C::DISP NIL) ; ; caught STYLE-WARNING: ; undefined function: FOLD-INDEX-ADDRESSING ; ; caught STYLE-WARNING: ; 19 more uses of undefined function FOLD-INDEX-ADDRESSING ; ; compilation unit finished ; Undefined function: ; FOLD-INDEX-ADDRESSING ; caught 4 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/saptran.lisp-obj-tmp written ; compilation finished in 0:00:00.638 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/srctran.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFINE-SOURCE-TRANSFORM IDENTITY ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM VALUES ...) ; x-compiling (DEFOPTIMIZER (CONSTANTLY DERIVE-TYPE) ...) ; x-compiling (DEFTRANSFORM COMPLEMENT ...) ; x-compiling (DEFUN DERIVE-SYMBOL-VALUE-TYPE ...) ; x-compiling (DEFOPTIMIZER (SYMBOL-VALUE DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (SYMBOL-GLOBAL-VALUE DERIVE-TYPE) ...) ; x-compiling (DEFUN SOURCE-TRANSFORM-CXR ...) ; x-compiling (/SHOW0 "about to set CxR source transforms") ; x-compiling (LOOP FOR ...) ; x-compiling (/SHOW0 "done setting CxR source transforms") ; x-compiling (DEFINE-SOURCE-TRANSFORM REST ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM FIRST ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM SECOND ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM THIRD ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM FOURTH ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM FIFTH ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM SIXTH ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM SEVENTH ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM EIGHTH ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM NINTH ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM TENTH ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM LIST ...) ; x-compiling (DEFOPTIMIZER (LIST DERIVE-TYPE) ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM LIST* ...) ; x-compiling (DEFOPTIMIZER (LIST* DERIVE-TYPE) ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM NCONC ...) ; x-compiling (DEFUN DERIVE-APPEND-TYPE ...) ; x-compiling (DEFOPTIMIZER (APPEND DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (SB!IMPL::APPEND2 DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (NCONC DERIVE-TYPE) ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM RPLACA ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM RPLACD ...) ; x-compiling (DEFTRANSFORM LAST ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM GETHASH ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM GET ...) ; x-compiling (DEFVAR *DEFAULT-NTHCDR-OPEN-CODE-LIMIT* ...) ; x-compiling (DEFVAR *EXTREME-NTHCDR-OPEN-CODE-LIMIT* ...) ; x-compiling (DEFTRANSFORM NTHCDR ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM PLUSP ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM MINUSP ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM ZEROP ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM 1+ ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM 1- ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM ODDP ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM EVENP ...) ; x-compiling (DEFFROB TRUNCATE) ; x-compiling (DEFFROB ROUND) ; x-compiling (DEFFROB FLOOR) ; x-compiling (DEFFROB CEILING) ; x-compiling (DEFTRANSFORM LOGTEST ...) ; x-compiling (DEFTRANSFORM LOGBITP ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM BYTE ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM BYTE-SIZE ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM BYTE-POSITION ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM LDB-TEST ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM NUMERATOR ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM DENOMINATOR ...) ; x-compiling (DEF SIGNED-ZERO->= ...) ; x-compiling (DEF SIGNED-ZERO-> ...) ; x-compiling (DEF SIGNED-ZERO-= ...) ; x-compiling (DEF SIGNED-ZERO-< ...) ; x-compiling (DEF SIGNED-ZERO-<= ...) ; x-compiling (DEFSTRUCT (INTERVAL # ...) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/srctran.lisp ; in: DEFSTRUCT INTERVAL ; (DEFSTRUCT (SB!C::INTERVAL (:CONSTRUCTOR SB!C::%MAKE-INTERVAL) (:COPIER NIL)) ; SB!C::LOW ; SB!C::HIGH) ; --> PROGN EVAL-WHEN ; ==> ; (SB!KERNEL::%COMPILER-DEFSTRUCT ; '# ; '#(# ; #)) ; ; caught STYLE-WARNING: ; Previously compiled calls to SB!C::INTERVAL-LOW and SB!C::INTERVAL-HIGH could ; not be inlined because the structure definition for SB!C::INTERVAL was not yet ; seen. To avoid this warning, DEFSTRUCT should precede references to the ; affected functions, or they must be declared locally notinline at each call ; site. ; x-compiling (DEFUN MAKE-INTERVAL ...) ; x-compiling (DECLAIM (INLINE SET-BOUND)) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/srctran.lisp ; in: DECLAIM (INLINE SET-BOUND) ; (DECLAIM (INLINE SB!C::SET-BOUND)) ; --> EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE SB!C::SET-BOUND)) ; ; caught STYLE-WARNING: ; Proclaiming SB!C::SET-BOUND to be INLINE, but 3 calls to it were previously ; compiled. A declaration of NOTINLINE at the call sites will eliminate this ; warning, as will proclaiming and defining the function before its first ; potential use. ; x-compiling (DEFUN SET-BOUND ...) ; x-compiling (DEFUN BOUND-FUNC ...) ; x-compiling (DEFUN SAFE-DOUBLE-COERCION-P ...) ; x-compiling (DEFUN SAFE-SINGLE-COERCION-P ...) ; x-compiling (DEFMACRO SAFELY-BINOP ...) ; x-compiling (DEFMACRO BOUND-BINOP ...) ; x-compiling (DEFUN COERCION-LOSES-PRECISION-P ...) ; x-compiling (DEFUN COERCE-FOR-BOUND ...) ; x-compiling (DEFUN COERCE-AND-TRUNCATE-FLOATS ...) ; x-compiling (DEFUN NUMERIC-TYPE->INTERVAL ...) ; x-compiling (DEFUN TYPE-APPROXIMATE-INTERVAL ...) ; x-compiling (DEFUN COPY-INTERVAL-LIMIT ...) ; x-compiling (DEFUN COPY-INTERVAL ...) ; x-compiling (DEFUN INTERVAL-SPLIT ...) ; x-compiling (DEFUN INTERVAL-CLOSURE ...) ; x-compiling (DEFUN INTERVAL-RANGE-INFO ...) ; x-compiling (DEFUN INTERVAL-BOUNDED-P ...) ; x-compiling (DEFUN INTERVAL-CONTAINS-P ...) ; x-compiling (DEFUN INTERVAL-INTERSECT-P ...) ; x-compiling (DEFUN INTERVAL-ADJACENT-P ...) ; x-compiling (DEFUN INTERVAL-INTERSECTION/DIFFERENCE ...) ; x-compiling (DEFUN INTERVAL-MERGE-PAIR ...) ; x-compiling (DEFUN INTERVAL-APPROXIMATE-UNION ...) ; x-compiling (DEFUN INTERVAL-NEG ...) ; x-compiling (DEFUN INTERVAL-ADD ...) ; x-compiling (DEFUN INTERVAL-SUB ...) ; x-compiling (DEFUN INTERVAL-MUL ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/srctran.lisp ; in: DEFUN INTERVAL-MUL ; (SB!INT:BUG "excluded case in INTERVAL-MUL") ; ==> ; "excluded case in INTERVAL-MUL" ; ; note: deleting unreachable code ; x-compiling (DEFUN INTERVAL-DIV ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/srctran.lisp ; in: DEFUN INTERVAL-DIV ; (SB!INT:BUG "excluded case in INTERVAL-DIV") ; ==> ; "excluded case in INTERVAL-DIV" ; ; note: deleting unreachable code ; x-compiling (DEFUN INTERVAL-FUNC ...) ; x-compiling (DEFUN INTERVAL-< ...) ; x-compiling (DEFUN INTERVAL->= ...) ; x-compiling (DEFUN INTERVAL-= ...) ; x-compiling (DEFUN INTERVAL-/= ...) ; x-compiling (DEFUN INTERVAL-ABS ...) ; x-compiling (DEFUN INTERVAL-SQR ...) ; x-compiling (DEFUN DERIVE-INTEGER-TYPE-AUX ...) ; x-compiling (DEFUN DERIVE-INTEGER-TYPE ...) ; x-compiling (DEFUN FLATTEN-LIST ...) ; x-compiling (DEFUN PREPARE-ARG-FOR-DERIVE-TYPE ...) ; x-compiling (DEFUN CONVERT-NUMERIC-TYPE ...) ; x-compiling (DEFUN CONVERT-BACK-NUMERIC-TYPE ...) ; x-compiling (DEFUN CONVERT-BACK-NUMERIC-TYPE-LIST ...) ; x-compiling (DEFVAR *DERIVED-NUMERIC-UNION-COMPLEXITY-LIMIT* ...) ; x-compiling (DEFUN MAKE-DERIVED-UNION-TYPE ...) ; x-compiling (DEFUN CONVERT-MEMBER-TYPE ...) ; x-compiling (DEFUN ONE-ARG-DERIVE-TYPE ...) ; x-compiling (DEFUN TWO-ARG-DERIVE-TYPE ...) ; x-compiling (DEFUN +-DERIVE-TYPE-AUX ...) ; x-compiling (DEFOPTIMIZER (+ DERIVE-TYPE) ...) ; x-compiling (DEFUN --DERIVE-TYPE-AUX ...) ; x-compiling (DEFOPTIMIZER (- DERIVE-TYPE) ...) ; x-compiling (DEFUN *-DERIVE-TYPE-AUX ...) ; x-compiling (DEFOPTIMIZER (* DERIVE-TYPE) ...) ; x-compiling (DEFUN /-DERIVE-TYPE-AUX ...) ; x-compiling (DEFOPTIMIZER (/ DERIVE-TYPE) ...) ; x-compiling (DEFUN ASH-DERIVE-TYPE-AUX ...) ; x-compiling (DEFOPTIMIZER (ASH DERIVE-TYPE) ...) ; x-compiling (DEFUN LOGNOT-DERIVE-TYPE-AUX ...) ; x-compiling (DEFOPTIMIZER (LOGNOT DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (%NEGATE DERIVE-TYPE) ...) ; x-compiling (DEFUN ABS-DERIVE-TYPE-AUX ...) ; x-compiling (DEFOPTIMIZER (ABS DERIVE-TYPE) ...) ; x-compiling (DEFUN REM-RESULT-TYPE ...) ; x-compiling (DEFUN TRUNCATE-DERIVE-TYPE-QUOT ...) ; x-compiling (DEFUN TRUNCATE-DERIVE-TYPE-REM ...) ; x-compiling (DEFUN TRUNCATE-DERIVE-TYPE-QUOT-AUX ...) ; x-compiling (DEFUN TRUNCATE-DERIVE-TYPE-REM-AUX ...) ; x-compiling (DEFOPTIMIZER (TRUNCATE DERIVE-TYPE) ...) ; x-compiling (DEFUN FTRUNCATE-DERIVE-TYPE-QUOT ...) ; x-compiling (DEFUN FTRUNCATE-DERIVE-TYPE-QUOT-AUX ...) ; x-compiling (DEFOPTIMIZER (FTRUNCATE DERIVE-TYPE) ...) ; x-compiling (DEFUN %UNARY-TRUNCATE-DERIVE-TYPE-AUX ...) ; x-compiling (DEFOPTIMIZER (%UNARY-TRUNCATE DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (%UNARY-TRUNCATE/SINGLE-FLOAT DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (%UNARY-TRUNCATE/DOUBLE-FLOAT DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (%UNARY-FTRUNCATE DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (%UNARY-ROUND DERIVE-TYPE) ...) ; x-compiling (DEF FLOOR ...) ; x-compiling (DEF CEILING ...) ; x-compiling (DEF FFLOOR ...) ; x-compiling (DEF FCEILING ...) ; x-compiling (DEFUN FLOOR-QUOTIENT-BOUND ...) ; x-compiling (DEFUN FLOOR-REM-BOUND ...) ; x-compiling (DEFUN CEILING-QUOTIENT-BOUND ...) ; x-compiling (DEFUN CEILING-REM-BOUND ...) ; x-compiling (DEFUN TRUNCATE-QUOTIENT-BOUND ...) ; x-compiling (DEFUN TRUNCATE-REM-BOUND ...) ; x-compiling (DEFUN NUMERIC-RANGE-INFO ...) ; x-compiling (DEFUN INTEGER-TRUNCATE-DERIVE-TYPE ...) ; x-compiling (DEFUN RANDOM-DERIVE-TYPE-AUX ...) ; x-compiling (DEFOPTIMIZER (RANDOM DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (INTEGER-LENGTH DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (LOGCOUNT DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (ISQRT DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (CHAR-CODE DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (CODE-CHAR DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (VALUES DERIVE-TYPE) ...) ; x-compiling (DEFUN SIGNUM-DERIVE-TYPE-AUX ...) ; x-compiling (DEFOPTIMIZER (SIGNUM DERIVE-TYPE) ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM LDB ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM DPB ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM MASK-FIELD ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM DEPOSIT-FIELD ...) ; x-compiling (DEFOPTIMIZER (%LDB DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (%MASK-FIELD DERIVE-TYPE) ...) ; x-compiling (DEFUN %DEPOSIT-FIELD-DERIVE-TYPE-AUX ...) ; x-compiling (DEFOPTIMIZER (%DPB DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (%DEPOSIT-FIELD DERIVE-TYPE) ...) ; x-compiling (DEFTRANSFORM %LDB ...) ; x-compiling (DEFTRANSFORM %MASK-FIELD ...) ; x-compiling (DEFTRANSFORM %DPB ...) ; x-compiling (DEFTRANSFORM %DPB ...) ; x-compiling (DEFTRANSFORM %DEPOSIT-FIELD ...) ; x-compiling (DEFTRANSFORM %DEPOSIT-FIELD ...) ; x-compiling (DEFOPTIMIZER (MASK-SIGNED-FIELD DERIVE-TYPE) ...) ; x-compiling (DEFUN %ASH/RIGHT ...) ; x-compiling (DEFTRANSFORM ASH ...) ; x-compiling (DEFTRANSFORM ASH ...) ; x-compiling (DEFTRANSFORM %ASH/RIGHT ...) ; x-compiling (DEFTRANSFORM %ASH/RIGHT ...) ; x-compiling (DEFUN %ASH/RIGHT-DERIVE-TYPE-AUX ...) ; x-compiling (DEFOPTIMIZER (%ASH/RIGHT DERIVE-TYPE) ...) ; x-compiling (DEFUN MAKE-MODULAR-FUN-TYPE-DERIVER ...) ; x-compiling (DEFUN CUT-TO-WIDTH ...) ; x-compiling (DEFUN BEST-MODULAR-VERSION ...) ; x-compiling (DEFUN INTEGER-TYPE-NUMERIC-BOUNDS ...) ; x-compiling (DEFOPTIMIZER (LOGAND OPTIMIZER) ...) ; x-compiling (DEFOPTIMIZER (MASK-SIGNED-FIELD OPTIMIZER) ...) ; x-compiling (DEFOPTIMIZER (LOGIOR OPTIMIZER) ...) ; x-compiling (DEFTRANSFORM BOOLE ...) ; x-compiling (DEFTRANSFORM * ...) ; x-compiling (DEFTRANSFORM FLOOR ...) ; x-compiling (DEFTRANSFORM CEILING ...) ; x-compiling (DEFTRANSFORM REM ...) ; x-compiling (DEFTRANSFORM MOD ...) ; x-compiling (FLET (#) ...) ; x-compiling (DEFTRANSFORM MOD ...) ; x-compiling (DEFTRANSFORM TRUNCATE ...) ; x-compiling (DEFTRANSFORM REM ...) ; x-compiling (DEFUN GEN-UNSIGNED-DIV-BY-CONSTANT-EXPR ...) ; x-compiling (DEFTRANSFORM TRUNCATE ...) ; x-compiling (DEF ASH ...) ; x-compiling (DEF LOGAND ...) ; x-compiling (DEF LOGAND ...) ; x-compiling (DEF LOGIOR ...) ; x-compiling (DEF LOGIOR ...) ; x-compiling (DEF LOGXOR ...) ; x-compiling (DEF LOGXOR ...) ; x-compiling (DEFUN LEAST-ZERO-BIT ...) ; x-compiling (DEFTRANSFORM LOGAND ...) ; x-compiling (DEFTRANSFORM MASK-SIGNED-FIELD ...) ; x-compiling (DEFTRANSFORM LOGIOR ...) ; x-compiling (DEF LOGAND) ; x-compiling (DEF LOGIOR) ; x-compiling (DEF LOGXOR) ; x-compiling (DEF LOGTEST ...) ; x-compiling (DEF + ...) ; x-compiling (DEF + ...) ; x-compiling (DEF * ...) ; x-compiling (DEF * ...) ; x-compiling (DEFTRANSFORM MASK-SIGNED-FIELD ...) ; x-compiling (DEFTRANSFORM - ...) ; x-compiling (DEFTRANSFORM * ...) ; x-compiling (DEFTRANSFORM %NEGATE ...) ; x-compiling (DEFTRANSFORM %NEGATE ...) ; x-compiling (DEFUN NOT-MORE-CONTAGIOUS ...) ; x-compiling (DEF!TYPE EXACT-NUMBER ...) ; x-compiling (DEFTRANSFORM + ...) ; x-compiling (DEFTRANSFORM - ...) ; x-compiling (DEF * ...) ; x-compiling (DEF / ...) ; x-compiling (DEF EXPT ...) ; x-compiling (DEFTRANSFORM EXPT ...) ; x-compiling (DEFTRANSFORM EXPT ...) ; x-compiling (DEF ASH) ; x-compiling (DEF /) ; x-compiling (DEF TRUNCATE) ; x-compiling (DEF ROUND) ; x-compiling (DEF FLOOR) ; x-compiling (DEF CEILING) ; x-compiling (DEF TRUNCATE) ; x-compiling (DEF ROUND) ; x-compiling (DEF FLOOR) ; x-compiling (DEF CEILING) ; x-compiling (DEF FTRUNCATE ...) ; x-compiling (DEF FROUND ...) ; x-compiling (DEF FFLOOR ...) ; x-compiling (DEF FCEILING ...) ; x-compiling (DEFTRANSFORM TWO-ARG-CHAR-EQUAL ...) ; x-compiling (DEFTRANSFORM TWO-ARG-CHAR-EQUAL ...) ; x-compiling (DEFTRANSFORM CHAR-UPCASE ...) ; x-compiling (DEFTRANSFORM CHAR-DOWNCASE ...) ; x-compiling (DEFUN SAME-LEAF-REF-P ...) ; x-compiling (DEFTRANSFORM SIMPLE-EQUALITY-TRANSFORM ...) ; x-compiling (DEF EQ) ; x-compiling (DEF CHAR=) ; x-compiling (DEF TWO-ARG-CHAR-EQUAL) ; x-compiling (DEFTRANSFORM EQL ...) ; x-compiling (DEFTRANSFORM EQUAL ...) ; x-compiling (DEFTRANSFORM EQUALP ...) ; x-compiling (DEFTRANSFORM = ...) ; x-compiling (DEFUN MAYBE-FLOAT-LVAR-P ...) ; x-compiling (FLET (#) ...) ; x-compiling (DEF = ...) ; x-compiling (DEF /= ...) ; x-compiling (DEF < ...) ; x-compiling (DEF > ...) ; x-compiling (DEF <= ...) ; x-compiling (DEF >= ...) ; x-compiling (DEFUN IR1-TRANSFORM-CHAR< ...) ; x-compiling (DEFTRANSFORM CHAR< ...) ; x-compiling (DEFTRANSFORM CHAR> ...) ; x-compiling (DEFUN MULTI-COMPARE ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM = ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM < ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM > ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM <= ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM >= ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM CHAR= ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM CHAR< ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM CHAR> ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM CHAR<= ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM CHAR>= ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM CHAR-EQUAL ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM CHAR-LESSP ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM CHAR-GREATERP ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM CHAR-NOT-GREATERP ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM CHAR-NOT-LESSP ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN MULTI-NOT-EQUAL ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM /= ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM CHAR/= ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM CHAR-NOT-EQUAL ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM MAX ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM MIN ...) ; x-compiling (DEF < ...) ; x-compiling (DEF > ...) ; x-compiling (DEFTRANSFORM = ...) ; x-compiling (DEFTRANSFORM = ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN ASSOCIATE-ARGS ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN REDUCE-CONSTANTS ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN SOURCE-TRANSFORM-TRANSITIVE ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM + ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM * ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM LOGIOR ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM LOGXOR ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM LOGAND ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM LOGEQV ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM GCD ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM LCM ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN SOURCE-TRANSFORM-INTRANSITIVE ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/srctran.lisp ; in: DEFUN SOURCE-TRANSFORM-INTRANSITIVE ; (DEFUN SB!C::SOURCE-TRANSFORM-INTRANSITIVE ; (SB!C::FUN SB!C::FUN* SB!C::ARGS IDENTITY SB!C::ONE-ARG-PREFIXES ; &OPTIONAL (SB!C::ONE-ARG-RESULT-TYPE 'NUMBER)) ; (CASE (LENGTH SB!C::ARGS) ; ((0 2) (VALUES NIL T)) ; (1 (SB!INT:QUASIQUOTE (# #))) ; (T ; (LET (#) ; (SB!C::ASSOCIATE-ARGS SB!C::FUN # SB!C::REDUCED-ARGS IDENTITY))))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; ==> ; #'(SB!INT:NAMED-LAMBDA SB!C::SOURCE-TRANSFORM-INTRANSITIVE ; (SB!C::FUN SB!C::FUN* SB!C::ARGS IDENTITY SB!C::ONE-ARG-PREFIXES ; &OPTIONAL (SB!C::ONE-ARG-RESULT-TYPE 'NUMBER)) ; (BLOCK SB!C::SOURCE-TRANSFORM-INTRANSITIVE ; (CASE (LENGTH SB!C::ARGS) ; ((0 2) (VALUES NIL T)) ; (1 (SB!INT:QUASIQUOTE #)) ; (T ; (LET # ; #))))) ; ; note: type assertion too complex to check: ; (VALUES LIST &OPTIONAL (MEMBER T NIL)). ; x-compiling (DEFINE-SOURCE-TRANSFORM - ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM / ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM APPLY ...) ; x-compiling (DEFUN POSSIBLE-REST-ARG-CONTEXT ...) ; x-compiling (DEFUN MARK-MORE-CONTEXT-USED ...) ; x-compiling (DEFUN MARK-MORE-CONTEXT-INVALID ...) ; x-compiling (DEFUN REST-VAR-MORE-CONTEXT-OK ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM VALUES-LIST ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM NTH ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM FAST-&REST-NTH ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM ELT ...) ; x-compiling (DEFUN SOURCE-TRANSFORM-CAR ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM CAR ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM CADR ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM CADDR ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM CADDDR ...) ; x-compiling (DEFUN SOURCE-TRANSFORM-LENGTH ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM LENGTH ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM LIST-LENGTH ...) ; x-compiling (DEFUN SOURCE-TRANSFORM-NULL ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM NOT ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM NULL ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM ENDP ...) ; x-compiling (DEFTRANSFORM %REST-VALUES ...) ; x-compiling (DEFTRANSFORM %REST-REF ...) ; x-compiling (DEFTRANSFORM %REST-LENGTH ...) ; x-compiling (DEFTRANSFORM %REST-NULL ...) ; x-compiling (DEFTRANSFORM %REST-TRUE ...) ; x-compiling (DEFUN CHECK-FORMAT-ARGS ...) ; x-compiling (DEFOPTIMIZER (FORMAT OPTIMIZER) ...) ; x-compiling (DEFTRANSFORM FORMAT ...) ; x-compiling (DEFTRANSFORM FORMAT ...) ; x-compiling (DEFTRANSFORM FORMAT ...) ; x-compiling (DEFTRANSFORM FORMAT ...) ; x-compiling (DEFUN CONCATENATE-FORMAT-P ...) ; x-compiling (DEFTRANSFORM FORMAT ...) ; x-compiling (DEFTRANSFORM PATHNAME ...) ; x-compiling (DEFTRANSFORM PATHNAME ...) ; x-compiling (DEF ERROR) ; x-compiling (DEF WARN) ; x-compiling (DEFOPTIMIZER (CERROR OPTIMIZER) ...) ; x-compiling (DEFOPTIMIZER (COERCE DERIVE-TYPE) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/srctran.lisp ; in: DEFOPTIMIZER (COERCE DERIVE-TYPE) ; (LET ((ELT (FIRST (SB!KERNEL:MEMBER-TYPE-MEMBERS SB!C::CAR-TYPE)))) ; (OR (SYMBOLP ELT) (NUMBERP ELT) (AND (LISTP ELT) (NUMBERP (FIRST ELT))))) ; ; note: deleting unreachable code ; (LISTP ELT) ; ==> ; ELT ; ; note: deleting unreachable code ; (FIRST ELT) ; --> CAR ; ==> ; ELT ; ; note: deleting unreachable code ; (LET ((ELT (FIRST (SB!KERNEL:MEMBER-TYPE-MEMBERS SB!C::CAR-TYPE)))) ; (OR (SYMBOLP ELT) (NUMBERP ELT) (AND (LISTP ELT) (NUMBERP (FIRST ELT))))) ; ; note: deleting unreachable code ; (NUMBERP ELT) ; ==> ; ELT ; ; note: deleting unreachable code ; (SB!KERNEL:CONS-TYPE-CDR-TYPE SB!KERNEL:CONS-TYPE) ; --> SB!EXT:TRULY-THE SB!KERNEL:%INSTANCE-REF THE ; ==> ; SB!KERNEL:CONS-TYPE ; ; note: deleting unreachable code ; (SB!KERNEL:MEMBER-TYPE-SIZE SB!KERNEL:CONS-TYPE) ; ==> ; SB!KERNEL:CONS-TYPE ; ; note: deleting unreachable code ; (SB!KERNEL:MEMBER-TYPE-MEMBERS SB!KERNEL:CONS-TYPE) ; ; note: deleting unreachable code ; (SB!KERNEL:MEMBER-TYPE-SIZE SB!KERNEL:CONS-TYPE) ; ; note: deleting unreachable code ; (SB!KERNEL:MEMBER-TYPE-MEMBERS SB!KERNEL:CONS-TYPE) ; ==> ; SB!KERNEL:CONS-TYPE ; ; note: deleting unreachable code ; (LET ((SB!C::C-TYPE (SB!C::UNCONSIFY-TYPE (SB!KERNEL:TYPE-SPECIFIER TYPE)))) ; (IF (SB!C::COERCEABLE-P SB!C::C-TYPE) ; (SB!KERNEL:SPECIFIER-TYPE SB!C::C-TYPE) ; SB!KERNEL:*UNIVERSAL-TYPE*)) ; ; note: deleting unreachable code ; (SB!KERNEL:SPECIFIER-TYPE SB!C::C-TYPE) ; ==> ; SB!C::C-TYPE ; ; note: deleting unreachable code ; (IF (SB!C::COERCEABLE-P SB!C::C-TYPE) ; (SB!KERNEL:SPECIFIER-TYPE SB!C::C-TYPE) ; SB!KERNEL:*UNIVERSAL-TYPE*) ; ==> ; SB!KERNEL:*UNIVERSAL-TYPE* ; ; note: deleting unreachable code ; x-compiling (DEFOPTIMIZER (COMPILE DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (ARRAY-ELEMENT-TYPE DERIVE-TYPE) ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM SB!IMPL::SORT-VECTOR ...) ; x-compiling (DEFTRANSFORM SORT ...) ; x-compiling (DEFTRANSFORM STABLE-SORT ...) ; x-compiling (DEFKNOWN /REPORT-LVAR ...) ; x-compiling (DEFTRANSFORM /REPORT-LVAR ...) ; x-compiling (DEFUN /REPORT-LVAR ...) ; x-compiling (DEFKNOWN SET-INFO-VALUE ...) ; x-compiling (DEFOPTIMIZER (SET-INFO-VALUE DERIVE-TYPE) ...) ; x-compiling (DEFTRANSFORM POLICY-QUALITY ...) ; x-compiling (DEFTRANSFORM ENCODE-UNIVERSAL-TIME ...) ; x-compiling (DEFTRANSFORM SLEEP ...) ; x-compiling (DEFTRANSFORM SLEEP ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/srctran.lisp ; in: DEFOPTIMIZER (CERROR OPTIMIZER) ; (SB!FORMAT:%COMPILER-WALK-FORMAT-STRING SB!C::Y SB!C::ARGS) ; ; caught STYLE-WARNING: ; undefined function: SB!FORMAT:%COMPILER-WALK-FORMAT-STRING ; in: DEFUN CHECK-FORMAT-ARGS ; (SB!FORMAT:%COMPILER-WALK-FORMAT-STRING STRING SB!C::ARGS) ; ; caught STYLE-WARNING: ; undefined function: SB!FORMAT:%COMPILER-WALK-FORMAT-STRING ; in: DEFTRANSFORM FORMAT ; (SB!FORMAT::%FORMATTER SB!C::CONTROL SB!C::ARGC NIL) ; ; caught STYLE-WARNING: ; undefined function: SB!FORMAT::%FORMATTER ; in: DEFUN CONCATENATE-FORMAT-P ; (SB!FORMAT::FORMAT-DIRECTIVE-ATSIGNP SB!C::DIRECTIVE) ; ; caught STYLE-WARNING: ; undefined function: SB!FORMAT::FORMAT-DIRECTIVE-ATSIGNP ; in: DEFTRANSFORM FORMAT ; (SB!INT:QUASIQUOTE ; (LAMBDA ; (STREAM SB!C::CONTROL #S(SB!IMPL::COMMA :EXPR SB!C::ARG-NAMES :KIND 2)) ; (DECLARE (IGNORE STREAM SB!C::CONTROL)) ; (CONCATENATE 'STRING ; #S(SB!IMPL::COMMA ; :EXPR (LOOP SB!C::FOR SB!C::DIRECTIVE SB!C::IN SB!C::TOKENIZED ; SB!C::FOR CHAR = # ; WHEN # ; SB!INT:COLLECT ...) ; :KIND 2)))) ; --> SB!IMPL::|List| SB!IMPL::|List*| LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* SB!LOOP::LOOP-BODY TAGBODY ; --> SB!LOOP::LOOP-REALLY-DESETQ SETQ THE AND IF AND THE ; ==> ; (SB!FORMAT::FORMAT-DIRECTIVE-CHARACTER SB!C::DIRECTIVE) ; ; caught STYLE-WARNING: ; undefined function: SB!FORMAT::FORMAT-DIRECTIVE-CHARACTER ; in: DEFUN CONCATENATE-FORMAT-P ; (SB!FORMAT::FORMAT-DIRECTIVE-CHARACTER SB!C::DIRECTIVE) ; ; caught STYLE-WARNING: ; undefined function: SB!FORMAT::FORMAT-DIRECTIVE-CHARACTER ; (SB!FORMAT::FORMAT-DIRECTIVE-COLONP SB!C::DIRECTIVE) ; ; caught STYLE-WARNING: ; undefined function: SB!FORMAT::FORMAT-DIRECTIVE-COLONP ; in: DEFTRANSFORM FORMAT ; (SB!INT:QUASIQUOTE ; (LAMBDA ; (STREAM SB!C::CONTROL #S(SB!IMPL::COMMA :EXPR SB!C::ARG-NAMES :KIND 2)) ; (DECLARE (IGNORE STREAM SB!C::CONTROL)) ; (CONCATENATE 'STRING ; #S(SB!IMPL::COMMA ; :EXPR (LOOP SB!C::FOR SB!C::DIRECTIVE SB!C::IN SB!C::TOKENIZED ; SB!C::FOR CHAR = # ; WHEN # ; SB!INT:COLLECT ...) ; :KIND 2)))) ; --> SB!IMPL::|List| SB!IMPL::|List*| LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* SB!LOOP::LOOP-BODY TAGBODY ; --> IF SETQ THE COND IF COND IF COND THE PROGN LET OR LET CDAR CDR CAR ; ==> ; (SB!FORMAT::FORMAT-DIRECTIVE-PARAMS SB!C::DIRECTIVE) ; ; caught STYLE-WARNING: ; undefined function: SB!FORMAT::FORMAT-DIRECTIVE-PARAMS ; in: DEFUN CONCATENATE-FORMAT-P ; (SB!FORMAT::FORMAT-DIRECTIVE-PARAMS SB!C::DIRECTIVE) ; ; caught STYLE-WARNING: ; undefined function: SB!FORMAT::FORMAT-DIRECTIVE-PARAMS ; in: DEFTRANSFORM FORMAT ; (HANDLER-CASE ; (SB!FORMAT::TOKENIZE-CONTROL-STRING (SB!C::LVAR-VALUE SB!C::CONTROL)) ; (SB!FORMAT:FORMAT-ERROR NIL (SB!C::GIVE-UP-IR1-TRANSFORM))) ; --> SB!INT:DX-FLET FLET BLOCK SB!INT:DX-LET LET TAGBODY ; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK ; ==> ; (TYPEP CONDITION 'SB!FORMAT:FORMAT-ERROR) ; ; caught STYLE-WARNING: ; undefined type: SB!FORMAT:FORMAT-ERROR ; (HANDLER-CASE (SB!FORMAT::%FORMATTER SB!C::CONTROL SB!C::ARGC NIL) ; (SB!FORMAT:FORMAT-ERROR NIL ; (SB!INT:QUASIQUOTE ; (FORMATTER #S(SB!IMPL::COMMA :EXPR SB!C::CONTROL :KIND 0))))) ; --> SB!INT:DX-FLET FLET BLOCK SB!INT:DX-LET LET TAGBODY ; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK ; ==> ; (TYPEP CONDITION 'SB!FORMAT:FORMAT-ERROR) ; ; caught STYLE-WARNING: ; undefined type: SB!FORMAT:FORMAT-ERROR ; in: DEFUN CHECK-FORMAT-ARGS ; (HANDLER-CASE (SB!FORMAT:%COMPILER-WALK-FORMAT-STRING STRING SB!C::ARGS) ; (SB!FORMAT:FORMAT-ERROR (SB!C::C) ; (SB!C:COMPILER-WARN "~A" SB!C::C))) ; --> SB!INT:DX-FLET FLET BLOCK SB!INT:DX-LET LET TAGBODY ; --> SB!IMPL::%HANDLER-BIND SB!INT:DX-FLET FLET BLOCK ; ==> ; (TYPEP CONDITION 'SB!FORMAT:FORMAT-ERROR) ; ; caught STYLE-WARNING: ; undefined type: SB!FORMAT:FORMAT-ERROR ; ; caught STYLE-WARNING: ; 10 more uses of undefined type SB!FORMAT:FORMAT-ERROR ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/srctran.lisp ; in: DEFUN MAKE-MODULAR-FUN-TYPE-DERIVER ; (SB!C::LOGAND-DERIVE-TYPE-AUX SB!C::RES SB!C::MASK-TYPE) ; ; caught STYLE-WARNING: ; undefined function: LOGAND-DERIVE-TYPE-AUX ; in: DEFTRANSFORM LOGTEST ; #'SB!C::LOGAND-DERIVE-TYPE-AUX ; ; caught STYLE-WARNING: ; undefined function: LOGAND-DERIVE-TYPE-AUX ; in: DEFTRANSFORM FORMAT ; (SB!FORMAT::TOKENIZE-CONTROL-STRING (SB!C::LVAR-VALUE SB!C::CONTROL)) ; ; caught STYLE-WARNING: ; undefined function: SB!FORMAT::TOKENIZE-CONTROL-STRING ; (SB!INT:QUASIQUOTE ; (LAMBDA ; (STREAM SB!C::CONTROL #S(SB!IMPL::COMMA :EXPR SB!C::ARG-NAMES :KIND 2)) ; (DECLARE (IGNORE STREAM SB!C::CONTROL)) ; (CONCATENATE 'STRING ; #S(SB!IMPL::COMMA ; :EXPR (LOOP SB!C::FOR SB!C::DIRECTIVE SB!C::IN SB!C::TOKENIZED ; SB!C::FOR CHAR = # ; WHEN # ; SB!INT:COLLECT ...) ; :KIND 2)))) ; --> SB!IMPL::|List| SB!IMPL::|List*| LOOP BLOCK LET LET LET ; --> SB!LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* SB!LOOP::LOOP-BODY TAGBODY ; --> IF SETQ THE COND IF COND IF COND THE PROGN LET AND IF AND THE MAKE-STRING ; --> THE MAKE-ARRAY LOCALLY MAKE-ARRAY SB!EXT:TRULY-THE ; ==> ; (FILL ; (SB!EXT:TRULY-THE (SIMPLE-ARRAY CHARACTER (*)) ; (SB!KERNEL:ALLOCATE-VECTOR 226 (THE SB!INT:INDEX LENGTH) ; (* (+ LENGTH 1) 1))) ; (THE CHARACTER SB!C::INITIAL-ELEMENT)) ; ; caught STYLE-WARNING: ; undefined function: UB32-BASH-FILL ; ; compilation unit finished ; Undefined type: ; SB!FORMAT:FORMAT-ERROR ; Undefined functions: ; SB!FORMAT:%COMPILER-WALK-FORMAT-STRING SB!FORMAT::%FORMATTER SB!FORMAT::FORMAT-DIRECTIVE-ATSIGNP SB!FORMAT::FORMAT-DIRECTIVE-CHARACTER SB!FORMAT::FORMAT-DIRECTIVE-COLONP SB!FORMAT::FORMAT-DIRECTIVE-PARAMS LOGAND-DERIVE-TYPE-AUX SB!FORMAT::TOKENIZE-CONTROL-STRING UB32-BASH-FILL ; caught 19 STYLE-WARNING conditions ; printed 16 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/srctran.lisp-obj-tmp written ; compilation finished in 0:00:02.944 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/bitops-derive-type.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFUN INTEGER-TYPE-LENGTH ...) ; x-compiling (DECLAIM (INLINE ZEROES)) ; x-compiling (DEFUN ZEROES ...) ; x-compiling (DECLAIM (INLINE ONES)) ; x-compiling (DEFUN ONES ...) ; x-compiling (DEFUN LOGAND-DERIVE-UNSIGNED-BOUNDS ...) ; x-compiling (DEFUN LOGAND-DERIVE-TYPE-AUX ...) ; x-compiling (DEFUN LOGIOR-DERIVE-UNSIGNED-BOUNDS ...) ; x-compiling (DEFUN LOGIOR-DERIVE-TYPE-AUX ...) ; x-compiling (DEFUN LOGXOR-DERIVE-UNSIGNED-BOUNDS ...) ; x-compiling (DEFUN LOGXOR-DERIVE-TYPE-AUX ...) ; x-compiling (DEFFROB LOGAND) ; x-compiling (DEFFROB LOGIOR) ; x-compiling (DEFFROB LOGXOR) ; x-compiling (DEFOPTIMIZER (LOGEQV DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (LOGNAND DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (LOGNOR DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (LOGANDC1 DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (LOGANDC2 DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (LOGORC1 DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (LOGORC2 DERIVE-TYPE) ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/bitops-derive-type.lisp-obj-tmp written ; compilation finished in 0:00:00.164 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/vm-tran.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFINE-SOURCE-TRANSFORM SHORT-FLOAT-P ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM LONG-FLOAT-P ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM COMPILED-FUNCTION-P ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM CHAR-INT ...) ; x-compiling (DEFTRANSFORM ABS ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM %BIGNUM-REF ...) ; x-compiling (DEFUN FOLD-INDEX-ADDRESSING ...) ; x-compiling (DEFTRANSFORM %BIGNUM-REF-WITH-OFFSET ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM %INSTANCE-LAYOUT ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM %SET-INSTANCE-LAYOUT ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM %FUNCALLABLE-INSTANCE-LAYOUT ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM %SET-FUNCALLABLE-INSTANCE-LAYOUT ...) ; x-compiling (DEFTRANSFORM HAIRY-DATA-VECTOR-REF ...) ; x-compiling (DEFTRANSFORM HAIRY-DATA-VECTOR-REF ...) ; x-compiling (DEFTRANSFORM DATA-VECTOR-REF ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM DATA-VECTOR-REF ...) ; x-compiling (DEFTRANSFORM DATA-VECTOR-REF-WITH-OFFSET ...) ; x-compiling (DEFTRANSFORM HAIRY-DATA-VECTOR-SET ...) ; x-compiling (DEFTRANSFORM HAIRY-DATA-VECTOR-SET ...) ; x-compiling (DEFTRANSFORM DATA-VECTOR-SET ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM DATA-VECTOR-SET ...) ; x-compiling (DEFTRANSFORM DATA-VECTOR-SET-WITH-OFFSET ...) ; x-compiling (DEFUN MAYBE-ARRAY-DATA-VECTOR-TYPE-SPECIFIER ...) ; x-compiling (DEF %ARRAY-DATA-VECTOR) ; x-compiling (DEF ARRAY-STORAGE-VECTOR) ; x-compiling (DEFOPTIMIZER (%DATA-VECTOR-AND-INDEX DERIVE-TYPE) ...) ; x-compiling (DEFTRANSFORM %DATA-VECTOR-AND-INDEX ...) ; x-compiling (DEF BIT-AND ...) ; x-compiling (DEF BIT-IOR ...) ; x-compiling (DEF BIT-XOR ...) ; x-compiling (DEF BIT-EQV ...) ; x-compiling (DEF BIT-NAND ...) ; x-compiling (DEF BIT-NOR ...) ; x-compiling (DEF BIT-ANDC1 ...) ; x-compiling (DEF BIT-ANDC2 ...) ; x-compiling (DEF BIT-ORC1 ...) ; x-compiling (DEF BIT-ORC2 ...) ; x-compiling (DEFTRANSFORM BIT-NOT ...) ; x-compiling (DEFTRANSFORM BIT-VECTOR-= ...) ; x-compiling (DEFTRANSFORM COUNT ...) ; x-compiling (DEFTRANSFORM FILL ...) ; x-compiling (DEFTRANSFORM FILL ...) ; x-compiling (DEFTRANSFORM %BYTE-BLT ...) ; x-compiling (DEFTRANSFORM EQL ...) ; x-compiling (DEFTRANSFORM EQL ...) ; x-compiling (DEFINE-GOOD-MODULAR-FUN LOGAND ...) ; x-compiling (DEFINE-GOOD-MODULAR-FUN LOGIOR ...) ; x-compiling (DEFINE-GOOD-MODULAR-FUN LOGXOR ...) ; x-compiling (DEFINE-GOOD-SIGNED-MODULAR-FUNS LOGAND ...) ; x-compiling (DEF SB!VM::ASH-LEFT-MODFX ...) ; x-compiling (DEF SB!VM::ASH-LEFT-MOD32 ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM WORD-LOGICAL-NOT ...) ; x-compiling (DEFTRANSFORM WORD-LOGICAL-AND ...) ; x-compiling (DEFTRANSFORM WORD-LOGICAL-NAND ...) ; x-compiling (DEFTRANSFORM WORD-LOGICAL-OR ...) ; x-compiling (DEFTRANSFORM WORD-LOGICAL-NOR ...) ; x-compiling (DEFTRANSFORM WORD-LOGICAL-XOR ...) ; x-compiling (DEFTRANSFORM WORD-LOGICAL-EQV ...) ; x-compiling (DEFTRANSFORM WORD-LOGICAL-ORC1 ...) ; x-compiling (DEFTRANSFORM WORD-LOGICAL-ORC2 ...) ; x-compiling (DEFTRANSFORM WORD-LOGICAL-ANDC1 ...) ; x-compiling (DEFTRANSFORM WORD-LOGICAL-ANDC2 ...) ; x-compiling (DEFUN UB32-STRENGTH-REDUCE-CONSTANT-MULTIPLY ...) ; x-compiling (DEFTRANSFORM GET-LISP-OBJ-ADDRESS ...) ; x-compiling (DEFTRANSFORM GET-LISP-OBJ-ADDRESS ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/vm-tran.lisp ; in: DEFUN FOLD-INDEX-ADDRESSING ; (SB!VM::FOLDABLE-CONSTANT-OFFSET-P SB!C::ELEMENT-SIZE SB!C::LOWTAG ; SB!C::DATA-OFFSET ; (SETF SB!C::NEW-OFFSET ; (FUNCALL SB!C::FUNC ; (SB!C::LVAR-VALUE ; SB!C::OFFSET) ; SB!C::VALUE))) ; ; caught STYLE-WARNING: ; undefined function: SB!VM::FOLDABLE-CONSTANT-OFFSET-P ; ; compilation unit finished ; Undefined function: ; SB!VM::FOLDABLE-CONSTANT-OFFSET-P ; caught 1 STYLE-WARNING condition ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/generic/vm-tran.lisp-obj-tmp written ; compilation finished in 0:00:00.533 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/locall.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFUN PROPAGATE-TO-ARGS ...) ; x-compiling (DEFUN RECOGNIZE-DYNAMIC-EXTENT-LVARS ...) ; x-compiling (DEFUN MERGE-TAIL-SETS ...) ; x-compiling (DEFUN CONVERT-CALL ...) ; x-compiling (DEFUN MAKE-XEP-LAMBDA-EXPRESSION ...) ; x-compiling (DEFUN MAKE-XEP ...) ; x-compiling (DEFUN LOCALL-ANALYZE-XEP-ENTRY-POINT ...) ; x-compiling (DEFUN REFERENCE-ENTRY-POINT ...) ; x-compiling (DEFUN LOCALL-ANALYZE-FUN-1 ...) ; x-compiling (DEFUN LOCALL-ANALYZE-COMPONENT ...) ; x-compiling (DEFUN LOCALL-ANALYZE-CLAMBDAS-UNTIL-DONE ...) ; x-compiling (DEFUN MAYBE-EXPAND-LOCAL-INLINE ...) ; x-compiling (DEFUN CONVERT-CALL-IF-POSSIBLE ...) ; x-compiling (DEFUN CONVERT-MV-CALL ...) ; x-compiling (DEFUN TRANSFORM-CALL-WITH-IR1-ENVIRONMENT ...) ; x-compiling (DEFUN WARN-INVALID-LOCAL-CALL ...) ; x-compiling (DEFUN CONVERT-LAMBDA-CALL ...) ; x-compiling (DEFUN CONVERT-HAIRY-CALL ...) ; x-compiling (DEFUN CONVERT-HAIRY-FUN-ENTRY ...) ; x-compiling (DEFUN CONVERT-MORE-CALL ...) ; x-compiling (DEFUN INSERT-LET-BODY ...) ; x-compiling (DEFUN DEPART-FROM-TAIL-SET ...) ; x-compiling (DEFUN MERGE-LETS ...) ; x-compiling (DEFUN MOVE-RETURN-USES ...) ; x-compiling (DEFUN UNCONVERT-TAIL-CALLS ...) ; x-compiling (DEFUN MOVE-RETURN-STUFF ...) ; x-compiling (DEFUN LET-CONVERT ...) ; x-compiling (DEFUN REOPTIMIZE-CALL ...) ; x-compiling (DEFUN DECLARATIONS-SUPPRESS-LET-CONVERSION-P ...) ; x-compiling (DEFUN OK-INITIAL-CONVERT-P ...) ; x-compiling (DEFUN SUBSTITUTE-LET-FUNARGS ...) ; x-compiling (DEFUN MAYBE-LET-CONVERT ...) ; x-compiling (DEFUN ONLY-HARMLESS-CLEANUPS ...) ; x-compiling (DEFUN MAYBE-CONVERT-TAIL-LOCAL-CALL ...) ; x-compiling (DEFUN MAYBE-CONVERT-TO-ASSIGNMENT ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/locall.lisp ; in: DEFUN MERGE-LETS ; (SB!C::GET-LAMBDA-PHYSENV SB!C::HOME) ; ; caught STYLE-WARNING: ; undefined function: GET-LAMBDA-PHYSENV ; in: DEFUN INSERT-LET-BODY ; (SB!C::JOIN-COMPONENTS SB!C:COMPONENT SB!C::CLAMBDA-COMPONENT) ; ; caught STYLE-WARNING: ; undefined function: JOIN-COMPONENTS ; ; compilation unit finished ; Undefined functions: ; GET-LAMBDA-PHYSENV JOIN-COMPONENTS ; caught 2 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/locall.lisp-obj-tmp written ; compilation finished in 0:00:00.492 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/dfo.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN FIND-DFO ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN JOIN-COMPONENTS ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN FIND-DFO-AUX ...) ; x-compiling (DEFUN SCAVENGE-HOME-DEPENDENCY-GRAPH ...) ; x-compiling (DEFUN FIND-INITIAL-DFO-AUX ...) ; x-compiling (DEFUN FIND-REFERENCE-FUNS ...) ; x-compiling (DEFUN DFO-SCAVENGE-DEPENDENCY-GRAPH ...) ; x-compiling (DEFUN HAS-XEP-OR-NLX ...) ; x-compiling (DEFUN SEPARATE-TOPLEVELISH-COMPONENTS ...) ; x-compiling (DEFUN FIND-INITIAL-DFO ...) ; x-compiling (DEFUN MERGE-1-TOPLEVEL-LAMBDA ...) ; x-compiling (DEFUN MERGE-TOPLEVEL-LAMBDAS ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/dfo.lisp-obj-tmp written ; compilation finished in 0:00:00.260 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/checkgen.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFUN FUN-GUESSED-COST ...) ; x-compiling (DEFUN TYPE-TEST-COST ...) ; x-compiling (DEFUN WEAKEN-INTEGER-TYPE ...) ; x-compiling (DEFUN-CACHED (WEAKEN-TYPE :HASH-BITS ...) ...) ; x-compiling (DEFUN WEAKEN-VALUES-TYPE ...) ; x-compiling (DEFUN MAYBE-WEAKEN-CHECK ...) ; x-compiling (DEFUN NO-FUN-VALUES-TYPES ...) ; x-compiling (DEFVAR *COMPLEMENT-TYPE-CHECKS* ...) ; x-compiling (DEFUN MAYBE-NEGATE-CHECK ...) ; x-compiling (DEFUN CAST-CHECK-TYPES ...) ; x-compiling (DEFUN CAST-EXTERNALLY-CHECKABLE-P ...) ; x-compiling (DEFUN PROBABLE-TYPE-CHECK-P ...) ; x-compiling (DEFGLOBAL **TYPE-SPEC-INTERR-SYMBOLS** ...) ; x-compiling (DEFUN %INTERR-SYMBOL-FOR-TYPE-SPEC ...) ; x-compiling (DEFUN MAKE-TYPE-CHECK-FORM ...) ; x-compiling (DEFUN CONVERT-TYPE-CHECK ...) ; x-compiling (DEFUN CAST-CHECK-USES ...) ; x-compiling (DEFUN GENERATE-TYPE-CHECKS ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/checkgen.lisp ; in: DEFGLOBAL **TYPE-SPEC-INTERR-SYMBOLS** ; (SB!EXT:DEFGLOBAL SB!C::**TYPE-SPEC-INTERR-SYMBOLS** ; (LET* ((SB!C::ENTRIES #(# # # # # # # # # # # # ...)) ; (SB!C::HASHTABLE ; (MAKE-ARRAY # :INITIAL-ELEMENT NIL))) ; (MAP NIL ; (LAMBDA (SB!C::ENTRY) ; (LET* # ; #)) ; SB!C::ENTRIES) ; SB!C::HASHTABLE)) ; --> PROGN LET LET ; ==> ; (SB!IMPL::%DEFGLOBAL 'SB!C::**TYPE-SPEC-INTERR-SYMBOLS** ; (UNLESS #:BOUNDP ; (LET* ((SB!C::ENTRIES #) (SB!C::HASHTABLE #)) ; (MAP NIL (LAMBDA # #) SB!C::ENTRIES) ; SB!C::HASHTABLE)) ; #:BOUNDP 'NIL NIL (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::%DEFGLOBAL ; in: ; DEFUN-CACHED (WEAKEN-TYPE :HASH-BITS 7 :HASH-FUNCTION #'TYPE-HASH-VALUE) ; (SB!INT:DEFUN-CACHED (SB!C::WEAKEN-TYPE :HASH-BITS 7 :HASH-FUNCTION ; #'SB!KERNEL:TYPE-HASH-VALUE) ; ((TYPE EQ)) ; (DECLARE (TYPE SB!KERNEL:CTYPE TYPE)) ; (COND ((SB!KERNEL:NAMED-TYPE-P TYPE) TYPE) ; ((SB!KERNEL:CSUBTYPEP TYPE (SB!KERNEL:SPECIFIER-TYPE 'INTEGER)) ; (SB!C::WEAKEN-INTEGER-TYPE TYPE)) ; (T ; (LET (# # #) ; (DOLIST # #) ; (IF SB!C::FOUND-SUPER ; SB!C::MIN-TYPE ; TYPE))))) ; --> PROGN SB!INT:DEFINE-HASH-CACHE PROGN SB!EXT:DEFGLOBAL PROGN LET LET ; ==> ; (SB!IMPL::%DEFGLOBAL 'SB!C::**WEAKEN-TYPE-CACHE-VECTOR** ; (UNLESS #:BOUNDP NIL) #:BOUNDP 'NIL NIL ; (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::%DEFGLOBAL ; in: DEFUN MAYBE-NEGATE-CHECK ; (EVERY #'SB!C::TYPE-CHECK-TEMPLATE SB!C::SIMPLE-RES) ; --> LET BLOCK FLET BLOCK LET FUNCALL ; ==> ; (SB!C::%FUNCALL #'SB!C::TYPE-CHECK-TEMPLATE #:G137) ; ; caught STYLE-WARNING: ; undefined function: TYPE-CHECK-TEMPLATE ; in: DEFUN TYPE-TEST-COST ; (SB!C::TYPE-CHECK-TEMPLATE TYPE) ; ; caught STYLE-WARNING: ; undefined function: TYPE-CHECK-TEMPLATE ; ; compilation unit finished ; Undefined functions: ; SB!IMPL::%DEFGLOBAL TYPE-CHECK-TEMPLATE ; caught 4 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/checkgen.lisp-obj-tmp written ; compilation finished in 0:00:00.307 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/constraint.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DECLAIM (TYPE # ...)) ; x-compiling (DEFVAR *CONSTRAINT-UNIVERSE*) ; x-compiling (DEFTYPE CONSTRAINT-Y ...) ; x-compiling (DEFSTRUCT (CONSTRAINT # ...) ...) ; x-compiling (DECLAIM (INLINE %CONSTRAINT-NUMBER)) ; x-compiling (DEFUN %CONSTRAINT-NUMBER ...) ; x-compiling (DEFSTRUCT (CONSET # ...) ...) ; x-compiling (DEFUN CONSET-EMPTY ...) ; x-compiling (DEFUN COPY-CONSET ...) ; x-compiling (DEFUN %CONSET-GROW ...) ; x-compiling (DECLAIM (INLINE CONSET-GROW)) ; x-compiling (DEFUN CONSET-GROW ...) ; x-compiling (DEFUN CONSET-MEMBER ...) ; x-compiling (DEFUN CONSET-ADJOIN ...) ; x-compiling (DEFUN CONSET= ...) ; x-compiling (DEFCONSETOP CONSET-UNION ...) ; x-compiling (DEFCONSETOP CONSET-INTERSECTION ...) ; x-compiling (DEFCONSETOP CONSET-DIFFERENCE ...) ; x-compiling (DEFUN FIND-CONSTRAINT ...) ; x-compiling (DEFUN REGISTER-CONSTRAINT ...) ; x-compiling (DEFUN FIND-OR-CREATE-CONSTRAINT ...) ; x-compiling (DEFMACRO DO-CONSET-CONSTRAINTS-INTERSECTION ...) ; x-compiling (DEFMACRO DO-EQL-VARS ...) ; x-compiling (DEFMACRO DO-INHERITABLE-CONSTRAINTS ...) ; x-compiling (DEFMACRO DO-PROPAGATABLE-CONSTRAINTS ...) ; x-compiling (DECLAIM (INLINE CONSET-LVAR-LAMBDA-VAR-EQL-P ...)) ; x-compiling (DEFUN CONSET-LVAR-LAMBDA-VAR-EQL-P ...) ; x-compiling (DEFUN CONSET-ADD-LVAR-LAMBDA-VAR-EQL ...) ; x-compiling (DECLAIM (INLINE CONSET-ADD-CONSTRAINT ...)) ; x-compiling (DEFUN CONSET-ADD-CONSTRAINT ...) ; x-compiling (DEFUN CONSET-ADD-CONSTRAINT-TO-EQL ...) ; x-compiling (DECLAIM (INLINE CONSET-CLEAR-LAMBDA-VAR)) ; x-compiling (DEFUN CONSET-CLEAR-LAMBDA-VAR ...) ; x-compiling (DEFUN INHERIT-CONSTRAINTS ...) ; x-compiling (DEFUN ADD-EQL-VAR-VAR-CONSTRAINT ...) ; x-compiling (DECLAIM (INLINE OK-REF-LAMBDA-VAR)) ; x-compiling (DEFUN OK-REF-LAMBDA-VAR ...) ; x-compiling (DEFUN OK-LVAR-LAMBDA-VAR ...) ; x-compiling (DECLAIM (INLINE PRECISE-ADD-TEST-CONSTRAINT)) ; x-compiling (DEFUN PRECISE-ADD-TEST-CONSTRAINT ...) ; x-compiling (DEFUN ADD-TEST-CONSTRAINT ...) ; x-compiling (DECLAIM (INLINE QUICK-ADD-COMPLEMENT-CONSTRAINTS)) ; x-compiling (DEFUN PRECISE-ADD-COMPLEMENT-CONSTRAINTS ...) ; x-compiling (DEFUN QUICK-ADD-COMPLEMENT-CONSTRAINTS ...) ; x-compiling (DEFUN ADD-COMPLEMENT-CONSTRAINTS ...) ; x-compiling (DEFUN ADD-COMBINATION-TEST-CONSTRAINTS ...) ; x-compiling (DEFUN ADD-TEST-CONSTRAINTS ...) ; x-compiling (DEFUN INTEGER-TYPE-P ...) ; x-compiling (DEFUN CONSTRAIN-INTEGER-TYPE ...) ; x-compiling (DEFUN FLOAT-TYPE-P ...) ; x-compiling (DEFUN CONSTRAIN-FLOAT-TYPE ...) ; x-compiling (DEFUN LEAF-VISIBLE-FROM-NODE-P ...) ; x-compiling (DEFUN CONSTRAIN-REF-TYPE ...) ; x-compiling (DEFUN MAYBE-ADD-EQL-VAR-LVAR-CONSTRAINT ...) ; x-compiling (DEFUN MAYBE-ADD-EQL-VAR-VAR-CONSTRAINT ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN CONSTRAINT-PROPAGATE-IN-BLOCK ...) ; x-compiling (DEFUN CONSTRAINT-PROPAGATE-IF ...) ; x-compiling (DEFUN FIND-BLOCK-TYPE-CONSTRAINTS ...) ; x-compiling (DEFUN USE-RESULT-CONSTRAINTS ...) ; x-compiling (DEFUN INIT-VAR-CONSTRAINTS ...) ; x-compiling (DEFUN BLOCK-OUT-FOR-SUCCESSOR ...) ; x-compiling (DEFUN COMPUTE-BLOCK-IN ...) ; x-compiling (DEFUN UPDATE-BLOCK-IN ...) ; x-compiling (DEFUN LEADING-COMPONENT-BLOCKS ...) ; x-compiling (DEFUN NCONC-NEW ...) ; x-compiling (DEFUN FIND-AND-PROPAGATE-CONSTRAINTS ...) ; x-compiling (DEFUN CONSTRAINT-PROPAGATE ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/constraint.lisp ; in: DEFCONSETOP CONSET-INTERSECTION ; (SB!C::DEFCONSETOP SB!C::CONSET-INTERSECTION BIT-AND) ; --> DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; --> BLOCK LET LET SETF PROGN SETF LET* MULTIPLE-VALUE-BIND LET IF OR LET ; --> POSITION NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; (SB!KERNEL:%FIND-POSITION SB!C::ITEM SEQUENCE SB!C::FROM-END SB!C::START ; SB!C::END (SB!KERNEL:EFFECTIVE-FIND-POSITION-KEY SB!C::KEY) ; (SB!KERNEL:EFFECTIVE-FIND-POSITION-TEST SB!C::TEST SB!C::TEST-NOT)) ; ; caught STYLE-WARNING: ; undefined function: %BIT-POSITION/1 ; in: DEFUN CONSET= ; (FIND 1 SB!C::LONGER :START (LENGTH SB!C::SHORTER)) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET ; ==> ; (SB!KERNEL:%FIND-POSITION SB!C::ITEM SEQUENCE SB!C::FROM-END SB!C::START ; SB!C::END (SB!KERNEL:EFFECTIVE-FIND-POSITION-KEY SB!C::KEY) ; (SB!KERNEL:EFFECTIVE-FIND-POSITION-TEST SB!C::TEST SB!C::TEST-NOT)) ; ; caught STYLE-WARNING: ; undefined function: %BIT-POSITION/1 ; in: DEFUN CONSET-EMPTY ; (FIND 1 (SB!C::CONSET-VECTOR SB!C::CONSET) :START ; (SB!C::CONSET-MIN SB!C::CONSET) :END (SB!C::CONSET-MAX SB!C::CONSET)) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET ; ==> ; (SB!KERNEL:%FIND-POSITION SB!C::ITEM SEQUENCE SB!C::FROM-END SB!C::START ; SB!C::END (SB!KERNEL:EFFECTIVE-FIND-POSITION-KEY SB!C::KEY) ; (SB!KERNEL:EFFECTIVE-FIND-POSITION-TEST SB!C::TEST SB!C::TEST-NOT)) ; ; caught STYLE-WARNING: ; undefined function: %BIT-POSITION/1 ; ; caught STYLE-WARNING: ; 1 more use of undefined function %BIT-POSITION/1 ; ; compilation unit finished ; Undefined function: ; %BIT-POSITION/1 ; caught 4 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/constraint.lisp-obj-tmp written ; compilation finished in 0:00:00.880 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/physenvanal.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFUN PHYSENV-ANALYZE ...) ; x-compiling (DEFUN PRE-PHYSENV-ANALYZE-TOPLEVEL ...) ; x-compiling (DEFUN GET-LAMBDA-PHYSENV ...) ; x-compiling (DEFUN REINIT-LAMBDA-PHYSENV ...) ; x-compiling (DEFUN GET-NODE-PHYSENV ...) ; x-compiling (DEFUN %ADD-LAMBDA-VARS-TO-CLOSURES ...) ; x-compiling (DEFUN ADD-LAMBDA-VARS-AND-LET-VARS-TO-CLOSURES ...) ; x-compiling (DEFUN XEP-ALLOCATOR ...) ; x-compiling (DEFUN CLOSE-OVER ...) ; x-compiling (DEFUN ANALYZE-INDIRECT-LAMBDA-VARS ...) ; x-compiling (DEFVAR *FUNCTIONAL-ESCAPE-INFO*) ; x-compiling (DEFUN FUNCTIONAL-MAY-ESCAPE-P ...) ; x-compiling (DEFUN EXIT-SHOULD-CHECK-TAG-P ...) ; x-compiling (DEFUN INSERT-NLX-ENTRY-STUB ...) ; x-compiling (DEFUN NOTE-NON-LOCAL-EXIT ...) ; x-compiling (DEFUN FIND-NON-LOCAL-EXITS ...) ; x-compiling (DEFUN RECHECK-DYNAMIC-EXTENT-LVARS ...) ; x-compiling (DEFUN EMIT-CLEANUPS ...) ; x-compiling (DEFUN FIND-CLEANUP-POINTS ...) ; x-compiling (DEFUN TAIL-ANNOTATE ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/physenvanal.lisp-obj-tmp written ; compilation finished in 0:00:00.243 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/tn.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFVAR *COMPONENT-BEING-COMPILED*) ; x-compiling (DEFMACRO DO-PACKED-TNS ...) ; x-compiling (DEFUN SET-IR2-PHYSENV-LIVE-TNS ...) ; x-compiling (DEFUN SET-IR2-PHYSENV-DEBUG-LIVE-TNS ...) ; x-compiling (DEFUN SET-IR2-COMPONENT-ALIAS-TNS ...) ; x-compiling (DEFUN SET-IR2-COMPONENT-NORMAL-TNS ...) ; x-compiling (DEFUN SET-IR2-COMPONENT-RESTRICTED-TNS ...) ; x-compiling (DEFUN SET-IR2-COMPONENT-WIRED-TNS ...) ; x-compiling (DEFUN DELETE-UNREFERENCED-TNS ...) ; x-compiling (DEFUN MAKE-NORMAL-TN ...) ; x-compiling (DEFUN MAKE-REPRESENTATION-TN ...) ; x-compiling (DEFUN MAKE-WIRED-TN ...) ; x-compiling (DEFUN MAKE-RESTRICTED-TN ...) ; x-compiling (DEFUN PHYSENV-LIVE-TN ...) ; x-compiling (DEFUN PHYSENV-DEBUG-LIVE-TN ...) ; x-compiling (DEFUN COMPONENT-LIVE-TN ...) ; x-compiling (DEFUN SPECIFY-SAVE-TN ...) ; x-compiling (DEFUN MAKE-CONSTANT-TN ...) ; x-compiling (DEFUN MAKE-LOAD-TIME-VALUE-TN ...) ; x-compiling (DEFUN MAKE-ALIAS-TN ...) ; x-compiling (DEFUN MAKE-LOAD-TIME-CONSTANT-TN ...) ; x-compiling (DEFUN REFERENCE-TN ...) ; x-compiling (DEFUN REFERENCE-TN-LIST ...) ; x-compiling (DEFUN DELETE-TN-REF ...) ; x-compiling (DEFUN CHANGE-TN-REF-TN ...) ; x-compiling (DEFUN EMIT-MOVE-TEMPLATE ...) ; x-compiling (DEFUN EMIT-LOAD-TEMPLATE ...) ; x-compiling (DEFUN EMIT-MOVE-ARG-TEMPLATE ...) ; x-compiling (DEFUN EMIT-CONTEXT-TEMPLATE ...) ; x-compiling (DEFUN BLOCK-LABEL ...) ; x-compiling (DEFUN BLOCK-TRAMPOLINE ...) ; x-compiling (DEFUN DROP-THRU-P ...) ; x-compiling (DEFUN REGISTER-DROP-THRU ...) ; x-compiling (DEFUN INSERT-VOP ...) ; x-compiling (DEFUN EMIT-AND-INSERT-VOP ...) ; x-compiling (DEFUN DELETE-VOP ...) ; x-compiling (DEFUN MAKE-N-TNS ...) ; x-compiling (DEFUN LOCATION= ...) ; x-compiling (DEFUN TN-VALUE ...) ; x-compiling (DEFUN IMMEDIATE-TN-P ...) ; x-compiling (DEFUN FORCE-TN-TO-STACK ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/tn.lisp-obj-tmp written ; compilation finished in 0:00:00.491 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/life.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFUN ADD-GLOBAL-CONFLICT ...) ; x-compiling (DEFUN INSERT-BLOCK-GLOBAL-CONFLICT ...) ; x-compiling (DEFUN RESET-CURRENT-CONFLICT ...) ; x-compiling (DEFUN CACHED-BLOCK-PHYSENV ...) ; x-compiling (DEFUN CONVERT-TO-GLOBAL ...) ; x-compiling (DEFUN FIND-LOCAL-REFERENCES ...) ; x-compiling (DEFUN INIT-GLOBAL-CONFLICT-KIND ...) ; x-compiling (DEFEVENT SPLIT-IR2-BLOCK ...) ; x-compiling (DEFUN SPLIT-IR2-BLOCKS ...) ; x-compiling (DEFUN CLEAR-LIFETIME-INFO ...) ; x-compiling (DEFUN COALESCE-MORE-LTN-NUMBERS ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/life.lisp ; in: DEFUN COALESCE-MORE-LTN-NUMBERS ; (SB!C::FIND-IN #'SB!C::GLOBAL-CONFLICTS-NEXT-BLOCKWISE SB!C:TN ; (SB!C::IR2-BLOCK-GLOBAL-TNS BLOCK) :KEY ; #'SB!C::GLOBAL-CONFLICTS-TN) ; ; note: deleting unreachable code ; x-compiling (DEFEVENT COALESCE-MORE-LTN-NUMBERS ...) ; x-compiling (DEFUN LIFETIME-PRE-PASS ...) ; x-compiling (DEFUN SETUP-ENVIRONMENT-TN-CONFLICT ...) ; x-compiling (DEFUN IMPLICIT-VALUE-CELL-TN-P ...) ; x-compiling (DEFUN BLOCK-TAIL-LOCAL-CALL-FUN ...) ; x-compiling (DEFUN SETUP-ENVIRONMENT-TN-CONFLICTS ...) ; x-compiling (DEFUN SETUP-ENVIRONMENT-LIVE-CONFLICTS ...) ; x-compiling (DEFUN CONVERT-TO-ENVIRONMENT-TN ...) ; x-compiling (DEFUN PROPAGATE-LIVE-TNS ...) ; x-compiling (DEFPARAMETER *MAX-FAST-PROPAGATE-LIVE-TN-PASSES* ...) ; x-compiling (DEFUN LIFETIME-FLOW-ANALYSIS ...) ; x-compiling (DEFUN NOTE-CONFLICTS ...) ; x-compiling (DEFUN COMPUTE-SAVE-SET ...) ; x-compiling (DEFUN SAVED-AFTER-READ ...) ; x-compiling (DEFUN MAKE-DEBUG-ENVIRONMENT-TNS-LIVE ...) ; x-compiling (DEFUN COMPUTE-INITIAL-CONFLICTS ...) ; x-compiling (DEFUN CONFLICTIZE-SAVE-P-VOP ...) ; x-compiling (DEFMACRO FROB-MORE-TNS ...) ; x-compiling (DEFMACRO SCAN-VOP-REFS ...) ; x-compiling (DEFMACRO ENSURE-RESULTS-LIVE ...) ; x-compiling (DEFUN CONFLICT-ANALYZE-1-BLOCK ...) ; x-compiling (DEFUN LIFETIME-POST-PASS ...) ; x-compiling (DEFUN MERGE-ALIAS-BLOCK-CONFLICTS ...) ; x-compiling (DEFUN CHANGE-GLOBAL-CONFLICTS-TN ...) ; x-compiling (DEFUN ENSURE-GLOBAL-TN ...) ; x-compiling (DEFUN MERGE-ALIAS-CONFLICTS ...) ; x-compiling (DEFUN MAYBE-ENVIRONMENTALIZE-CLOSURE-TNS ...) ; x-compiling (DEFUN LIFETIME-ANALYZE ...) ; x-compiling (DEFUN TNS-CONFLICT-LOCAL-GLOBAL ...) ; x-compiling (DEFUN TNS-CONFLICT-GLOBAL-GLOBAL ...) ; x-compiling (DEFUN TNS-CONFLICT ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/life.lisp ; in: DEFUN SPLIT-IR2-BLOCKS ; (SB!C::ADD-TO-EMIT-ORDER SB!C::NEW SB!C::2BLOCK) ; ; caught STYLE-WARNING: ; undefined function: ADD-TO-EMIT-ORDER ; in: DEFUN MAYBE-ENVIRONMENTALIZE-CLOSURE-TNS ; (SB!C::FIND-IN-PHYSENV SB!C::CLOSURE-VAR SB!C::PHYSENV) ; ; caught STYLE-WARNING: ; undefined function: FIND-IN-PHYSENV ; ; compilation unit finished ; Undefined functions: ; ADD-TO-EMIT-ORDER FIND-IN-PHYSENV ; caught 2 STYLE-WARNING conditions ; printed 1 note ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/life.lisp-obj-tmp written ; compilation finished in 0:00:00.653 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/debug-dump.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFTYPE BYTE-BUFFER ...) ; x-compiling (DEFVAR *BYTE-BUFFER*) ; x-compiling (DECLAIM (TYPE BYTE-BUFFER ...)) ; x-compiling (DEFTYPE LOCATION-KIND ...) ; x-compiling (DEFSTRUCT (LOCATION-INFO # ...) ...) ; x-compiling (DEFUN NOTE-DEBUG-LOCATION ...) ; x-compiling (DECLAIM (INLINE IR2-BLOCK-PHYSENV)) ; x-compiling (DEFUN IR2-BLOCK-PHYSENV ...) ; x-compiling (DEFUN LEAF-VISIBLE-TO-DEBUGGER-P ...) ; x-compiling (DEFUN COMPUTE-LIVE-VARS ...) ; x-compiling (DEFVAR *PREVIOUS-LOCATION*) ; x-compiling (DECLAIM (TYPE INDEX ...)) ; x-compiling (DEFUN DUMP-1-LOCATION ...) ; x-compiling (DEFUN DUMP-LOCATION-FROM-INFO ...) ; x-compiling (DEFUN FIND-TLF-NUMBER ...) ; x-compiling (DEFUN DUMP-BLOCK-LOCATIONS ...) ; x-compiling (DEFUN COMPUTE-DEBUG-BLOCKS ...) ; x-compiling (DEFUN DEBUG-SOURCE-FOR-INFO ...) ; x-compiling (DEFUN COERCE-TO-SMALLEST-ELTYPE ...) ; x-compiling (DEFUN TN-SC-OFFSET ...) ; x-compiling (DEFUN LAMBDA-ANCESTOR-P ...) ; x-compiling (DEFUN DUMP-1-VAR ...) ; x-compiling (DEFUN COMPUTE-VARS ...) ; x-compiling (DEFUN COMPUTE-MINIMAL-VARS ...) ; x-compiling (DEFUN DEBUG-LOCATION-FOR ...) ; x-compiling (DEFUN COMPUTE-ARGS ...) ; x-compiling (DEFUN COMPUTE-DEBUG-RETURNS ...) ; x-compiling (DEFUN DFUN-FROM-FUN ...) ; x-compiling (DEFUN COMPUTE-1-DEBUG-FUN ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/debug-dump.lisp ; in: DEFUN COMPUTE-1-DEBUG-FUN ; (MAX SB!C::ACTUAL-LEVEL 2) ; --> LET ; ==> ; SB!C::ACTUAL-LEVEL ; ; note: deleting unreachable code ; x-compiling (DEFUN COMPUTE-DEBUG-FUN-MAP ...) ; x-compiling (DEFUN DEBUG-INFO-FOR-COMPONENT ...) ; x-compiling (DEFUN WRITE-PACKED-BIT-VECTOR ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/debug-dump.lisp ; in: DEFUN COMPUTE-DEBUG-BLOCKS ; (SB!C::LABEL-ELSEWHERE-P (SB!C::LOCATION-INFO-LABEL SB!C::LOC) ; (SB!C::LOCATION-INFO-KIND SB!C::LOC)) ; ; caught STYLE-WARNING: ; undefined function: LABEL-ELSEWHERE-P ; ; compilation unit finished ; Undefined function: ; LABEL-ELSEWHERE-P ; caught 1 STYLE-WARNING condition ; printed 1 note ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/debug-dump.lisp-obj-tmp written ; compilation finished in 0:00:00.456 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/utils.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFUN FIXNUMIZE ...) ; x-compiling (DEFUN FOLDABLE-CONSTANT-OFFSET-P ...) ; x-compiling (DEFUN STATIC-SYMBOL-P ...) ; x-compiling (DEFUN STATIC-SYMBOL-OFFSET ...) ; x-compiling (DEFUN OFFSET-STATIC-SYMBOL ...) ; x-compiling (DEFUN STATIC-FDEFN-OFFSET ...) ; x-compiling (DEFUN STATIC-FUN-OFFSET ...) ; x-compiling (DEFVAR *ADJUSTABLE-VECTORS* ...) ; x-compiling (DEFMACRO WITH-ADJUSTABLE-VECTOR ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/generic/utils.lisp-obj-tmp written ; compilation finished in 0:00:00.038 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/fopcompile.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFUN FOPCOMPILABLE-P ...) ; x-compiling (DEFUN LET-FOPCOMPILABLE-P ...) ; x-compiling (DEFUN LAMBDA-FORM-P ...) ; x-compiling (DEFUN CONSTANT-FOPCOMPILABLE-P ...) ; x-compiling (DEFUN FOPCOMPILE ...) ; x-compiling (DEFUN FOPCOMPILE-FUNCTION ...) ; x-compiling (DEFUN FOPCOMPILE-IF ...) ; x-compiling (DEFUN FOPCOMPILE-CONSTANT ...) ; x-compiling (DEFUN CANONICAL-INSTANCE-MAKER-FORM-P ...) ; x-compiling (DEFUN FOPCOMPILE-ALLOCATE-INSTANCE ...) ; x-compiling (DEFUN TRIVIAL-LOAD-FORM-INITFORM-ARGS ...) ; x-compiling (DEFUN FOPCOMPILE-CONSTANT-INIT-FORMS ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/fopcompile.lisp ; in: DEFUN CONSTANT-FOPCOMPILABLE-P ; (SB-XC:MAKE-LOAD-FORM SB!C::VALUE (SB!KERNEL:MAKE-NULL-LEXENV)) ; ; caught STYLE-WARNING: ; undefined function: SB-XC:MAKE-LOAD-FORM ; ; compilation unit finished ; Undefined function: ; SB-XC:MAKE-LOAD-FORM ; caught 1 STYLE-WARNING condition ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/fopcompile.lisp-obj-tmp written ; compilation finished in 0:00:00.252 creating directory: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/assembly/ ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/assembly/assemfile.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFVAR *EMIT-ASSEMBLY-CODE-NOT-VOPS-P* ...) ; x-compiling (DEFVAR *ENTRY-POINTS* ...) ; x-compiling (DEFVAR *ASSEMBLY-OPTIMIZE* ...) ; x-compiling (DEFUN ASSEMBLE-FILE ...) ; x-compiling (DEFSTRUCT (REG-SPEC #) ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFUN REG-SPEC-SC ...) ; x-compiling (DEFUN PARSE-REG-SPEC ...) ; x-compiling (DEFUN EMIT-ASSEMBLE ...) ; x-compiling (DEFUN ARG-OR-RES-SPEC ...) ; x-compiling (DEFUN EMIT-ASSEMBLE-VOP ...) ; x-compiling (DEF!MACRO DEFINE-ASSEMBLY-ROUTINE ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/assembly/assemfile.lisp ; in: DEFUN EMIT-ASSEMBLE-VOP ; (SB!C:GENERATE-CALL-SEQUENCE SB!C::NAME SB!C::RETURN-STYLE SB!C::VOP ; SB!C::OPTIONS) ; ; caught STYLE-WARNING: ; undefined function: GENERATE-CALL-SEQUENCE ; in: DEFUN EMIT-ASSEMBLE ; (SB!INT:QUASIQUOTE ; (LET #S(SB!IMPL::COMMA :EXPR (MAPCAR (LAMBDA # #) SB!C::REGS) :KIND 0) ; #S(SB!IMPL::COMMA :EXPR (SB!C::DECLS) :KIND 2) ; (SB!ASSEM:ASSEMBLE (SB!C:*CODE-SEGMENT* ; '#S(SB!IMPL::COMMA :EXPR SB!C::NAME :KIND 0)) ; #S(SB!IMPL::COMMA :EXPR SB!C::NAME :KIND 0) ; (PUSH (CONS '# #) SB!C::*ENTRY-POINTS*) ; #S(SB!IMPL::COMMA :EXPR SB!C::CODE :KIND 2) ; #S(SB!IMPL::COMMA :EXPR (SB!C:GENERATE-RETURN-SEQUENCE #) :KIND 2)) ; (WHEN SB-XC:*COMPILE-PRINT* ; (FORMAT *ERROR-OUTPUT* "~S assembled~%" ; '#S(SB!IMPL::COMMA :EXPR SB!C::NAME :KIND 0))))) ; --> SB!IMPL::|List*| SB!IMPL::|Append| SB!IMPL::|List*| SB!IMPL::|List*| ; --> SB!IMPL::|Append| ; ==> ; (SB!C:GENERATE-RETURN-SEQUENCE ; (OR (CADR (ASSOC :RETURN-STYLE SB!C::OPTIONS)) :RAW)) ; ; caught STYLE-WARNING: ; undefined function: GENERATE-RETURN-SEQUENCE ; in: DEFUN ASSEMBLE-FILE ; (SB!C::INIT-ASSEMBLER) ; ; caught STYLE-WARNING: ; undefined function: INIT-ASSEMBLER ; ; compilation unit finished ; Undefined functions: ; GENERATE-CALL-SEQUENCE GENERATE-RETURN-SEQUENCE INIT-ASSEMBLER ; caught 3 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/assembly/assemfile.lisp-obj-tmp written ; compilation finished in 0:00:00.150 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/late-vmdef.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFUN NOTE-THIS-LOCATION ...) ; x-compiling (DEFUN NOTE-NEXT-INSTRUCTION ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/late-vmdef.lisp-obj-tmp written ; compilation finished in 0:00:00.011 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/fixup.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFSTRUCT (FIXUP # ...) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/fixup.lisp ; in: DEFSTRUCT FIXUP ; (DEFSTRUCT ; (SB!C:FIXUP ; (:CONSTRUCTOR SB!C:MAKE-FIXUP ; (SB!C::NAME SB!C::FLAVOR &OPTIONAL SB!C::OFFSET)) ; (:COPIER NIL)) ; SB!C::NAME ; SB!C::FLAVOR ; SB!C::OFFSET) ; --> PROGN EVAL-WHEN ; ==> ; (SB!KERNEL::%COMPILER-DEFSTRUCT ; '# ; '#(# ; #)) ; ; caught STYLE-WARNING: ; Previously compiled calls to SB!C:FIXUP-NAME and SB!C:FIXUP-FLAVOR could not be ; inlined because the structure definition for SB!C:FIXUP was not yet seen. To ; avoid this warning, DEFSTRUCT should precede references to the affected ; functions, or they must be declared locally notinline at each call site. ; x-compiling (DEFSTRUCT (FIXUP-NOTE # ...) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/fixup.lisp ; in: DEFSTRUCT FIXUP-NOTE ; (DEFSTRUCT ; (SB!C::FIXUP-NOTE ; (:CONSTRUCTOR SB!C:MAKE-FIXUP-NOTE (SB!C::KIND SB!C:FIXUP POSITION)) ; (:COPIER NIL)) ; SB!C::KIND ; SB!C:FIXUP ; POSITION) ; --> PROGN EVAL-WHEN ; ==> ; (SB!KERNEL::%COMPILER-DEFSTRUCT ; '# ; '#(# ; #)) ; ; caught STYLE-WARNING: ; Previously compiled calls to SB!C:FIXUP-NOTE-KIND, SB!C:FIXUP-NOTE-FIXUP and ; SB!C:FIXUP-NOTE-POSITION could not be inlined because the structure definition ; for SB!C::FIXUP-NOTE was not yet seen. To avoid this warning, DEFSTRUCT should ; precede references to the affected functions, or they must be declared locally ; notinline at each call site. ; x-compiling (DEFVAR *FIXUP-NOTES*) ; x-compiling (DEFVAR *SHOW-FIXUPS-BEING-PUSHED-P* ...) ; x-compiling (DEFUN NOTE-FIXUP ...); ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/fixup.lisp-obj-tmp written ; compilation finished in 0:00:00.059 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/insts.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (SETF SB!DISASSEM:*DISASSEM-INST-ALIGNMENT-BYTES* ...) ; x-compiling (DEFTYPE REG ...) ; x-compiling (DEF!CONSTANT +DEFAULT-OPERAND-SIZE+ ...) ; x-compiling (DEFUN OFFSET-NEXT ...) ; x-compiling (DEFPARAMETER *DEFAULT-ADDRESS-SIZE* ...) ; x-compiling (DEFPARAMETER *BYTE-REG-NAMES* ...) ; x-compiling (DEFPARAMETER *WORD-REG-NAMES* ...) ; x-compiling (DEFPARAMETER *DWORD-REG-NAMES* ...) ; x-compiling (DEFUN INST-OPERAND-SIZE ...) ; x-compiling (DEFUN INST-WORD-OPERAND-SIZE ...) ; x-compiling (DEFUN PRINT-REG-WITH-WIDTH ...) ; x-compiling (DEFUN PRINT-REG ...) ; x-compiling (DEFUN PRINT-WORD-REG ...) ; x-compiling (DEFUN PRINT-BYTE-REG ...) ; x-compiling (DEFUN PRINT-ADDR-REG ...) ; x-compiling (DEFUN PRINT-REG/MEM ...) ; x-compiling (DEFUN PRINT-SIZED-REG/MEM ...) ; x-compiling (DEFUN PRINT-BYTE-REG/MEM ...) ; x-compiling (DEFUN PRINT-WORD-REG/MEM ...) ; x-compiling (DEFUN PRINT-LABEL ...) ; x-compiling (DEFUN MAYBE-PRINT-SEGMENT-OVERRIDE ...) ; x-compiling (DEFUN PREFILTER-REG/MEM ...) ; x-compiling (DEFUN PREFILTER-WIDTH ...) ; x-compiling (DEFUN PREFILTER-X66 ...) ; x-compiling (DEFUN PREFILTER-SEG ...) ; x-compiling (DEFUN READ-ADDRESS ...) ; x-compiling (DEFUN WIDTH-BITS ...) ; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE DISPLACEMENT ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/insts.lisp ; in: SB!DISASSEM:DEFINE-ARG-TYPE DISPLACEMENT ; (SB!DISASSEM:DEFINE-ARG-TYPE SB!VM::DISPLACEMENT :SIGN-EXTEND T :USE-LABEL ; #'SB!VM::OFFSET-NEXT :PRINTER ; (LAMBDA (SB!VM::VALUE STREAM SB!VM::DSTATE) ; (SB!DISASSEM:MAYBE-NOTE-ASSEMBLER-ROUTINE ; SB!VM::VALUE NIL SB!VM::DSTATE) ; (SB!VM::PRINT-LABEL SB!VM::VALUE STREAM ; SB!VM::DSTATE))) ; --> PROGN ; ==> ; (EVAL-WHEN (:COMPILE-TOPLEVEL :EXECUTE) ; (SETQ SB!DISASSEM::*DISASSEM-ARG-TYPES* ; (DELETE 'SB!VM::DISPLACEMENT SB!DISASSEM::*DISASSEM-ARG-TYPES* :KEY ; #'SB!DISASSEM::ARG-NAME)) ; (PUSH ; (SB!DISASSEM::MODIFY-ARG (SB!DISASSEM::%MAKE-ARG 'SB!VM::DISPLACEMENT) NIL ; :SIGN-EXTEND T :USE-LABEL ; (SB!DISASSEM::MAKE-VALSRC #'SB!VM::OFFSET-NEXT ; '#'SB!VM::OFFSET-NEXT) ; :PRINTER ; (SB!DISASSEM::MAKE-VALSRC (LAMBDA # # #) ; 'SB!VM::*DISPLACEMENT-PRINTER-WRAPPER*)) ; SB!DISASSEM::*DISASSEM-ARG-TYPES*)) ; ; caught STYLE-WARNING: ; undefined function: SB!DISASSEM:MAYBE-NOTE-ASSEMBLER-ROUTINE ; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE ACCUM ...) ; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE WORD-ACCUM ...) ; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE REG ...) ; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE ADDR-REG ...) ; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE WORD-REG ...) ; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE IMM-ADDR ...) ; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE IMM-DATA ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/insts.lisp ; in: SB!DISASSEM:DEFINE-ARG-TYPE IMM-DATA ; (SB!DISASSEM:DEFINE-ARG-TYPE SB!VM::IMM-DATA :PREFILTER ; (LAMBDA (SB!VM::VALUE SB!VM::DSTATE) ; (DECLARE (IGNORE SB!VM::VALUE)) ; (SB!DISASSEM:READ-SUFFIX ; (SB!VM::WIDTH-BITS ; (SB!VM::INST-OPERAND-SIZE SB!VM::DSTATE)) ; SB!VM::DSTATE))) ; --> PROGN ; ==> ; (EVAL-WHEN (:COMPILE-TOPLEVEL :EXECUTE) ; (SETQ SB!DISASSEM::*DISASSEM-ARG-TYPES* ; (DELETE 'SB!VM::IMM-DATA SB!DISASSEM::*DISASSEM-ARG-TYPES* :KEY ; #'SB!DISASSEM::ARG-NAME)) ; (PUSH ; (SB!DISASSEM::MODIFY-ARG (SB!DISASSEM::%MAKE-ARG 'SB!VM::IMM-DATA) NIL ; :PREFILTER ; (SB!DISASSEM::MAKE-VALSRC (LAMBDA # # #) ; 'SB!VM::*IMM-DATA-PREFILTER-WRAPPER*)) ; SB!DISASSEM::*DISASSEM-ARG-TYPES*)) ; ; caught STYLE-WARNING: ; undefined function: SB!DISASSEM:READ-SUFFIX ; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE SIGNED-IMM-DATA ...) ; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE IMM-BYTE ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/insts.lisp ; in: SB!DISASSEM:DEFINE-ARG-TYPE IMM-BYTE ; (SB!DISASSEM:DEFINE-ARG-TYPE SB!VM::IMM-BYTE :PREFILTER ; (LAMBDA (SB!VM::VALUE SB!VM::DSTATE) ; (DECLARE (IGNORE SB!VM::VALUE)) ; (SB!DISASSEM:READ-SUFFIX 8 SB!VM::DSTATE))) ; --> PROGN ; ==> ; (EVAL-WHEN (:COMPILE-TOPLEVEL :EXECUTE) ; (SETQ SB!DISASSEM::*DISASSEM-ARG-TYPES* ; (DELETE 'SB!VM::IMM-BYTE SB!DISASSEM::*DISASSEM-ARG-TYPES* :KEY ; #'SB!DISASSEM::ARG-NAME)) ; (PUSH ; (SB!DISASSEM::MODIFY-ARG (SB!DISASSEM::%MAKE-ARG 'SB!VM::IMM-BYTE) NIL ; :PREFILTER ; (SB!DISASSEM::MAKE-VALSRC (LAMBDA # # #) ; 'SB!VM::*IMM-BYTE-PREFILTER-WRAPPER*)) ; SB!DISASSEM::*DISASSEM-ARG-TYPES*)) ; ; caught STYLE-WARNING: ; undefined function: SB!DISASSEM:READ-SUFFIX ; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE SIGNED-IMM-BYTE ...) ; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE SIGNED-IMM-DWORD ...) ; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE IMM-WORD ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/insts.lisp ; in: SB!DISASSEM:DEFINE-ARG-TYPE IMM-WORD ; (SB!DISASSEM:DEFINE-ARG-TYPE SB!VM::IMM-WORD :PREFILTER ; (LAMBDA (SB!VM::VALUE SB!VM::DSTATE) ; (DECLARE (IGNORE SB!VM::VALUE)) ; (LET ((SB!VM::WIDTH #)) ; (SB!DISASSEM:READ-SUFFIX ; (SB!VM::WIDTH-BITS SB!VM::WIDTH) ; SB!VM::DSTATE)))) ; --> PROGN ; ==> ; (EVAL-WHEN (:COMPILE-TOPLEVEL :EXECUTE) ; (SETQ SB!DISASSEM::*DISASSEM-ARG-TYPES* ; (DELETE 'SB!VM::IMM-WORD SB!DISASSEM::*DISASSEM-ARG-TYPES* :KEY ; #'SB!DISASSEM::ARG-NAME)) ; (PUSH ; (SB!DISASSEM::MODIFY-ARG (SB!DISASSEM::%MAKE-ARG 'SB!VM::IMM-WORD) NIL ; :PREFILTER ; (SB!DISASSEM::MAKE-VALSRC (LAMBDA # # #) ; 'SB!VM::*IMM-WORD-PREFILTER-WRAPPER*)) ; SB!DISASSEM::*DISASSEM-ARG-TYPES*)) ; ; caught STYLE-WARNING: ; undefined function: SB!DISASSEM:READ-SUFFIX ; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE SIGNED-IMM-WORD ...) ; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE IMM-WORD-16 ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/insts.lisp ; in: SB!DISASSEM:DEFINE-ARG-TYPE IMM-WORD-16 ; (SB!DISASSEM:DEFINE-ARG-TYPE SB!VM::IMM-WORD-16 :PREFILTER ; (LAMBDA (SB!VM::VALUE SB!VM::DSTATE) ; (DECLARE (IGNORE SB!VM::VALUE)) ; (SB!DISASSEM:READ-SUFFIX 16 SB!VM::DSTATE))) ; --> PROGN ; ==> ; (EVAL-WHEN (:COMPILE-TOPLEVEL :EXECUTE) ; (SETQ SB!DISASSEM::*DISASSEM-ARG-TYPES* ; (DELETE 'SB!VM::IMM-WORD-16 SB!DISASSEM::*DISASSEM-ARG-TYPES* :KEY ; #'SB!DISASSEM::ARG-NAME)) ; (PUSH ; (SB!DISASSEM::MODIFY-ARG (SB!DISASSEM::%MAKE-ARG 'SB!VM::IMM-WORD-16) NIL ; :PREFILTER ; (SB!DISASSEM::MAKE-VALSRC (LAMBDA # # #) ; 'SB!VM::*IMM-WORD-16-PREFILTER-WRAPPER*)) ; SB!DISASSEM::*DISASSEM-ARG-TYPES*)) ; ; caught STYLE-WARNING: ; undefined function: SB!DISASSEM:READ-SUFFIX ; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE REG/MEM ...) ; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE SIZED-REG/MEM ...) ; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE BYTE-REG/MEM ...) ; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE WORD-REG/MEM ...) ; x-compiling (DEFUN PRINT-FP-REG ...) ; x-compiling (DEFUN PREFILTER-FP-REG ...) ; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE FP-REG ...) ; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE WIDTH ...) ; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE X66 ...) ; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE SEG ...) ; x-compiling (DEFPARAMETER *CONDITIONS* ...) ; x-compiling (DEFPARAMETER *CONDITION-NAME-VEC* ...) ; x-compiling (SETF *ASSEM-SCHEDULER-P* ...) ; x-compiling (SB!DISASSEM:DEFINE-ARG-TYPE CONDITION-CODE ...) ; x-compiling (DEFUN CONDITIONAL-OPCODE ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (BYTE 8 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (X66 8) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (SEG 8) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (SIMPLE 8) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (TWO-BYTES 16 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (SIMPLE-DIR 8 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (ACCUM-IMM 8 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (REG-NO-WIDTH 8 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (REG 8 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (REG-DIR 8 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (REG-REG/MEM 16 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (REG-REG/MEM-DIR 16 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (REG/MEM 16 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (REG/MEM-IMM 16 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (ACCUM-REG/MEM 16 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-REG-REG/MEM 24 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-REG-REG/MEM-NO-WIDTH 24 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-REG/MEM-NO-WIDTH 24 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-REG-NO-WIDTH 16 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-REG/MEM 24 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-REG/MEM-IMM 24 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (EXT-REG/MEM-NO-WIDTH+IMM8 24 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (FLOATING-POINT 16 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (FLOATING-POINT-FP 16 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (FLOATING-POINT-FP-D 16 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (FLOATING-POINT-NO 16 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (FLOATING-POINT-3 16 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (FLOATING-POINT-5 16 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (FLOATING-POINT-ST 16 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (STRING-OP 8 ...)) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (SHORT-COND-JUMP 16) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (SHORT-JUMP 16 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (NEAR-COND-JUMP 16) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (NEAR-JUMP 8 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (COND-SET 24 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (COND-MOVE 24 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (ENTER-FORMAT 32 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (PREFETCH 24 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (BYTE-IMM 16 ...) ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (WORD-IMM 24 ...) ...) ; x-compiling (DEFINE-BITFIELD-EMITTER EMIT-WORD ...) ; x-compiling (DEFINE-BITFIELD-EMITTER EMIT-DWORD ...) ; x-compiling (DEFINE-BITFIELD-EMITTER EMIT-BYTE-WITH-REG ...) ; x-compiling (DEFINE-BITFIELD-EMITTER EMIT-MOD-REG-R/M-BYTE ...) ; x-compiling (DEFINE-BITFIELD-EMITTER EMIT-SIB-BYTE ...) ; x-compiling (DEFUN EMIT-ABSOLUTE-FIXUP ...) ; x-compiling (DEFUN EMIT-RELATIVE-FIXUP ...) ; x-compiling (DEFUN REG-TN-ENCODING ...) ; x-compiling (DEFSTRUCT (EA # ...) ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFUN EMIT-EA ...) ; x-compiling (DEFUN FP-REG-TN-P ...) ; x-compiling (DEFUN EMIT-FP-OP ...) ; x-compiling (DEFUN BYTE-REG-P ...) ; x-compiling (DEFUN BYTE-EA-P ...) ; x-compiling (DEFUN WORD-REG-P ...) ; x-compiling (DEFUN WORD-EA-P ...) ; x-compiling (DEFUN DWORD-REG-P ...) ; x-compiling (DEFUN DWORD-EA-P ...) ; x-compiling (DEFUN REGISTER-P ...) ; x-compiling (DEFUN ACCUMULATOR-P ...) ; x-compiling (DEF!CONSTANT +OPERAND-SIZE-PREFIX-BYTE+ ...) ; x-compiling (DEFUN MAYBE-EMIT-OPERAND-SIZE-PREFIX ...) ; x-compiling (DEFUN OPERAND-SIZE ...) ; x-compiling (DEFUN MATCHING-OPERAND-SIZE ...) ; x-compiling (DEFUN EMIT-SIZED-IMMEDIATE ...) ; x-compiling (DEFINE-INSTRUCTION X66 ...) ; x-compiling (DEFUN EMIT-PREFIX ...) ; x-compiling (DEFINE-INSTRUCTION FS ...) ; x-compiling (DEFINE-INSTRUCTION GS ...) ; x-compiling (DEFINE-INSTRUCTION LOCK ...) ; x-compiling (DEFINE-INSTRUCTION REP ...) ; x-compiling (DEFINE-INSTRUCTION REPE ...) ; x-compiling (DEFINE-INSTRUCTION REPNE ...) ; x-compiling (DEFINE-INSTRUCTION MOV ...) ; x-compiling (DEFUN EMIT-MOVE-WITH-EXTENSION ...) ; x-compiling (DEFINE-INSTRUCTION MOVSX ...) ; x-compiling (DEFINE-INSTRUCTION MOVZX ...) ; x-compiling (DEFINE-INSTRUCTION PUSH ...) ; x-compiling (DEFINE-INSTRUCTION PUSHA ...) ; x-compiling (DEFINE-INSTRUCTION POP ...) ; x-compiling (DEFINE-INSTRUCTION POPA ...) ; x-compiling (DEFINE-INSTRUCTION XCHG ...) ; x-compiling (DEFINE-INSTRUCTION LEA ...) ; x-compiling (DEFINE-INSTRUCTION CMPXCHG ...) ; x-compiling (DEFINE-INSTRUCTION CMPXCHG8B ...) ; x-compiling (DEFINE-INSTRUCTION PAUSE ...) ; x-compiling (DEFINE-INSTRUCTION CLC ...) ; x-compiling (DEFINE-INSTRUCTION CLD ...) ; x-compiling (DEFINE-INSTRUCTION CLI ...) ; x-compiling (DEFINE-INSTRUCTION CMC ...) ; x-compiling (DEFINE-INSTRUCTION LAHF ...) ; x-compiling (DEFINE-INSTRUCTION POPF ...) ; x-compiling (DEFINE-INSTRUCTION PUSHF ...) ; x-compiling (DEFINE-INSTRUCTION SAHF ...) ; x-compiling (DEFINE-INSTRUCTION STC ...) ; x-compiling (DEFINE-INSTRUCTION STD ...) ; x-compiling (DEFINE-INSTRUCTION STI ...) ; x-compiling (DEFUN EMIT-RANDOM-ARITH-INST ...) ; x-compiling (DEFINE-INSTRUCTION ADD ...) ; x-compiling (DEFINE-INSTRUCTION ADC ...) ; x-compiling (DEFINE-INSTRUCTION SUB ...) ; x-compiling (DEFINE-INSTRUCTION SBB ...) ; x-compiling (DEFINE-INSTRUCTION CMP ...) ; x-compiling (DEFINE-INSTRUCTION INC ...) ; x-compiling (DEFINE-INSTRUCTION DEC ...) ; x-compiling (DEFINE-INSTRUCTION NEG ...) ; x-compiling (DEFINE-INSTRUCTION AAA ...) ; x-compiling (DEFINE-INSTRUCTION AAS ...) ; x-compiling (DEFINE-INSTRUCTION DAA ...) ; x-compiling (DEFINE-INSTRUCTION DAS ...) ; x-compiling (DEFINE-INSTRUCTION MUL ...) ; x-compiling (DEFINE-INSTRUCTION IMUL ...) ; x-compiling (DEFINE-INSTRUCTION DIV ...) ; x-compiling (DEFINE-INSTRUCTION IDIV ...) ; x-compiling (DEFINE-INSTRUCTION AAD ...) ; x-compiling (DEFINE-INSTRUCTION AAM ...) ; x-compiling (DEFINE-INSTRUCTION BSWAP ...) ; x-compiling (DEFINE-INSTRUCTION CBW ...) ; x-compiling (DEFINE-INSTRUCTION CWDE ...) ; x-compiling (DEFINE-INSTRUCTION CWD ...) ; x-compiling (DEFINE-INSTRUCTION CDQ ...) ; x-compiling (DEFINE-INSTRUCTION XADD ...) ; x-compiling (DEFUN EMIT-SHIFT-INST ...) ; x-compiling (SB!DISASSEM:DEFINE-INSTRUCTION-FORMAT (SHIFT-INST 16 ...) ...) ; x-compiling (DEFINE ROL ...) ; x-compiling (DEFINE ROR ...) ; x-compiling (DEFINE RCL ...) ; x-compiling (DEFINE RCR ...) ; x-compiling (DEFINE SHL ...) ; x-compiling (DEFINE SHR ...) ; x-compiling (DEFINE SAR ...) ; x-compiling (DEFUN EMIT-DOUBLE-SHIFT ...) ; x-compiling (DEFINE-INSTRUCTION SHLD ...) ; x-compiling (DEFINE-INSTRUCTION SHRD ...) ; x-compiling (DEFINE-INSTRUCTION AND ...) ; x-compiling (DEFINE-INSTRUCTION TEST ...) ; x-compiling (DEFUN EMIT-OPTIMIZED-TEST-INST ...) ; x-compiling (DEFINE-INSTRUCTION OR ...) ; x-compiling (DEFINE-INSTRUCTION XOR ...) ; x-compiling (DEFINE-INSTRUCTION NOT ...) ; x-compiling (DEFINE-INSTRUCTION CMPS ...) ; x-compiling (DEFINE-INSTRUCTION INS ...) ; x-compiling (DEFINE-INSTRUCTION LODS ...) ; x-compiling (DEFINE-INSTRUCTION MOVS ...) ; x-compiling (DEFINE-INSTRUCTION OUTS ...) ; x-compiling (DEFINE-INSTRUCTION SCAS ...) ; x-compiling (DEFINE-INSTRUCTION STOS ...) ; x-compiling (DEFINE-INSTRUCTION XLAT ...) ; x-compiling (DEFINE-INSTRUCTION BSF ...) ; x-compiling (DEFINE-INSTRUCTION BSR ...) ; x-compiling (DEFUN EMIT-BIT-TEST-AND-MUMBLE ...) ; x-compiling (DEFINE BT ...) ; x-compiling (DEFINE BTS ...) ; x-compiling (DEFINE BTR ...) ; x-compiling (DEFINE BTC ...) ; x-compiling (DEFINE-INSTRUCTION CALL ...) ; x-compiling (DEFUN EMIT-BYTE-DISPLACEMENT-BACKPATCH ...) ; x-compiling (DEFINE-INSTRUCTION JMP ...) ; x-compiling (DEFINE-INSTRUCTION JMP-SHORT ...) ; x-compiling (DEFINE-INSTRUCTION RET ...) ; x-compiling (DEFINE-INSTRUCTION JECXZ ...) ; x-compiling (DEFINE-INSTRUCTION LOOP ...) ; x-compiling (DEFINE-INSTRUCTION LOOPZ ...) ; x-compiling (DEFINE-INSTRUCTION LOOPNZ ...) ; x-compiling (DEFINE-INSTRUCTION CMOV ...) ; x-compiling (DEFINE-INSTRUCTION SET ...) ; x-compiling (DEFINE-INSTRUCTION ENTER ...) ; x-compiling (DEFINE-INSTRUCTION LEAVE ...) ; x-compiling (DEFINE-INSTRUCTION PREFETCHNTA ...) ; x-compiling (DEFINE-INSTRUCTION PREFETCHT0 ...) ; x-compiling (DEFINE-INSTRUCTION PREFETCHT1 ...) ; x-compiling (DEFINE-INSTRUCTION PREFETCHT2 ...) ; x-compiling (DEFUN SNARF-ERROR-JUNK ...) ; x-compiling (DEFUN BREAK-CONTROL ...) ; x-compiling (DEFINE-INSTRUCTION BREAK ...) ; x-compiling (DEFINE-INSTRUCTION INT ...) ; x-compiling (DEFINE-INSTRUCTION INTO ...) ; x-compiling (DEFINE-INSTRUCTION BOUND ...) ; x-compiling (DEFINE-INSTRUCTION IRET ...) ; x-compiling (DEFINE-INSTRUCTION HLT ...) ; x-compiling (DEFINE-INSTRUCTION NOP ...) ; x-compiling (DEFINE-INSTRUCTION WAIT ...) ; x-compiling (DEFINE-INSTRUCTION BYTE ...) ; x-compiling (DEFINE-INSTRUCTION WORD ...) ; x-compiling (DEFINE-INSTRUCTION DWORD ...) ; x-compiling (DEFUN EMIT-HEADER-DATA ...) ; x-compiling (DEFINE-INSTRUCTION SIMPLE-FUN-HEADER-WORD ...) ; x-compiling (DEFINE-INSTRUCTION LRA-HEADER-WORD ...) ; x-compiling (DEFINE-INSTRUCTION FLD ...) ; x-compiling (DEFINE-INSTRUCTION FLDD ...) ; x-compiling (DEFINE-INSTRUCTION FLDL ...) ; x-compiling (DEFINE-INSTRUCTION FST ...) ; x-compiling (DEFINE-INSTRUCTION FSTD ...) ; x-compiling (DEFINE-INSTRUCTION FADD ...) ; x-compiling (DEFINE-INSTRUCTION FADDD ...) ; x-compiling (DEFINE-INSTRUCTION FADD-STI ...) ; x-compiling (DEFINE-INSTRUCTION FADDP-STI ...) ; x-compiling (DEFINE-INSTRUCTION FSUB ...) ; x-compiling (DEFINE-INSTRUCTION FSUBR ...) ; x-compiling (DEFINE-INSTRUCTION FSUBD ...) ; x-compiling (DEFINE-INSTRUCTION FSUBRD ...) ; x-compiling (DEFINE-INSTRUCTION FSUB-STI ...) ; x-compiling (DEFINE-INSTRUCTION FSUBP-STI ...) ; x-compiling (DEFINE-INSTRUCTION FSUBR-STI ...) ; x-compiling (DEFINE-INSTRUCTION FSUBRP-STI ...) ; x-compiling (DEFINE-INSTRUCTION FMUL ...) ; x-compiling (DEFINE-INSTRUCTION FMULD ...) ; x-compiling (DEFINE-INSTRUCTION FMUL-STI ...) ; x-compiling (DEFINE-INSTRUCTION FDIV ...) ; x-compiling (DEFINE-INSTRUCTION FDIVR ...) ; x-compiling (DEFINE-INSTRUCTION FDIVD ...) ; x-compiling (DEFINE-INSTRUCTION FDIVRD ...) ; x-compiling (DEFINE-INSTRUCTION FDIV-STI ...) ; x-compiling (DEFINE-INSTRUCTION FDIVR-STI ...) ; x-compiling (DEFINE-INSTRUCTION FXCH ...) ; x-compiling (DEFINE-INSTRUCTION FILD ...) ; x-compiling (DEFINE-INSTRUCTION FILDL ...) ; x-compiling (DEFINE-INSTRUCTION FIST ...) ; x-compiling (DEFINE-INSTRUCTION FISTP ...) ; x-compiling (DEFINE-INSTRUCTION FISTPL ...) ; x-compiling (DEFINE-INSTRUCTION FSTP ...) ; x-compiling (DEFINE-INSTRUCTION FSTPD ...) ; x-compiling (DEFINE-INSTRUCTION FSTPL ...) ; x-compiling (DEFINE-INSTRUCTION FDECSTP ...) ; x-compiling (DEFINE-INSTRUCTION FINCSTP ...) ; x-compiling (DEFINE-INSTRUCTION FFREE ...) ; x-compiling (DEFINE-INSTRUCTION FABS ...) ; x-compiling (DEFINE-INSTRUCTION FCHS ...) ; x-compiling (DEFINE-INSTRUCTION FRNDINT ...) ; x-compiling (DEFINE-INSTRUCTION FNINIT ...) ; x-compiling (DEFINE-INSTRUCTION FNSTSW ...) ; x-compiling (DEFINE-INSTRUCTION FLDCW ...) ; x-compiling (DEFINE-INSTRUCTION FNSTCW ...) ; x-compiling (DEFINE-INSTRUCTION FSTENV ...) ; x-compiling (DEFINE-INSTRUCTION FLDENV ...) ; x-compiling (DEFINE-INSTRUCTION FSAVE ...) ; x-compiling (DEFINE-INSTRUCTION FRSTOR ...) ; x-compiling (DEFINE-INSTRUCTION FNCLEX ...) ; x-compiling (DEFINE-INSTRUCTION FCOM ...) ; x-compiling (DEFINE-INSTRUCTION FCOMD ...) ; x-compiling (DEFINE-INSTRUCTION FCOMPP ...) ; x-compiling (DEFINE-INSTRUCTION FUCOM ...) ; x-compiling (DEFINE-INSTRUCTION FTST ...) ; x-compiling (DEFINE-INSTRUCTION FSQRT ...) ; x-compiling (DEFINE-INSTRUCTION FSCALE ...) ; x-compiling (DEFINE-INSTRUCTION FXTRACT ...) ; x-compiling (DEFINE-INSTRUCTION FSIN ...) ; x-compiling (DEFINE-INSTRUCTION FCOS ...) ; x-compiling (DEFINE-INSTRUCTION FPREM1 ...) ; x-compiling (DEFINE-INSTRUCTION FPREM ...) ; x-compiling (DEFINE-INSTRUCTION FXAM ...) ; x-compiling (DEFINE-INSTRUCTION FYL2X ...) ; x-compiling (DEFINE-INSTRUCTION FYL2XP1 ...) ; x-compiling (DEFINE-INSTRUCTION F2XM1 ...) ; x-compiling (DEFINE-INSTRUCTION FPTAN ...) ; x-compiling (DEFINE-INSTRUCTION FPATAN ...) ; x-compiling (DEFINE-INSTRUCTION FLDZ ...) ; x-compiling (DEFINE-INSTRUCTION FLD1 ...) ; x-compiling (DEFINE-INSTRUCTION FLDPI ...) ; x-compiling (DEFINE-INSTRUCTION FLDL2T ...) ; x-compiling (DEFINE-INSTRUCTION FLDL2E ...) ; x-compiling (DEFINE-INSTRUCTION FLDLG2 ...) ; x-compiling (DEFINE-INSTRUCTION FLDLN2 ...) ; x-compiling (DEFINE-INSTRUCTION CPUID ...) ; x-compiling (DEFINE-INSTRUCTION RDTSC ...) ; x-compiling (DEFUN CANONICALIZE-INLINE-CONSTANT ...) ; x-compiling (DEFUN INLINE-CONSTANT-VALUE ...) ; x-compiling (DEFUN EMIT-CONSTANT-SEGMENT-HEADER ...) ; x-compiling (DEFUN SIZE-NBYTE ...) ; x-compiling (DEFUN SORT-INLINE-CONSTANTS ...) ; x-compiling (DEFUN EMIT-INLINE-CONSTANT ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/insts.lisp ; in: DEFUN EMIT-HEADER-DATA ; (SB!C:COMPONENT-HEADER-LENGTH) ; ; caught STYLE-WARNING: ; undefined function: COMPONENT-HEADER-LENGTH ; in: DEFUN EMIT-ABSOLUTE-FIXUP ; (SB!C:COMPONENT-HEADER-LENGTH) ; ; caught STYLE-WARNING: ; undefined function: COMPONENT-HEADER-LENGTH ; in: DEFUN BREAK-CONTROL ; (SB!DISASSEM:HANDLE-BREAK-ARGS #'SB!VM::SNARF-ERROR-JUNK STREAM SB!VM::DSTATE) ; ; caught STYLE-WARNING: ; undefined function: SB!DISASSEM:HANDLE-BREAK-ARGS ; in: SB!DISASSEM:DEFINE-ARG-TYPE DISPLACEMENT ; (SB!DISASSEM:MAYBE-NOTE-ASSEMBLER-ROUTINE SB!VM::VALUE NIL SB!VM::DSTATE) ; ; caught STYLE-WARNING: ; undefined function: SB!DISASSEM:MAYBE-NOTE-ASSEMBLER-ROUTINE ; in: DEFUN BREAK-CONTROL ; (SB!DISASSEM:NOTE SB!VM::X SB!VM::DSTATE) ; ; caught STYLE-WARNING: ; undefined function: SB!DISASSEM:NOTE ; in: DEFUN PRINT-BYTE-REG/MEM ; (SB!VM::PRINT-MEM-ACCESS SB!VM::VALUE STREAM T SB!VM::DSTATE) ; ; caught STYLE-WARNING: ; undefined function: PRINT-MEM-ACCESS ; in: DEFUN PRINT-SIZED-REG/MEM ; (SB!VM::PRINT-MEM-ACCESS SB!VM::VALUE STREAM T SB!VM::DSTATE) ; ; caught STYLE-WARNING: ; undefined function: PRINT-MEM-ACCESS ; in: DEFUN PRINT-REG/MEM ; (SB!VM::PRINT-MEM-ACCESS SB!VM::VALUE STREAM NIL SB!VM::DSTATE) ; ; caught STYLE-WARNING: ; undefined function: PRINT-MEM-ACCESS ; ; caught STYLE-WARNING: ; 1 more use of undefined function PRINT-MEM-ACCESS ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/insts.lisp ; in: SB!DISASSEM:DEFINE-ARG-TYPE IMM-DATA ; (SB!DISASSEM:READ-SUFFIX ; (SB!VM::WIDTH-BITS (SB!VM::INST-OPERAND-SIZE SB!VM::DSTATE)) SB!VM::DSTATE) ; ; caught STYLE-WARNING: ; undefined function: SB!DISASSEM:READ-SUFFIX ; in: DEFUN READ-ADDRESS ; (SB!DISASSEM:READ-SUFFIX (SB!VM::WIDTH-BITS SB!VM::*DEFAULT-ADDRESS-SIZE*) ; SB!VM::DSTATE) ; ; caught STYLE-WARNING: ; undefined function: SB!DISASSEM:READ-SUFFIX ; in: DEFUN PREFILTER-REG/MEM ; (SB!DISASSEM:READ-SUFFIX 8 SB!VM::DSTATE) ; ; caught STYLE-WARNING: ; undefined function: SB!DISASSEM:READ-SUFFIX ; ; caught STYLE-WARNING: ; 3 more uses of undefined function SB!DISASSEM:READ-SUFFIX ; ; compilation unit finished ; Undefined functions: ; COMPONENT-HEADER-LENGTH SB!DISASSEM:HANDLE-BREAK-ARGS SB!DISASSEM:MAYBE-NOTE-ASSEMBLER-ROUTINE SB!DISASSEM:NOTE PRINT-MEM-ACCESS SB!DISASSEM:READ-SUFFIX ; caught 18 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/x86/insts.lisp-obj-tmp written ; compilation finished in 0:00:04.581 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/macros.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFMACRO WITH-TN@FP-TOP ...) ; x-compiling (DEFMACRO WITH-EMPTY-TN@FP-TOP ...) ; x-compiling (DEFMACRO MOVE ...) ; x-compiling (DEFMACRO ALIGN-STACK-POINTER ...) ; x-compiling (DEFMACRO MAKE-EA-FOR-OBJECT-SLOT ...) ; x-compiling (DEFMACRO LOADW ...) ; x-compiling (DEFMACRO STOREW ...) ; x-compiling (DEFMACRO STOREB ...) ; x-compiling (DEFMACRO PUSHW ...) ; x-compiling (DEFMACRO POPW ...) ; x-compiling (DEFMACRO MAKE-EA-FOR-VECTOR-DATA ...) ; x-compiling (DEFMACRO LOAD-SYMBOL ...) ; x-compiling (DEFMACRO MAKE-EA-FOR-SYMBOL-VALUE ...) ; x-compiling (DEFMACRO LOAD-SYMBOL-VALUE ...) ; x-compiling (DEFMACRO STORE-SYMBOL-VALUE ...) ; x-compiling (DEFMACRO LOAD-TL-SYMBOL-VALUE ...) ; x-compiling (DEFMACRO STORE-TL-SYMBOL-VALUE ...) ; x-compiling (DEFMACRO LOAD-BINDING-STACK-POINTER ...) ; x-compiling (DEFMACRO STORE-BINDING-STACK-POINTER ...) ; x-compiling (DEFMACRO LOAD-TYPE ...) ; x-compiling (DEFUN ALLOCATION-DYNAMIC-EXTENT ...) ; x-compiling (DEFUN ALLOCATION-NOTINLINE ...) ; x-compiling (DEFUN ALLOCATION-INLINE ...) ; x-compiling (DEFUN ALLOCATION ...) ; x-compiling (DEFMACRO WITH-FIXED-ALLOCATION ...) ; x-compiling (DEFUN EMIT-ERROR-BREAK ...) ; x-compiling (DEFUN ERROR-CALL ...) ; x-compiling (DEFUN GENERATE-ERROR-CODE ...) ; x-compiling (DEFMACRO MAYBE-PSEUDO-ATOMIC ...) ; x-compiling (DEFMACRO PSEUDO-ATOMIC ...) ; x-compiling (DEFMACRO DEFINE-FULL-COMPARE-AND-SWAP ...) ; x-compiling (DEFMACRO DEFINE-FULL-REFFER ...) ; x-compiling (DEFMACRO DEFINE-FULL-REFFER+OFFSET ...) ; x-compiling (DEFMACRO DEFINE-FULL-SETTER ...) ; x-compiling (DEFMACRO DEFINE-FULL-SETTER+OFFSET ...) ; x-compiling (DEF!MACRO WITH-PINNED-OBJECTS ...) ; x-compiling (DEFMACRO WITH-TLS-EA ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/x86/macros.lisp-obj-tmp written ; compilation finished in 0:00:00.429 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/early-type-vops.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFPARAMETER *IMMEDIATE-TYPES* ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/early-type-vops.lisp ; in: DEFPARAMETER *IMMEDIATE-TYPES* ; (LIST SB!VM:SINGLE-FLOAT-WIDETAG) ; --> CONS ; ==> ; SB!VM:SINGLE-FLOAT-WIDETAG ; ; note: deleting unreachable code ; x-compiling (DEFPARAMETER *FUN-HEADER-WIDETAGS* ...) ; x-compiling (DEFUN CANONICALIZE-HEADERS ...) ; x-compiling (DEFUN CANONICALIZE-HEADERS-AND-EXCEPTIONS ...) ; x-compiling (DEFMACRO TEST-TYPE ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/early-type-vops.lisp ; in: DEFMACRO TEST-TYPE ; (- SB!VM:SINGLE-FLOAT-WIDETAG 4) ; ==> ; SB!VM:SINGLE-FLOAT-WIDETAG ; ; note: deleting unreachable code ; (+ SB!VM:SINGLE-FLOAT-WIDETAG 4) ; ==> ; SB!VM:SINGLE-FLOAT-WIDETAG ; ; note: deleting unreachable code ; (REMOVE SB!VM:SINGLE-FLOAT-WIDETAG SB!VM::*IMMEDIATE-TYPES*) ; ==> ; SB!VM:SINGLE-FLOAT-WIDETAG ; ; note: deleting unreachable code ; (AND (= SB!VM:N-WORD-BITS 64) SB!VM::IMMEDIATES SB!VM::HEADERS) ; --> IF AND IF ; ==> ; SB!VM::IMMEDIATES ; ; note: deleting unreachable code ; --> IF AND IF AND THE ; ==> ; SB!VM::HEADERS ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 6 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/generic/early-type-vops.lisp-obj-tmp written ; compilation finished in 0:00:00.046 creating directory: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/assembly/x86/ ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/assembly/x86/support.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFUN GENERATE-CALL-SEQUENCE ...) ; x-compiling (DEFUN GENERATE-RETURN-SEQUENCE ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/assembly/x86/support.lisp-obj-tmp written ; compilation finished in 0:00:00.011 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/move.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFINE-MOVE-FUN (LOAD-IMMEDIATE 1) ...) ; x-compiling (DEFINE-MOVE-FUN (LOAD-NUMBER 1) ...) ; x-compiling (DEFINE-MOVE-FUN (LOAD-CHARACTER 1) ...) ; x-compiling (DEFINE-MOVE-FUN (LOAD-SYSTEM-AREA-POINTER 1) ...) ; x-compiling (DEFINE-MOVE-FUN (LOAD-CONSTANT 5) ...) ; x-compiling (DEFINE-MOVE-FUN (LOAD-STACK 5) ...) ; x-compiling (DEFINE-MOVE-FUN (STORE-STACK 5) ...) ; x-compiling (DEFINE-VOP (MOVE) ...) ; x-compiling (DEFINE-MOVE-VOP MOVE ...) ; x-compiling (PRIMITIVE-TYPE-VOP MOVE ...) ; x-compiling (DEFINE-VOP (MOVE-ARG) ...) ; x-compiling (DEFINE-MOVE-VOP MOVE-ARG ...) ; x-compiling (DEFINE-VOP (ILLEGAL-MOVE) ...) ; x-compiling (DEFINE-VOP (MOVE-TO-WORD/FIXNUM) ...) ; x-compiling (DEFINE-MOVE-VOP MOVE-TO-WORD/FIXNUM ...) ; x-compiling (DEFINE-VOP (MOVE-TO-WORD-C) ...) ; x-compiling (DEFINE-MOVE-VOP MOVE-TO-WORD-C ...) ; x-compiling (DEFINE-VOP (MOVE-TO-WORD/INTEGER) ...) ; x-compiling (DEFINE-MOVE-VOP MOVE-TO-WORD/INTEGER ...) ; x-compiling (DEFINE-VOP (MOVE-FROM-WORD/FIXNUM) ...) ; x-compiling (DEFINE-MOVE-VOP MOVE-FROM-WORD/FIXNUM ...) ; x-compiling (DEFINE-VOP (MOVE-FROM-SIGNED) ...) ; x-compiling (DEFINE-MOVE-VOP MOVE-FROM-SIGNED ...) ; x-compiling (DEFINE-VOP (MOVE-FROM-UNSIGNED) ...) ; x-compiling (DEFINE-MOVE-VOP MOVE-FROM-UNSIGNED ...) ; x-compiling (DEFINE-VOP (WORD-MOVE) ...) ; x-compiling (DEFINE-MOVE-VOP WORD-MOVE ...) ; x-compiling (DEFINE-VOP (MOVE-WORD-ARG) ...) ; x-compiling (DEFINE-MOVE-VOP MOVE-WORD-ARG ...) ; x-compiling (DEFINE-MOVE-VOP MOVE-ARG ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/x86/move.lisp-obj-tmp written ; compilation finished in 0:00:00.609 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/float.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFUN EA-FOR-SF-DESC ...) ; x-compiling (DEFUN EA-FOR-DF-DESC ...) ; x-compiling (DEFUN EA-FOR-CSF-REAL-DESC ...) ; x-compiling (DEFUN EA-FOR-CSF-IMAG-DESC ...) ; x-compiling (DEFUN EA-FOR-CDF-REAL-DESC ...) ; x-compiling (DEFUN EA-FOR-CDF-IMAG-DESC ...) ; x-compiling (DEFUN EA-FOR-SF-STACK ...) ; x-compiling (DEFUN EA-FOR-DF-STACK ...) ; x-compiling (DEFUN MAYBE-FP-WAIT ...) ; x-compiling (DEFUN EA-FOR-CSF-REAL-STACK ...) ; x-compiling (DEFUN EA-FOR-CSF-IMAG-STACK ...) ; x-compiling (DEFUN EA-FOR-CDF-REAL-STACK ...) ; x-compiling (DEFUN EA-FOR-CDF-IMAG-STACK ...) ; x-compiling (DEFUN COPY-FP-REG-TO-FR0 ...) ; x-compiling (DEFINE-MOVE-FUN (LOAD-SINGLE 2) ...) ; x-compiling (DEFINE-MOVE-FUN (STORE-SINGLE 2) ...) ; x-compiling (DEFINE-MOVE-FUN (LOAD-DOUBLE 2) ...) ; x-compiling (DEFINE-MOVE-FUN (STORE-DOUBLE 2) ...) ; x-compiling (DEFINE-MOVE-FUN (LOAD-FP-CONSTANT 2) ...) ; x-compiling (DEFINE-MOVE-FUN (LOAD-FP-IMMEDIATE 2) ...) ; x-compiling (DEFUN COMPLEX-SINGLE-REG-REAL-TN ...) ; x-compiling (DEFUN COMPLEX-SINGLE-REG-IMAG-TN ...) ; x-compiling (DEFUN COMPLEX-DOUBLE-REG-REAL-TN ...) ; x-compiling (DEFUN COMPLEX-DOUBLE-REG-IMAG-TN ...) ; x-compiling (DEFINE-MOVE-FUN (LOAD-COMPLEX-SINGLE 2) ...) ; x-compiling (DEFINE-MOVE-FUN (STORE-COMPLEX-SINGLE 2) ...) ; x-compiling (DEFINE-MOVE-FUN (LOAD-COMPLEX-DOUBLE 2) ...) ; x-compiling (DEFINE-MOVE-FUN (STORE-COMPLEX-DOUBLE 2) ...) ; x-compiling (DEFINE-VOP (FLOAT-MOVE) ...) ; x-compiling (DEFINE-VOP (SINGLE-MOVE FLOAT-MOVE) ...) ; x-compiling (DEFINE-MOVE-VOP SINGLE-MOVE ...) ; x-compiling (DEFINE-VOP (DOUBLE-MOVE FLOAT-MOVE) ...) ; x-compiling (DEFINE-MOVE-VOP DOUBLE-MOVE ...) ; x-compiling (DEFINE-VOP (COMPLEX-FLOAT-MOVE) ...) ; x-compiling (DEFINE-VOP (COMPLEX-SINGLE-MOVE COMPLEX-FLOAT-MOVE) ...) ; x-compiling (DEFINE-MOVE-VOP COMPLEX-SINGLE-MOVE ...) ; x-compiling (DEFINE-VOP (COMPLEX-DOUBLE-MOVE COMPLEX-FLOAT-MOVE) ...) ; x-compiling (DEFINE-MOVE-VOP COMPLEX-DOUBLE-MOVE ...) ; x-compiling (DEFINE-VOP (MOVE-FROM-SINGLE) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/float.lisp ; in: DEFINE-VOP (MOVE-FROM-SINGLE) ; (SB!VM::WITH-FIXED-ALLOCATION (SB!VM::Y SB!VM:SINGLE-FLOAT-WIDETAG ; SB!VM:SINGLE-FLOAT-SIZE SB!VM::NODE) ; NIL) ; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::ALLOCATION ; ==> ; SB!VM::NODE ; ; note: deleting unreachable code ; x-compiling (DEFINE-MOVE-VOP MOVE-FROM-SINGLE ...) ; x-compiling (DEFINE-VOP (MOVE-FROM-DOUBLE) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/float.lisp ; in: DEFINE-VOP (MOVE-FROM-DOUBLE) ; (SB!VM::WITH-FIXED-ALLOCATION (SB!VM::Y SB!VM:DOUBLE-FLOAT-WIDETAG ; SB!VM:DOUBLE-FLOAT-SIZE SB!VM::NODE) ; NIL) ; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::ALLOCATION ; ==> ; SB!VM::NODE ; ; note: deleting unreachable code ; x-compiling (DEFINE-MOVE-VOP MOVE-FROM-DOUBLE ...) ; x-compiling (DEFINE-VOP (MOVE-FROM-FP-CONSTANT) ...) ; x-compiling (DEFINE-MOVE-VOP MOVE-FROM-FP-CONSTANT ...) ; x-compiling (DEFINE-VOP (MOVE-TO-SINGLE) ...) ; x-compiling (DEFINE-MOVE-VOP MOVE-TO-SINGLE ...) ; x-compiling (DEFINE-VOP (MOVE-TO-DOUBLE) ...) ; x-compiling (DEFINE-MOVE-VOP MOVE-TO-DOUBLE ...) ; x-compiling (DEFINE-VOP (MOVE-FROM-COMPLEX-SINGLE) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/float.lisp ; in: DEFINE-VOP (MOVE-FROM-COMPLEX-SINGLE) ; (SB!VM::WITH-FIXED-ALLOCATION (SB!VM::Y SB!VM:COMPLEX-SINGLE-FLOAT-WIDETAG ; SB!VM:COMPLEX-SINGLE-FLOAT-SIZE SB!VM::NODE) ; (LET ((SB!VM::REAL-TN (SB!VM::COMPLEX-SINGLE-REG-REAL-TN SB!VM::X))) ; (SB!VM::WITH-TN@FP-TOP (SB!VM::REAL-TN) ; (SB!ASSEM:INST SB!VM::FST (SB!VM::EA-FOR-CSF-REAL-DESC SB!VM::Y)))) ; (LET ((SB!VM::IMAG-TN (SB!VM::COMPLEX-SINGLE-REG-IMAG-TN SB!VM::X))) ; (SB!VM::WITH-TN@FP-TOP (SB!VM::IMAG-TN) ; (SB!ASSEM:INST SB!VM::FST (SB!VM::EA-FOR-CSF-IMAG-DESC SB!VM::Y))))) ; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::ALLOCATION ; ==> ; SB!VM::NODE ; ; note: deleting unreachable code ; (LET ((SB!VM::REAL-TN (SB!VM::COMPLEX-SINGLE-REG-REAL-TN SB!VM::X))) ; (SB!VM::WITH-TN@FP-TOP (SB!VM::REAL-TN) ; (SB!ASSEM:INST SB!VM::FST (SB!VM::EA-FOR-CSF-REAL-DESC SB!VM::Y)))) ; ; note: deleting unreachable code ; (SB!VM::EA-FOR-CSF-REAL-DESC SB!VM::Y) ; ==> ; SB!VM::Y ; ; note: deleting unreachable code ; (LET ((SB!VM::REAL-TN (SB!VM::COMPLEX-SINGLE-REG-REAL-TN SB!VM::X))) ; (SB!VM::WITH-TN@FP-TOP (SB!VM::REAL-TN) ; (SB!ASSEM:INST SB!VM::FST (SB!VM::EA-FOR-CSF-REAL-DESC SB!VM::Y)))) ; ; note: deleting unreachable code ; (LET ((SB!VM::IMAG-TN (SB!VM::COMPLEX-SINGLE-REG-IMAG-TN SB!VM::X))) ; (SB!VM::WITH-TN@FP-TOP (SB!VM::IMAG-TN) ; (SB!ASSEM:INST SB!VM::FST (SB!VM::EA-FOR-CSF-IMAG-DESC SB!VM::Y)))) ; ; note: deleting unreachable code ; (SB!VM::EA-FOR-CSF-IMAG-DESC SB!VM::Y) ; ==> ; SB!VM::Y ; ; note: deleting unreachable code ; (LET ((SB!VM::IMAG-TN (SB!VM::COMPLEX-SINGLE-REG-IMAG-TN SB!VM::X))) ; (SB!VM::WITH-TN@FP-TOP (SB!VM::IMAG-TN) ; (SB!ASSEM:INST SB!VM::FST (SB!VM::EA-FOR-CSF-IMAG-DESC SB!VM::Y)))) ; ; note: deleting unreachable code ; x-compiling (DEFINE-MOVE-VOP MOVE-FROM-COMPLEX-SINGLE ...) ; x-compiling (DEFINE-VOP (MOVE-FROM-COMPLEX-DOUBLE) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/float.lisp ; in: DEFINE-VOP (MOVE-FROM-COMPLEX-DOUBLE) ; (SB!VM::WITH-FIXED-ALLOCATION (SB!VM::Y SB!VM:COMPLEX-DOUBLE-FLOAT-WIDETAG ; SB!VM:COMPLEX-DOUBLE-FLOAT-SIZE SB!VM::NODE) ; (LET ((SB!VM::REAL-TN (SB!VM::COMPLEX-DOUBLE-REG-REAL-TN SB!VM::X))) ; (SB!VM::WITH-TN@FP-TOP (SB!VM::REAL-TN) ; (SB!ASSEM:INST SB!VM::FSTD (SB!VM::EA-FOR-CDF-REAL-DESC SB!VM::Y)))) ; (LET ((SB!VM::IMAG-TN (SB!VM::COMPLEX-DOUBLE-REG-IMAG-TN SB!VM::X))) ; (SB!VM::WITH-TN@FP-TOP (SB!VM::IMAG-TN) ; (SB!ASSEM:INST SB!VM::FSTD (SB!VM::EA-FOR-CDF-IMAG-DESC SB!VM::Y))))) ; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::ALLOCATION ; ==> ; SB!VM::NODE ; ; note: deleting unreachable code ; (LET ((SB!VM::REAL-TN (SB!VM::COMPLEX-DOUBLE-REG-REAL-TN SB!VM::X))) ; (SB!VM::WITH-TN@FP-TOP (SB!VM::REAL-TN) ; (SB!ASSEM:INST SB!VM::FSTD (SB!VM::EA-FOR-CDF-REAL-DESC SB!VM::Y)))) ; ; note: deleting unreachable code ; (SB!VM::EA-FOR-CDF-REAL-DESC SB!VM::Y) ; ==> ; SB!VM::Y ; ; note: deleting unreachable code ; (LET ((SB!VM::REAL-TN (SB!VM::COMPLEX-DOUBLE-REG-REAL-TN SB!VM::X))) ; (SB!VM::WITH-TN@FP-TOP (SB!VM::REAL-TN) ; (SB!ASSEM:INST SB!VM::FSTD (SB!VM::EA-FOR-CDF-REAL-DESC SB!VM::Y)))) ; ; note: deleting unreachable code ; (LET ((SB!VM::IMAG-TN (SB!VM::COMPLEX-DOUBLE-REG-IMAG-TN SB!VM::X))) ; (SB!VM::WITH-TN@FP-TOP (SB!VM::IMAG-TN) ; (SB!ASSEM:INST SB!VM::FSTD (SB!VM::EA-FOR-CDF-IMAG-DESC SB!VM::Y)))) ; ; note: deleting unreachable code ; (SB!VM::EA-FOR-CDF-IMAG-DESC SB!VM::Y) ; ==> ; SB!VM::Y ; ; note: deleting unreachable code ; (LET ((SB!VM::IMAG-TN (SB!VM::COMPLEX-DOUBLE-REG-IMAG-TN SB!VM::X))) ; (SB!VM::WITH-TN@FP-TOP (SB!VM::IMAG-TN) ; (SB!ASSEM:INST SB!VM::FSTD (SB!VM::EA-FOR-CDF-IMAG-DESC SB!VM::Y)))) ; ; note: deleting unreachable code ; x-compiling (DEFINE-MOVE-VOP MOVE-FROM-COMPLEX-DOUBLE ...) ; x-compiling (FROB MOVE-TO-COMPLEX-SINGLE ...) ; x-compiling (FROB MOVE-TO-COMPLEX-DOUBLE ...) ; x-compiling (FROB MOVE-SINGLE-FLOAT-ARG ...) ; x-compiling (FROB MOVE-DOUBLE-FLOAT-ARG ...) ; x-compiling (FROB MOVE-COMPLEX-SINGLE-FLOAT-ARG ...) ; x-compiling (FROB MOVE-COMPLEX-DOUBLE-FLOAT-ARG ...) ; x-compiling (DEFINE-MOVE-VOP MOVE-ARG ...) ; x-compiling (FROB + ...) ; x-compiling (FROB - ...) ; x-compiling (FROB * ...) ; x-compiling (FROB / ...) ; x-compiling (FROB ABS/SINGLE-FLOAT ...) ; x-compiling (FROB ABS/DOUBLE-FLOAT ...) ; x-compiling (FROB %NEGATE/SINGLE-FLOAT ...) ; x-compiling (FROB %NEGATE/DOUBLE-FLOAT ...) ; x-compiling (DEFINE-VOP (=/FLOAT) ...) ; x-compiling (DEFINE-VOP (=/SINGLE-FLOAT =/FLOAT) ...) ; x-compiling (DEFINE-VOP (=/DOUBLE-FLOAT =/FLOAT) ...) ; x-compiling (DEFINE-VOP (SINGLE-FLOAT) ...) ; x-compiling (DEFINE-VOP (>DOUBLE-FLOAT) ...) ; x-compiling (DEFINE-VOP (FLOAT-TEST) ...) ; x-compiling (DEFINE-VOP (=0/SINGLE-FLOAT FLOAT-TEST) ...) ; x-compiling (DEFINE-VOP (=0/DOUBLE-FLOAT FLOAT-TEST) ...) ; x-compiling (DEFINE-VOP (<0/SINGLE-FLOAT FLOAT-TEST) ...) ; x-compiling (DEFINE-VOP (<0/DOUBLE-FLOAT FLOAT-TEST) ...) ; x-compiling (DEFINE-VOP (>0/SINGLE-FLOAT FLOAT-TEST) ...) ; x-compiling (DEFINE-VOP (>0/DOUBLE-FLOAT FLOAT-TEST) ...) ; x-compiling (FROB %SINGLE-FLOAT/SIGNED ...) ; x-compiling (FROB %DOUBLE-FLOAT/SIGNED ...) ; x-compiling (FROB %SINGLE-FLOAT/UNSIGNED ...) ; x-compiling (FROB %DOUBLE-FLOAT/UNSIGNED ...) ; x-compiling (FROB %SINGLE-FLOAT/DOUBLE-FLOAT ...) ; x-compiling (FROB %DOUBLE-FLOAT/SINGLE-FLOAT ...) ; x-compiling (FROB %UNARY-TRUNCATE/SINGLE-FLOAT ...) ; x-compiling (FROB %UNARY-TRUNCATE/DOUBLE-FLOAT ...) ; x-compiling (FROB %UNARY-ROUND ...) ; x-compiling (FROB %UNARY-ROUND ...) ; x-compiling (FROB %UNARY-TRUNCATE/SINGLE-FLOAT ...) ; x-compiling (FROB %UNARY-TRUNCATE/DOUBLE-FLOAT ...) ; x-compiling (FROB %UNARY-ROUND ...) ; x-compiling (FROB %UNARY-ROUND ...) ; x-compiling (DEFINE-VOP (MAKE-SINGLE-FLOAT) ...) ; x-compiling (DEFINE-VOP (MAKE-SINGLE-FLOAT-C) ...) ; x-compiling (DEFINE-VOP (MAKE-DOUBLE-FLOAT) ...) ; x-compiling (DEFINE-VOP (MAKE-DOUBLE-FLOAT-C) ...) ; x-compiling (DEFINE-VOP (SINGLE-FLOAT-BITS) ...) ; x-compiling (DEFINE-VOP (DOUBLE-FLOAT-HIGH-BITS) ...) ; x-compiling (DEFINE-VOP (DOUBLE-FLOAT-LOW-BITS) ...) ; x-compiling (SB-XC:DEFTYPE FLOAT-MODES ...) ; x-compiling (DEFKNOWN FLOATING-POINT-MODES ...) ; x-compiling (DEFKNOWN (#) ...) ; x-compiling (DEF!CONSTANT NPX-ENV-SIZE ...) ; x-compiling (DEF!CONSTANT NPX-CW-OFFSET ...) ; x-compiling (DEF!CONSTANT NPX-SW-OFFSET ...) ; x-compiling (DEFINE-VOP (FLOATING-POINT-MODES) ...) ; x-compiling (DEFINE-VOP (SET-FLOATING-POINT-MODES) ...) ; x-compiling (FROB FSIN-QUICK ...) ; x-compiling (FROB FCOS-QUICK ...) ; x-compiling (FROB FSQRT ...) ; x-compiling (DEFINE-VOP (FTAN-QUICK) ...) ; x-compiling (FROB FSIN ...) ; x-compiling (FROB FCOS ...) ; x-compiling (DEFINE-VOP (FTAN) ...) ; x-compiling (DEFINE-VOP (FEXP) ...) ; x-compiling (DEFINE-VOP (FEXPM1) ...) ; x-compiling (DEFINE-VOP (FLOG) ...) ; x-compiling (DEFINE-VOP (FLOG10) ...) ; x-compiling (DEFINE-VOP (FPOW) ...) ; x-compiling (DEFINE-VOP (FSCALEN) ...) ; x-compiling (DEFINE-VOP (FSCALE) ...) ; x-compiling (DEFINE-VOP (FLOG1P) ...) ; x-compiling (DEFINE-VOP (FLOG1P-PENTIUM) ...) ; x-compiling (DEFINE-VOP (FLOGB) ...) ; x-compiling (DEFINE-VOP (FATAN) ...) ; x-compiling (DEFINE-VOP (FATAN2) ...) ; x-compiling (DEFINE-VOP (MAKE-COMPLEX-SINGLE-FLOAT) ...) ; x-compiling (DEFINE-VOP (MAKE-COMPLEX-DOUBLE-FLOAT) ...) ; x-compiling (DEFINE-VOP (COMPLEX-FLOAT-VALUE) ...) ; x-compiling (DEFINE-VOP (REALPART/COMPLEX-SINGLE-FLOAT COMPLEX-FLOAT-VALUE) ...) ; x-compiling (DEFINE-VOP (REALPART/COMPLEX-DOUBLE-FLOAT COMPLEX-FLOAT-VALUE) ...) ; x-compiling (DEFINE-VOP (IMAGPART/COMPLEX-SINGLE-FLOAT COMPLEX-FLOAT-VALUE) ...) ; x-compiling (DEFINE-VOP (IMAGPART/COMPLEX-DOUBLE-FLOAT COMPLEX-FLOAT-VALUE) ...) ; x-compiling (DEFKNOWN DOUBLE-FLOAT-REG-BIAS ...) ; x-compiling (DEFINE-VOP (DOUBLE-FLOAT-REG-BIAS) ...) ; x-compiling (DEFKNOWN SINGLE-FLOAT-REG-BIAS ...) ; x-compiling (DEFINE-VOP (SINGLE-FLOAT-REG-BIAS) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/float.lisp ; in: DEFINE-VOP (MAKE-DOUBLE-FLOAT-C) ; (SB!C:REGISTER-INLINE-CONSTANT :DOUBLE-FLOAT-BITS ; (LOGIOR (ASH SB!VM::HI 32) SB!VM::LO)) ; ; caught STYLE-WARNING: ; undefined function: REGISTER-INLINE-CONSTANT ; in: DEFINE-VOP (MAKE-SINGLE-FLOAT-C) ; (SB!C:REGISTER-INLINE-CONSTANT :DWORD SB!VM::BITS) ; ; caught STYLE-WARNING: ; undefined function: REGISTER-INLINE-CONSTANT ; in: DEFINE-MOVE-FUN (LOAD-FP-IMMEDIATE 2) ; (SB!C:REGISTER-INLINE-CONSTANT (SB!C:TN-VALUE SB!VM::X)) ; ; caught STYLE-WARNING: ; undefined function: REGISTER-INLINE-CONSTANT ; ; compilation unit finished ; Undefined function: ; REGISTER-INLINE-CONSTANT ; caught 3 STYLE-WARNING conditions ; printed 16 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/x86/float.lisp-obj-tmp written ; compilation finished in 0:00:03.923 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/sap.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFINE-VOP (MOVE-TO-SAP) ...) ; x-compiling (DEFINE-MOVE-VOP MOVE-TO-SAP ...) ; x-compiling (DEFINE-VOP (MOVE-FROM-SAP) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/sap.lisp ; in: DEFINE-VOP (MOVE-FROM-SAP) ; (SB!VM::WITH-FIXED-ALLOCATION (SB!VM::RES SB!VM:SAP-WIDETAG SB!VM:SAP-SIZE ; SB!VM::NODE) ; (SB!VM::STOREW SB!VM::SAP SB!VM::RES SB!VM:SAP-POINTER-SLOT ; SB!VM:OTHER-POINTER-LOWTAG)) ; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::ALLOCATION ; ==> ; SB!VM::NODE ; ; note: deleting unreachable code ; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::STOREW LET ; --> SB!ASSEM:INST SB!VM::MOV-INST-EMITTER SB!VM::MAKE-EA-FOR-OBJECT-SLOT ; --> SB!VM::MAKE-EA - ; ==> ; SB!VM:OTHER-POINTER-LOWTAG ; ; note: deleting unreachable code ; (SB!VM::STOREW SB!VM::SAP SB!VM::RES SB!VM:SAP-POINTER-SLOT ; SB!VM:OTHER-POINTER-LOWTAG) ; --> LET ; ==> ; SB!VM::SAP ; ; note: deleting unreachable code ; --> LET SB!ASSEM:INST SB!VM::MOV-INST-EMITTER SB!VM::MAKE-EA-FOR-OBJECT-SLOT ; --> SB!VM::MAKE-EA ; ==> ; SB!VM::RES ; ; note: deleting unreachable code ; x-compiling (DEFINE-MOVE-VOP MOVE-FROM-SAP ...) ; x-compiling (DEFINE-VOP (SAP-MOVE) ...) ; x-compiling (DEFINE-MOVE-VOP SAP-MOVE ...) ; x-compiling (DEFINE-VOP (MOVE-SAP-ARG) ...) ; x-compiling (DEFINE-MOVE-VOP MOVE-SAP-ARG ...) ; x-compiling (DEFINE-MOVE-VOP MOVE-ARG ...) ; x-compiling (DEFINE-VOP (SAP-INT) ...) ; x-compiling (DEFINE-VOP (INT-SAP) ...) ; x-compiling (DEFINE-VOP (POINTER+) ...) ; x-compiling (DEFINE-VOP (POINTER-) ...) ; x-compiling (DEF-SYSTEM-REF-AND-SET SB!C::SAP-REF-8-WITH-OFFSET ...) ; x-compiling (DEF-SYSTEM-REF-AND-SET SB!C::SIGNED-SAP-REF-8-WITH-OFFSET ...) ; x-compiling (DEF-SYSTEM-REF-AND-SET SB!C::SAP-REF-16-WITH-OFFSET ...) ; x-compiling (DEF-SYSTEM-REF-AND-SET SB!C::SIGNED-SAP-REF-16-WITH-OFFSET ...) ; x-compiling (DEF-SYSTEM-REF-AND-SET SB!C::SAP-REF-32-WITH-OFFSET ...) ; x-compiling (DEF-SYSTEM-REF-AND-SET SB!C::SIGNED-SAP-REF-32-WITH-OFFSET ...) ; x-compiling (DEF-SYSTEM-REF-AND-SET SB!C::SAP-REF-SAP-WITH-OFFSET ...) ; x-compiling (DEF-SYSTEM-REF-AND-SET SB!C::SAP-REF-LISPOBJ-WITH-OFFSET ...) ; x-compiling (DEFINE-VOP (SAP-REF-DOUBLE-WITH-OFFSET) ...) ; x-compiling (DEFINE-VOP (%SET-SAP-REF-DOUBLE-WITH-OFFSET) ...) ; x-compiling (DEFINE-VOP (%SET-SAP-REF-DOUBLE-WITH-OFFSET-C) ...) ; x-compiling (DEFINE-VOP (SAP-REF-SINGLE-WITH-OFFSET) ...) ; x-compiling (DEFINE-VOP (%SET-SAP-REF-SINGLE-WITH-OFFSET) ...) ; x-compiling (DEFINE-VOP (%SET-SAP-REF-SINGLE-WITH-OFFSET-C) ...) ; x-compiling (DEFINE-VOP (SAP-REF-LONG) ...) ; x-compiling (DEFINE-VOP (SAP-REF-LONG-C) ...) ; x-compiling (DEFINE-VOP (VECTOR-SAP) ...); ; compilation unit finished ; printed 4 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/x86/sap.lisp-obj-tmp written ; compilation finished in 0:00:00.980 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/system.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFINE-VOP (LOWTAG-OF) ...) ; x-compiling (DEFINE-VOP (WIDETAG-OF) ...) ; x-compiling (DEFINE-VOP (FUN-SUBTYPE) ...) ; x-compiling (DEFINE-VOP (SET-FUN-SUBTYPE) ...) ; x-compiling (DEFINE-VOP (GET-HEADER-DATA) ...) ; x-compiling (DEFINE-VOP (GET-CLOSURE-LENGTH) ...) ; x-compiling (DEFINE-VOP (SET-HEADER-DATA) ...) ; x-compiling (DEFINE-VOP (POINTER-HASH) ...) ; x-compiling (DEFINE-VOP (DYNAMIC-SPACE-FREE-POINTER) ...) ; x-compiling (DEFINE-VOP (BINDING-STACK-POINTER-SAP) ...) ; x-compiling (DEFKNOWN (SETF BINDING-STACK-POINTER-SAP) ...) ; x-compiling (DEFINE-VOP (SET-BINDING-STACK-POINTER-SAP) ...) ; x-compiling (DEFINE-VOP (CONTROL-STACK-POINTER-SAP) ...) ; x-compiling (DEFINE-VOP (CODE-INSTRUCTIONS) ...) ; x-compiling (DEFINE-VOP (COMPUTE-FUN) ...) ; x-compiling (DEFINE-VOP (%SIMPLE-FUN-SELF) ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM %CLOSURE-FUN ...) ; x-compiling (DEFINE-VOP (%SET-FUN-SELF) ...) ; x-compiling (DEFINE-VOP (SYMBOL-INFO-VECTOR) ...) ; x-compiling (DEFINE-VOP (SYMBOL-PLIST) ...) ; x-compiling (DEFKNOWN SB!UNIX::RECEIVE-PENDING-INTERRUPT ...) ; x-compiling (DEFINE-VOP (SB!UNIX::RECEIVE-PENDING-INTERRUPT) ...) ; x-compiling (DEFINE-VOP (HALT) ...) ; x-compiling (DEFKNOWN FLOAT-WAIT ...) ; x-compiling (DEFINE-VOP (FLOAT-WAIT) ...) ; x-compiling (DEFKNOWN %READ-CYCLE-COUNTER ...) ; x-compiling (DEFINE-VOP (%READ-CYCLE-COUNTER) ...) ; x-compiling (DEFMACRO WITH-CYCLE-COUNTER ...) ; x-compiling (DEFINE-VOP (%COMPILER-BARRIER) ...) ; x-compiling (DEFINE-VOP (%MEMORY-BARRIER) ...) ; x-compiling (DEFINE-VOP (%READ-BARRIER) ...) ; x-compiling (DEFINE-VOP (%WRITE-BARRIER) ...) ; x-compiling (DEFINE-VOP (%DATA-DEPENDENCY-BARRIER) ...) ; x-compiling (DEFINE-VOP (PAUSE) ...) ; x-compiling (DEFKNOWN %CONS-CAS-PAIR ...) ; x-compiling (DEFKNOWN %VECTOR-CAS-PAIR ...) ; x-compiling (DEFKNOWN %INSTANCE-CAS-PAIR ...) ; x-compiling (DEFINE-CMPXCHG-VOP COMPARE-AND-EXCHANGE-PAIR ...) ; x-compiling (DEFINE-CMPXCHG-VOP COMPARE-AND-EXCHANGE-PAIR-INDEXED ...) ; x-compiling (DEFINE-VOP (%VECTOR-CAS-PAIR COMPARE-AND-EXCHANGE-PAIR-INDEXED) ...) ; x-compiling (DEFINE-VOP (%INSTANCE-CAS-PAIR COMPARE-AND-EXCHANGE-PAIR-INDEXED) ...) ; x-compiling (DEFKNOWN %CPU-IDENTIFICATION ...) ; x-compiling (DEFINE-VOP (%CPU-IDENTIFICATION) ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/x86/system.lisp-obj-tmp written ; compilation finished in 0:00:00.686 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/char.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFINE-VOP (MOVE-TO-CHARACTER) ...) ; x-compiling (DEFINE-MOVE-VOP MOVE-TO-CHARACTER ...) ; x-compiling (DEFINE-VOP (MOVE-FROM-CHARACTER) ...) ; x-compiling (DEFINE-MOVE-VOP MOVE-FROM-CHARACTER ...) ; x-compiling (DEFINE-VOP (CHARACTER-MOVE) ...) ; x-compiling (DEFINE-MOVE-VOP CHARACTER-MOVE ...) ; x-compiling (DEFINE-VOP (MOVE-CHARACTER-ARG) ...) ; x-compiling (DEFINE-MOVE-VOP MOVE-CHARACTER-ARG ...) ; x-compiling (DEFINE-MOVE-VOP MOVE-ARG ...) ; x-compiling (DEFINE-VOP (CHAR-CODE) ...) ; x-compiling (DEFINE-VOP (CODE-CHAR) ...) ; x-compiling (DEFINE-VOP (CHARACTER-COMPARE) ...) ; x-compiling (DEFINE-VOP (FAST-CHAR=/CHARACTER CHARACTER-COMPARE) ...) ; x-compiling (DEFINE-VOP (FAST-CHAR/CHARACTER CHARACTER-COMPARE) ...) ; x-compiling (DEFINE-VOP (CHARACTER-COMPARE/C) ...) ; x-compiling (DEFINE-VOP (FAST-CHAR=/CHARACTER/C CHARACTER-COMPARE/C) ...) ; x-compiling (DEFINE-VOP (FAST-CHAR/CHARACTER/C CHARACTER-COMPARE/C) ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/x86/char.lisp-obj-tmp written ; compilation finished in 0:00:00.281 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/memory.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFINE-VOP (CELL-REF) ...) ; x-compiling (DEFINE-VOP (CELL-SET) ...) ; x-compiling (DEFINE-VOP (CELL-SETF) ...) ; x-compiling (DEFINE-VOP (CELL-SETF-FUN) ...) ; x-compiling (DEFMACRO DEFINE-CELL-ACCESSORS ...) ; x-compiling (DEFINE-VOP (CELL-XADD) ...) ; x-compiling (DEFINE-VOP (SLOT-REF) ...) ; x-compiling (DEFINE-VOP (SLOT-SET) ...) ; x-compiling (DEFINE-VOP (SLOT-SET-CONDITIONAL) ...) ; x-compiling (DEFINE-VOP (SLOT-XADD) ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/x86/memory.lisp-obj-tmp written ; compilation finished in 0:00:00.241 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/static-fn.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFINE-VOP (STATIC-FUN-TEMPLATE) ...) ; x-compiling (DEFUN STATIC-FUN-TEMPLATE-NAME ...) ; x-compiling (DEFUN MOVES ...) ; x-compiling (DEFUN STATIC-FUN-TEMPLATE-VOP ...) ; x-compiling (FROB 0 ...) ; x-compiling (FROB 1 ...) ; x-compiling (FROB 2 ...) ; x-compiling (FROB 3 ...) ; x-compiling (DEFMACRO DEFINE-STATIC-FUN ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/static-fn.lisp ; in: ; MACROLET ((FROB (NUM-ARGS NUM-RES) ; (STATIC-FUN-TEMPLATE-VOP (EVAL NUM-ARGS) (EVAL NUM-RES)))) ; (SB!VM::FROB 2 1) ; --> SB!C:DEFINE-VOP PROGN LET LET SB!C::MAKE-VOP-INFO LAMBDA FUNCTION LET* ; --> SB!ASSEM:ASSEMBLE LET* MACROLET SYMBOL-MACROLET LET ; ==> ; (SB!VM::DEFAULT-UNKNOWN-VALUES SB!VM::VOP VALUES 1 #:NODE200) ; ; caught STYLE-WARNING: ; undefined function: DEFAULT-UNKNOWN-VALUES ; (SB!VM::FROB 1 1) ; --> SB!C:DEFINE-VOP PROGN LET LET SB!C::MAKE-VOP-INFO LAMBDA FUNCTION LET* ; --> SB!ASSEM:ASSEMBLE LET* MACROLET SYMBOL-MACROLET LET ; ==> ; (SB!VM::DEFAULT-UNKNOWN-VALUES SB!VM::VOP VALUES 1 #:NODE179) ; ; caught STYLE-WARNING: ; undefined function: DEFAULT-UNKNOWN-VALUES ; (SB!VM::FROB 0 1) ; --> SB!C:DEFINE-VOP PROGN LET LET SB!C::MAKE-VOP-INFO LAMBDA FUNCTION LET* ; --> SB!ASSEM:ASSEMBLE LET* MACROLET SYMBOL-MACROLET LET ; ==> ; (SB!VM::DEFAULT-UNKNOWN-VALUES SB!VM::VOP VALUES 1 #:NODE163) ; ; caught STYLE-WARNING: ; undefined function: DEFAULT-UNKNOWN-VALUES ; ; caught STYLE-WARNING: ; 1 more use of undefined function DEFAULT-UNKNOWN-VALUES ; ; compilation unit finished ; Undefined function: ; DEFAULT-UNKNOWN-VALUES ; caught 4 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/x86/static-fn.lisp-obj-tmp written ; compilation finished in 0:00:00.247 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/arith.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFINE-VOP (FAST-SAFE-ARITH-OP) ...) ; x-compiling (DEFINE-VOP (FIXNUM-UNOP FAST-SAFE-ARITH-OP) ...) ; x-compiling (DEFINE-VOP (SIGNED-UNOP FAST-SAFE-ARITH-OP) ...) ; x-compiling (DEFINE-VOP (FAST-NEGATE/FIXNUM FIXNUM-UNOP) ...) ; x-compiling (DEFINE-VOP (FAST-NEGATE/SIGNED SIGNED-UNOP) ...) ; x-compiling (DEFINE-VOP (FAST-NEGATE/UNSIGNED SIGNED-UNOP) ...) ; x-compiling (DEFINE-VOP (FAST-LOGNOT/FIXNUM FIXNUM-UNOP) ...) ; x-compiling (DEFINE-VOP (FAST-LOGNOT/SIGNED SIGNED-UNOP) ...) ; x-compiling (DEFINE-VOP (FAST-FIXNUM-BINOP FAST-SAFE-ARITH-OP) ...) ; x-compiling (DEFINE-VOP (FAST-UNSIGNED-BINOP FAST-SAFE-ARITH-OP) ...) ; x-compiling (DEFINE-VOP (FAST-SIGNED-BINOP FAST-SAFE-ARITH-OP) ...) ; x-compiling (DEFINE-VOP (FAST-FIXNUM-BINOP-C FAST-SAFE-ARITH-OP) ...) ; x-compiling (DEFINE-VOP (FAST-UNSIGNED-BINOP-C FAST-SAFE-ARITH-OP) ...) ; x-compiling (DEFINE-VOP (FAST-SIGNED-BINOP-C FAST-SAFE-ARITH-OP) ...) ; x-compiling (DEFINE-BINOP - ...) ; x-compiling (DEFINE-BINOP LOGAND ...) ; x-compiling (DEFINE-BINOP LOGIOR ...) ; x-compiling (DEFINE-BINOP LOGXOR ...) ; x-compiling (DEFINE-VOP (FAST-LOGIOR-UNSIGNED-SIGNED=>SIGNED FAST-SAFE-ARITH-OP) ...) ; x-compiling (DEFINE-VOP (FAST-LOGIOR-SIGNED-UNSIGNED=>SIGNED FAST-SAFE-ARITH-OP) ...) ; x-compiling (DEFINE-VOP (FAST-+/FIXNUM=>FIXNUM FAST-SAFE-ARITH-OP) ...) ; x-compiling (DEFINE-VOP (FAST-+-C/FIXNUM=>FIXNUM FAST-SAFE-ARITH-OP) ...) ; x-compiling (DEFINE-VOP (FAST-+/SIGNED=>SIGNED FAST-SAFE-ARITH-OP) ...) ; x-compiling (DEFINE-VOP (FAST-LOGAND/SIGNED-UNSIGNED=>UNSIGNED FAST-LOGAND/UNSIGNED=>UNSIGNED) ...) ; x-compiling (DEFINE-VOP (FAST-LOGAND-C/SIGNED-UNSIGNED=>UNSIGNED FAST-LOGAND-C/UNSIGNED=>UNSIGNED) ...) ; x-compiling (DEFINE-VOP (FAST-LOGAND/UNSIGNED-SIGNED=>UNSIGNED FAST-LOGAND/UNSIGNED=>UNSIGNED) ...) ; x-compiling (DEFINE-VOP (FAST-+-C/SIGNED=>SIGNED FAST-SAFE-ARITH-OP) ...) ; x-compiling (DEFINE-VOP (FAST-+/UNSIGNED=>UNSIGNED FAST-SAFE-ARITH-OP) ...) ; x-compiling (DEFINE-VOP (FAST-+-C/UNSIGNED=>UNSIGNED FAST-SAFE-ARITH-OP) ...) ; x-compiling (DEFINE-VOP (FAST-*/FIXNUM=>FIXNUM FAST-SAFE-ARITH-OP) ...) ; x-compiling (DEFINE-VOP (FAST-*-C/FIXNUM=>FIXNUM FAST-SAFE-ARITH-OP) ...) ; x-compiling (DEFINE-VOP (FAST-*/SIGNED=>SIGNED FAST-SAFE-ARITH-OP) ...) ; x-compiling (DEFINE-VOP (FAST-*-C/SIGNED=>SIGNED FAST-SAFE-ARITH-OP) ...) ; x-compiling (DEFINE-VOP (FAST-*/UNSIGNED=>UNSIGNED FAST-SAFE-ARITH-OP) ...) ; x-compiling (DEFINE-VOP (FAST-TRUNCATE/FIXNUM=>FIXNUM FAST-SAFE-ARITH-OP) ...) ; x-compiling (DEFINE-VOP (FAST-TRUNCATE-C/FIXNUM=>FIXNUM FAST-SAFE-ARITH-OP) ...) ; x-compiling (DEFINE-VOP (FAST-TRUNCATE/UNSIGNED=>UNSIGNED FAST-SAFE-ARITH-OP) ...) ; x-compiling (DEFINE-VOP (FAST-TRUNCATE-C/UNSIGNED=>UNSIGNED FAST-SAFE-ARITH-OP) ...) ; x-compiling (DEFINE-VOP (FAST-TRUNCATE/SIGNED=>SIGNED FAST-SAFE-ARITH-OP) ...) ; x-compiling (DEFINE-VOP (FAST-TRUNCATE-C/SIGNED=>SIGNED FAST-SAFE-ARITH-OP) ...) ; x-compiling (DEFINE-VOP (FAST-ASH-C/FIXNUM=>FIXNUM) ...) ; x-compiling (DEFINE-VOP (FAST-ASH-LEFT/FIXNUM=>FIXNUM) ...) ; x-compiling (DEFINE-VOP (FAST-ASH-C/SIGNED=>SIGNED) ...) ; x-compiling (DEFINE-VOP (FAST-ASH-C/UNSIGNED=>UNSIGNED) ...) ; x-compiling (DEFINE-VOP (FAST-ASH-LEFT/SIGNED=>SIGNED) ...) ; x-compiling (DEFINE-VOP (FAST-ASH-LEFT/UNSIGNED=>UNSIGNED) ...) ; x-compiling (DEFINE-VOP (FAST-ASH/SIGNED=>SIGNED) ...) ; x-compiling (DEFINE-VOP (FAST-ASH/UNSIGNED=>UNSIGNED) ...) ; x-compiling (DEFINE-VOP (FAST-%ASH/RIGHT/UNSIGNED) ...) ; x-compiling (DEFINE-VOP (FAST-%ASH/RIGHT/SIGNED) ...) ; x-compiling (DEFINE-VOP (FAST-%ASH/RIGHT/FIXNUM) ...) ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFKNOWN %LEA ...) ; x-compiling (DEFOPTIMIZER (%LEA DERIVE-TYPE) ...) ; x-compiling (DEFUN %LEA ...) ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFINE-VOP (%LEA/UNSIGNED=>UNSIGNED) ...) ; x-compiling (DEFINE-VOP (%LEA/SIGNED=>SIGNED) ...) ; x-compiling (DEFINE-VOP (%LEA/FIXNUM=>FIXNUM) ...) ; x-compiling (DEFINE-VOP (FAST-CMOV-ASH/UNSIGNED=>UNSIGNED) ...) ; x-compiling (DEFINE-VOP (SIGNED-BYTE-32-LEN) ...) ; x-compiling (DEFINE-VOP (UNSIGNED-BYTE-32-LEN) ...) ; x-compiling (DEFINE-VOP (UNSIGNED-WORD-FIND-FIRST-BIT) ...) ; x-compiling (DEFINE-VOP (UNSIGNED-BYTE-32-COUNT) ...) ; x-compiling (DEFINE-VOP (FAST-CONDITIONAL) ...) ; x-compiling (DEFINE-VOP (FAST-CONDITIONAL/FIXNUM FAST-CONDITIONAL) ...) ; x-compiling (DEFINE-VOP (FAST-CONDITIONAL-C/FIXNUM FAST-CONDITIONAL/FIXNUM) ...) ; x-compiling (DEFINE-VOP (FAST-CONDITIONAL/SIGNED FAST-CONDITIONAL) ...) ; x-compiling (DEFINE-VOP (FAST-CONDITIONAL-C/SIGNED FAST-CONDITIONAL/SIGNED) ...) ; x-compiling (DEFINE-VOP (FAST-CONDITIONAL/UNSIGNED FAST-CONDITIONAL) ...) ; x-compiling (DEFINE-VOP (FAST-CONDITIONAL-C/UNSIGNED FAST-CONDITIONAL/UNSIGNED) ...) ; x-compiling (DEFINE-LOGTEST-VOPS) ; x-compiling (DEFKNOWN %LOGBITP ...) ; x-compiling (DEFUN %LOGBITP ...) ; x-compiling (DEFINE-VOP (FAST-LOGBITP-C/FIXNUM FAST-CONDITIONAL-C/FIXNUM) ...) ; x-compiling (DEFINE-VOP (FAST-LOGBITP/SIGNED FAST-CONDITIONAL/SIGNED) ...) ; x-compiling (DEFINE-VOP (FAST-LOGBITP-C/SIGNED FAST-CONDITIONAL-C/SIGNED) ...) ; x-compiling (DEFINE-VOP (FAST-LOGBITP/UNSIGNED FAST-CONDITIONAL/UNSIGNED) ...) ; x-compiling (DEFINE-VOP (FAST-LOGBITP-C/UNSIGNED FAST-CONDITIONAL-C/UNSIGNED) ...) ; x-compiling (DEFINE-CONDITIONAL-VOP < ...) ; x-compiling (DEFINE-CONDITIONAL-VOP > ...) ; x-compiling (DEFINE-VOP (FAST-IF-EQL/SIGNED FAST-CONDITIONAL/SIGNED) ...) ; x-compiling (DEFINE-VOP (FAST-IF-EQL-C/SIGNED FAST-CONDITIONAL-C/SIGNED) ...) ; x-compiling (DEFINE-VOP (FAST-IF-EQL/UNSIGNED FAST-CONDITIONAL/UNSIGNED) ...) ; x-compiling (DEFINE-VOP (FAST-IF-EQL-C/UNSIGNED FAST-CONDITIONAL-C/UNSIGNED) ...) ; x-compiling (DEFINE-VOP (FAST-EQL/FIXNUM FAST-CONDITIONAL) ...) ; x-compiling (DEFINE-VOP (GENERIC-EQL/FIXNUM FAST-EQL/FIXNUM) ...) ; x-compiling (DEFINE-VOP (FAST-EQL-C/FIXNUM FAST-CONDITIONAL/FIXNUM) ...) ; x-compiling (DEFINE-VOP (GENERIC-EQL-C/FIXNUM FAST-EQL-C/FIXNUM) ...) ; x-compiling (DEFINE-VOP (SHIFT-TOWARDS-SOMEPLACE) ...) ; x-compiling (DEFINE-VOP (SHIFT-TOWARDS-START SHIFT-TOWARDS-SOMEPLACE) ...) ; x-compiling (DEFINE-VOP (SHIFT-TOWARDS-END SHIFT-TOWARDS-SOMEPLACE) ...) ; x-compiling (DEFMACRO DEFINE-MOD-BINOP ...) ; x-compiling (DEFMACRO DEFINE-MOD-BINOP-C ...) ; x-compiling (DEF + ...) ; x-compiling (DEF - ...) ; x-compiling (DEF * ...) ; x-compiling (DEFINE-MODULAR-FUN %NEGATE-MOD32 ...) ; x-compiling (DEFINE-VOP (%NEGATE-MOD32) ...) ; x-compiling (DEFINE-MODULAR-FUN %NEGATE-MODFX ...) ; x-compiling (DEFINE-VOP (%NEGATE-MODFX FAST-NEGATE/FIXNUM) ...) ; x-compiling (DEFINE-VOP (FAST-ASH-LEFT-MOD32-C/UNSIGNED=>UNSIGNED FAST-ASH-C/UNSIGNED=>UNSIGNED) ...) ; x-compiling (DEFINE-VOP (FAST-ASH-LEFT-MOD32/UNSIGNED=>UNSIGNED FAST-ASH-LEFT/UNSIGNED=>UNSIGNED)) ; x-compiling (DEFTRANSFORM ASH-LEFT-MOD32 ...) ; x-compiling (DEFINE-VOP (FAST-ASH-LEFT-MODFX-C/FIXNUM=>FIXNUM FAST-ASH-C/FIXNUM=>FIXNUM) ...) ; x-compiling (DEFINE-VOP (FAST-ASH-LEFT-MODFX/FIXNUM=>FIXNUM FAST-ASH-LEFT/FIXNUM=>FIXNUM)) ; x-compiling (DEFTRANSFORM ASH-LEFT-MODFX ...) ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFKNOWN SB!VM::%LEA-MOD32 ...) ; x-compiling (DEFKNOWN SB!VM::%LEA-MODFX ...) ; x-compiling (DEFINE-MODULAR-FUN-OPTIMIZER %LEA ...) ; x-compiling (DEFINE-MODULAR-FUN-OPTIMIZER %LEA ...) ; x-compiling (DEFUN SB!VM::%LEA-MOD32 ...) ; x-compiling (DEFUN SB!VM::%LEA-MODFX ...) ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFINE-VOP (%LEA-MOD32/UNSIGNED=>UNSIGNED %LEA/UNSIGNED=>UNSIGNED) ...) ; x-compiling (DEFINE-VOP (%LEA-MODFX/FIXNUM=>FIXNUM %LEA/FIXNUM=>FIXNUM) ...) ; x-compiling (DEFINE-MODULAR-FUN LOGNOT-MOD32 ...) ; x-compiling (DEFINE-VOP (LOGNOT-MOD32/WORD=>UNSIGNED) ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM LOGEQV ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM LOGANDC1 ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM LOGANDC2 ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM LOGORC1 ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM LOGORC2 ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM LOGNOR ...) ; x-compiling (DEFINE-SOURCE-TRANSFORM LOGNAND ...) ; x-compiling (DEFINE-VOP (BIGNUM-LENGTH GET-HEADER-DATA) ...) ; x-compiling (DEFINE-VOP (BIGNUM-SET-LENGTH SET-HEADER-DATA) ...) ; x-compiling (DEFINE-FULL-REFFER BIGNUM-REF ...) ; x-compiling (DEFINE-FULL-REFFER+OFFSET BIGNUM-REF-WITH-OFFSET ...) ; x-compiling (DEFINE-FULL-SETTER BIGNUM-SET ...) ; x-compiling (DEFINE-VOP (DIGIT-0-OR-PLUS) ...) ; x-compiling (DEFINE-VOP (ADD-W/CARRY) ...) ; x-compiling (DEFINE-VOP (SUB-W/BORROW) ...) ; x-compiling (DEFINE-VOP (BIGNUM-MULT-AND-ADD-3-ARG) ...) ; x-compiling (DEFINE-VOP (BIGNUM-MULT-AND-ADD-4-ARG) ...) ; x-compiling (DEFINE-VOP (BIGNUM-MULT) ...) ; x-compiling (DEFINE-VOP (MULHI) ...) ; x-compiling (DEFINE-VOP (MULHI/FX) ...) ; x-compiling (DEFINE-VOP (BIGNUM-LOGNOT LOGNOT-MOD32/WORD=>UNSIGNED) ...) ; x-compiling (DEFINE-VOP (FIXNUM-TO-DIGIT) ...) ; x-compiling (DEFINE-VOP (BIGNUM-FLOOR) ...) ; x-compiling (DEFINE-VOP (SIGNIFY-DIGIT) ...) ; x-compiling (DEFINE-VOP (DIGIT-ASHR) ...) ; x-compiling (DEFINE-VOP (DIGIT-ASHR/C) ...) ; x-compiling (DEFINE-VOP (DIGIT-LSHR DIGIT-ASHR) ...) ; x-compiling (DEFINE-VOP (DIGIT-ASHL DIGIT-ASHR) ...) ; x-compiling (DEFINE-STATIC-FUN TWO-ARG-/ ...) ; x-compiling (DEFINE-STATIC-FUN TWO-ARG-GCD ...) ; x-compiling (DEFINE-STATIC-FUN TWO-ARG-LCM ...) ; x-compiling (DEFINE-STATIC-FUN TWO-ARG-AND ...) ; x-compiling (DEFINE-STATIC-FUN TWO-ARG-IOR ...) ; x-compiling (DEFINE-STATIC-FUN TWO-ARG-XOR ...) ; x-compiling (DEFKNOWN RANDOM-MT19937 ...) ; x-compiling (DEFINE-VOP (RANDOM-MT19937) ...) ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFUN MASK-RESULT ...) ; x-compiling (DEFUN BASIC-DECOMPOSE-MULTIPLICATION ...) ; x-compiling (DEFUN DECOMPOSE-MULTIPLICATION ...) ; x-compiling (DEFUN OPTIMIZE-MULTIPLY ...) ; x-compiling (DEFUN *-TRANSFORMER ...) ; x-compiling (DEFTRANSFORM * ...) ; x-compiling (DEFTRANSFORM SB!VM::*-MOD32 ...) ; x-compiling (DEFTRANSFORM * ...) ; x-compiling (DEFTRANSFORM SB!VM::*-MODFX ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/x86/arith.lisp-obj-tmp written ; compilation finished in 0:00:03.916 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/type-vops.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFUN GENERATE-FIXNUM-TEST ...) ; x-compiling (DEFUN %TEST-FIXNUM ...) ; x-compiling (DEFUN %TEST-FIXNUM-AND-HEADERS ...) ; x-compiling (DEFUN %TEST-IMMEDIATE ...) ; x-compiling (DEFUN %TEST-LOWTAG ...) ; x-compiling (DEFUN %TEST-HEADERS ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/type-vops.lisp ; in: DEFUN %TEST-HEADERS ; (SB!ASSEM:INST SB!VM::JMP SB!VM::LESS-OR-EQUAL SB!VM::TARGET) ; --> SB!VM::JMP-INST-EMITTER ; ==> ; SB!VM::LESS-OR-EQUAL ; ; note: deleting unreachable code ; x-compiling (DEFINE-VOP (CHECK-TYPE) ...) ; x-compiling (DEFINE-VOP (TYPE-PREDICATE) ...) ; x-compiling (DEFINE-VOP (SIMPLE-CHECK-TYPE) ...) ; x-compiling (DEFINE-VOP (SIMPLE-TYPE-PREDICATE) ...) ; x-compiling (DEFUN COST-TO-TEST-TYPES ...) ; x-compiling (DEFMACRO !DEFINE-TYPE-VOPS ...) ; x-compiling (DEFINE-VOP (FIXNUMP/UNSIGNED-BYTE-32 SIMPLE-TYPE-PREDICATE) ...) ; x-compiling (DEFINE-VOP (FIXNUMP/SIGNED-BYTE-32 TYPE-PREDICATE) ...) ; x-compiling (DEFINE-VOP (SIGNED-BYTE-32-P TYPE-PREDICATE) ...) ; x-compiling (DEFINE-VOP (CHECK-SIGNED-BYTE-32 CHECK-TYPE) ...) ; x-compiling (DEFINE-VOP (UNSIGNED-BYTE-32-P TYPE-PREDICATE) ...) ; x-compiling (DEFINE-VOP (CHECK-UNSIGNED-BYTE-32 CHECK-TYPE) ...) ; x-compiling (DEFUN POWER-OF-TWO-LIMIT-P ...) ; x-compiling (DEFINE-VOP (TEST-FIXNUM-MOD-POWER-OF-TWO) ...) ; x-compiling (DEFINE-VOP (TEST-FIXNUM-MOD-TAGGED-UNSIGNED) ...) ; x-compiling (DEFINE-VOP (TEST-FIXNUM-MOD-*) ...) ; x-compiling (DEFINE-VOP (SYMBOLP TYPE-PREDICATE) ...) ; x-compiling (DEFINE-VOP (CHECK-SYMBOL CHECK-TYPE) ...) ; x-compiling (DEFINE-VOP (CONSP TYPE-PREDICATE) ...) ; x-compiling (DEFINE-VOP (CHECK-CONS CHECK-TYPE) ...) ; x-compiling (DEFINE-VOP (%OTHER-POINTER-SUBTYPE-P TYPE-PREDICATE) ...); ; compilation unit finished ; printed 1 note ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/x86/type-vops.lisp-obj-tmp written ; compilation finished in 0:00:00.560 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/subprim.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFINE-VOP (LENGTH/LIST) ...) ; x-compiling (DEFINE-VOP (FAST-LENGTH/LIST) ...) ; x-compiling (DEFINE-STATIC-FUN LENGTH ...) ; x-compiling (DEFINE-STATIC-FUN %COERCE-CALLABLE-TO-FUN ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/x86/subprim.lisp-obj-tmp written ; compilation finished in 0:00:00.064 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/debug.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFINE-VOP (DEBUG-CUR-SP) ...) ; x-compiling (DEFINE-VOP (DEBUG-CUR-FP) ...) ; x-compiling (DEFINE-VOP (READ-CONTROL-STACK) ...) ; x-compiling (DEFINE-VOP (READ-CONTROL-STACK-C) ...) ; x-compiling (DEFINE-VOP (WRITE-CONTROL-STACK) ...) ; x-compiling (DEFINE-VOP (WRITE-CONTROL-STACK-C) ...) ; x-compiling (DEFINE-VOP (CODE-FROM-MUMBLE) ...) ; x-compiling (DEFINE-VOP (CODE-FROM-LRA CODE-FROM-MUMBLE) ...) ; x-compiling (DEFINE-VOP (CODE-FROM-FUNCTION CODE-FROM-MUMBLE) ...) ; x-compiling (DEFINE-VOP (%MAKE-LISP-OBJ) ...) ; x-compiling (DEFINE-VOP (GET-LISP-OBJ-ADDRESS) ...) ; x-compiling (DEFINE-VOP (FUN-WORD-OFFSET) ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/x86/debug.lisp-obj-tmp written ; compilation finished in 0:00:00.249 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/early-aliencomp.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFKNOWN %ALIEN-FUNCALL ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/early-aliencomp.lisp-obj-tmp written ; compilation finished in 0:00:00.005 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/c-call.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFUN MY-MAKE-WIRED-TN ...) ; x-compiling (DEFSTRUCT (ARG-STATE #) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :ARG-TN) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :ARG-TN) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (DOUBLE-FLOAT :ARG-TN) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (SINGLE-FLOAT :ARG-TN) ...) ; x-compiling (DEFSTRUCT (RESULT-STATE #) ...) ; x-compiling (DEFUN RESULT-REG-OFFSET ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :RESULT-TN) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (INTEGER :NATURALIZE-GEN) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (SYSTEM-AREA-POINTER :RESULT-TN) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (DOUBLE-FLOAT :RESULT-TN) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (SINGLE-FLOAT :RESULT-TN) ...) ; x-compiling (DEFINE-ALIEN-TYPE-METHOD (VALUES :RESULT-TN) ...) ; x-compiling (DEFUN MAKE-CALL-OUT-TNS ...) ; x-compiling (DEFTRANSFORM %ALIEN-FUNCALL ...) ; x-compiling (DEFKNOWN SIGN-EXTEND ...) ; x-compiling (DEFINE-VOP (SIGN-EXTEND) ...) ; x-compiling (DEFUN SIGN-EXTEND ...) ; x-compiling (DEFINE-VOP (FOREIGN-SYMBOL-SAP) ...) ; x-compiling (DEFINE-VOP (FOREIGN-SYMBOL-DATAREF-SAP) ...) ; x-compiling (DEFUN FORCE-X87-TO-MEM ...) ; x-compiling (DEFINE-VOP (CALL-OUT) ...) ; x-compiling (DEFINE-VOP (SET-FPU-WORD-FOR-C) ...) ; x-compiling (DEFINE-VOP (SET-FPU-WORD-FOR-LISP) ...) ; x-compiling (DEFINE-VOP (ALLOC-NUMBER-STACK-SPACE) ...) ; x-compiling (DEFINE-VOP (ALLOC-ALIEN-STACK-SPACE) ...) ; x-compiling (DEFINE-VOP (TOUCH-OBJECT) ...) ; x-compiling (DEFUN ALIEN-CALLBACK-ACCESSOR-FORM ...) ; x-compiling (DEFUN ALIEN-CALLBACK-ASSEMBLER-WRAPPER ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/x86/c-call.lisp-obj-tmp written ; compilation finished in 0:00:00.387 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/cell.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFINE-VOP (SLOT) ...) ; x-compiling (DEFINE-VOP (SET-SLOT) ...) ; x-compiling (DEFINE-VOP (INIT-SLOT SET-SLOT)) ; x-compiling (DEFINE-VOP (COMPARE-AND-SWAP-SLOT) ...) ; x-compiling (DEFINE-VOP (%COMPARE-AND-SWAP-SYMBOL-VALUE) ...) ; x-compiling (DEFINE-VOP (%SET-SYMBOL-GLOBAL-VALUE CELL-SET) ...) ; x-compiling (DEFINE-VOP (FAST-SYMBOL-GLOBAL-VALUE CELL-REF) ...) ; x-compiling (DEFINE-VOP (SYMBOL-GLOBAL-VALUE) ...) ; x-compiling (DEFINE-VOP (SYMBOL-VALUE SYMBOL-GLOBAL-VALUE) ...) ; x-compiling (DEFINE-VOP (FAST-SYMBOL-VALUE FAST-SYMBOL-GLOBAL-VALUE) ...) ; x-compiling (DEFINE-VOP (SET %SET-SYMBOL-GLOBAL-VALUE)) ; x-compiling (DEFINE-VOP (BOUNDP) ...) ; x-compiling (DEFINE-VOP (SYMBOL-HASH) ...) ; x-compiling (DEFINE-VOP (FDEFN-FUN CELL-REF) ...) ; x-compiling (DEFINE-VOP (SAFE-FDEFN-FUN) ...) ; x-compiling (DEFINE-VOP (SET-FDEFN-FUN) ...) ; x-compiling (DEFINE-VOP (FDEFN-MAKUNBOUND) ...) ; x-compiling (DEFINE-VOP (BIND) ...) ; x-compiling (DEFINE-VOP (UNBIND) ...) ; x-compiling (DEFINE-VOP (UNBIND-TO-HERE) ...) ; x-compiling (DEFINE-FULL-REFFER CLOSURE-INDEX-REF ...) ; x-compiling (DEFINE-FULL-SETTER SET-FUNCALLABLE-INSTANCE-INFO ...) ; x-compiling (DEFINE-FULL-REFFER FUNCALLABLE-INSTANCE-INFO ...) ; x-compiling (DEFINE-VOP (CLOSURE-REF SLOT-REF) ...) ; x-compiling (DEFINE-VOP (CLOSURE-INIT SLOT-SET) ...) ; x-compiling (DEFINE-VOP (CLOSURE-INIT-FROM-FP) ...) ; x-compiling (DEFINE-VOP (VALUE-CELL-REF CELL-REF) ...) ; x-compiling (DEFINE-VOP (VALUE-CELL-SET CELL-SET) ...) ; x-compiling (DEFINE-VOP (INSTANCE-LENGTH) ...) ; x-compiling (DEFINE-FULL-REFFER INSTANCE-INDEX-REF ...) ; x-compiling (DEFINE-FULL-SETTER INSTANCE-INDEX-SET ...) ; x-compiling (DEFINE-FULL-COMPARE-AND-SWAP %COMPARE-AND-SWAP-INSTANCE-REF ...) ; x-compiling (DEFINE-FULL-REFFER CODE-HEADER-REF ...) ; x-compiling (DEFINE-FULL-SETTER CODE-HEADER-SET ...) ; x-compiling (DEFUN MAKE-EA-FOR-RAW-SLOT ...) ; x-compiling (DEFINE-VOP (RAW-INSTANCE-REF/WORD) ...) ; x-compiling (DEFINE-VOP (RAW-INSTANCE-SET/WORD) ...) ; x-compiling (DEFINE-VOP (RAW-INSTANCE-INIT/WORD) ...) ; x-compiling (DEFINE-VOP (RAW-INSTANCE-ATOMIC-INCF/WORD) ...) ; x-compiling (DEFINE-VOP (RAW-INSTANCE-REF/SINGLE) ...) ; x-compiling (DEFINE-VOP (RAW-INSTANCE-SET/SINGLE) ...) ; x-compiling (DEFINE-VOP (RAW-INSTANCE-INIT/SINGLE) ...) ; x-compiling (DEFINE-VOP (RAW-INSTANCE-REF/DOUBLE) ...) ; x-compiling (DEFINE-VOP (RAW-INSTANCE-SET/DOUBLE) ...) ; x-compiling (DEFINE-VOP (RAW-INSTANCE-INIT/DOUBLE) ...) ; x-compiling (DEFINE-VOP (RAW-INSTANCE-REF/COMPLEX-SINGLE) ...) ; x-compiling (DEFINE-VOP (RAW-INSTANCE-SET/COMPLEX-SINGLE) ...) ; x-compiling (DEFINE-VOP (RAW-INSTANCE-INIT/COMPLEX-SINGLE) ...) ; x-compiling (DEFINE-VOP (RAW-INSTANCE-REF/COMPLEX-DOUBLE) ...) ; x-compiling (DEFINE-VOP (RAW-INSTANCE-SET/COMPLEX-DOUBLE) ...) ; x-compiling (DEFINE-VOP (RAW-INSTANCE-INIT/COMPLEX-DOUBLE) ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/x86/cell.lisp-obj-tmp written ; compilation finished in 0:00:01.110 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/values.lisp" (written 27 FEB 2015 04:49:49 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFINE-VOP (RESET-STACK-POINTER) ...) ; x-compiling (DEFINE-VOP (%%NIP-VALUES) ...) ; x-compiling (DEFINE-VOP (PUSH-VALUES) ...) ; x-compiling (DEFINE-VOP (VALUES-LIST) ...) ; x-compiling (DEFINE-VOP (%MORE-ARG-VALUES) ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/x86/values.lisp-obj-tmp written ; compilation finished in 0:00:00.142 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/alloc.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFINE-VOP (LIST-OR-LIST*) ...) ; x-compiling (DEFINE-VOP (LIST LIST-OR-LIST*) ...) ; x-compiling (DEFINE-VOP (LIST* LIST-OR-LIST*) ...) ; x-compiling (DEFINE-VOP (ALLOCATE-VECTOR-ON-HEAP) ...) ; x-compiling (DEFINE-VOP (ALLOCATE-VECTOR-ON-STACK) ...) ; x-compiling (DEFINE-VOP (MAKE-FDEFN) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/alloc.lisp ; in: DEFINE-VOP (MAKE-FDEFN) ; (SB!VM::WITH-FIXED-ALLOCATION (SB!VM::RESULT SB!VM:FDEFN-WIDETAG ; SB!VM:FDEFN-SIZE SB!VM::NODE) ; (SB!VM::STOREW SB!VM::NAME SB!VM::RESULT SB!VM:FDEFN-NAME-SLOT ; SB!VM:OTHER-POINTER-LOWTAG) ; (SB!VM::STOREW SB!VM::NIL-VALUE SB!VM::RESULT SB!VM:FDEFN-FUN-SLOT ; SB!VM:OTHER-POINTER-LOWTAG) ; (SB!VM::STOREW (SB!C:MAKE-FIXUP "undefined_tramp" :FOREIGN) SB!VM::RESULT ; SB!VM:FDEFN-RAW-ADDR-SLOT SB!VM:OTHER-POINTER-LOWTAG)) ; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::ALLOCATION ; ==> ; SB!VM::NODE ; ; note: deleting unreachable code ; --> LET LET LET SB!VM::MAYBE-PSEUDO-ATOMIC IF PROGN SB!VM::STOREW LET ; --> SB!ASSEM:INST SB!VM::MOV-INST-EMITTER SB!VM::MAKE-EA-FOR-OBJECT-SLOT ; --> SB!VM::MAKE-EA - ; ==> ; SB!VM:OTHER-POINTER-LOWTAG ; ; note: deleting unreachable code ; (SB!VM::STOREW SB!VM::NAME SB!VM::RESULT SB!VM:FDEFN-NAME-SLOT ; SB!VM:OTHER-POINTER-LOWTAG) ; --> LET ; ==> ; SB!VM::NAME ; ; note: deleting unreachable code ; --> LET SB!ASSEM:INST SB!VM::MOV-INST-EMITTER SB!VM::MAKE-EA-FOR-OBJECT-SLOT ; --> SB!VM::MAKE-EA ; ==> ; SB!VM::RESULT ; ; note: deleting unreachable code ; (SB!VM::STOREW SB!VM::NIL-VALUE SB!VM::RESULT SB!VM:FDEFN-FUN-SLOT ; SB!VM:OTHER-POINTER-LOWTAG) ; --> LET ; ==> ; SB!VM::NIL-VALUE ; ; note: deleting unreachable code ; --> LET SB!ASSEM:INST SB!VM::MOV-INST-EMITTER SB!VM::MAKE-EA-FOR-OBJECT-SLOT ; --> SB!VM::MAKE-EA ; ==> ; SB!VM::RESULT ; ; note: deleting unreachable code ; (SB!C:MAKE-FIXUP "undefined_tramp" :FOREIGN) ; ==> ; "undefined_tramp" ; ; note: deleting unreachable code ; (SB!VM::STOREW (SB!C:MAKE-FIXUP "undefined_tramp" :FOREIGN) SB!VM::RESULT ; SB!VM:FDEFN-RAW-ADDR-SLOT SB!VM:OTHER-POINTER-LOWTAG) ; --> LET SB!ASSEM:INST SB!VM::MOV-INST-EMITTER SB!VM::MAKE-EA-FOR-OBJECT-SLOT ; --> SB!VM::MAKE-EA ; ==> ; SB!VM::RESULT ; ; note: deleting unreachable code ; x-compiling (DEFINE-VOP (MAKE-CLOSURE) ...) ; x-compiling (DEFINE-VOP (MAKE-VALUE-CELL) ...) ; x-compiling (DEFINE-VOP (MAKE-UNBOUND-MARKER) ...) ; x-compiling (DEFINE-VOP (MAKE-FUNCALLABLE-INSTANCE-TRAMP) ...) ; x-compiling (DEFINE-VOP (FIXED-ALLOC) ...) ; x-compiling (DEFINE-VOP (VAR-ALLOC) ...); ; compilation unit finished ; printed 8 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/x86/alloc.lisp-obj-tmp written ; compilation finished in 0:00:00.461 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/call.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFUN STANDARD-ARG-LOCATION ...) ; x-compiling (DEFUN STANDARD-ARG-LOCATION-SC ...) ; x-compiling (DEFCONSTANT ARG-COUNT-SC ...) ; x-compiling (DEFCONSTANT CLOSURE-SC ...) ; x-compiling (DEFUN MAKE-RETURN-PC-PASSING-LOCATION ...) ; x-compiling (DEFUN MAKE-OLD-FP-PASSING-LOCATION ...) ; x-compiling (DEFUN MAKE-OLD-FP-SAVE-LOCATION ...) ; x-compiling (DEFUN MAKE-RETURN-PC-SAVE-LOCATION ...) ; x-compiling (DEFUN MAKE-ARG-COUNT-LOCATION ...) ; x-compiling (DEFUN MAKE-NFP-TN ...) ; x-compiling (DEFUN MAKE-STACK-POINTER-TN ...) ; x-compiling (DEFUN MAKE-NUMBER-STACK-POINTER-TN ...) ; x-compiling (DEFUN MAKE-UNKNOWN-VALUES-LOCATIONS ...) ; x-compiling (DEFUN SELECT-COMPONENT-FORMAT ...) ; x-compiling (DEFINE-VOP (CURRENT-FP) ...) ; x-compiling (DEFINE-VOP (COMPUTE-OLD-NFP) ...) ; x-compiling (DEFINE-VOP (ANCESTOR-FRAME-REF) ...) ; x-compiling (DEFINE-VOP (ANCESTOR-FRAME-SET) ...) ; x-compiling (DEFINE-FRAME-OP SIGNED-BYTE-32 ...) ; x-compiling (DEFINE-FRAME-OP UNSIGNED-BYTE-32 ...) ; x-compiling (DEFINE-FRAME-OP SYSTEM-AREA-POINTER ...) ; x-compiling (DEFINE-X87-FRAME-OP DOUBLE-FLOAT ...) ; x-compiling (DEFINE-X87-FRAME-OP SINGLE-FLOAT ...) ; x-compiling (DEFINE-X87-FRAME-OP COMPLEX-DOUBLE-FLOAT ...) ; x-compiling (DEFINE-X87-FRAME-OP COMPLEX-SINGLE-FLOAT ...) ; x-compiling (DEFUN PRIMITIVE-TYPE-INDIRECT-CELL-TYPE ...) ; x-compiling (DEFINE-VOP (XEP-ALLOCATE-FRAME) ...) ; x-compiling (DEFINE-VOP (XEP-SETUP-SP) ...) ; x-compiling (DEFINE-VOP (ALLOCATE-FRAME) ...) ; x-compiling (DEFINE-VOP (ALLOCATE-FULL-CALL-FRAME) ...) ; x-compiling (DEFUN DEFAULT-UNKNOWN-VALUES ...) ; x-compiling (DEFUN RECEIVE-UNKNOWN-VALUES ...) ; x-compiling (DEFINE-VOP (UNKNOWN-VALUES-RECEIVER) ...) ; x-compiling (DEFUN CHECK-OCFP-AND-RETURN-PC ...) ; x-compiling (DEFUN EMIT-BLOCK-HEADER ...) ; x-compiling (DEFINE-VOP (CALL-LOCAL) ...) ; x-compiling (DEFINE-VOP (MULTIPLE-CALL-LOCAL UNKNOWN-VALUES-RECEIVER) ...) ; x-compiling (DEFINE-VOP (KNOWN-CALL-LOCAL) ...) ; x-compiling (DEFINE-VOP (KNOWN-RETURN) ...) ; x-compiling (DEFINE-FULL-CALL CALL ...) ; x-compiling (DEFINE-FULL-CALL CALL-NAMED ...) ; x-compiling (DEFINE-FULL-CALL MULTIPLE-CALL ...) ; x-compiling (DEFINE-FULL-CALL MULTIPLE-CALL-NAMED ...) ; x-compiling (DEFINE-FULL-CALL TAIL-CALL ...) ; x-compiling (DEFINE-FULL-CALL TAIL-CALL-NAMED ...) ; x-compiling (DEFINE-FULL-CALL CALL-VARIABLE ...) ; x-compiling (DEFINE-FULL-CALL MULTIPLE-CALL-VARIABLE ...) ; x-compiling (DEFINE-VOP (TAIL-CALL-VARIABLE) ...) ; x-compiling (DEFINE-VOP (RETURN-SINGLE) ...) ; x-compiling (DEFINE-VOP (RETURN) ...) ; x-compiling (DEFINE-VOP (RETURN-MULTIPLE) ...) ; x-compiling (DEFINE-VOP (SETUP-CLOSURE-ENVIRONMENT) ...) ; x-compiling (DEFINE-VOP (COPY-MORE-ARG) ...) ; x-compiling (DEFINE-VOP (MORE-KW-ARG) ...) ; x-compiling (DEFINE-VOP (MORE-ARG) ...) ; x-compiling (DEFINE-VOP (LISTIFY-REST-ARGS) ...) ; x-compiling (DEFINE-VOP (MORE-ARG-CONTEXT) ...) ; x-compiling (DEFINE-VOP (VERIFY-ARG-COUNT) ...) ; x-compiling (DEF ARG-COUNT-ERROR ...) ; x-compiling (DEF TYPE-CHECK-ERROR ...) ; x-compiling (DEF LAYOUT-INVALID-ERROR ...) ; x-compiling (DEF ODD-KEY-ARGS-ERROR ...) ; x-compiling (DEF UNKNOWN-KEY-ARG-ERROR ...) ; x-compiling (DEF NIL-FUN-RETURNED-ERROR ...) ; x-compiling (DEFUN EMIT-SINGLE-STEP-TEST ...) ; x-compiling (DEFINE-VOP (STEP-INSTRUMENT-BEFORE-VOP) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/call.lisp ; in: DEFINE-VOP (COPY-MORE-ARG) ; (SB!C:SB-ALLOCATED-SIZE 'SB!VM::STACK) ; ; caught STYLE-WARNING: ; undefined function: SB-ALLOCATED-SIZE ; in: DEFINE-VOP (ALLOCATE-FRAME) ; (SB!C:SB-ALLOCATED-SIZE 'SB!VM::STACK) ; ; caught STYLE-WARNING: ; undefined function: SB-ALLOCATED-SIZE ; in: DEFINE-VOP (XEP-SETUP-SP) ; (SB!C:SB-ALLOCATED-SIZE 'SB!VM::STACK) ; ; caught STYLE-WARNING: ; undefined function: SB-ALLOCATED-SIZE ; ; compilation unit finished ; Undefined function: ; SB-ALLOCATED-SIZE ; caught 3 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/x86/call.lisp-obj-tmp written ; compilation finished in 0:00:01.474 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/nlx.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFUN MAKE-NLX-SP-TN ...) ; x-compiling (DEFUN MAKE-NLX-ENTRY-ARG-START-LOCATION ...) ; x-compiling (DEFUN CATCH-BLOCK-EA ...) ; x-compiling (DEFINE-VOP (SAVE-DYNAMIC-STATE) ...) ; x-compiling (DEFINE-VOP (RESTORE-DYNAMIC-STATE) ...) ; x-compiling (DEFINE-VOP (CURRENT-STACK-POINTER) ...) ; x-compiling (DEFINE-VOP (CURRENT-BINDING-POINTER) ...) ; x-compiling (DEFINE-VOP (MAKE-UNWIND-BLOCK) ...) ; x-compiling (DEFINE-VOP (MAKE-CATCH-BLOCK) ...) ; x-compiling (DEFINE-VOP (SET-UNWIND-PROTECT) ...) ; x-compiling (DEFINE-VOP (UNLINK-CATCH-BLOCK) ...) ; x-compiling (DEFINE-VOP (UNLINK-UNWIND-PROTECT) ...) ; x-compiling (DEFINE-VOP (NLX-ENTRY) ...) ; x-compiling (DEFINE-VOP (NLX-ENTRY-MULTIPLE) ...) ; x-compiling (DEFINE-VOP (UWP-ENTRY) ...) ; x-compiling (DEFINE-VOP (UNWIND-TO-FRAME-AND-CALL) ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/x86/nlx.lisp-obj-tmp written ; compilation finished in 0:00:00.297 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/late-nlx.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFUN MAKE-DYNAMIC-STATE-TNS ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/generic/late-nlx.lisp-obj-tmp written ; compilation finished in 0:00:00.007 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/show.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFINE-VOP (PRINT) ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/x86/show.lisp-obj-tmp written ; compilation finished in 0:00:00.024 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/array.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFINE-VOP (MAKE-ARRAY-HEADER) ...) ; x-compiling (DEFINE-VOP (MAKE-ARRAY-HEADER/C) ...) ; x-compiling (DEFINE-FULL-REFFER %ARRAY-DIMENSION ...) ; x-compiling (DEFINE-FULL-SETTER %SET-ARRAY-DIMENSION ...) ; x-compiling (DEFINE-VOP (ARRAY-RANK-VOP) ...) ; x-compiling (DEFINE-VOP (CHECK-BOUND) ...) ; x-compiling (DEF-FULL-DATA-VECTOR-FROBS SIMPLE-VECTOR ...) ; x-compiling (DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-32 ...) ; x-compiling (DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-FIXNUM ...) ; x-compiling (DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-FIXNUM ...) ; x-compiling (DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-SIGNED-BYTE-32 ...) ; x-compiling (DEF-FULL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-31 ...) ; x-compiling (DEF-FULL-DATA-VECTOR-FROBS SIMPLE-CHARACTER-STRING ...) ; x-compiling (DEFINE-FULL-COMPARE-AND-SWAP %COMPARE-AND-SWAP-SVREF ...) ; x-compiling (DEF-SMALL-DATA-VECTOR-FROBS SIMPLE-BIT-VECTOR ...) ; x-compiling (DEF-SMALL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-2 ...) ; x-compiling (DEF-SMALL-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-4 ...) ; x-compiling (DEFUN MAKE-EA-FOR-FLOAT-REF ...) ; x-compiling (DEFINE-VOP (DATA-VECTOR-REF-WITH-OFFSET/SIMPLE-ARRAY-SINGLE-FLOAT) ...) ; x-compiling (DEFINE-VOP (DATA-VECTOR-SET-WITH-OFFSET/SIMPLE-ARRAY-SINGLE-FLOAT) ...) ; x-compiling (DEFINE-VOP (DATA-VECTOR-REF-WITH-OFFSET/SIMPLE-ARRAY-DOUBLE-FLOAT) ...) ; x-compiling (DEFINE-VOP (DATA-VECTOR-SET-WITH-OFFSET/SIMPLE-ARRAY-DOUBLE-FLOAT) ...) ; x-compiling (DEFINE-VOP (DATA-VECTOR-REF-WITH-OFFSET/SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT) ...) ; x-compiling (DEFINE-VOP (DATA-VECTOR-SET-WITH-OFFSET/SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT) ...) ; x-compiling (DEFINE-VOP (DATA-VECTOR-REF-WITH-OFFSET/SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT) ...) ; x-compiling (DEFINE-VOP (DATA-VECTOR-SET-WITH-OFFSET/SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT) ...) ; x-compiling (DEFINE-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-7 ...) ; x-compiling (DEFINE-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-8 ...) ; x-compiling (DEFINE-DATA-VECTOR-FROBS SIMPLE-ARRAY-SIGNED-BYTE-8 ...) ; x-compiling (DEFINE-DATA-VECTOR-FROBS SIMPLE-BASE-STRING ...) ; x-compiling (DEFINE-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-15 ...) ; x-compiling (DEFINE-DATA-VECTOR-FROBS SIMPLE-ARRAY-UNSIGNED-BYTE-16 ...) ; x-compiling (DEFINE-DATA-VECTOR-FROBS SIMPLE-ARRAY-SIGNED-BYTE-16 ...) ; x-compiling (DEFINE-FULL-REFFER VECTOR-RAW-BITS ...) ; x-compiling (DEFINE-FULL-SETTER SET-VECTOR-RAW-BITS ...) ; x-compiling (DEFINE-VOP (ARRAY-ATOMIC-INCF/WORD) ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/x86/array.lisp-obj-tmp written ; compilation finished in 0:00:01.870 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/type-error.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFINE-VOP (DATA-NIL-VECTOR-REF) ...) ; x-compiling (DEFINE-VOP (DATA-VECTOR-SET/SIMPLE-ARRAY-NIL) ...) ; x-compiling (DEFINE-VOP (DATA-VECTOR-SET/SIMPLE-ARRAY-NIL) ...) ; x-compiling (DEFINE-VOP (TYPE-CHECK-ERROR/C) ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/generic/type-error.lisp-obj-tmp written ; compilation finished in 0:00:00.114 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/pred.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFINE-VOP (BRANCH) ...) ; x-compiling (DEFINE-VOP (BRANCH-IF) ...) ; x-compiling (DEFVAR *CMOV-PTYPE-REPRESENTATION-VOP* ...) ; x-compiling (DEFUN CONVERT-CONDITIONAL-MOVE-P ...) ; x-compiling (DEFINE-VOP (MOVE-IF) ...) ; x-compiling (DEF-MOVE-IF MOVE-IF/T ...) ; x-compiling (DEF-MOVE-IF MOVE-IF/FX ...) ; x-compiling (DEF-MOVE-IF MOVE-IF/UNSIGNED ...) ; x-compiling (DEF-MOVE-IF MOVE-IF/SIGNED ...) ; x-compiling (DEF-MOVE-IF MOVE-IF/CHAR ...) ; x-compiling (DEF-MOVE-IF MOVE-IF/SAP ...) ; x-compiling (DEFINE-VOP (IF-EQ) ...) ; x-compiling (DEF FAST-IF-EQ-CHARACTER ...) ; x-compiling (DEF FAST-IF-EQ-CHARACTER/C ...) ; x-compiling (DEF FAST-IF-EQ-FIXNUM ...) ; x-compiling (DEF FAST-IF-EQ-FIXNUM/C ...) ; x-compiling (DEF FAST-IF-EQ-SIGNED ...) ; x-compiling (DEF FAST-IF-EQ-SIGNED/C ...) ; x-compiling (DEF FAST-IF-EQ-UNSIGNED ...) ; x-compiling (DEF FAST-IF-EQ-UNSIGNED/C ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/x86/pred.lisp-obj-tmp written ; compilation finished in 0:00:00.430 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/late-type-vops.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (!DEFINE-TYPE-VOPS FIXNUMP ...) ; x-compiling (!DEFINE-TYPE-VOPS FUNCTIONP ...) ; x-compiling (!DEFINE-TYPE-VOPS LISTP ...) ; x-compiling (!DEFINE-TYPE-VOPS %INSTANCEP ...) ; x-compiling (!DEFINE-TYPE-VOPS %OTHER-POINTER-P ...) ; x-compiling (!DEFINE-TYPE-VOPS BIGNUMP ...) ; x-compiling (!DEFINE-TYPE-VOPS RATIOP ...) ; x-compiling (!DEFINE-TYPE-VOPS COMPLEXP ...) ; x-compiling (!DEFINE-TYPE-VOPS COMPLEX-RATIONAL-P ...) ; x-compiling (!DEFINE-TYPE-VOPS COMPLEX-FLOAT-P ...) ; x-compiling (!DEFINE-TYPE-VOPS COMPLEX-SINGLE-FLOAT-P ...) ; x-compiling (!DEFINE-TYPE-VOPS COMPLEX-DOUBLE-FLOAT-P ...) ; x-compiling (!DEFINE-TYPE-VOPS SINGLE-FLOAT-P ...) ; x-compiling (!DEFINE-TYPE-VOPS DOUBLE-FLOAT-P ...) ; x-compiling (!DEFINE-TYPE-VOPS SIMPLE-STRING-P ...) ; x-compiling (DEFINE-SIMPLE-ARRAY-TYPE-VOPS) ; x-compiling (DEF) ; x-compiling (!DEFINE-TYPE-VOPS CHARACTERP ...) ; x-compiling (!DEFINE-TYPE-VOPS SYSTEM-AREA-POINTER-P ...) ; x-compiling (!DEFINE-TYPE-VOPS WEAK-POINTER-P ...) ; x-compiling (!DEFINE-TYPE-VOPS CODE-COMPONENT-P ...) ; x-compiling (!DEFINE-TYPE-VOPS LRA-P ...) ; x-compiling (!DEFINE-TYPE-VOPS FDEFN-P ...) ; x-compiling (!DEFINE-TYPE-VOPS CLOSUREP ...) ; x-compiling (!DEFINE-TYPE-VOPS SIMPLE-FUN-P ...) ; x-compiling (!DEFINE-TYPE-VOPS FUNCALLABLE-INSTANCE-P ...) ; x-compiling (!DEFINE-TYPE-VOPS ARRAY-HEADER-P ...) ; x-compiling (!DEFINE-TYPE-VOPS STRINGP ...) ; x-compiling (!DEFINE-TYPE-VOPS BASE-STRING-P ...) ; x-compiling (!DEFINE-TYPE-VOPS BIT-VECTOR-P ...) ; x-compiling (!DEFINE-TYPE-VOPS VECTOR-NIL-P ...) ; x-compiling (!DEFINE-TYPE-VOPS CHARACTER-STRING-P ...) ; x-compiling (!DEFINE-TYPE-VOPS VECTORP ...) ; x-compiling (!DEFINE-TYPE-VOPS COMPLEX-VECTOR-P ...) ; x-compiling (!DEFINE-TYPE-VOPS SIMPLE-ARRAY-P ...) ; x-compiling (!DEFINE-TYPE-VOPS ARRAYP ...) ; x-compiling (!DEFINE-TYPE-VOPS NUMBERP ...) ; x-compiling (!DEFINE-TYPE-VOPS RATIONALP ...) ; x-compiling (!DEFINE-TYPE-VOPS INTEGERP ...) ; x-compiling (!DEFINE-TYPE-VOPS FLOATP ...) ; x-compiling (!DEFINE-TYPE-VOPS REALP ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/generic/late-type-vops.lisp-obj-tmp written ; compilation finished in 0:00:02.318 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/assembly/x86/assem-rtns.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFINE-ASSEMBLY-ROUTINE (THROW #) ...) ; x-compiling (DEFINE-ASSEMBLY-ROUTINE (UNWIND # ...) ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/assembly/x86/assem-rtns.lisp-obj-tmp written ; compilation finished in 0:00:00.069 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/assembly/x86/array.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/assembly/x86/array.lisp-obj-tmp written ; compilation finished in 0:00:00.004 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/assembly/x86/arith.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFINE-GENERIC-ARITH-ROUTINE (+ 10) ...) ; x-compiling (DEFINE-GENERIC-ARITH-ROUTINE (- 10) ...) ; x-compiling (DEFINE-GENERIC-ARITH-ROUTINE (* 30) ...) ; x-compiling (DEFINE-ASSEMBLY-ROUTINE (GENERIC-NEGATE # ...) ...) ; x-compiling (DEFINE-COND-ASSEM-RTN GENERIC-< ...) ; x-compiling (DEFINE-COND-ASSEM-RTN GENERIC-> ...) ; x-compiling (DEFINE-ASSEMBLY-ROUTINE (GENERIC-EQL # ...) ...) ; x-compiling (DEFINE-ASSEMBLY-ROUTINE (GENERIC-= # ...) ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/assembly/x86/arith.lisp-obj-tmp written ; compilation finished in 0:00:00.265 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/assembly/x86/alloc.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/assembly/x86/alloc.lisp-obj-tmp written ; compilation finished in 0:00:00.003 RETURN-MULTIPLE assembled TAIL-CALL-VARIABLE assembled THROW assembled UNWIND assembled ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/assembly/x86/arith.lisp ; in: ; MACROLET ((DEFINE-GENERIC-ARITH-ROUTINE ((FUN COST) &BODY BODY) ; (QUASIQUOTE ; (DEFINE-ASSEMBLY-ROUTINE # ; # ; # ; # ; ...)))) ; (MACROLET ((SB!VM::DEFINE-GENERIC-ARITH-ROUTINE ; ((SB!VM::FUN SB!VM::COST) &BODY SB!VM::BODY) ; (SB!INT:QUASIQUOTE ; (SB!C:DEFINE-ASSEMBLY-ROUTINE # ; # ; # ; # ; # ; # ; # ; # ; # ; SB!VM::DO-STATIC-FUN ; # ; ...)))) ; (SB!VM::DEFINE-GENERIC-ARITH-ROUTINE (+ 10) (SB!C:MOVE SB!VM::RES SB!VM::X) ; (SB!ASSEM:INST SB!VM::ADD SB!VM::RES SB!VM::Y) ; (SB!ASSEM:INST SB!VM::JMP :NO SB!VM::OKAY) ; (SB!ASSEM:INST SB!VM::RCR SB!VM::RES 1) ; (SB!ASSEM:INST SB!VM::SAR SB!VM::RES 1) (SB!C:MOVE SB!VM::ECX SB!VM::RES) ; (SB!VM::WITH-FIXED-ALLOCATION (SB!VM::RES SB!VM:BIGNUM-WIDETAG ; (1+ SB!VM:BIGNUM-DIGITS-OFFSET)) ; (SB!VM::STOREW SB!VM::ECX SB!VM::RES SB!VM:BIGNUM-DIGITS-OFFSET ; SB!VM:OTHER-POINTER-LOWTAG)) ; SB!VM::OKAY) ; (SB!VM::DEFINE-GENERIC-ARITH-ROUTINE (- 10) (SB!C:MOVE SB!VM::RES SB!VM::X) ; (SB!ASSEM:INST SB!VM::SUB SB!VM::RES SB!VM::Y) ; (SB!ASSEM:INST SB!VM::JMP :NO SB!VM::OKAY) (SB!ASSEM:INST SB!VM::CMC) ; (SB!ASSEM:INST SB!VM::RCR SB!VM::RES 1) ; (SB!ASSEM:INST SB!VM::SAR SB!VM::RES 1) (SB!C:MOVE SB!VM::ECX SB!VM::RES) ; (SB!VM::WITH-FIXED-ALLOCATION (SB!VM::RES SB!VM:BIGNUM-WIDETAG ; (1+ SB!VM:BIGNUM-DIGITS-OFFSET)) ; (SB!VM::STOREW SB!VM::ECX SB!VM::RES SB!VM:BIGNUM-DIGITS-OFFSET ; SB!VM:OTHER-POINTER-LOWTAG)) ; SB!VM::OKAY) ; (SB!VM::DEFINE-GENERIC-ARITH-ROUTINE (* 30) (SB!C:MOVE SB!VM::EAX SB!VM::X) ; (SB!ASSEM:INST SB!VM::SAR SB!VM::EAX SB!VM:N-FIXNUM-TAG-BITS) ; (SB!ASSEM:INST SB!VM::IMUL SB!VM::Y) ; (SB!ASSEM:INST SB!VM::JMP :NO SB!VM::OKAY) ; (SB!ASSEM:INST SB!VM::SHRD SB!VM::EAX SB!VM::X SB!VM:N-FIXNUM-TAG-BITS) ; (SB!ASSEM:INST SB!VM::SAR SB!VM::X SB!VM:N-FIXNUM-TAG-BITS) ; (SB!C:MOVE SB!VM::ECX SB!VM::X) (SB!ASSEM:INST SB!VM::CDQ) ; (SB!ASSEM:INST SB!VM::CMP SB!VM::X SB!VM::ECX) ; (SB!ASSEM:INST SB!VM::JMP :E SB!VM::SINGLE-WORD-BIGNUM) ...)) ; --> PROGN ; ==> ; (LET ((SB!VM::X ; (SB!C:MAKE-RANDOM-TN :KIND :NORMAL :SC ; (SB!C:SC-OR-LOSE 'SB!VM::DESCRIPTOR-REG) :OFFSET ; SB!VM::EDX-OFFSET)) ; (SB!VM::Y ; (SB!C:MAKE-RANDOM-TN :KIND :NORMAL :SC ; (SB!C:SC-OR-LOSE 'SB!VM::DESCRIPTOR-REG) :OFFSET ; SB!VM::EDI-OFFSET)) ; (SB!VM::RES ; (SB!C:MAKE-RANDOM-TN :KIND :NORMAL :SC ; (SB!C:SC-OR-LOSE 'SB!VM::DESCRIPTOR-REG) :OFFSET ; SB!VM::EDX-OFFSET)) ; (SB!VM::EAX ; (SB!C:MAKE-RANDOM-TN :KIND :NORMAL :SC ; (SB!C:SC-OR-LOSE 'SB!VM::UNSIGNED-REG) :OFFSET ; SB!VM::EAX-OFFSET)) ; (SB!VM::ECX ; (SB!C:MAKE-RANDOM-TN :KIND :NORMAL :SC ; (SB!C:SC-OR-LOSE 'SB!VM::UNSIGNED-REG) :OFFSET ; SB!VM::ECX-OFFSET))) ; (SB!ASSEM:ASSEMBLE (SB!C:*CODE-SEGMENT* 'SB!VM::GENERIC-+) ; SB!VM::GENERIC-+ ; (PUSH (CONS 'SB!VM::GENERIC-+ SB!VM::GENERIC-+) SB!C::*ENTRY-POINTS*) ; (SB!ASSEM:INST SB!VM::MOV SB!VM::ECX SB!VM::X) ; (SB!ASSEM:INST OR SB!VM::ECX SB!VM::Y) ; (SB!ASSEM:INST SB!VM::TEST SB!VM::ECX SB!VM:FIXNUM-TAG-MASK) ; (SB!ASSEM:INST SB!VM::JMP :NZ SB!VM::DO-STATIC-FUN) ; (SB!C:MOVE SB!VM::RES SB!VM::X) ; (SB!ASSEM:INST SB!VM::ADD SB!VM::RES SB!VM::Y) ; (SB!ASSEM:INST SB!VM::JMP :NO SB!VM::OKAY) ; (SB!ASSEM:INST SB!VM::RCR SB!VM::RES 1) ; ...) ; (WHEN SB-XC:*COMPILE-PRINT* ; (FORMAT *ERROR-OUTPUT* "~S assembled~%" 'SB!VM::GENERIC-+))) ; ; caught STYLE-WARNING: ; The variable EAX is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition GENERIC-+ assembled ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/assembly/x86/arith.lisp ; in: ; MACROLET ((DEFINE-GENERIC-ARITH-ROUTINE ((FUN COST) &BODY BODY) ; (QUASIQUOTE ; (DEFINE-ASSEMBLY-ROUTINE # ; # ; # ; # ; ...)))) ; (MACROLET ((SB!VM::DEFINE-GENERIC-ARITH-ROUTINE ; ((SB!VM::FUN SB!VM::COST) &BODY SB!VM::BODY) ; (SB!INT:QUASIQUOTE ; (SB!C:DEFINE-ASSEMBLY-ROUTINE # ; # ; # ; # ; # ; # ; # ; # ; # ; SB!VM::DO-STATIC-FUN ; # ; ...)))) ; (SB!VM::DEFINE-GENERIC-ARITH-ROUTINE (+ 10) (SB!C:MOVE SB!VM::RES SB!VM::X) ; (SB!ASSEM:INST SB!VM::ADD SB!VM::RES SB!VM::Y) ; (SB!ASSEM:INST SB!VM::JMP :NO SB!VM::OKAY) ; (SB!ASSEM:INST SB!VM::RCR SB!VM::RES 1) ; (SB!ASSEM:INST SB!VM::SAR SB!VM::RES 1) (SB!C:MOVE SB!VM::ECX SB!VM::RES) ; (SB!VM::WITH-FIXED-ALLOCATION (SB!VM::RES SB!VM:BIGNUM-WIDETAG ; (1+ SB!VM:BIGNUM-DIGITS-OFFSET)) ; (SB!VM::STOREW SB!VM::ECX SB!VM::RES SB!VM:BIGNUM-DIGITS-OFFSET ; SB!VM:OTHER-POINTER-LOWTAG)) ; SB!VM::OKAY) ; (SB!VM::DEFINE-GENERIC-ARITH-ROUTINE (- 10) (SB!C:MOVE SB!VM::RES SB!VM::X) ; (SB!ASSEM:INST SB!VM::SUB SB!VM::RES SB!VM::Y) ; (SB!ASSEM:INST SB!VM::JMP :NO SB!VM::OKAY) (SB!ASSEM:INST SB!VM::CMC) ; (SB!ASSEM:INST SB!VM::RCR SB!VM::RES 1) ; (SB!ASSEM:INST SB!VM::SAR SB!VM::RES 1) (SB!C:MOVE SB!VM::ECX SB!VM::RES) ; (SB!VM::WITH-FIXED-ALLOCATION (SB!VM::RES SB!VM:BIGNUM-WIDETAG ; (1+ SB!VM:BIGNUM-DIGITS-OFFSET)) ; (SB!VM::STOREW SB!VM::ECX SB!VM::RES SB!VM:BIGNUM-DIGITS-OFFSET ; SB!VM:OTHER-POINTER-LOWTAG)) ; SB!VM::OKAY) ; (SB!VM::DEFINE-GENERIC-ARITH-ROUTINE (* 30) (SB!C:MOVE SB!VM::EAX SB!VM::X) ; (SB!ASSEM:INST SB!VM::SAR SB!VM::EAX SB!VM:N-FIXNUM-TAG-BITS) ; (SB!ASSEM:INST SB!VM::IMUL SB!VM::Y) ; (SB!ASSEM:INST SB!VM::JMP :NO SB!VM::OKAY) ; (SB!ASSEM:INST SB!VM::SHRD SB!VM::EAX SB!VM::X SB!VM:N-FIXNUM-TAG-BITS) ; (SB!ASSEM:INST SB!VM::SAR SB!VM::X SB!VM:N-FIXNUM-TAG-BITS) ; (SB!C:MOVE SB!VM::ECX SB!VM::X) (SB!ASSEM:INST SB!VM::CDQ) ; (SB!ASSEM:INST SB!VM::CMP SB!VM::X SB!VM::ECX) ; (SB!ASSEM:INST SB!VM::JMP :E SB!VM::SINGLE-WORD-BIGNUM) ...)) ; --> PROGN ; ==> ; (LET ((SB!VM::X ; (SB!C:MAKE-RANDOM-TN :KIND :NORMAL :SC ; (SB!C:SC-OR-LOSE 'SB!VM::DESCRIPTOR-REG) :OFFSET ; SB!VM::EDX-OFFSET)) ; (SB!VM::Y ; (SB!C:MAKE-RANDOM-TN :KIND :NORMAL :SC ; (SB!C:SC-OR-LOSE 'SB!VM::DESCRIPTOR-REG) :OFFSET ; SB!VM::EDI-OFFSET)) ; (SB!VM::RES ; (SB!C:MAKE-RANDOM-TN :KIND :NORMAL :SC ; (SB!C:SC-OR-LOSE 'SB!VM::DESCRIPTOR-REG) :OFFSET ; SB!VM::EDX-OFFSET)) ; (SB!VM::EAX ; (SB!C:MAKE-RANDOM-TN :KIND :NORMAL :SC ; (SB!C:SC-OR-LOSE 'SB!VM::UNSIGNED-REG) :OFFSET ; SB!VM::EAX-OFFSET)) ; (SB!VM::ECX ; (SB!C:MAKE-RANDOM-TN :KIND :NORMAL :SC ; (SB!C:SC-OR-LOSE 'SB!VM::UNSIGNED-REG) :OFFSET ; SB!VM::ECX-OFFSET))) ; (SB!ASSEM:ASSEMBLE (SB!C:*CODE-SEGMENT* 'SB!VM::GENERIC--) ; SB!VM::GENERIC-- ; (PUSH (CONS 'SB!VM::GENERIC-- SB!VM::GENERIC--) SB!C::*ENTRY-POINTS*) ; (SB!ASSEM:INST SB!VM::MOV SB!VM::ECX SB!VM::X) ; (SB!ASSEM:INST OR SB!VM::ECX SB!VM::Y) ; (SB!ASSEM:INST SB!VM::TEST SB!VM::ECX SB!VM:FIXNUM-TAG-MASK) ; (SB!ASSEM:INST SB!VM::JMP :NZ SB!VM::DO-STATIC-FUN) ; (SB!C:MOVE SB!VM::RES SB!VM::X) ; (SB!ASSEM:INST SB!VM::SUB SB!VM::RES SB!VM::Y) ; (SB!ASSEM:INST SB!VM::JMP :NO SB!VM::OKAY) ; (SB!ASSEM:INST SB!VM::CMC) ; ...) ; (WHEN SB-XC:*COMPILE-PRINT* ; (FORMAT *ERROR-OUTPUT* "~S assembled~%" 'SB!VM::GENERIC--))) ; ; caught STYLE-WARNING: ; The variable EAX is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition GENERIC-- assembled GENERIC-* assembled ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/assembly/x86/arith.lisp ; in: ; DEFINE-ASSEMBLY-ROUTINE (GENERIC-NEGATE (:COST 10) (:RETURN-STYLE :FULL-CALL) ; (:POLICY :SAFE) (:TRANSLATE %NEGATE) ...) ; (SB!C:DEFINE-ASSEMBLY-ROUTINE (SB!VM::GENERIC-NEGATE (:COST 10) ; (:RETURN-STYLE :FULL-CALL) (:POLICY :SAFE) ; (:TRANSLATE SB!KERNEL:%NEGATE) (:SAVE-P T)) ; ((:ARG SB!VM::X (SB!VM::DESCRIPTOR-REG SB!VM::ANY-REG) SB!VM::EDX-OFFSET) ; (:RES SB!VM::RES (SB!VM::DESCRIPTOR-REG SB!VM::ANY-REG) ; SB!VM::EDX-OFFSET) ; (:TEMP SB!VM::EAX SB!VM::UNSIGNED-REG SB!VM::EAX-OFFSET) ; (:TEMP SB!VM::ECX SB!VM::UNSIGNED-REG SB!VM::ECX-OFFSET)) ; (SB!ASSEM:INST SB!VM::TEST SB!VM::X SB!VM:FIXNUM-TAG-MASK) ; (SB!ASSEM:INST SB!VM::JMP :Z FIXNUM) ; (SB!ASSEM:INST PUSH SB!VM::EBP-TN) ; (SB!ASSEM:INST SB!VM::MOV SB!VM::EBP-TN SB!VM::ESP-TN) ; (SB!ASSEM:INST SB!VM::SUB SB!VM::ESP-TN (SB!VM:FIXNUMIZE 1)) ; (SB!ASSEM:INST PUSH ; (SB!VM::MAKE-EA :DWORD :BASE SB!VM::EBP-TN :DISP ; (SB!VM::FRAME-BYTE-OFFSET ; SB!VM:RETURN-PC-SAVE-OFFSET))) ; (SB!ASSEM:INST SB!VM::MOV SB!VM::ECX (SB!VM:FIXNUMIZE 1)) ; (SB!ASSEM:INST SB!VM::JMP ; (SB!VM::MAKE-EA :DWORD :DISP ; (+ SB!VM::NIL-VALUE ; (SB!VM:STATIC-FUN-OFFSET ; 'SB!KERNEL:%NEGATE)))) ; FIXNUM ; ...) ; --> PROGN ; ==> ; (LET ((SB!VM::X ; (SB!C:MAKE-RANDOM-TN :KIND :NORMAL :SC ; (SB!C:SC-OR-LOSE 'SB!VM::DESCRIPTOR-REG) :OFFSET ; SB!VM::EDX-OFFSET)) ; (SB!VM::RES ; (SB!C:MAKE-RANDOM-TN :KIND :NORMAL :SC ; (SB!C:SC-OR-LOSE 'SB!VM::DESCRIPTOR-REG) :OFFSET ; SB!VM::EDX-OFFSET)) ; (SB!VM::EAX ; (SB!C:MAKE-RANDOM-TN :KIND :NORMAL :SC ; (SB!C:SC-OR-LOSE 'SB!VM::UNSIGNED-REG) :OFFSET ; SB!VM::EAX-OFFSET)) ; (SB!VM::ECX ; (SB!C:MAKE-RANDOM-TN :KIND :NORMAL :SC ; (SB!C:SC-OR-LOSE 'SB!VM::UNSIGNED-REG) :OFFSET ; SB!VM::ECX-OFFSET))) ; (SB!ASSEM:ASSEMBLE (SB!C:*CODE-SEGMENT* 'SB!VM::GENERIC-NEGATE) ; SB!VM::GENERIC-NEGATE ; (PUSH (CONS 'SB!VM::GENERIC-NEGATE SB!VM::GENERIC-NEGATE) ; SB!C::*ENTRY-POINTS*) ; (SB!ASSEM:INST SB!VM::TEST SB!VM::X SB!VM:FIXNUM-TAG-MASK) ; (SB!ASSEM:INST SB!VM::JMP :Z FIXNUM) ; (SB!ASSEM:INST PUSH SB!VM::EBP-TN) ; (SB!ASSEM:INST SB!VM::MOV SB!VM::EBP-TN SB!VM::ESP-TN) ; (SB!ASSEM:INST SB!VM::SUB SB!VM::ESP-TN (SB!VM:FIXNUMIZE 1)) ; (SB!ASSEM:INST PUSH ; (SB!VM::MAKE-EA :DWORD :BASE SB!VM::EBP-TN :DISP ; (SB!VM::FRAME-BYTE-OFFSET ; SB!VM:RETURN-PC-SAVE-OFFSET))) ; (SB!ASSEM:INST SB!VM::MOV SB!VM::ECX (SB!VM:FIXNUMIZE 1)) ; (SB!ASSEM:INST SB!VM::JMP ; (SB!VM::MAKE-EA :DWORD :DISP (+ SB!VM::NIL-VALUE #))) ; ...) ; (WHEN SB-XC:*COMPILE-PRINT* ; (FORMAT *ERROR-OUTPUT* "~S assembled~%" 'SB!VM::GENERIC-NEGATE))) ; ; caught STYLE-WARNING: ; The variable EAX is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition GENERIC-NEGATE assembled GENERIC-< assembled GENERIC-> assembled GENERIC-EQL assembled GENERIC-= assembled RANDOM-MT19937-UPDATE assembled ALLOC-SIGNED-BIGNUM-IN-EAX assembled ALLOC-SIGNED-BIGNUM-IN-EBX assembled ALLOC-SIGNED-BIGNUM-IN-ECX assembled ALLOC-SIGNED-BIGNUM-IN-EDX assembled ALLOC-SIGNED-BIGNUM-IN-EDI assembled ALLOC-SIGNED-BIGNUM-IN-ESI assembled ALLOC-UNSIGNED-BIGNUM-IN-EAX assembled ALLOC-UNSIGNED-BIGNUM-IN-EBX assembled ALLOC-UNSIGNED-BIGNUM-IN-ECX assembled ALLOC-UNSIGNED-BIGNUM-IN-EDX assembled ALLOC-UNSIGNED-BIGNUM-IN-EDI assembled ALLOC-UNSIGNED-BIGNUM-IN-ESI assembled ALLOCATE-CONS-TO-EDI assembled ALLOCATE-CONS-TO-ESI assembled ALLOCATE-CONS-TO-EBX assembled ALLOCATE-CONS-TO-EDX assembled ALLOCATE-CONS-TO-ECX assembled ALLOCATE-CONS-TO-EAX assembled ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/pseudo-vops.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFINE-VOP (NOTE-ENVIRONMENT-START) ...) ; x-compiling (DEFINE-VOP (MOVE-OPERAND) ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/pseudo-vops.lisp-obj-tmp written ; compilation finished in 0:00:00.040 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/aliencomp.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFKNOWN %SAP-ALIEN ...) ; x-compiling (DEFKNOWN ALIEN-SAP ...) ; x-compiling (DEFKNOWN SLOT ...) ; x-compiling (DEFKNOWN %SET-SLOT ...) ; x-compiling (DEFKNOWN %SLOT-ADDR ...) ; x-compiling (DEFKNOWN DEREF ...) ; x-compiling (DEFKNOWN %SET-DEREF ...) ; x-compiling (DEFKNOWN %DEREF-ADDR ...) ; x-compiling (DEFKNOWN %HEAP-ALIEN ...) ; x-compiling (DEFKNOWN %SET-HEAP-ALIEN ...) ; x-compiling (DEFKNOWN %HEAP-ALIEN-ADDR ...) ; x-compiling (DEFKNOWN MAKE-LOCAL-ALIEN ...) ; x-compiling (DEFKNOWN NOTE-LOCAL-ALIEN-TYPE ...) ; x-compiling (DEFKNOWN LOCAL-ALIEN ...) ; x-compiling (DEFKNOWN %LOCAL-ALIEN-FORCED-TO-MEMORY-P ...) ; x-compiling (DEFKNOWN %SET-LOCAL-ALIEN ...) ; x-compiling (DEFKNOWN %LOCAL-ALIEN-ADDR ...) ; x-compiling (DEFKNOWN DISPOSE-LOCAL-ALIEN ...) ; x-compiling (DEFKNOWN %CAST ...) ; x-compiling (DEFKNOWN NATURALIZE ...) ; x-compiling (DEFKNOWN DEPORT ...) ; x-compiling (DEFKNOWN DEPORT-ALLOC ...) ; x-compiling (DEFKNOWN %ALIEN-VALUE ...) ; x-compiling (DEFKNOWN (SETF %ALIEN-VALUE) ...) ; x-compiling (DEFKNOWN ALIEN-FUNCALL ...) ; x-compiling (DEFTRANSFORM SLOT ...) ; x-compiling (DEFTRANSFORM %SET-SLOT ...) ; x-compiling (DEFTRANSFORM %SLOT-ADDR ...) ; x-compiling (DEFUN FIND-SLOT-OFFSET-AND-TYPE ...) ; x-compiling (DEFTRANSFORM SLOT ...) ; x-compiling (DEFTRANSFORM %SET-SLOT ...) ; x-compiling (DEFOPTIMIZER (%SLOT-ADDR DERIVE-TYPE) ...) ; x-compiling (DEFTRANSFORM %SLOT-ADDR ...) ; x-compiling (DEFUN FIND-DEREF-ALIEN-TYPE ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/aliencomp.lisp ; in: DEFUN FIND-DEREF-ALIEN-TYPE ; (SB!C::GIVE-UP-IR1-TRANSFORM) ; ; note: deleting unreachable code ; x-compiling (DEFUN FIND-DEREF-ELEMENT-TYPE ...) ; x-compiling (DEFUN COMPUTE-DEREF-GUTS ...) ; x-compiling (DEFTRANSFORM DEREF ...) ; x-compiling (DEFTRANSFORM %SET-DEREF ...) ; x-compiling (DEFOPTIMIZER (%DEREF-ADDR DERIVE-TYPE) ...) ; x-compiling (DEFTRANSFORM %DEREF-ADDR ...) ; x-compiling (DEFUN HEAP-ALIEN-SAP-AND-TYPE ...) ; x-compiling (DEFTRANSFORM %HEAP-ALIEN ...) ; x-compiling (DEFTRANSFORM %SET-HEAP-ALIEN ...) ; x-compiling (DEFOPTIMIZER (%HEAP-ALIEN-ADDR DERIVE-TYPE) ...) ; x-compiling (DEFTRANSFORM %HEAP-ALIEN-ADDR ...) ; x-compiling (DEFUN ALIEN-INFO-CONSTANT-OR-ABORT ...) ; x-compiling (DEFTRANSFORM MAKE-LOCAL-ALIEN ...) ; x-compiling (DEFTRANSFORM NOTE-LOCAL-ALIEN-TYPE ...) ; x-compiling (DEFTRANSFORM LOCAL-ALIEN ...) ; x-compiling (DEFTRANSFORM %LOCAL-ALIEN-FORCED-TO-MEMORY-P ...) ; x-compiling (DEFTRANSFORM %SET-LOCAL-ALIEN ...) ; x-compiling (DEFOPTIMIZER (%LOCAL-ALIEN-ADDR DERIVE-TYPE) ...) ; x-compiling (DEFTRANSFORM %LOCAL-ALIEN-ADDR ...) ; x-compiling (DEFOPTIMIZER (%CAST DERIVE-TYPE) ...) ; x-compiling (DEFTRANSFORM %CAST ...) ; x-compiling (DEFTRANSFORM ALIEN-SAP ...) ; x-compiling (DEFOPTIMIZER (%SAP-ALIEN DERIVE-TYPE) ...) ; x-compiling (DEFTRANSFORM %SAP-ALIEN ...) ; x-compiling (FLET (#) ...) ; x-compiling (DEFUN COUNT-LOW-ORDER-ZEROS ...) ; x-compiling (DEFTRANSFORM / ...) ; x-compiling (DEFTRANSFORM ASH ...) ; x-compiling (DEFTRANSFORM ALIEN-FUNCALL ...) ; x-compiling (DEFTRANSFORM ALIEN-FUNCALL ...) ; x-compiling (DEFOPTIMIZER (%ALIEN-FUNCALL DERIVE-TYPE) ...) ; x-compiling (DEFOPTIMIZER (%ALIEN-FUNCALL LTN-ANNOTATE) ...) ; x-compiling (DEFOPTIMIZER (%ALIEN-FUNCALL IR2-CONVERT) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/aliencomp.lisp ; in: DEFOPTIMIZER (%ALIEN-FUNCALL LTN-ANNOTATE) ; (SB!C::ANNOTATE-ORDINARY-LVAR FUNCTION) ; ; caught STYLE-WARNING: ; undefined function: ANNOTATE-ORDINARY-LVAR ; in: DEFOPTIMIZER (%ALIEN-FUNCALL IR2-CONVERT) ; (SB!C::LVAR-TN SB!C:CALL BLOCK SB!C::ARG) ; ; caught STYLE-WARNING: ; undefined function: LVAR-TN ; (SB!C::MOVE-LVAR-RESULT SB!C:CALL BLOCK SB!C::RESULT-TNS SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: MOVE-LVAR-RESULT ; ; compilation unit finished ; Undefined functions: ; ANNOTATE-ORDINARY-LVAR LVAR-TN MOVE-LVAR-RESULT ; caught 3 STYLE-WARNING conditions ; printed 1 note ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/aliencomp.lisp-obj-tmp written ; compilation finished in 0:00:00.381 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ltv.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFKNOWN %LOAD-TIME-VALUE ...) ; x-compiling (DEF-IR1-TRANSLATOR LOAD-TIME-VALUE ...) ; x-compiling (DEFOPTIMIZER (%LOAD-TIME-VALUE IR2-CONVERT) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ltv.lisp ; in: DEFOPTIMIZER (%LOAD-TIME-VALUE IR2-CONVERT) ; (SB!C::MOVE-LVAR-RESULT SB!C::NODE BLOCK (LIST SB!C:TN) SB!C::LVAR) ; ; caught STYLE-WARNING: ; undefined function: MOVE-LVAR-RESULT ; ; compilation unit finished ; Undefined function: ; MOVE-LVAR-RESULT ; caught 1 STYLE-WARNING condition ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/ltv.lisp-obj-tmp written ; compilation finished in 0:00:00.060 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/gtn.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFUN GTN-ANALYZE ...) ; x-compiling (DEFUN ASSIGN-LAMBDA-VAR-TNS ...) ; x-compiling (DEFUN ASSIGN-IR2-PHYSENV ...) ; x-compiling (DEFUN USE-STANDARD-RETURNS ...) ; x-compiling (DEFUN RETURN-VALUE-EFFICIENCY-NOTE ...) ; x-compiling (DEFUN RETURN-INFO-FOR-SET ...) ; x-compiling (DEFUN ASSIGN-RETURN-LOCATIONS ...) ; x-compiling (DEFUN ASSIGN-IR2-NLX-INFO ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/gtn.lisp-obj-tmp written ; compilation finished in 0:00:00.083 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ltn.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFUN NODE-LTN-POLICY ...) ; x-compiling (DEFUN LTN-POLICY-SAFE-P ...) ; x-compiling (DEFUN ENSURE-BLOCK-HAS-IR2-BLOCK ...) ; x-compiling (DEFUN FIXUP-IR2-BLOCKS-FOR-SPLIT-BLOCK ...) ; x-compiling (DECLAIM (INLINE LVAR-PTYPE)) ; x-compiling (DEFUN LVAR-PTYPE ...) ; x-compiling (DEFUN LVAR-DELAYED-LEAF ...) ; x-compiling (DEFUN ANNOTATE-1-VALUE-LVAR ...) ; x-compiling (DEFUN ANNOTATE-ORDINARY-LVAR ...) ; x-compiling (DEFUN ANNOTATE-FUN-LVAR ...) ; x-compiling (DEFUN FLUSH-FULL-CALL-TAIL-TRANSFER ...) ; x-compiling (DEFUN LTN-DEFAULT-CALL ...) ; x-compiling (DEFUN ANNOTATE-UNKNOWN-VALUES-LVAR ...) ; x-compiling (DEFUN ANNOTATE-FIXED-VALUES-LVAR ...) ; x-compiling (DEFUN LTN-ANALYZE-RETURN ...) ; x-compiling (DEFUN LTN-ANALYZE-MV-BIND ...) ; x-compiling (DEFUN LTN-ANALYZE-MV-CALL ...) ; x-compiling (DEFUN LTN-ANALYZE-LOCAL-CALL ...) ; x-compiling (DEFUN SET-TAIL-LOCAL-CALL-SUCCESSOR ...) ; x-compiling (DEFUN LTN-ANALYZE-SET ...) ; x-compiling (DEFUN LTN-ANALYZE-IF ...) ; x-compiling (DEFUN LTN-ANALYZE-EXIT ...) ; x-compiling (DEFOPTIMIZER (%UNWIND-PROTECT LTN-ANNOTATE) ...) ; x-compiling (DEFOPTIMIZER (%POP-VALUES LTN-ANNOTATE) ...) ; x-compiling (DEFOPTIMIZER (%NIP-VALUES LTN-ANNOTATE) ...) ; x-compiling (DEFOPTIMIZER (%DUMMY-DX-ALLOC LTN-ANNOTATE) ...) ; x-compiling (DEFUN OPERAND-RESTRICTION-OK ...) ; x-compiling (DEFUN TEMPLATE-ARGS-OK ...) ; x-compiling (DEFUN TEMPLATE-RESULTS-OK ...) ; x-compiling (DEFUN IS-OK-TEMPLATE-USE ...) ; x-compiling (DEFUN FIND-TEMPLATE ...) ; x-compiling (DEFUN FIND-TEMPLATE-FOR-LTN-POLICY ...) ; x-compiling (DEFVAR *EFFICIENCY-NOTE-LIMIT* ...) ; x-compiling (DECLAIM (TYPE # ...)) ; x-compiling (DEFVAR *EFFICIENCY-NOTE-COST-THRESHOLD* ...) ; x-compiling (DECLAIM (TYPE INDEX ...)) ; x-compiling (DEFUN STRANGE-TEMPLATE-FAILURE ...) ; x-compiling (DEFUN NOTE-REJECTED-TEMPLATES ...) ; x-compiling (DEFUN LTN-ANALYZE-KNOWN-CALL ...) ; x-compiling (DEFUN LTN-ANALYZE-CAST ...) ; x-compiling (DEFUN LTN-ANNOTATE-CASTS ...) ; x-compiling (DEFUN LTN-ANNOTATE-CAST ...) ; x-compiling (DEFUN LTN-ANALYZE-BLOCK ...) ; x-compiling (DEFUN LTN-ANALYZE ...) ; x-compiling (DEFUN LTN-ANALYZE-BELATED-BLOCK ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/ltn.lisp-obj-tmp written ; compilation finished in 0:00:00.370 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/stack.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFUN FIND-PUSHED-LVARS ...) ; x-compiling (DEFUN NLE-BLOCK-NLX-INFO ...) ; x-compiling (DEFUN NLE-BLOCK-ENTRY-BLOCK ...) ; x-compiling (DEFUN MERGE-UVL-LIVE-SETS ...) ; x-compiling (DEFUN FIND-LOWEST-COMMON-DOMINATOR ...) ; x-compiling (DEFUN BACK-PROPAGATE-ONE-DX-LVAR ...) ; x-compiling (DEFUN BACK-PROPAGATE-DX-LVARS ...) ; x-compiling (DEFUN UPDATE-UVL-LIVE-SETS ...) ; x-compiling (DEFUN ORDERED-LIST-INTERSECTION ...) ; x-compiling (DEFUN ORDERED-LIST-UNION ...) ; x-compiling (DEFUN ORDER-BLOCK-UVL-SETS ...) ; x-compiling (DEFUN ORDER-UVL-SETS ...) ; x-compiling (DEFUN INSERT-STACK-CLEANUPS ...) ; x-compiling (DEFUN FIND-PUSHING-BLOCKS ...) ; x-compiling (DEFUN STACK-ANALYZE ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/stack.lisp ; in: DEFUN INSERT-STACK-CLEANUPS ; (SB!C::ADD-TO-EMIT-ORDER SB!C::2BLOCK (SB!C::BLOCK-INFO SB!C::BLOCK1)) ; ; caught STYLE-WARNING: ; undefined function: ADD-TO-EMIT-ORDER ; ; compilation unit finished ; Undefined function: ; ADD-TO-EMIT-ORDER ; caught 1 STYLE-WARNING condition ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/stack.lisp-obj-tmp written ; compilation finished in 0:00:00.199 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/control.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFUN ADD-TO-EMIT-ORDER ...) ; x-compiling (DEFUN FIND-ROTATED-LOOP-HEAD ...) ; x-compiling (DEFUN CONTROL-ANALYZE-BLOCK ...) ; x-compiling (DEFUN CONTROL-ANALYZE-1-FUN ...) ; x-compiling (DEFEVENT CONTROL-DELETED-BLOCK ...) ; x-compiling (DEFUN CONTROL-ANALYZE ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/control.lisp-obj-tmp written ; compilation finished in 0:00:00.064 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/entry.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFUN ENTRY-ANALYZE ...) ; x-compiling (DEFUN COMPUTE-ENTRY-INFO ...) ; x-compiling (DEFUN REPLACE-TOPLEVEL-XEPS ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/entry.lisp-obj-tmp written ; compilation finished in 0:00:00.045 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir2tran.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFUN EMIT-MOVE ...) ; x-compiling (DEFUN EMIT-STEP-P ...) ; x-compiling (DEFUN TYPE-CHECK-TEMPLATE ...) ; x-compiling (DEFUN EMIT-TYPE-CHECK ...) ; x-compiling (DEFEVENT MAKE-VALUE-CELL-EVENT ...) ; x-compiling (DEFUN EMIT-MAKE-VALUE-CELL ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN FIND-IN-PHYSENV ...) ; x-compiling (DEFUN CONSTANT-TN ...) ; x-compiling (DEFUN LEAF-TN ...) ; x-compiling (DEFUN EMIT-CONSTANT ...) ; x-compiling (DEFUN %RETURN-IS-BOXED ...) ; x-compiling (DEFUN BOXED-REF-P ...) ; x-compiling (DEFUN IR2-CONVERT-REF ...) ; x-compiling (DEFUN IR2-CONVERT-GLOBAL-VAR ...) ; x-compiling (DEFUN ASSERTIONS-ON-IR2-CONVERTED-CLAMBDA ...) ; x-compiling (DEFUN IR2-CONVERT-CLOSURE ...) ; x-compiling (DEFUN CLOSURE-INITIAL-VALUE ...) ; x-compiling (DEFOPTIMIZER (%ALLOCATE-CLOSURES LTN-ANNOTATE) ...) ; x-compiling (DEFOPTIMIZER (%ALLOCATE-CLOSURES IR2-CONVERT) ...) ; x-compiling (DEFUN IR2-CONVERT-SET ...) ; x-compiling (DEFUN LVAR-TN ...) ; x-compiling (DEFUN LVAR-TNS ...) ; x-compiling (DEFUN LVAR-RESULT-TNS ...) ; x-compiling (DEFUN MAKE-STANDARD-VALUE-TNS ...) ; x-compiling (DEFUN STANDARD-RESULT-TNS ...) ; x-compiling (DEFUN MOVE-RESULTS-COERCED ...) ; x-compiling (DEFUN MOVE-RESULTS-CHECKED ...) ; x-compiling (DEFUN MOVE-LVAR-RESULT ...) ; x-compiling (DEFUN IR2-CONVERT-CAST ...) ; x-compiling (DEFUN REFERENCE-ARGS ...) ; x-compiling (DEFUN IR2-CONVERT-CONDITIONAL ...) ; x-compiling (DEFUN IR2-CONVERT-IF ...) ; x-compiling (DEFUN FIND-TEMPLATE-RESULT-TYPES ...) ; x-compiling (DEFUN MAKE-TEMPLATE-RESULT-TNS ...) ; x-compiling (DEFUN IR2-CONVERT-TEMPLATE ...) ; x-compiling (DEFOPTIMIZER (%%PRIMITIVE IR2-CONVERT) ...) ; x-compiling (DEFOPTIMIZER (%%PRIMITIVE DERIVE-TYPE) ...) ; x-compiling (DEFUN IR2-CONVERT-LET ...) ; x-compiling (DEFUN EMIT-PSETQ-MOVES ...) ; x-compiling (DEFUN IR2-CONVERT-TAIL-LOCAL-CALL ...) ; x-compiling (DEFUN IR2-CONVERT-ASSIGNMENT ...) ; x-compiling (DEFUN IR2-CONVERT-LOCAL-CALL-ARGS ...) ; x-compiling (DEFUN IR2-CONVERT-LOCAL-KNOWN-CALL ...) ; x-compiling (DEFUN IR2-CONVERT-LOCAL-UNKNOWN-CALL ...) ; x-compiling (DEFUN IR2-CONVERT-LOCAL-CALL ...) ; x-compiling (DEFUN FUN-LVAR-TN ...) ; x-compiling (DEFUN MOVE-TAIL-FULL-CALL-ARGS ...) ; x-compiling (DEFUN IR2-CONVERT-TAIL-FULL-CALL ...) ; x-compiling (DEFUN IR2-CONVERT-FULL-CALL-ARGS ...) ; x-compiling (DEFUN IR2-CONVERT-FIXED-FULL-CALL ...) ; x-compiling (DEFUN IR2-CONVERT-MULTIPLE-FULL-CALL ...) ; x-compiling (DECLAIM (TYPE # ...)) ; x-compiling (DEFVAR *TRACK-FULL-CALLED-FNAMES* ...) ; x-compiling (DEFUN PONDER-FULL-CALL ...) ; x-compiling (DEFUN IR2-CONVERT-FULL-CALL ...) ; x-compiling (DEFUN XEP-VERIFY-ARG-COUNT ...) ; x-compiling (DEFUN INIT-XEP-ENVIRONMENT ...) ; x-compiling (DEFUN SAVE-BSP ...) ; x-compiling (DEFUN IR2-CONVERT-BIND ...) ; x-compiling (DEFUN IR2-CONVERT-RETURN ...) ; x-compiling (DEFOPTIMIZER (%CALLER-FRAME IR2-CONVERT) ...) ; x-compiling (DEFOPTIMIZER (%CALLER-PC IR2-CONVERT) ...) ; x-compiling (DEFUN IR2-CONVERT-MV-BIND ...) ; x-compiling (DEFUN IR2-CONVERT-MV-CALL ...) ; x-compiling (DEFOPTIMIZER (%POP-VALUES IR2-CONVERT) ...) ; x-compiling (DEFOPTIMIZER (%NIP-VALUES IR2-CONVERT) ...) ; x-compiling (DEFOPTIMIZER (%DUMMY-DX-ALLOC IR2-CONVERT) ...) ; x-compiling (DEFOPTIMIZER (VALUES IR2-CONVERT) ...) ; x-compiling (DEFOPTIMIZER (VALUES-LIST IR2-CONVERT) ...) ; x-compiling (DEFOPTIMIZER (%MORE-ARG-VALUES IR2-CONVERT) ...) ; x-compiling (DEFOPTIMIZER (%SPECIAL-BIND IR2-CONVERT) ...) ; x-compiling (DEFOPTIMIZER (%SPECIAL-UNBIND IR2-CONVERT) ...) ; x-compiling (DEF-IR1-TRANSLATOR PROGV ...) ; x-compiling (DEFUN IR2-CONVERT-EXIT ...) ; x-compiling (DEFOPTIMIZER (%CLEANUP-POINT IR2-CONVERT) ...) ; x-compiling (DEFOPTIMIZER (%LEXICAL-EXIT-BREAKUP IR2-CONVERT) ...) ; x-compiling (DEFUN IR2-CONVERT-THROW ...) ; x-compiling (DEFUN EMIT-NLX-START ...) ; x-compiling (DEFUN IR2-CONVERT-ENTRY ...) ; x-compiling (DEFOPTIMIZER (%CATCH IR2-CONVERT) ...) ; x-compiling (DEFOPTIMIZER (%UNWIND-PROTECT IR2-CONVERT) ...) ; x-compiling (DEFOPTIMIZER (%NLX-ENTRY IR2-CONVERT) ...) ; x-compiling (DEF LIST) ; x-compiling (DEF LIST*) ; x-compiling (DEFOPTIMIZER (MASK-SIGNED-FIELD IR2-CONVERT) ...) ; x-compiling (DEFOPTIMIZER (%TYPEP-WRAPPER IR2-CONVERT) ...) ; x-compiling (DEFUN IR2-CONVERT ...) ; x-compiling (DEFUN FINISH-IR2-BLOCK ...) ; x-compiling (DEFUN IR2-CONVERT-BLOCK ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/ir2tran.lisp-obj-tmp written ; compilation finished in 0:00:00.981 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/vm-ir2tran.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEF-ALLOC %MAKE-STRUCTURE-INSTANCE ...) ; x-compiling (DEFOPTIMIZER (%MAKE-STRUCTURE-INSTANCE STACK-ALLOCATE-RESULT) ...) ; x-compiling (DEFOPTIMIZER IR2-CONVERT-REFFER ...) ; x-compiling (DEFOPTIMIZER IR2-CONVERT-SETTER ...) ; x-compiling (DEFOPTIMIZER IR2-CONVERT-SETFER ...) ; x-compiling (DEFOPTIMIZER IR2-CONVERT-CASSER ...) ; x-compiling (DEFUN EMIT-INITS ...) ; x-compiling (DEFUN EMIT-FIXED-ALLOC ...) ; x-compiling (DEFOPTIMIZER IR2-CONVERT-FIXED-ALLOCATION ...) ; x-compiling (DEFOPTIMIZER IR2-CONVERT-VARIABLE-ALLOCATION ...) ; x-compiling (DEFOPTIMIZER IR2-CONVERT-STRUCTURE-ALLOCATION ...) ; x-compiling (DEFOPTIMIZER (INITIALIZE-VECTOR IR2-CONVERT) ...) ; x-compiling (LET (#) ...) ; x-compiling (DEFOPTIMIZER (ALLOCATE-VECTOR STACK-ALLOCATE-RESULT) ...) ; x-compiling (DEFOPTIMIZER (ALLOCATE-VECTOR LTN-ANNOTATE) ...) ; x-compiling (DEFOPTIMIZER (LIST STACK-ALLOCATE-RESULT) ...) ; x-compiling (DEFOPTIMIZER (LIST* STACK-ALLOCATE-RESULT) ...) ; x-compiling (DEFOPTIMIZER (%LISTIFY-REST-ARGS STACK-ALLOCATE-RESULT) ...) ; x-compiling (DEFOPTIMIZER (CONS STACK-ALLOCATE-RESULT) ...) ; x-compiling (DEFOPTIMIZER (%MAKE-COMPLEX STACK-ALLOCATE-RESULT) ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/generic/vm-ir2tran.lisp-obj-tmp written ; compilation finished in 0:00:00.193 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/copyprop.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFUN TN-IS-COPY-OF ...) ; x-compiling (DEFUN INIT-COPY-SETS ...) ; x-compiling (DEFUN COPY-FLOW-ANALYSIS ...) ; x-compiling (DEFEVENT COPY-DELETED-MOVE ...) ; x-compiling (DEFUN OK-COPY-REF ...) ; x-compiling (DEFUN PROPAGATE-COPIES ...) ; x-compiling (DEFUN COPY-PROPAGATE ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/copyprop.lisp-obj-tmp written ; compilation finished in 0:00:00.099 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/represent.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFUN GET-OPERAND-INFO ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/represent.lisp ; in: DEFUN GET-OPERAND-INFO ; (SB!C::POSITION-IN #'SB!C:TN-REF-ACROSS SB!C::REF SB!C::REFS) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; x-compiling (DEFUN LISTIFY-RESTRICTIONS ...) ; x-compiling (DEFUN BAD-COSTS-ERROR ...) ; x-compiling (DEFUN BAD-COERCE-ERROR ...) ; x-compiling (DEFUN BAD-MOVE-ARG-ERROR ...) ; x-compiling (DEFUN CHECK-MOVE-FUN-CONSISTENCY ...) ; x-compiling (DEFPARAMETER *IGNORE-COST-VOPS* ...) ; x-compiling (DEFPARAMETER *SUPPRESS-NOTE-VOPS* ...) ; x-compiling (DEFUN ADD-REPRESENTATION-COSTS ...) ; x-compiling (DEFUN SELECT-TN-REPRESENTATION ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/represent.lisp ; in: DEFUN SELECT-TN-REPRESENTATION ; (DEFUN SB!C::SELECT-TN-REPRESENTATION (SB!C:TN SB!C::SCS SB!C::COSTS) ; (DECLARE (TYPE SB!C:TN SB!C:TN) ; (TYPE SB!C::SC-VECTOR SB!C::COSTS) ; (INLINE SB!C::ADD-REPRESENTATION-COSTS)) ; (DOLIST (SB!C::SCN SB!C::SCS) (SETF (SVREF SB!C::COSTS SB!C::SCN) 0)) ; (SB!C::ADD-REPRESENTATION-COSTS (SB!C::TN-READS SB!C:TN) SB!C::SCS ; SB!C::COSTS #'SB!C::VOP-ARGS ; #'SB!C::VOP-INFO-ARG-COSTS ; #'SB!C::VOP-INFO-MORE-ARG-COSTS NIL) ; (SB!C::ADD-REPRESENTATION-COSTS (SB!C::TN-WRITES SB!C:TN) SB!C::SCS ; SB!C::COSTS #'SB!C::VOP-RESULTS ; #'SB!C::VOP-INFO-RESULT-COSTS ; #'SB!C::VOP-INFO-MORE-RESULT-COSTS T) ; (LET ((MIN MOST-POSITIVE-FIXNUM) (SB!C::MIN-SCN NIL) (SB!C::UNIQUE NIL)) ; (DOLIST (SB!C::SCN SB!C::SCS) ; (LET (#) ; (COND # #))) ; (VALUES (SVREF SB!C:*BACKEND-SC-NUMBERS* SB!C::MIN-SCN) SB!C::UNIQUE))) ; --> PROGN ; ==> ; (SB!IMPL::%DEFUN 'SB!C::SELECT-TN-REPRESENTATION ; (SB!INT:NAMED-LAMBDA SB!C::SELECT-TN-REPRESENTATION ; (SB!C:TN SB!C::SCS SB!C::COSTS) ; (DECLARE (TYPE SB!C:TN SB!C:TN) ; (TYPE SB!C::SC-VECTOR SB!C::COSTS) ; (INLINE SB!C::ADD-REPRESENTATION-COSTS)) ; (BLOCK SB!C::SELECT-TN-REPRESENTATION ; (DOLIST (SB!C::SCN SB!C::SCS) (SETF #)) ; (SB!C::ADD-REPRESENTATION-COSTS (SB!C::TN-READS SB!C:TN) SB!C::SCS ; SB!C::COSTS #'SB!C::VOP-ARGS ; #'SB!C::VOP-INFO-ARG-COSTS ; #'SB!C::VOP-INFO-MORE-ARG-COSTS NIL) ; (SB!C::ADD-REPRESENTATION-COSTS (SB!C::TN-WRITES SB!C:TN) SB!C::SCS ; SB!C::COSTS #'SB!C::VOP-RESULTS ; #'SB!C::VOP-INFO-RESULT-COSTS ; #'SB!C::VOP-INFO-MORE-RESULT-COSTS T) ; (LET (# # #) ; (DOLIST # #) ; (VALUES # SB!C::UNIQUE)))) ; NIL 'NIL (SB!C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; Call to SB!C::ADD-REPRESENTATION-COSTS could not be inlined because its source ; code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation must be ; in effect to save function definitions for inlining. ; x-compiling (DEFUN NOTE-NUMBER-STACK-TN ...) ; x-compiling (DEFUN GET-OPERAND-NAME ...) ; x-compiling (DEFUN MAYBE-EMIT-COERCE-EFFICIENCY-NOTE ...) ; x-compiling (DEFUN FIND-MOVE-VOP ...) ; x-compiling (DEFUN EMIT-COERCE-VOP ...) ; x-compiling (DECLAIM (INLINE COERCE-SOME-OPERANDS)) ; x-compiling (DEFUN COERCE-SOME-OPERANDS ...) ; x-compiling (DEFUN COERCE-VOP-OPERANDS ...) ; x-compiling (DEFUN EMIT-ARG-MOVES ...) ; x-compiling (DEFUN EMIT-MOVES-AND-COERCIONS ...) ; x-compiling (DECLAIM (INLINE NOTE-IF-NUMBER-STACK)) ; x-compiling (DEFUN NOTE-IF-NUMBER-STACK ...) ; x-compiling (DEFUN SELECT-REPRESENTATIONS ...); ; compilation unit finished ; caught 1 STYLE-WARNING condition ; printed 2 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/represent.lisp-obj-tmp written ; compilation finished in 0:00:00.349 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/ir2opt.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DECLAIM (TYPE HASH-TABLE ...)) ; x-compiling (DEFVAR *2BLOCK-PRED*) ; x-compiling (DEFVAR *2BLOCK-SUCC*) ; x-compiling (DEFVAR *LABEL-2BLOCK*) ; x-compiling (DEFUN INITIALIZE-IR2-BLOCKS-FLOW-INFO ...) ; x-compiling (DEFUN UPDATE-BLOCK-SUCC ...) ; x-compiling (DECLAIM (INLINE VOP-NAME)) ; x-compiling (DEFUN VOP-NAME ...) ; x-compiling (DEFUN MOVE-VALUE-TARGET ...) ; x-compiling (DEFUN CMOVP ...) ; x-compiling (DECLAIM (INLINE CONVERT-ONE-CMOV)) ; x-compiling (DEFUN CONVERT-ONE-CMOV ...) ; x-compiling (DEFUN MAYBE-CONVERT-ONE-CMOV ...) ; x-compiling (DEFUN CONVERT-CMOVS ...) ; x-compiling (DEFUN DELETE-UNUSED-IR2-BLOCKS ...) ; x-compiling (DEFUN DELETE-FALL-THROUGH-JUMPS ...) ; x-compiling (DEFUN IR2-OPTIMIZE ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/ir2opt.lisp-obj-tmp written ; compilation finished in 0:00:00.109 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/pack.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!REGALLOC") ; x-compiling (DEFVAR *PACK-ASSIGN-COSTS* ...) ; x-compiling (DEFVAR *PACK-OPTIMIZE-SAVES* ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN OFFSET-CONFLICTS-IN-SB ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN CONFLICTS-IN-SC ...) ; x-compiling (DEFUN ADD-LOCATION-CONFLICTS ...) ; x-compiling (DEFUN FIND-LOCATION-USAGE ...) ; x-compiling (DEFUN IR2-BLOCK-COUNT ...) ; x-compiling (DEFUN INIT-SB-VECTORS ...) ; x-compiling (DEFUN GROW-SC ...) ; x-compiling (DEFUN NO-LOAD-FUN-ERROR ...) ; x-compiling (DEFUN FAILED-TO-PACK-ERROR ...) ; x-compiling (DEFUN DESCRIBE-TN-USE ...) ; x-compiling (DEFUN FAILED-TO-PACK-LOAD-TN-ERROR ...) ; x-compiling (DEFUN NO-LOAD-SCS-ALLOWED-BY-PRIMITIVE-TYPE-ERROR ...) ; x-compiling (DEFUN NOTE-SPILLED-TN ...) ; x-compiling (DEFUN PACK-SAVE-TN ...) ; x-compiling (DEFUN EMIT-OPERAND-LOAD ...) ; x-compiling (DEFUN REVERSE-FIND-VOP ...) ; x-compiling (DEFUN SAVE-COMPLEX-WRITER-TN ...) ; x-compiling (DEFUN FIND-SINGLE-WRITER ...) ; x-compiling (DEFUN SAVE-SINGLE-WRITER-TN ...) ; x-compiling (DEFUN RESTORE-SINGLE-WRITER-TN ...) ; x-compiling (DEFUN BASIC-SAVE-TN ...) ; x-compiling (DEFUN EMIT-SAVES ...) ; x-compiling (DEFUN SAVE-IF-NECESSARY ...) ; x-compiling (DEFUN RESTORE-TN ...) ; x-compiling (DEFUN OPTIMIZED-EMIT-SAVES-BLOCK ...) ; x-compiling (DEFUN OPTIMIZED-EMIT-SAVES ...) ; x-compiling (DEFVAR *TN-WRITE-COST* ...) ; x-compiling (DEFVAR *TN-LOOP-DEPTH-MULTIPLIER* ...) ; x-compiling (DEFUN ASSIGN-TN-COSTS ...) ; x-compiling (DEFUN ASSIGN-TN-DEPTHS ...) ; x-compiling (DEFVAR *LIVE-BLOCK*) ; x-compiling (DEFVAR *LIVE-VOP*) ; x-compiling (DEFVAR *REPACK-BLOCKS*) ; x-compiling (DECLAIM (TYPE LIST ...)) ; x-compiling (DEFUN INIT-LIVE-TNS ...) ; x-compiling (DEFUN COMPUTE-LIVE-TNS ...) ; x-compiling (DEFUN LOAD-TN-OFFSET-CONFLICTS-IN-SB ...) ; x-compiling (DEFUN LOAD-TN-CONFLICTS-IN-SC ...) ; x-compiling (DEFUN FIND-LOAD-TN-TARGET ...) ; x-compiling (DEFUN SELECT-LOAD-TN-LOCATION ...) ; x-compiling (DEFEVENT UNPACK-TN ...) ; x-compiling (DEFUN UNPACK-TN ...) ; x-compiling (DEFEVENT UNPACK-FALLBACK ...) ; x-compiling (DEFUN UNPACK-FOR-LOAD-TN ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/pack.lisp ; in: DEFUN UNPACK-FOR-LOAD-TN ; (SB!C::FIND-IN #'SB!C::TN-NEXT SB!REGALLOC::CONF SB!REGALLOC::NORMAL-TNS) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (SB!C::FIND-IN #'SB!C::TN-NEXT SB!REGALLOC::VICTIM SB!REGALLOC::NORMAL-TNS) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; x-compiling (DEFUN PACK-LOAD-TN ...) ; x-compiling (DECLAIM (INLINE CHECK-OPERAND-RESTRICTIONS)) ; x-compiling (DEFUN CHECK-OPERAND-RESTRICTIONS ...) ; x-compiling (DEFUN PACK-LOAD-TNS ...) ; x-compiling (DEFUN TARGET-IF-DESIRABLE ...) ; x-compiling (DEFUN CHECK-OK-TARGET ...) ; x-compiling (DECLAIM (INLINE %CALL-WITH-TARGET-TNS)) ; x-compiling (DEFUN %CALL-WITH-TARGET-TNS ...) ; x-compiling (DEFMACRO DO-TARGET-TNS ...) ; x-compiling (DEFUN FIND-OK-TARGET-OFFSET ...) ; x-compiling (DEFUN SELECT-LOCATION ...) ; x-compiling (DEFUN ORIGINAL-TN ...) ; x-compiling (DECLAIM (INLINE UNBOUNDED-SC-P)) ; x-compiling (DEFUN UNBOUNDED-SC-P ...) ; x-compiling (DEFUN UNBOUNDED-TN-P ...) ; x-compiling (DECLAIM (NOTINLINE UNBOUNDED-SC-P)) ; x-compiling (DEFUN PACK-TN ...) ; x-compiling (DEFUN PACK-WIRED-TN ...) ; x-compiling (DEFEVENT REPACK-BLOCK ...) ; x-compiling (DEFUN CLEAN-UP-PACK-STRUCTURES ...) ; x-compiling (DEFUN TN-LEXICAL-DEPTH ...) ; x-compiling (DECLAIM (TYPE # ...)) ; x-compiling (DEFVAR *REGISTER-ALLOCATION-METHOD* ...) ; x-compiling (DECLAIM (FTYPE FUNCTION ...)) ; x-compiling (DEFUN PACK ...) ; x-compiling (DEFUN PACK-GREEDY ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/pack.lisp ; in: DEFUN DESCRIBE-TN-USE ; (SB!C::PRINT-TN-GUTS SB!C:TN STREAM) ; ; caught STYLE-WARNING: ; undefined function: PRINT-TN-GUTS ; ; compilation unit finished ; Undefined function: ; PRINT-TN-GUTS ; caught 1 STYLE-WARNING condition ; printed 4 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/pack.lisp-obj-tmp written ; compilation finished in 0:00:01.261 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/pack-iterative.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!REGALLOC") ; x-compiling (DEFSTRUCT (ORDERED-SET # ...) ...) ; x-compiling (DEFUN OSET-ADJOIN ...) ; x-compiling (DEFUN OSET-DELETE ...) ; x-compiling (DEFUN OSET-MEMBER ...) ; x-compiling (DEFMACRO DO-OSET-ELEMENTS ...) ; x-compiling (DEF!STRUCT (VERTEX # ...) ...) ; x-compiling (DECLAIM (INLINE VERTEX-SC)) ; x-compiling (DEFUN VERTEX-SC ...) ; x-compiling (DEF!STRUCT (INTERFERENCE-GRAPH # ...) ...) ; x-compiling (DEFUN INSERT-ONE-EDGE ...) ; x-compiling (DEFUN BLOCK-GTNS ...) ; x-compiling (DEFUN INSERT-BLOCK-LOCAL-CONFLICTS-FOR ...) ; x-compiling (DEFUN INSERT-BLOCK-LOCAL-CONFLICTS ...) ; x-compiling (DEFUN INSERT-CONFLICT-EDGES ...) ; x-compiling (DEFUN RESTRICTED-TN-LOCATIONS ...) ; x-compiling (DEFUN PREPARE-VERTICES ...) ; x-compiling (DEFUN MAKE-INTERFERENCE-GRAPH ...) ; x-compiling (DEFUN REMOVE-VERTEX-FROM-INTERFERENCE-GRAPH ...) ; x-compiling (DEFUN COLOR-NO-CONFLICTS-P ...) ; x-compiling (DEFUN VERTEX-COLOR-POSSIBLE-P ...) ; x-compiling (DEFUN VERTEX-DOMAIN ...) ; x-compiling (DEFUN VERTEX-TARGET-VERTICES ...) ; x-compiling (DEFUN VERTICES-BEST-COLOR ...) ; x-compiling (DEFUN FIND-VERTEX-COLOR ...) ; x-compiling (DEFUN PARTITION-AND-ORDER-VERTICES ...) ; x-compiling (DEFUN COLOR-INTERFERENCE-GRAPH ...) ; x-compiling (DEFVAR *PACK-ITERATIONS* ...) ; x-compiling (DEFUN ITERATE-COLOR ...) ; x-compiling (DEFUN PACK-COLORED ...) ; x-compiling (DEFUN PACK-ITERATIVE ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/pack-iterative.lisp-obj-tmp written ; compilation finished in 0:00:00.414 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/codegen.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFUN COMPONENT-HEADER-LENGTH ...) ; x-compiling (DEFUN SB-ALLOCATED-SIZE ...) ; x-compiling (DEFUN CURRENT-NFP-TN ...) ; x-compiling (DEFUN CALLEE-NFP-TN ...) ; x-compiling (DEFUN CALLEE-RETURN-PC-TN ...) ; x-compiling (DEFVAR *CODE-SEGMENT* ...) ; x-compiling (DEFVAR *ELSEWHERE* ...) ; x-compiling (DEFVAR *ELSEWHERE-LABEL* ...) ; x-compiling (DEFVAR *CONSTANT-SEGMENT* ...) ; x-compiling (DEFVAR *CONSTANT-TABLE* ...) ; x-compiling (DEFVAR *CONSTANT-VECTOR* ...) ; x-compiling (DEFVAR *PREV-SEGMENT*) ; x-compiling (DEFVAR *PREV-VOP*) ; x-compiling (DEFUN TRACE-INSTRUCTION ...) ; x-compiling (DEFUN DEFAULT-SEGMENT-RUN-SCHEDULER ...) ; x-compiling (DEFUN DEFAULT-SEGMENT-INST-HOOK ...) ; x-compiling (DEFUN INIT-ASSEMBLER ...) ; x-compiling (DEFUN GENERATE-CODE ...) ; x-compiling (DEFUN EMIT-LABEL-ELSEWHERE ...) ; x-compiling (DEFUN LABEL-ELSEWHERE-P ...) ; x-compiling (DEFUN REGISTER-INLINE-CONSTANT ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/codegen.lisp ; in: DEFUN TRACE-INSTRUCTION ; (SB!C::PRINT-VOP SB!C::VOP) ; ; caught STYLE-WARNING: ; undefined function: PRINT-VOP ; ; compilation unit finished ; Undefined function: ; PRINT-VOP ; caught 1 STYLE-WARNING condition ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/codegen.lisp-obj-tmp written ; compilation finished in 0:00:00.103 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/debug.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DEFVAR *ARGS* ...) ; x-compiling (DEFVAR *IGNORED-ERRORS* ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN BARF ...) ; x-compiling (DEFVAR *BURP-ACTION* ...) ; x-compiling (DECLAIM (TYPE # ...)) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN BURP ...) ; x-compiling (DEFVAR *SEEN-BLOCKS*) ; x-compiling (DEFVAR *SEEN-FUNS*) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN CHECK-NODE-REACHED ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN CHECK-IR1-CONSISTENCY ...) ; x-compiling (DEFUN OBSERVE-FUNCTIONAL ...) ; x-compiling (DEFUN CHECK-FUN-REACHED ...) ; x-compiling (DEFUN CHECK-FUN-STUFF ...) ; x-compiling (DEFUN CHECK-FUN-CONSISTENCY ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN CHECK-BLOCK-CONSISTENCY ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN CHECK-BLOCK-SUCCESSORS ...) ; x-compiling (DEFUN CHECK-DEST ...) ; x-compiling (DEFUN CHECK-NODE-CONSISTENCY ...) ; x-compiling (DEFUN CHECK-TN-REFS ...) ; x-compiling (DEFUN CHECK-VOP-REFS ...) ; x-compiling (DEFUN CHECK-IR2-BLOCK-CONSISTENCY ...) ; x-compiling (DEFUN CHECK-IR2-CONSISTENCY ...) ; x-compiling (DEFUN PRE-PACK-TN-STATS ...) ; x-compiling (DEFUN CHECK-MORE-TN-ENTRY ...) ; x-compiling (DEFUN CHECK-TN-CONFLICTS ...) ; x-compiling (DEFUN CHECK-BLOCK-CONFLICTS ...) ; x-compiling (DEFUN CHECK-ENVIRONMENT-LIFETIMES ...) ; x-compiling (DEFUN CHECK-LIFE-CONSISTENCY ...) ; x-compiling (DEFUN CHECK-PACK-CONSISTENCY ...) ; x-compiling (DEF *CONTINUATION-NUMBER* ...) ; x-compiling (DEF *TN-ID* ...) ; x-compiling (DEF *LABEL-ID* ...) ; x-compiling (DEFUN PRINT-LEAF ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN BLOCK-OR-LOSE ...) ; x-compiling (DEFUN PRINT-CTRAN ...) ; x-compiling (DEFUN PRINT-LVAR ...) ; x-compiling (DEFUN PRINT-LVAR-STACK ...) ; x-compiling (DEFUN PRINT-NODES ...) ; x-compiling (DEFUN PRINT-TN-GUTS ...) ; x-compiling (DEFUN PRINT-OPERANDS ...) ; x-compiling (DEFUN PRINT-VOP ...) ; x-compiling (DEFUN PRINT-IR2-BLOCK ...) ; x-compiling (DEFUN PRINT-VOPS ...) ; x-compiling (DEFUN PRINT-IR2-BLOCKS ...) ; x-compiling (DEFUN PRINT-BLOCKS ...) ; x-compiling (DEFUN PRINT-ALL-BLOCKS ...) ; x-compiling (DEFVAR *LIST-CONFLICTS-TABLE* ...) ; x-compiling (DEFUN ADD-ALWAYS-LIVE-TNS ...) ; x-compiling (DEFUN ADD-ALL-LOCAL-TNS ...) ; x-compiling (DEFUN LISTIFY-CONFLICTS-TABLE ...) ; x-compiling (DEFUN LIST-CONFLICTS ...) ; x-compiling (DEFUN NTH-VOP ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/debug.lisp-obj-tmp written ; compilation finished in 0:00:00.688 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/format-time.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFPARAMETER *ABBREV-WEEKDAY-TABLE* ...) ; x-compiling (DEFPARAMETER *LONG-WEEKDAY-TABLE* ...) ; x-compiling (DEFPARAMETER *ABBREV-MONTH-TABLE* ...) ; x-compiling (DEFPARAMETER *LONG-MONTH-TABLE* ...) ; x-compiling (DEFPARAMETER *TIMEZONE-TABLE* ...) ; x-compiling (DEFPARAMETER *DAYLIGHT-TABLE* ...) ; x-compiling (DEFUN VALID-DESTINATION-P ...) ; x-compiling (DEFUN FORMAT-UNIVERSAL-TIME ...) ; x-compiling (DEFUN TIMEZONE-NAME ...) ; x-compiling (DEFUN FORMAT-DECODED-TIME ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/format-time.lisp-obj-tmp written ; compilation finished in 0:00:00.417 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/error.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (DEFUN STYLE-WARN ...) ; x-compiling (DEFUN COERCE-TO-CONDITION ...) ; x-compiling (DEFINE-CONDITION LAYOUT-INVALID ...) ; x-compiling (DEFINE-CONDITION CASE-FAILURE ...) ; x-compiling (DEFINE-CONDITION COMPILED-PROGRAM-ERROR ...) ; x-compiling (DEFINE-CONDITION INTERPRETED-PROGRAM-ERROR ...) ; x-compiling (DEFINE-CONDITION SIMPLE-CONTROL-ERROR ...) ; x-compiling (DEFINE-CONDITION SIMPLE-FILE-ERROR ...) ; x-compiling (DEFINE-CONDITION SIMPLE-PROGRAM-ERROR ...) ; x-compiling (DEFINE-CONDITION SIMPLE-STREAM-ERROR ...) ; x-compiling (DEFINE-CONDITION SIMPLE-PARSE-ERROR ...) ; x-compiling (DEFINE-CONDITION CHARACTER-CODING-ERROR ...) ; x-compiling (DEFINE-CONDITION CHARACTER-ENCODING-ERROR ...) ; x-compiling (DEFINE-CONDITION CHARACTER-DECODING-ERROR ...) ; x-compiling (DEFINE-CONDITION STREAM-ENCODING-ERROR ...) ; x-compiling (DEFINE-CONDITION STREAM-DECODING-ERROR ...) ; x-compiling (DEFINE-CONDITION C-STRING-ENCODING-ERROR ...) ; x-compiling (DEFINE-CONDITION C-STRING-DECODING-ERROR ...) ; x-compiling (DEFINE-CONDITION CONTROL-STACK-EXHAUSTED ...) ; x-compiling (DEFINE-CONDITION BINDING-STACK-EXHAUSTED ...) ; x-compiling (DEFINE-CONDITION ALIEN-STACK-EXHAUSTED ...) ; x-compiling (DEFINE-CONDITION HEAP-EXHAUSTED-ERROR ...) ; x-compiling (DEFINE-CONDITION SYSTEM-CONDITION ...) ; x-compiling (DEFINE-CONDITION MEMORY-FAULT-ERROR ...) ; x-compiling (DEFINE-CONDITION BREAKPOINT-ERROR ...) ; x-compiling (DEFINE-CONDITION INTERACTIVE-INTERRUPT ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/error.lisp-obj-tmp written ; compilation finished in 0:00:00.076 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/macroexpand.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFUN SB-XC:SPECIAL-OPERATOR-P ...) ; x-compiling (DEFVAR SB-XC:*MACROEXPAND-HOOK* ...) ; x-compiling (DEFUN SB-XC:MACROEXPAND-1 ...) ; x-compiling (DEFUN SB-XC:MACROEXPAND ...) ; x-compiling (DEFUN %MACROEXPAND-1 ...) ; x-compiling (DEFUN %MACROEXPAND ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/macroexpand.lisp-obj-tmp written ; compilation finished in 0:00:00.028 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/late-extensions.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFUN LIST-WITH-LENGTH-P ...) ; x-compiling (DEFSTRUCT (UNPRINTABLE-OBJECT # ...) ...) ; x-compiling (DEFMACRO DEFINE-STRUCTURE-SLOT-ADDRESSOR ...) ; x-compiling (DEFUN EXPAND-ATOMIC-FROB ...) ; x-compiling (DEF!MACRO ATOMIC-INCF ...) ; x-compiling (DEFMACRO ATOMIC-DECF ...) ; x-compiling (DEFUN %ARRAY-ATOMIC-INCF/WORD ...) ; x-compiling (DEFUN %RAW-INSTANCE-ATOMIC-INCF/WORD ...) ; x-compiling (DEFUN SPIN-LOOP-HINT ...) ; x-compiling (DEFUN CALL-HOOKS ...) ; x-compiling (DEFMACRO-MUNDANELY DEFGLOBAL ...) ; x-compiling (DEFMACRO-MUNDANELY DEFINE-LOAD-TIME-GLOBAL ...) ; x-compiling (DEFUN %COMPILER-DEFGLOBAL ...) ; x-compiling (DEFUN %DEFGLOBAL ...) ; x-compiling (DEFUN %%WAIT-FOR ...) ; x-compiling (DEFUN %WAIT-FOR ...) ; x-compiling (DEFMACRO WAIT-FOR ...) ; x-compiling (DEFMACRO WITH-PROGRESSIVE-TIMEOUT ...) ; x-compiling (DEFMACRO ATOMIC-UPDATE ...) ; x-compiling (DEFMACRO ATOMIC-PUSH ...) ; x-compiling (DEFMACRO ATOMIC-POP ...) ; x-compiling (DEFUN SPLIT-VERSION-STRING ...) ; x-compiling (DEFUN VERSION>= ...) ; x-compiling (DEFUN ASSERT-VERSION->= ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/late-extensions.lisp ; in: DEFMACRO ATOMIC-POP ; (SB!EXT:GET-CAS-EXPANSION SB!IMPL::PLACE SB!IMPL::ENV) ; ; caught STYLE-WARNING: ; undefined function: GET-CAS-EXPANSION ; in: DEFMACRO ATOMIC-PUSH ; (SB!EXT:GET-CAS-EXPANSION SB!IMPL::PLACE SB!IMPL::ENV) ; ; caught STYLE-WARNING: ; undefined function: GET-CAS-EXPANSION ; in: DEFMACRO ATOMIC-UPDATE ; (SB!EXT:GET-CAS-EXPANSION SB!IMPL::PLACE SB!IMPL::ENV) ; ; caught STYLE-WARNING: ; undefined function: GET-CAS-EXPANSION ; ; compilation unit finished ; Undefined function: ; GET-CAS-EXPANSION ; caught 3 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/late-extensions.lisp-obj-tmp written ; compilation finished in 0:00:00.236 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/target-core.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN ALLOCATE-CODE-OBJECT ...) ; x-compiling (DEFUN MAKE-FUN-ENTRY ...) ; x-compiling (DEFUN MAKE-CORE-COMPONENT ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/target-core.lisp ; in: DEFUN MAKE-CORE-COMPONENT ; (SB!KERNEL:COPY-BYTE-VECTOR-TO-SYSTEM-AREA SB!C::V SB!C::FILL-PTR) ; ; caught STYLE-WARNING: ; undefined function: COPY-BYTE-VECTOR-TO-SYSTEM-AREA ; ; compilation unit finished ; Undefined function: ; COPY-BYTE-VECTOR-TO-SYSTEM-AREA ; caught 1 STYLE-WARNING condition ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/generic/target-core.lisp-obj-tmp written ; compilation finished in 0:00:00.056 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/eval.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (!DEFPARAMETER *EVAL-CALLS* ...) ; x-compiling (DEFVAR *EVAL-SOURCE-CONTEXT* ...) ; x-compiling (DEFVAR *EVAL-TLF-INDEX* ...) ; x-compiling (DEFVAR *EVAL-SOURCE-INFO* ...) ; x-compiling (DEFUN MAKE-EVAL-LAMBDA ...) ; x-compiling (DEFUN %SIMPLE-EVAL ...) ; x-compiling (DEFUN SIMPLE-EVAL-PROGN-BODY ...) ; x-compiling (DEFUN SIMPLE-EVAL-LOCALLY ...) ; x-compiling (DEFINE-CONDITION EVAL-ERROR ...) ; x-compiling (DEFUN EVAL-ERROR ...) ; x-compiling (DEFUN SIMPLE-EVAL-IN-LEXENV ...) ; x-compiling (DEFUN EVAL-IN-LEXENV ...) ; x-compiling (DEFUN EVAL ...) ; x-compiling (DEFUN EVAL-TLF ...) ; x-compiling (DEFUN APPLY ...) ; x-compiling (DEFUN FUNCALL ...) ; x-compiling (DEFUN VALUES ...) ; x-compiling (DEFUN VALUES-LIST ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/eval.lisp ; in: DEFUN EVAL-IN-LEXENV ; (SB!EVAL:EVAL-IN-NATIVE-ENVIRONMENT EXP SB!KERNEL:LEXENV) ; ; caught STYLE-WARNING: ; undefined function: SB!EVAL:EVAL-IN-NATIVE-ENVIRONMENT ; ; compilation unit finished ; Undefined function: ; SB!EVAL:EVAL-IN-NATIVE-ENVIRONMENT ; caught 1 STYLE-WARNING condition ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/eval.lisp-obj-tmp written ; compilation finished in 0:00:00.111 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-sap.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (DEFUN SAP< ...) ; x-compiling (DEFUN SAP<= ...) ; x-compiling (DEFUN SAP= ...) ; x-compiling (DEFUN SAP>= ...) ; x-compiling (DEFUN SAP> ...) ; x-compiling (DEFUN SAP+ ...) ; x-compiling (DEFUN SAP- ...) ; x-compiling (DEFUN SAP-INT ...) ; x-compiling (DEFUN INT-SAP ...) ; x-compiling (DEFUN SAP-REF-8 ...) ; x-compiling (DEFUN SAP-REF-OCTETS ...) ; x-compiling (DEFUN SAP-REF-16 ...) ; x-compiling (DEFUN SAP-REF-32 ...) ; x-compiling (DEFUN SAP-REF-64 ...) ; x-compiling (DEFUN SAP-REF-WORD ...) ; x-compiling (DEFUN SAP-REF-SAP ...) ; x-compiling (DEFUN SAP-REF-LISPOBJ ...) ; x-compiling (DEFUN SAP-REF-SINGLE ...) ; x-compiling (DEFUN SAP-REF-DOUBLE ...) ; x-compiling (DEFUN SAP-REF-LONG ...) ; x-compiling (DEFUN SIGNED-SAP-REF-8 ...) ; x-compiling (DEFUN SIGNED-SAP-REF-16 ...) ; x-compiling (DEFUN SIGNED-SAP-REF-32 ...) ; x-compiling (DEFUN SIGNED-SAP-REF-64 ...) ; x-compiling (DEFUN SIGNED-SAP-REF-WORD ...) ; x-compiling (DEFUN %SET-SAP-REF-8 ...) ; x-compiling (DEFUN %SET-SAP-REF-16 ...) ; x-compiling (DEFUN %SET-SAP-REF-32 ...) ; x-compiling (DEFUN %SET-SAP-REF-64 ...) ; x-compiling (DEFUN %SET-SAP-REF-WORD ...) ; x-compiling (DEFUN %SET-SIGNED-SAP-REF-8 ...) ; x-compiling (DEFUN %SET-SIGNED-SAP-REF-16 ...) ; x-compiling (DEFUN %SET-SIGNED-SAP-REF-32 ...) ; x-compiling (DEFUN %SET-SIGNED-SAP-REF-64 ...) ; x-compiling (DEFUN %SET-SIGNED-SAP-REF-WORD ...) ; x-compiling (DEFUN %SET-SAP-REF-SAP ...) ; x-compiling (DEFUN %SET-SAP-REF-LISPOBJ ...) ; x-compiling (DEFUN %SET-SAP-REF-SINGLE ...) ; x-compiling (DEFUN %SET-SAP-REF-DOUBLE ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/target-sap.lisp-obj-tmp written ; compilation finished in 0:00:00.084 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-package.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFVAR *PACKAGE-GRAPH-LOCK*) ; x-compiling (DEFUN CALL-WITH-PACKAGE-GRAPH ...) ; x-compiling (DEFVAR *PACKAGE-NAMES*) ; x-compiling (DECLAIM (TYPE HASH-TABLE ...)) ; x-compiling (DEFMACRO WITH-PACKAGE-NAMES ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (!DEFPARAMETER *PACKAGE-REHASH-THRESHOLD* ...) ; x-compiling (!DEFPARAMETER *PACKAGE-HASHTABLE-IMAGE-LOAD-FACTOR* ...) ; x-compiling (DEFUN MAKE-PACKAGE-HASHTABLE ...) ; x-compiling (DEFUN RESIZE-PACKAGE-HASHTABLE ...) ; x-compiling (DEFUN PACKAGE-LOCKED-P ...) ; x-compiling (DEFUN LOCK-PACKAGE ...) ; x-compiling (DEFUN UNLOCK-PACKAGE ...) ; x-compiling (DEFUN PACKAGE-IMPLEMENTED-BY-LIST ...) ; x-compiling (DEFUN PACKAGE-IMPLEMENTS-LIST ...) ; x-compiling (DEFUN ADD-IMPLEMENTATION-PACKAGE ...) ; x-compiling (DEFUN REMOVE-IMPLEMENTATION-PACKAGE ...) ; x-compiling (DEFMACRO WITH-UNLOCKED-PACKAGES ...) ; x-compiling (DEFUN PACKAGE-LOCK-VIOLATION ...) ; x-compiling (DEFUN PACKAGE-LOCK-VIOLATION-P ...) ; x-compiling (DEFUN DISABLED-PACKAGE-LOCKS ...) ; x-compiling (DEFUN ASSERT-PACKAGE-UNLOCKED ...) ; x-compiling (DEFUN ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEF PACKAGE-NICKNAMES ...) ; x-compiling (DEF PACKAGE-USE-LIST ...) ; x-compiling (DEF PACKAGE-USED-BY-LIST ...) ; x-compiling (DEF PACKAGE-SHADOWING-SYMBOLS ...) ; x-compiling (DEFUN PACKAGE-LOCAL-NICKNAMES ...) ; x-compiling (DEFUN SIGNAL-PACKAGE-ERROR ...) ; x-compiling (DEFUN SIGNAL-PACKAGE-CERROR ...) ; x-compiling (DEFUN PACKAGE-LOCALLY-NICKNAMED-BY-LIST ...) ; x-compiling (DEFUN ADD-PACKAGE-LOCAL-NICKNAME ...) ; x-compiling (DEFUN REMOVE-PACKAGE-LOCAL-NICKNAME ...) ; x-compiling (DEFUN %PACKAGE-HASHTABLE-SYMBOL-COUNT ...) ; x-compiling (DEFUN PACKAGE-INTERNAL-SYMBOL-COUNT ...) ; x-compiling (DEFUN PACKAGE-EXTERNAL-SYMBOL-COUNT ...) ; x-compiling (DEFVAR *PACKAGE* ...) ; x-compiling (DEFINE-CONDITION BOOTSTRAP-PACKAGE-NOT-FOUND ...) ; x-compiling (DEFUN DEBOOTSTRAP-PACKAGE ...) ; x-compiling (DEFUN FIND-PACKAGE ...) ; x-compiling (DEFUN FIND-PACKAGE-USING-PACKAGE ...) ; x-compiling (DEFUN PACKAGE-LISTIFY ...) ; x-compiling (DEFUN PACKAGE-NAME ...) ; x-compiling (DECLAIM (INLINE ENTRY-HASH)) ; x-compiling (DEFUN ENTRY-HASH ...) ; x-compiling (DEFUN ADD-SYMBOL ...) ; x-compiling (DEFUN TUNE-HASHTABLE-SIZES-OF-ALL-PACKAGES ...) ; x-compiling (DEFMACRO WITH-SYMBOL ...) ; x-compiling (DEFUN NUKE-SYMBOL ...) ; x-compiling (DEFUN %ENTER-NEW-NICKNAMES ...) ; x-compiling (DEFUN MAKE-PACKAGE ...) ; x-compiling (DEFUN RENAME-PACKAGE ...) ; x-compiling (DEFUN DELETE-PACKAGE ...) ; x-compiling (DEFUN LIST-ALL-PACKAGES ...) ; x-compiling (DEFUN INTERN ...) ; x-compiling (DEFUN FIND-SYMBOL ...) ; x-compiling (DEFUN INTERN* ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-package.lisp ; in: DEFUN INTERN* ; (SUBSEQ SB!IMPL::NAME 0 LENGTH) ; --> LET* OR LET IF OR THE ; ==> ; LENGTH ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; --> LET* LET* LOCALLY REPLACE LET* FUNCALL SB!C::%FUNCALL ; --> SB!KERNEL:UB8-BASH-COPY LET WHEN IF PROGN LET* ; ==> ; (ASH 4294967295 (* (- SB!C::EXTRA 4) 8)) ; ; note: forced to do full call ; unable to do inline ASH (cost 4) because: ; The second argument is a (INTEGER -32 32), not a (UNSIGNED-BYTE 29). ; The result is a (VALUES (MOD 18446744069414584321) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST ; T). ; unable to do inline ASH (cost 4) because: ; The second argument is a (INTEGER -32 32), not a (UNSIGNED-BYTE 29). ; The result is a (VALUES (MOD 18446744069414584321) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST ; T). ; etc. ; --> LET* LET* LOCALLY REPLACE LET* FUNCALL SB!C::%FUNCALL ; --> SB!KERNEL:UB8-BASH-COPY LET WHEN IF PROGN LET* SETF ; --> SB!KERNEL:%SET-VECTOR-RAW-BITS LOGIOR LOGANDC2 LOGAND LOGNOT ; ==> ; (LOGAND 'SB!C::DUMMY 4294967295) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because: ; The first argument is a (MOD 18446744069414584321), not a (UNSIGNED-BYTE ; 32). ; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because: ; The first argument is a (MOD 18446744069414584321), not a (SIGNED-BYTE 32). ; etc. ; --> LET* LET* LOCALLY REPLACE LET* FUNCALL SB!C::%FUNCALL ; --> SB!KERNEL:UB8-BASH-COPY LET WHEN IF PROGN LET* SETF ; --> SB!KERNEL:%SET-VECTOR-RAW-BITS LOGIOR LOGAND ; ==> ; (LOGAND 'SB!C::DUMMY 4294967295) ; ; note: forced to do static-fun Two-arg-and (cost 53) ; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because: ; The first argument is a (MOD 18446744069414584321), not a (UNSIGNED-BYTE ; 32). ; unable to do inline (unsigned-byte 32) arithmetic (cost 2) because: ; The first argument is a (MOD 18446744069414584321), not a (SIGNED-BYTE 32). ; etc. ; x-compiling (DEFUN FIND-SYMBOL* ...) ; x-compiling (DEFUN FIND-EXTERNAL-SYMBOL ...) ; x-compiling (DEFINE-CONDITION NAME-CONFLICT ...) ; x-compiling (DEFUN NAME-CONFLICT ...) ; x-compiling (DEFUN UNINTERN ...) ; x-compiling (DEFUN SYMBOL-LISTIFY ...) ; x-compiling (DEFUN STRING-LISTIFY ...) ; x-compiling (DEFUN EXPORT ...) ; x-compiling (DEFUN UNEXPORT ...) ; x-compiling (DEFUN IMPORT ...) ; x-compiling (DEFUN SHADOWING-IMPORT ...) ; x-compiling (DEFUN SHADOW ...) ; x-compiling (DEFUN USE-PACKAGE ...) ; x-compiling (DEFUN UNUSE-PACKAGE ...) ; x-compiling (DEFUN FIND-ALL-SYMBOLS ...) ; x-compiling (DEFUN BRIEFLY-DESCRIBE-SYMBOL ...) ; x-compiling (DEFUN APROPOS-LIST ...) ; x-compiling (DEFUN APROPOS ...) ; x-compiling (DEFVAR *!INITIAL-SYMBOLS*) ; x-compiling (DEFUN !PACKAGE-COLD-INIT ...); ; compilation unit finished ; printed 5 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/target-package.lisp-obj-tmp written ; compilation finished in 0:00:00.902 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-random.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (DEFCONSTANT MT19937-N ...) ; x-compiling (DEFCONSTANT MT19937-M ...) ; x-compiling (DEFCONSTANT MT19937-UPPER-MASK ...) ; x-compiling (DEFCONSTANT MT19937-LOWER-MASK ...) ; x-compiling (DEFCONSTANT MT19937-A ...) ; x-compiling (DEFCONSTANT MT19937-B ...) ; x-compiling (DEFCONSTANT MT19937-C ...) ; x-compiling (DEFTYPE RANDOM-STATE-STATE ...) ; x-compiling (DEF!METHOD MAKE-LOAD-FORM ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFUN INIT-RANDOM-STATE ...) ; x-compiling (DEFVAR *RANDOM-STATE*) ; x-compiling (DEFUN !RANDOM-COLD-INIT ...) ; x-compiling (DEFUN MAKE-RANDOM-STATE ...) ; x-compiling (DEFUN FALLBACK-RANDOM-SEED ...) ; x-compiling (DEFUN OS-RANDOM-SEED ...) ; x-compiling (DEFUN SEED-RANDOM-STATE ...) ; x-compiling (DECLAIM (INLINE RANDOM-CHUNK)) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-random.lisp ; in: DECLAIM (INLINE RANDOM-CHUNK) ; (DECLAIM (INLINE SB!KERNEL:RANDOM-CHUNK)) ; --> EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE SB!KERNEL:RANDOM-CHUNK)) ; ; caught STYLE-WARNING: ; Proclaiming SB!KERNEL:RANDOM-CHUNK to be INLINE, but 1 call to it was ; previously compiled. A declaration of NOTINLINE at the call site will eliminate ; this warning, as will proclaiming and defining the function before its first ; potential use. ; x-compiling (DEFUN RANDOM-CHUNK ...) ; x-compiling (DECLAIM (INLINE BIG-RANDOM-CHUNK)) ; x-compiling (DEFUN BIG-RANDOM-CHUNK ...) ; x-compiling (DECLAIM (INLINE %RANDOM-SINGLE-FLOAT ...)) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN %RANDOM-SINGLE-FLOAT ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN %RANDOM-DOUBLE-FLOAT ...) ; x-compiling (DECLAIM (INLINE %RANDOM-FIXNUM)) ; x-compiling (DEFUN %RANDOM-FIXNUM ...) ; x-compiling (DEFUN RANDOM ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-random.lisp ; in: DEFUN RANDOM ; (SB!BIGNUM:%RANDOM-BIGNUM SB!KERNEL::ARG SB!KERNEL::STATE) ; ; caught STYLE-WARNING: ; undefined function: %RANDOM-BIGNUM ; ; compilation unit finished ; Undefined function: ; %RANDOM-BIGNUM ; caught 2 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/target-random.lisp-obj-tmp written ; compilation finished in 0:00:00.264 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/bignum-random.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!BIGNUM") ; x-compiling (DECLAIM (INLINE BIGNUM-LOWER-BITS-ZERO-P)) ; x-compiling (DEFUN BIGNUM-LOWER-BITS-ZERO-P ...) ; x-compiling (DECLAIM (INLINE RANDOM-BIGNUM-DIGIT)) ; x-compiling (DEFUN RANDOM-BIGNUM-DIGIT ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/bignum-random.lisp ; in: DEFUN RANDOM-BIGNUM-DIGIT ; (SB!KERNEL:BIG-RANDOM-CHUNK SB!BIGNUM::STATE) ; ==> ; SB!BIGNUM::STATE ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; x-compiling (DECLAIM (INLINE RANDOM-BIGNUM-PARTIAL-DIGIT)) ; x-compiling (DEFUN RANDOM-BIGNUM-PARTIAL-DIGIT ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/bignum-random.lisp ; in: DEFUN RANDOM-BIGNUM-PARTIAL-DIGIT ; (SB!KERNEL:BIG-RANDOM-CHUNK SB!BIGNUM::STATE) ; ==> ; SB!BIGNUM::STATE ; ; note: deleting unreachable code ; x-compiling (DECLAIM (INLINE CONCATENATE-RANDOM-BIGNUM)) ; x-compiling (DEFUN CONCATENATE-RANDOM-BIGNUM ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/bignum-random.lisp ; in: DEFUN CONCATENATE-RANDOM-BIGNUM ; (SB!BIGNUM::RANDOM-BIGNUM-PARTIAL-DIGIT SB!BIGNUM::N-RANDOM-BITS ; SB!BIGNUM::STATE) ; --> BLOCK LOGAND IF SB!KERNEL:BIG-RANDOM-CHUNK ; ==> ; SB!BIGNUM::STATE ; ; note: deleting unreachable code ; (SB!BIGNUM::RANDOM-BIGNUM-DIGIT SB!BIGNUM::STATE) ; --> BLOCK IF SB!KERNEL:BIG-RANDOM-CHUNK ; ==> ; SB!BIGNUM::STATE ; ; note: deleting unreachable code ; x-compiling (DECLAIM (INLINE MAKE-RANDOM-BIGNUM)) ; x-compiling (DEFUN MAKE-RANDOM-BIGNUM ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/bignum-random.lisp ; in: DEFUN MAKE-RANDOM-BIGNUM ; (SB!BIGNUM::RANDOM-BIGNUM-PARTIAL-DIGIT SB!BIGNUM::N-BITS-PARTIAL-DIGIT ; SB!BIGNUM::STATE) ; --> BLOCK LOGAND IF SB!KERNEL:BIG-RANDOM-CHUNK ; ==> ; SB!BIGNUM::STATE ; ; note: deleting unreachable code ; (SB!BIGNUM::RANDOM-BIGNUM-DIGIT SB!BIGNUM::STATE) ; --> BLOCK IF SB!KERNEL:BIG-RANDOM-CHUNK ; ==> ; SB!BIGNUM::STATE ; ; note: deleting unreachable code ; x-compiling (DEFUN %RANDOM-BIGNUM ...); ; compilation unit finished ; printed 7 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/bignum-random.lisp-obj-tmp written ; compilation finished in 0:00:00.092 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-hash-table.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFMACRO WITH-CONCURRENT-ACCESS-CHECK ...) ; x-compiling (DECLAIM (INLINE EQ-HASH)) ; x-compiling (DEFUN EQ-HASH ...) ; x-compiling (DECLAIM (INLINE EQUAL-HASH)) ; x-compiling (DEFUN EQUAL-HASH ...) ; x-compiling (DECLAIM (INLINE EQL-HASH)) ; x-compiling (DEFUN EQL-HASH ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-hash-table.lisp ; in: DEFUN EQL-HASH ; (SB!IMPL::EQUAL-HASH SB!IMPL::KEY) ; --> THE PROGN BLOCK TYPECASE LET COND IF COND THE PROGN SB!IMPL::EQ-HASH THE ; --> PROGN BLOCK VALUES ODDP LOGTEST IF LOGTEST SB!KERNEL:GET-LISP-OBJ-ADDRESS ; ==> ; SB!IMPL::KEY ; ; note: deleting unreachable code ; --> THE PROGN BLOCK TYPECASE LET COND IF COND THE PROGN SB!IMPL::EQ-HASH THE ; --> PROGN BLOCK VALUES SB!KERNEL:POINTER-HASH ; ==> ; SB!IMPL::KEY ; ; note: deleting unreachable code ; x-compiling (DEFUN EQUALP-HASH ...) ; x-compiling (DECLAIM (INLINE INDEX-FOR-HASHING)) ; x-compiling (DEFUN INDEX-FOR-HASHING ...) ; x-compiling (DEFVAR *USER-HASH-TABLE-TESTS* ...) ; x-compiling (DEFUN REGISTER-HASH-TABLE-TEST ...) ; x-compiling (DEFMACRO DEFINE-HASH-TABLE-TEST ...) ; x-compiling (DEFCONSTANT +MIN-HASH-TABLE-SIZE+ ...) ; x-compiling (DEFCONSTANT +MIN-HASH-TABLE-REHASH-THRESHOLD+ ...) ; x-compiling (DEFUN MAKE-HASH-TABLE ...) ; x-compiling (DEFUN HASH-TABLE-COUNT ...) ; x-compiling (SETF (FDOCUMENTATION # ...) ...) ; x-compiling (SETF (FDOCUMENTATION # ...) ...) ; x-compiling (SETF (FDOCUMENTATION # ...) ...) ; x-compiling (DEFUN HASH-TABLE-SIZE ...) ; x-compiling (SETF (FDOCUMENTATION # ...) ...) ; x-compiling (SETF (FDOCUMENTATION # ...) ...) ; x-compiling (DEFUN SIGNAL-CORRUPT-HASH-TABLE ...) ; x-compiling (DEFUN REHASH ...) ; x-compiling (DEFUN REHASH-WITHOUT-GROWING ...) ; x-compiling (DECLAIM (INLINE MAYBE-REHASH)) ; x-compiling (DEFUN MAYBE-REHASH ...) ; x-compiling (DECLAIM (INLINE UPDATE-HASH-TABLE-CACHE)) ; x-compiling (DEFUN UPDATE-HASH-TABLE-CACHE ...) ; x-compiling (DEFMACRO WITH-HASH-TABLE-LOCKS ...) ; x-compiling (DEFUN GETHASH ...) ; x-compiling (DECLAIM (MAYBE-INLINE %GETHASH3)) ; x-compiling (DEFUN %GETHASH3 ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-hash-table.lisp ; in: DEFUN %GETHASH3 ; (SB!IMPL::MAYBE-REHASH HASH-TABLE NIL) ; --> BLOCK FLET COND IF PROGN SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK ; --> SB!INT:DX-FLET FLET BLOCK WHEN IF PROGN SB!IMPL::REHASH ; ==> ; HASH-TABLE ; ; note: deleting unreachable code ; --> BLOCK FLET BLOCK AND IF AND THE ZEROP = IF = ; --> SB!IMPL::HASH-TABLE-NEXT-FREE-KV SB!EXT:TRULY-THE SB!KERNEL:%INSTANCE-REF ; --> THE ; ==> ; HASH-TABLE ; ; note: deleting unreachable code ; --> BLOCK FLET COND IF PROGN SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK ; --> SB!INT:DX-FLET FLET ; --> SB!THREAD::CALL-WITH-RECURSIVE-SYSTEM-LOCK/WITHOUT-GCING ; --> SB!IMPL::HASH-TABLE-LOCK SB!EXT:TRULY-THE SB!KERNEL:%INSTANCE-REF THE ; ==> ; HASH-TABLE ; ; note: deleting unreachable code ; x-compiling (DEFUN GETHASH3 ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-hash-table.lisp ; in: DEFUN GETHASH3 ; (SB!IMPL::%GETHASH3 SB!IMPL::KEY HASH-TABLE SB!IMPL::DEFAULT) ; --> THE PROGN BLOCK TAGBODY LET MACROLET SB!IMPL::MAYBE-REHASH BLOCK FLET ; --> COND IF PROGN SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK SB!INT:DX-FLET FLET ; --> BLOCK WHEN IF PROGN SB!IMPL::REHASH ; ==> ; HASH-TABLE ; ; note: deleting unreachable code ; --> THE PROGN BLOCK TAGBODY LET MACROLET SB!IMPL::MAYBE-REHASH BLOCK FLET ; --> BLOCK AND IF AND THE ZEROP = IF = SB!IMPL::HASH-TABLE-NEXT-FREE-KV ; --> SB!EXT:TRULY-THE SB!KERNEL:%INSTANCE-REF THE ; ==> ; HASH-TABLE ; ; note: deleting unreachable code ; --> THE PROGN BLOCK TAGBODY LET MACROLET SB!IMPL::MAYBE-REHASH BLOCK FLET ; --> COND IF PROGN SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK SB!INT:DX-FLET FLET ; --> SB!THREAD::CALL-WITH-RECURSIVE-SYSTEM-LOCK/WITHOUT-GCING ; --> SB!IMPL::HASH-TABLE-LOCK SB!EXT:TRULY-THE SB!KERNEL:%INSTANCE-REF THE ; ==> ; HASH-TABLE ; ; note: deleting unreachable code ; x-compiling (DEFUN (SETF GETHASH) ...) ; x-compiling (DECLAIM (MAYBE-INLINE %%PUTHASH)) ; x-compiling (DEFUN %%PUTHASH ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-hash-table.lisp ; in: DEFUN %%PUTHASH ; (SETF (SB!IMPL::HASH-TABLE-NEXT-FREE-KV HASH-TABLE) ; (AREF SB!IMPL::NEXT-VECTOR SB!IMPL::FREE-KV-SLOT)) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL SB!C::%FUNCALL ; --> (SETF SB!IMPL::HASH-TABLE-NEXT-FREE-KV) LET SB!KERNEL:%INSTANCE-SET THE ; --> MULTIPLE-VALUE-BIND LET UNLESS IF PROGN ; ==> ; (SB!C::%TYPE-CHECK-ERROR/C #:G795 'SB!KERNEL::OBJECT-NOT-INDEX-ERROR) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first argument of TYPE-CHECK-ERROR/C ; (LET* ((SB!IMPL::INDEX-VECTOR (SB!IMPL::HASH-TABLE-INDEX-VECTOR HASH-TABLE)) ; (LENGTH (LENGTH SB!IMPL::INDEX-VECTOR)) ; (SB!INT:INDEX (SB!IMPL::INDEX-FOR-HASHING SB!IMPL::HASHING LENGTH)) ; (SB!IMPL::NEXT (AREF SB!IMPL::INDEX-VECTOR SB!INT:INDEX)) ; (SB!IMPL::KV-VECTOR (SB!IMPL::HASH-TABLE-TABLE HASH-TABLE)) ; (SB!IMPL::NEXT-VECTOR (SB!IMPL::HASH-TABLE-NEXT-VECTOR HASH-TABLE)) ; (SB!IMPL::HASH-VECTOR (SB!IMPL::HASH-TABLE-HASH-VECTOR HASH-TABLE)) ; (SB!IMPL::TEST-FUN (SB!IMPL::HASH-TABLE-TEST-FUN HASH-TABLE))) ; (DECLARE (TYPE SB!INT:INDEX SB!INT:INDEX SB!IMPL::NEXT)) ; (WHEN (SB!EXT:HASH-TABLE-WEAKNESS HASH-TABLE) ; (SB!KERNEL:SET-HEADER-DATA SB!IMPL::KV-VECTOR ; SB!VM:VECTOR-VALID-HASHING-SUBTYPE)) ; (COND ; ((OR SB!IMPL::EQ-BASED (NOT SB!IMPL::HASH-VECTOR)) ; (WHEN SB!IMPL::EQ-BASED ; (SB!KERNEL:SET-HEADER-DATA SB!IMPL::KV-VECTOR ; SB!VM:VECTOR-VALID-HASHING-SUBTYPE)) ; (DO (# ; #) ; (#) ; (DECLARE #) ; (WHEN # #) ; (WHEN # # # #))) ; (T ; (DO (# ; #) ; (#) ; (DECLARE #) ; (WHEN # #) ; (WHEN # # # #)))) ; (LET ((SB!IMPL::FREE-KV-SLOT (SB!IMPL::HASH-TABLE-NEXT-FREE-KV HASH-TABLE))) ; (DECLARE (TYPE SB!IMPL::INDEX/2 SB!IMPL::FREE-KV-SLOT)) ; (SB!INT:AVER (NOT (ZEROP SB!IMPL::FREE-KV-SLOT))) ; (SETF (SB!IMPL::HASH-TABLE-NEXT-FREE-KV HASH-TABLE) ; (AREF SB!IMPL::NEXT-VECTOR SB!IMPL::FREE-KV-SLOT)) ; (INCF (SB!IMPL::HASH-TABLE-NUMBER-ENTRIES HASH-TABLE)) ; (SB!IMPL::UPDATE-HASH-TABLE-CACHE HASH-TABLE (* 2 SB!IMPL::FREE-KV-SLOT)) ; (SETF (AREF SB!IMPL::KV-VECTOR #) SB!IMPL::KEY) ; (SETF (AREF SB!IMPL::KV-VECTOR #) SB!IMPL::VALUE) ; (WHEN SB!IMPL::HASH-VECTOR ; (IF (NOT SB!IMPL::EQ-BASED) ; (SETF #) ; (SB!INT:AVER #))) ; (SETF (AREF SB!IMPL::NEXT-VECTOR SB!IMPL::FREE-KV-SLOT) SB!IMPL::NEXT) ; (SETF (AREF SB!IMPL::INDEX-VECTOR SB!INT:INDEX) SB!IMPL::FREE-KV-SLOT))) ; --> MULTIPLE-VALUE-BIND LET UNLESS IF PROGN ; ==> ; (SB!C::%TYPE-CHECK-ERROR/C #:G780 'SB!KERNEL::OBJECT-NOT-INDEX-ERROR) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first argument of TYPE-CHECK-ERROR/C ; x-compiling (DEFUN %PUTHASH ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-hash-table.lisp ; in: DEFUN %PUTHASH ; (SB!IMPL::PUT-IT NIL) ; --> LET IF SB!IMPL::WITH-HASH-TABLE-LOCKS FLET BLOCK ; --> SB!IMPL::WITH-CONCURRENT-ACCESS-CHECK PROGN LOCALLY SB!IMPL::%%PUTHASH ; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LET* LET SETF LET* ; --> MULTIPLE-VALUE-BIND LET FUNCALL SB!C::%FUNCALL ; --> (SETF SB!IMPL::HASH-TABLE-NEXT-FREE-KV) LET SB!KERNEL:%INSTANCE-SET THE ; --> MULTIPLE-VALUE-BIND LET UNLESS IF PROGN ; ==> ; (SB!C::%TYPE-CHECK-ERROR/C #:G909 'SB!KERNEL::OBJECT-NOT-INDEX-ERROR) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first argument of TYPE-CHECK-ERROR/C ; --> LET IF SB!IMPL::WITH-HASH-TABLE-LOCKS FLET BLOCK ; --> SB!IMPL::WITH-CONCURRENT-ACCESS-CHECK PROGN LOCALLY SB!IMPL::%%PUTHASH ; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LET* ; --> MULTIPLE-VALUE-BIND LET UNLESS IF PROGN ; ==> ; (SB!C::%TYPE-CHECK-ERROR/C #:G894 'SB!KERNEL::OBJECT-NOT-INDEX-ERROR) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first argument of TYPE-CHECK-ERROR/C ; x-compiling (DECLAIM (MAYBE-INLINE %REMHASH)) ; x-compiling (DEFUN %REMHASH ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-hash-table.lisp ; in: DEFUN %REMHASH ; (SB!IMPL::MAYBE-REHASH HASH-TABLE NIL) ; --> BLOCK FLET COND IF PROGN SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK ; --> SB!INT:DX-FLET FLET BLOCK WHEN IF PROGN SB!IMPL::REHASH ; ==> ; HASH-TABLE ; ; note: deleting unreachable code ; --> BLOCK FLET BLOCK AND IF AND THE ZEROP = IF = ; --> SB!IMPL::HASH-TABLE-NEXT-FREE-KV SB!EXT:TRULY-THE SB!KERNEL:%INSTANCE-REF ; --> THE ; ==> ; HASH-TABLE ; ; note: deleting unreachable code ; --> BLOCK FLET COND IF PROGN SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK ; --> SB!INT:DX-FLET FLET ; --> SB!THREAD::CALL-WITH-RECURSIVE-SYSTEM-LOCK/WITHOUT-GCING ; --> SB!IMPL::HASH-TABLE-LOCK SB!EXT:TRULY-THE SB!KERNEL:%INSTANCE-REF THE ; ==> ; HASH-TABLE ; ; note: deleting unreachable code ; x-compiling (DEFUN REMHASH ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-hash-table.lisp ; in: DEFUN REMHASH ; (SB!IMPL::%REMHASH SB!IMPL::KEY HASH-TABLE) ; --> BLOCK SB!IMPL::MAYBE-REHASH BLOCK FLET COND IF PROGN ; --> SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK SB!INT:DX-FLET FLET BLOCK WHEN IF ; --> PROGN SB!IMPL::REHASH ; ==> ; HASH-TABLE ; ; note: deleting unreachable code ; --> BLOCK SB!IMPL::MAYBE-REHASH BLOCK FLET BLOCK AND IF AND THE ZEROP = IF = ; --> SB!IMPL::HASH-TABLE-NEXT-FREE-KV SB!EXT:TRULY-THE SB!KERNEL:%INSTANCE-REF ; --> THE ; ==> ; HASH-TABLE ; ; note: deleting unreachable code ; --> BLOCK SB!IMPL::MAYBE-REHASH BLOCK FLET COND IF PROGN ; --> SB!THREAD::WITH-RECURSIVE-SYSTEM-LOCK SB!INT:DX-FLET FLET ; --> SB!THREAD::CALL-WITH-RECURSIVE-SYSTEM-LOCK/WITHOUT-GCING ; --> SB!IMPL::HASH-TABLE-LOCK SB!EXT:TRULY-THE SB!KERNEL:%INSTANCE-REF THE ; ==> ; HASH-TABLE ; ; note: deleting unreachable code ; x-compiling (DEFUN CLRHASH ...) ; x-compiling (DECLAIM (INLINE MAPHASH)) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-hash-table.lisp ; in: DECLAIM (INLINE MAPHASH) ; (DECLAIM (INLINE MAPHASH)) ; --> EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE MAPHASH)) ; ; caught STYLE-WARNING: ; Proclaiming COMMON-LISP:MAPHASH to be INLINE, but 28 calls to it were ; previously compiled. A declaration of NOTINLINE at the call sites will ; eliminate this warning, as will proclaiming and defining the function before ; its first potential use. ; x-compiling (DEFUN MAPHASH ...) ; x-compiling (DEFUN %HASH-TABLE-CTOR-ARGS ...) ; x-compiling (DEFUN %STUFF-HASH-TABLE ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEF!METHOD MAKE-LOAD-FORM ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-hash-table.lisp ; in: DEFUN CLRHASH ; (FILL SB!IMPL::INDEX-VECTOR 0) ; ; caught STYLE-WARNING: ; undefined function: UB32-BASH-FILL ; in: DEFUN REHASH ; (MAKE-ARRAY SB!IMPL::NEW-SIZE :ELEMENT-TYPE '(UNSIGNED-BYTE 32) ; :INITIAL-ELEMENT SB!IMPL::+MAGIC-HASH-VECTOR-VALUE+) ; --> LOCALLY MAKE-ARRAY SB!EXT:TRULY-THE ; ==> ; (FILL ; (SB!EXT:TRULY-THE (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)) ; (SB!KERNEL:ALLOCATE-VECTOR 174 (THE SB!INT:INDEX LENGTH) ; (* LENGTH 1))) ; (THE (UNSIGNED-BYTE 32) '2147483648)) ; ; caught STYLE-WARNING: ; undefined function: UB32-BASH-FILL ; in: DEFUN MAKE-HASH-TABLE ; (MAKE-ARRAY SB!IMPL::SIZE+1 :ELEMENT-TYPE '(UNSIGNED-BYTE 32) ; :INITIAL-ELEMENT SB!IMPL::+MAGIC-HASH-VECTOR-VALUE+) ; --> LOCALLY MAKE-ARRAY SB!EXT:TRULY-THE ; ==> ; (FILL ; (SB!EXT:TRULY-THE (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)) ; (SB!KERNEL:ALLOCATE-VECTOR 174 (THE SB!INT:INDEX LENGTH) ; (* LENGTH 1))) ; (THE (UNSIGNED-BYTE 32) '2147483648)) ; ; caught STYLE-WARNING: ; undefined function: UB32-BASH-FILL ; ; compilation unit finished ; Undefined function: ; UB32-BASH-FILL ; caught 4 STYLE-WARNING conditions ; printed 18 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/target-hash-table.lisp-obj-tmp written ; compilation finished in 0:00:00.752 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/reader.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (!DEFVAR *READ-DEFAULT-FLOAT-FORMAT* ...) ; x-compiling (DECLAIM (TYPE # ...)) ; x-compiling (DEFVAR *READTABLE*) ; x-compiling (DECLAIM (TYPE READTABLE ...)) ; x-compiling (SETF (FDOCUMENTATION # ...) ...) ; x-compiling (DEFGLOBAL *STANDARD-READTABLE* ...) ; x-compiling (DEFUN READER-EOF-ERROR ...) ; x-compiling (DEFUN SIMPLE-READER-ERROR ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN GET-CAT-ENTRY ...) ; x-compiling (DEFUN SET-CAT-ENTRY ...) ; x-compiling (DEFUN SET-CMT-ENTRY ...) ; x-compiling (DEFUN GET-RAW-CMT-ENTRY ...) ; x-compiling (DEFUN GET-RAW-CMT-DISPATCH-ENTRY ...) ; x-compiling (DEFMACRO !COERCE-TO-CMT-ENTRY ...) ; x-compiling (DEFMACRO !CMT-ENTRY-TO-FUNCTION ...) ; x-compiling (DEFMACRO !CMT-ENTRY-TO-FUN-DESIGNATOR ...) ; x-compiling (DEFMACRO TEST-ATTRIBUTE ...) ; x-compiling (DECLAIM (INLINE WHITESPACE[1]P ...)) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/reader.lisp ; in: PROGN (DECLAIM (INLINE WHITESPACE[1]P WHITESPACE[2]P)) ; (DECLAIM (INLINE SB!IMPL::WHITESPACE[1]P SB!IMPL::WHITESPACE[2]P)) ; --> EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE SB!IMPL::WHITESPACE[1]P SB!IMPL::WHITESPACE[2]P)) ; ; caught STYLE-WARNING: ; Proclaiming SB!IMPL::WHITESPACE[1]P to be INLINE, but 1 call to it was ; previously compiled. A declaration of NOTINLINE at the call site will eliminate ; this warning, as will proclaiming and defining the function before its first ; potential use. ; x-compiling (DECLAIM (INLINE CONSTITUENTP ...)) ; x-compiling (DECLAIM (INLINE SINGLE-ESCAPE-P ...)) ; x-compiling (DECLAIM (INLINE TOKEN-DELIMITERP)) ; x-compiling (DEFUN WHITESPACE[1]P ...) ; x-compiling (DEFUN WHITESPACE[2]P ...) ; x-compiling (DEFUN CONSTITUENTP ...) ; x-compiling (DEFUN TERMINATING-MACROP ...) ; x-compiling (DEFUN SINGLE-ESCAPE-P ...) ; x-compiling (DEFUN MULTIPLE-ESCAPE-P ...) ; x-compiling (DEFUN TOKEN-DELIMITERP ...) ; x-compiling (DECLAIM (TYPE ATTRIBUTE-TABLE ...)) ; x-compiling (DEFGLOBAL *CONSTITUENT-TRAIT-TABLE* ...) ; x-compiling (DEFUN !SET-CONSTITUENT-TRAIT ...) ; x-compiling (DEFUN !COLD-INIT-CONSTITUENT-TRAIT-TABLE ...) ; x-compiling (DECLAIM (INLINE GET-CONSTITUENT-TRAIT)) ; x-compiling (DEFUN GET-CONSTITUENT-TRAIT ...) ; x-compiling (DEFUN ASSERT-NOT-STANDARD-READTABLE ...) ; x-compiling (DEFUN READTABLE-CASE ...) ; x-compiling (DEFUN (SETF READTABLE-CASE) ...) ; x-compiling (DEFUN READTABLE-NORMALIZATION ...) ; x-compiling (DEFUN (SETF READTABLE-NORMALIZATION) ...) ; x-compiling (DEFUN REPLACE/EQL-HASH-TABLE ...) ; x-compiling (DEFUN %MAKE-DISPATCH-MACRO-CHAR ...) ; x-compiling (DEFUN %DISPATCH-MACRO-CHAR-TABLE ...) ; x-compiling (DEFUN COPY-CMT-ENTRY ...) ; x-compiling (DEFUN COPY-READTABLE ...) ; x-compiling (DEFUN SET-SYNTAX-FROM-CHAR ...) ; x-compiling (DEFUN SET-MACRO-CHARACTER ...) ; x-compiling (DEFUN GET-MACRO-CHARACTER ...) ; x-compiling (DEFUN GET-DISPATCH-MACRO-CHAR-TABLE ...) ; x-compiling (DEFUN MAKE-DISPATCH-MACRO-CHARACTER ...) ; x-compiling (DEFUN SET-DISPATCH-MACRO-CHARACTER ...) ; x-compiling (DEFUN GET-DISPATCH-MACRO-CHARACTER ...) ; x-compiling (DEFCONSTANT +EOF+ ...) ; x-compiling (DEFUN FLUSH-WHITESPACE ...) ; x-compiling (DEFUN !COLD-INIT-STANDARD-READTABLE ...) ; x-compiling (DEFSTRUCT (TOKEN-BUF # ...) ...) ; x-compiling (DECLAIM (FREEZE-TYPE TOKEN-BUF)) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DECLAIM (TYPE TOKEN-BUF ...)) ; x-compiling (DEFVAR *READ-BUFFER*) ; x-compiling (DECLAIM (TYPE # ...)) ; x-compiling (DEFVAR *TOKEN-BUF-POOL* ...) ; x-compiling (DEFUN RESET-READ-BUFFER ...) ; x-compiling (DECLAIM (INLINE OUCH-READ-BUFFER)) ; x-compiling (DEFUN OUCH-READ-BUFFER ...) ; x-compiling (DEFUN OUCH-READ-BUFFER-ESCAPED ...) ; x-compiling (DEFUN GROW-READ-BUFFER ...) ; x-compiling (DECLAIM (MAYBE-INLINE TOKEN-BUF-GETCHAR)) ; x-compiling (DEFUN TOKEN-BUF-GETCHAR ...) ; x-compiling (DEFUN ACQUIRE-TOKEN-BUF ...) ; x-compiling (DEFUN RELEASE-TOKEN-BUF ...) ; x-compiling (DEFUN COPY-TOKEN-BUF-STRING ...) ; x-compiling (DEFUN SIZED-TOKEN-BUF-STRING ...) ; x-compiling (DEFMACRO WITH-READ-BUFFER ...) ; x-compiling (DEFUN CHECK-FOR-RECURSIVE-READ ...) ; x-compiling (DEFVAR *SHARP-EQUAL-ALIST* ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN %READ-PRESERVING-WHITESPACE ...) ; x-compiling (DEFUN READ-PRESERVING-WHITESPACE ...) ; x-compiling (DEFUN READ-MAYBE-NOTHING ...) ; x-compiling (DEFUN READ ...) ; x-compiling (DEFUN READ-QUOTE ...) ; x-compiling (DEFUN READ-COMMENT ...) ; x-compiling (DEFUN READ-LIST ...) ; x-compiling (DEFUN READ-DELIMITED-LIST ...) ; x-compiling (DEFUN READ-AFTER-DOT ...) ; x-compiling (DEFUN READ-STRING ...) ; x-compiling (DEFUN READ-RIGHT-PAREN ...) ; x-compiling (DEFUN INTERNAL-READ-EXTENDED-TOKEN ...) ; x-compiling (DEFMACRO CHAR-CLASS ...) ; x-compiling (DEFMACRO CHAR-CLASS2 ...) ; x-compiling (DEFMACRO CHAR-CLASS3 ...) ; x-compiling (DEFVAR *READ-SUPPRESS* ...) ; x-compiling (DEFVAR *READ-BASE* ...) ; x-compiling (DECLAIM (TYPE # ...)) ; x-compiling (DEFUN NORMALIZE-READ-BUFFER ...) ; x-compiling (DEFUN CASIFY-READ-BUFFER ...) ; x-compiling (DEFVAR *READER-PACKAGE* ...) ; x-compiling (DECLAIM (TYPE # ...) ...) ; x-compiling (DEFUN READER-FIND-PACKAGE ...) ; x-compiling (DEFUN READ-TOKEN ...) ; x-compiling (DEFUN READ-EXTENDED-TOKEN ...) ; x-compiling (DEFUN READ-EXTENDED-TOKEN-ESCAPED ...) ; x-compiling (DEFMACRO !SETQ-OPTIONAL-LEADING-SIGN ...) ; x-compiling (DEFUN MAKE-INTEGER ...) ; x-compiling (DEFUN TRUNCATE-EXPONENT ...) ; x-compiling (DEFUN MAKE-FLOAT ...) ; x-compiling (DEFUN MAKE-FLOAT-AUX ...) ; x-compiling (DEFUN MAKE-RATIO ...) ; x-compiling (DEFUN DISPATCH-CHAR-ERROR ...) ; x-compiling (DEFUN READ-DISPATCH-CHAR ...) ; x-compiling (DEFUN MAYBE-NOTE-READ-FROM-STRING-SIGNATURE-ISSUE ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN %READ-FROM-STRING ...) ; x-compiling (DEFUN READ-FROM-STRING ...) ; x-compiling (DEFINE-COMPILER-MACRO READ-FROM-STRING ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/reader.lisp ; in: DEFINE-COMPILER-MACRO READ-FROM-STRING ; (DEFINE-COMPILER-MACRO READ-FROM-STRING ; (&WHOLE SB!KERNEL:FORM STRING &REST SB!IMPL::ARGS) ; (DESTRUCTURING-BIND ; (&OPTIONAL (SB!IMPL::EOF-ERROR-P T) SB!IMPL::EOF-VALUE ; &REST SB!IMPL::KEYS) ; SB!IMPL::ARGS ; (COND ; ((SB!IMPL::MAYBE-NOTE-READ-FROM-STRING-SIGNATURE-ISSUE ; SB!IMPL::EOF-ERROR-P) ; (SB!INT:QUASIQUOTE #)) ; (T ; (LET* # ; # ; # ; #))))) ; --> PROGN EVAL-WHEN ; ==> ; (SB!C::%DEFINE-COMPILER-MACRO 'READ-FROM-STRING ; #'(LAMBDA (#:WHOLE1987 #:ENVIRONMENT1988) ; (DECLARE (IGNORE #:ENVIRONMENT1988)) ; (LET* ((#:CMACRO-&WHOLE140451 #:WHOLE1987) ; (#:WHOLE1987 #)) ; (DECLARE ; (IGNORABLE #:CMACRO-&WHOLE140451)) ; (LET (#) ; (UNLESS # #)) ; (LET* (# # #) ; (BLOCK READ-FROM-STRING #)))) ; '(&WHOLE SB!KERNEL:FORM STRING &REST ; SB!IMPL::ARGS) ; NIL '(COMPILER-MACRO-FUNCTION READ-FROM-STRING)) ; ; caught STYLE-WARNING: ; undefined function: MAYBE-NOTE-READ-FROM-STRING-SIGNATURE-ISSUE ; ; caught STYLE-WARNING: ; 2 calls to COMMON-LISP:READ-FROM-STRING were compiled before a compiler-macro ; was defined for it. A declaration of NOTINLINE at the call sites will eliminate ; this warning, as will defining the compiler-macro before its first potential ; use. ; x-compiling (DEFUN PARSE-INTEGER ...) ; x-compiling (DEFUN !READER-COLD-INIT ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFUN DISPATCH-TABLES ...) ; x-compiling (DEFUN (SETF DISPATCH-TABLES) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/reader.lisp ; in: DEFGLOBAL *CONSTITUENT-TRAIT-TABLE* ; (MAKE-ARRAY SB!INT:BASE-CHAR-CODE-LIMIT :ELEMENT-TYPE '(UNSIGNED-BYTE 8) ; :INITIAL-ELEMENT SB!IMPL::+CHAR-ATTR-CONSTITUENT+) ; --> LOCALLY MAKE-ARRAY SB!EXT:TRULY-THE ; ==> ; (FILL ; (SB!EXT:TRULY-THE (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (128)) ; (SB!KERNEL:ALLOCATE-VECTOR 154 (THE SB!INT:INDEX LENGTH) ; 32)) ; (THE (UNSIGNED-BYTE 8) '4)) ; ; caught STYLE-WARNING: ; undefined function: UB8-BASH-FILL ; ; compilation unit finished ; Undefined function: ; UB8-BASH-FILL ; caught 4 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/reader.lisp-obj-tmp written ; compilation finished in 0:00:01.385 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-stream.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (SB-XC:DEFMACRO GENERALIZED-PEEKING-MECHANISM ...) ; x-compiling (DECLAIM (INLINE ANSI-STREAM-PEEK-CHAR)) ; x-compiling (DEFUN ANSI-STREAM-PEEK-CHAR ...) ; x-compiling (DEFUN PEEK-CHAR ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-stream.lisp ; in: DEFUN PEEK-CHAR ; (SB!GRAY:STREAM-UNREAD-CHAR STREAM CHAR) ; ==> ; STREAM ; ; note: deleting unreachable code ; (SB!GRAY:STREAM-PEEK-CHAR STREAM) ; ==> ; STREAM ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; x-compiling (DEFUN ECHO-MISC ...); ; compilation unit finished ; printed 3 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/target-stream.lisp-obj-tmp written ; compilation finished in 0:00:00.172 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-pathname.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DECLAIM (FREEZE-TYPE LOGICAL-PATHNAME ...)) ; x-compiling (DEFVAR *PHYSICAL-HOST*) ; x-compiling (DEFUN MAKE-HOST-LOAD-FORM ...) ; x-compiling (DEFUN MAKE-TRIVIAL-DEFAULT-PATHNAME ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEF!METHOD MAKE-LOAD-FORM ...) ; x-compiling (DEFUN %MAKE-MAYBE-LOGICAL-PATHNAME ...) ; x-compiling (DEFVAR *LOGICAL-HOSTS* ...) ; x-compiling (DEF!METHOD MAKE-LOAD-FORM ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFUN PATTERN= ...) ; x-compiling (DEFUN PATTERN-MATCHES ...) ; x-compiling (DEFUN DIRECTORY-COMPONENTS-MATCH ...) ; x-compiling (DEFUN COMPONENTS-MATCH ...) ; x-compiling (DEFUN COMPARE-COMPONENT ...) ; x-compiling (DEFUN PATHNAME= ...) ; x-compiling (DEFUN FIND-HOST ...) ; x-compiling (DEFUN PATHNAME ...) ; x-compiling (DEFUN NATIVE-PATHNAME ...) ; x-compiling (DEFUN MAYBE-DIDDLE-CASE ...) ; x-compiling (DEFUN MERGE-DIRECTORIES ...) ; x-compiling (DEFUN MERGE-PATHNAMES ...) ; x-compiling (DEFUN IMPORT-DIRECTORY ...) ; x-compiling (DEFUN MAKE-PATHNAME ...) ; x-compiling (DEFUN PATHNAME-HOST ...) ; x-compiling (DEFUN PATHNAME-DEVICE ...) ; x-compiling (DEFUN PATHNAME-DIRECTORY ...) ; x-compiling (DEFUN PATHNAME-NAME ...) ; x-compiling (DEFUN PATHNAME-TYPE ...) ; x-compiling (DEFUN PATHNAME-VERSION ...) ; x-compiling (DEFUN PARSEABLE-LOGICAL-NAMESTRING-P ...) ; x-compiling (DEFUN %PARSE-NAMESTRING ...) ; x-compiling (DEFUN EXTRACT-LOGICAL-HOST-PREFIX ...) ; x-compiling (DEFUN PARSE-NAMESTRING ...) ; x-compiling (DEFUN %PARSE-NATIVE-NAMESTRING ...) ; x-compiling (DEFUN PARSE-NATIVE-NAMESTRING ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-pathname.lisp ; in: DEFUN PARSE-NATIVE-NAMESTRING ; (DEFUN SB!EXT:PARSE-NATIVE-NAMESTRING ; (SB!IMPL::THING ; &OPTIONAL SB!KERNEL:HOST ; (SB!IMPL::DEFAULTS *DEFAULT-PATHNAME-DEFAULTS*) ; &KEY (SB!IMPL::START 0) SB!IMPL::END SB!IMPL::JUNK-ALLOWED ; SB!IMPL::AS-DIRECTORY) ; "Convert THING into a pathname, using the native conventions ; appropriate for the pathname host HOST, or if not specified the ; host of DEFAULTS. If THING is a string, the parse is bounded by ; START and END, and error behaviour is controlled by JUNK-ALLOWED, ; as with PARSE-NAMESTRING. For file systems whose native ; conventions allow directories to be indicated as files, if ; AS-DIRECTORY is true, return a pathname denoting THING as a ; directory." ; (DECLARE ; (TYPE SB!KERNEL:PATHNAME-DESIGNATOR SB!IMPL::THING SB!IMPL::DEFAULTS) ; (TYPE (OR LIST SB!KERNEL:HOST STRING (MEMBER :UNSPECIFIC)) SB!KERNEL:HOST) ; (TYPE SB!INT:INDEX SB!IMPL::START) ; (TYPE (OR SB!INT:INDEX NULL) SB!IMPL::END) ; (TYPE (OR T NULL) SB!IMPL::JUNK-ALLOWED) ; (VALUES (OR NULL PATHNAME) (OR NULL SB!INT:INDEX))) ; (SB!IMPL::WITH-HOST (SB!IMPL::FOUND-HOST SB!KERNEL:HOST) ; (LET ((SB!IMPL::DEFAULTS #)) ; (DECLARE (TYPE PATHNAME SB!IMPL::DEFAULTS)) ; (ETYPECASE SB!IMPL::THING ; (SIMPLE-STRING #) ; (STRING #) ; (PATHNAME # #) ; (STREAM #))))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (THE (VALUES &OPTIONAL (OR NULL PATHNAME) (OR NULL (MOD 536870909)) &REST T) ; (PROGN ; (BLOCK SB!EXT:PARSE-NATIVE-NAMESTRING ; (SB!IMPL::WITH-HOST (SB!IMPL::FOUND-HOST SB!KERNEL:HOST) ; (LET # ; # ; #))))) ; ; note: type assertion too complex to check: ; (VALUES &OPTIONAL (OR NULL PATHNAME) (OR NULL (MOD 536870909)) &REST ...). ; x-compiling (DEFUN NAMESTRING ...) ; x-compiling (DEFUN NATIVE-NAMESTRING ...) ; x-compiling (DEFUN HOST-NAMESTRING ...) ; x-compiling (DEFUN DIRECTORY-NAMESTRING ...) ; x-compiling (DEFUN FILE-NAMESTRING ...) ; x-compiling (DEFUN ENOUGH-NAMESTRING ...) ; x-compiling (DEFUN WILD-PATHNAME-P ...) ; x-compiling (DEFUN PATHNAME-MATCH-P ...) ; x-compiling (DEFUN SUBSTITUTE-INTO ...) ; x-compiling (DEFUN DIDNT-MATCH-ERROR ...) ; x-compiling (DEFUN TRANSLATE-COMPONENT ...) ; x-compiling (DEFUN COMPUTE-DIRECTORY-SUBSTITUTIONS ...) ; x-compiling (DEFUN TRANSLATE-DIRECTORIES ...) ; x-compiling (DEFUN TRANSLATE-PATHNAME ...) ; x-compiling (DEFUN SIMPLIFY-NAMESTRING ...) ; x-compiling (DEFUN LOGICAL-WORD-OR-LOSE ...) ; x-compiling (DEFUN FIND-LOGICAL-HOST ...) ; x-compiling (DEFUN INTERN-LOGICAL-HOST ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-pathname.lisp ; in: DEFUN INTERN-LOGICAL-HOST ; (DEFUN SB!IMPL::INTERN-LOGICAL-HOST (SB!IMPL::THING) ; (DECLARE (VALUES SB!KERNEL:LOGICAL-HOST)) ; (SB!INT:WITH-LOCKED-SYSTEM-TABLE (SB!IMPL::*LOGICAL-HOSTS*) ; (OR (SB!IMPL::FIND-LOGICAL-HOST SB!IMPL::THING NIL) ; (LET* (# #) ; (SETF #) ; SB!IMPL::NEW)))) ; --> PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION ; ==> ; (THE (VALUES SB!KERNEL:LOGICAL-HOST &REST T) ; (PROGN ; (BLOCK SB!IMPL::INTERN-LOGICAL-HOST ; (SB!INT:WITH-LOCKED-SYSTEM-TABLE (SB!IMPL::*LOGICAL-HOSTS*) ; (OR # #))))) ; ; note: type assertion too complex to check: ; (VALUES LOGICAL-HOST &REST T). ; x-compiling (DEFUN MAYBE-MAKE-LOGICAL-PATTERN ...) ; x-compiling (DEFUN LOGICAL-CHUNKIFY ...) ; x-compiling (DEFUN PARSE-LOGICAL-NAMESTRING ...) ; x-compiling (DEFVAR *LOGICAL-PATHNAME-DEFAULTS*) ; x-compiling (DEFUN LOGICAL-NAMESTRING-P ...) ; x-compiling (DEFTYPE LOGICAL-NAMESTRING ...) ; x-compiling (DEFUN LOGICAL-PATHNAME ...) ; x-compiling (DEFUN UNPARSE-LOGICAL-DIRECTORY ...) ; x-compiling (DEFUN UNPARSE-LOGICAL-PIECE ...) ; x-compiling (DEFUN UNPARSE-LOGICAL-FILE ...) ; x-compiling (DEFUN UNPARSE-ENOUGH-NAMESTRING ...) ; x-compiling (DEFUN UNPARSE-LOGICAL-NAMESTRING ...) ; x-compiling (DEFUN CANONICALIZE-LOGICAL-PATHNAME-TRANSLATIONS ...) ; x-compiling (DEFUN LOGICAL-PATHNAME-TRANSLATIONS ...) ; x-compiling (DEFUN (SETF LOGICAL-PATHNAME-TRANSLATIONS) ...) ; x-compiling (DEFUN TRANSLATE-LOGICAL-PATHNAME ...) ; x-compiling (DEFVAR *LOGICAL-PATHNAME-DEFAULTS* ...) ; x-compiling (DEFUN LOAD-LOGICAL-PATHNAME-TRANSLATIONS ...) ; x-compiling (DEFUN !PATHNAME-COLD-INIT ...) ; x-compiling (DEFUN SET-SBCL-SOURCE-LOCATION ...); ; compilation unit finished ; printed 2 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/target-pathname.lisp-obj-tmp written ; compilation finished in 0:00:01.384 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/unix-pathname.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEF!STRUCT (UNIX-HOST # ...)) ; x-compiling (DEFVAR *PHYSICAL-HOST* ...) ; x-compiling (DEFUN SPLIT-AT-SLASHES ...) ; x-compiling (DEFUN PARSE-UNIX-NAMESTRING ...) ; x-compiling (DEFUN PARSE-NATIVE-UNIX-NAMESTRING ...) ; x-compiling (/SHOW0 "filesys.lisp 300") ; x-compiling (DEFUN UNPARSE-UNIX-HOST ...) ; x-compiling (DEFUN UNPARSE-UNIX-DIRECTORY ...) ; x-compiling (DEFUN UNPARSE-UNIX-FILE ...) ; x-compiling (/SHOW0 "filesys.lisp 406") ; x-compiling (DEFUN UNPARSE-UNIX-NAMESTRING ...) ; x-compiling (DEFUN UNPARSE-NATIVE-UNIX-NAMESTRING ...) ; x-compiling (DEFUN UNPARSE-UNIX-ENOUGH ...) ; x-compiling (DEFUN SIMPLIFY-UNIX-NAMESTRING ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/unix-pathname.lisp ; in: DEFUN PARSE-UNIX-NAMESTRING ; (SB!IMPL::EXTRACT-NAME-TYPE-AND-VERSION NAMESTRING SB!IMPL::TAIL-START ; SB!IMPL::TAIL-END #\\) ; ; caught STYLE-WARNING: ; undefined function: EXTRACT-NAME-TYPE-AND-VERSION ; (SB!IMPL::MAYBE-MAKE-PATTERN NAMESTRING SB!IMPL::PIECE-START ; SB!IMPL::PIECE-END #\\) ; ; caught STYLE-WARNING: ; undefined function: MAYBE-MAKE-PATTERN ; in: DEFUN UNPARSE-UNIX-ENOUGH ; (SB!IMPL::UNPARSE-PHYSICAL-PIECE PATHNAME-NAME #\\) ; ; caught STYLE-WARNING: ; undefined function: UNPARSE-PHYSICAL-PIECE ; in: DEFUN UNPARSE-UNIX-FILE ; (SB!IMPL::UNPARSE-PHYSICAL-PIECE SB!IMPL::NAME #\\) ; ; caught STYLE-WARNING: ; undefined function: UNPARSE-PHYSICAL-PIECE ; in: DEFUN UNPARSE-NATIVE-UNIX-NAMESTRING ; (SB!IMPL::USER-HOMEDIR-NAMESTRING) ; ; caught STYLE-WARNING: ; undefined function: USER-HOMEDIR-NAMESTRING ; ; compilation unit finished ; Undefined functions: ; EXTRACT-NAME-TYPE-AND-VERSION MAYBE-MAKE-PATTERN UNPARSE-PHYSICAL-PIECE USER-HOMEDIR-NAMESTRING ; caught 5 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/unix-pathname.lisp-obj-tmp written ; compilation finished in 0:00:00.497 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/filesys.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFUN REMOVE-ESCAPE-CHARACTERS ...) ; x-compiling (DEFUN MAYBE-MAKE-PATTERN ...) ; x-compiling (DEFUN UNPARSE-PHYSICAL-PIECE ...) ; x-compiling (DEFUN MAKE-MATCHER ...) ; x-compiling (/SHOW0 "filesys.lisp 160") ; x-compiling (DEFUN EXTRACT-NAME-TYPE-AND-VERSION ...) ; x-compiling (/SHOW0 "filesys.lisp 200") ; x-compiling (DEFUN NATIVE-FILE-KIND ...) ; x-compiling (DEFUN QUERY-FILE-SYSTEM ...) ; x-compiling (DEFUN PROBE-FILE ...) ; x-compiling (DEFUN TRUENAME ...) ; x-compiling (DEFUN FILE-AUTHOR ...) ; x-compiling (DEFUN FILE-WRITE-DATE ...) ; x-compiling (/SHOW0 "filesys.lisp 700") ; x-compiling (DEFUN RENAME-FILE ...) ; x-compiling (DEFUN DELETE-FILE ...) ; x-compiling (DEFUN DIRECTORIZE-PATHNAME ...) ; x-compiling (DEFUN DELETE-DIRECTORY ...) ; x-compiling (DEFUN SBCL-HOMEDIR-PATHNAME ...) ; x-compiling (DEFUN USER-HOMEDIR-NAMESTRING ...) ; x-compiling (DEFUN USER-HOMEDIR-PATHNAME ...) ; x-compiling (DEFUN DIRECTORY ...) ; x-compiling (DEFUN CANONICALIZE-PATHNAME ...) ; x-compiling (DEFMACRO WITH-NATIVE-DIRECTORY-ITERATOR ...) ; x-compiling (DEFUN CALL-WITH-NATIVE-DIRECTORY-ITERATOR ...) ; x-compiling (DEFUN MAP-DIRECTORY ...) ; x-compiling (DEFUN MAP-MATCHING-DIRECTORIES ...) ; x-compiling (DEFUN LAST-DIRECTORY-PIECE ...) ; x-compiling (DEFUN MAP-WILD ...) ; x-compiling (DEFUN MAP-WILD-INFERIORS ...) ; x-compiling (DEFUN MAP-MATCHING-ENTRIES ...) ; x-compiling (DEFUN PATHNAME-INTERSECTIONS ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/filesys.lisp ; in: DEFUN PATHNAME-INTERSECTIONS ; (COND ((EQ SB!IMPL::ONE :WILD) SB!IMPL::TWO) ; ((EQ SB!IMPL::TWO :WILD) SB!IMPL::ONE) ; ((OR (NULL SB!IMPL::ONE) (EQ SB!IMPL::ONE :UNSPECIFIC)) SB!IMPL::TWO) ; ((OR (NULL SB!IMPL::TWO) (EQ SB!IMPL::TWO :UNSPECIFIC)) SB!IMPL::ONE) ; (T (SB!INT:AVER (EQ (CAR SB!IMPL::ONE) (CAR SB!IMPL::TWO))) ; (MAPCAR (LAMBDA (SB!IMPL::X) (CONS # SB!IMPL::X)) ; (SB!IMPL::INTERSECT-DIRECTORY-HELPER (CDR SB!IMPL::ONE) ; (CDR SB!IMPL::TWO))))) ; --> IF PROGN ; ==> ; SB!IMPL::TWO ; ; note: deleting unreachable code ; --> IF COND IF PROGN ; ==> ; SB!IMPL::ONE ; ; note: deleting unreachable code ; x-compiling (DEFUN INTERSECT-DIRECTORY-HELPER ...) ; x-compiling (DEFUN DIRECTORY-PATHNAME-P ...) ; x-compiling (DEFUN ENSURE-DIRECTORIES-EXIST ...) ; x-compiling (/SHOW0 "filesys.lisp 1000"); ; compilation unit finished ; printed 2 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/filesys.lisp-obj-tmp written ; compilation finished in 0:00:00.687 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/save.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFINE-ALIEN-ROUTINE "save" ...) /entering WITH-ALIEN BINDINGS=((SAVE (FUNCTION (BOOLEAN) C-STRING (UNSIGNED 32) INT ...) :EXTERN "save")) /BINDING=(SAVE (FUNCTION (BOOLEAN) C-STRING (UNSIGNED 32) INT ...) :EXTERN "save") /SYMBOL=SAVE TYPE=(FUNCTION (BOOLEAN) C-STRING (UNSIGNED 32) INT ...) OPT1=:EXTERN OPT2="save" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="save" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((SAVE #)) (VALUES (ALIEN-FUNCALL SAVE FILE INITIAL-FUN PREPEND-RUNTIME ...)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; x-compiling (DEFINE-ALIEN-ROUTINE "gc_and_save" ...) /entering WITH-ALIEN BINDINGS=((GC-AND-SAVE (FUNCTION VOID C-STRING INT INT ...) :EXTERN "gc_and_save")) /BINDING=(GC-AND-SAVE (FUNCTION VOID C-STRING INT INT ...) :EXTERN "gc_and_save") /SYMBOL=GC-AND-SAVE TYPE=(FUNCTION VOID C-STRING INT INT ...) OPT1=:EXTERN OPT2="gc_and_save" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="gc_and_save" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((GC-AND-SAVE #)) (ALIEN-FUNCALL GC-AND-SAVE FILE PREPEND-RUNTIME SAVE-RUNTIME-OPTIONS ...) (VALUES NIL))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; x-compiling (DEFVAR SB!VM::*RESTART-LISP-FUNCTION*) ; x-compiling (DEFINE-CONDITION SAVE-CONDITION ...) ; x-compiling (DEFINE-CONDITION SAVE-ERROR ...) ; x-compiling (DEFINE-CONDITION SAVE-WITH-MULTIPLE-THREADS-ERROR ...) ; x-compiling (DEFUN SAVE-LISP-AND-DIE ...) ; x-compiling (DEFUN DEINIT ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/save.lisp ; in: DEFUN DEINIT ; (SB!THREAD::INTERACTIVE-THREADS) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD::INTERACTIVE-THREADS ; (SB!THREAD:LIST-ALL-THREADS) ; ; caught STYLE-WARNING: ; undefined function: SB!THREAD:LIST-ALL-THREADS ; (SB!KERNEL:PROFILE-DEINIT) ; ; caught STYLE-WARNING: ; undefined function: PROFILE-DEINIT ; in: DEFUN SAVE-LISP-AND-DIE ; (SB!IMPL::REINIT) ; ; caught STYLE-WARNING: ; undefined function: REINIT ; ; compilation unit finished ; Undefined functions: ; SB!THREAD::INTERACTIVE-THREADS SB!THREAD:LIST-ALL-THREADS PROFILE-DEINIT REINIT ; caught 4 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/save.lisp-obj-tmp written ; compilation finished in 0:00:00.108 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/sharpm.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DECLAIM (SPECIAL *READ-SUPPRESS*)) ; x-compiling (DEFUN IGNORE-NUMARG ...) ; x-compiling (DEFUN SHARP-LEFT-PAREN ...) ; x-compiling (DEFUN SHARP-STAR ...) ; x-compiling (DEFUN SHARP-A ...) ; x-compiling (DEFUN SHARP-S ...) ; x-compiling (DEFUN SHARP-B ...) ; x-compiling (DEFUN SHARP-C ...) ; x-compiling (DEFUN SHARP-O ...) ; x-compiling (DEFUN SHARP-R ...) ; x-compiling (DEFUN SHARP-X ...) ; x-compiling (DEFVAR *SHARP-EQUAL-CIRCLE-TABLE*) ; x-compiling (DECLAIM (TYPE HASH-TABLE ...)) ; x-compiling (DEFUN CIRCLE-SUBST ...) ; x-compiling (DEFVAR *SHARP-SHARP-ALIST* ...) ; x-compiling (DEFUN SHARP-EQUAL ...) ; x-compiling (DEFUN SHARP-SHARP ...) ; x-compiling (FLET (#) ...) ; x-compiling (DEFUN SHARP-P ...) ; x-compiling (DEFUN SHARP-BACKSLASH ...) ; x-compiling (DEFUN SHARP-VERTICAL-BAR ...) ; x-compiling (DEFUN SHARP-QUOTE ...) ; x-compiling (DEFUN SHARP-COLON ...) ; x-compiling (DEFVAR *READ-EVAL* ...) ; x-compiling (DEFUN SHARP-DOT ...) ; x-compiling (DEFUN SHARP-ILLEGAL ...) ; x-compiling (DEFUN !SHARPM-COLD-INIT ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/sharpm.lisp-obj-tmp written ; compilation finished in 0:00:00.201 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/alloc.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DECLAIM (INLINE STORE-WORD)) ; x-compiling (DEFUN STORE-WORD ...) ; x-compiling (DEFUN ALLOCATE-STATIC-VECTOR ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/alloc.lisp-obj-tmp written ; compilation finished in 0:00:00.060 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-step.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFVAR *STEPPING* ...) ; x-compiling (DEFVAR *STEP-OUT* ...) ; x-compiling (DEFUN (SETF STEPPING) ...) ; x-compiling (DEFUN STEPPING-ENABLED-P ...) ; x-compiling (DEFUN ENABLE-STEPPING ...) ; x-compiling (DEFUN DISABLE-STEPPING ...) ; x-compiling (DEFMACRO WITH-STEPPING-ENABLED ...) ; x-compiling (DEFMACRO WITH-STEPPING-DISABLED ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/early-step.lisp-obj-tmp written ; compilation finished in 0:00:00.019 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-thread.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!THREAD") ; x-compiling (DEFMACRO WITH-CAS-LOCK ...) ; x-compiling (DEFMACRO %WITH-CAS-LOCK ...) ; x-compiling (DEFINE-CONDITION THREAD-ERROR ...) ; x-compiling (DEFINE-CONDITION SIMPLE-THREAD-ERROR ...) ; x-compiling (DEFINE-CONDITION THREAD-DEADLOCK ...) ; x-compiling (SETF (FDOCUMENTATION # ...) ...) ; x-compiling (DEFINE-CONDITION SYMBOL-VALUE-IN-THREAD-ERROR ...) ; x-compiling (DEFINE-CONDITION JOIN-THREAD-ERROR ...) ; x-compiling (DEFINE-DEPRECATED-FUNCTION :LATE ...) ; x-compiling (DEFINE-CONDITION INTERRUPT-THREAD-ERROR ...) ; x-compiling (DEFINE-DEPRECATED-FUNCTION :LATE ...) ; x-compiling (SETF (FDOCUMENTATION # ...) ...) ; x-compiling (SETF (FDOCUMENTATION # ...) ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFUN PRINT-LOCK ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFUN THREAD-ALIVE-P ...) ; x-compiling (DEFUN THREAD-EPHEMERAL-P ...) ; x-compiling (DEFVAR *ALL-THREADS* ...) ; x-compiling (DEFVAR *ALL-THREADS-LOCK* ...) ; x-compiling (DEFVAR *DEFAULT-ALLOC-SIGNAL* ...) ; x-compiling (DEFMACRO WITH-ALL-THREADS-LOCK ...) ; x-compiling (DEFUN LIST-ALL-THREADS ...) ; x-compiling (DECLAIM (INLINE CURRENT-THREAD-SAP)) ; x-compiling (DEFUN CURRENT-THREAD-SAP ...) ; x-compiling (DECLAIM (INLINE CURRENT-THREAD-OS-THREAD)) ; x-compiling (DEFUN CURRENT-THREAD-OS-THREAD ...) ; x-compiling (DEFVAR *INITIAL-THREAD* ...) ; x-compiling (DEFVAR *MAKE-THREAD-LOCK*) ; x-compiling (DEFUN INIT-INITIAL-THREAD ...) ; x-compiling (DEFUN MAIN-THREAD ...) ; x-compiling (DEFUN MAIN-THREAD-P ...) ; x-compiling (DEFMACRO RETURN-FROM-THREAD ...) ; x-compiling (DEFUN %RETURN-FROM-THREAD ...) ; x-compiling (DEFUN ABORT-THREAD ...) ; x-compiling (DEFINE-ALIEN-ROUTINE "kill_safely" ...) /entering WITH-ALIEN BINDINGS=((KILL-SAFELY (FUNCTION INTEGER UNSIGNED INT) :EXTERN "kill_safely")) /BINDING=(KILL-SAFELY (FUNCTION INTEGER UNSIGNED INT) :EXTERN "kill_safely") /SYMBOL=KILL-SAFELY TYPE=(FUNCTION INTEGER UNSIGNED INT) OPT1=:EXTERN OPT2="kill_safely" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="kill_safely" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((KILL-SAFELY #)) (VALUES (ALIEN-FUNCALL KILL-SAFELY OS-THREAD SIGNAL)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; x-compiling (DEFINE-ALIEN-ROUTINE "wake_thread" ...) /entering WITH-ALIEN BINDINGS=((WAKE-THREAD (FUNCTION INTEGER UNSIGNED) :EXTERN "wake_thread")) /BINDING=(WAKE-THREAD (FUNCTION INTEGER UNSIGNED) :EXTERN "wake_thread") /SYMBOL=WAKE-THREAD TYPE=(FUNCTION INTEGER UNSIGNED) OPT1=:EXTERN OPT2="wake_thread" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="wake_thread" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((WAKE-THREAD #)) (VALUES (ALIEN-FUNCALL WAKE-THREAD OS-THREAD)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; x-compiling (DECLAIM (INLINE SB!VM::CURRENT-THREAD-OFFSET-SAP)) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-thread.lisp ; in: DECLAIM (INLINE SB!VM::CURRENT-THREAD-OFFSET-SAP) ; (DECLAIM (INLINE SB!VM::CURRENT-THREAD-OFFSET-SAP)) ; --> EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE SB!VM::CURRENT-THREAD-OFFSET-SAP)) ; ; caught STYLE-WARNING: ; Proclaiming SB!VM::CURRENT-THREAD-OFFSET-SAP to be INLINE, but 1 call to it was ; previously compiled. A declaration of NOTINLINE at the call site will eliminate ; this warning, as will proclaiming and defining the function before its first ; potential use. ; x-compiling (DEFUN SB!VM::CURRENT-THREAD-OFFSET-SAP ...) ; x-compiling (DEFMACRO WITH-DEADLOCKS ...) ; x-compiling (SETF (FDOCUMENTATION # ...) ...) ; x-compiling (DEFUN MUTEX-OWNER ...) ; x-compiling (SB!EXT:DEFGLOBAL **DEADLOCK-LOCK** ...) ; x-compiling (DEFUN CHECK-DEADLOCK ...) ; x-compiling (DEFUN %TRY-MUTEX ...) ; x-compiling (DEFINE-DEPRECATED-FUNCTION :EARLY ...) ; x-compiling (DEFUN GRAB-MUTEX ...) ; x-compiling (DEFUN RELEASE-MUTEX ...) ; x-compiling (DECLAIM (INLINE MAKE-WAITQUEUE)) ; x-compiling (DEFSTRUCT (WAITQUEUE #) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-thread.lisp ; in: DEFSTRUCT WAITQUEUE ; (DEFSTRUCT ; (SB!THREAD:WAITQUEUE ; (:CONSTRUCTOR SB!THREAD:MAKE-WAITQUEUE (&KEY SB!THREAD::NAME))) ; "Waitqueue type." ; (SB!THREAD::NAME NIL :TYPE (OR NULL SB!THREAD:THREAD-NAME))) ; --> PROGN EVAL-WHEN ; ==> ; (SB!KERNEL::%COMPILER-DEFSTRUCT ; '# ; '#(# ; #)) ; ; caught STYLE-WARNING: ; Previously compiled call to SB!THREAD::WAITQUEUE-P could not be inlined because ; the structure definition for SB!THREAD:WAITQUEUE was not yet seen. To avoid ; this warning, DEFSTRUCT should precede references to the affected functions, or ; they must be declared locally notinline at each call site. ; x-compiling (DECLAIM (NOTINLINE MAKE-WAITQUEUE)) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (SETF (FDOCUMENTATION # ...) ...) ; x-compiling (DEFUN CONDITION-WAIT ...) ; x-compiling (DEFUN CONDITION-NOTIFY ...) ; x-compiling (DEFUN CONDITION-BROADCAST ...) ; x-compiling (DECLAIM (INLINE MAKE-SEMAPHORE)) ; x-compiling (DEFSTRUCT (SEMAPHORE #) ...) ; x-compiling (DECLAIM (NOTINLINE MAKE-SEMAPHORE)) ; x-compiling (SETF (FDOCUMENTATION # ...) ...) ; x-compiling (DEFSTRUCT (SEMAPHORE-NOTIFICATION # ...) ...) ; x-compiling (SETF (FDOCUMENTATION # ...) ...) ; x-compiling (DECLAIM (INLINE SEMAPHORE-NOTIFICATION-STATUS)) ; x-compiling (DEFUN SEMAPHORE-NOTIFICATION-STATUS ...) ; x-compiling (DECLAIM (INLINE CLEAR-SEMAPHORE-NOTIFICATION)) ; x-compiling (DEFUN CLEAR-SEMAPHORE-NOTIFICATION ...) ; x-compiling (DECLAIM (INLINE SEMAPHORE-COUNT)) ; x-compiling (DEFUN SEMAPHORE-COUNT ...) ; x-compiling (DEFUN WAIT-ON-SEMAPHORE ...) ; x-compiling (DEFUN TRY-SEMAPHORE ...) ; x-compiling (DEFUN SIGNAL-SEMAPHORE ...) ; x-compiling (DEFSTRUCT SESSION ...) ; x-compiling (DEFVAR *SESSION* ...) ; x-compiling (DEFMACRO WITH-SESSION-LOCK ...) ; x-compiling (DEFUN NEW-SESSION ...) ; x-compiling (DEFUN INIT-JOB-CONTROL ...) ; x-compiling (DEFUN %DELETE-THREAD-FROM-SESSION ...) ; x-compiling (DEFUN CALL-WITH-NEW-SESSION ...) ; x-compiling (DEFMACRO WITH-NEW-SESSION ...) ; x-compiling (DEFUN %EXIT-OTHER-THREADS ...) ; x-compiling (DEFUN TERMINATE-SESSION ...) ; x-compiling (DEFUN DEBUGGER-WAIT-UNTIL-FOREGROUND-THREAD ...) ; x-compiling (DEFUN GET-FOREGROUND ...) ; x-compiling (DEFUN RELEASE-FOREGROUND ...) ; x-compiling (DEFUN INTERACTIVE-THREADS ...) ; x-compiling (DEFUN FOREGROUND-THREAD ...) ; x-compiling (DEFUN MAKE-LISTENER-THREAD ...) ; x-compiling (DEFUN MAKE-THREAD ...) ; x-compiling (DEFUN JOIN-THREAD ...) ; x-compiling (DEFUN DESTROY-THREAD ...) ; x-compiling (DEFMACRO WITH-INTERRUPTIONS-LOCK ...) ; x-compiling (DEFUN RUN-INTERRUPTION ...) ; x-compiling (DEFUN INTERRUPT-THREAD ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-thread.lisp ; in: DEFUN INTERRUPT-THREAD ; 'SB!THREAD:INTERRUPT-THREAD-ERROR ; ; note: deleting unreachable code ; x-compiling (DEFUN TERMINATE-THREAD ...) ; x-compiling (DEFINE-ALIEN-ROUTINE "thread_yield" ...) /entering WITH-ALIEN BINDINGS=((THREAD-YIELD #'INT :EXTERN "thread_yield")) /BINDING=(THREAD-YIELD #'INT :EXTERN "thread_yield") /SYMBOL=THREAD-YIELD TYPE=#'INT OPT1=:EXTERN OPT2="thread_yield" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="thread_yield" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((THREAD-YIELD #)) (VALUES (ALIEN-FUNCALL THREAD-YIELD)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; x-compiling (SETF (FDOCUMENTATION # ...) ...) ; x-compiling (DEFUN SYMBOL-VALUE-IN-THREAD ...) ; x-compiling (DEFUN (SETF SYMBOL-VALUE-IN-THREAD) ...) ; x-compiling (DEFUN SB!VM::LOCKED-SYMBOL-GLOBAL-VALUE-ADD ...) ; x-compiling (DEFUN THREAD-STEPPING ...) ; x-compiling (DEFUN (SETF THREAD-STEPPING) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-thread.lisp ; in: DEFUN ABORT-THREAD ; (SB!EXT:EXIT :CODE 1) ; ; caught STYLE-WARNING: ; undefined function: SB!EXT:EXIT ; in: DEFUN %RETURN-FROM-THREAD ; (SB!EXT:EXIT :CODE 0) ; ; caught STYLE-WARNING: ; undefined function: SB!EXT:EXIT ; in: DEFMACRO %WITH-CAS-LOCK ; (SB!EXT:GET-CAS-EXPANSION SB!THREAD::PLACE SB!THREAD::ENV) ; ; caught STYLE-WARNING: ; undefined function: SB!EXT:GET-CAS-EXPANSION ; in: DEFUN THREAD-STEPPING ; (SB!KERNEL:MAKE-LISP-OBJ ; (SB!SYS:SAP-REF-WORD (SB!THREAD::CURRENT-THREAD-SAP) ; (* SB!VM::THREAD-STEPPING-SLOT SB!VM:N-WORD-BYTES))) ; ; caught STYLE-WARNING: ; undefined function: MAKE-LISP-OBJ ; ; compilation unit finished ; Undefined functions: ; SB!EXT:EXIT SB!EXT:GET-CAS-EXPANSION MAKE-LISP-OBJ ; caught 6 STYLE-WARNING conditions ; printed 1 note ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/target-thread.lisp-obj-tmp written ; compilation finished in 0:00:00.575 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/gc.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (DECLAIM (INLINE CURRENT-DYNAMIC-SPACE-START)) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/gc.lisp ; in: DECLAIM (INLINE CURRENT-DYNAMIC-SPACE-START) ; (DECLAIM (INLINE SB!KERNEL:CURRENT-DYNAMIC-SPACE-START)) ; --> EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE SB!KERNEL:CURRENT-DYNAMIC-SPACE-START)) ; ; caught STYLE-WARNING: ; Proclaiming SB!KERNEL:CURRENT-DYNAMIC-SPACE-START to be INLINE, but 1 call to ; it was previously compiled. A declaration of NOTINLINE at the call site will ; eliminate this warning, as will proclaiming and defining the function before ; its first potential use. ; x-compiling (DEFUN CURRENT-DYNAMIC-SPACE-START ...) ; x-compiling (DECLAIM (INLINE DYNAMIC-USAGE)) ; x-compiling (DEFUN DYNAMIC-USAGE ...) ; x-compiling (DEFUN STATIC-SPACE-USAGE ...) ; x-compiling (DEFUN READ-ONLY-SPACE-USAGE ...) ; x-compiling (DEFUN CONTROL-STACK-USAGE ...) ; x-compiling (DEFUN BINDING-STACK-USAGE ...) ; x-compiling (DEFUN ROOM-MINIMAL-INFO ...) ; x-compiling (DEFUN ROOM-INTERMEDIATE-INFO ...) ; x-compiling (DEFUN ROOM-MAXIMAL-INFO ...) ; x-compiling (DEFUN ROOM ...) ; x-compiling (DECLAIM (TYPE UNSIGNED-BYTE ...)) ; x-compiling (DEFVAR *N-BYTES-FREED-OR-PURIFIED* ...) ; x-compiling (DEFUN GC-REINIT ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN GET-BYTES-CONSED ...) ; x-compiling (!DEFVAR *AFTER-GC-HOOKS* ...) ; x-compiling (DEFINE-ALIEN-ROUTINE COLLECT-GARBAGE ...) /entering WITH-ALIEN BINDINGS=((COLLECT-GARBAGE (FUNCTION INT INT) :EXTERN "collect_garbage")) /BINDING=(COLLECT-GARBAGE (FUNCTION INT INT) :EXTERN "collect_garbage") /SYMBOL=COLLECT-GARBAGE TYPE=(FUNCTION INT INT) OPT1=:EXTERN OPT2="collect_garbage" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="collect_garbage" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((COLLECT-GARBAGE #)) (VALUES (ALIEN-FUNCALL COLLECT-GARBAGE LAST-GEN)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; x-compiling (DEFUN GC-STOP-THE-WORLD ...) ; x-compiling (DEFUN GC-START-THE-WORLD ...) ; x-compiling (DEFINE-ALIEN-VARIABLE ("gc_logfile" %GC-LOGFILE) ...) ; x-compiling (DEFUN (SETF GC-LOGFILE) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/gc.lisp ; in: DEFUN (SETF GC-LOGFILE) ; (SB!ALIEN:MAKE-ALIEN-STRING ; (SB!EXT:NATIVE-NAMESTRING (TRANSLATE-LOGICAL-PATHNAME PATHNAME) :AS-FILE T)) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION VALUES ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN::SAP ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; (LET ((SB!KERNEL::NEW (WHEN PATHNAME (SB!ALIEN:MAKE-ALIEN-STRING #))) ; (SB!KERNEL::OLD SB!KERNEL::%GC-LOGFILE)) ; (SETF SB!KERNEL::%GC-LOGFILE SB!KERNEL::NEW) ; (WHEN SB!KERNEL::OLD (SB!ALIEN:FREE-ALIEN SB!KERNEL::OLD)) ; PATHNAME) ; --> SB!KERNEL::%GC-LOGFILE SB!ALIEN-INTERNALS:%HEAP-ALIEN ; --> SB!ALIEN-INTERNALS:%ALIEN-VALUE SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; x-compiling (DEFUN GC-LOGFILE ...) ; x-compiling (DECLAIM (INLINE DYNAMIC-SPACE-SIZE)) ; x-compiling (DEFUN DYNAMIC-SPACE-SIZE ...) ; x-compiling (DEFVAR *ALREADY-IN-GC* ...) ; x-compiling (DECLAIM (TYPE CONS ...)) ; x-compiling (!DEFVAR *GC-EPOCH* ...) ; x-compiling (DEFUN SUB-GC ...) ; x-compiling (DEFUN POST-GC ...) ; x-compiling (DEFUN GC ...) ; x-compiling (DEFINE-ALIEN-ROUTINE SCRUB-CONTROL-STACK ...) /entering WITH-ALIEN BINDINGS=((SCRUB-CONTROL-STACK #'VOID :EXTERN "scrub_control_stack")) /BINDING=(SCRUB-CONTROL-STACK #'VOID :EXTERN "scrub_control_stack") /SYMBOL=SCRUB-CONTROL-STACK TYPE=#'VOID OPT1=:EXTERN OPT2="scrub_control_stack" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="scrub_control_stack" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((SCRUB-CONTROL-STACK #)) (ALIEN-FUNCALL SCRUB-CONTROL-STACK) (VALUES NIL))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; x-compiling (DEFUN UNSAFE-CLEAR-ROOTS ...) ; x-compiling (DEFUN BYTES-CONSED-BETWEEN-GCS ...) ; x-compiling (DEFUN (SETF BYTES-CONSED-BETWEEN-GCS) ...) ; x-compiling (DECLAIM (INLINE MAYBE-HANDLE-PENDING-GC)) ; x-compiling (DEFUN MAYBE-HANDLE-PENDING-GC ...) ; x-compiling (DEFTYPE GENERATION-INDEX ...) ; x-compiling (DEFINE-ALIEN-TYPE GENERATION ...) ; x-compiling (DEFINE-ALIEN-VARIABLE GENERATIONS ...) ; x-compiling (DEF BYTES-CONSED-BETWEEN-GCS ...) ; x-compiling (DEF MINIMUM-AGE-BEFORE-GC ...) ; x-compiling (DEF NUMBER-OF-GCS-BEFORE-PROMOTION ...) ; x-compiling (DEF BYTES-ALLOCATED ...) ; x-compiling (DEF NUMBER-OF-GCS ...) ; x-compiling (DEFUN GENERATION-AVERAGE-AGE ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/gc.lisp ; in: DEFUN BINDING-STACK-USAGE ; (SB!DI::DESCRIPTOR-SAP SB!VM:*BINDING-STACK-START*) ; ; caught STYLE-WARNING: ; undefined function: SB!DI::DESCRIPTOR-SAP ; in: DEFUN CONTROL-STACK-USAGE ; (SB!DI::DESCRIPTOR-SAP SB!VM:*CONTROL-STACK-END*) ; ; caught STYLE-WARNING: ; undefined function: SB!DI::DESCRIPTOR-SAP ; ; compilation unit finished ; Undefined function: ; SB!DI::DESCRIPTOR-SAP ; caught 3 STYLE-WARNING conditions ; printed 2 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/gc.lisp-obj-tmp written ; compilation finished in 0:00:00.201 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/purify.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (DEFINE-ALIEN-ROUTINE ("purify" %PURIFY) ...) /entering WITH-ALIEN BINDINGS=((%PURIFY (FUNCTION VOID UNSIGNED-LONG UNSIGNED-LONG) :EXTERN "purify")) /BINDING=(%PURIFY (FUNCTION VOID UNSIGNED-LONG UNSIGNED-LONG) :EXTERN "purify") /SYMBOL=%PURIFY TYPE=(FUNCTION VOID UNSIGNED-LONG UNSIGNED-LONG) OPT1=:EXTERN OPT2="purify" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="purify" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((%PURIFY #)) (ALIEN-FUNCALL %PURIFY STATIC-ROOTS READ-ONLY-ROOTS) (VALUES NIL))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; x-compiling (DEFUN PURIFY ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/purify.lisp-obj-tmp written ; compilation finished in 0:00:00.017 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/debug-int.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!DI") ; x-compiling (DEFINE-CONDITION DEBUG-CONDITION ...) ; x-compiling (DEFINE-CONDITION NO-DEBUG-FUN-RETURNS ...) ; x-compiling (DEFINE-CONDITION NO-DEBUG-BLOCKS ...) ; x-compiling (DEFINE-CONDITION NO-DEBUG-VARS ...) ; x-compiling (DEFINE-CONDITION LAMBDA-LIST-UNAVAILABLE ...) ; x-compiling (DEFINE-CONDITION INVALID-VALUE ...) ; x-compiling (DEFINE-CONDITION AMBIGUOUS-VAR-NAME ...) ; x-compiling (DEFINE-CONDITION DEBUG-ERROR ...) ; x-compiling (DEFINE-CONDITION UNHANDLED-DEBUG-CONDITION ...) ; x-compiling (DEFINE-CONDITION UNKNOWN-CODE-LOCATION ...) ; x-compiling (DEFINE-CONDITION UNKNOWN-DEBUG-VAR ...) ; x-compiling (DEFINE-CONDITION INVALID-CONTROL-STACK-POINTER ...) ; x-compiling (DEFINE-CONDITION FRAME-FUN-MISMATCH ...) ; x-compiling (DEFMACRO DEBUG-SIGNAL ...) ; x-compiling (DEFSTRUCT (DEBUG-VAR # ...) ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (SETF (FDOCUMENTATION # ...) ...) ; x-compiling (DEFSTRUCT (COMPILED-DEBUG-VAR # ...) ...) ; x-compiling (DEFSTRUCT (FRAME # ...) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/debug-int.lisp ; in: DEFSTRUCT FRAME ; (DEFSTRUCT (SB!DI:FRAME (:CONSTRUCTOR NIL) (:COPIER NIL)) ; (SB!DI::UP NIL :TYPE (OR SB!DI:FRAME NULL)) ; (SB!DI::%DOWN :UNPARSED :TYPE (OR SB!DI:FRAME (MEMBER NIL :UNPARSED))) ; (SB!DI:DEBUG-FUN NIL :TYPE SB!DI:DEBUG-FUN) ; (SB!DI:CODE-LOCATION NIL :TYPE SB!DI:CODE-LOCATION) ; (SB!DI::%CATCHES :UNPARSED :TYPE (OR LIST (MEMBER :UNPARSED))) ; SB!DI::POINTER ; (NUMBER 0 :TYPE SB!INT:INDEX)) ; --> PROGN EVAL-WHEN ; ==> ; (SB!KERNEL::%COMPILER-DEFSTRUCT ; '# ; '#(# ; #)) ; ; caught STYLE-WARNING: ; Previously compiled call to SB!DI:FRAME-DEBUG-FUN could not be inlined because ; the structure definition for SB!DI:FRAME was not yet seen. To avoid this ; warning, DEFSTRUCT should precede references to the affected functions, or they ; must be declared locally notinline at each call site. ; x-compiling (DEFSTRUCT (COMPILED-FRAME # ...) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/debug-int.lisp ; in: DEFSTRUCT COMPILED-FRAME ; (DEFSTRUCT ; (SB!DI::COMPILED-FRAME (:INCLUDE SB!DI:FRAME) ; (:CONSTRUCTOR SB!DI::MAKE-COMPILED-FRAME ; (SB!DI::POINTER SB!DI::UP SB!DI:DEBUG-FUN SB!DI:CODE-LOCATION NUMBER ; &OPTIONAL SB!DI::ESCAPED)) ; (:COPIER NIL)) ; SB!DI::ESCAPED) ; --> PROGN EVAL-WHEN ; ==> ; (SB!KERNEL::%COMPILER-DEFSTRUCT ; '# ; '#(# ; # ; #)) ; ; caught STYLE-WARNING: ; Previously compiled calls to SB!DI::COMPILED-FRAME-P and ; SB!DI::COMPILED-FRAME-ESCAPED could not be inlined because the structure ; definition for SB!DI::COMPILED-FRAME was not yet seen. To avoid this warning, ; DEFSTRUCT should precede references to the affected functions, or they must be ; declared locally notinline at each call site. ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFSTRUCT (DEBUG-FUN # ...) ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFSTRUCT (COMPILED-DEBUG-FUN # ...) ...) ; x-compiling (DEFVAR *COMPILED-DEBUG-FUNS* ...) ; x-compiling (DEFUN MAKE-COMPILED-DEBUG-FUN ...) ; x-compiling (DEFSTRUCT (BOGUS-DEBUG-FUN # ...) ...) ; x-compiling (DEFSTRUCT (DEBUG-BLOCK # ...) ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (SETF (FDOCUMENTATION # ...) ...) ; x-compiling (DEFSTRUCT (COMPILED-DEBUG-BLOCK # ...) ...) ; x-compiling (DEFSTRUCT (BREAKPOINT-DATA # ...) ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFSTRUCT (BREAKPOINT # ...) ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFSTRUCT (CODE-LOCATION # ...) ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFSTRUCT (COMPILED-CODE-LOCATION # ...) ...) ; x-compiling (DEFUN DEBUG-SOURCE-ROOT-NUMBER ...) ; x-compiling (DEFCONSTANT REAL-LRA-SLOT ...) ; x-compiling (DEFUN CURRENT-SP ...) ; x-compiling (DEFUN CURRENT-FP ...) ; x-compiling (DEFUN STACK-REF ...) ; x-compiling (DEFUN %SET-STACK-REF ...) ; x-compiling (DEFUN FUN-CODE-HEADER ...) ; x-compiling (DEFUN LRA-CODE-HEADER ...) ; x-compiling (DEFUN %MAKE-LISP-OBJ ...) ; x-compiling (DEFUN GET-LISP-OBJ-ADDRESS ...) ; x-compiling (DEFUN FUN-WORD-OFFSET ...) ; x-compiling (DECLAIM (INLINE CONTROL-STACK-POINTER-VALID-P)) ; x-compiling (DEFUN CONTROL-STACK-POINTER-VALID-P ...) ; x-compiling (DECLAIM (INLINE COMPONENT-PTR-FROM-PC)) ; x-compiling (SB!ALIEN:DEFINE-ALIEN-ROUTINE COMPONENT-PTR-FROM-PC ...) /entering WITH-ALIEN BINDINGS=((COMPONENT-PTR-FROM-PC (FUNCTION (SYSTEM-AREA-POINTER) SYSTEM-AREA-POINTER) :EXTERN "component_ptr_from_pc")) /BINDING=(COMPONENT-PTR-FROM-PC (FUNCTION (SYSTEM-AREA-POINTER) SYSTEM-AREA-POINTER) :EXTERN "component_ptr_from_pc") /SYMBOL=COMPONENT-PTR-FROM-PC TYPE=(FUNCTION (SYSTEM-AREA-POINTER) SYSTEM-AREA-POINTER) OPT1=:EXTERN OPT2="component_ptr_from_pc" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="component_ptr_from_pc" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((COMPONENT-PTR-FROM-PC #)) (VALUES (SB!ALIEN:ALIEN-FUNCALL COMPONENT-PTR-FROM-PC PC)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; x-compiling (DECLAIM (INLINE VALID-LISP-POINTER-P)) ; x-compiling (SB!ALIEN:DEFINE-ALIEN-ROUTINE VALID-LISP-POINTER-P ...) /entering WITH-ALIEN BINDINGS=((VALID-LISP-POINTER-P (FUNCTION SB!ALIEN:INT SYSTEM-AREA-POINTER) :EXTERN "valid_lisp_pointer_p")) /BINDING=(VALID-LISP-POINTER-P (FUNCTION SB!ALIEN:INT SYSTEM-AREA-POINTER) :EXTERN "valid_lisp_pointer_p") /SYMBOL=VALID-LISP-POINTER-P TYPE=(FUNCTION SB!ALIEN:INT SYSTEM-AREA-POINTER) OPT1=:EXTERN OPT2="valid_lisp_pointer_p" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="valid_lisp_pointer_p" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((VALID-LISP-POINTER-P #)) (VALUES (SB!ALIEN:ALIEN-FUNCALL VALID-LISP-POINTER-P POINTER)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; x-compiling (DECLAIM (INLINE COMPONENT-FROM-COMPONENT-PTR)) ; x-compiling (DEFUN COMPONENT-FROM-COMPONENT-PTR ...) ; x-compiling (DEFUN COMPUTE-LRA-DATA-FROM-PC ...) /entering WITH-ALIEN BINDINGS=((COMPONENT-PTR-FROM-PC (FUNCTION (SYSTEM-AREA-POINTER) SYSTEM-AREA-POINTER) :EXTERN "component_ptr_from_pc")) /BINDING=(COMPONENT-PTR-FROM-PC (FUNCTION (SYSTEM-AREA-POINTER) SYSTEM-AREA-POINTER) :EXTERN "component_ptr_from_pc") /SYMBOL=COMPONENT-PTR-FROM-PC TYPE=(FUNCTION (SYSTEM-AREA-POINTER) SYSTEM-AREA-POINTER) OPT1=:EXTERN OPT2="component_ptr_from_pc" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="component_ptr_from_pc" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((COMPONENT-PTR-FROM-PC #)) (VALUES (SB!ALIEN:ALIEN-FUNCALL COMPONENT-PTR-FROM-PC PC)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; x-compiling (DEFCONSTANT SB!VM::NARGS-OFFSET ...) ; x-compiling (DECLAIM (INLINE RA-POINTER-VALID-P)) ; x-compiling (DEFUN RA-POINTER-VALID-P ...) ; x-compiling (DECLAIM (MAYBE-INLINE X86-CALL-CONTEXT)) ; x-compiling (DEFUN X86-CALL-CONTEXT ...) ; x-compiling (DECLAIM (INLINE DESCRIPTOR-SAP)) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/debug-int.lisp ; in: DECLAIM (INLINE DESCRIPTOR-SAP) ; (DECLAIM (INLINE SB!DI::DESCRIPTOR-SAP)) ; --> EVAL-WHEN ; ==> ; (SB-XC:PROCLAIM '(INLINE SB!DI::DESCRIPTOR-SAP)) ; ; caught STYLE-WARNING: ; Proclaiming SB!DI::DESCRIPTOR-SAP to be INLINE, but 8 calls to it were ; previously compiled. A declaration of NOTINLINE at the call sites will ; eliminate this warning, as will proclaiming and defining the function before ; its first potential use. ; x-compiling (DEFUN DESCRIPTOR-SAP ...) ; x-compiling (DEFUN TOP-FRAME ...) ; x-compiling (DEFUN FLUSH-FRAMES-ABOVE ...) ; x-compiling (DEFUN FIND-SAVED-FRAME-DOWN ...) ; x-compiling (DEFUN FRAME-DOWN ...) ; x-compiling (DEFUN GET-CONTEXT-VALUE ...) ; x-compiling (DEFUN (SETF GET-CONTEXT-VALUE) ...) ; x-compiling (DEFUN FOREIGN-FUNCTION-BACKTRACE-NAME ...) ; x-compiling (DEFUN COMPUTE-CALLING-FRAME ...) ; x-compiling (DEFUN NTH-INTERRUPT-CONTEXT ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/debug-int.lisp ; in: DEFUN NTH-INTERRUPT-CONTEXT ; (SB!ALIEN:SAP-ALIEN ; (SB!VM::CURRENT-THREAD-OFFSET-SAP ; (+ SB!VM::THREAD-INTERRUPT-CONTEXTS-OFFSET SB!DI::N)) ; (* SB!SYS:OS-CONTEXT-T)) ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN ; (SB!VM::CURRENT-THREAD-OFFSET-SAP ; (+ SB!VM::THREAD-INTERRUPT-CONTEXTS-OFFSET SB!DI::N)) ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; ; note: doing SAP to pointer coercion (cost 20) ; x-compiling (DEFUN STATIC-FOREIGN-SYMBOL-ADDRESS ...) ; x-compiling (DEFUN STATIC-FOREIGN-SYMBOL-SAP ...) ; x-compiling (DEFUN FIND-ESCAPED-FRAME ...) /entering WITH-ALIEN BINDINGS=((SB!VM::CONTEXT-PC-ADDR (FUNCTION (* SB!ALIEN:UNSIGNED-INT) (* OS-CONTEXT-T)) :EXTERN "os_context_pc_addr")) /BINDING=(SB!VM::CONTEXT-PC-ADDR (FUNCTION (* SB!ALIEN:UNSIGNED-INT) (* OS-CONTEXT-T)) :EXTERN "os_context_pc_addr") /SYMBOL=SB!VM::CONTEXT-PC-ADDR TYPE=(FUNCTION (* SB!ALIEN:UNSIGNED-INT) (* OS-CONTEXT-T)) OPT1=:EXTERN OPT2="os_context_pc_addr" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="os_context_pc_addr" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((SB!VM::CONTEXT-PC-ADDR #)) (VALUES (SB!ALIEN:ALIEN-FUNCALL SB!VM::CONTEXT-PC-ADDR SB!VM::CONTEXT)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning /entering WITH-ALIEN BINDINGS=((COMPONENT-PTR-FROM-PC (FUNCTION (SYSTEM-AREA-POINTER) SYSTEM-AREA-POINTER) :EXTERN "component_ptr_from_pc")) /BINDING=(COMPONENT-PTR-FROM-PC (FUNCTION (SYSTEM-AREA-POINTER) SYSTEM-AREA-POINTER) :EXTERN "component_ptr_from_pc") /SYMBOL=COMPONENT-PTR-FROM-PC TYPE=(FUNCTION (SYSTEM-AREA-POINTER) SYSTEM-AREA-POINTER) OPT1=:EXTERN OPT2="component_ptr_from_pc" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="component_ptr_from_pc" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((COMPONENT-PTR-FROM-PC #)) (VALUES (SB!ALIEN:ALIEN-FUNCALL COMPONENT-PTR-FROM-PC PC)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning /entering WITH-ALIEN BINDINGS=((SB!VM::CONTEXT-REGISTER-ADDR (FUNCTION (* SB!ALIEN:UNSIGNED-INT) (* OS-CONTEXT-T) SB!ALIEN:INT) :EXTERN "os_context_register_addr")) /BINDING=(SB!VM::CONTEXT-REGISTER-ADDR (FUNCTION (* SB!ALIEN:UNSIGNED-INT) (* OS-CONTEXT-T) SB!ALIEN:INT) :EXTERN "os_context_register_addr") /SYMBOL=SB!VM::CONTEXT-REGISTER-ADDR TYPE=(FUNCTION (* SB!ALIEN:UNSIGNED-INT) (* OS-CONTEXT-T) SB!ALIEN:INT) OPT1=:EXTERN OPT2="os_context_register_addr" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="os_context_register_addr" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((SB!VM::CONTEXT-REGISTER-ADDR #)) (VALUES (SB!ALIEN:ALIEN-FUNCALL SB!VM::CONTEXT-REGISTER-ADDR SB!VM::CONTEXT INDEX)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning /entering WITH-ALIEN BINDINGS=((SB!VM::CONTEXT-PC-ADDR (FUNCTION (* SB!ALIEN:UNSIGNED-INT) (* OS-CONTEXT-T)) :EXTERN "os_context_pc_addr")) /BINDING=(SB!VM::CONTEXT-PC-ADDR (FUNCTION (* SB!ALIEN:UNSIGNED-INT) (* OS-CONTEXT-T)) :EXTERN "os_context_pc_addr") /SYMBOL=SB!VM::CONTEXT-PC-ADDR TYPE=(FUNCTION (* SB!ALIEN:UNSIGNED-INT) (* OS-CONTEXT-T)) OPT1=:EXTERN OPT2="os_context_pc_addr" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="os_context_pc_addr" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((SB!VM::CONTEXT-PC-ADDR #)) (VALUES (SB!ALIEN:ALIEN-FUNCALL SB!VM::CONTEXT-PC-ADDR SB!VM::CONTEXT)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning /entering WITH-ALIEN BINDINGS=((SB!VM::CONTEXT-PC-ADDR (FUNCTION (* SB!ALIEN:UNSIGNED-INT) (* OS-CONTEXT-T)) :EXTERN "os_context_pc_addr")) /BINDING=(SB!VM::CONTEXT-PC-ADDR (FUNCTION (* SB!ALIEN:UNSIGNED-INT) (* OS-CONTEXT-T)) :EXTERN "os_context_pc_addr") /SYMBOL=SB!VM::CONTEXT-PC-ADDR TYPE=(FUNCTION (* SB!ALIEN:UNSIGNED-INT) (* OS-CONTEXT-T)) OPT1=:EXTERN OPT2="os_context_pc_addr" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="os_context_pc_addr" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((SB!VM::CONTEXT-PC-ADDR #)) (VALUES (SB!ALIEN:ALIEN-FUNCALL SB!VM::CONTEXT-PC-ADDR SB!VM::CONTEXT)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/debug-int.lisp ; in: DEFUN FIND-ESCAPED-FRAME ; (SB!VM:CONTEXT-PC SB!DI::CONTEXT) ; --> BLOCK LET SB!VM::CONTEXT-PC-ADDR BLOCK SB!ALIEN:WITH-ALIEN ; --> SYMBOL-MACROLET SYMBOL-MACROLET LET SYMBOL-MACROLET VALUES PROG1 LET ; --> SB!ALIEN:ALIEN-FUNCALL SB!ALIEN-INTERNALS:INVOKE-WITH-SAVED-FP-AND-PC ; --> LAMBDA FUNCTION SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; (SB!VM:CONTEXT-REGISTER SB!DI::CONTEXT SB!VM::CFP-OFFSET) ; --> BLOCK LET SB!VM::CONTEXT-REGISTER-ADDR BLOCK SB!ALIEN:WITH-ALIEN ; --> SYMBOL-MACROLET SYMBOL-MACROLET LET SYMBOL-MACROLET VALUES PROG1 LET ; --> SB!ALIEN:ALIEN-FUNCALL SB!ALIEN-INTERNALS:INVOKE-WITH-SAVED-FP-AND-PC ; --> LAMBDA FUNCTION SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; (SB!VM:CONTEXT-PC SB!DI::CONTEXT) ; --> BLOCK LET SB!VM::CONTEXT-PC-ADDR BLOCK SB!ALIEN:WITH-ALIEN ; --> SYMBOL-MACROLET SYMBOL-MACROLET LET SYMBOL-MACROLET VALUES PROG1 LET ; --> SB!ALIEN:ALIEN-FUNCALL SB!ALIEN-INTERNALS:INVOKE-WITH-SAVED-FP-AND-PC ; --> LAMBDA FUNCTION SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; x-compiling (DEFUN FIND-ASSEMBLY-ROUTINE ...) ; x-compiling (DEFUN DEBUG-FUN-FROM-PC ...) ; x-compiling (DEFUN CODE-LOCATION-FROM-PC ...) ; x-compiling (DEFUN FRAME-CATCHES ...) /entering WITH-ALIEN BINDINGS=((COMPONENT-PTR-FROM-PC (FUNCTION (SYSTEM-AREA-POINTER) SYSTEM-AREA-POINTER) :EXTERN "component_ptr_from_pc")) /BINDING=(COMPONENT-PTR-FROM-PC (FUNCTION (SYSTEM-AREA-POINTER) SYSTEM-AREA-POINTER) :EXTERN "component_ptr_from_pc") /SYMBOL=COMPONENT-PTR-FROM-PC TYPE=(FUNCTION (SYSTEM-AREA-POINTER) SYSTEM-AREA-POINTER) OPT1=:EXTERN OPT2="component_ptr_from_pc" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="component_ptr_from_pc" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((COMPONENT-PTR-FROM-PC #)) (VALUES (SB!ALIEN:ALIEN-FUNCALL COMPONENT-PTR-FROM-PC PC)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; x-compiling (DEFUN REPLACE-FRAME-CATCH-TAG ...) ; x-compiling (DEFMACRO DO-DEBUG-FUN-BLOCKS ...) ; x-compiling (DEFMACRO DO-DEBUG-FUN-VARS ...) ; x-compiling (DEFUN DEBUG-FUN-FUN ...) ; x-compiling (DEFUN DEBUG-FUN-NAME ...) ; x-compiling (DEFUN INTERRUPTED-FRAME-ERROR ...) ; x-compiling (DEFUN TL-INVALID-ARG-COUNT-ERROR-P ...) ; x-compiling (DEFUN DEBUG-FUN-CLOSURE-NAME ...) ; x-compiling (DEFUN FUN-DEBUG-FUN ...) ; x-compiling (DEFUN DEBUG-FUN-KIND ...) ; x-compiling (DEFUN DEBUG-VAR-INFO-AVAILABLE ...) ; x-compiling (DEFUN DEBUG-FUN-SYMBOL-VARS ...) ; x-compiling (DEFUN AMBIGUOUS-DEBUG-VARS ...) ; x-compiling (DEFUN FIND-VAR ...) ; x-compiling (DEFUN DEBUG-FUN-LAMBDA-LIST ...) ; x-compiling (DEFUN COMPILED-DEBUG-FUN-LAMBDA-LIST ...) ; x-compiling (DEFUN PARSE-COMPILED-DEBUG-FUN-LAMBDA-LIST ...) ; x-compiling (DEFUN COMPILED-DEBUG-FUN-LAMBDA-LIST-VAR ...) ; x-compiling (DEFUN COMPILED-DEBUG-FUN-DEBUG-INFO ...) ; x-compiling (DEFVAR *PARSING-BUFFER* ...) ; x-compiling (DEFVAR *OTHER-PARSING-BUFFER* ...) ; x-compiling (DEFUN DEBUG-FUN-DEBUG-BLOCKS ...) ; x-compiling (DEFUN PARSE-DEBUG-BLOCKS ...) ; x-compiling (DEFUN PARSE-COMPILED-DEBUG-BLOCKS ...) /entering WITH-ALIEN BINDINGS=((MEMMOVE (FUNCTION SB!ALIEN:VOID (* CHAR) (* CHAR) SB!ALIEN:UNSIGNED-INT) :EXTERN "memmove")) /BINDING=(MEMMOVE (FUNCTION SB!ALIEN:VOID (* CHAR) (* CHAR) SB!ALIEN:UNSIGNED-INT) :EXTERN "memmove") /SYMBOL=MEMMOVE TYPE=(FUNCTION SB!ALIEN:VOID (* CHAR) (* CHAR) SB!ALIEN:UNSIGNED-INT) OPT1=:EXTERN OPT2="memmove" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="memmove" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((MEMMOVE #)) (SB!ALIEN:ALIEN-FUNCALL MEMMOVE SB!IMPL::DEST SB!IMPL::SRC SB!IMPL::N) (VALUES NIL))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; x-compiling (DEFUN DEBUG-FUN-DEBUG-VARS ...) ; x-compiling (DEFUN ASSIGN-MINIMAL-VAR-NAMES ...) ; x-compiling (DEFUN PARSE-COMPILED-DEBUG-VARS ...) ; x-compiling (DEFUN CODE-LOCATION-UNKNOWN-P ...) ; x-compiling (DEFUN CODE-LOCATION-DEBUG-BLOCK ...) ; x-compiling (DEFUN COMPUTE-COMPILED-CODE-LOCATION-DEBUG-BLOCK ...) ; x-compiling (DEFUN CODE-LOCATION-DEBUG-SOURCE ...) ; x-compiling (DEFUN CODE-LOCATION-TOPLEVEL-FORM-OFFSET ...) ; x-compiling (DEFUN CODE-LOCATION-FORM-NUMBER ...) ; x-compiling (DEFUN CODE-LOCATION-KIND ...) ; x-compiling (DEFUN COMPILED-CODE-LOCATION-LIVE-SET ...) ; x-compiling (DEFUN CODE-LOCATION= ...) ; x-compiling (DEFUN SUB-COMPILED-CODE-LOCATION= ...) ; x-compiling (DEFUN FILL-IN-CODE-LOCATION ...) ; x-compiling (DEFMACRO DO-DEBUG-BLOCK-LOCATIONS ...) ; x-compiling (DEFUN DEBUG-BLOCK-FUN-NAME ...) ; x-compiling (DEFUN DEBUG-BLOCK-CODE-LOCATIONS ...) ; x-compiling (DEFUN DEBUG-VAR-SYMBOL-NAME ...) ; x-compiling (DEFUN DEBUG-VAR-PACKAGE-NAME ...) ; x-compiling (DEFUN DEBUG-VAR-VALID-VALUE ...) ; x-compiling (DEFUN DEBUG-VAR-VALUE ...) ; x-compiling (DEFUN ACCESS-COMPILED-DEBUG-VAR-SLOT ...) ; x-compiling (DEFUN MAKE-LISP-OBJ ...) /entering WITH-ALIEN BINDINGS=((VALID-LISP-POINTER-P (FUNCTION SB!ALIEN:INT SYSTEM-AREA-POINTER) :EXTERN "valid_lisp_pointer_p")) /BINDING=(VALID-LISP-POINTER-P (FUNCTION SB!ALIEN:INT SYSTEM-AREA-POINTER) :EXTERN "valid_lisp_pointer_p") /SYMBOL=VALID-LISP-POINTER-P TYPE=(FUNCTION SB!ALIEN:INT SYSTEM-AREA-POINTER) OPT1=:EXTERN OPT2="valid_lisp_pointer_p" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="valid_lisp_pointer_p" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((VALID-LISP-POINTER-P #)) (VALUES (SB!ALIEN:ALIEN-FUNCALL VALID-LISP-POINTER-P POINTER)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; x-compiling (DEFUN SUB-ACCESS-DEBUG-VAR-SLOT ...) /entering WITH-ALIEN BINDINGS=((SB!VM::CONTEXT-REGISTER-ADDR (FUNCTION (* SB!ALIEN:UNSIGNED-INT) (* OS-CONTEXT-T) SB!ALIEN:INT) :EXTERN "os_context_register_addr")) /BINDING=(SB!VM::CONTEXT-REGISTER-ADDR (FUNCTION (* SB!ALIEN:UNSIGNED-INT) (* OS-CONTEXT-T) SB!ALIEN:INT) :EXTERN "os_context_register_addr") /SYMBOL=SB!VM::CONTEXT-REGISTER-ADDR TYPE=(FUNCTION (* SB!ALIEN:UNSIGNED-INT) (* OS-CONTEXT-T) SB!ALIEN:INT) OPT1=:EXTERN OPT2="os_context_register_addr" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="os_context_register_addr" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((SB!VM::CONTEXT-REGISTER-ADDR #)) (VALUES (SB!ALIEN:ALIEN-FUNCALL SB!VM::CONTEXT-REGISTER-ADDR SB!VM::CONTEXT INDEX)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning /entering WITH-ALIEN BINDINGS=((SB!VM::CONTEXT-REGISTER-ADDR (FUNCTION (* SB!ALIEN:UNSIGNED-INT) (* OS-CONTEXT-T) SB!ALIEN:INT) :EXTERN "os_context_register_addr")) /BINDING=(SB!VM::CONTEXT-REGISTER-ADDR (FUNCTION (* SB!ALIEN:UNSIGNED-INT) (* OS-CONTEXT-T) SB!ALIEN:INT) :EXTERN "os_context_register_addr") /SYMBOL=SB!VM::CONTEXT-REGISTER-ADDR TYPE=(FUNCTION (* SB!ALIEN:UNSIGNED-INT) (* OS-CONTEXT-T) SB!ALIEN:INT) OPT1=:EXTERN OPT2="os_context_register_addr" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="os_context_register_addr" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((SB!VM::CONTEXT-REGISTER-ADDR #)) (VALUES (SB!ALIEN:ALIEN-FUNCALL SB!VM::CONTEXT-REGISTER-ADDR SB!VM::CONTEXT INDEX)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning /entering WITH-ALIEN BINDINGS=((SB!VM::CONTEXT-REGISTER-ADDR (FUNCTION (* SB!ALIEN:UNSIGNED-INT) (* OS-CONTEXT-T) SB!ALIEN:INT) :EXTERN "os_context_register_addr")) /BINDING=(SB!VM::CONTEXT-REGISTER-ADDR (FUNCTION (* SB!ALIEN:UNSIGNED-INT) (* OS-CONTEXT-T) SB!ALIEN:INT) :EXTERN "os_context_register_addr") /SYMBOL=SB!VM::CONTEXT-REGISTER-ADDR TYPE=(FUNCTION (* SB!ALIEN:UNSIGNED-INT) (* OS-CONTEXT-T) SB!ALIEN:INT) OPT1=:EXTERN OPT2="os_context_register_addr" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="os_context_register_addr" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((SB!VM::CONTEXT-REGISTER-ADDR #)) (VALUES (SB!ALIEN:ALIEN-FUNCALL SB!VM::CONTEXT-REGISTER-ADDR SB!VM::CONTEXT INDEX)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning /entering WITH-ALIEN BINDINGS=((SB!VM::CONTEXT-REGISTER-ADDR (FUNCTION (* SB!ALIEN:UNSIGNED-INT) (* OS-CONTEXT-T) SB!ALIEN:INT) :EXTERN "os_context_register_addr")) /BINDING=(SB!VM::CONTEXT-REGISTER-ADDR (FUNCTION (* SB!ALIEN:UNSIGNED-INT) (* OS-CONTEXT-T) SB!ALIEN:INT) :EXTERN "os_context_register_addr") /SYMBOL=SB!VM::CONTEXT-REGISTER-ADDR TYPE=(FUNCTION (* SB!ALIEN:UNSIGNED-INT) (* OS-CONTEXT-T) SB!ALIEN:INT) OPT1=:EXTERN OPT2="os_context_register_addr" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="os_context_register_addr" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((SB!VM::CONTEXT-REGISTER-ADDR #)) (VALUES (SB!ALIEN:ALIEN-FUNCALL SB!VM::CONTEXT-REGISTER-ADDR SB!VM::CONTEXT INDEX)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning /entering WITH-ALIEN BINDINGS=((SB!VM::CONTEXT-REGISTER-ADDR (FUNCTION (* SB!ALIEN:UNSIGNED-INT) (* OS-CONTEXT-T) SB!ALIEN:INT) :EXTERN "os_context_register_addr")) /BINDING=(SB!VM::CONTEXT-REGISTER-ADDR (FUNCTION (* SB!ALIEN:UNSIGNED-INT) (* OS-CONTEXT-T) SB!ALIEN:INT) :EXTERN "os_context_register_addr") /SYMBOL=SB!VM::CONTEXT-REGISTER-ADDR TYPE=(FUNCTION (* SB!ALIEN:UNSIGNED-INT) (* OS-CONTEXT-T) SB!ALIEN:INT) OPT1=:EXTERN OPT2="os_context_register_addr" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="os_context_register_addr" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((SB!VM::CONTEXT-REGISTER-ADDR #)) (VALUES (SB!ALIEN:ALIEN-FUNCALL SB!VM::CONTEXT-REGISTER-ADDR SB!VM::CONTEXT INDEX)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/debug-int.lisp ; in: DEFUN SUB-ACCESS-DEBUG-VAR-SLOT ; (SB!DI::WITH-ESCAPED-VALUE (SB!DI::VAL) (CODE-CHAR SB!DI::VAL)) ; --> IF LET SB!VM:CONTEXT-REGISTER BLOCK LET SB!VM::CONTEXT-REGISTER-ADDR ; --> BLOCK SB!ALIEN:WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET ; --> SYMBOL-MACROLET VALUES PROG1 LET SB!ALIEN:ALIEN-FUNCALL ; --> SB!ALIEN-INTERNALS:INVOKE-WITH-SAVED-FP-AND-PC LAMBDA FUNCTION ; --> SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; (SB!DI::WITH-ESCAPED-VALUE (SB!DI::VAL) (SB!SYS:INT-SAP SB!DI::VAL)) ; --> IF LET SB!VM:CONTEXT-REGISTER BLOCK LET SB!VM::CONTEXT-REGISTER-ADDR ; --> BLOCK SB!ALIEN:WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET ; --> SYMBOL-MACROLET VALUES PROG1 LET SB!ALIEN:ALIEN-FUNCALL ; --> SB!ALIEN-INTERNALS:INVOKE-WITH-SAVED-FP-AND-PC LAMBDA FUNCTION ; --> SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; (SB!DI::WITH-ESCAPED-VALUE (SB!DI::VAL) ; (IF (LOGBITP (1- SB!VM:N-WORD-BITS) SB!DI::VAL) ; (LOGIOR SB!DI::VAL (ASH -1 SB!VM:N-WORD-BITS)) ; SB!DI::VAL)) ; --> IF LET SB!VM:CONTEXT-REGISTER BLOCK LET SB!VM::CONTEXT-REGISTER-ADDR ; --> BLOCK SB!ALIEN:WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET ; --> SYMBOL-MACROLET VALUES PROG1 LET SB!ALIEN:ALIEN-FUNCALL ; --> SB!ALIEN-INTERNALS:INVOKE-WITH-SAVED-FP-AND-PC LAMBDA FUNCTION ; --> SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; (SB!DI::WITH-ESCAPED-VALUE (SB!DI::VAL) SB!DI::VAL) ; --> IF LET SB!VM:CONTEXT-REGISTER BLOCK LET SB!VM::CONTEXT-REGISTER-ADDR ; --> BLOCK SB!ALIEN:WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET ; --> SYMBOL-MACROLET VALUES PROG1 LET SB!ALIEN:ALIEN-FUNCALL ; --> SB!ALIEN-INTERNALS:INVOKE-WITH-SAVED-FP-AND-PC LAMBDA FUNCTION ; --> SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; (SB!DI::WITH-ESCAPED-VALUE (SB!DI::VAL) ; (VALUES (SB!KERNEL:MAKE-LISP-OBJ SB!DI::VAL NIL))) ; --> IF LET SB!VM:CONTEXT-REGISTER BLOCK LET SB!VM::CONTEXT-REGISTER-ADDR ; --> BLOCK SB!ALIEN:WITH-ALIEN SYMBOL-MACROLET SYMBOL-MACROLET LET ; --> SYMBOL-MACROLET VALUES PROG1 LET SB!ALIEN:ALIEN-FUNCALL ; --> SB!ALIEN-INTERNALS:INVOKE-WITH-SAVED-FP-AND-PC LAMBDA FUNCTION ; --> SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; x-compiling (DEFUN %SET-DEBUG-VAR-VALUE ...) ; x-compiling (DEFUN SET-COMPILED-DEBUG-VAR-SLOT ...) ; x-compiling (DEFUN SUB-SET-DEBUG-VAR-SLOT ...) ; x-compiling (DEFUN INDIRECT-VALUE-CELL-P ...) ; x-compiling (DEFUN DEBUG-VAR-VALIDITY ...) ; x-compiling (DEFUN DEBUG-VAR-INFO ...) ; x-compiling (DEFUN COMPILED-DEBUG-VAR-VALIDITY ...) ; x-compiling (DEFUN FORM-NUMBER-TRANSLATIONS ...) ; x-compiling (DEFUN SOURCE-PATH-CONTEXT ...) ; x-compiling (DEFUN GET-TOPLEVEL-FORM ...) ; x-compiling (DEFUN SAFE-READTABLE ...) ; x-compiling (DEFUN GET-FILE-TOPLEVEL-FORM ...) ; x-compiling (DEFUN PREPROCESS-FOR-EVAL ...) ; x-compiling (DEFUN EVAL-IN-FRAME ...) ; x-compiling (DEFUN MAKE-BREAKPOINT ...) ; x-compiling (DEFSTRUCT (FUN-END-COOKIE # ...) ...) ; x-compiling (DEFVAR *FUN-END-COOKIES* ...) ; x-compiling (DEFUN FUN-END-STARTER-HOOK ...) ; x-compiling (DEFUN FUN-END-COOKIE-VALID-P ...) ; x-compiling (DEFUN ACTIVATE-BREAKPOINT ...) ; x-compiling (DEFUN ACTIVATE-COMPILED-CODE-LOCATION-BREAKPOINT ...) ; x-compiling (DEFUN ACTIVATE-COMPILED-FUN-START-BREAKPOINT ...) ; x-compiling (DEFUN SUB-ACTIVATE-BREAKPOINT ...) ; x-compiling (DEFUN DEACTIVATE-BREAKPOINT ...) ; x-compiling (DEFUN DEACTIVATE-COMPILED-BREAKPOINT ...) ; x-compiling (DEFUN BREAKPOINT-INFO ...) ; x-compiling (DEFUN %SET-BREAKPOINT-INFO ...) ; x-compiling (DEFUN BREAKPOINT-ACTIVE-P ...) ; x-compiling (DEFUN DELETE-BREAKPOINT ...) ; x-compiling (SB!ALIEN:DEFINE-ALIEN-ROUTINE "breakpoint_install" ...) /entering WITH-ALIEN BINDINGS=((BREAKPOINT-INSTALL (FUNCTION SB!ALIEN:UNSIGNED-INT SB!ALIEN:UNSIGNED SB!ALIEN:INT) :EXTERN "breakpoint_install")) /BINDING=(BREAKPOINT-INSTALL (FUNCTION SB!ALIEN:UNSIGNED-INT SB!ALIEN:UNSIGNED SB!ALIEN:INT) :EXTERN "breakpoint_install") /SYMBOL=BREAKPOINT-INSTALL TYPE=(FUNCTION SB!ALIEN:UNSIGNED-INT SB!ALIEN:UNSIGNED SB!ALIEN:INT) OPT1=:EXTERN OPT2="breakpoint_install" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="breakpoint_install" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((BREAKPOINT-INSTALL #)) (VALUES (SB!ALIEN:ALIEN-FUNCALL BREAKPOINT-INSTALL CODE-OBJ PC-OFFSET)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; x-compiling (SB!ALIEN:DEFINE-ALIEN-ROUTINE "breakpoint_remove" ...) /entering WITH-ALIEN BINDINGS=((BREAKPOINT-REMOVE (FUNCTION SB!ALIEN:VOID SB!ALIEN:UNSIGNED SB!ALIEN:INT SB!ALIEN:UNSIGNED-INT) :EXTERN "breakpoint_remove")) /BINDING=(BREAKPOINT-REMOVE (FUNCTION SB!ALIEN:VOID SB!ALIEN:UNSIGNED SB!ALIEN:INT SB!ALIEN:UNSIGNED-INT) :EXTERN "breakpoint_remove") /SYMBOL=BREAKPOINT-REMOVE TYPE=(FUNCTION SB!ALIEN:VOID SB!ALIEN:UNSIGNED SB!ALIEN:INT SB!ALIEN:UNSIGNED-INT) OPT1=:EXTERN OPT2="breakpoint_remove" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="breakpoint_remove" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((BREAKPOINT-REMOVE #)) (SB!ALIEN:ALIEN-FUNCALL BREAKPOINT-REMOVE CODE-OBJ PC-OFFSET OLD-INST) (VALUES NIL))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; x-compiling (SB!ALIEN:DEFINE-ALIEN-ROUTINE "breakpoint_do_displaced_inst" ...) /entering WITH-ALIEN BINDINGS=((BREAKPOINT-DO-DISPLACED-INST (FUNCTION SB!ALIEN:VOID (* OS-CONTEXT-T) SB!ALIEN:UNSIGNED-INT) :EXTERN "breakpoint_do_displaced_inst")) /BINDING=(BREAKPOINT-DO-DISPLACED-INST (FUNCTION SB!ALIEN:VOID (* OS-CONTEXT-T) SB!ALIEN:UNSIGNED-INT) :EXTERN "breakpoint_do_displaced_inst") /SYMBOL=BREAKPOINT-DO-DISPLACED-INST TYPE=(FUNCTION SB!ALIEN:VOID (* OS-CONTEXT-T) SB!ALIEN:UNSIGNED-INT) OPT1=:EXTERN OPT2="breakpoint_do_displaced_inst" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="breakpoint_do_displaced_inst" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((BREAKPOINT-DO-DISPLACED-INST #)) (SB!ALIEN:ALIEN-FUNCALL BREAKPOINT-DO-DISPLACED-INST SCP ORIG-INST) (VALUES NIL))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; x-compiling (DEFVAR *COMPONENT-BREAKPOINT-OFFSETS* ...) ; x-compiling (DEFUN BREAKPOINT-DATA ...) ; x-compiling (DEFUN DELETE-BREAKPOINT-DATA ...) ; x-compiling (DEFUN HANDLE-BREAKPOINT ...) ; x-compiling (DEFVAR *EXECUTING-BREAKPOINT-HOOKS* ...) ; x-compiling (DEFUN HANDLE-BREAKPOINT-AUX ...) ; x-compiling (DEFUN INVOKE-BREAKPOINT-HOOKS ...) ; x-compiling (DEFUN SIGNAL-CONTEXT-FRAME ...) /entering WITH-ALIEN BINDINGS=((SB!VM::CONTEXT-PC-ADDR (FUNCTION (* SB!ALIEN:UNSIGNED-INT) (* OS-CONTEXT-T)) :EXTERN "os_context_pc_addr")) /BINDING=(SB!VM::CONTEXT-PC-ADDR (FUNCTION (* SB!ALIEN:UNSIGNED-INT) (* OS-CONTEXT-T)) :EXTERN "os_context_pc_addr") /SYMBOL=SB!VM::CONTEXT-PC-ADDR TYPE=(FUNCTION (* SB!ALIEN:UNSIGNED-INT) (* OS-CONTEXT-T)) OPT1=:EXTERN OPT2="os_context_pc_addr" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="os_context_pc_addr" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((SB!VM::CONTEXT-PC-ADDR #)) (VALUES (SB!ALIEN:ALIEN-FUNCALL SB!VM::CONTEXT-PC-ADDR SB!VM::CONTEXT)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning /entering WITH-ALIEN BINDINGS=((SB!VM::CONTEXT-REGISTER-ADDR (FUNCTION (* SB!ALIEN:UNSIGNED-INT) (* OS-CONTEXT-T) SB!ALIEN:INT) :EXTERN "os_context_register_addr")) /BINDING=(SB!VM::CONTEXT-REGISTER-ADDR (FUNCTION (* SB!ALIEN:UNSIGNED-INT) (* OS-CONTEXT-T) SB!ALIEN:INT) :EXTERN "os_context_register_addr") /SYMBOL=SB!VM::CONTEXT-REGISTER-ADDR TYPE=(FUNCTION (* SB!ALIEN:UNSIGNED-INT) (* OS-CONTEXT-T) SB!ALIEN:INT) OPT1=:EXTERN OPT2="os_context_register_addr" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="os_context_register_addr" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((SB!VM::CONTEXT-REGISTER-ADDR #)) (VALUES (SB!ALIEN:ALIEN-FUNCALL SB!VM::CONTEXT-REGISTER-ADDR SB!VM::CONTEXT INDEX)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/debug-int.lisp ; in: DEFUN SIGNAL-CONTEXT-FRAME ; (SB!VM:CONTEXT-PC SB!DI::SCP) ; --> BLOCK LET SB!VM::CONTEXT-PC-ADDR BLOCK SB!ALIEN:WITH-ALIEN ; --> SYMBOL-MACROLET SYMBOL-MACROLET LET SYMBOL-MACROLET VALUES PROG1 LET ; --> SB!ALIEN:ALIEN-FUNCALL SB!ALIEN-INTERNALS:INVOKE-WITH-SAVED-FP-AND-PC ; --> LAMBDA FUNCTION SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; (SB!VM:CONTEXT-REGISTER SB!DI::SCP SB!VM::CFP-OFFSET) ; --> BLOCK LET SB!VM::CONTEXT-REGISTER-ADDR BLOCK SB!ALIEN:WITH-ALIEN ; --> SYMBOL-MACROLET SYMBOL-MACROLET LET SYMBOL-MACROLET VALUES PROG1 LET ; --> SB!ALIEN:ALIEN-FUNCALL SB!ALIEN-INTERNALS:INVOKE-WITH-SAVED-FP-AND-PC ; --> LAMBDA FUNCTION SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; x-compiling (DEFUN HANDLE-FUN-END-BREAKPOINT ...) ; x-compiling (DEFUN HANDLE-FUN-END-BREAKPOINT-AUX ...) ; x-compiling (DEFUN GET-FUN-END-BREAKPOINT-VALUES ...) /entering WITH-ALIEN BINDINGS=((SB!VM::CONTEXT-REGISTER-ADDR (FUNCTION (* SB!ALIEN:UNSIGNED-INT) (* OS-CONTEXT-T) SB!ALIEN:INT) :EXTERN "os_context_register_addr")) /BINDING=(SB!VM::CONTEXT-REGISTER-ADDR (FUNCTION (* SB!ALIEN:UNSIGNED-INT) (* OS-CONTEXT-T) SB!ALIEN:INT) :EXTERN "os_context_register_addr") /SYMBOL=SB!VM::CONTEXT-REGISTER-ADDR TYPE=(FUNCTION (* SB!ALIEN:UNSIGNED-INT) (* OS-CONTEXT-T) SB!ALIEN:INT) OPT1=:EXTERN OPT2="os_context_register_addr" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="os_context_register_addr" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((SB!VM::CONTEXT-REGISTER-ADDR #)) (VALUES (SB!ALIEN:ALIEN-FUNCALL SB!VM::CONTEXT-REGISTER-ADDR SB!VM::CONTEXT INDEX)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning /entering WITH-ALIEN BINDINGS=((SB!VM::CONTEXT-REGISTER-ADDR (FUNCTION (* SB!ALIEN:UNSIGNED-INT) (* OS-CONTEXT-T) SB!ALIEN:INT) :EXTERN "os_context_register_addr")) /BINDING=(SB!VM::CONTEXT-REGISTER-ADDR (FUNCTION (* SB!ALIEN:UNSIGNED-INT) (* OS-CONTEXT-T) SB!ALIEN:INT) :EXTERN "os_context_register_addr") /SYMBOL=SB!VM::CONTEXT-REGISTER-ADDR TYPE=(FUNCTION (* SB!ALIEN:UNSIGNED-INT) (* OS-CONTEXT-T) SB!ALIEN:INT) OPT1=:EXTERN OPT2="os_context_register_addr" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="os_context_register_addr" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((SB!VM::CONTEXT-REGISTER-ADDR #)) (VALUES (SB!ALIEN:ALIEN-FUNCALL SB!VM::CONTEXT-REGISTER-ADDR SB!VM::CONTEXT INDEX)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning /entering WITH-ALIEN BINDINGS=((SB!VM::CONTEXT-REGISTER-ADDR (FUNCTION (* SB!ALIEN:UNSIGNED-INT) (* OS-CONTEXT-T) SB!ALIEN:INT) :EXTERN "os_context_register_addr")) /BINDING=(SB!VM::CONTEXT-REGISTER-ADDR (FUNCTION (* SB!ALIEN:UNSIGNED-INT) (* OS-CONTEXT-T) SB!ALIEN:INT) :EXTERN "os_context_register_addr") /SYMBOL=SB!VM::CONTEXT-REGISTER-ADDR TYPE=(FUNCTION (* SB!ALIEN:UNSIGNED-INT) (* OS-CONTEXT-T) SB!ALIEN:INT) OPT1=:EXTERN OPT2="os_context_register_addr" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="os_context_register_addr" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((SB!VM::CONTEXT-REGISTER-ADDR #)) (VALUES (SB!ALIEN:ALIEN-FUNCALL SB!VM::CONTEXT-REGISTER-ADDR SB!VM::CONTEXT INDEX)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/debug-int.lisp ; in: DEFUN GET-FUN-END-BREAKPOINT-VALUES ; (SB!VM:CONTEXT-REGISTER SB!DI::SCP SB!VM::EBX-OFFSET) ; --> BLOCK LET SB!VM::CONTEXT-REGISTER-ADDR BLOCK SB!ALIEN:WITH-ALIEN ; --> SYMBOL-MACROLET SYMBOL-MACROLET LET SYMBOL-MACROLET VALUES PROG1 LET ; --> SB!ALIEN:ALIEN-FUNCALL SB!ALIEN-INTERNALS:INVOKE-WITH-SAVED-FP-AND-PC ; --> LAMBDA FUNCTION SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; (SB!VM:CONTEXT-REGISTER SB!DI::SCP SB!VM::NARGS-OFFSET) ; --> BLOCK LET SB!VM::CONTEXT-REGISTER-ADDR BLOCK SB!ALIEN:WITH-ALIEN ; --> SYMBOL-MACROLET SYMBOL-MACROLET LET SYMBOL-MACROLET VALUES PROG1 LET ; --> SB!ALIEN:ALIEN-FUNCALL SB!ALIEN-INTERNALS:INVOKE-WITH-SAVED-FP-AND-PC ; --> LAMBDA FUNCTION SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; (SB!VM:CONTEXT-REGISTER SB!DI::SCP (POP SB!DI::REG-ARG-OFFSETS)) ; --> BLOCK LET SB!VM::CONTEXT-REGISTER-ADDR BLOCK SB!ALIEN:WITH-ALIEN ; --> SYMBOL-MACROLET SYMBOL-MACROLET LET SYMBOL-MACROLET VALUES PROG1 LET ; --> SB!ALIEN:ALIEN-FUNCALL SB!ALIEN-INTERNALS:INVOKE-WITH-SAVED-FP-AND-PC ; --> LAMBDA FUNCTION SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; x-compiling (DEFCONSTANT BOGUS-LRA-CONSTANTS ...) ; x-compiling (DEFUN MAKE-BOGUS-LRA ...) ; x-compiling (DEFUN DEBUG-FUN-START-LOCATION ...) ; x-compiling (DEFUN HANDLE-SINGLE-STEP-TRAP ...) ; x-compiling (DEFVAR *STEP-FRAME* ...) ; x-compiling (DEFUN HANDLE-SINGLE-STEP-BEFORE-TRAP ...) ; x-compiling (DEFUN HANDLE-SINGLE-STEP-AROUND-TRAP ...) /entering WITH-ALIEN BINDINGS=((SB!VM::CONTEXT-REGISTER-ADDR (FUNCTION (* SB!ALIEN:UNSIGNED-INT) (* OS-CONTEXT-T) SB!ALIEN:INT) :EXTERN "os_context_register_addr")) /BINDING=(SB!VM::CONTEXT-REGISTER-ADDR (FUNCTION (* SB!ALIEN:UNSIGNED-INT) (* OS-CONTEXT-T) SB!ALIEN:INT) :EXTERN "os_context_register_addr") /SYMBOL=SB!VM::CONTEXT-REGISTER-ADDR TYPE=(FUNCTION (* SB!ALIEN:UNSIGNED-INT) (* OS-CONTEXT-T) SB!ALIEN:INT) OPT1=:EXTERN OPT2="os_context_register_addr" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="os_context_register_addr" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((SB!VM::CONTEXT-REGISTER-ADDR #)) (VALUES (SB!ALIEN:ALIEN-FUNCALL SB!VM::CONTEXT-REGISTER-ADDR SB!VM::CONTEXT INDEX)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/debug-int.lisp ; in: DEFUN HANDLE-SINGLE-STEP-AROUND-TRAP ; (SB!VM:CONTEXT-REGISTER SB!DI::CONTEXT SB!DI::CALLEE-REGISTER-OFFSET) ; --> BLOCK LET SB!VM::CONTEXT-REGISTER-ADDR BLOCK SB!ALIEN:WITH-ALIEN ; --> SYMBOL-MACROLET SYMBOL-MACROLET LET SYMBOL-MACROLET VALUES PROG1 LET ; --> SB!ALIEN:ALIEN-FUNCALL SB!ALIEN-INTERNALS:INVOKE-WITH-SAVED-FP-AND-PC ; --> LAMBDA FUNCTION SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; x-compiling (DEFUN SINGLE-STEP-INFO-FROM-CONTEXT ...) /entering WITH-ALIEN BINDINGS=((SB!VM::CONTEXT-PC-ADDR (FUNCTION (* SB!ALIEN:UNSIGNED-INT) (* OS-CONTEXT-T)) :EXTERN "os_context_pc_addr")) /BINDING=(SB!VM::CONTEXT-PC-ADDR (FUNCTION (* SB!ALIEN:UNSIGNED-INT) (* OS-CONTEXT-T)) :EXTERN "os_context_pc_addr") /SYMBOL=SB!VM::CONTEXT-PC-ADDR TYPE=(FUNCTION (* SB!ALIEN:UNSIGNED-INT) (* OS-CONTEXT-T)) OPT1=:EXTERN OPT2="os_context_pc_addr" /ALIEN-TYPE=# /ALLOCATION=:EXTERN INITIAL-VALUE="os_context_pc_addr" /:EXTERN case /revised BODY=((SYMBOL-MACROLET ((SB!VM::CONTEXT-PC-ADDR #)) (VALUES (SB!ALIEN:ALIEN-FUNCALL SB!VM::CONTEXT-PC-ADDR SB!VM::CONTEXT)))) /back from VERIFY-LOCAL-AUXILIARIES-OK, returning ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/debug-int.lisp ; in: DEFUN SINGLE-STEP-INFO-FROM-CONTEXT ; (SB!VM:CONTEXT-PC SB!DI::CONTEXT) ; --> BLOCK LET SB!VM::CONTEXT-PC-ADDR BLOCK SB!ALIEN:WITH-ALIEN ; --> SYMBOL-MACROLET SYMBOL-MACROLET LET SYMBOL-MACROLET VALUES PROG1 LET ; --> SB!ALIEN:ALIEN-FUNCALL SB!ALIEN-INTERNALS:INVOKE-WITH-SAVED-FP-AND-PC ; --> LAMBDA FUNCTION SB!ALIEN-INTERNALS:NATURALIZE ; ==> ; (SB!ALIEN-INTERNALS:%SAP-ALIEN SB!ALIEN:ALIEN ; '#) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; x-compiling (DEFUN FIND-STEPPED-FRAME ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/debug-int.lisp ; in: DEFUN HANDLE-SINGLE-STEP-AROUND-TRAP ; (SB!IMPL::STEP-FORM SB!DI::STEP-INFO SB!DI::ARGS) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::STEP-FORM ; in: DEFUN HANDLE-SINGLE-STEP-BEFORE-TRAP ; (SB!IMPL::STEP-FORM SB!DI::STEP-INFO :UNKNOWN) ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::STEP-FORM ; in: DEFUN HANDLE-SINGLE-STEP-AROUND-TRAP ; #'SB!IMPL::STEP-VALUES ; ; caught STYLE-WARNING: ; undefined function: SB!IMPL::STEP-VALUES ; ; compilation unit finished ; Undefined functions: ; SB!IMPL::STEP-FORM SB!IMPL::STEP-VALUES ; caught 6 STYLE-WARNING conditions ; printed 18 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/debug-int.lisp-obj-tmp written ; compilation finished in 0:00:02.058 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/target-disassem.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!DISASSEM") ; x-compiling (DEFUN INST-SPECIALIZES-P ...) ; x-compiling (DEFUN SPECIALIZER-RANK ...) ; x-compiling (DEFUN ORDER-SPECIALIZERS ...) ; x-compiling (DEFUN SPECIALIZATION-ERROR ...) ; x-compiling (DEFUN TRY-SPECIALIZING ...) ; x-compiling (DECLAIM (INLINE INST-MATCHES-P ...)) ; x-compiling (DEFUN INST-MATCHES-P ...) ; x-compiling (DEFUN CHOOSE-INST-SPECIALIZATION ...) ; x-compiling (DEFUN FIND-INST ...) ; x-compiling (DEFUN BUILD-INST-SPACE ...) ; x-compiling (DEFUN PRINT-MASKED-BINARY ...) ; x-compiling (DEFUN PRINT-INST-BITS ...) ; x-compiling (DEFUN PRINT-INST-SPACE ...) ; x-compiling (DECLAIM (INLINE WORDS-TO-BYTES ...)) ; x-compiling (DEFUN WORDS-TO-BYTES ...) ; x-compiling (DEFUN BYTES-TO-WORDS ...) ; x-compiling (DEFCONSTANT LRA-SIZE ...) ; x-compiling (DEFSTRUCT (OFFS-HOOK #) ...) ; x-compiling (DEFSTRUCT (SEGMENT # ...) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/target-disassem.lisp ; in: DEFSTRUCT SEGMENT ; (DEFSTRUCT ; (SB!DISASSEM:SEGMENT (:CONC-NAME SB!DISASSEM::SEG-) ; (:CONSTRUCTOR SB!DISASSEM::%MAKE-SEGMENT) (:COPIER NIL)) ; (SB!DISASSEM::SAP-MAKER (SB!INT:MISSING-ARG) :TYPE ; (FUNCTION NIL SB!SYS:SYSTEM-AREA-POINTER)) ; (LENGTH 0 :TYPE SB!DISASSEM::DISASSEM-LENGTH) ; (SB!DISASSEM::OPCODES-LENGTH 0 :TYPE SB!DISASSEM::DISASSEM-LENGTH) ; (SB!DISASSEM::VIRTUAL-LOCATION 0 :TYPE SB!DISASSEM::ADDRESS) ; (SB!DISASSEM::STORAGE-INFO NIL :TYPE (OR NULL SB!DISASSEM::STORAGE-INFO)) ; (SB!DISASSEM::CODE NIL :TYPE (OR NULL SB!KERNEL:CODE-COMPONENT)) ; (SB!DISASSEM::UNBOXED-DATA-RANGE NIL :TYPE (OR NULL (CONS FIXNUM FIXNUM))) ; (SB!DISASSEM::HOOKS NIL :TYPE LIST)) ; --> PROGN EVAL-WHEN ; ==> ; (SB!KERNEL::%COMPILER-DEFSTRUCT ; '# ; '#(# ; #)) ; ; caught STYLE-WARNING: ; Previously compiled call to SB!DISASSEM:SEG-VIRTUAL-LOCATION could not be ; inlined because the structure definition for SB!DISASSEM:SEGMENT was not yet ; seen. To avoid this warning, DEFSTRUCT should precede references to the ; affected functions, or they must be declared locally notinline at each call ; site. ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFUN FUN-SELF ...) ; x-compiling (DEFUN FUN-CODE ...) ; x-compiling (DEFUN FUN-NEXT ...) ; x-compiling (DEFUN FUN-ADDRESS ...) ; x-compiling (DEFUN FUN-INSTS-OFFSET ...) ; x-compiling (DEFUN FUN-OFFSET ...) ; x-compiling (DEFUN CODE-INST-AREA-LENGTH ...) ; x-compiling (DEFUN CODE-INST-AREA-ADDRESS ...) ; x-compiling (DEFUN SEGMENT-OFFS-TO-CODE-OFFS ...) ; x-compiling (DEFUN CODE-OFFS-TO-SEGMENT-OFFS ...) ; x-compiling (DEFUN CODE-INSTS-OFFS-TO-SEGMENT-OFFS ...) ; x-compiling (DEFUN LRA-HOOK ...) ; x-compiling (DEFUN FUN-HEADER-HOOK ...) ; x-compiling (DEFUN ALIGNMENT-HOOK ...) ; x-compiling (DEFUN REWIND-CURRENT-SEGMENT ...) ; x-compiling (DEFUN CALL-OFFS-HOOKS ...) ; x-compiling (DEFUN CALL-FUN-HOOKS ...) ; x-compiling (DEFUN PAD-INST-COLUMN ...) ; x-compiling (DEFUN HANDLE-BOGUS-INSTRUCTION ...) ; x-compiling (DEFUN MAP-SEGMENT-INSTRUCTIONS ...) ; x-compiling (DEFUN ADD-SEGMENT-LABELS ...) ; x-compiling (DEFUN NUMBER-LABELS ...) ; x-compiling (DEFUN GET-INST-SPACE ...) ; x-compiling (DEFUN ADD-OFFS-HOOK ...) ; x-compiling (DEFUN ADD-OFFS-NOTE-HOOK ...) ; x-compiling (DEFUN ADD-OFFS-COMMENT-HOOK ...) ; x-compiling (DEFUN ADD-FUN-HOOK ...) ; x-compiling (DEFUN SET-LOCATION-PRINTING-RANGE ...) ; x-compiling (DEFUN PRINT-CURRENT-ADDRESS ...) ; x-compiling (DEFUN PRINT-NOTES-AND-NEWLINE ...) ; x-compiling (DEFUN PRINT-INST ...) ; x-compiling (DEFUN PRINT-BYTES ...) ; x-compiling (DEFUN PRINT-WORDS ...) ; x-compiling (DEFVAR *DEFAULT-DSTATE-HOOKS* ...) ; x-compiling (DEFUN MAKE-DSTATE ...) ; x-compiling (DEFUN ADD-FUN-HEADER-HOOKS ...) ; x-compiling (DECLAIM (INLINE SAP-MAKER)) ; x-compiling (DEFUN SAP-MAKER ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/target-disassem.lisp ; in: DEFUN SAP-MAKER ; (+ (SB!SYS:SAP-INT (FUNCALL FUNCTION SB!DISASSEM::INPUT)) SB!DISASSEM::OFFSET) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM. ; The result is a (VALUES (INTEGER -8388608 4303355902) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST ; T). ; unable to do inline (signed-byte 32) arithmetic (cost 5) because: ; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32). ; The result is a (VALUES (INTEGER -8388608 4303355902) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 32) ; &REST ; T). ; etc. ; (LET ((SB!DISASSEM::OLD-SAP ; (SB!SYS:SAP+ (FUNCALL FUNCTION SB!DISASSEM::INPUT) ; SB!DISASSEM::OFFSET))) ; (DECLARE (TYPE SB!SYS:SYSTEM-AREA-POINTER SB!DISASSEM::OLD-SAP)) ; (LAMBDA () ; (LET ((SB!DISASSEM::NEW-ADDR #)) ; (DECLARE (TYPE SB!DISASSEM::ADDRESS SB!DISASSEM::NEW-ADDR)) ; (IF (= # SB!DISASSEM::NEW-ADDR) ; SB!DISASSEM::OLD-SAP ; (SETF #))))) ; ; note: doing SAP to pointer coercion (cost 20), for: ; the first argument of MAKE-VALUE-CELL ; (+ (SB!SYS:SAP-INT (FUNCALL FUNCTION SB!DISASSEM::INPUT)) SB!DISASSEM::OFFSET) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first argument of GENERIC-+ ; (SB!SYS:INT-SAP SB!DISASSEM::NEW-ADDR) ; ; note: doing SAP to pointer coercion (cost 20), for: ; the first result of INT-SAP ; x-compiling (DEFUN VECTOR-SAP-MAKER ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/target-disassem.lisp ; in: DEFUN VECTOR-SAP-MAKER ; (SB!DISASSEM::SAP-MAKER #'SB!SYS:VECTOR-SAP VECTOR SB!DISASSEM::OFFSET) ; --> BLOCK LET LAMBDA FUNCTION LET ; ==> ; (+ (SB!SYS:SAP-INT (FUNCALL FUNCTION SB!DISASSEM::INPUT)) SB!DISASSEM::OFFSET) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM. ; The result is a (VALUES (INTEGER -8388608 4303355902) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST ; T). ; unable to do inline (signed-byte 32) arithmetic (cost 5) because: ; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32). ; The result is a (VALUES (INTEGER -8388608 4303355902) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 32) ; &REST ; T). ; etc. ; --> BLOCK ; ==> ; (LET ((SB!DISASSEM::OLD-SAP ; (SB!SYS:SAP+ (FUNCALL FUNCTION SB!DISASSEM::INPUT) ; SB!DISASSEM::OFFSET))) ; (DECLARE (TYPE SB!SYS:SYSTEM-AREA-POINTER SB!DISASSEM::OLD-SAP)) ; (LAMBDA () ; (LET ((SB!DISASSEM::NEW-ADDR #)) ; (DECLARE (TYPE SB!DISASSEM::ADDRESS SB!DISASSEM::NEW-ADDR)) ; (IF (= # SB!DISASSEM::NEW-ADDR) ; SB!DISASSEM::OLD-SAP ; (SETF #))))) ; ; note: doing SAP to pointer coercion (cost 20), for: ; the first argument of MAKE-VALUE-CELL ; --> BLOCK LET LAMBDA FUNCTION LET ; ==> ; (+ (SB!SYS:SAP-INT (FUNCALL FUNCTION SB!DISASSEM::INPUT)) SB!DISASSEM::OFFSET) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first argument of GENERIC-+ ; --> BLOCK LET LAMBDA FUNCTION LET IF SETF SETQ THE ; ==> ; (SB!SYS:INT-SAP SB!DISASSEM::NEW-ADDR) ; ; note: doing SAP to pointer coercion (cost 20), for: ; the first result of INT-SAP ; x-compiling (DEFUN CODE-SAP-MAKER ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/target-disassem.lisp ; in: DEFUN CODE-SAP-MAKER ; (SB!DISASSEM::SAP-MAKER #'SB!KERNEL:CODE-INSTRUCTIONS SB!DISASSEM::CODE ; SB!DISASSEM::OFFSET) ; --> BLOCK LET LAMBDA FUNCTION LET ; ==> ; (+ (SB!SYS:SAP-INT (FUNCALL FUNCTION SB!DISASSEM::INPUT)) SB!DISASSEM::OFFSET) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM. ; The result is a (VALUES (INTEGER -8388608 4303355902) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST ; T). ; unable to do inline (signed-byte 32) arithmetic (cost 5) because: ; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32). ; The result is a (VALUES (INTEGER -8388608 4303355902) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 32) ; &REST ; T). ; etc. ; --> BLOCK ; ==> ; (LET ((SB!DISASSEM::OLD-SAP ; (SB!SYS:SAP+ (FUNCALL FUNCTION SB!DISASSEM::INPUT) ; SB!DISASSEM::OFFSET))) ; (DECLARE (TYPE SB!SYS:SYSTEM-AREA-POINTER SB!DISASSEM::OLD-SAP)) ; (LAMBDA () ; (LET ((SB!DISASSEM::NEW-ADDR #)) ; (DECLARE (TYPE SB!DISASSEM::ADDRESS SB!DISASSEM::NEW-ADDR)) ; (IF (= # SB!DISASSEM::NEW-ADDR) ; SB!DISASSEM::OLD-SAP ; (SETF #))))) ; ; note: doing SAP to pointer coercion (cost 20), for: ; the first argument of MAKE-VALUE-CELL ; --> BLOCK LET LAMBDA FUNCTION LET ; ==> ; (+ (SB!SYS:SAP-INT (FUNCALL FUNCTION SB!DISASSEM::INPUT)) SB!DISASSEM::OFFSET) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first argument of GENERIC-+ ; --> BLOCK LET LAMBDA FUNCTION LET IF SETF SETQ THE ; ==> ; (SB!SYS:INT-SAP SB!DISASSEM::NEW-ADDR) ; ; note: doing SAP to pointer coercion (cost 20), for: ; the first result of INT-SAP ; x-compiling (DEFUN MEMORY-SAP-MAKER ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/target-disassem.lisp ; in: DEFUN MEMORY-SAP-MAKER ; (LAMBDA () SB!DISASSEM::SAP) ; --> FUNCTION SB!C::%%ALLOCATE-CLOSURES ; ==> ; (SB!C::%ALLOCATE-CLOSURES ; '(# ; :WHERE-FROM :DEFINED ; :VARS NIL {FB3F119}>)) ; ; note: doing SAP to pointer coercion (cost 20), for: ; the second argument of CLOSURE-INIT ; x-compiling (DEFUN MAKE-SEGMENT ...) ; x-compiling (DEFUN MAKE-VECTOR-SEGMENT ...) ; x-compiling (DEFUN MAKE-CODE-SEGMENT ...) ; x-compiling (DEFUN MAKE-MEMORY-SEGMENT ...) ; x-compiling (DEFUN PRINT-FUN-HEADERS ...) ; x-compiling (DEFSTRUCT (SOURCE-FORM-CACHE # ...) ...) ; x-compiling (DEFUN GET-DIFFERENT-SOURCE-FORM ...) ; x-compiling (DEFUN CODE-FUN-MAP ...) ; x-compiling (DEFSTRUCT (LOCATION-GROUP #) ...) ; x-compiling (DEFSTRUCT (STORAGE-INFO #) ...) ; x-compiling (DEFUN DSTATE-DEBUG-VARS ...) ; x-compiling (DEFUN FIND-VALID-STORAGE-LOCATION ...) ; x-compiling (DEFUN GROW-VECTOR ...) ; x-compiling (DEFUN STORAGE-INFO-FOR-DEBUG-FUN ...) ; x-compiling (DEFUN SOURCE-AVAILABLE-P ...) ; x-compiling (DEFUN PRINT-BLOCK-BOUNDARY ...) ; x-compiling (DEFUN ADD-SOURCE-TRACKING-HOOKS ...) ; x-compiling (DEFVAR *DISASSEMBLE-ANNOTATE* ...) ; x-compiling (DEFUN ADD-DEBUGGING-HOOKS ...) ; x-compiling (DEFUN GET-FUN-SEGMENTS ...) ; x-compiling (DEFUN GET-CODE-SEGMENTS ...) ; x-compiling (DEFUN LABEL-SEGMENTS ...) ; x-compiling (DEFUN DISASSEMBLE-SEGMENT ...) ; x-compiling (DEFUN DISASSEMBLE-SEGMENTS ...) ; x-compiling (DEFUN DISASSEMBLE-FUN ...) ; x-compiling (DEFUN VALID-EXTENDED-FUNCTION-DESIGNATORS-FOR-DISASSEMBLE-P ...) ; x-compiling (DEFUN COMPILED-FUNS-OR-LOSE ...) ; x-compiling (DEFUN DISASSEMBLE ...) ; x-compiling (DEFUN DISASSEMBLE-MEMORY ...) ; x-compiling (DEFUN DISASSEMBLE-CODE-COMPONENT ...) ; x-compiling (DEFUN ASSEM-SEGMENT-TO-DISASSEM-SEGMENT ...) ; x-compiling (DEFUN DISASSEMBLE-ASSEM-SEGMENT ...) ; x-compiling (DEFPARAMETER *GROKKED-SYMBOL-SLOTS* ...) ; x-compiling (DEFUN GROK-SYMBOL-SLOT-REF ...) ; x-compiling (DEFVAR *ADDRESS-OF-NIL-OBJECT* ...) ; x-compiling (DEFUN GROK-NIL-INDEXED-SYMBOL-SLOT-REF ...) ; x-compiling (DEFUN GET-NIL-INDEXED-OBJECT ...) ; x-compiling (DEFUN GET-CODE-CONSTANT ...) ; x-compiling (DEFUN GET-CODE-CONSTANT-ABSOLUTE ...) ; x-compiling (DEFVAR *ASSEMBLER-ROUTINES-BY-ADDR* ...) ; x-compiling (DEFVAR *FOREIGN-SYMBOLS-BY-ADDR* ...) ; x-compiling (DEFUN INVERT-ADDRESS-HASH ...) ; x-compiling (DEFUN FIND-ASSEMBLER-ROUTINE ...) ; x-compiling (DECLAIM (MAYBE-INLINE SAP-REF-INT ...)) ; x-compiling (DEFUN SAP-REF-INT ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/target-disassem.lisp ; in: DEFUN SAP-REF-INT ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::OFFSET)) 32) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The result is a (VALUES (MOD 1095216660481) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The result is a (VALUES (MOD 1095216660481) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; (+ (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::OFFSET)) 8) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::OFFSET)) 16) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)) 24) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::OFFSET)) 32) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::OFFSET)) 40) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::OFFSET)) 48) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 7 SB!DISASSEM::OFFSET)) 56)) ; --> + + + ; ==> ; (+ ; (+ ; (+ (+ (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET) (ASH # 8)) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP #) 16)) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)) 24)) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::OFFSET)) 32)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM. ; The second argument is a (MOD 1095216660481), not a FIXNUM. ; The result is a (VALUES (UNSIGNED-BYTE 40) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline (signed-byte 32) arithmetic (cost 5) because: ; The first argument is a (UNSIGNED-BYTE 32), not a (SIGNED-BYTE 32). ; The second argument is a (MOD 1095216660481), not a (SIGNED-BYTE 32). ; The result is a (VALUES (UNSIGNED-BYTE 40) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 32) ; &REST T). ; etc. ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::OFFSET)) 40) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The result is a (VALUES (MOD 280375465082881) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The result is a (VALUES (MOD 280375465082881) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; (+ (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::OFFSET)) 8) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::OFFSET)) 16) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)) 24) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::OFFSET)) 32) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::OFFSET)) 40) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::OFFSET)) 48) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 7 SB!DISASSEM::OFFSET)) 56)) ; --> + + ; ==> ; (+ ; (+ (+ (+ (+ # #) (ASH # 16)) (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP #) 24)) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::OFFSET)) 32)) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::OFFSET)) 40)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 40), not a FIXNUM. ; The second argument is a (MOD 280375465082881), not a FIXNUM. ; The result is a (VALUES (UNSIGNED-BYTE 48) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline (signed-byte 32) arithmetic (cost 5) because: ; The first argument is a (UNSIGNED-BYTE 40), not a (SIGNED-BYTE 32). ; The second argument is a (MOD 280375465082881), not a (SIGNED-BYTE 32). ; The result is a (VALUES (UNSIGNED-BYTE 48) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 32) ; &REST T). ; etc. ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::OFFSET)) 48) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The result is a (VALUES (MOD 71776119061217281) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST ; T). ; unable to do inline ASH (cost 3) because: ; The result is a (VALUES (MOD 71776119061217281) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST ; T). ; etc. ; (+ (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::OFFSET)) 8) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::OFFSET)) 16) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)) 24) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::OFFSET)) 32) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::OFFSET)) 40) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::OFFSET)) 48) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 7 SB!DISASSEM::OFFSET)) 56)) ; --> + ; ==> ; (+ ; (+ (+ (+ (+ # #) (ASH # 24)) (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP #) 32)) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::OFFSET)) 40)) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::OFFSET)) 48)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 48), not a FIXNUM. ; The second argument is a (MOD 71776119061217281), not a FIXNUM. ; The result is a (VALUES (UNSIGNED-BYTE 56) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline (signed-byte 32) arithmetic (cost 5) because: ; The first argument is a (UNSIGNED-BYTE 48), not a (SIGNED-BYTE 32). ; The second argument is a (MOD 71776119061217281), not a (SIGNED-BYTE 32). ; The result is a (VALUES (UNSIGNED-BYTE 56) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 32) ; &REST T). ; etc. ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 7 SB!DISASSEM::OFFSET)) 56) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The result is a (VALUES (MOD 18374686479671623681) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST ; T). ; unable to do inline ASH (cost 3) because: ; The result is a (VALUES (MOD 18374686479671623681) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST ; T). ; etc. ; (+ (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::OFFSET)) 8) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::OFFSET)) 16) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)) 24) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::OFFSET)) 32) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::OFFSET)) 40) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::OFFSET)) 48) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 7 SB!DISASSEM::OFFSET)) 56)) ; ==> ; (+ ; (+ (+ (+ (+ # #) (ASH # 32)) (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP #) 40)) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::OFFSET)) 48)) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 7 SB!DISASSEM::OFFSET)) 56)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 56), not a FIXNUM. ; The second argument is a (MOD 18374686479671623681), not a FIXNUM. ; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline (signed-byte 32) arithmetic (cost 5) because: ; The first argument is a (UNSIGNED-BYTE 56), not a (SIGNED-BYTE 32). ; The second argument is a (MOD 18374686479671623681), not a (SIGNED-BYTE ; 32). ; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 32) ; &REST T). ; etc. ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET) 56) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The result is a (VALUES (MOD 18374686479671623681) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST ; T). ; unable to do inline ASH (cost 3) because: ; The result is a (VALUES (MOD 18374686479671623681) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST ; T). ; etc. ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::OFFSET)) 48) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The result is a (VALUES (MOD 71776119061217281) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST ; T). ; unable to do inline ASH (cost 3) because: ; The result is a (VALUES (MOD 71776119061217281) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST ; T). ; etc. ; (+ (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET) 56) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::OFFSET)) 48) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::OFFSET)) 40) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)) 32) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::OFFSET)) 24) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::OFFSET)) 16) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::OFFSET)) 8) ; (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 7 SB!DISASSEM::OFFSET))) ; --> + + + + + + ; ==> ; (+ (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET) 56) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::OFFSET)) 48)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD 18374686479671623681), not a FIXNUM. ; The second argument is a (MOD 71776119061217281), not a FIXNUM. ; The result is a (VALUES (MOD 18446462598732840961) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST ; T). ; unable to do inline (signed-byte 32) arithmetic (cost 5) because: ; The first argument is a (MOD 18374686479671623681), not a (SIGNED-BYTE 32). ; The second argument is a (MOD 71776119061217281), not a (SIGNED-BYTE 32). ; The result is a (VALUES (MOD 18446462598732840961) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 32) ; &REST ; T). ; etc. ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::OFFSET)) 40) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The result is a (VALUES (MOD 280375465082881) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The result is a (VALUES (MOD 280375465082881) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; (+ (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET) 56) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::OFFSET)) 48) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::OFFSET)) 40) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)) 32) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::OFFSET)) 24) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::OFFSET)) 16) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::OFFSET)) 8) ; (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 7 SB!DISASSEM::OFFSET))) ; --> + + + + + ; ==> ; (+ ; (+ (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET) 56) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::OFFSET)) 48)) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::OFFSET)) 40)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD 18446462598732840961), not a FIXNUM. ; The second argument is a (MOD 280375465082881), not a FIXNUM. ; The result is a (VALUES (MOD 18446742974197923841) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST ; T). ; unable to do inline (signed-byte 32) arithmetic (cost 5) because: ; The first argument is a (MOD 18446462598732840961), not a (SIGNED-BYTE 32). ; The second argument is a (MOD 280375465082881), not a (SIGNED-BYTE 32). ; The result is a (VALUES (MOD 18446742974197923841) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 32) ; &REST ; T). ; etc. ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)) 32) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The result is a (VALUES (MOD 1095216660481) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The result is a (VALUES (MOD 1095216660481) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; (+ (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET) 56) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::OFFSET)) 48) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::OFFSET)) 40) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)) 32) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::OFFSET)) 24) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::OFFSET)) 16) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::OFFSET)) 8) ; (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 7 SB!DISASSEM::OFFSET))) ; --> + + + + ; ==> ; (+ ; (+ ; (+ (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET) 56) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP #) 48)) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::OFFSET)) 40)) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)) 32)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD 18446742974197923841), not a FIXNUM. ; The second argument is a (MOD 1095216660481), not a FIXNUM. ; The result is a (VALUES (MOD 18446744069414584321) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST ; T). ; unable to do inline (signed-byte 32) arithmetic (cost 5) because: ; The first argument is a (MOD 18446742974197923841), not a (SIGNED-BYTE 32). ; The second argument is a (MOD 1095216660481), not a (SIGNED-BYTE 32). ; The result is a (VALUES (MOD 18446744069414584321) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 32) ; &REST ; T). ; etc. ; --> + + + ; ==> ; (+ ; (+ ; (+ (+ (ASH # 56) (ASH # 48)) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP #) 40)) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)) 32)) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::OFFSET)) 24)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD 18446744069414584321), not a FIXNUM. ; The second argument is a (MOD 4278190081), not a FIXNUM. ; The result is a (VALUES (MOD 18446744073692774401) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST ; T). ; unable to do inline (signed-byte 32) arithmetic (cost 5) because: ; The first argument is a (MOD 18446744069414584321), not a (SIGNED-BYTE 32). ; The second argument is a (MOD 4278190081), not a (SIGNED-BYTE 32). ; The result is a (VALUES (MOD 18446744073692774401) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 32) ; &REST ; T). ; etc. ; --> + + ; ==> ; (+ ; (+ (+ (+ (+ # #) (ASH # 40)) (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP #) 32)) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::OFFSET)) 24)) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::OFFSET)) 16)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD 18446744073692774401), not a FIXNUM. ; The result is a (VALUES (MOD 18446744073709486081) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST ; T). ; unable to do inline (signed-byte 32) arithmetic (cost 5) because: ; The first argument is a (MOD 18446744073692774401), not a (SIGNED-BYTE 32). ; The result is a (VALUES (MOD 18446744073709486081) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 32) ; &REST ; T). ; etc. ; --> + ; ==> ; (+ ; (+ (+ (+ (+ # #) (ASH # 32)) (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP #) 24)) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::OFFSET)) 16)) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::OFFSET)) 8)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD 18446744073709486081), not a FIXNUM. ; The result is a (VALUES (MOD 18446744073709551361) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST ; T). ; unable to do inline (signed-byte 32) arithmetic (cost 5) because: ; The first argument is a (MOD 18446744073709486081), not a (SIGNED-BYTE 32). ; The result is a (VALUES (MOD 18446744073709551361) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 32) ; &REST ; T). ; etc. ; ==> ; (+ ; (+ (+ (+ (+ # #) (ASH # 24)) (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP #) 16)) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::OFFSET)) 8)) ; (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 7 SB!DISASSEM::OFFSET))) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD 18446744073709551361), not a FIXNUM. ; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline (signed-byte 32) arithmetic (cost 5) because: ; The first argument is a (MOD 18446744073709551361), not a (SIGNED-BYTE 32). ; The result is a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 32) ; &REST T). ; etc. ; (+ (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET) 24) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::OFFSET)) 16) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::OFFSET)) 8) ; (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET))) ; ==> ; (+ ; (+ ; (+ (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET) 24) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP #) 16)) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::OFFSET)) 8)) ; (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET))) ; ; note: doing unsigned word to integer coercion (cost 20) to "" ; (+ (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::OFFSET)) 8) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::OFFSET)) 16) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)) 24)) ; ==> ; (+ ; (+ ; (+ (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP #) 8)) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::OFFSET)) 16)) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)) 24)) ; ; note: doing unsigned word to integer coercion (cost 20) to "" ; (+ (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET) 56) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::OFFSET)) 48) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::OFFSET)) 40) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)) 32) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::OFFSET)) 24) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::OFFSET)) 16) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::OFFSET)) 8) ; (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 7 SB!DISASSEM::OFFSET))) ; --> + + + ; ==> ; (+ ; (+ ; (+ (+ (ASH # 56) (ASH # 48)) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP #) 40)) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)) 32)) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::OFFSET)) 24)) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the second argument of GENERIC-+ ; (+ (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 1 SB!DISASSEM::OFFSET)) 8) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 2 SB!DISASSEM::OFFSET)) 16) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)) 24) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::OFFSET)) 32) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 5 SB!DISASSEM::OFFSET)) 40) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 6 SB!DISASSEM::OFFSET)) 48) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 7 SB!DISASSEM::OFFSET)) 56)) ; --> + + + ; ==> ; (+ ; (+ ; (+ (+ (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP SB!DISASSEM::OFFSET) (ASH # 8)) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP #) 16)) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 3 SB!DISASSEM::OFFSET)) 24)) ; (ASH (SB!SYS:SAP-REF-8 SB!DISASSEM::SAP (+ 4 SB!DISASSEM::OFFSET)) 32)) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first argument of GENERIC-+ ; x-compiling (DEFUN READ-SUFFIX ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/target-disassem.lisp ; in: DEFUN READ-SUFFIX ; (INCF (SB!DISASSEM:DSTATE-NEXT-OFFS SB!DISASSEM::DSTATE) LENGTH) ; --> LET* ; ==> ; (+ (SB!DISASSEM:DSTATE-NEXT-OFFS #:DSTATE1630) #:G148931) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 32) arithmetic (cost 5) because: ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 32) ; &REST T). ; etc. ; x-compiling (DEFUN NOTE ...) ; x-compiling (DEFUN PRIN1-SHORT ...) ; x-compiling (DEFUN PRIN1-QUOTED-SHORT ...) ; x-compiling (DEFUN NOTE-CODE-CONSTANT ...) ; x-compiling (DEFUN NOTE-CODE-CONSTANT-ABSOLUTE ...) ; x-compiling (DEFUN MAYBE-NOTE-NIL-INDEXED-SYMBOL-SLOT-REF ...) ; x-compiling (DEFUN MAYBE-NOTE-NIL-INDEXED-OBJECT ...) ; x-compiling (DEFUN MAYBE-NOTE-ASSEMBLER-ROUTINE ...) ; x-compiling (DEFUN MAYBE-NOTE-SINGLE-STORAGE-REF ...) ; x-compiling (DEFUN MAYBE-NOTE-ASSOCIATED-STORAGE-REF ...) ; x-compiling (DEFUN MAYBE-NOTE-STATIC-SYMBOL ...) ; x-compiling (DEFUN GET-INTERNAL-ERROR-NAME ...) ; x-compiling (DEFUN GET-SC-NAME ...) ; x-compiling (DEFUN HANDLE-BREAK-ARGS ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/target-disassem.lisp ; in: DEFUN VALID-EXTENDED-FUNCTION-DESIGNATORS-FOR-DISASSEMBLE-P ; (TYPEP SB!DISASSEM::THING 'SB!PCL::%METHOD-FUNCTION) ; ; caught STYLE-WARNING: ; undefined type: SB!PCL::%METHOD-FUNCTION ; (SB!PCL::%METHOD-FUNCTION-FAST-FUNCTION SB!DISASSEM::THING) ; ; caught STYLE-WARNING: ; undefined function: SB!PCL::%METHOD-FUNCTION-FAST-FUNCTION ; in: DEFUN GET-DIFFERENT-SOURCE-FORM ; (SB!DEBUG::CODE-LOCATION-SOURCE-FORM SB!DISASSEM::LOC SB!DISASSEM::CONTEXT ; NIL) ; ; caught STYLE-WARNING: ; undefined function: SB!DEBUG::CODE-LOCATION-SOURCE-FORM ; ; compilation unit finished ; Undefined type: ; SB!PCL::%METHOD-FUNCTION ; Undefined functions: ; SB!PCL::%METHOD-FUNCTION-FAST-FUNCTION SB!DEBUG::CODE-LOCATION-SOURCE-FORM ; caught 4 STYLE-WARNING conditions ; printed 37 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/target-disassem.lisp-obj-tmp written ; compilation finished in 0:00:01.311 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/target-insts.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFUN PRINT-MEM-ACCESS ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/x86/target-insts.lisp ; in: DEFUN PRINT-MEM-ACCESS ; (SB!VM::PEL (SB!VM::BASE-REG (FIRST SB!VM::VALUE)) ; (SB!VM::PRINT-ADDR-REG SB!VM::BASE-REG STREAM SB!VM::DSTATE)) ; --> LET WHEN IF PROGN UNLESS IF PROGN WRITE-CHAR ; ==> ; STREAM ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/x86/target-insts.lisp-obj-tmp written ; compilation finished in 0:00:00.026 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/debug.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!DEBUG") ; x-compiling (DEFVAR *DEBUG-PRINT-VARIABLE-ALIST* ...) ; x-compiling (DEFVAR *DEBUG-READTABLE* ...) ; x-compiling (DEFVAR *IN-THE-DEBUGGER* ...) ; x-compiling (DEFVAR *DEBUG-COMMAND-LEVEL* ...) ; x-compiling (DEFVAR *STACK-TOP-HINT* ...) ; x-compiling (DEFVAR *REAL-STACK-TOP* ...) ; x-compiling (DEFVAR *STACK-TOP* ...) ; x-compiling (DEFVAR *CURRENT-FRAME* ...) ; x-compiling (DEFVAR *DEBUG-BEGINNER-HELP-P* ...) ; x-compiling (DEFUN DEBUG-PROMPT ...) ; x-compiling (DEFPARAMETER *DEBUG-HELP-STRING* ...) ; x-compiling (DEFMACRO WITH-DEBUG-IO-SYNTAX ...) ; x-compiling (DEFUN MAYBE-BLOCK-START-LOCATION ...) ; x-compiling (DECLAIM (UNSIGNED-BYTE *BACKTRACE-FRAME-COUNT*)) ; x-compiling (DEFVAR *BACKTRACE-FRAME-COUNT* ...) ; x-compiling (DECLAIM (TYPE # ...)) ; x-compiling (DEFVAR *METHOD-FRAME-STYLE* ...) ; x-compiling (DEFINE-DEPRECATED-VARIABLE :EARLY ...) ; x-compiling (DEFUN BACKTRACE ...) ; x-compiling (DEFUN BACKTRACE-AS-LIST ...) ; x-compiling (DEFUN BACKTRACE-START-FRAME ...) ; x-compiling (DEFUN MAP-BACKTRACE ...) ; x-compiling (DEFUN PRINT-BACKTRACE ...) ; x-compiling (DEFUN LIST-BACKTRACE ...) ; x-compiling (DEFUN FRAME-CALL-AS-LIST ...) ; x-compiling (DEFUN REPLACE-DYNAMIC-EXTENT-OBJECT ...) ; x-compiling (DEFUN STACK-ALLOCATED-P ...) ; x-compiling (DEFUN MAP-FRAME-ARGS ...) ; x-compiling (DEFUN ARG-COUNT-ERROR-FRAME-NTH-ARG ...) ; x-compiling (DEFUN ARG-COUNT-ERROR-FRAME-ARGS ...) ; x-compiling (DEFUN FRAME-ARGS-AS-LIST ...) ; x-compiling (DEFUN CLEAN-XEP ...) ; x-compiling (DEFUN CLEAN-&MORE-PROCESSOR ...) ; x-compiling (DEFUN CLEAN-FAST-METHOD ...) ; x-compiling (DEFUN CLEAN-FRAME-CALL ...) ; x-compiling (DEFUN FRAME-CALL ...) ; x-compiling (DEFUN ENSURE-PRINTABLE-OBJECT ...) ; x-compiling (DEFUN FRAME-CALL-ARG ...) ; x-compiling (DEFUN PRINT-FRAME-CALL ...) ; x-compiling (DEFVAR *DEBUGGER-HOOK* ...) ; x-compiling (DEFVAR *INVOKE-DEBUGGER-HOOK* ...) ; x-compiling (DEFVAR *DEBUG-RESTARTS*) ; x-compiling (DEFVAR *DEBUG-CONDITION*) ; x-compiling (DEFVAR *NESTED-DEBUG-CONDITION*) ; x-compiling (DEFUN FUNCALL-WITH-DEBUG-IO-SYNTAX ...) ; x-compiling (DECLAIM (NOTINLINE RUN-HOOK)) ; x-compiling (DEFUN RUN-HOOK ...) ; x-compiling (DEFUN RESOLVE-STACK-TOP-HINT ...) ; x-compiling (DEFUN INVOKE-DEBUGGER ...) ; x-compiling (DEFUN %PRINT-DEBUGGER-INVOCATION-REASON ...) ; x-compiling (DEFUN %INVOKE-DEBUGGER ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/debug.lisp ; in: DEFUN %INVOKE-DEBUGGER ; (SB!THREAD:RELEASE-FOREGROUND) ; ; note: deleting unreachable code ; x-compiling (DEFUN DEBUGGER-DISABLED-HOOK ...) ; x-compiling (DEFVAR *OLD-DEBUGGER-HOOK* ...) ; x-compiling (DEFUN DISABLE-DEBUGGER ...) ; x-compiling (DEFUN ENABLE-DEBUGGER ...) ; x-compiling (DEFUN SHOW-RESTARTS ...) ; x-compiling (DEFVAR *DEBUG-LOOP-FUN* ...) ; x-compiling (DEFVAR *SUPPRESS-FRAME-PRINT* ...) ; x-compiling (DEFUN INTERNAL-DEBUG ...) ; x-compiling (DEFVAR *FLUSH-DEBUG-ERRORS* ...) ; x-compiling (DEFUN DEBUG-READ ...) ; x-compiling (DEFUN DEBUG-LOOP-FUN ...) ; x-compiling (DEFVAR *AUTO-EVAL-IN-FRAME* ...) ; x-compiling (DEFUN DEBUG-EVAL ...) ; x-compiling (DEFUN DEBUG-EVAL-PRINT ...) ; x-compiling (DEFUN VAR-VALID-IN-FRAME-P ...) ; x-compiling (DEFUN VAR ...) ; x-compiling (DEFUN (SETF VAR) ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN NTH-ARG ...) ; x-compiling (DEFUN ARG ...) ; x-compiling (DEFVAR *DEBUG-COMMANDS* ...) ; x-compiling (DEFMACRO !DEF-DEBUG-COMMAND ...) ; x-compiling (DEFUN !DEF-DEBUG-COMMAND-ALIAS ...) ; x-compiling (DEFUN DEBUG-COMMAND-P ...) ; x-compiling (DEFUN MAKE-RESTART-COMMANDS ...) ; x-compiling (!DEF-DEBUG-COMMAND "UP" ...) ; x-compiling (!DEF-DEBUG-COMMAND "DOWN" ...) ; x-compiling (!DEF-DEBUG-COMMAND-ALIAS "D" ...) ; x-compiling (!DEF-DEBUG-COMMAND "BOTTOM" ...) ; x-compiling (!DEF-DEBUG-COMMAND-ALIAS "B" ...) ; x-compiling (!DEF-DEBUG-COMMAND "FRAME" ...) ; x-compiling (!DEF-DEBUG-COMMAND-ALIAS "F" ...) ; x-compiling (!DEF-DEBUG-COMMAND "TOPLEVEL" ...) ; x-compiling (!DEF-DEBUG-COMMAND-ALIAS "TOP" ...) ; x-compiling (!DEF-DEBUG-COMMAND "RESTART" ...) ; x-compiling (!DEF-DEBUG-COMMAND "HELP" ...) ; x-compiling (!DEF-DEBUG-COMMAND-ALIAS "?" ...) ; x-compiling (!DEF-DEBUG-COMMAND "ERROR" ...) ; x-compiling (!DEF-DEBUG-COMMAND "BACKTRACE" ...) ; x-compiling (!DEF-DEBUG-COMMAND "PRINT" ...) ; x-compiling (!DEF-DEBUG-COMMAND-ALIAS "P" ...) ; x-compiling (!DEF-DEBUG-COMMAND "LIST-LOCALS" ...) ; x-compiling (!DEF-DEBUG-COMMAND-ALIAS "L" ...) ; x-compiling (!DEF-DEBUG-COMMAND "SOURCE" ...) ; x-compiling (DEFUN CODE-LOCATION-SOURCE-FORM ...) ; x-compiling (!DEF-DEBUG-COMMAND "START" ...) ; x-compiling (DEFMACRO !DEF-STEP-COMMAND ...) ; x-compiling (!DEF-STEP-COMMAND "STEP" ...) ; x-compiling (!DEF-STEP-COMMAND "NEXT" ...) ; x-compiling (!DEF-STEP-COMMAND "STOP" ...) ; x-compiling (!DEF-DEBUG-COMMAND-ALIAS "S" ...) ; x-compiling (!DEF-DEBUG-COMMAND-ALIAS "N" ...) ; x-compiling (!DEF-DEBUG-COMMAND "OUT" ...) ; x-compiling (!DEF-DEBUG-COMMAND "DESCRIBE" ...) ; x-compiling (!DEF-DEBUG-COMMAND "SLURP" ...) ; x-compiling (DEFUN UNWIND-TO-FRAME-AND-CALL ...) ; x-compiling (DEFUN FIND-BINDING-STACK-POINTER ...) ; x-compiling (DEFUN FIND-ENCLOSING-CATCH-BLOCK ...) ; x-compiling (DEFUN FIND-ENCLOSING-UWP ...) ; x-compiling (!DEF-DEBUG-COMMAND "RETURN" ...) ; x-compiling (!DEF-DEBUG-COMMAND "RESTART-FRAME" ...) ; x-compiling (DEFUN FRAME-HAS-DEBUG-TAG-P ...) ; x-compiling (DEFUN FRAME-HAS-DEBUG-VARS-P ...) ; x-compiling (DEFUN READ-PROMPTING-MAYBE ...) ; x-compiling (DEFUN READ-IF-AVAILABLE ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/debug.lisp ; in: DEFUN CLEAN-FAST-METHOD ; (COMPUTE-APPLICABLE-METHODS (FDEFINITION SB!DEBUG::GF-NAME) ; SB!DEBUG::REAL-ARGS) ; ; caught STYLE-WARNING: ; undefined function: COMPUTE-APPLICABLE-METHODS ; in: DEFUN DEBUGGER-DISABLED-HOOK ; (SB!EXT:EXIT :CODE 1 :ABORT ABORT) ; ; caught STYLE-WARNING: ; undefined function: EXIT ; ; compilation unit finished ; Undefined functions: ; COMPUTE-APPLICABLE-METHODS EXIT ; caught 2 STYLE-WARNING conditions ; printed 1 note ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/debug.lisp-obj-tmp written ; compilation finished in 0:00:00.730 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/octets.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFTYPE ARRAY-RANGE ...) ; x-compiling (DEFINE-CONDITION OCTETS-ENCODING-ERROR ...) ; x-compiling (DEFUN ENCODING-ERROR ...) ; x-compiling (DEFINE-CONDITION OCTET-DECODING-ERROR ...) ; x-compiling (DEFINE-CONDITION END-OF-INPUT-IN-CHARACTER ...) ; x-compiling (DEFINE-CONDITION CHARACTER-OUT-OF-RANGE ...) ; x-compiling (DEFINE-CONDITION INVALID-UTF8-STARTER-BYTE ...) ; x-compiling (DEFINE-CONDITION INVALID-UTF8-CONTINUATION-BYTE ...) ; x-compiling (DEFINE-CONDITION OVERLONG-UTF8-SEQUENCE ...) ; x-compiling (DEFINE-CONDITION MALFORMED-ASCII ...) ; x-compiling (DEFUN DECODING-ERROR ...) ; x-compiling (DEFMACRO INSTANTIATE-OCTETS-DEFINITION ...) ; x-compiling (DEFUN MAKE-OD-NAME ...) ; x-compiling (DEFMACRO DEFINE-UNIBYTE-MAPPER ...) ; x-compiling (DECLAIM (INLINE GET-LATIN-BYTES)) ; x-compiling (DEFUN GET-LATIN-BYTES ...) ; x-compiling (DECLAIM (INLINE STRING->LATIN%)) ; x-compiling (DEFUN STRING->LATIN% ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/octets.lisp ; in: DEFUN STRING->LATIN% ; (* SB!INT:INDEX 2) ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; (INCF SB!INT:INDEX) ; --> LET* ; ==> ; (+ SB!INT:INDEX #:G149901) ; ; 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 1) &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 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; x-compiling (DEFMACRO DEFINE-LATIN->STRING* ...) ; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-LATIN->STRING*) ; x-compiling (DEFMACRO DEFINE-LATIN->STRING ...) ; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-LATIN->STRING) ; x-compiling (DEFVAR *DEFAULT-EXTERNAL-FORMAT* ...) ; x-compiling (DEFUN DEFAULT-EXTERNAL-FORMAT ...) ; x-compiling (DEFUN MAYBE-DEFAULTED-EXTERNAL-FORMAT ...) ; x-compiling (DEFUN OCTETS-TO-STRING ...) ; x-compiling (DEFUN STRING-TO-OCTETS ...) ; x-compiling (DEFVAR +UNICODE-REPLACEMENT-CHARACTER+ ...) ; x-compiling (DEFUN USE-UNICODE-REPLACEMENT-CHAR ...) ; x-compiling (DEFMACRO WITH-STANDARD-REPLACEMENT-CHARACTER ...) ; x-compiling (DEFMACRO WITH-DEFAULT-DECODING-REPLACEMENT ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/octets.lisp ; in: DEFUN DEFAULT-EXTERNAL-FORMAT ; (SB!IMPL::COLD-PRINT SB!IMPL::EXTERNAL-FORMAT) ; ; caught STYLE-WARNING: ; undefined function: COLD-PRINT ; in: DEFUN ENCODING-ERROR ; (MAKE-ARRAY 1 :ELEMENT-TYPE '(UNSIGNED-BYTE 8) :INITIAL-ELEMENT ; SB!IMPL::REPLACEMENT) ; --> LOCALLY MAKE-ARRAY SB!EXT:TRULY-THE ; ==> ; (FILL ; (SB!EXT:TRULY-THE (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (1)) ; (SB!KERNEL:ALLOCATE-VECTOR 154 (THE SB!INT:INDEX LENGTH) ; 1)) ; (THE (UNSIGNED-BYTE 8) SB!C::INITIAL-ELEMENT)) ; ; caught STYLE-WARNING: ; undefined function: UB8-BASH-FILL ; ; compilation unit finished ; Undefined functions: ; COLD-PRINT UB8-BASH-FILL ; caught 2 STYLE-WARNING conditions ; printed 2 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/octets.lisp-obj-tmp written ; compilation finished in 0:00:00.411 creating directory: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/external-formats/ ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-basic.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DECLAIM (INLINE CODE->ASCII-MAPPER)) ; x-compiling (DEFUN CODE->ASCII-MAPPER ...) ; x-compiling (DECLAIM (INLINE GET-ASCII-BYTES)) ; x-compiling (DEFUN GET-ASCII-BYTES ...) ; x-compiling (DEFUN STRING->ASCII ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-basic.lisp ; in: DEFUN STRING->ASCII ; (SB!IMPL::STRING->LATIN% STRING SB!IMPL::SSTART SB!IMPL::SEND ; #'SB!IMPL::GET-ASCII-BYTES SB!IMPL::NULL-PADDING) ; --> BLOCK LET TAGBODY LET MAKE-ARRAY LOCALLY MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> BLOCK LET TAGBODY LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G150033) ; ; 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 1) &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 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; x-compiling (DEFMACRO DEFINE-ASCII->STRING ...) ; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-ASCII->STRING) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-basic.lisp ; in: INSTANTIATE-OCTETS-DEFINITION DEFINE-ASCII->STRING ; (SB!IMPL::INSTANTIATE-OCTETS-DEFINITION SB!IMPL::DEFINE-ASCII->STRING) ; --> PROGN SB!IMPL::DEFINE-ASCII->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN ; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY LET* IF LOOP BLOCK LET SB!LOOP::LOOP-BODY ; --> TAGBODY SB!LOOP::LOOP-REALLY-DESETQ SETQ THE AREF ; ==> ; (SB!KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB!INT:INDEX) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; x-compiling (DEFINE-UNIBYTE-EXTERNAL-FORMAT :ASCII ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-basic.lisp ; in: DEFINE-UNIBYTE-EXTERNAL-FORMAT :ASCII ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS) ; ==> ; STREAM ; ; note: deleting unreachable code ; (SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT :ASCII ; (:US-ASCII :ANSI_X3.4-1968 :ISO-646 :ISO-646-US :|646|) ; (IF (>= SB!IMPL::BITS 128) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS) ; (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL) SB!IMPL::BITS)) ; (IF (>= SB-XC:BYTE 128) ; (RETURN-FROM SB!IMPL::DECODE-BREAK-REASON 1) ; (CODE-CHAR SB-XC:BYTE)) ; SB!IMPL::ASCII->STRING-AREF SB!IMPL::STRING->ASCII) ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS) ; ==> ; STREAM ; ; note: deleting unreachable code ; x-compiling (DECLAIM (INLINE GET-LATIN1-BYTES)) ; x-compiling (DEFUN GET-LATIN1-BYTES ...) ; x-compiling (DEFUN STRING->LATIN1 ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-basic.lisp ; in: DEFUN STRING->LATIN1 ; (SB!IMPL::STRING->LATIN% STRING SB!IMPL::SSTART SB!IMPL::SEND ; #'SB!IMPL::GET-LATIN1-BYTES SB!IMPL::NULL-PADDING) ; --> BLOCK LET TAGBODY LET MAKE-ARRAY LOCALLY MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> BLOCK LET TAGBODY LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G150317) ; ; 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 1) &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 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; x-compiling (DEFMACRO DEFINE-LATIN1->STRING* ...) ; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-LATIN1->STRING*) ; x-compiling (DEFMACRO DEFINE-LATIN1->STRING ...) ; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-LATIN1->STRING) ; x-compiling (DEFINE-UNIBYTE-EXTERNAL-FORMAT :LATIN-1 ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-basic.lisp ; in: DEFINE-UNIBYTE-EXTERNAL-FORMAT :LATIN-1 ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS) ; ==> ; STREAM ; ; note: deleting unreachable code ; (SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT :LATIN-1 ; (:LATIN1 :ISO-8859-1 :ISO8859-1) ; (IF (>= SB!IMPL::BITS 256) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS) ; (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL) SB!IMPL::BITS)) ; (CODE-CHAR SB-XC:BYTE) SB!IMPL::LATIN1->STRING-AREF SB!IMPL::STRING->LATIN1) ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS) ; ==> ; STREAM ; ; note: deleting unreachable code ; x-compiling (DECLAIM (INLINE CHAR-LEN-AS-UTF8)) ; x-compiling (DEFUN CHAR-LEN-AS-UTF8 ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-basic.lisp ; in: DEFUN CHAR-LEN-AS-UTF8 ; (SB!INT:BUG "can't happen") ; ==> ; "can't happen" ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; x-compiling (DEFUN STRING->UTF8 ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-basic.lisp ; in: DEFUN STRING->UTF8 ; (LENGTH SB!IMPL::REPLACEMENT) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (COPY-SEQ SB!IMPL::NEW-ARRAY) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR NULL ; (AND (VECTOR (UNSIGNED-BYTE 8)) ; (NOT SIMPLE-ARRAY))), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR NULL ; (AND (VECTOR (UNSIGNED-BYTE 8)) ; (NOT SIMPLE-ARRAY))), not a LIST. ; (AREF SB!IMPL::REPLACEMENT SB!IMPL::I) ; ==> ; (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; x-compiling (DEFMACRO DEFINE-BYTES-PER-UTF8-CHARACTER ...) ; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-BYTES-PER-UTF8-CHARACTER) ; x-compiling (DEFMACRO DEFINE-SIMPLE-GET-UTF8-CHAR ...) ; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-SIMPLE-GET-UTF8-CHAR) ; x-compiling (DEFMACRO DEFINE-UTF8->STRING ...) ; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-UTF8->STRING) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-basic.lisp ; in: INSTANTIATE-OCTETS-DEFINITION DEFINE-UTF8->STRING ; (SB!IMPL::INSTANTIATE-OCTETS-DEFINITION SB!IMPL::DEFINE-UTF8->STRING) ; --> PROGN SB!IMPL::DEFINE-UTF8->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN ; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> FUNCTION COND IF COND THE PROGN DOTIMES DO BLOCK LET TAGBODY TAGBODY ; --> VECTOR-PUSH-EXTEND CHAR AREF ; ==> ; (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; x-compiling (DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UTF-8 :UTF8) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-basic.lisp ; in: DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UTF-8 :UTF8) ; (< SB!IMPL::BITS 2048) ; ==> ; SB!IMPL::BITS ; ; note: deleting unreachable code ; (< SB!IMPL::BITS 65536) ; ==> ; SB!IMPL::BITS ; ; note: deleting unreachable code ; (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL) ; (LOGIOR 192 (SB-XC:LDB (SB-XC:BYTE 5 6) SB!IMPL::BITS)) ; (SB!SYS:SAP-REF-8 SB!IMPL::SAP (+ 1 SB!IMPL::TAIL)) ; (LOGIOR 128 (SB-XC:LDB (SB-XC:BYTE 6 0) SB!IMPL::BITS))) ; --> PROGN SETF SB!KERNEL:%SET-SAP-REF-8 ; ==> ; SB!IMPL::SAP ; ; note: deleting unreachable code ; (<= 55296 SB!IMPL::BITS 57343) ; --> ; --> (LAMBDA (#:G150820 #:G150819 #:G150818) (DECLARE (TYPE REAL #:G150820 #:G150819 #:G150818)) (IF (<= #:G150820 #:G150819) (IF (<= #:G150819 #:G150818) T NIL) NIL)) ; --> SB!C::%FUNCALL ; --> # :WHERE-FROM :DEFINED :VARS (#:G150820 #:G150819 #:G150818) {DB091E9}> ; ==> ; SB!IMPL::BITS ; ; note: deleting unreachable code ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS) ; ==> ; STREAM ; ; note: deleting unreachable code ; (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL) ; (LOGIOR 224 (SB-XC:LDB (SB-XC:BYTE 4 12) SB!IMPL::BITS)) ; (SB!SYS:SAP-REF-8 SB!IMPL::SAP (+ 1 SB!IMPL::TAIL)) ; (LOGIOR 128 (SB-XC:LDB (SB-XC:BYTE 6 6) SB!IMPL::BITS)) ; (SB!SYS:SAP-REF-8 SB!IMPL::SAP (+ 2 SB!IMPL::TAIL)) ; (LOGIOR 128 (SB-XC:LDB (SB-XC:BYTE 6 0) SB!IMPL::BITS))) ; --> PROGN SETF SB!KERNEL:%SET-SAP-REF-8 ; ==> ; SB!IMPL::SAP ; ; note: deleting unreachable code ; (SETF (SB!SYS:SAP-REF-8 SB!IMPL::SAP SB!IMPL::TAIL) ; (LOGIOR 240 (SB-XC:LDB (SB-XC:BYTE 3 18) SB!IMPL::BITS)) ; (SB!SYS:SAP-REF-8 SB!IMPL::SAP (+ 1 SB!IMPL::TAIL)) ; (LOGIOR 128 (SB-XC:LDB (SB-XC:BYTE 6 12) SB!IMPL::BITS)) ; (SB!SYS:SAP-REF-8 SB!IMPL::SAP (+ 2 SB!IMPL::TAIL)) ; (LOGIOR 128 (SB-XC:LDB (SB-XC:BYTE 6 6) SB!IMPL::BITS)) ; (SB!SYS:SAP-REF-8 SB!IMPL::SAP (+ 3 SB!IMPL::TAIL)) ; (LOGIOR 128 (SB-XC:LDB (SB-XC:BYTE 6 0) SB!IMPL::BITS))) ; --> PROGN SETF SB!KERNEL:%SET-SAP-REF-8 ; ==> ; SB!IMPL::SAP ; ; note: deleting unreachable code ; (SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UTF-8 :UTF8) T ; (CODE-CHAR 65533) ; (LET ((SB!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (COND ((< SB!IMPL::BITS 128) 1) ((< SB!IMPL::BITS 2048) 2) ; ((< SB!IMPL::BITS 65536) 3) (T 4))) ; (ECASE SB!IMPL::SIZE ; (1 (SETF # SB!IMPL::BITS)) ; (2 ; (SETF # # ; # #)) ; (3 ; (WHEN (<= 55296 SB!IMPL::BITS 57343) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS)) ; (SETF # # ; # # ; # #)) ; (4 ; (SETF # # ; # # ; # # ; # #))) ; (1 ; (COND ((< SB-XC:BYTE 128) 1) ; ((< SB-XC:BYTE 194) (RETURN-FROM SB!IMPL::DECODE-BREAK-REASON 1)) ; ((< SB-XC:BYTE 224) 2) ((< SB-XC:BYTE 240) 3) (T 4))) ; (CODE-CHAR ; (ECASE SB!IMPL::SIZE ; (1 SB-XC:BYTE) ; (2 ; (LET # ; # ; #)) ; (3 ; (LET # ; # ; #)) ; (4 ; (LET # ; # ; #)))) ; SB!IMPL::UTF8->STRING-AREF SB!IMPL::STRING->UTF8) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; (< SB!IMPL::BITS 2048) ; ==> ; SB!IMPL::BITS ; ; note: deleting unreachable code ; (< SB!IMPL::BITS 65536) ; ==> ; SB!IMPL::BITS ; ; note: deleting unreachable code ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS) ; ==> ; STREAM ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 35 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/external-formats/enc-basic.lisp-obj-tmp written ; compilation finished in 0:00:01.314 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-ebcdic.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFMACRO DEFINE-UNIBYTE-PERMUTATION-MAPPER ...) ; x-compiling (DEFINE-UNIBYTE-PERMUTATION-MAPPER EBCDIC-US->CODE-MAPPER ...) ; x-compiling (DECLAIM (INLINE GET-EBCDIC-US-BYTES)) ; x-compiling (DEFUN GET-EBCDIC-US-BYTES ...) ; x-compiling (DEFUN STRING->EBCDIC-US ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-ebcdic.lisp ; in: DEFUN STRING->EBCDIC-US ; (SB!IMPL::STRING->LATIN% STRING SB!IMPL::SSTART SB!IMPL::SEND ; #'SB!IMPL::GET-EBCDIC-US-BYTES SB!IMPL::NULL-PADDING) ; --> BLOCK LET TAGBODY LET MAKE-ARRAY LOCALLY MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> BLOCK LET TAGBODY LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G151409) ; ; 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 1) &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 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; x-compiling (DEFMACRO DEFINE-EBCDIC-US->STRING* ...) ; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-EBCDIC-US->STRING*) ; x-compiling (DEFMACRO DEFINE-EBCDIC-US->STRING ...) ; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-EBCDIC-US->STRING) ; x-compiling (DEFINE-UNIBYTE-EXTERNAL-FORMAT :EBCDIC-US ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-ebcdic.lisp ; in: DEFINE-UNIBYTE-EXTERNAL-FORMAT :EBCDIC-US ; (SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT :EBCDIC-US ; (:CP037 :|cp037| :IBM-037 :IBM037) ; (LET ((SB!IMPL::EBCDIC-US-BYTE ; (SB!IMPL::CODE->EBCDIC-US-MAPPER SB!IMPL::BITS))) ; (IF SB!IMPL::EBCDIC-US-BYTE ; (SETF # SB!IMPL::EBCDIC-US-BYTE) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS))) ; (CODE-CHAR (SB!IMPL::EBCDIC-US->CODE-MAPPER SB-XC:BYTE)) ; SB!IMPL::EBCDIC-US->STRING-AREF SB!IMPL::STRING->EBCDIC-US) ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; ; compilation unit finished ; printed 3 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/external-formats/enc-ebcdic.lisp-obj-tmp written ; compilation finished in 0:00:00.273 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-cyr.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :KOI8-R ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-cyr.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :KOI8-R ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :KOI8-R (:|koi8-r|) ; (128 9472) (129 9474) (130 9484) (131 9488) (132 9492) (133 9496) (134 9500) ; (135 9508) (136 9516) ...) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G151726) ; ; 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 1) &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 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :KOI8-U ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-cyr.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :KOI8-U ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :KOI8-U (:|koi8-u|) ; (128 9472) (129 9474) (130 9484) (131 9488) (132 9492) (133 9496) (134 9500) ; (135 9508) (136 9516) ...) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G152049) ; ; 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 1) &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 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :X-MAC-CYRILLIC ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-cyr.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :X-MAC-CYRILLIC ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :X-MAC-CYRILLIC ; (:|x-mac-cyrillic|) (128 1040) (129 1041) (130 1042) (131 1043) (132 1044) ; (133 1045) (134 1046) (135 1047) (136 1048) ...) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G152372) ; ; 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 1) &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 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; ; compilation unit finished ; printed 9 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/external-formats/enc-cyr.lisp-obj-tmp written ; compilation finished in 0:00:00.802 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-dos.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP437 ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-dos.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP437 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP437 (:|cp437|) (128 199) ; (129 252) (130 233) (131 226) (132 228) (133 224) (134 229) (135 231) ; (136 234) ...) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G152695) ; ; 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 1) &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 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP850 ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-dos.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP850 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP850 (:|cp850|) (128 199) ; (129 252) (130 233) (131 226) (132 228) (133 224) (134 229) (135 231) ; (136 234) ...) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G153018) ; ; 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 1) &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 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP852 ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-dos.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP852 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP852 (:|cp852|) (128 199) ; (129 252) (130 233) (131 226) (132 228) (133 367) (134 263) (135 231) ; (136 322) ...) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G153341) ; ; 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 1) &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 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP855 ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-dos.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP855 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP855 (:|cp855|) (128 1106) ; (129 1026) (130 1107) (131 1027) (132 1105) (133 1025) (134 1108) (135 1028) ; (136 1109) ...) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G153664) ; ; 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 1) &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 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP857 ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-dos.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP857 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP857 (:|cp857|) (128 199) ; (129 252) (130 233) (131 226) (132 228) (133 224) (134 229) (135 231) ; (136 234) ...) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G153987) ; ; 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 1) &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 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP860 ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-dos.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP860 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP860 (:|cp860|) (128 199) ; (129 252) (130 233) (131 226) (132 227) (133 224) (134 193) (135 231) ; (136 234) ...) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G154310) ; ; 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 1) &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 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP861 ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-dos.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP861 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP861 (:|cp861|) (128 199) ; (129 252) (130 233) (131 226) (132 228) (133 224) (134 229) (135 231) ; (136 234) ...) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G154633) ; ; 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 1) &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 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP862 ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-dos.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP862 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP862 (:|cp862|) (128 1488) ; (129 1489) (130 1490) (131 1491) (132 1492) (133 1493) (134 1494) (135 1495) ; (136 1496) ...) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G154956) ; ; 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 1) &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 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP863 ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-dos.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP863 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP863 (:|cp863|) (128 199) ; (129 252) (130 233) (131 226) (132 194) (133 224) (134 182) (135 231) ; (136 234) ...) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G155279) ; ; 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 1) &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 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP864 ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-dos.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP864 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP864 (:|cp864|) (128 176) ; (129 183) (130 8729) (131 8730) (132 9618) (133 9472) (134 9474) (135 9532) ; (136 9508) ...) ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-MAPPER PROGN DEFUN PROGN SB!IMPL::%DEFUN ; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET IF ; ==> ; SB!IMPL::CODE ; ; note: doing signed word to integer coercion (cost 20) to "" ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G155602) ; ; 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 1) &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 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP865 ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-dos.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP865 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP865 (:|cp865|) (128 199) ; (129 252) (130 233) (131 226) (132 228) (133 224) (134 229) (135 231) ; (136 234) ...) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G155931) ; ; 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 1) &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 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP866 ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-dos.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP866 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP866 (:|cp866|) (128 1040) ; (129 1041) (130 1042) (131 1043) (132 1044) (133 1045) (134 1046) (135 1047) ; (136 1048) ...) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G156254) ; ; 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 1) &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 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP869 ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-dos.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP869 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP869 (:|cp869|) (128 NIL) ; (129 NIL) (130 NIL) (131 NIL) (132 NIL) (133 NIL) (134 902) (135 NIL) ; (136 183) ...) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G156577) ; ; 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 1) &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 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP874 ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-dos.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP874 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP874 (:|cp874|) (128 8364) ; (129 NIL) (130 NIL) (131 NIL) (132 NIL) (133 8230) (134 NIL) (135 NIL) ; (136 NIL) ...) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G156900) ; ; 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 1) &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 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; ; compilation unit finished ; printed 43 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/external-formats/enc-dos.lisp-obj-tmp written ; compilation finished in 0:00:03.811 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-iso.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-2 ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-iso.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-2 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-2 ; (:|iso-8859-2| :LATIN-2 :|latin-2|) (161 260) (162 728) (163 321) (165 317) ; (166 346) (169 352) (170 350) (171 356) (172 377) ...) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G157223) ; ; 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 1) &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 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-3 ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-iso.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-3 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-3 ; (:|iso-8859-3| :LATIN-3 :|latin-3|) (161 294) (162 728) (165 NIL) (166 292) ; (169 304) (170 350) (171 286) (172 308) (174 NIL) ...) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G157546) ; ; 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 1) &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 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-4 ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-iso.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-4 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-4 ; (:|iso-8859-4| :LATIN-4 :|latin-4|) (161 260) (162 312) (163 342) (165 296) ; (166 315) (169 352) (170 274) (171 290) (172 358) ...) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G157869) ; ; 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 1) &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 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-5 ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-iso.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-5 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-5 (:|iso-8859-5|) ; (161 1025) (162 1026) (163 1027) (164 1028) (165 1029) (166 1030) (167 1031) ; (168 1032) (169 1033) ...) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G158192) ; ; 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 1) &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 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-6 ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-iso.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-6 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-6 (:|iso-8859-6|) ; (161 NIL) (162 NIL) (163 NIL) (165 NIL) (166 NIL) (167 NIL) (168 NIL) ; (169 NIL) (170 NIL) ...) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G158515) ; ; 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 1) &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 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-7 ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-iso.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-7 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-7 (:|iso-8859-7|) ; (161 701) (162 700) (164 NIL) (165 NIL) (170 NIL) (174 NIL) (175 8213) ; (180 900) (181 901) ...) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G158838) ; ; 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 1) &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 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-8 ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-iso.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-8 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-8 (:|iso-8859-8|) ; (161 NIL) (170 215) (175 8254) (186 247) (191 NIL) (192 NIL) (193 NIL) ; (194 NIL) (195 NIL) ...) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G159161) ; ; 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 1) &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 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-9 ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-iso.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-9 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-9 ; (:|iso-8859-9| :LATIN-5 :|latin-5|) (208 286) (221 304) (222 350) (240 287) ; (253 305) (254 351)) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G159484) ; ; 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 1) &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 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-10 ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-iso.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-10 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-10 ; (:|iso-8859-10| :LATIN-6 :|latin-6|) (161 260) (162 274) (163 290) (164 298) ; (165 296) (166 310) (168 315) (169 272) (170 352) ...) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G159807) ; ; 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 1) &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 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-11 ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-iso.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-11 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-11 ; (:|iso-8859-11|) (161 3585) (162 3586) (163 3587) (164 3588) (165 3589) ; (166 3590) (167 3591) (168 3592) (169 3593) ...) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G160130) ; ; 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 1) &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 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-13 ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-iso.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-13 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-13 ; (:|iso-8859-13| :LATIN-7 :|latin-7|) (161 8221) (165 8222) (168 216) ; (170 342) (175 198) (180 8220) (184 248) (186 343) (191 230) ...) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G160453) ; ; 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 1) &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 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-14 ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-iso.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-14 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :ISO-8859-14 ; (:|iso-8859-14| :LATIN-8 :|latin-8|) (161 7682) (162 7683) (164 266) ; (165 267) (166 7690) (168 7808) (170 7810) (171 7691) (172 7922) ...) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G160776) ; ; 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 1) &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 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :LATIN-9 ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-iso.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :LATIN-9 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :LATIN-9 ; (:LATIN9 :ISO-8859-15 :ISO8859-15) (164 8364) (166 352) (168 353) (180 381) ; (184 382) (188 338) (189 339) (190 376)) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G161099) ; ; 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 1) &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 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; ; compilation unit finished ; printed 39 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/external-formats/enc-iso.lisp-obj-tmp written ; compilation finished in 0:00:03.539 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-win.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1250 ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-win.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1250 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1250 ; (:|cp1250| :WINDOWS-1250 :|windows-1250|) (128 8364) (129 NIL) (130 8218) ; (131 NIL) (132 8222) (133 8230) (134 8224) (135 8225) (136 NIL) ...) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G161422) ; ; 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 1) &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 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1251 ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-win.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1251 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1251 ; (:|cp1251| :WINDOWS-1251 :|windows-1251|) (128 1026) (129 1027) (130 8218) ; (131 1107) (132 8222) (133 8230) (134 8224) (135 8225) (136 NIL) ...) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G161745) ; ; 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 1) &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 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1252 ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-win.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1252 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1252 ; (:|cp1252| :WINDOWS-1252 :|windows-1252|) (128 8364) (129 NIL) (130 8218) ; (131 402) (132 8222) (133 8230) (134 8224) (135 8225) (136 710) ...) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G162068) ; ; 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 1) &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 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1253 ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-win.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1253 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1253 ; (:|cp1253| :WINDOWS-1253 :|windows-1253|) (128 8364) (129 NIL) (130 8218) ; (131 402) (132 8222) (133 8230) (134 8224) (135 8225) (136 NIL) ...) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G162391) ; ; 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 1) &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 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1254 ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-win.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1254 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1254 (:|cp1254|) ; (128 8364) (129 NIL) (130 8218) (131 402) (132 8222) (133 8230) (134 8224) ; (135 8225) (136 710) ...) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G162714) ; ; 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 1) &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 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1255 ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-win.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1255 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1255 ; (:|cp1255| :WINDOWS-1255 :|windows-1255|) (128 8364) (129 NIL) (130 8218) ; (131 402) (132 8222) (133 8230) (134 8224) (135 8225) (136 710) ...) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G163037) ; ; 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 1) &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 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1256 ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-win.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1256 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1256 ; (:|cp1256| :WINDOWS-1256 :|windows-1256|) (128 8364) (129 1662) (130 8218) ; (131 402) (132 8222) (133 8230) (134 8224) (135 8225) (136 710) ...) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G163360) ; ; 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 1) &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 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1257 ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-win.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1257 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1257 ; (:|cp1257| :WINDOWS-1257 :|windows-1257|) (128 8364) (129 NIL) (130 8218) ; (131 NIL) (132 8222) (133 8230) (134 8224) (135 8225) (136 NIL) ...) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G163683) ; ; 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 1) &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 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1258 ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-win.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1258 ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :CP1258 ; (:|cp1258| :WINDOWS-1258 :|windows-1258|) (128 8364) (129 NIL) (130 8218) ; (131 402) (132 8222) (133 8230) (134 8224) (135 8225) (136 710) ...) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G164006) ; ; 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 1) &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 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; ; compilation unit finished ; printed 27 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/external-formats/enc-win.lisp-obj-tmp written ; compilation finished in 0:00:02.478 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-mac.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :MAC-ROMAN ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-mac.lisp ; in: DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :MAC-ROMAN ; (SB!IMPL::DEFINE-UNIBYTE-MAPPING-EXTERNAL-FORMAT :MAC-ROMAN ; (:|mac-roman| :|MacRoman| :MAC :|mac| :MACINTOSH :|macintosh|) (128 196) ; (129 197) (130 199) (131 201) (132 209) (133 214) (134 220) (135 225) ; (136 224) ...) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LET MAKE-ARRAY LOCALLY MAKE-ARRAY * ; ==> ; (ASH SB!C::X 1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 32) ; &REST T). ; etc. ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK VALUES PROG1 LET SB!IMPL::STRING->LATIN% BLOCK LET TAGBODY ; --> LOOP BLOCK LET SB!LOOP::LOOP-BODY TAGBODY LET INCF LET* ; ==> ; (+ SB!INT:INDEX #:G164329) ; ; 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 1) &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 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UNIBYTE-EXTERNAL-FORMAT ; --> SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; ; compilation unit finished ; printed 3 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/external-formats/enc-mac.lisp-obj-tmp written ; compilation finished in 0:00:00.279 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/mb-util.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFMACRO DEFINE-MULTIBYTE-MAPPER ...) ; x-compiling (DEFUN GET-MULTIBYTE-MAPPER ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/mb-util.lisp ; in: DEFUN GET-MULTIBYTE-MAPPER ; (AREF SB!IMPL::TABLE SB!IMPL::M 0) ; --> LET* ; ==> ; (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX) ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (ARRAY * (* 2)), not a SIMPLE-ARRAY. ; (AREF SB!IMPL::TABLE SB!IMPL::M 1) ; --> LET* ; ==> ; (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX) ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (ARRAY * (* 2)), not a SIMPLE-ARRAY. ; x-compiling (DEFUN MAKE-OD-NAME-LIST ...) ; x-compiling (DEFUN DEFINE-BYTES-PER-MB-CHARACTER-1 ...) ; x-compiling (DEFUN DEFINE-SIMPLE-GET-MB-CHAR-1 ...) ; x-compiling (DEFUN DEFINE-MB->STRING-1 ...) ; x-compiling (DECLAIM (INLINE MB-CHAR-LEN)) ; x-compiling (DEFUN MB-CHAR-LEN ...) ; x-compiling (DEFMACRO DEFINE-MULTIBYTE-ENCODING ...); ; compilation unit finished ; printed 2 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/external-formats/mb-util.lisp-obj-tmp written ; compilation finished in 0:00:00.091 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-cn-tbl.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFINE-MULTIBYTE-MAPPER *GBK-TO-UCS-TABLE* ...) ; x-compiling (DEFINE-MULTIBYTE-MAPPER *UCS-TO-GBK-TABLE* ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/external-formats/enc-cn-tbl.lisp-obj-tmp written ; compilation finished in 0:00:00.359 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-cn.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DECLAIM (INLINE UCS-TO-GBK ...)) ; x-compiling (DEFUN UCS-TO-GBK ...) ; x-compiling (DEFUN GBK-TO-UCS ...) ; x-compiling (DEFUN MB-LEN-AS-GBK ...) ; x-compiling (DEFUN GBK-CONTINUATION-BYTE-P ...) ; x-compiling (DEFINE-MULTIBYTE-ENCODING :GBK ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-cn.lisp ; in: DEFINE-MULTIBYTE-ENCODING :GBK ; (SB!IMPL::DEFINE-MULTIBYTE-ENCODING :GBK (:GBK :CP936) SB!IMPL::UCS-TO-GBK ; SB!IMPL::GBK-TO-UCS SB!IMPL::MB-LEN-AS-GBK SB!IMPL::GBK-CONTINUATION-BYTE-P) ; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN ; --> SB!IMPL::DEFINE-SIMPLE-GET-GBK-CHAR PROGN DEFUN PROGN SB!IMPL::%DEFUN ; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK FLET LET IF ; ==> ; (SB!IMPL::DECODING-ERROR ARRAY SB!IMPL::POS (+ SB!IMPL::POS SB!IMPL::BYTES) ; :GBK 'SB!IMPL::MALFORMED-GBK SB!IMPL::POS) ; ; note: doing signed word to integer coercion (cost 20) ; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN ; --> SB!IMPL::DEFINE-GBK->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN ; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> FUNCTION COND IF PROGN LET TYPECASE LET COND IF COND IF PROGN DOTIMES DO ; --> BLOCK LET TAGBODY TAGBODY VECTOR-PUSH-EXTEND CHAR AREF ; ==> ; (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN ; --> SB!IMPL::DEFINE-GBK->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN ; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> FUNCTION COND IF COND THE PROGN DOTIMES DO BLOCK LET TAGBODY TAGBODY ; --> VECTOR-PUSH-EXTEND CHAR AREF ; ==> ; (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN ; --> SB!IMPL::DEFINE-GBK->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN ; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> FUNCTION COND IF PROGN LET TYPECASE LET COND IF COND IF PROGN DOTIMES DO ; --> BLOCK LET TAGBODY TAGBODY VECTOR-PUSH-EXTEND CHAR AREF ; ==> ; (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN ; --> SB!IMPL::DEFINE-GBK->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN ; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> FUNCTION COND IF COND THE PROGN DOTIMES DO BLOCK LET TAGBODY TAGBODY ; --> VECTOR-PUSH-EXTEND CHAR AREF ; ==> ; (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LOCALLY LET* SB!SYS:WITH-PINNED-OBJECTS FLET BLOCK PROGN LET LOOP BLOCK ; --> LET LET LET LET SB!LOOP::LOOP-BODY TAGBODY PROG1 LET LET IF ECASE LET ; --> COND IF COND IF COND IF PROGN SETF PROGN SETF SB!KERNEL:%SET-SAP-REF-8 ; --> SB-XC:LDB SB!KERNEL:%LDB LOGAND ; ==> ; (ASH SB!ALIEN:INT (- SB!C::POSN)) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 32) ; &REST T). ; etc. ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 32) ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LOCALLY LET* SB!SYS:WITH-PINNED-OBJECTS FLET BLOCK PROGN LET LOOP BLOCK ; --> LET LET LET LET SB!LOOP::LOOP-BODY TAGBODY PROG1 LET LET IF ECASE LET ; --> COND IF COND IF PROGN SETF PROGN SETF SB!KERNEL:%SET-SAP-REF-8 SB-XC:LDB ; --> SB!KERNEL:%LDB LOGAND ; ==> ; (ASH SB!ALIEN:INT (- SB!C::POSN)) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 32) ; &REST T). ; etc. ; ; compilation unit finished ; printed 13 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/external-formats/enc-cn.lisp-obj-tmp written ; compilation finished in 0:00:00.473 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-jpn-tbl.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFINE-MULTIBYTE-MAPPER *UCS-TO-EUCJP-TABLE* ...) ; x-compiling (DEFINE-MULTIBYTE-MAPPER *EUCJP-TO-UCS-TABLE* ...) ; x-compiling (DEFINE-MULTIBYTE-MAPPER *UCS-TO-SJIS-TABLE* ...) ; x-compiling (DEFINE-MULTIBYTE-MAPPER *SJIS-TO-UCS-TABLE* ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/external-formats/enc-jpn-tbl.lisp-obj-tmp written ; compilation finished in 0:00:00.357 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-jpn.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DECLAIM (INLINE UCS-TO-EUCJP ...)) ; x-compiling (DEFUN UCS-TO-EUCJP ...) ; x-compiling (DEFUN EUCJP-TO-UCS ...) ; x-compiling (DEFUN MB-LEN-AS-EUCJP ...) ; x-compiling (DEFUN EUCJP-CONTINUATION-BYTE-P ...) ; x-compiling (DEFINE-MULTIBYTE-ENCODING :EUC-JP ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-jpn.lisp ; in: DEFINE-MULTIBYTE-ENCODING :EUC-JP ; (SB!IMPL::DEFINE-MULTIBYTE-ENCODING :EUC-JP (:EUC-JP :EUCJP :|eucJP|) ; SB!IMPL::UCS-TO-EUCJP SB!IMPL::EUCJP-TO-UCS SB!IMPL::MB-LEN-AS-EUCJP ; SB!IMPL::EUCJP-CONTINUATION-BYTE-P) ; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN ; --> SB!IMPL::DEFINE-SIMPLE-GET-EUC-JP-CHAR PROGN DEFUN PROGN SB!IMPL::%DEFUN ; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK FLET LET IF ; ==> ; (SB!IMPL::DECODING-ERROR ARRAY SB!IMPL::POS (+ SB!IMPL::POS SB!IMPL::BYTES) ; :EUC-JP 'SB!IMPL::MALFORMED-EUC-JP SB!IMPL::POS) ; ; note: doing signed word to integer coercion (cost 20) ; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN ; --> SB!IMPL::DEFINE-EUC-JP->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN ; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> FUNCTION COND IF PROGN LET TYPECASE LET COND IF COND IF PROGN DOTIMES DO ; --> BLOCK LET TAGBODY TAGBODY VECTOR-PUSH-EXTEND CHAR AREF ; ==> ; (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN ; --> SB!IMPL::DEFINE-EUC-JP->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN ; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> FUNCTION COND IF COND THE PROGN DOTIMES DO BLOCK LET TAGBODY TAGBODY ; --> VECTOR-PUSH-EXTEND CHAR AREF ; ==> ; (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN ; --> SB!IMPL::DEFINE-EUC-JP->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN ; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> FUNCTION COND IF PROGN LET TYPECASE LET COND IF COND IF PROGN DOTIMES DO ; --> BLOCK LET TAGBODY TAGBODY VECTOR-PUSH-EXTEND CHAR AREF ; ==> ; (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN ; --> SB!IMPL::DEFINE-EUC-JP->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN ; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> FUNCTION COND IF COND THE PROGN DOTIMES DO BLOCK LET TAGBODY TAGBODY ; --> VECTOR-PUSH-EXTEND CHAR AREF ; ==> ; (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LOCALLY LET* SB!SYS:WITH-PINNED-OBJECTS FLET BLOCK PROGN LET LOOP BLOCK ; --> LET LET LET LET SB!LOOP::LOOP-BODY TAGBODY PROG1 LET LET IF ECASE LET ; --> COND IF COND IF COND IF PROGN SETF PROGN SETF SB!KERNEL:%SET-SAP-REF-8 ; --> SB-XC:LDB SB!KERNEL:%LDB LOGAND ; ==> ; (ASH SB!ALIEN:INT (- SB!C::POSN)) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 32) ; &REST T). ; etc. ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 32) ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LOCALLY LET* SB!SYS:WITH-PINNED-OBJECTS FLET BLOCK PROGN LET LOOP BLOCK ; --> LET LET LET LET SB!LOOP::LOOP-BODY TAGBODY PROG1 LET LET IF ECASE LET ; --> COND IF COND IF PROGN SETF PROGN SETF SB!KERNEL:%SET-SAP-REF-8 SB-XC:LDB ; --> SB!KERNEL:%LDB LOGAND ; ==> ; (ASH SB!ALIEN:INT (- SB!C::POSN)) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 32) ; &REST T). ; etc. ; x-compiling (DECLAIM (INLINE UCS-TO-SJIS ...)) ; x-compiling (DEFUN UCS-TO-SJIS ...) ; x-compiling (DEFUN SJIS-TO-UCS ...) ; x-compiling (DEFUN MB-LEN-AS-SJIS ...) ; x-compiling (DEFUN SJIS-CONTINUATION-BYTE-P ...) ; x-compiling (DEFINE-MULTIBYTE-ENCODING :SHIFT_JIS ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-jpn.lisp ; in: DEFINE-MULTIBYTE-ENCODING :SHIFT_JIS ; (SB!IMPL::DEFINE-MULTIBYTE-ENCODING :SHIFT_JIS ; (:SHIFT_JIS :SJIS :|Shift_JIS| :CP932) SB!IMPL::UCS-TO-SJIS ; SB!IMPL::SJIS-TO-UCS SB!IMPL::MB-LEN-AS-SJIS ; SB!IMPL::SJIS-CONTINUATION-BYTE-P) ; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN ; --> SB!IMPL::DEFINE-SIMPLE-GET-SHIFT_JIS-CHAR PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK FLET ; --> LET IF ; ==> ; (SB!IMPL::DECODING-ERROR ARRAY SB!IMPL::POS (+ SB!IMPL::POS SB!IMPL::BYTES) ; :SHIFT_JIS 'SB!IMPL::MALFORMED-SHIFT_JIS SB!IMPL::POS) ; ; note: doing signed word to integer coercion (cost 20) ; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN ; --> SB!IMPL::DEFINE-SHIFT_JIS->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN ; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> FUNCTION COND IF PROGN LET TYPECASE LET COND IF COND IF PROGN DOTIMES DO ; --> BLOCK LET TAGBODY TAGBODY VECTOR-PUSH-EXTEND CHAR AREF ; ==> ; (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN ; --> SB!IMPL::DEFINE-SHIFT_JIS->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN ; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> FUNCTION COND IF COND THE PROGN DOTIMES DO BLOCK LET TAGBODY TAGBODY ; --> VECTOR-PUSH-EXTEND CHAR AREF ; ==> ; (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN ; --> SB!IMPL::DEFINE-SHIFT_JIS->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN ; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> FUNCTION COND IF PROGN LET TYPECASE LET COND IF COND IF PROGN DOTIMES DO ; --> BLOCK LET TAGBODY TAGBODY VECTOR-PUSH-EXTEND CHAR AREF ; ==> ; (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> PROGN SB!IMPL::INSTANTIATE-OCTETS-DEFINITION PROGN ; --> SB!IMPL::DEFINE-SHIFT_JIS->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN ; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> FUNCTION COND IF COND THE PROGN DOTIMES DO BLOCK LET TAGBODY TAGBODY ; --> VECTOR-PUSH-EXTEND CHAR AREF ; ==> ; (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LOCALLY LET* SB!SYS:WITH-PINNED-OBJECTS FLET BLOCK PROGN LET LOOP BLOCK ; --> LET LET LET LET SB!LOOP::LOOP-BODY TAGBODY PROG1 LET LET IF ECASE LET ; --> COND IF COND IF COND IF PROGN SETF PROGN SETF SB!KERNEL:%SET-SAP-REF-8 ; --> SB-XC:LDB SB!KERNEL:%LDB LOGAND ; ==> ; (ASH SB!ALIEN:INT (- SB!C::POSN)) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 32) ; &REST T). ; etc. ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 32) ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LOCALLY LET* SB!SYS:WITH-PINNED-OBJECTS FLET BLOCK PROGN LET LOOP BLOCK ; --> LET LET LET LET SB!LOOP::LOOP-BODY TAGBODY PROG1 LET LET IF ECASE LET ; --> COND IF COND IF PROGN SETF PROGN SETF SB!KERNEL:%SET-SAP-REF-8 SB-XC:LDB ; --> SB!KERNEL:%LDB LOGAND ; ==> ; (ASH SB!ALIEN:INT (- SB!C::POSN)) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 32) ; &REST T). ; etc. ; ; compilation unit finished ; printed 26 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/external-formats/enc-jpn.lisp-obj-tmp written ; compilation finished in 0:00:01.046 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-ucs.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DECLAIM (INLINE SAP-REF-16LE ...)) ; x-compiling (DEFUN SAP-REF-16LE ...) ; x-compiling (DEFUN (SETF SAP-REF-16LE) ...) ; x-compiling (DEFUN SAP-REF-16BE ...) ; x-compiling (DEFUN (SETF SAP-REF-16BE) ...) ; x-compiling (DEFUN SAP-REF-32LE ...) ; x-compiling (DEFUN (SETF SAP-REF-32LE) ...) ; x-compiling (DEFUN SAP-REF-32BE ...) ; x-compiling (DEFUN (SETF SAP-REF-32BE) ...) ; x-compiling (DECLAIM (INLINE CHAR->UCS-2LE)) ; x-compiling (DEFUN CHAR->UCS-2LE ...) ; x-compiling (DECLAIM (INLINE CHAR->UCS-2BE)) ; x-compiling (DEFUN CHAR->UCS-2BE ...) ; x-compiling (DEFUN STRING->UCS-2LE ...) ; x-compiling (DEFUN STRING->UCS-2BE ...) ; x-compiling (DEFMACRO DEFINE-BYTES-PER-UCS2-CHARACTER ...) ; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-BYTES-PER-UCS2-CHARACTER) ; x-compiling (DEFMACRO DEFINE-SIMPLE-GET-UCS2-CHARACTER ...) ; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-SIMPLE-GET-UCS2-CHARACTER) ; x-compiling (DEFMACRO DEFINE-UCS-2->STRING ...) ; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-UCS-2->STRING) ; x-compiling (DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-2LE :UCS2LE) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-ucs.lisp ; in: DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-2LE :UCS2LE) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS) ; ==> ; STREAM ; ; note: deleting unreachable code ; (SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-2LE :UCS2LE) T ; (CODE-CHAR 65533) 2 ; (IF (< SB!IMPL::BITS 65536) ; (SETF (SB!IMPL::SAP-REF-16LE SB!IMPL::SAP SB!IMPL::TAIL) SB!IMPL::BITS) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS)) ; 2 (CODE-CHAR (SB!IMPL::SAP-REF-16LE SB!IMPL::SAP SB!IMPL::HEAD)) ; SB!IMPL::UCS-2LE->STRING-AREF SB!IMPL::STRING->UCS-2LE) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS) ; ==> ; STREAM ; ; note: deleting unreachable code ; x-compiling (DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-2BE :UCS2BE) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-ucs.lisp ; in: DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-2BE :UCS2BE) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS) ; ==> ; STREAM ; ; note: deleting unreachable code ; (SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-2BE :UCS2BE) T ; (CODE-CHAR 65533) 2 ; (IF (< SB!IMPL::BITS 65536) ; (SETF (SB!IMPL::SAP-REF-16BE SB!IMPL::SAP SB!IMPL::TAIL) SB!IMPL::BITS) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS)) ; 2 (CODE-CHAR (SB!IMPL::SAP-REF-16BE SB!IMPL::SAP SB!IMPL::HEAD)) ; SB!IMPL::UCS-2BE->STRING-AREF SB!IMPL::STRING->UCS-2BE) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS) ; ==> ; STREAM ; ; note: deleting unreachable code ; x-compiling (DECLAIM (INLINE CHAR->UCS-4LE)) ; x-compiling (DEFUN CHAR->UCS-4LE ...) ; x-compiling (DECLAIM (INLINE CHAR->UCS-4BE)) ; x-compiling (DEFUN CHAR->UCS-4BE ...) ; x-compiling (DEFUN STRING->UCS-4LE ...) ; x-compiling (DEFUN STRING->UCS-4BE ...) ; x-compiling (DEFMACRO DEFINE-BYTES-PER-UCS4-CHARACTER ...) ; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-BYTES-PER-UCS4-CHARACTER) ; x-compiling (DEFMACRO DEFINE-SIMPLE-GET-UCS4-CHARACTER ...) ; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-SIMPLE-GET-UCS4-CHARACTER) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-ucs.lisp ; in: INSTANTIATE-OCTETS-DEFINITION DEFINE-SIMPLE-GET-UCS4-CHARACTER ; (SB!IMPL::INSTANTIATE-OCTETS-DEFINITION ; SB!IMPL::DEFINE-SIMPLE-GET-UCS4-CHARACTER) ; --> PROGN SB!IMPL::DEFINE-SIMPLE-GET-UCS4-CHARACTER PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET IF ; ==> ; (SB!IMPL::DECODING-ERROR ARRAY SB!IMPL::POS (+ SB!IMPL::POS SB!IMPL::BYTES) ; :UCS-4LE 'SB!IMPL::OCTET-DECODING-ERROR SB!IMPL::POS) ; ; note: doing signed word to integer coercion (cost 20) ; ==> ; (SB!IMPL::DECODING-ERROR ARRAY SB!IMPL::POS (+ SB!IMPL::POS SB!IMPL::BYTES) ; :UCS-4BE 'SB!IMPL::OCTET-DECODING-ERROR SB!IMPL::POS) ; ; note: doing signed word to integer coercion (cost 20) ; ==> ; (SB!IMPL::DECODING-ERROR ARRAY SB!IMPL::POS (+ SB!IMPL::POS SB!IMPL::BYTES) ; :UCS-4LE 'SB!IMPL::OCTET-DECODING-ERROR SB!IMPL::POS) ; ; note: doing signed word to integer coercion (cost 20) ; ==> ; (SB!IMPL::DECODING-ERROR ARRAY SB!IMPL::POS (+ SB!IMPL::POS SB!IMPL::BYTES) ; :UCS-4BE 'SB!IMPL::OCTET-DECODING-ERROR SB!IMPL::POS) ; ; note: doing signed word to integer coercion (cost 20) ; x-compiling (DEFMACRO DEFINE-UCS-4->STRING ...) ; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-UCS-4->STRING) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-ucs.lisp ; in: INSTANTIATE-OCTETS-DEFINITION DEFINE-UCS-4->STRING ; (SB!IMPL::INSTANTIATE-OCTETS-DEFINITION SB!IMPL::DEFINE-UCS-4->STRING) ; --> PROGN SB!IMPL::DEFINE-UCS-4->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN ; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> FUNCTION LET TYPECASE LET COND IF COND IF PROGN DOTIMES DO BLOCK LET ; --> TAGBODY TAGBODY VECTOR-PUSH-EXTEND CHAR AREF ; ==> ; (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; x-compiling (DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-4LE :UCS4LE) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-ucs.lisp ; in: DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-4LE :UCS4LE) ; (SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-4LE :UCS4LE) NIL ; (CODE-CHAR 65533) 4 ; (SETF (SB!IMPL::SAP-REF-32LE SB!IMPL::SAP SB!IMPL::TAIL) SB!IMPL::BITS) 4 ; (LET ((SB!IMPL::CODE (SB!IMPL::SAP-REF-32LE SB!IMPL::SAP SB!IMPL::HEAD))) ; (IF (< SB!IMPL::CODE SB-XC:CHAR-CODE-LIMIT) ; (CODE-CHAR SB!IMPL::CODE) ; (RETURN-FROM SB!IMPL::DECODE-BREAK-REASON 4))) ; SB!IMPL::UCS-4LE->STRING-AREF SB!IMPL::STRING->UCS-4LE) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; x-compiling (DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-4BE :UCS4BE) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-ucs.lisp ; in: DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-4BE :UCS4BE) ; (SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-4BE :UCS4BE) NIL ; (CODE-CHAR 65533) 4 ; (SETF (SB!IMPL::SAP-REF-32BE SB!IMPL::SAP SB!IMPL::TAIL) SB!IMPL::BITS) 4 ; (LET ((SB!IMPL::CODE (SB!IMPL::SAP-REF-32BE SB!IMPL::SAP SB!IMPL::HEAD))) ; (IF (< SB!IMPL::CODE SB-XC:CHAR-CODE-LIMIT) ; (CODE-CHAR SB!IMPL::CODE) ; (RETURN-FROM SB!IMPL::DECODE-BREAK-REASON 4))) ; SB!IMPL::UCS-4BE->STRING-AREF SB!IMPL::STRING->UCS-4BE) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; ; compilation unit finished ; printed 20 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/external-formats/enc-ucs.lisp-obj-tmp written ; compilation finished in 0:00:01.074 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-utf.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DECLAIM (INLINE UTF-NONCHARACTER-CODE-P)) ; x-compiling (DEFUN UTF-NONCHARACTER-CODE-P ...) ; x-compiling (DECLAIM (INLINE CHAR->UTF-16LE)) ; x-compiling (DEFUN CHAR->UTF-16LE ...) ; x-compiling (DECLAIM (INLINE CHAR->UTF-16BE)) ; x-compiling (DEFUN CHAR->UTF-16BE ...) ; x-compiling (DEFUN STRING->UTF-16LE ...) ; x-compiling (DEFUN STRING->UTF-16BE ...) ; x-compiling (DEFMACRO DEFINE-BYTES-PER-UTF16-CHARACTER ...) ; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-BYTES-PER-UTF16-CHARACTER) ; x-compiling (DEFMACRO DEFINE-SIMPLE-GET-UTF16-CHARACTER ...) ; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-SIMPLE-GET-UTF16-CHARACTER) ; x-compiling (DEFMACRO DEFINE-UTF-16->STRING ...) ; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-UTF-16->STRING) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-utf.lisp ; in: INSTANTIATE-OCTETS-DEFINITION DEFINE-UTF-16->STRING ; (SB!IMPL::INSTANTIATE-OCTETS-DEFINITION SB!IMPL::DEFINE-UTF-16->STRING) ; --> PROGN SB!IMPL::DEFINE-UTF-16->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN ; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY UNLESS IF ; ==> ; (< SB!IMPL::POS SB!IMPL::AEND) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> PROGN SB!IMPL::DEFINE-UTF-16->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN ; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> FUNCTION COND IF COND THE PROGN DOTIMES DO BLOCK LET TAGBODY TAGBODY ; --> VECTOR-PUSH-EXTEND CHAR AREF ; ==> ; (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> PROGN SB!IMPL::DEFINE-UTF-16->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN ; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY UNLESS IF ; ==> ; (< SB!IMPL::POS SB!IMPL::AEND) ; ; 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. ; --> PROGN SB!IMPL::DEFINE-UTF-16->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN ; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> FUNCTION INCF LET* ; ==> ; (+ SB!IMPL::POS #:G167725) ; ; 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 NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UTF-16->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN ; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY UNLESS IF ; ==> ; (< SB!IMPL::POS SB!IMPL::AEND) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> PROGN SB!IMPL::DEFINE-UTF-16->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN ; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> FUNCTION COND IF COND THE PROGN DOTIMES DO BLOCK LET TAGBODY TAGBODY ; --> VECTOR-PUSH-EXTEND CHAR AREF ; ==> ; (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> PROGN SB!IMPL::DEFINE-UTF-16->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN ; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY UNLESS IF ; ==> ; (< SB!IMPL::POS SB!IMPL::AEND) ; ; 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. ; --> PROGN SB!IMPL::DEFINE-UTF-16->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN ; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> FUNCTION INCF LET* ; ==> ; (+ SB!IMPL::POS #:G167732) ; ; 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 NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UTF-16->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN ; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY UNLESS IF ; ==> ; (< SB!IMPL::POS SB!IMPL::AEND) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> PROGN SB!IMPL::DEFINE-UTF-16->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN ; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> FUNCTION COND IF COND THE PROGN DOTIMES DO BLOCK LET TAGBODY TAGBODY ; --> VECTOR-PUSH-EXTEND CHAR AREF ; ==> ; (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> PROGN SB!IMPL::DEFINE-UTF-16->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN ; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY UNLESS IF ; ==> ; (< SB!IMPL::POS SB!IMPL::AEND) ; ; 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. ; --> PROGN SB!IMPL::DEFINE-UTF-16->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN ; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> FUNCTION INCF LET* ; ==> ; (+ SB!IMPL::POS #:G167739) ; ; 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 NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; --> PROGN SB!IMPL::DEFINE-UTF-16->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN ; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY UNLESS IF ; ==> ; (< SB!IMPL::POS SB!IMPL::AEND) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> PROGN SB!IMPL::DEFINE-UTF-16->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN ; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> FUNCTION COND IF COND THE PROGN DOTIMES DO BLOCK LET TAGBODY TAGBODY ; --> VECTOR-PUSH-EXTEND CHAR AREF ; ==> ; (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; --> PROGN SB!IMPL::DEFINE-UTF-16->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN ; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY UNLESS IF ; ==> ; (< SB!IMPL::POS SB!IMPL::AEND) ; ; 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. ; --> PROGN SB!IMPL::DEFINE-UTF-16->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN ; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> FUNCTION INCF LET* ; ==> ; (+ SB!IMPL::POS #:G167746) ; ; 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 NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; x-compiling (DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UTF-16LE :UTF16LE) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-utf.lisp ; in: DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UTF-16LE :UTF16LE) ; (LOGAND SB!IMPL::BITS 65534) ; ==> ; SB!IMPL::BITS ; ; note: deleting unreachable code ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS) ; ==> ; STREAM ; ; note: deleting unreachable code ; (LET* ((SB!IMPL::NEW-BITS (- SB!IMPL::BITS 65536)) ; (SB!IMPL::HIGH (SB-XC:LDB (SB-XC:BYTE 10 10) SB!IMPL::NEW-BITS)) ; (SB!IMPL::LOW (SB-XC:LDB (SB-XC:BYTE 10 0) SB!IMPL::NEW-BITS))) ; (SETF (SB!IMPL::SAP-REF-16LE SB!IMPL::SAP SB!IMPL::TAIL) ; (SB-XC:DPB SB!IMPL::HIGH (SB-XC:BYTE 10 0) 55296)) ; (SETF (SB!IMPL::SAP-REF-16LE SB!IMPL::SAP (+ SB!IMPL::TAIL 2)) ; (SB-XC:DPB SB!IMPL::LOW (SB-XC:BYTE 10 0) 56320))) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (SETF (SB!IMPL::SAP-REF-16LE SB!IMPL::SAP SB!IMPL::TAIL) ; (SB-XC:DPB SB!IMPL::HIGH (SB-XC:BYTE 10 0) 55296)) ; --> LET* ; ==> ; SB!IMPL::TAIL ; ; note: deleting unreachable code ; (SB-XC:DPB SB!IMPL::HIGH (SB-XC:BYTE 10 0) 55296) ; --> SB!KERNEL:%DPB ; ==> ; SB!IMPL::HIGH ; ; note: deleting unreachable code ; (SETF (SB!IMPL::SAP-REF-16LE SB!IMPL::SAP (+ SB!IMPL::TAIL 2)) ; (SB-XC:DPB SB!IMPL::LOW (SB-XC:BYTE 10 0) 56320)) ; --> LET* ; ==> ; SB!IMPL::SAP ; ; note: deleting unreachable code ; (+ SB!IMPL::TAIL 2) ; ==> ; SB!IMPL::TAIL ; ; note: deleting unreachable code ; (SB-XC:DPB SB!IMPL::LOW (SB-XC:BYTE 10 0) 56320) ; --> SB!KERNEL:%DPB ; ==> ; SB!IMPL::LOW ; ; note: deleting unreachable code ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS) ; ==> ; STREAM ; ; note: deleting unreachable code ; (SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UTF-16LE :UTF16LE) T ; (CODE-CHAR 65533) ; (LET ((SB!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (IF (< SB!IMPL::BITS 65536) ; 2 ; 4)) ; (COND ; ((< SB!IMPL::BITS 65536) ; (IF (SB!IMPL::UTF-NONCHARACTER-CODE-P SB!IMPL::BITS) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS) ; (SETF #))) ; (T ; (IF (= # 65534) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS) ; (LET* # ; # ; #)))) ; (2 ; (IF (<= 55296 (SB!IMPL::SAP-REF-16LE SB!IMPL::SAP SB!IMPL::HEAD) 56319) ; 4 ; 2)) ; (LET ((SB!IMPL::BITS (SB!IMPL::SAP-REF-16LE SB!IMPL::SAP SB!IMPL::HEAD))) ; (COND ((OR # # #) (RETURN-FROM SB!IMPL::DECODE-BREAK-REASON 2)) ; ((<= 55296 SB!IMPL::BITS 56319) ; (LET # ; # ; #)) ; (T (CODE-CHAR SB!IMPL::BITS)))) ; SB!IMPL::UTF-16LE->STRING-AREF SB!IMPL::STRING->UTF-16LE) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS) ; ==> ; STREAM ; ; note: deleting unreachable code ; (LOGAND SB!IMPL::BITS 65534) ; ==> ; SB!IMPL::BITS ; ; note: deleting unreachable code ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS) ; ==> ; STREAM ; ; note: deleting unreachable code ; (LET* ((SB!IMPL::NEW-BITS (- SB!IMPL::BITS 65536)) ; (SB!IMPL::HIGH (SB-XC:LDB (SB-XC:BYTE 10 10) SB!IMPL::NEW-BITS)) ; (SB!IMPL::LOW (SB-XC:LDB (SB-XC:BYTE 10 0) SB!IMPL::NEW-BITS))) ; (SETF (SB!IMPL::SAP-REF-16LE SB!IMPL::SAP SB!IMPL::TAIL) ; (SB-XC:DPB SB!IMPL::HIGH (SB-XC:BYTE 10 0) 55296)) ; (SETF (SB!IMPL::SAP-REF-16LE SB!IMPL::SAP (+ SB!IMPL::TAIL 2)) ; (SB-XC:DPB SB!IMPL::LOW (SB-XC:BYTE 10 0) 56320))) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (SETF (SB!IMPL::SAP-REF-16LE SB!IMPL::SAP SB!IMPL::TAIL) ; (SB-XC:DPB SB!IMPL::HIGH (SB-XC:BYTE 10 0) 55296)) ; --> LET* ; ==> ; SB!IMPL::TAIL ; ; note: deleting unreachable code ; (SB-XC:DPB SB!IMPL::HIGH (SB-XC:BYTE 10 0) 55296) ; --> SB!KERNEL:%DPB ; ==> ; SB!IMPL::HIGH ; ; note: deleting unreachable code ; (SETF (SB!IMPL::SAP-REF-16LE SB!IMPL::SAP (+ SB!IMPL::TAIL 2)) ; (SB-XC:DPB SB!IMPL::LOW (SB-XC:BYTE 10 0) 56320)) ; --> LET* ; ==> ; SB!IMPL::SAP ; ; note: deleting unreachable code ; (+ SB!IMPL::TAIL 2) ; ==> ; SB!IMPL::TAIL ; ; note: deleting unreachable code ; (SB-XC:DPB SB!IMPL::LOW (SB-XC:BYTE 10 0) 56320) ; --> SB!KERNEL:%DPB ; ==> ; SB!IMPL::LOW ; ; note: deleting unreachable code ; x-compiling (DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UTF-16BE :UTF16BE) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-utf.lisp ; in: DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UTF-16BE :UTF16BE) ; (LOGAND SB!IMPL::BITS 65534) ; ==> ; SB!IMPL::BITS ; ; note: deleting unreachable code ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS) ; ==> ; STREAM ; ; note: deleting unreachable code ; (LET* ((SB!IMPL::NEW-BITS (- SB!IMPL::BITS 65536)) ; (SB!IMPL::HIGH (SB-XC:LDB (SB-XC:BYTE 10 10) SB!IMPL::NEW-BITS)) ; (SB!IMPL::LOW (SB-XC:LDB (SB-XC:BYTE 10 0) SB!IMPL::NEW-BITS))) ; (SETF (SB!IMPL::SAP-REF-16BE SB!IMPL::SAP SB!IMPL::TAIL) ; (SB-XC:DPB SB!IMPL::HIGH (SB-XC:BYTE 10 0) 55296)) ; (SETF (SB!IMPL::SAP-REF-16BE SB!IMPL::SAP (+ SB!IMPL::TAIL 2)) ; (SB-XC:DPB SB!IMPL::LOW (SB-XC:BYTE 10 0) 56320))) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (SETF (SB!IMPL::SAP-REF-16BE SB!IMPL::SAP SB!IMPL::TAIL) ; (SB-XC:DPB SB!IMPL::HIGH (SB-XC:BYTE 10 0) 55296)) ; --> LET* ; ==> ; SB!IMPL::TAIL ; ; note: deleting unreachable code ; (SB-XC:DPB SB!IMPL::HIGH (SB-XC:BYTE 10 0) 55296) ; --> SB!KERNEL:%DPB ; ==> ; SB!IMPL::HIGH ; ; note: deleting unreachable code ; (SETF (SB!IMPL::SAP-REF-16BE SB!IMPL::SAP (+ SB!IMPL::TAIL 2)) ; (SB-XC:DPB SB!IMPL::LOW (SB-XC:BYTE 10 0) 56320)) ; --> LET* ; ==> ; SB!IMPL::SAP ; ; note: deleting unreachable code ; (+ SB!IMPL::TAIL 2) ; ==> ; SB!IMPL::TAIL ; ; note: deleting unreachable code ; (SB-XC:DPB SB!IMPL::LOW (SB-XC:BYTE 10 0) 56320) ; --> SB!KERNEL:%DPB ; ==> ; SB!IMPL::LOW ; ; note: deleting unreachable code ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS) ; ==> ; STREAM ; ; note: deleting unreachable code ; (SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UTF-16BE :UTF16BE) T ; (CODE-CHAR 65533) ; (LET ((SB!IMPL::BITS (CHAR-CODE SB-XC:BYTE))) ; (IF (< SB!IMPL::BITS 65536) ; 2 ; 4)) ; (COND ; ((< SB!IMPL::BITS 65536) ; (IF (SB!IMPL::UTF-NONCHARACTER-CODE-P SB!IMPL::BITS) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS) ; (SETF #))) ; (T ; (IF (= # 65534) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS) ; (LET* # ; # ; #)))) ; (2 ; (IF (<= 55296 (SB!IMPL::SAP-REF-16BE SB!IMPL::SAP SB!IMPL::HEAD) 56319) ; 4 ; 2)) ; (LET ((SB!IMPL::BITS (SB!IMPL::SAP-REF-16BE SB!IMPL::SAP SB!IMPL::HEAD))) ; (COND ((OR # # #) (RETURN-FROM SB!IMPL::DECODE-BREAK-REASON 2)) ; ((<= 55296 SB!IMPL::BITS 56319) ; (LET # ; # ; #)) ; (T (CODE-CHAR SB!IMPL::BITS)))) ; SB!IMPL::UTF-16BE->STRING-AREF SB!IMPL::STRING->UTF-16BE) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS) ; ==> ; STREAM ; ; note: deleting unreachable code ; (LOGAND SB!IMPL::BITS 65534) ; ==> ; SB!IMPL::BITS ; ; note: deleting unreachable code ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS) ; ==> ; STREAM ; ; note: deleting unreachable code ; (LET* ((SB!IMPL::NEW-BITS (- SB!IMPL::BITS 65536)) ; (SB!IMPL::HIGH (SB-XC:LDB (SB-XC:BYTE 10 10) SB!IMPL::NEW-BITS)) ; (SB!IMPL::LOW (SB-XC:LDB (SB-XC:BYTE 10 0) SB!IMPL::NEW-BITS))) ; (SETF (SB!IMPL::SAP-REF-16BE SB!IMPL::SAP SB!IMPL::TAIL) ; (SB-XC:DPB SB!IMPL::HIGH (SB-XC:BYTE 10 0) 55296)) ; (SETF (SB!IMPL::SAP-REF-16BE SB!IMPL::SAP (+ SB!IMPL::TAIL 2)) ; (SB-XC:DPB SB!IMPL::LOW (SB-XC:BYTE 10 0) 56320))) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (SETF (SB!IMPL::SAP-REF-16BE SB!IMPL::SAP SB!IMPL::TAIL) ; (SB-XC:DPB SB!IMPL::HIGH (SB-XC:BYTE 10 0) 55296)) ; --> LET* ; ==> ; SB!IMPL::TAIL ; ; note: deleting unreachable code ; (SB-XC:DPB SB!IMPL::HIGH (SB-XC:BYTE 10 0) 55296) ; --> SB!KERNEL:%DPB ; ==> ; SB!IMPL::HIGH ; ; note: deleting unreachable code ; (SETF (SB!IMPL::SAP-REF-16BE SB!IMPL::SAP (+ SB!IMPL::TAIL 2)) ; (SB-XC:DPB SB!IMPL::LOW (SB-XC:BYTE 10 0) 56320)) ; --> LET* ; ==> ; SB!IMPL::SAP ; ; note: deleting unreachable code ; (+ SB!IMPL::TAIL 2) ; ==> ; SB!IMPL::TAIL ; ; note: deleting unreachable code ; (SB-XC:DPB SB!IMPL::LOW (SB-XC:BYTE 10 0) 56320) ; --> SB!KERNEL:%DPB ; ==> ; SB!IMPL::LOW ; ; note: deleting unreachable code ; x-compiling (DECLAIM (INLINE CHAR->UTF-32LE)) ; x-compiling (DEFUN CHAR->UTF-32LE ...) ; x-compiling (DECLAIM (INLINE CHAR->UTF-32BE)) ; x-compiling (DEFUN CHAR->UTF-32BE ...) ; x-compiling (DEFUN STRING->UTF-32LE ...) ; x-compiling (DEFUN STRING->UTF-32BE ...) ; x-compiling (DEFMACRO DEFINE-BYTES-PER-UTF32-CHARACTER ...) ; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-BYTES-PER-UTF32-CHARACTER) ; x-compiling (DEFMACRO DEFINE-SIMPLE-GET-UTF32-CHARACTER ...) ; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-SIMPLE-GET-UTF32-CHARACTER) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-utf.lisp ; in: INSTANTIATE-OCTETS-DEFINITION DEFINE-SIMPLE-GET-UTF32-CHARACTER ; (SB!IMPL::INSTANTIATE-OCTETS-DEFINITION ; SB!IMPL::DEFINE-SIMPLE-GET-UTF32-CHARACTER) ; --> PROGN SB!IMPL::DEFINE-SIMPLE-GET-UTF32-CHARACTER PROGN DEFUN PROGN ; --> SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET IF ; ==> ; (SB!IMPL::DECODING-ERROR ARRAY SB!IMPL::POS (+ SB!IMPL::POS SB!IMPL::BYTES) ; :UTF-32LE 'SB!IMPL::OCTET-DECODING-ERROR SB!IMPL::POS) ; ; note: doing signed word to integer coercion (cost 20) ; ==> ; (SB!IMPL::DECODING-ERROR ARRAY SB!IMPL::POS (+ SB!IMPL::POS SB!IMPL::BYTES) ; :UTF-32BE 'SB!IMPL::OCTET-DECODING-ERROR SB!IMPL::POS) ; ; note: doing signed word to integer coercion (cost 20) ; ==> ; (SB!IMPL::DECODING-ERROR ARRAY SB!IMPL::POS (+ SB!IMPL::POS SB!IMPL::BYTES) ; :UTF-32LE 'SB!IMPL::OCTET-DECODING-ERROR SB!IMPL::POS) ; ; note: doing signed word to integer coercion (cost 20) ; ==> ; (SB!IMPL::DECODING-ERROR ARRAY SB!IMPL::POS (+ SB!IMPL::POS SB!IMPL::BYTES) ; :UTF-32BE 'SB!IMPL::OCTET-DECODING-ERROR SB!IMPL::POS) ; ; note: doing signed word to integer coercion (cost 20) ; x-compiling (DEFMACRO DEFINE-UTF-32->STRING ...) ; x-compiling (INSTANTIATE-OCTETS-DEFINITION DEFINE-UTF-32->STRING) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-utf.lisp ; in: INSTANTIATE-OCTETS-DEFINITION DEFINE-UTF-32->STRING ; (SB!IMPL::INSTANTIATE-OCTETS-DEFINITION SB!IMPL::DEFINE-UTF-32->STRING) ; --> PROGN SB!IMPL::DEFINE-UTF-32->STRING PROGN DEFUN PROGN SB!IMPL::%DEFUN ; --> SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA FUNCTION BLOCK LET LOOP BLOCK LET ; --> SB!LOOP::LOOP-BODY TAGBODY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> FUNCTION LET TYPECASE LET COND IF COND IF PROGN DOTIMES DO BLOCK LET ; --> TAGBODY TAGBODY VECTOR-PUSH-EXTEND CHAR AREF ; ==> ; (SB!KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB!INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; x-compiling (DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UTF-32LE :UTF32LE) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-utf.lisp ; in: DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UTF-32LE :UTF32LE) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS) ; ==> ; STREAM ; ; note: deleting unreachable code ; (SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UTF-32LE :UTF32LE) T ; (CODE-CHAR 65533) 4 ; (IF (SB!IMPL::UTF-NONCHARACTER-CODE-P SB!IMPL::BITS) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS) ; (SETF (SB!IMPL::SAP-REF-32LE SB!IMPL::SAP SB!IMPL::TAIL) SB!IMPL::BITS)) ; 4 ; (LET ((SB!IMPL::CODE (SB!IMPL::SAP-REF-32LE SB!IMPL::SAP SB!IMPL::HEAD))) ; (IF (AND (< SB!IMPL::CODE SB-XC:CHAR-CODE-LIMIT) (NOT #)) ; (CODE-CHAR SB!IMPL::CODE) ; (RETURN-FROM SB!IMPL::DECODE-BREAK-REASON 4))) ; SB!IMPL::UTF-32LE->STRING-AREF SB!IMPL::STRING->UTF-32LE) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS) ; ==> ; STREAM ; ; note: deleting unreachable code ; x-compiling (DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UTF-32BE :UTF32BE) ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/external-formats/enc-utf.lisp ; in: DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UTF-32BE :UTF32BE) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS) ; ==> ; STREAM ; ; note: deleting unreachable code ; (SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UTF-32BE :UTF32BE) T ; (CODE-CHAR 65533) 4 ; (IF (SB!IMPL::UTF-NONCHARACTER-CODE-P SB!IMPL::BITS) ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS) ; (SETF (SB!IMPL::SAP-REF-32BE SB!IMPL::SAP SB!IMPL::TAIL) SB!IMPL::BITS)) ; 4 ; (LET ((SB!IMPL::CODE (SB!IMPL::SAP-REF-32BE SB!IMPL::SAP SB!IMPL::HEAD))) ; (IF (AND (< SB!IMPL::CODE SB-XC:CHAR-CODE-LIMIT) (NOT #)) ; (CODE-CHAR SB!IMPL::CODE) ; (RETURN-FROM SB!IMPL::DECODE-BREAK-REASON 4))) ; SB!IMPL::UTF-32BE->STRING-AREF SB!IMPL::STRING->UTF-32BE) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK LOCALLY LET* MAKE-STRING THE MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (THE SB!INT:INDEX LENGTH) :ELEMENT-TYPE SB!C::ELEMENT-TYPE) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; (SB!IMPL::EXTERNAL-FORMAT-ENCODING-ERROR STREAM SB!IMPL::BITS) ; ==> ; STREAM ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 88 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/external-formats/enc-utf.lisp-obj-tmp written ; compilation finished in 0:00:01.667 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/parse-defmacro-errors.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!KERNEL") ; x-compiling (DEFINE-CONDITION DEFMACRO-LAMBDA-LIST-BIND-ERROR ...) ; x-compiling (DEFMACRO !PRINTING-DEFMACRO-LAMBDA-LIST-BIND-ERROR ...) ; x-compiling (DEFUN %PRINTING-DEFMACRO-LAMBDA-LIST-BIND-ERROR ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/parse-defmacro-errors.lisp ; in: DEFUN %PRINTING-DEFMACRO-LAMBDA-LIST-BIND-ERROR ; (PPRINT-LOGICAL-BLOCK (STREAM NIL) (FUNCALL SB!KERNEL::FUN STREAM)) ; --> LET LET SB!PRETTY::WITH-PRETTY-STREAM FLET LET IF CATCH BLOCK ; --> SB!C::%WITHIN-CLEANUP LET SB!PRETTY::MAKE-PRETTY-STREAM ; ==> ; STREAM ; ; note: deleting unreachable code ; x-compiling (DEFINE-CONDITION DEFMACRO-BOGUS-SUBLIST-ERROR ...) ; x-compiling (DEFINE-CONDITION ARG-COUNT-ERROR ...) ; x-compiling (DEFINE-CONDITION DEFMACRO-LAMBDA-LIST-BROKEN-KEY-LIST-ERROR ...); ; compilation unit finished ; printed 1 note ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/parse-defmacro-errors.lisp-obj-tmp written ; compilation finished in 0:00:00.059 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/full-eval.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!EVAL") ; x-compiling (DEFVAR *SPECIAL* ...) ; x-compiling (DEFVAR *MACRO* ...) ; x-compiling (DEFVAR *SYMBOL-MACRO* ...) ; x-compiling (DEFVAR *NOT-PRESENT* ...) ; x-compiling (DEFINE-CONDITION INTERPRETED-PROGRAM-ERROR ...) ; x-compiling (DEFINE-CONDITION ARG-COUNT-PROGRAM-ERROR ...) ; x-compiling (DEFUN ARG-COUNT-PROGRAM-ERROR ...) ; x-compiling (DEFMACRO PROGRAM-DESTRUCTURING-BIND ...) ; x-compiling (DEFUN IP-ERROR ...) ; x-compiling (DEFMACRO NCONC-2 ...) ; x-compiling (DEFUN FABRICATE-NEW-NATIVE-ENVIRONMENT ...) ; x-compiling (DEFSTRUCT (ENV #) ...) ; x-compiling (DEFUN MAKE-ENV ...) ; x-compiling (DEFUN MAKE-NULL-ENVIRONMENT ...) ; x-compiling (DECLAIM (INLINE PUSH-VAR)) ; x-compiling (DEFUN PUSH-VAR ...) ; x-compiling (DECLAIM (INLINE PUSH-FUN)) ; x-compiling (DEFUN PUSH-FUN ...) ; x-compiling (SB!INT:DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFINE-GET-BINDING GET-BINDING ...) ; x-compiling (DEFINE-GET-BINDING GET-FBINDING ...) ; x-compiling (DEFINE-GET-BINDING GET-EXPANDER-BINDING ...) ; x-compiling (DEFINE-GET-BINDING GET-SYMBOL-EXPANSION-BINDING ...) ; x-compiling (DEFINE-GET-BINDING GET-TAG-BINDING ...) ; x-compiling (DEFINE-GET-BINDING GET-BLOCK-BINDING ...) ; x-compiling (DEFUN DECLARED-SPECIALS ...) ; x-compiling (DEFUN SPECIAL-BINDINGS ...) ; x-compiling (DEFUN SPECIALP ...) ; x-compiling (DEFUN BINDING-NAME ...) ; x-compiling (DEFUN BINDING-VALUE ...) ; x-compiling (DEFUN SUPPLIED-P-PARAMETER ...) ; x-compiling (DEFUN KEYWORD-NAME ...) ; x-compiling (DEFUN KEYWORD-KEY ...) ; x-compiling (DEFUN KEYWORD-DEFAULT-VALUE ...) ; x-compiling (DEFUN PARSE-ARGUMENTS ...) ; x-compiling (DEFUN EVAL-NEXT-LET*-BINDING ...) ; x-compiling (DEFUN CALL-WITH-NEW-ENV ...) ; x-compiling (DEFUN CALL-WITH-NEW-ENV-FULL-PARSING ...) ; x-compiling (DEFUN SET-VARIABLE ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/full-eval.lisp ; in: DEFUN SET-VARIABLE ; (SETF (SB!ALIEN-INTERNALS:%HEAP-ALIEN TYPE) SB!EVAL::VALUE) ; ==> ; (SB!ALIEN-INTERNALS:%SET-HEAP-ALIEN TYPE SB!EVAL::VALUE) ; ; note: unable to optimize because: info not constant; can't open code ; x-compiling (DEFUN GET-VARIABLE ...) ; x-compiling (DEFUN GET-FUNCTION ...) ; x-compiling (DEFUN LAMBDAP ...) ; x-compiling (DEFUN PARSE-LAMBDA-HEADERS ...) ; x-compiling (DEFUN EVAL-LAMBDA ...) ; x-compiling (DEFUN EVAL-PROGN ...) ; x-compiling (DEFUN EVAL-IF ...) ; x-compiling (DEFUN EVAL-LET ...) ; x-compiling (DEFUN EVAL-LET* ...) ; x-compiling (DEFUN EVAL-LOCAL-FUNCTION-DEF ...) ; x-compiling (DEFUN EVAL-FLET ...) ; x-compiling (DEFUN EVAL-LABELS ...) ; x-compiling (DEFUN EVAL-LOCAL-MACRO-DEF ...) ; x-compiling (DEFUN EVAL-MACROLET ...) ; x-compiling (DEFUN EVAL-SYMBOL-MACROLET ...) ; x-compiling (DEFUN EVAL-PROGV ...) ; x-compiling (DEFUN EVAL-FUNCTION ...) ; x-compiling (DEFUN EVAL-EVAL-WHEN ...) ; x-compiling (DEFUN EVAL-QUOTE ...) ; x-compiling (DEFUN EVAL-SETQ ...) ; x-compiling (DEFUN EVAL-MULTIPLE-VALUE-CALL ...) ; x-compiling (DEFUN EVAL-MULTIPLE-VALUE-PROG1 ...) ; x-compiling (DEFUN EVAL-CATCH ...) ; x-compiling (DEFUN EVAL-TAGBODY ...) ; x-compiling (DEFUN EVAL-GO ...) ; x-compiling (DEFUN EVAL-BLOCK ...) ; x-compiling (DEFUN EVAL-RETURN-FROM ...) ; x-compiling (DEFUN EVAL-THE ...) ; x-compiling (DEFUN EVAL-UNWIND-PROTECT ...) ; x-compiling (DEFUN EVAL-THROW ...) ; x-compiling (DEFUN EVAL-LOAD-TIME-VALUE ...) ; x-compiling (DEFUN EVAL-LOCALLY ...) ; x-compiling (DEFUN EVAL-ARGS ...) ; x-compiling (DEFUN EVAL-WITH-PINNED-OBJECTS ...) ; x-compiling (DEFINE-CONDITION MACROEXPAND-HOOK-TYPE-ERROR ...) ; x-compiling (DEFVAR *EVAL-DISPATCH-FUNCTIONS* ...) ; x-compiling (DECLAIM (INLINE %%EVAL)) ; x-compiling (DEFUN %%EVAL ...) ; x-compiling (DEFUN %EVAL ...) ; x-compiling (DEFUN %APPLY ...) ; x-compiling (DEFUN INTERPRETED-APPLY ...) ; x-compiling (DEFINE-CONDITION INTERPRETER-ENVIRONMENT-TOO-COMPLEX-ERROR ...) ; x-compiling (DEFINE-CONDITION COMPILER-ENVIRONMENT-TOO-COMPLEX-ERROR ...) ; x-compiling (DEFUN PREPARE-FOR-COMPILE ...) ; x-compiling (DEFUN MAKE-ENV-FROM-NATIVE-ENVIRONMENT ...) ; x-compiling (DEFUN EVAL-IN-ENVIRONMENT ...) ; x-compiling (DEFUN EVAL-IN-NATIVE-ENVIRONMENT ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/full-eval.lisp ; in: DEFINE-CONDITION INTERPRETED-PROGRAM-ERROR ; (SLOT-BOUNDP CONDITION 'CONDITION) ; ; caught STYLE-WARNING: ; undefined function: SLOT-BOUNDP ; ; compilation unit finished ; Undefined function: ; SLOT-BOUNDP ; caught 1 STYLE-WARNING condition ; printed 1 note ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/full-eval.lisp-obj-tmp written ; compilation finished in 0:00:00.620 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/bit-bash.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!VM") ; x-compiling (DEFTYPE BIT-OFFSET ...) ; x-compiling (DEF WORD-LOGICAL-NOT ...) ; x-compiling (DEF WORD-LOGICAL-AND ...) ; x-compiling (DEF WORD-LOGICAL-OR ...) ; x-compiling (DEF WORD-LOGICAL-XOR ...) ; x-compiling (DEF WORD-LOGICAL-NOR ...) ; x-compiling (DEF WORD-LOGICAL-EQV ...) ; x-compiling (DEF WORD-LOGICAL-NAND ...) ; x-compiling (DEF WORD-LOGICAL-ANDC1 ...) ; x-compiling (DEF WORD-LOGICAL-ANDC2 ...) ; x-compiling (DEF WORD-LOGICAL-ORC1 ...) ; x-compiling (DEF WORD-LOGICAL-ORC2 ...) ; x-compiling (DEFUN SHIFT-TOWARDS-START ...) ; x-compiling (DEFUN SHIFT-TOWARDS-END ...) ; x-compiling (DECLAIM (INLINE START-MASK ...)) ; x-compiling (DEFUN START-MASK ...) ; x-compiling (DEFUN END-MASK ...) ; x-compiling (DECLAIM (INLINE WORD-SAP-REF ...)) ; x-compiling (DEFUN WORD-SAP-REF ...) ; x-compiling (DEFUN %SET-WORD-SAP-REF ...) ; x-compiling (DEFMACRO !DEFINE-SAP-FIXER ...) ; x-compiling (DEFMACRO !DEFINE-BYTE-BASHERS ...) ; x-compiling (!DEFINE-SAP-FIXER 1) ; x-compiling (!DEFINE-SAP-FIXER 2) ; x-compiling (!DEFINE-SAP-FIXER 4) ; x-compiling (!DEFINE-SAP-FIXER 8) ; x-compiling (!DEFINE-SAP-FIXER 16) ; x-compiling (!DEFINE-SAP-FIXER 32) ; x-compiling (!DEFINE-BYTE-BASHERS 1) ; x-compiling (!DEFINE-BYTE-BASHERS 2) ; x-compiling (!DEFINE-BYTE-BASHERS 4) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/bit-bash.lisp ; in: PROGN (!DEFINE-SAP-FIXER 1) ; (SB!VM::!DEFINE-BYTE-BASHERS 4) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB!VM::FIX-SAP-AND-OFFSET-UB4 THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> FUNCTION UNLESS IF PROGN ; ==> ; (SB!C::%TYPE-CHECK-ERROR/C #:G2654 'SB!KERNEL::OBJECT-NOT-INDEX-ERROR) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of TYPE-CHECK-ERROR/C ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK LOCALLY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL SB!VM::FIX-SAP-AND-OFFSET-UB4 THE ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION UNLESS IF PROGN ; ==> ; (SB!C::%TYPE-CHECK-ERROR/C #:G2979 'SB!KERNEL::OBJECT-NOT-INDEX-ERROR) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of TYPE-CHECK-ERROR/C ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK LOCALLY MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB!VM::FIX-SAP-AND-OFFSET-UB4 THE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> FUNCTION UNLESS IF PROGN ; ==> ; (SB!C::%TYPE-CHECK-ERROR/C #:G2973 'SB!KERNEL::OBJECT-NOT-INDEX-ERROR) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of TYPE-CHECK-ERROR/C ; ==> ; (SB!C::%TYPE-CHECK-ERROR/C #:G3120 'SB!KERNEL::OBJECT-NOT-INDEX-ERROR) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of TYPE-CHECK-ERROR/C ; ==> ; (SB!C::%TYPE-CHECK-ERROR/C #:G3221 'SB!KERNEL::OBJECT-NOT-INDEX-ERROR) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of TYPE-CHECK-ERROR/C ; x-compiling (!DEFINE-BYTE-BASHERS 8) ; x-compiling (!DEFINE-BYTE-BASHERS 16) ; x-compiling (!DEFINE-BYTE-BASHERS 32) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/bit-bash.lisp ; in: PROGN (!DEFINE-SAP-FIXER 1) ; (SB!VM::!DEFINE-BYTE-BASHERS 32) ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK SB!KERNEL::CONSTANT-UB32-BASH BLOCK MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> FUNCTION IF LET LET MULTIPLE-VALUE-BIND ; ==> ; (LET ((#:G4709 'SB!C::DUMMY)) ; (UNLESS (TYPEP #:G4709 '(UNSIGNED-BYTE 29)) ; (SB!C::%TYPE-CHECK-ERROR #:G4709 '(UNSIGNED-BYTE 29))) ; (VALUES #:G4709)) ; ; note: doing signed word to integer coercion (cost 20) to #:G4709 ; --> PROGN DEFUN PROGN SB!IMPL::%DEFUN SB!IMPL::%DEFUN SB!INT:NAMED-LAMBDA ; --> FUNCTION BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION ; --> SB!KERNEL::CONSTANT-UB32-BASH BLOCK MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> FUNCTION IF LET LET MULTIPLE-VALUE-BIND ; ==> ; (LET ((#:G4744 'SB!C::DUMMY)) ; (UNLESS (TYPEP #:G4744 '(UNSIGNED-BYTE 29)) ; (SB!C::%TYPE-CHECK-ERROR #:G4744 '(UNSIGNED-BYTE 29))) ; (VALUES #:G4744)) ; ; note: doing signed word to integer coercion (cost 20) to #:G4744 ; x-compiling (DEFUN COPY-BYTE-VECTOR-TO-SYSTEM-AREA ...) ; x-compiling (DEFCONSTANT +BIT-POSITION-BASE-MASK+ ...) ; x-compiling (DEFCONSTANT +BIT-POSITION-BASE-SHIFT+ ...) ; x-compiling (DEF %BIT-POSITION/0 ...) ; x-compiling (DEF %BIT-POSITION/1 ...) ; x-compiling (DEFUN %BIT-POSITION ...); ; compilation unit finished ; printed 7 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/bit-bash.lisp-obj-tmp written ; compilation finished in 0:00:05.097 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-load.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!FASL") ; x-compiling (DEFVAR *LOAD-SOURCE-DEFAULT-TYPE* ...) ; x-compiling (DECLAIM (TYPE # ...)) ; x-compiling (DEFVAR *LOAD-TRUENAME* ...) ; x-compiling (DEFVAR *LOAD-PATHNAME* ...) ; x-compiling (DEFUN LOAD-AS-SOURCE ...) ; x-compiling (DEFINE-CONDITION FASL-HEADER-MISSING ...) ; x-compiling (DEFUN LOAD ...) ; x-compiling (DEFUN PROBE-LOAD-DEFAULTS ...) ; x-compiling (DEFUN LOAD-CODE ...) ; x-compiling (DEFVAR *!INITIAL-ASSEMBLER-ROUTINES*) ; x-compiling (DEFUN !LOADER-COLD-INIT ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/target-load.lisp ; in: DEFUN LOAD-CODE ; (SB!SYS:READ-N-BYTES SB!FASL::*FASL-INPUT-STREAM* ; (SB!KERNEL:CODE-INSTRUCTIONS SB!FASL::CODE) 0 SB!FASL::CODE-LENGTH) ; --> BLOCK IF LET* ; ==> ; (SB!GRAY:STREAM-READ-SEQUENCE STREAM SB!IMPL::BUFFER SB!IMPL::START ; SB!IMPL::END) ; ; caught STYLE-WARNING: ; undefined function: SB!GRAY:STREAM-READ-SEQUENCE ; ; compilation unit finished ; Undefined function: ; SB!GRAY:STREAM-READ-SEQUENCE ; caught 1 STYLE-WARNING condition ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/target-load.lisp-obj-tmp written ; compilation finished in 0:00:00.148 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/target-dump.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!FASL") ; x-compiling (DEFUN DUMP-CHARACTERS-OF-STRING ...) ; x-compiling (DEFUN DUMP-SIMPLE-CHARACTER-STRING ...) ; x-compiling (DEFUN DUMP-RAW-BYTES ...) ; x-compiling (DEFUN DUMP-MULTI-DIM-ARRAY ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/target-dump.lisp-obj-tmp written ; compilation finished in 0:00:00.105 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/cold-init.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFUN !UNINTERN-INIT-ONLY-STUFF ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN !COLD-LOSE ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN CRITICALLY-UNREACHABLE ...) ; x-compiling (DEFVAR *!REVERSED-COLD-TOPLEVELS*) ; x-compiling (DEFVAR *!LOAD-TIME-VALUES*) ; x-compiling (DEFUN !COLD-INIT ...) ; x-compiling (DEFINE-DEPRECATED-FUNCTION :EARLY ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN EXIT ...) ; x-compiling (DEFUN THREAD-INIT-OR-REINIT ...) ; x-compiling (DEFUN REINIT ...) ; x-compiling (DEFUN HEXSTR ...) ; x-compiling (DEFUN COLD-PRINT ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/cold-init.lisp ; in: DEFUN !COLD-INIT => ; DEFUN (DESTRUCTURING-BIND ; (NAME &OPTIONAL DOCSTRING &REST INLINE-EXPANSION) ; (CDR TOPLEVEL-THING) ; (!%QUIETLY-DEFUN NAME (FDEFINITION NAME) DOCSTRING INLINE-EXPANSION)) ; (SB!IMPL::!%QUIETLY-DEFUN SB!IMPL::NAME (FDEFINITION SB!IMPL::NAME) ; SB!IMPL::DOCSTRING SB!IMPL::INLINE-EXPANSION) ; ; caught STYLE-WARNING: ; undefined function: !%QUIETLY-DEFUN ; in: DEFUN !COLD-INIT ; (SB!IMPL::SHOW-AND-CALL SB!KERNEL:!LATE-PROCLAIM-COLD-INIT) ; --> PROGN ; ==> ; (SB!KERNEL:!LATE-PROCLAIM-COLD-INIT) ; ; caught STYLE-WARNING: ; undefined function: !LATE-PROCLAIM-COLD-INIT ; #'SB!IMPL::!QUIETLY-ASSIGN-SETF-MACRO ; ; caught STYLE-WARNING: ; undefined function: !QUIETLY-ASSIGN-SETF-MACRO ; #'SB!IMPL::ASSIGN-SETF-MACRO ; ; caught STYLE-WARNING: ; undefined function: ASSIGN-SETF-MACRO ; ; compilation unit finished ; Undefined functions: ; !%QUIETLY-DEFUN !LATE-PROCLAIM-COLD-INIT !QUIETLY-ASSIGN-SETF-MACRO ASSIGN-SETF-MACRO ; caught 4 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/cold-init.lisp-obj-tmp written ; compilation finished in 0:00:00.128 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/cl-specials.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "COMMON-LISP") ; x-compiling (SB-XC:PROCLAIM (QUOTE #)) ; x-compiling (SB-XC:PROCLAIM (QUOTE #)) ; x-compiling (SB-XC:PROCLAIM (QUOTE #)) ; x-compiling (SB-XC:PROCLAIM (QUOTE #)) ; x-compiling (SB-XC:PROCLAIM (QUOTE #)) ; x-compiling (SB-XC:PROCLAIM (QUOTE #)) ; x-compiling (SB-XC:PROCLAIM (QUOTE #)) ; x-compiling (SB-XC:PROCLAIM (QUOTE #)) ; x-compiling (SB-XC:PROCLAIM (QUOTE #)) ; x-compiling (SB-XC:PROCLAIM (QUOTE #)) ; x-compiling (SB-XC:PROCLAIM (QUOTE #)) ; x-compiling (SB-XC:PROCLAIM (QUOTE #)) ; x-compiling (SB-XC:PROCLAIM (QUOTE #)) ; x-compiling (SB-XC:PROCLAIM (QUOTE #)) ; x-compiling (SB-XC:PROCLAIM (QUOTE #)) ; x-compiling (SB-XC:PROCLAIM (QUOTE #)) ; x-compiling (SB-XC:PROCLAIM (QUOTE #)) ; x-compiling (SB-XC:PROCLAIM (QUOTE #)) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/cl-specials.lisp-obj-tmp written ; compilation finished in 0:00:00.014 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/late-proclaim.lisp" (written 27 FEB 2015 04:49:48 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (!BEGIN-COLLECTING-COLD-INIT-FORMS) ; x-compiling (!COLD-INIT-FORMS (AVER *TYPE-SYSTEM-INITIALIZED*)) ; x-compiling (!COLD-INIT-FORMS (MAPCAR # ...)) ; x-compiling (!COLD-INIT-FORMS (MAKUNBOUND #)) ; x-compiling (!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS !LATE-PROCLAIM-COLD-INIT) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/compiler/late-proclaim.lisp-obj-tmp written ; compilation finished in 0:00:00.006 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/defboot.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFMACRO-MUNDANELY IN-PACKAGE ...) ; x-compiling (DEFUN LIST-OF-SYMBOLS-P ...) ; x-compiling (DEFMACRO-MUNDANELY MULTIPLE-VALUE-BIND ...) ; x-compiling (DEFMACRO-MUNDANELY MULTIPLE-VALUE-SETQ ...) ; x-compiling (DEFMACRO-MUNDANELY MULTIPLE-VALUE-LIST ...) ; x-compiling (DEFMACRO-MUNDANELY COND ...) ; x-compiling (DEFMACRO-MUNDANELY WHEN ...) ; x-compiling (DEFMACRO-MUNDANELY UNLESS ...) ; x-compiling (DEFMACRO-MUNDANELY AND ...) ; x-compiling (DEFMACRO-MUNDANELY OR ...) ; x-compiling (FLET (#) ...) ; x-compiling (DEFMACRO-MUNDANELY PROG1 ...) ; x-compiling (DEFMACRO-MUNDANELY PROG2 ...) ; x-compiling (DEFUN INLINE-FUN-NAME-P ...) ; x-compiling (DEFMACRO-MUNDANELY DEFUN ...) ; x-compiling (DEF-DEFUN %DEFUN ...) ; x-compiling (DEF-DEFUN !%QUIETLY-DEFUN ...) ; x-compiling (DEFMACRO-MUNDANELY DEFVAR ...) ; x-compiling (DEFMACRO-MUNDANELY DEFPARAMETER ...) ; x-compiling (DEFUN %COMPILER-DEFVAR ...) ; x-compiling (DEFUN %DEFVAR ...) ; x-compiling (DEFUN %DEFPARAMETER ...) ; x-compiling (DEFMACRO-MUNDANELY DO ...) ; x-compiling (DEFMACRO-MUNDANELY DO* ...) ; x-compiling (DEFMACRO-MUNDANELY DOTIMES ...) ; x-compiling (DEFMACRO-MUNDANELY DOLIST ...) ; x-compiling (SB-XC:PROCLAIM (QUOTE #)) ; x-compiling (SETF (INFO :VARIABLE ...) ...) ; x-compiling (SETF (INFO :VARIABLE ...) ...) ; x-compiling (DEFMACRO-MUNDANELY WITH-CONDITION-RESTARTS ...) ; x-compiling (DEFMACRO-MUNDANELY RESTART-BIND ...) ; x-compiling (DEFUN MUNGE-RESTART-CASE-EXPRESSION ...) ; x-compiling (DEFMACRO-MUNDANELY RESTART-CASE ...) ; x-compiling (DEFMACRO-MUNDANELY WITH-SIMPLE-RESTART ...) ; x-compiling (DEFMACRO-MUNDANELY %HANDLER-BIND ...) ; x-compiling (DEFMACRO-MUNDANELY HANDLER-BIND ...) ; x-compiling (DEFMACRO-MUNDANELY HANDLER-CASE ...) ; x-compiling (DEFMACRO-MUNDANELY RETURN ...) ; x-compiling (DEFMACRO-MUNDANELY PSETQ ...) ; x-compiling (DEFMACRO-MUNDANELY LAMBDA ...) ; x-compiling (DEFMACRO-MUNDANELY NAMED-LAMBDA ...) ; x-compiling (DEFMACRO-MUNDANELY LAMBDA-WITH-LEXENV ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/defboot.lisp-obj-tmp written ; compilation finished in 0:00:00.265 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/destructuring-bind.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFMACRO-MUNDANELY DESTRUCTURING-BIND ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/destructuring-bind.lisp-obj-tmp written ; compilation finished in 0:00:00.008 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-setf.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN SB-XC:GET-SETF-EXPANSION ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFUN EXPAND-OR-GET-SETF-INVERSE ...) ; x-compiling (DEFUN GET-SETF-METHOD-INVERSE ...) ; x-compiling (DEFMACRO-MUNDANELY SETF ...) ; x-compiling (DEFMACRO-MUNDANELY SHIFTF ...) ; x-compiling (DEFMACRO-MUNDANELY PUSH ...) ; x-compiling (DEFMACRO-MUNDANELY PUSHNEW ...) ; x-compiling (DEFMACRO-MUNDANELY POP ...) ; x-compiling (DEFMACRO-MUNDANELY REMF ...) ; x-compiling (DEFMACRO-MUNDANELY INCF ...) ; x-compiling (DEFMACRO-MUNDANELY DECF ...) ; x-compiling (DEF!MACRO SB-XC:DEFINE-MODIFY-MACRO ...) ; x-compiling (DEFUN ASSIGN-SETF-MACRO ...) ; x-compiling (DEFUN !QUIETLY-ASSIGN-SETF-MACRO ...) ; x-compiling (DEF!MACRO SB-XC:DEFSETF ...) ; x-compiling (DEFUN %DEFSETF ...) ; x-compiling (DEF!MACRO SB-XC:DEFINE-SETF-EXPANDER ...) ; x-compiling (SB-XC:DEFINE-SETF-EXPANDER GETF ...) ; x-compiling (SB-XC:DEFINE-SETF-EXPANDER GET ...) ; x-compiling (SB-XC:DEFINE-SETF-EXPANDER GETHASH ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-setf.lisp ; in: SB-XC:DEFINE-SETF-EXPANDER GETHASH ; (SB-XC:DEFINE-SETF-EXPANDER GETHASH ; (SB!IMPL::KEY SB!IMPL::HASHTABLE &OPTIONAL SB!IMPL::DEFAULT) ; (LET ((SB!IMPL::KEY-TEMP (GENSYM)) ; (SB!IMPL::HASHTABLE-TEMP (GENSYM)) ; (SB!IMPL::DEFAULT-TEMP ; (IF SB!IMPL::DEFAULT ; #)) ; (SB!IMPL::NEW-VALUE-TEMP (GENSYM))) ; (VALUES (SB!INT:QUASIQUOTE (# # #)) (SB!INT:QUASIQUOTE (# # #)) ; (SB!INT:QUASIQUOTE (#)) (SB!INT:QUASIQUOTE (PROGN # #)) ; (SB!INT:QUASIQUOTE (GETHASH # # #))))) ; --> EVAL-WHEN ; ==> ; (SB!IMPL::ASSIGN-SETF-MACRO 'GETHASH ; (LAMBDA (#:WHOLE626 #:ENVIRONMENT627) ; (DECLARE (IGNORE #:ENVIRONMENT627)) ; (LET* () ; (LET (#) ; (UNLESS # #)) ; (LET* (# # #) ; (BLOCK GETHASH #)))) ; '(SB!IMPL::KEY SB!IMPL::HASHTABLE &OPTIONAL ; SB!IMPL::DEFAULT) ; NIL 'NIL) ; ; caught STYLE-WARNING: ; defining setf macro for GETHASH when (SETF GETHASH) is fbound ; x-compiling (SB-XC:DEFINE-SETF-EXPANDER LOGBITP ...) ; x-compiling (SB-XC:DEFINE-SETF-EXPANDER APPLY ...) ; x-compiling (SB-XC:DEFINE-SETF-EXPANDER LDB ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-setf.lisp ; in: SB-XC:DEFINE-SETF-EXPANDER LDB ; (SB-XC:DEFINE-SETF-EXPANDER SB-XC:LDB ; (SB!IMPL::BYTESPEC SB!IMPL::PLACE &ENVIRONMENT SB!IMPL::ENV) ; "The first argument is a byte specifier. The second is any place form ; acceptable to SETF. Replace the specified byte of the number in this ; place with bits from the low-order end of the new value." ; (DECLARE (TYPE SB!KERNEL:LEXENV SB!IMPL::ENV)) ; (MULTIPLE-VALUE-BIND ; (SB!IMPL::DUMMIES SB!IMPL::VALS SB!IMPL::NEWVAL SB!IMPL::SETTER ; SB!IMPL::GETTER) ; (SB-XC:GET-SETF-EXPANSION SB!IMPL::PLACE SB!IMPL::ENV) ; (IF (AND (CONSP SB!IMPL::BYTESPEC) (EQ # 'SB-XC:BYTE)) ; (LET (# # #) ; (VALUES # # # # #)) ; (LET (# #) ; (VALUES # # # # #))))) ; --> EVAL-WHEN ; ==> ; (SB!IMPL::ASSIGN-SETF-MACRO 'SB-XC:LDB ; (LAMBDA (#:WHOLE704 #:ENVIRONMENT705) ; (LET* () ; (LET (#) ; (UNLESS # #)) ; (LET* (# # #) ; (DECLARE #) ; (BLOCK SB-XC:LDB #)))) ; '(SB!IMPL::BYTESPEC SB!IMPL::PLACE &ENVIRONMENT ; SB!IMPL::ENV) ; NIL ; '"The first argument is a byte specifier. The second is any place form ; acceptable to SETF. Replace the specified byte of the number in this ; place with bits from the low-order end of the new value.") ; ; caught STYLE-WARNING: ; defining setf macro for LDB when (SETF LDB) is fbound ; x-compiling (SB-XC:DEFINE-SETF-EXPANDER MASK-FIELD ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/early-setf.lisp ; in: SB-XC:DEFINE-SETF-EXPANDER MASK-FIELD ; (SB-XC:DEFINE-SETF-EXPANDER SB-XC:MASK-FIELD ; (SB!IMPL::BYTESPEC SB!IMPL::PLACE &ENVIRONMENT SB!IMPL::ENV) ; "The first argument is a byte specifier. The second is any place form ; acceptable to SETF. Replaces the specified byte of the number in this place ; with bits from the corresponding position in the new value." ; (DECLARE (TYPE SB!KERNEL:LEXENV SB!IMPL::ENV)) ; (MULTIPLE-VALUE-BIND ; (SB!IMPL::DUMMIES SB!IMPL::VALS SB!IMPL::NEWVAL SB!IMPL::SETTER ; SB!IMPL::GETTER) ; (SB-XC:GET-SETF-EXPANSION SB!IMPL::PLACE SB!IMPL::ENV) ; (LET ((SB!IMPL::BTEMP #) (SB!IMPL::GNUVAL #)) ; (VALUES (CONS SB!IMPL::BTEMP SB!IMPL::DUMMIES) ; (CONS SB!IMPL::BYTESPEC SB!IMPL::VALS) (LIST SB!IMPL::GNUVAL) ; (SB!INT:QUASIQUOTE #) (SB!INT:QUASIQUOTE #))))) ; --> EVAL-WHEN ; ==> ; (SB!IMPL::ASSIGN-SETF-MACRO 'SB-XC:MASK-FIELD ; (LAMBDA (#:WHOLE748 #:ENVIRONMENT749) ; (LET* () ; (LET (#) ; (UNLESS # #)) ; (LET* (# # #) ; (DECLARE #) ; (BLOCK SB-XC:MASK-FIELD #)))) ; '(SB!IMPL::BYTESPEC SB!IMPL::PLACE &ENVIRONMENT ; SB!IMPL::ENV) ; NIL ; '"The first argument is a byte specifier. The second is any place form ; acceptable to SETF. Replaces the specified byte of the number in this place ; with bits from the corresponding position in the new value.") ; ; caught STYLE-WARNING: ; defining setf macro for MASK-FIELD when (SETF MASK-FIELD) is fbound ; x-compiling (DEFUN SETF-EXPAND-THE ...) ; x-compiling (SB-XC:DEFINE-SETF-EXPANDER THE ...) ; x-compiling (SB-XC:DEFINE-SETF-EXPANDER TRULY-THE ...); ; compilation unit finished ; caught 3 STYLE-WARNING conditions ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/early-setf.lisp-obj-tmp written ; compilation finished in 0:00:00.215 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/macros.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFMACRO-MUNDANELY ASSERT ...) ; x-compiling (DEFUN ASSERT-PROMPT ...) ; x-compiling (DEFMACRO-MUNDANELY CHECK-TYPE ...) ; x-compiling (DEFMACRO-MUNDANELY DEFINE-SYMBOL-MACRO ...) ; x-compiling (DEFUN SB!C::%DEFINE-SYMBOL-MACRO ...) ; x-compiling (DEFMACRO-MUNDANELY DEFINE-COMPILER-MACRO ...) ; x-compiling (DEF (:LOAD-TOPLEVEL :EXECUTE) ...) ; x-compiling (DEFINE-CONDITION DUPLICATE-CASE-KEY-WARNING ...) ; x-compiling (DEFUN CASE-BODY ...) ; x-compiling (DEFUN CASE-BODY-AUX ...) ; x-compiling (DEFMACRO-MUNDANELY CASE ...) ; x-compiling (DEFMACRO-MUNDANELY CCASE ...) ; x-compiling (DEFMACRO-MUNDANELY ECASE ...) ; x-compiling (DEFMACRO-MUNDANELY TYPECASE ...) ; x-compiling (DEFMACRO-MUNDANELY CTYPECASE ...) ; x-compiling (DEFMACRO-MUNDANELY ETYPECASE ...) ; x-compiling (DEFMACRO-MUNDANELY WITH-OPEN-STREAM ...) ; x-compiling (DEFMACRO-MUNDANELY WITH-OPEN-FILE ...) ; x-compiling (DEFMACRO-MUNDANELY WITH-INPUT-FROM-STRING ...) ; x-compiling (DEFMACRO-MUNDANELY WITH-OUTPUT-TO-STRING ...) ; x-compiling (DEFMACRO-MUNDANELY NTH-VALUE ...) ; x-compiling (DEFMACRO-MUNDANELY DECLAIM ...) ; x-compiling (DECLAIM (FTYPE # ...)) ; x-compiling (DEFMACRO-MUNDANELY PRINT-UNREADABLE-OBJECT ...) ; x-compiling (DEFMACRO-MUNDANELY IGNORE-ERRORS ...) ; x-compiling (DEFUN FUNARG-BIND/CALL-FORMS ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/macros.lisp-obj-tmp written ; compilation finished in 0:00:00.176 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/loop.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!LOOP") ; x-compiling (SB!INT:DEFMACRO-MUNDANELY WITH-LOOP-LIST-COLLECTION-HEAD ...) ; x-compiling (SB!INT:DEFMACRO-MUNDANELY LOOP-COLLECT-RPLACD ...) ; x-compiling (SB!INT:DEFMACRO-MUNDANELY LOOP-COLLECT-ANSWER ...) ; x-compiling (DEFSTRUCT (LOOP-MINIMAX # ...) ...) ; x-compiling (DEFVAR *LOOP-MINIMAX-TYPE-INFINITIES-ALIST* ...) ; x-compiling (DEFUN MAKE-LOOP-MINIMAX ...) ; x-compiling (DEFUN LOOP-NOTE-MINIMAX-OPERATION ...) ; x-compiling (SB!INT:DEFMACRO-MUNDANELY WITH-MINIMAX-VALUE ...) ; x-compiling (SB!INT:DEFMACRO-MUNDANELY LOOP-ACCUMULATE-MINIMAX-VALUE ...) ; x-compiling (DEFUN LOOP-TEQUAL ...) ; x-compiling (DEFUN LOOP-TASSOC ...) ; x-compiling (DEFUN LOOP-TMEMBER ...) ; x-compiling (DEFUN LOOP-LOOKUP-KEYWORD ...) ; x-compiling (SB!INT:DEFMACRO-MUNDANELY LOOP-STORE-TABLE-DATA ...) ; x-compiling (DEFSTRUCT (LOOP-UNIVERSE # ...) ...) ; x-compiling (SB!INT:DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFVAR *LOOP-UNIVERSE*) ; x-compiling (DEFUN MAKE-STANDARD-LOOP-UNIVERSE ...) ; x-compiling (DEFUN LOOP-MAKE-PSETQ ...) ; x-compiling (DEFUN LOOP-MAKE-DESETQ ...) ; x-compiling (DEFVAR *LOOP-DESETQ-TEMPORARY* ...) ; x-compiling (SB!INT:DEFMACRO-MUNDANELY LOOP-REALLY-DESETQ ...) ; x-compiling (DEFVAR *LOOP-SOURCE-CODE*) ; x-compiling (DEFVAR *LOOP-ORIGINAL-SOURCE-CODE*) ; x-compiling (DEFVAR *LOOP-SOURCE-CONTEXT*) ; x-compiling (DEFVAR *LOOP-NAMES*) ; x-compiling (DEFVAR *LOOP-MACRO-ENVIRONMENT*) ; x-compiling (DEFVAR *LOOP-NAMED-VARS*) ; x-compiling (DEFVAR *LOOP-VARS*) ; x-compiling (DEFVAR *LOOP-DECLARATIONS*) ; x-compiling (DEFVAR *LOOP-DESETQ-DECLARATIONS*) ; x-compiling (DEFVAR *LOOP-DESETQ*) ; x-compiling (DEFVAR *LOOP-WRAPPERS*) ; x-compiling (DEFVAR *LOOP-BIND-STACK*) ; x-compiling (DEFVAR *LOOP-PROLOGUE*) ; x-compiling (DEFVAR *LOOP-BEFORE-LOOP*) ; x-compiling (DEFVAR *LOOP-BODY*) ; x-compiling (DEFVAR *LOOP-AFTER-BODY*) ; x-compiling (DEFVAR *LOOP-EMITTED-BODY*) ; x-compiling (DEFVAR *LOOP-EPILOGUE*) ; x-compiling (DEFVAR *LOOP-AFTER-EPILOGUE*) ; x-compiling (DEFVAR *LOOP-FINAL-VALUE-CULPRIT*) ; x-compiling (DEFVAR *LOOP-INSIDE-CONDITIONAL*) ; x-compiling (DEFVAR *LOOP-WHEN-IT-VAR*) ; x-compiling (DEFVAR *LOOP-NEVER-STEPPED-VAR*) ; x-compiling (DEFVAR *LOOP-COLLECTION-CRUFT*) ; x-compiling (DEFUN LOOP-CONSTANT-FOLD-IF-POSSIBLE ...) ; x-compiling (SB!INT:DEFMACRO-MUNDANELY LOOP-BODY ...) ; x-compiling (DEFUN LOOP-CONTEXT ...) ; x-compiling (DEFUN LOOP-ERROR ...) ; x-compiling (DEFUN LOOP-WARN ...) ; x-compiling (DEFUN LOOP-CHECK-DATA-TYPE ...) ; x-compiling (DEFUN TRANSFORM-DESTRUCTURING ...) ; x-compiling (SB!INT:DEFMACRO-MUNDANELY LOOP-DESTRUCTURING-BIND ...) ; x-compiling (DEFUN LOOP-BUILD-DESTRUCTURING-BINDINGS ...) ; x-compiling (DEFUN LOOP-TRANSLATE ...) ; x-compiling (DEFUN LOOP-ITERATION-DRIVER ...) ; x-compiling (DEFUN LOOP-POP-SOURCE ...) ; x-compiling (DEFUN LOOP-GET-FORM ...) ; x-compiling (DEFUN LOOP-GET-COMPOUND-FORM ...) ; x-compiling (DEFUN LOOP-GET-PROGN ...) ; x-compiling (DEFUN LOOP-CONSTRUCT-RETURN ...) ; x-compiling (DEFUN LOOP-PSEUDO-BODY ...) ; x-compiling (DEFUN LOOP-EMIT-BODY ...) ; x-compiling (DEFUN LOOP-EMIT-FINAL-VALUE ...) ; x-compiling (DEFUN LOOP-DISALLOW-CONDITIONAL ...) ; x-compiling (DEFUN LOOP-DISALLOW-ANONYMOUS-COLLECTORS ...) ; x-compiling (DEFUN LOOP-DISALLOW-AGGREGATE-BOOLEANS ...) ; x-compiling (DEFUN LOOP-TYPED-INIT ...) ; x-compiling (DEFUN LOOP-OPTIONAL-TYPE ...) ; x-compiling (DEFUN LOOP-BIND-BLOCK ...) ; x-compiling (DEFUN CHECK-VAR-NAME ...) ; x-compiling (DEFUN LOOP-MAKE-VAR ...) ; x-compiling (DEFUN TYPE-FOR-DEFAULT-INIT ...) ; x-compiling (DEFUN LOOP-DECLARE-VAR ...) ; x-compiling (DEFUN LOOP-MAYBE-BIND-FORM ...) ; x-compiling (DEFUN LOOP-DO-IF ...) ; x-compiling (DEFUN LOOP-DO-INITIALLY ...) ; x-compiling (DEFUN LOOP-DO-FINALLY ...) ; x-compiling (DEFUN LOOP-DO-DO ...) ; x-compiling (DEFUN LOOP-DO-NAMED ...) ; x-compiling (DEFUN LOOP-DO-RETURN ...) ; x-compiling (DEFSTRUCT (LOOP-COLLECTOR # ...) ...) ; x-compiling (SB!INT:DEFMACRO-MUNDANELY WITH-SUM-COUNT ...) ; x-compiling (DEFUN LOOP-GET-COLLECTION-INFO ...) ; x-compiling (DEFUN LOOP-LIST-COLLECTION ...) ; x-compiling (DEFUN LOOP-SUM-COLLECTION ...) ; x-compiling (DEFUN LOOP-MAXMIN-COLLECTION ...) ; x-compiling (DEFUN LOOP-DO-ALWAYS ...) ; x-compiling (DEFUN LOOP-DO-THEREIS ...) ; x-compiling (DEFUN LOOP-DO-WHILE ...) ; x-compiling (DEFUN LOOP-DO-REPEAT ...) ; x-compiling (DEFUN LOOP-DO-WITH ...) ; x-compiling (DEFUN LOOP-HACK-ITERATION ...) ; x-compiling (DEFUN LOOP-DO-FOR ...) ; x-compiling (DEFUN LOOP-WHEN-IT-VAR ...) ; x-compiling (DEFUN LOOP-ANSI-FOR-EQUALS ...) ; x-compiling (DEFUN LOOP-FOR-ACROSS ...) ; x-compiling (DEFUN LOOP-LIST-STEP ...) ; x-compiling (DEFUN LOOP-FOR-ON ...) ; x-compiling (DEFUN LOOP-FOR-IN ...) ; x-compiling (DEFSTRUCT (LOOP-PATH # ...) ...) ; x-compiling (DEFUN ADD-LOOP-PATH ...) ; x-compiling (DEFUN LOOP-FOR-BEING ...) ; x-compiling (DEFUN LOOP-NAMED-VAR ...) ; x-compiling (DEFUN LOOP-COLLECT-PREPOSITIONAL-PHRASES ...) ; x-compiling (DEFUN LOOP-SEQUENCER ...) ; x-compiling (DEFUN LOOP-FOR-ARITHMETIC ...) ; x-compiling (DEFUN LOOP-HASH-TABLE-ITERATION-PATH ...) ; x-compiling (DEFUN LOOP-PACKAGE-SYMBOLS-ITERATION-PATH ...) ; x-compiling (DEFUN MAKE-ANSI-LOOP-UNIVERSE ...) ; x-compiling (DEFPARAMETER *LOOP-ANSI-UNIVERSE* ...) ; x-compiling (DEFUN LOOP-STANDARD-EXPANSION ...) ; x-compiling (SB!INT:DEFMACRO-MUNDANELY LOOP ...) ; x-compiling (SB!INT:DEFMACRO-MUNDANELY LOOP-FINISH ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/loop.lisp-obj-tmp written ; compilation finished in 0:00:00.624 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/late-setf.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFMACRO-MUNDANELY PSETF ...) ; x-compiling (DEFMACRO-MUNDANELY ROTATEF ...) ; x-compiling (SB-XC:DEFINE-SETF-EXPANDER VALUES ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/late-setf.lisp-obj-tmp written ; compilation finished in 0:00:00.044 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/cas.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEF!MACRO CAS ...) ; x-compiling (DEFUN GET-CAS-EXPANSION ...) ; x-compiling (DEFUN EXPAND-STRUCTURE-SLOT-CAS ...) ; x-compiling (DEF!MACRO DEFINE-CAS-EXPANDER ...) ; x-compiling (DEF!MACRO DEFCAS ...) ; x-compiling (DEF!MACRO COMPARE-AND-SWAP ...) ; x-compiling (DEF %COMPARE-AND-SWAP-CAR ...) ; x-compiling (DEF %COMPARE-AND-SWAP-CDR ...) ; x-compiling (DEF %COMPARE-AND-SWAP-INSTANCE-REF ...) ; x-compiling (DEF %COMPARE-AND-SWAP-SYMBOL-INFO ...) ; x-compiling (DEF %COMPARE-AND-SWAP-SYMBOL-VALUE ...) ; x-compiling (DEF %COMPARE-AND-SWAP-SVREF ...) ; x-compiling (DEF-FROB %ATOMIC-INC-SYMBOL-GLOBAL-VALUE ...) ; x-compiling (DEF-FROB %ATOMIC-DEC-SYMBOL-GLOBAL-VALUE ...) ; x-compiling (DEF-FROB %ATOMIC-INC-CAR ...) ; x-compiling (DEF-FROB %ATOMIC-DEC-CAR ...) ; x-compiling (DEF-FROB %ATOMIC-INC-CDR ...) ; x-compiling (DEF-FROB %ATOMIC-DEC-CDR ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/cas.lisp-obj-tmp written ; compilation finished in 0:00:00.101 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/late-cas.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFCAS CAR ...) ; x-compiling (DEFCAS CDR ...) ; x-compiling (DEFCAS FIRST ...) ; x-compiling (DEFCAS REST ...) ; x-compiling (DEFCAS SYMBOL-PLIST ...) ; x-compiling (DEFINE-CAS-EXPANDER SYMBOL-VALUE ...) ; x-compiling (DEFINE-CAS-EXPANDER SVREF ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/late-cas.lisp-obj-tmp written ; compilation finished in 0:00:00.068 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/late-format.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!FORMAT") ; x-compiling (DEFINE-CONDITION FORMAT-ERROR ...) ; x-compiling (DEFUN %PRINT-FORMAT-ERROR ...) ; x-compiling (DEF!STRUCT FORMAT-DIRECTIVE ...) ; x-compiling (DEF!METHOD PRINT-OBJECT ...) ; x-compiling (DEFUN TOKENIZE-CONTROL-STRING ...) ; x-compiling (DEFUN PARSE-DIRECTIVE ...) ; x-compiling (SB-XC:DEFMACRO FORMATTER ...) ; x-compiling (DEFUN %FORMATTER ...) ; x-compiling (DEFUN ARGS-EXHAUSTED ...) ; x-compiling (DEFUN EXPAND-CONTROL-STRING ...) ; x-compiling (DEFUN EXPAND-DIRECTIVE-LIST ...) ; x-compiling (DEFUN EXPAND-DIRECTIVE ...) ; x-compiling (DEFMACRO-MUNDANELY EXPANDER-NEXT-ARG ...) ; x-compiling (DEFUN EXPAND-NEXT-ARG ...) ; x-compiling (DEFMACRO EXPAND-BIND-DEFAULTS ...) ; x-compiling (DEFUN %SET-FORMAT-DIRECTIVE-EXPANDER ...) ; x-compiling (DEFUN %SET-FORMAT-DIRECTIVE-INTERPRETER ...) ; x-compiling (DEFUN FIND-DIRECTIVE ...) ; x-compiling (DEF-FORMAT-DIRECTIVE #\A ...) ; x-compiling (DEF-FORMAT-DIRECTIVE #\S ...) ; x-compiling (DEF-FORMAT-DIRECTIVE #\C ...) ; x-compiling (DEF-FORMAT-DIRECTIVE #\W ...) ; x-compiling (DEFUN EXPAND-FORMAT-INTEGER ...) ; x-compiling (DEF-FORMAT-DIRECTIVE #\D ...) ; x-compiling (DEF-FORMAT-DIRECTIVE #\B ...) ; x-compiling (DEF-FORMAT-DIRECTIVE #\O ...) ; x-compiling (DEF-FORMAT-DIRECTIVE #\X ...) ; x-compiling (DEF-FORMAT-DIRECTIVE #\R ...) ; x-compiling (DEF-FORMAT-DIRECTIVE #\P ...) ; x-compiling (DEF-FORMAT-DIRECTIVE #\F ...) ; x-compiling (DEF-FORMAT-DIRECTIVE #\E ...) ; x-compiling (DEF-FORMAT-DIRECTIVE #\G ...) ; x-compiling (DEF-FORMAT-DIRECTIVE #\$ ...) ; x-compiling (DEF-FORMAT-DIRECTIVE #\% ...) ; x-compiling (DEF-FORMAT-DIRECTIVE #\& ...) ; x-compiling (DEF-FORMAT-DIRECTIVE #\| ...) ; x-compiling (DEF-FORMAT-DIRECTIVE #\~ ...) ; x-compiling (DEF-COMPLEX-FORMAT-DIRECTIVE #\Newline ...) ; x-compiling (DEF-FORMAT-DIRECTIVE #\T ...) ; x-compiling (DEF-FORMAT-DIRECTIVE #\_ ...) ; x-compiling (DEF-FORMAT-DIRECTIVE #\I ...) ; x-compiling (DEF-FORMAT-DIRECTIVE #\* ...) ; x-compiling (DEF-FORMAT-DIRECTIVE #\? ...) ; x-compiling (DEF-COMPLEX-FORMAT-DIRECTIVE #\( ...) ; x-compiling (DEF-COMPLEX-FORMAT-DIRECTIVE #\) ...) ; x-compiling (DEF-COMPLEX-FORMAT-DIRECTIVE #\[ ...) ; x-compiling (DEFUN PARSE-CONDITIONAL-DIRECTIVE ...) ; x-compiling (DEFUN EXPAND-MAYBE-CONDITIONAL ...) ; x-compiling (DEFUN EXPAND-TRUE-FALSE-CONDITIONAL ...) ; x-compiling (DEF-COMPLEX-FORMAT-DIRECTIVE #\; ...) ; x-compiling (DEF-COMPLEX-FORMAT-DIRECTIVE #\] ...) ; x-compiling (DEF-FORMAT-DIRECTIVE #\^ ...) ; x-compiling (DEF-COMPLEX-FORMAT-DIRECTIVE #\{ ...) ; x-compiling (DEF-COMPLEX-FORMAT-DIRECTIVE #\} ...) ; x-compiling (DEFPARAMETER *ILLEGAL-INSIDE-JUSTIFICATION* ...) ; x-compiling (DEFUN ILLEGAL-INSIDE-JUSTIFICATION-P ...) ; x-compiling (DEF-COMPLEX-FORMAT-DIRECTIVE #\< ...) ; x-compiling (DEF-COMPLEX-FORMAT-DIRECTIVE #\> ...) ; x-compiling (DEFUN PARSE-FORMAT-LOGICAL-BLOCK ...) ; x-compiling (DEFUN ADD-FILL-STYLE-NEWLINES ...) ; x-compiling (DEFUN ADD-FILL-STYLE-NEWLINES-AUX ...) ; x-compiling (DEFUN PARSE-FORMAT-JUSTIFICATION ...) ; x-compiling (SB-XC:DEFMACRO EXPANDER-PPRINT-NEXT-ARG ...) ; x-compiling (DEFUN EXPAND-FORMAT-LOGICAL-BLOCK ...) ; x-compiling (DEFUN EXPAND-FORMAT-JUSTIFICATION ...) ; x-compiling (DEF-FORMAT-DIRECTIVE #\/ ...) ; x-compiling (DEFUN EXTRACT-USER-FUN-NAME ...) ; x-compiling (DEFUN %COMPILER-WALK-FORMAT-STRING ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/late-format.lisp-obj-tmp written ; compilation finished in 0:00:00.854 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/sxhash.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!C") ; x-compiling (SB-XC:DEFINE-MODIFY-MACRO MIXF ...) ; x-compiling (DEFTRANSFORM SXHASH ...) ; x-compiling (DEFTRANSFORM SXHASH ...) ; x-compiling (DEFTRANSFORM SXHASH ...) ; x-compiling (DEFTRANSFORM SXHASH ...) ; x-compiling (DEFTRANSFORM SXHASH ...) ; x-compiling (DEFTRANSFORM SXHASH ...) ; x-compiling (DEFTRANSFORM PSXHASH ...) ; x-compiling (DEFTRANSFORM PSXHASH ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/sxhash.lisp-obj-tmp written ; compilation finished in 0:00:00.058 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/signal.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!UNIX") ; x-compiling (!DEFVAR *INTERRUPTS-ENABLED* ...) ; x-compiling (!DEFVAR *INTERRUPT-PENDING* ...) ; x-compiling (!DEFVAR *ALLOW-WITH-INTERRUPTS* ...) ; x-compiling (!DEFVAR *UNBLOCK-DEFERRABLES-ON-ENABLING-INTERRUPTS-P* ...) ; x-compiling (SB-XC:DEFMACRO WITHOUT-INTERRUPTS ...) ; x-compiling (SB-XC:DEFMACRO WITH-INTERRUPTS ...) ; x-compiling (DEFMACRO ALLOW-WITH-INTERRUPTS ...) ; x-compiling (DEFMACRO WITH-LOCAL-INTERRUPTS ...) ; x-compiling (DEFUN %CHECK-INTERRUPTS ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/signal.lisp-obj-tmp written ; compilation finished in 0:00:00.033 ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/code/late-defbangmethod.lisp" (written 27 FEB 2015 04:49:47 PM): ; x-compiling (IN-PACKAGE "SB!IMPL") ; x-compiling (DEFMACRO-MUNDANELY DEF!METHOD ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/code/late-defbangmethod.lisp-obj-tmp written ; compilation finished in 0:00:00.005 creating directory: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/pcl/ ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/pcl/walk.lisp" (written 27 FEB 2015 04:49:49 PM): ; x-compiling (IN-PACKAGE "SB!WALKER") ; x-compiling (DEFVAR *KEY-TO-WALKER-ENVIRONMENT*) ; x-compiling (/SHOW "walk.lisp 108") ; x-compiling (DEFMACRO WITH-AUGMENTED-ENVIRONMENT ...) ; x-compiling (DEFVAR *BOGO-FUN-MAGIC-TAG* ...) ; x-compiling (DEFUN WALKER-INFO-TO-BOGO-FUN ...) ; x-compiling (DEFUN BOGO-FUN-TO-WALKER-INFO ...) ; x-compiling (DEFUN WITH-AUGMENTED-ENVIRONMENT-INTERNAL ...) ; x-compiling (DEFUN ENVIRONMENT-FUNCTION ...) ; x-compiling (DEFUN ENVIRONMENT-MACRO ...) ; x-compiling (DEFMACRO WITH-NEW-DEFINITION-IN-ENVIRONMENT ...) ; x-compiling (DEFUN CONVERT-MACRO-TO-LAMBDA ...) ; x-compiling (DEFMACRO WALKER-ENVIRONMENT-BIND ...) ; x-compiling (DEFVAR *KEY-TO-WALKER-ENVIRONMENT* ...) ; x-compiling (DEFUN ENV-LOCK ...) ; x-compiling (DEFUN WALKER-ENVIRONMENT-BIND-1 ...) ; x-compiling (DEFUN ENV-WALK-FUNCTION ...) ; x-compiling (DEFUN ENV-WALK-FORM ...) ; x-compiling (DEFUN ENV-DECLARATIONS ...) ; x-compiling (DEFUN ENV-VAR-TYPE ...) ; x-compiling (DEFUN ENV-LEXICAL-VARIABLES ...) ; x-compiling (DEFUN NOTE-DECLARATION ...) ; x-compiling (DEFUN NOTE-VAR-BINDING ...) ; x-compiling (DEFUN VAR-LEXICAL-P ...) ; x-compiling (DEFUN VARIABLE-SYMBOL-MACRO-P ...) ; x-compiling (DEFUN VAR-GLOBALLY-SYMBOL-MACRO-P ...) ; x-compiling (DEFUN WALKED-VAR-DECLARATION-P ...) ; x-compiling (DEFUN %VAR-DECLARATION ...) ; x-compiling (DEFUN VAR-DECLARATION ...) ; x-compiling (DEFINE-COMPILER-MACRO VAR-DECLARATION ...) ; x-compiling (DEFUN VAR-SPECIAL-P ...) ; x-compiling (DEFUN VAR-GLOBALLY-SPECIAL-P ...) ; x-compiling (DEFMACRO GET-WALKER-TEMPLATE-INTERNAL ...) ; x-compiling (DEFMACRO DEFINE-WALKER-TEMPLATE ...) ; x-compiling (DEFUN GET-WALKER-TEMPLATE ...) ; x-compiling (DEFINE-WALKER-TEMPLATE BLOCK ...) ; x-compiling (DEFINE-WALKER-TEMPLATE CATCH ...) ; x-compiling (DEFINE-WALKER-TEMPLATE DECLARE ...) ; x-compiling (DEFINE-WALKER-TEMPLATE EVAL-WHEN ...) ; x-compiling (DEFINE-WALKER-TEMPLATE FLET ...) ; x-compiling (DEFINE-WALKER-TEMPLATE FUNCTION ...) ; x-compiling (DEFINE-WALKER-TEMPLATE GO ...) ; x-compiling (DEFINE-WALKER-TEMPLATE IF ...) ; x-compiling (DEFINE-WALKER-TEMPLATE LABELS ...) ; x-compiling (DEFINE-WALKER-TEMPLATE LAMBDA ...) ; x-compiling (DEFINE-WALKER-TEMPLATE LET ...) ; x-compiling (DEFINE-WALKER-TEMPLATE LET* ...) ; x-compiling (DEFINE-WALKER-TEMPLATE LOAD-TIME-VALUE ...) ; x-compiling (DEFINE-WALKER-TEMPLATE LOCALLY ...) ; x-compiling (DEFINE-WALKER-TEMPLATE MACROLET ...) ; x-compiling (DEFINE-WALKER-TEMPLATE MULTIPLE-VALUE-CALL ...) ; x-compiling (DEFINE-WALKER-TEMPLATE MULTIPLE-VALUE-PROG1 ...) ; x-compiling (DEFINE-WALKER-TEMPLATE MULTIPLE-VALUE-SETQ ...) ; x-compiling (DEFINE-WALKER-TEMPLATE MULTIPLE-VALUE-BIND ...) ; x-compiling (DEFINE-WALKER-TEMPLATE PROGN ...) ; x-compiling (DEFINE-WALKER-TEMPLATE PROGV ...) ; x-compiling (DEFINE-WALKER-TEMPLATE QUOTE ...) ; x-compiling (DEFINE-WALKER-TEMPLATE RETURN-FROM ...) ; x-compiling (DEFINE-WALKER-TEMPLATE SETQ ...) ; x-compiling (DEFINE-WALKER-TEMPLATE SYMBOL-MACROLET ...) ; x-compiling (DEFINE-WALKER-TEMPLATE TAGBODY ...) ; x-compiling (DEFINE-WALKER-TEMPLATE THE ...) ; x-compiling (DEFINE-WALKER-TEMPLATE THROW ...) ; x-compiling (DEFINE-WALKER-TEMPLATE UNWIND-PROTECT ...) ; x-compiling (DEFINE-WALKER-TEMPLATE TRULY-THE ...) ; x-compiling (DEFINE-WALKER-TEMPLATE NAMED-LAMBDA ...) ; x-compiling (DEFVAR *WALK-FORM-EXPAND-MACROS-P* ...) ; x-compiling (DEFUN WALK-FORM ...) ; x-compiling (DEFUN WALK-FORM-INTERNAL ...) ; x-compiling (DEFUN WALK-TEMPLATE ...) ; x-compiling (DEFUN WALK-TEMPLATE-HANDLE-REPEAT ...) ; x-compiling (DEFUN WALK-TEMPLATE-HANDLE-REPEAT-1 ...) ; x-compiling (DEFUN WALK-REPEAT-EVAL ...) ; x-compiling (DEFUN RECONS ...) ; x-compiling (DEFUN RELIST ...) ; x-compiling (DEFUN RELIST* ...) ; x-compiling (DEFUN RELIST-INTERNAL ...) ; x-compiling (DEFUN WALK-DECLARATIONS ...) ; x-compiling (DEFUN WALK-UNEXPECTED-DECLARE ...) ; x-compiling (DEFUN WALK-ARGLIST ...) ; x-compiling (DEFUN WALK-LET ...) ; x-compiling (DEFUN LET*-BINDING-NAME ...) ; x-compiling (DEFUN LET*-BINDING-INIT ...) ; x-compiling (DEFUN LET*-BINDINGS ...) ; x-compiling (DEFUN WALK-LET* ...) ; x-compiling (DEFUN WALK-LOAD-TIME-VALUE ...) ; x-compiling (DEFUN WALK-LOCALLY ...) ; x-compiling (DEFUN WALK-MULTIPLE-VALUE-SETQ ...) ; x-compiling (DEFUN WALK-MULTIPLE-VALUE-BIND ...) ; x-compiling (DEFUN WALK-BINDINGS-1 ...) ; x-compiling (DEFUN WALK-LAMBDA ...) ; x-compiling (DEFUN WALK-NAMED-LAMBDA ...) ; x-compiling (DEFUN WALK-SETQ ...) ; x-compiling (DEFUN WALK-SYMBOL-MACROLET ...) ; x-compiling (DEFUN WALK-TAGBODY ...) ; x-compiling (DEFUN WALK-TAGBODY-1 ...) ; x-compiling (DEFUN WALK-MACROLET ...) ; x-compiling (DEFUN WALK-FLET ...) ; x-compiling (DEFUN WALK-LABELS ...) ; x-compiling (DEFUN WALK-IF ...) ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-xc/src/pcl/walk.lisp-obj-tmp written ; compilation finished in 0:00:00.323 T * Likely suspicious calls: 113 MAPHASH 85 SB!KERNEL:CONS-TYPE-P 69 SB!KERNEL:ARRAY-TYPE-P 41 SB!INT:LEGAL-FUN-NAME-P 33 SB!DI::DESCRIPTOR-SAP 32 SB!C::LVAR-SINGLE-VALUE-P 29 CONSTANTP 25 SB!C::NODE-BLOCK 17 SB!C::REOPTIMIZE-COMPONENT 17 SB!INT:CONSTANT-FORM-VALUE 13 SB!C::NODE-DEST 13 SB!C::SET-BOUND 13 SB!C::LVAR-USE 13 SB!C::FLUSH-LVAR-EXTERNALLY-CHECKABLE-TYPE 13 SB!IMPL::SYNONYM-STREAM-P 13 SB!SYS:FD-STREAM-P 9 SB!DI::COMPILED-FRAME-P 9 SB!IMPL::VECTOR-WITH-FILL-POINTER-P 9 SB!IMPL::BOTH-CASE-INDEX-P 9 SB!EXT:WEAK-POINTER-VALUE 5 ALPHANUMERICP 5 FILL-POINTER 5 SB!C::LVAR-HAS-SINGLE-USE-P 5 SB!C::LVAR-DERIVED-TYPE 5 SB!IMPL::%MAKUNBOUND 5 SB!IMPL::WHITESPACE[1]P 5 SB!KERNEL:%OTHER-POINTER-WIDETAG 5 SB!KERNEL:RANDOM-CHUNK 5 SB!KERNEL:UNION-TYPE-P 5 SB!KERNEL:CURRENT-DYNAMIC-SPACE-START 5 SB!THREAD::WAITQUEUE-P 5 SB!PRETTY:PRETTY-STREAM-P 5 SB!VM::CURRENT-THREAD-OFFSET-SAP 5 (SETF SB!EVAL:INTERPRETED-FUNCTION-DOCUMENTATION) 5 SB!EVAL:INTERPRETED-FUNCTION-DOCUMENTATION 5 (SETF SB!EVAL:INTERPRETED-FUNCTION-DEBUG-LAMBDA-LIST) 5 SB!EVAL:INTERPRETED-FUNCTION-DEBUG-LAMBDA-LIST 5 (SETF SB!EVAL:INTERPRETED-FUNCTION-DEBUG-NAME) 5 SB!EVAL:INTERPRETED-FUNCTION-DEBUG-NAME 5 SB!EVAL:INTERPRETED-FUNCTION-SOURCE-LOCATION Possibly suspicious calls: 1945 FORMAT 1721 ASH 1253 NCONC 621 TRUNCATE 525 SB!KERNEL:%DOUBLE-FLOAT 405 APPEND 397 COMPLEX 389 SB!KERNEL:%SINGLE-FLOAT 369 REALPART 321 MAKE-ARRAY 297 IMAGPART 285 INTEGER-LENGTH 221 LOGNOT 213 COERCE 149 ABS 101 TYPEP 77 SB!C::INTERVAL-LOW 77 SB!KERNEL:ARRAY-TYPE-DIMENSIONS 69 SB!C::INTERVAL-HIGH 53 LOGCOUNT 37 SB!SYS:SAP+ 33 SB!KERNEL:%UNARY-TRUNCATE/SINGLE-FLOAT 29 EVERY 29 SB!KERNEL:%UNARY-TRUNCATE/DOUBLE-FLOAT 21 ROUND 21 LIST-LENGTH 21 ELT 21 SB!KERNEL:%UNARY-ROUND 17 SOME 13 SYNONYM-STREAM-SYMBOL 13 VALUES-LIST 13 SB!DI:FRAME-DEBUG-FUN 9 READ-FROM-STRING 9 WRITE-TO-STRING 9 SB!C:FIXUP-FLAVOR 9 SB!C:FIXUP-NOTE-KIND 9 SB!C:FIXUP-NOTE-FIXUP 9 SB!C:FIXUP-NAME 9 SB!C:FIXUP-NOTE-POSITION 9 SB!C::COMPILER-ERROR-CONTEXT-LEXENV 9 SB!DISASSEM:SEG-VIRTUAL-LOCATION 9 SB!IMPL::FD-STREAM-CHAR-SIZE 9 (SETF SB!KERNEL:RESTART-ASSOCIATED-CONDITIONS) 9 SB!KERNEL:RESTART-ASSOCIATED-CONDITIONS 8 SB!INT:INFO 5 WRITE 5 SB!DI::COMPILED-FRAME-ESCAPED 5 SB!IMPL::EF-READ-C-STRING-FUN 5 SB!IMPL::EF-WRITE-C-STRING-FUN 5 SB!KERNEL:KEY-INFO-NAME 5 SB!KERNEL:ALIEN-TYPE-TYPE-ALIEN-TYPE 5 SB!KERNEL:UNION-TYPE-TYPES 5 SB!KERNEL:HAIRY-TYPE-SPECIFIER 5 SB!KERNEL:CHARACTER-SET-TYPE-PAIRS 5 SB!KERNEL:ARRAY-TYPE-SPECIALIZED-ELEMENT-TYPE 5 SB!KERNEL:NUMERIC-TYPE-FORMAT 5 SB!KERNEL:NEGATION-TYPE-TYPE 5 SB!KERNEL:COMPOUND-TYPE-TYPES 5 SB!SYS:FOREIGN-SYMBOL-SAP 5 SB!VM::ASH-LEFT-MODFX 4 MAPCAR 4 LIST 4 SB!KERNEL:MAKE-DOUBLE-FLOAT 4 SB!KERNEL:MAKE-SINGLE-FLOAT NIL * NIL * (#P"obj/from-xc/src/code/early-source-location.lisp-obj" #P"obj/from-xc/src/code/show.lisp-obj" #P"obj/from-xc/src/code/early-constants.lisp-obj" #P"obj/from-xc/src/code/backq.lisp-obj" #P"obj/from-xc/src/code/globals.lisp-obj" ...) * NIL * NIL * + sh make-genesis-2.sh //entering make-genesis-2.sh //loading and running GENESIS to create cold-sbcl.core (running SBCL from: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-binary) This is SBCL 1.2.7, 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. * 5 * target features *SHEBANG-FEATURES*=(:SB-CORE-COMPRESSION :OS-PROVIDES-POLL :OS-PROVIDES-GETPROTOBY-R :OS-PROVIDES-SUSECONDS-T :OS-PROVIDES-BLKSIZE-T :OS-PROVIDES-PUTWC :OS-PROVIDES-DLADDR :OS-PROVIDES-DLOPEN :LITTLE-ENDIAN :LINKAGE-TABLE :SYMBOL-INFO-VOPS :ASH-RIGHT-VOPS :MULTIPLY-HIGH-VOPS :MEMORY-BARRIER-VOPS :PRECISE-ARG-COUNT-ERROR :INLINE-CONSTANTS :CYCLE-COUNTER :ALIEN-CALLBACKS :STACK-ALLOCATABLE-FIXED-OBJECTS :STACK-ALLOCATABLE-LISTS :STACK-ALLOCATABLE-VECTORS :STACK-ALLOCATABLE-CLOSURES :RAW-INSTANCE-INIT-VOPS :UNWIND-TO-FRAME-AND-CALL-VOP :COMPARE-AND-SWAP-VOPS :C-STACK-IS-CONTROL-STACK :STACK-GROWS-DOWNWARD-NOT-UPWARD :GENCGC :LARGEFILE :SB-FUTEX :LINUX :ELF :UNIX :X86 :IEEE-FLOATING-POINT :PACKAGE-LOCAL-NICKNAMES :SB-SOURCE-LOCATIONS :SB-EVAL :SB-UNICODE :SB-PACKAGE-LOCKS :SB-LDB :SB-SHOW :SB-DOC :SBCL :COMMON-LISP :ANSI-CL) target backend-subfeatures *SHEBANG-BACKEND-FEATURES*=NIL T * # * "obj/from-xc/" * T * T * /done with show.lisp /entering backq.lisp /backq.lisp 50 /backq.lisp 64 /backq.lisp 83 /backq.lisp 139 /done with backq.lisp /entering defsetfs.lisp /leaving defsetfs.lisp /binding *DELAYED-DEF!TYPES* /done binding *DELAYED-DEF!TYPES* /binding *DELAYED-DEF!CONSTANTS* /done binding *DELAYED-DEF!CONSTANTS* /entering parse-body.lisp /leaving parse-body.lisp ; in: LAMBDA (SB-KERNEL::NEW-VALUE SB-KERNEL:INSTANCE) ; (THE SB!C::CLAMBDA #:NEW-VALUE734) ; ; caught STYLE-WARNING: ; undefined type: CLAMBDA ; ; compilation unit finished ; Undefined type: ; CLAMBDA ; caught 1 STYLE-WARNING condition ; (THE SB!C:TN #:NEW-VALUE750) ; ; caught STYLE-WARNING: ; undefined type: TN ; ; compilation unit finished ; Undefined type: ; TN ; caught 1 STYLE-WARNING condition /early in globaldb.lisp cold init /done setting *INFO-ENVIRONMENT* /beginning *INFO-TYPES* initialization /done with *INFO-TYPES* initialization ; in: SB-XC:DEFMACRO DEFTYPE ; (SB!INT:BAD-TYPE SB!IMPL::NAME 'SYMBOL "Type name is not a symbol:~% ~S" ; SB!KERNEL:FORM) ; ; caught STYLE-WARNING: ; undefined function: BAD-TYPE ; ; compilation unit finished ; Undefined function: ; BAD-TYPE ; caught 1 STYLE-WARNING condition /in DEFINE-STORAGE-BASE /not :NON-PACKED, i.e. hairy case /doing second SETF /doing third SETF /doing fourth SETF /finished with DEFINE-STORAGE-BASE expansion /in DEFINE-STORAGE-BASE /not :NON-PACKED, i.e. hairy case /doing second SETF /doing third SETF /doing fourth SETF /finished with DEFINE-STORAGE-BASE expansion /in DEFINE-STORAGE-BASE /not :NON-PACKED, i.e. hairy case /doing second SETF /doing third SETF /doing fourth SETF /finished with DEFINE-STORAGE-BASE expansion /in DEFINE-STORAGE-BASE /finished with DEFINE-STORAGE-BASE expansion /in DEFINE-STORAGE-BASE /finished with DEFINE-STORAGE-BASE expansion /in DEFINE-STORAGE-BASE /not :NON-PACKED, i.e. hairy case /doing second SETF /doing third SETF /doing fourth SETF /finished with DEFINE-STORAGE-BASE expansion /done with loop over *!BUILT-IN-CLASSES* /about to define temporary STANDARD-CLASSes /defining temporary STANDARD-CLASS /done defining temporary STANDARD-CLASSes /primtype.lisp 17 /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) T /done with !DEF-PRIMITIVE-TYPE /primtype.lisp 20 /primtype.lisp 24 /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) POSITIVE-FIXNUM /done with !DEF-PRIMITIVE-TYPE /primtype.lisp 27 /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) UNSIGNED-BYTE-31 /done with !DEF-PRIMITIVE-TYPE /primtype.lisp 31 /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) UNSIGNED-BYTE-32 /done with !DEF-PRIMITIVE-TYPE /primtype.lisp 35 /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) FIXNUM /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SIGNED-BYTE-32 /done with !DEF-PRIMITIVE-TYPE /primtype.lisp 53 /primtype.lisp 68 /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) CHARACTER /done with !DEF-PRIMITIVE-TYPE /primtype.lisp 73 /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) FUNCTION /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) LIST /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) INSTANCE /done with !DEF-PRIMITIVE-TYPE /primtype.lisp 77 /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) FUNCALLABLE-INSTANCE /done with !DEF-PRIMITIVE-TYPE /primtype.lisp 81 /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) BIGNUM /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) RATIO /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) COMPLEX /done with !DEF-PRIMITIVE-TYPE /about to !DEF-PRIMITIVE-TYPE SINGLE-FLOAT /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SINGLE-FLOAT /done with !DEF-PRIMITIVE-TYPE /about to !DEF-PRIMITIVE-TYPE DOUBLE-FLOAT /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) DOUBLE-FLOAT /done with !DEF-PRIMITIVE-TYPE /about to !DEF-PRIMITIVE-TYPE COMPLEX-SINGLE-FLOAT /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) COMPLEX-SINGLE-FLOAT /done with !DEF-PRIMITIVE-TYPE /about to !DEF-PRIMITIVE-TYPE COMPLEX-DOUBLE-FLOAT /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) COMPLEX-DOUBLE-FLOAT /done with !DEF-PRIMITIVE-TYPE /primtype.lisp 96 /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SIMPLE-ARRAY-NIL /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SIMPLE-BASE-STRING /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SIMPLE-CHARACTER-STRING /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SIMPLE-ARRAY-SINGLE-FLOAT /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SIMPLE-ARRAY-DOUBLE-FLOAT /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SIMPLE-BIT-VECTOR /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SIMPLE-ARRAY-UNSIGNED-BYTE-2 /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SIMPLE-ARRAY-UNSIGNED-BYTE-4 /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SIMPLE-ARRAY-UNSIGNED-BYTE-7 /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SIMPLE-ARRAY-UNSIGNED-BYTE-8 /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SIMPLE-ARRAY-UNSIGNED-BYTE-15 /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SIMPLE-ARRAY-UNSIGNED-BYTE-16 /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SIMPLE-ARRAY-UNSIGNED-FIXNUM /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SIMPLE-ARRAY-UNSIGNED-BYTE-31 /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SIMPLE-ARRAY-UNSIGNED-BYTE-32 /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SIMPLE-ARRAY-SIGNED-BYTE-8 /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SIMPLE-ARRAY-SIGNED-BYTE-16 /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SIMPLE-ARRAY-FIXNUM /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SIMPLE-ARRAY-SIGNED-BYTE-32 /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SIMPLE-VECTOR /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) SYSTEM-AREA-POINTER /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) WEAK-POINTER /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. /(/primitive-print) CATCH-BLOCK /done with !DEF-PRIMITIVE-TYPE /primtype.lisp 147 /primtype.lisp 188 /primtype.lisp 191 /primtype.lisp end of file /parse-lambda-list.lisp 12 /parse-lambda-list.lisp end of file /host-alieneval.lisp 15 /host-alieneval.lisp end of file /host-c-call.lisp 12 /host-c-call.lisp end of file /compiler-deftype.lisp 14 /compiler-deftype.lisp end of file /late-type.lisp 19 /late-type.lisp end of file /deftypes-for-target.lisp 14 /about to force delayed DEF!TYPEs /done forcing delayed DEF!TYPEs /deftypes-for-target.lisp end of file /knownfun.lisp 17 /knownfun.lisp end of file /beginning class-init.lisp /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="T" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="CHARACTER" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SYMBOL" /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SYSTEM-AREA-POINTER" /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="WEAK-POINTER" /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="CODE-COMPONENT" /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="LRA" /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="FDEFN" /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="RANDOM-CLASS" /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="FUNCTION" /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="NUMBER" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="COMPLEX" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="COMPLEX-SINGLE-FLOAT" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="COMPLEX-DOUBLE-FLOAT" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="REAL" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="FLOAT" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SINGLE-FLOAT" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="DOUBLE-FLOAT" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="RATIONAL" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="RATIO" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="INTEGER" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="FIXNUM" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="BIGNUM" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="ARRAY" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-ARRAY" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SEQUENCE" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="VECTOR" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-VECTOR" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="BIT-VECTOR" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-BIT-VECTOR" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-ARRAY-UNSIGNED-BYTE-2" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-ARRAY-UNSIGNED-BYTE-4" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-ARRAY-UNSIGNED-BYTE-7" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-ARRAY-UNSIGNED-BYTE-8" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-ARRAY-UNSIGNED-BYTE-15" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-ARRAY-UNSIGNED-BYTE-16" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-ARRAY-UNSIGNED-FIXNUM" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-ARRAY-UNSIGNED-BYTE-31" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-ARRAY-UNSIGNED-BYTE-32" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-ARRAY-SIGNED-BYTE-8" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-ARRAY-SIGNED-BYTE-16" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-ARRAY-FIXNUM" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-ARRAY-SIGNED-BYTE-32" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-ARRAY-SINGLE-FLOAT" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-ARRAY-DOUBLE-FLOAT" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="STRING" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-STRING" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="VECTOR-NIL" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-ARRAY-NIL" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="BASE-STRING" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-BASE-STRING" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="CHARACTER-STRING" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="SIMPLE-CHARACTER-STRING" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="LIST" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="CONS" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="NULL" /in TRANS-P case /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="STREAM" /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="FILE-STREAM" /doing class with NAME=.. /(/primitive-print) (SYMBOL-NAME NAME)="STRING-STREAM" /done with class-init.lisp /code/defstruct.lisp 15 /code/defstruct.lisp end of file /code/alien-type.lisp 16 /code/alien-type.lisp end of file /precomputing numeric types /precomputing built-in symbol type specifiers /done with type-init.lisp STYLE-WARNING: redefining SB!THREAD:BARRIER in DEFMACRO STYLE-WARNING: redefining SB!THREAD:MAKE-MUTEX in DEFUN /about to set CxR source transforms /done setting CxR source transforms /walk.lisp 108 * *TARGET-OBJECT-FILE-NAMES* * ; compiling file "/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/genesis.lisp" (written 27 FEB 2015 04:49:48 PM): ; compiling (IN-PACKAGE "SB!FASL") ; compiling (DEFCONSTANT CORE-MAGIC ...) ; compiling (DEFUN ROUND-UP ...) ; compiling (DEFCONSTANT +SMALLVEC-LENGTH+ ...) ; compiling (DEFTYPE SMALLVEC ...) ; compiling (DEFUN MAKE-SMALLVEC ...) ; compiling (DEFSTRUCT BIGVEC ...) ; compiling (DEFUN BVREF ...) ; compiling (DEFUN (SETF BVREF) ...) ; compiling (DEFUN BVLENGTH ...) ; compiling (DEFUN WRITE-BIGVEC-AS-SEQUENCE ...) ; compiling (DEFUN READ-BIGVEC-AS-SEQUENCE-OR-DIE ...) ; compiling (DEFUN EXPAND-BIGVEC ...) ; compiling (MAKE-BVREF-N 8) ; compiling (MAKE-BVREF-N 16) ; compiling (MAKE-BVREF-N 32) ; compiling (MAKE-BVREF-N 64) ; compiling (DEFUN BVREF-WORD ...) ; compiling (DEFUN (SETF BVREF-WORD) ...) ; compiling (DEFVAR *DYNAMIC*) ; compiling (DEFCONSTANT DYNAMIC-CORE-SPACE-ID ...) ; compiling (DEFVAR *STATIC*) ; compiling (DEFCONSTANT STATIC-CORE-SPACE-ID ...) ; compiling (DEFVAR *READ-ONLY*) ; compiling (DEFCONSTANT READ-ONLY-CORE-SPACE-ID ...) ; compiling (DEFCONSTANT MAX-CORE-SPACE-ID ...) ; compiling (DEFCONSTANT DEFLATED-CORE-SPACE-ID-FLAG ...) ; compiling (DEFCONSTANT TARGET-SPACE-ALIGNMENT ...) ; compiling (DEFSTRUCT (GSPACE # ...) ...) ; compiling (DEFUN GSPACE-BYTE-ADDRESS ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFUN MAKE-GSPACE ...) ; compiling (DEFUN IS-FIXNUM-LOWTAG ...) ; compiling (DEFUN IS-OTHER-IMMEDIATE-LOWTAG ...) ; compiling (DEFSTRUCT (DESCRIPTOR # ...) ...) ; compiling (DEFUN MAKE-RANDOM-DESCRIPTOR ...) ; compiling (DEF!METHOD PRINT-OBJECT ...) ; compiling (DEFUN ALLOCATE-COLD-DESCRIPTOR ...) ; compiling (DEFUN DESCRIPTOR-LOWTAG ...) ; compiling (DEFUN DESCRIPTOR-FIXNUM ...) ; compiling (DEFUN DESCRIPTOR-WORD-SIZED-INTEGER ...) ; compiling (DEFUN DESCRIPTOR-BYTES ...) ; compiling (DEFUN DESCRIPTOR-BYTE-OFFSET ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN DESCRIPTOR-INTUIT-GSPACE ...) ; compiling (DEFUN %FIXNUM-DESCRIPTOR-IF-POSSIBLE ...) ; compiling (DEFUN MAKE-FIXNUM-DESCRIPTOR ...) ; compiling (DEFUN MAKE-OTHER-IMMEDIATE-DESCRIPTOR ...) ; compiling (DEFUN MAKE-CHARACTER-DESCRIPTOR ...) ; compiling (DEFUN DESCRIPTOR-BEYOND ...) ; compiling (DEFVAR *FOREIGN-SYMBOL-PLACEHOLDER-VALUE*) ; compiling (DEFVAR *UNBOUND-MARKER*) ; compiling (DEFVAR *NIL-DESCRIPTOR*) ; compiling (DEFVAR *CURRENT-REVERSED-COLD-TOPLEVELS*) ; compiling (DEFVAR *CURRENT-DEBUG-SOURCES*) ; compiling (DEFPARAMETER *COLD-FOREIGN-UNDEFINED-SYMBOLS* ...) ; compiling (DEFVAR *COLD-LOAD-FILENAME* ...) ; compiling (DECLAIM (TYPE # ...)) ; compiling (DEFMACRO COLD-PUSH ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN READ-BITS-WORDINDEXED ...) ; compiling (DEFUN READ-WORDINDEXED ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN READ-MEMORY ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN NOTE-LOAD-TIME-VALUE-REFERENCE ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN WRITE-WORDINDEXED ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN WRITE-MEMORY ...) ; compiling (DEFUN WRITE-HEADER-WORD ...) ; compiling (DEFUN ALLOCATE-OBJECT ...) ; compiling (DEFUN ALLOCATE-HEADER+OBJECT ...) ; compiling (DEFUN ALLOCATE-VECTOR-OBJECT ...) ; compiling (DEFUN COLD-LAYOUT-LENGTH ...) ; compiling (DEFUN ALLOCATE-STRUCT ...) ; compiling (DEFUN BASE-STRING-TO-CORE ...) ; compiling (DEFUN BASE-STRING-FROM-CORE ...) ; compiling (DEFUN BIGNUM-TO-CORE ...) ; compiling (DEFUN BIGNUM-FROM-CORE ...) ; compiling (DEFUN NUMBER-PAIR-TO-CORE ...) ; compiling (DEFUN WRITE-DOUBLE-FLOAT-BITS ...) ; file: /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/src/compiler/generic/genesis.lisp ; in: DEFUN WRITE-DOUBLE-FLOAT-BITS ; (LET ((SB!FASL::BITS ; (SB!FASL::MAKE-RANDOM-DESCRIPTOR (ECASE SB!C:*BACKEND-BYTE-ORDER* #)))) ; (SB!FASL::WRITE-WORDINDEXED SB!FASL::ADDRESS SB!INT:INDEX SB!FASL::BITS)) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (LOGIOR SB!FASL::LO (ASH SB!FASL::HI 32)) ; ==> ; SB!FASL::LO ; ; note: deleting unreachable code ; (SB!FASL::MAKE-RANDOM-DESCRIPTOR ; (ECASE SB!C:*BACKEND-BYTE-ORDER* ; (:LITTLE-ENDIAN (LOGIOR SB!FASL::LO (ASH SB!FASL::HI 32))))) ; ; note: deleting unreachable code ; compiling (DEFUN FLOAT-TO-CORE ...) ; compiling (DEFUN COMPLEX-SINGLE-FLOAT-TO-CORE ...) ; compiling (DEFUN COMPLEX-DOUBLE-FLOAT-TO-CORE ...) ; compiling (DEFUN NUMBER-TO-CORE ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN SAP-INT-TO-CORE ...) ; compiling (DEFUN COLD-CONS ...) ; compiling (DEFUN VECTOR-IN-CORE ...) ; compiling (DEFUN VECTOR-FROM-CORE ...) ; compiling (DEFVAR *GENESIS-TLS-COUNTER* ...) ; compiling (DEFUN ALLOCATE-SYMBOL ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN COLD-SET ...) ; compiling (DEFVAR *COLD-LAYOUTS* ...) ; compiling (DEFVAR *COLD-LAYOUT-NAMES* ...) ; compiling (DEFVAR *LAYOUT-LAYOUT*) ; compiling (DEFVAR *PACKAGE-LAYOUT*) ; compiling (DEFCONSTANT TARGET-LAYOUT-LENGTH ...) ; compiling (DEFUN LISTIFY-COLD-INHERITS ...) ; compiling (DEFUN WRITE-SLOTS ...) ; compiling (DEFUN READ-SLOT ...) ; compiling (DEFVAR *SIMPLE-VECTOR-0-DESCRIPTOR*) ; compiling (DEFVAR *VACUOUS-SLOT-TABLE*) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN MAKE-COLD-LAYOUT ...) ; compiling (DEFUN PATCH-INSTANCE-LAYOUT ...) ; compiling (DEFUN INITIALIZE-LAYOUTS ...) ; compiling (DEFVAR *COLD-PACKAGE-SYMBOLS*) ; compiling (DECLAIM (TYPE HASH-TABLE ...)) ; compiling (DEFVAR *COLD-SYMBOLS*) ; compiling (DECLAIM (TYPE HASH-TABLE ...)) ; compiling (DEFUN INITIALIZE-PACKAGES ...) ; compiling (DEFUN PACKAGE-OK-FOR-TARGET-SYMBOL-P ...) ; compiling (DEFUN SYMBOL-PACKAGE-FOR-TARGET-SYMBOL ...) ; compiling (DEFVAR *UNINTERNED-SYMBOL-TABLE* ...) ; compiling (DEFUN GET-UNINTERNED-SYMBOL ...) ; compiling (DEFUN HOST-CONSTANT-TO-CORE ...) ; compiling (DEFUN COLD-INTERN ...) ; compiling (DEFUN RECORD-ACCESSIBILITY ...) ; compiling (DEFUN MAKE-NIL-DESCRIPTOR ...) ; compiling (DEFUN INITIALIZE-NON-NIL-SYMBOLS ...) ; compiling (DEFUN COLD-LIST-ALL-LAYOUTS ...) ; compiling (DEFUN FINISH-SYMBOLS ...) ; compiling (DEFVAR *COLD-FDEFN-OBJECTS*) ; compiling (DEFVAR *COLD-FDEFN-GSPACE* ...) ; compiling (DEFUN WARM-SYMBOL ...) ; compiling (DEFUN COLD-CAR ...) ; compiling (DEFUN COLD-CDR ...) ; compiling (DEFUN COLD-NULL ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN WARM-FUN-NAME ...) ; compiling (DEFUN COLD-FDEFINITION-OBJECT ...) ; compiling (DEFUN STATIC-FSET ...) ; compiling (DEFPARAMETER *COLD-FSET-WARM-NAMES* ...) ; compiling (DEFUN COLD-FSET ...) ; compiling (DEFUN INITIALIZE-STATIC-FNS ...) ; compiling (DEFUN ATTACH-FDEFINITIONS-TO-SYMBOLS ...) ; compiling (DEFVAR *COLD-FOREIGN-SYMBOL-TABLE*) ; compiling (DECLAIM (TYPE HASH-TABLE ...)) ; compiling (DEFUN LOAD-COLD-FOREIGN-SYMBOL-TABLE ...) ; compiling (DEFUN COLD-FOREIGN-SYMBOL-ADDRESS ...) ; compiling (DEFVAR *COLD-ASSEMBLER-ROUTINES*) ; compiling (DEFVAR *COLD-ASSEMBLER-FIXUPS*) ; compiling (DEFUN RECORD-COLD-ASSEMBLER-ROUTINE ...) ; compiling (DEFUN RECORD-COLD-ASSEMBLER-FIXUP ...) ; compiling (DEFUN LOOKUP-ASSEMBLER-REFERENCE ...) ; compiling (DEFVAR *LOAD-TIME-CODE-FIXUPS*) ; compiling (DEFUN NOTE-LOAD-TIME-CODE-FIXUP ...) ; compiling (DEFUN OUTPUT-LOAD-TIME-CODE-FIXUPS ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN CALC-OFFSET ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN DO-COLD-FIXUP ...) ; compiling (DEFUN RESOLVE-ASSEMBLER-FIXUPS ...) ; compiling (DEFUN FOREIGN-SYMBOLS-TO-CORE ...) ; compiling (DEFVAR *COLD-FOP-FUNS* ...) ; compiling (DEFUN POP-FOP-STACK ...) ; compiling (DEFMACRO DEFINE-COLD-FOP ...) ; compiling (DEFMACRO NOT-COLD-FOP ...) ; compiling (DEFUN COLD-LOAD ...) ; compiling (DEFINE-COLD-FOP (FOP-MISC-TRAP) ...) ; compiling (DEFINE-COLD-FOP (FOP-CHARACTER #) ...) ; compiling (DEFINE-COLD-FOP (FOP-EMPTY-LIST) ...) ; compiling (DEFINE-COLD-FOP (FOP-TRUTH) ...) ; compiling (DEFINE-COLD-FOP (FOP-STRUCT #) ...) ; compiling (DEFINE-COLD-FOP (FOP-LAYOUT) ...) ; compiling (DEFUN COLD-LOAD-SYMBOL ...) ; compiling (FLET (#) ...) ; compiling (DEFINE-COLD-FOP (FOP-LISP-SYMBOL-SAVE #) ...) ; compiling (DEFINE-COLD-FOP (FOP-KEYWORD-SYMBOL-SAVE #) ...) ; compiling (DEFINE-COLD-FOP (FOP-UNINTERNED-SYMBOL-SAVE #) ...) ; compiling (DEFINE-COLD-FOP (FOP-COPY-SYMBOL-SAVE #) ...) ; compiling (DEFINE-COLD-FOP (FOP-NAMED-PACKAGE-SAVE #) ...) ; compiling (DEFMACRO COLD-STACK-LIST ...) ; compiling (DEFINE-COLD-FOP (FOP-LIST) ...) ; compiling (DEFINE-COLD-FOP (FOP-LIST*) ...) ; compiling (DEFINE-COLD-FOP (FOP-LIST-1) ...) ; compiling (DEFINE-COLD-FOP (FOP-LIST-2) ...) ; compiling (DEFINE-COLD-FOP (FOP-LIST-3) ...) ; compiling (DEFINE-COLD-FOP (FOP-LIST-4) ...) ; compiling (DEFINE-COLD-FOP (FOP-LIST-5) ...) ; compiling (DEFINE-COLD-FOP (FOP-LIST-6) ...) ; compiling (DEFINE-COLD-FOP (FOP-LIST-7) ...) ; compiling (DEFINE-COLD-FOP (FOP-LIST-8) ...) ; compiling (DEFINE-COLD-FOP (FOP-LIST*-1) ...) ; compiling (DEFINE-COLD-FOP (FOP-LIST*-2) ...) ; compiling (DEFINE-COLD-FOP (FOP-LIST*-3) ...) ; compiling (DEFINE-COLD-FOP (FOP-LIST*-4) ...) ; compiling (DEFINE-COLD-FOP (FOP-LIST*-5) ...) ; compiling (DEFINE-COLD-FOP (FOP-LIST*-6) ...) ; compiling (DEFINE-COLD-FOP (FOP-LIST*-7) ...) ; compiling (DEFINE-COLD-FOP (FOP-LIST*-8) ...) ; compiling (DEFINE-COLD-FOP (FOP-BASE-STRING #) ...) ; compiling (DEFINE-COLD-FOP (FOP-CHARACTER-STRING #) ...) ; compiling (DEFINE-COLD-FOP (FOP-VECTOR #) ...) ; compiling (DEFINE-COLD-FOP (FOP-SPEC-VECTOR) ...) ; compiling (NOT-COLD-FOP FOP-ARRAY) ; compiling (DEFMACRO DEFINE-COLD-NUMBER-FOP ...) ; compiling (DEFINE-COLD-NUMBER-FOP FOP-SINGLE-FLOAT) ; compiling (DEFINE-COLD-NUMBER-FOP FOP-DOUBLE-FLOAT) ; compiling (DEFINE-COLD-NUMBER-FOP FOP-WORD-INTEGER) ; compiling (DEFINE-COLD-NUMBER-FOP FOP-BYTE-INTEGER) ; compiling (DEFINE-COLD-NUMBER-FOP FOP-COMPLEX-SINGLE-FLOAT) ; compiling (DEFINE-COLD-NUMBER-FOP FOP-COMPLEX-DOUBLE-FLOAT) ; compiling (DEFINE-COLD-NUMBER-FOP FOP-INTEGER ...) ; compiling (DEFINE-COLD-FOP (FOP-RATIO) ...) ; compiling (DEFINE-COLD-FOP (FOP-COMPLEX) ...) ; compiling (NOT-COLD-FOP FOP-EVAL) ; compiling (NOT-COLD-FOP FOP-EVAL-FOR-EFFECT) ; compiling (DEFVAR *LOAD-TIME-VALUE-COUNTER*) ; compiling (DEFINE-COLD-FOP (FOP-FUNCALL) ...) ; compiling (DEFUN FINALIZE-LOAD-TIME-VALUE-NOISE ...) ; compiling (DEFINE-COLD-FOP (FOP-FUNCALL-FOR-EFFECT) ...) ; compiling (DEFINE-COLD-FOP (FOP-RPLACA) ...) ; compiling (DEFINE-COLD-FOP (FOP-RPLACD) ...) ; compiling (DEFINE-COLD-FOP (FOP-SVSET) ...) ; compiling (DEFINE-COLD-FOP (FOP-STRUCTSET) ...) ; compiling (DEFINE-COLD-FOP (FOP-NTHCDR) ...) ; compiling (DEFUN COLD-NTHCDR ...) ; compiling (DEFINE-COLD-FOP (FOP-NOTE-DEBUG-SOURCE) ...) ; compiling (DEFINE-COLD-FOP (FOP-FDEFN) ...) ; compiling (DEFVAR *SHOW-PRE-FIXUP-CODE-P* ...) ; compiling (DEFUN COLD-LOAD-CODE ...) ; compiling (DOTIMES (I 16) ...) ; compiling (DEFINE-COLD-FOP (FOP-ALTER-CODE #) ...) ; compiling (DEFVAR *SIMPLE-FUN-METADATA* ...) ; compiling (DEFUN MAKE-EQUAL-COMPARABLE-THING ...) ; compiling (DEFINE-COLD-FOP (FOP-FUN-ENTRY) ...) ; compiling (DEFINE-COLD-FOP (FOP-FOREIGN-FIXUP) ...) ; compiling (DEFINE-COLD-FOP (FOP-FOREIGN-DATAREF-FIXUP) ...) ; compiling (DEFINE-COLD-FOP (FOP-ASSEMBLER-CODE) ...) ; compiling (DEFINE-COLD-FOP (FOP-ASSEMBLER-ROUTINE) ...) ; compiling (DEFINE-COLD-FOP (FOP-ASSEMBLER-FIXUP) ...) ; compiling (DEFINE-COLD-FOP (FOP-CODE-OBJECT-FIXUP) ...) ; compiling (DEFUN CHECK-SPACES ...) ; compiling (DEFUN TAILWISE-EQUAL ...) ; compiling (DEFUN WRITE-BOILERPLATE ...) ; compiling (DEFUN C-NAME ...) ; compiling (DEFUN C-SYMBOL-NAME ...) ; compiling (DEFUN WRITE-MAKEFILE-FEATURES ...) ; compiling (DEFUN WRITE-CONFIG-H ...) ; compiling (DEFUN WRITE-CONSTANTS-H ...) ; compiling (DEFUN WRITE-TAGNAMES-H ...) ; compiling (DEFUN WRITE-PRIMITIVE-OBJECT ...) ; compiling (DEFUN WRITE-STRUCTURE-OBJECT ...) ; compiling (DEFUN WRITE-STATIC-SYMBOLS ...) ; compiling (DEFUN WRITE-MAP ...) ; compiling (DEFVAR *CORE-FILE*) ; compiling (DEFVAR *DATA-PAGE*) ; compiling (DEFCONSTANT BUILD-ID-CORE-ENTRY-TYPE-CODE ...) ; compiling (DEFCONSTANT NEW-DIRECTORY-CORE-ENTRY-TYPE-CODE ...) ; compiling (DEFCONSTANT INITIAL-FUN-CORE-ENTRY-TYPE-CODE ...) ; compiling (DEFCONSTANT PAGE-TABLE-CORE-ENTRY-TYPE-CODE ...) ; compiling (DEFCONSTANT END-CORE-ENTRY-TYPE-CODE ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN WRITE-WORD ...) ; compiling (DEFUN ADVANCE-TO-PAGE ...) ; compiling (DEFUN OUTPUT-GSPACE ...) ; compiling (DECLAIM (FTYPE # ...)) ; compiling (DEFUN WRITE-INITIAL-CORE-FILE ...) ; compiling (DEFUN SB!VM:GENESIS ...) ; compiling (DEFUN WARMELIZE ...); ; compilation unit finished ; printed 4 notes ; /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9/obj/from-host/src/compiler/generic/genesis.fasl-tmp written ; compilation finished in 0:00:01.377 T * beginning GENESIS, creating core "output/cold-sbcl.core" /load-cold-foreign-symbol-table FILENAME="src/runtime/sbcl.nm" /adding to *cold-foreign-symbol-table*: NAME="posix_argv" VALUE=134728836 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__readdir" VALUE=134654832 /adding to *cold-foreign-symbol-table*: NAME="__libc_csu_fini" VALUE=134656160 /adding to *cold-foreign-symbol-table*: NAME="alloc_to_edx" VALUE=134652912 /adding to *cold-foreign-symbol-table*: NAME="core_string" VALUE=134728840 /adding to *cold-foreign-symbol-table*: NAME="gc_and_save" VALUE=134652112 /adding to *cold-foreign-symbol-table*: NAME="flush_vars" VALUE=134618624 /adding to *cold-foreign-symbol-table*: NAME="os_context_fp_control" VALUE=134624752 /adding to *cold-foreign-symbol-table*: NAME="current_memory_fault_address" VALUE=134728128 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__getgid" VALUE=134654288 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__unlink" VALUE=134655184 /adding to *cold-foreign-symbol-table*: NAME="search_for_symbol" VALUE=134615712 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__getpgrp" VALUE=134654384 /adding to *cold-foreign-symbol-table*: NAME="alloc_overflow_ecx" VALUE=134653312 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__cfgetispeed" VALUE=134655440 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__readlink" VALUE=134654848 /adding to *cold-foreign-symbol-table*: NAME="scavenge" VALUE=134564912 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__waitpid" VALUE=134655232 /adding to *cold-foreign-symbol-table*: NAME="fstat_wrapper" VALUE=134620576 /adding to *cold-foreign-symbol-table*: NAME="page_address" VALUE=134628736 /adding to *cold-foreign-symbol-table*: NAME="sigint_init" VALUE=134609424 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__dlsym" VALUE=134655360 /adding to *cold-foreign-symbol-table*: NAME="gc_init" VALUE=134648688 /adding to *cold-foreign-symbol-table*: NAME="fpu_save" VALUE=134652670 /adding to *cold-foreign-symbol-table*: NAME="blockables_blocked_p" VALUE=134578432 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__free" VALUE=134654160 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__cfgetospeed" VALUE=134655456 /adding to *cold-foreign-symbol-table*: NAME="print_generation_stats" VALUE=134630144 /adding to *cold-foreign-symbol-table*: NAME="handle_breakpoint" VALUE=134555888 /adding to *cold-foreign-symbol-table*: NAME="load_runtime" VALUE=134614352 /adding to *cold-foreign-symbol-table*: NAME="runtime_options" VALUE=134728844 /adding to *cold-foreign-symbol-table*: NAME="disable_lossage_handler" VALUE=134573584 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__setpgrp" VALUE=134654976 /adding to *cold-foreign-symbol-table*: NAME="in_dontmove_nativeptr_p" VALUE=134639920 /adding to *cold-foreign-symbol-table*: NAME="data_start" VALUE=134710080 /adding to *cold-foreign-symbol-table*: NAME="__environ@@GLIBC_2.0" VALUE=134711360 /adding to *cold-foreign-symbol-table*: NAME="handle_single_step_trap" VALUE=134556496 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__dlerror" VALUE=134655328 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__bind" VALUE=134653904 /adding to *cold-foreign-symbol-table*: NAME="collect_garbage" VALUE=134641280 /adding to *cold-foreign-symbol-table*: NAME="bytes_allocated" VALUE=134712480 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__fork" VALUE=134654144 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__getpeername" VALUE=134654368 /adding to *cold-foreign-symbol-table*: NAME="open_core_for_saving" VALUE=134613200 /adding to *cold-foreign-symbol-table*: NAME="dynamic_values_bytes" VALUE=134711240 /adding to *cold-foreign-symbol-table*: NAME="dontmove_dwords" VALUE=134631360 /adding to *cold-foreign-symbol-table*: NAME="wtermsig" VALUE=134621392 /adding to *cold-foreign-symbol-table*: NAME="define_dynamic_var" VALUE=134619584 /adding to *cold-foreign-symbol-table*: NAME="funcallable_instance_tramp" VALUE=134652720 /adding to *cold-foreign-symbol-table*: NAME="stderr@@GLIBC_2.0" VALUE=134711368 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__sinh" VALUE=134655008 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__isatty" VALUE=134654528 /adding to *cold-foreign-symbol-table*: NAME="os_vm_page_size" VALUE=134728852 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__gethostbyname" VALUE=134654320 /adding to *cold-foreign-symbol-table*: NAME="lower_control_stack_guard_page" VALUE=134588688 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__asinh" VALUE=134653872 /adding to *cold-foreign-symbol-table*: NAME="sb_readdir" VALUE=134620208 /adding to *cold-foreign-symbol-table*: NAME="protect_control_stack_hard_guard_page" VALUE=134618064 /adding to *cold-foreign-symbol-table*: NAME="fun_end_breakpoint_trap" VALUE=134652758 /adding to *cold-foreign-symbol-table*: NAME="unblock_deferrable_signals" VALUE=134580224 /adding to *cold-foreign-symbol-table*: NAME="gc_init_tables" VALUE=134568992 /adding to *cold-foreign-symbol-table*: NAME="check_blockables_unblocked_or_lose" VALUE=134578656 /adding to *cold-foreign-symbol-table*: NAME="funcall1" VALUE=134559136 /adding to *cold-foreign-symbol-table*: NAME="alloc_to_eax" VALUE=134652784 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__tcsendbreak" VALUE=134655568 /adding to *cold-foreign-symbol-table*: NAME="wifsignaled" VALUE=134621360 /adding to *cold-foreign-symbol-table*: NAME="lose" VALUE=134573600 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__dup2" VALUE=134654048 /adding to *cold-foreign-symbol-table*: NAME="funcall3" VALUE=134559296 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__poll" VALUE=134654784 /adding to *cold-foreign-symbol-table*: NAME="n_dwords_in_card" VALUE=134682156 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__kill" VALUE=134654544 /adding to *cold-foreign-symbol-table*: NAME="search_for_executable" VALUE=134610432 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__getuid" VALUE=134654480 /adding to *cold-foreign-symbol-table*: NAME="is_valid_lisp_addr" VALUE=134623984 /adding to *cold-foreign-symbol-table*: NAME="gencgc_oldest_gen_to_gc" VALUE=134711260 /adding to *cold-foreign-symbol-table*: NAME="successful_malloc" VALUE=134609456 /adding to *cold-foreign-symbol-table*: NAME="alloc_to_esi" VALUE=134653088 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__tcflush" VALUE=134655536 /adding to *cold-foreign-symbol-table*: NAME="sb_opendir" VALUE=134620192 /adding to *cold-foreign-symbol-table*: NAME="interrupt_handle_pending" VALUE=134586032 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__tcflow" VALUE=134655520 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__getpid" VALUE=134654400 /adding to *cold-foreign-symbol-table*: NAME="gc_sigset" VALUE=134728192 /adding to *cold-foreign-symbol-table*: NAME="voidacc_dtor" VALUE=134617776 /adding to *cold-foreign-symbol-table*: NAME="odxprint_fun" VALUE=134602352 /adding to *cold-foreign-symbol-table*: NAME="linux_no_threads_p" VALUE=134712384 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__cfsetispeed" VALUE=134655472 /adding to *cold-foreign-symbol-table*: NAME="arch_init" VALUE=134622000 /adding to *cold-foreign-symbol-table*: NAME="kill_safely" VALUE=134616752 /adding to *cold-foreign-symbol-table*: NAME="breakpoint_install" VALUE=134555792 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__exit" VALUE=134654080 /adding to *cold-foreign-symbol-table*: NAME="_edata" VALUE=134711300 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__close" VALUE=134653952 /adding to *cold-foreign-symbol-table*: NAME="fstat_largefile" VALUE=134592080 /adding to *cold-foreign-symbol-table*: NAME="os_context_sp_addr" VALUE=134624720 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__hypot" VALUE=134654496 /adding to *cold-foreign-symbol-table*: NAME="write_heap_exhaustion_report" VALUE=134629968 /adding to *cold-foreign-symbol-table*: NAME="sb_closedir" VALUE=134620224 /adding to *cold-foreign-symbol-table*: NAME="undefined_alien_address" VALUE=134712100 /adding to *cold-foreign-symbol-table*: NAME="debug_get_ldt" VALUE=134624240 /adding to *cold-foreign-symbol-table*: NAME="print_version" VALUE=134610064 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__access" VALUE=134653808 /adding to *cold-foreign-symbol-table*: NAME="os_context_fp_addr" VALUE=134624736 /adding to *cold-foreign-symbol-table*: NAME="vodxprint_fun" VALUE=134602176 /adding to *cold-foreign-symbol-table*: NAME="instance_classoid_name" VALUE=134573184 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__tcdrain" VALUE=134655504 /adding to *cold-foreign-symbol-table*: NAME="unbind_to_here" VALUE=134559024 /adding to *cold-foreign-symbol-table*: NAME="scavenge_pages_with_conservative_pointers_to_them_protected_objects_only" VALUE=134640000 /adding to *cold-foreign-symbol-table*: NAME="component_ptr_from_pc" VALUE=134571472 /adding to *cold-foreign-symbol-table*: NAME="check_gc_signals_blocked_or_lose" VALUE=134579600 /adding to *cold-foreign-symbol-table*: NAME="ftruncate_largefile" VALUE=134592016 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__memmove" VALUE=134654688 /adding to *cold-foreign-symbol-table*: NAME="protect_binding_stack_guard_page" VALUE=134618304 /adding to *cold-foreign-symbol-table*: NAME="create_initial_thread" VALUE=134616048 /adding to *cold-foreign-symbol-table*: NAME="os_allocate" VALUE=134594960 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__gethostbyaddr" VALUE=134654304 /adding to *cold-foreign-symbol-table*: NAME="_fini" VALUE=134656308 /adding to *cold-foreign-symbol-table*: NAME="os_install_interrupt_handlers" VALUE=134624096 /adding to *cold-foreign-symbol-table*: NAME="lstat_largefile" VALUE=134592112 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__fcntl" VALUE=134654128 /adding to *cold-foreign-symbol-table*: NAME="search_static_space" VALUE=134639712 /adding to *cold-foreign-symbol-table*: NAME="deferrable_sigset" VALUE=134728320 /adding to *cold-foreign-symbol-table*: NAME="verify_dynamic_code_check" VALUE=134712504 /adding to *cold-foreign-symbol-table*: NAME="gencgc_handle_wp_violation" VALUE=134651680 /adding to *cold-foreign-symbol-table*: NAME="copied_string" VALUE=134609504 /adding to *cold-foreign-symbol-table*: NAME="arch_handle_fun_end_breakpoint" VALUE=134622656 /adding to *cold-foreign-symbol-table*: NAME="fast_bzero_base" VALUE=134653648 /adding to *cold-foreign-symbol-table*: NAME="heap_base" VALUE=134712468 /adding to *cold-foreign-symbol-table*: NAME="alloc_to_ebx" VALUE=134652992 /adding to *cold-foreign-symbol-table*: NAME="var_clock" VALUE=134619936 /adding to *cold-foreign-symbol-table*: NAME="alloc_code_object" VALUE=134552336 /adding to *cold-foreign-symbol-table*: NAME="sb_mkstemp" VALUE=134620736 /adding to *cold-foreign-symbol-table*: NAME="post_signal_tramp" VALUE=134653472 /adding to *cold-foreign-symbol-table*: NAME="s_isblk" VALUE=134621536 /adding to *cold-foreign-symbol-table*: NAME="gc_heap_exhausted_error_or_lose" VALUE=134632560 /adding to *cold-foreign-symbol-table*: NAME="reset_printer" VALUE=134607920 /adding to *cold-foreign-symbol-table*: NAME="s_isdir" VALUE=134621472 /adding to *cold-foreign-symbol-table*: NAME="gencgc_partial_pickup" VALUE=134712484 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__sync" VALUE=134655104 /adding to *cold-foreign-symbol-table*: NAME="sigaddset_deferrable" VALUE=134577520 /adding to *cold-foreign-symbol-table*: NAME="mmap_largefile" VALUE=134592032 /adding to *cold-foreign-symbol-table*: NAME="os_deallocate" VALUE=134594992 /adding to *cold-foreign-symbol-table*: NAME="print_locale_variable" VALUE=134611344 /adding to *cold-foreign-symbol-table*: NAME="arch_handle_breakpoint" VALUE=134622608 /adding to *cold-foreign-symbol-table*: NAME="alloc_number" VALUE=134552192 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__dup" VALUE=134654032 /adding to *cold-foreign-symbol-table*: NAME="enable_lossage_handler" VALUE=134573568 /adding to *cold-foreign-symbol-table*: NAME="maybe_defer_handler" VALUE=134586992 /adding to *cold-foreign-symbol-table*: NAME="open_binary" VALUE=134556592 /adding to *cold-foreign-symbol-table*: NAME="alloc_overflow_eax" VALUE=134653280 /adding to *cold-foreign-symbol-table*: NAME="maybe_gc" VALUE=134572416 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__mkdir" VALUE=134654704 /adding to *cold-foreign-symbol-table*: NAME="large_object_size" VALUE=134711276 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__strerror" VALUE=134655056 /adding to *cold-foreign-symbol-table*: NAME="gencgc_verify_zero_fill" VALUE=134641120 /adding to *cold-foreign-symbol-table*: NAME="gc_set_region_empty" VALUE=134652064 /adding to *cold-foreign-symbol-table*: NAME="write_generation_stats" VALUE=134628896 /adding to *cold-foreign-symbol-table*: NAME="context_eflags_addr" VALUE=134622032 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__read" VALUE=134654816 /adding to *cold-foreign-symbol-table*: NAME="alloc_16_to_edi" VALUE=134653248 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__dlclose" VALUE=134655312 /adding to *cold-foreign-symbol-table*: NAME="search_for_type" VALUE=134615584 /adding to *cold-foreign-symbol-table*: NAME="wifstopped" VALUE=134621408 /adding to *cold-foreign-symbol-table*: NAME="lookup_by_name" VALUE=134618944 /adding to *cold-foreign-symbol-table*: NAME="os_context_register_addr" VALUE=134624528 /adding to *cold-foreign-symbol-table*: NAME="sb_dirent_name" VALUE=134620240 /adding to *cold-foreign-symbol-table*: NAME="save" VALUE=134615264 /adding to *cold-foreign-symbol-table*: NAME="valid_lisp_pointer_p" VALUE=134572048 /adding to *cold-foreign-symbol-table*: NAME="throw_to_monitor" VALUE=134594736 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__socket" VALUE=134655024 /adding to *cold-foreign-symbol-table*: NAME="arch_write_linkage_table_ref" VALUE=134622992 /adding to *cold-foreign-symbol-table*: NAME="print_environment" VALUE=134612112 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__ptsname" VALUE=134655264 /adding to *cold-foreign-symbol-table*: NAME="parse_addr" VALUE=134595680 /adding to *cold-foreign-symbol-table*: NAME="thread_control_stack_size" VALUE=134710184 /adding to *cold-foreign-symbol-table*: NAME="sb_getitimer" VALUE=134621728 /adding to *cold-foreign-symbol-table*: NAME="maybe_initialize_runtime_options" VALUE=134556608 /adding to *cold-foreign-symbol-table*: NAME="arch_skip_instruction" VALUE=134622048 /adding to *cold-foreign-symbol-table*: NAME="sigill_handler" VALUE=134621776 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__ftruncate" VALUE=134654208 /adding to *cold-foreign-symbol-table*: NAME="os_restore_fp_control" VALUE=134624800 /adding to *cold-foreign-symbol-table*: NAME="blockable_sigset" VALUE=134728448 /adding to *cold-foreign-symbol-table*: NAME="breakpoint_remove" VALUE=134555824 /adding to *cold-foreign-symbol-table*: NAME="globals_init" VALUE=134573472 /adding to *cold-foreign-symbol-table*: NAME="current_dynamic_space" VALUE=134728064 /adding to *cold-foreign-symbol-table*: NAME="thread_yield" VALUE=134616640 /adding to *cold-foreign-symbol-table*: NAME="arch_handle_single_step_trap" VALUE=134622720 /adding to *cold-foreign-symbol-table*: NAME="stat_wrapper" VALUE=134620256 /adding to *cold-foreign-symbol-table*: NAME="unboxed_region" VALUE=134794432 /adding to *cold-foreign-symbol-table*: NAME="search_for_embedded_core" VALUE=134556736 /adding to *cold-foreign-symbol-table*: NAME="handle_fun_end_breakpoint" VALUE=134556176 /adding to *cold-foreign-symbol-table*: NAME="auto_gc_trigger" VALUE=134712476 /adding to *cold-foreign-symbol-table*: NAME="dyndebug_init" VALUE=134600528 /adding to *cold-foreign-symbol-table*: NAME="fun_end_breakpoint_end" VALUE=134652761 /adding to *cold-foreign-symbol-table*: NAME="copied_existing_filename_or_null" VALUE=134609584 /adding to *cold-foreign-symbol-table*: NAME="voidacc_ctor" VALUE=134617216 /adding to *cold-foreign-symbol-table*: NAME="alloc_8_to_ebx" VALUE=134653024 /adding to *cold-foreign-symbol-table*: NAME="os_zero" VALUE=134594784 /adding to *cold-foreign-symbol-table*: NAME="gencgc_release_granularity" VALUE=134711256 /adding to *cold-foreign-symbol-table*: NAME="transother" VALUE=134724928 /adding to *cold-foreign-symbol-table*: NAME="single_stepping" VALUE=134712380 /adding to *cold-foreign-symbol-table*: NAME="do_the_wipe" VALUE=134640304 /adding to *cold-foreign-symbol-table*: NAME="set_page_consi_bit" VALUE=134640736 /adding to *cold-foreign-symbol-table*: NAME="verbosefixes" VALUE=134712456 /adding to *cold-foreign-symbol-table*: NAME="print" VALUE=134607952 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__fsync" VALUE=134654192 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__chown" VALUE=134653936 /adding to *cold-foreign-symbol-table*: NAME="scav_weak_hash_tables" VALUE=134567648 /adding to *cold-foreign-symbol-table*: NAME="check_blockables_blocked_or_lose" VALUE=134578896 /adding to *cold-foreign-symbol-table*: NAME="ldb_monitor" VALUE=134594144 /adding to *cold-foreign-symbol-table*: NAME="s_isreg" VALUE=134621440 /adding to *cold-foreign-symbol-table*: NAME="s_ischr" VALUE=134621504 /adding to *cold-foreign-symbol-table*: NAME="linux_sparc_siginfo_bug" VALUE=134712388 /adding to *cold-foreign-symbol-table*: NAME="alloc_16_to_ebx" VALUE=134653056 /adding to *cold-foreign-symbol-table*: NAME="corruption_warning_and_maybe_lose" VALUE=134573776 /adding to *cold-foreign-symbol-table*: NAME="alloc_overflow_edx" VALUE=134653344 /adding to *cold-foreign-symbol-table*: NAME="check_code_fixups" VALUE=134712500 /adding to *cold-foreign-symbol-table*: NAME="os_context_pc_addr" VALUE=134624704 /adding to *cold-foreign-symbol-table*: NAME="closure_tramp" VALUE=134652708 /adding to *cold-foreign-symbol-table*: NAME="gc_active_p" VALUE=134712472 /adding to *cold-foreign-symbol-table*: NAME="s_islnk" VALUE=134621600 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__getppid" VALUE=134654416 /adding to *cold-foreign-symbol-table*: NAME="deferrables_blocked_p" VALUE=134577728 /adding to *cold-foreign-symbol-table*: NAME="monitor_or_something" VALUE=134594768 /adding to *cold-foreign-symbol-table*: NAME="prepare_to_save" VALUE=134615056 /adding to *cold-foreign-symbol-table*: NAME="alloc_16_to_esi" VALUE=134653152 /adding to *cold-foreign-symbol-table*: NAME="unbind" VALUE=134558976 /adding to *cold-foreign-symbol-table*: NAME="__data_start" VALUE=134710080 /adding to *cold-foreign-symbol-table*: NAME="page_table_dontmove_dwords_size_in_bytes" VALUE=134794452 /adding to *cold-foreign-symbol-table*: NAME="internal_errors_enabled" VALUE=134711424 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__atanh" VALUE=134653888 /adding to *cold-foreign-symbol-table*: NAME="undefined_alien_function" VALUE=134588384 /adding to *cold-foreign-symbol-table*: NAME="call_into_c" VALUE=134652448 /adding to *cold-foreign-symbol-table*: NAME="var_value" VALUE=134619888 /adding to *cold-foreign-symbol-table*: NAME="in_leaving_without_gcing_race_p" VALUE=134581840 /adding to *cold-foreign-symbol-table*: NAME="copy_object" VALUE=134564464 /adding to *cold-foreign-symbol-table*: NAME="arch_install_interrupt_handlers" VALUE=134622896 /adding to *cold-foreign-symbol-table*: NAME="scrub_thread_control_stack" VALUE=134572800 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__fchmod" VALUE=134654096 /adding to *cold-foreign-symbol-table*: NAME="fast_bzero_sse" VALUE=134653568 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__pow" VALUE=134654800 /adding to *cold-foreign-symbol-table*: NAME="simple_base_stringize" VALUE=134602416 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__recv" VALUE=134654880 /adding to *cold-foreign-symbol-table*: NAME="scan_weak_hash_tables" VALUE=134567696 /adding to *cold-foreign-symbol-table*: NAME="sniff_code_object" VALUE=134639040 /adding to *cold-foreign-symbol-table*: NAME="os_flush_icache" VALUE=134624832 /adding to *cold-foreign-symbol-table*: NAME="gc_find_freeish_pages" VALUE=134632736 /adding to *cold-foreign-symbol-table*: NAME="interrupt_handle_now_handler" VALUE=134576688 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__open" VALUE=134654736 /adding to *cold-foreign-symbol-table*: NAME="wrapped_environ" VALUE=134621296 /adding to *cold-foreign-symbol-table*: NAME="interrupt_handlers" VALUE=134728576 /adding to *cold-foreign-symbol-table*: NAME="define_var" VALUE=134619200 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__accept" VALUE=134653792 /adding to *cold-foreign-symbol-table*: NAME="show_lstring" VALUE=134603856 /adding to *cold-foreign-symbol-table*: NAME="check_deferrables_unblocked_or_lose" VALUE=134577952 /adding to *cold-foreign-symbol-table*: NAME="debug_get_fs" VALUE=134624416 /adding to *cold-foreign-symbol-table*: NAME="scan_weak_pointers" VALUE=134567360 /adding to *cold-foreign-symbol-table*: NAME="protect_alien_stack_hard_guard_page" VALUE=134618448 /adding to *cold-foreign-symbol-table*: NAME="sigaddset_gc" VALUE=134577712 /adding to *cold-foreign-symbol-table*: NAME="symbol_name" VALUE=134572832 /adding to *cold-foreign-symbol-table*: NAME="gc_alloc_update_all_page_tables" VALUE=134652000 /adding to *cold-foreign-symbol-table*: NAME="arch_do_displaced_inst" VALUE=134622416 /adding to *cold-foreign-symbol-table*: NAME="protect_control_stack_return_guard_page" VALUE=134618176 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__nanosleep" VALUE=134654720 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__getitimer" VALUE=134654352 /adding to *cold-foreign-symbol-table*: NAME="arch_remove_breakpoint" VALUE=134622384 /adding to *cold-foreign-symbol-table*: NAME="describe_thread_state" VALUE=134554704 /adding to *cold-foreign-symbol-table*: NAME="sb_setitimer" VALUE=134621744 /adding to *cold-foreign-symbol-table*: NAME="fshow_fun" VALUE=134602384 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__closedir" VALUE=134653968 /adding to *cold-foreign-symbol-table*: NAME="parse_lispobj" VALUE=134595968 /adding to *cold-foreign-symbol-table*: NAME="alloc_overflow_esi" VALUE=134653408 /adding to *cold-foreign-symbol-table*: NAME="undoably_install_low_level_interrupt_handler" VALUE=134589648 /adding to *cold-foreign-symbol-table*: NAME="os_get_errno" VALUE=134595008 /adding to *cold-foreign-symbol-table*: NAME="_IO_stdin_used" VALUE=134656388 /adding to *cold-foreign-symbol-table*: NAME="dyndebug_config" VALUE=134712032 /adding to *cold-foreign-symbol-table*: NAME="search_dynamic_space" VALUE=134639776 /adding to *cold-foreign-symbol-table*: NAME="restore_breakpoint_from_single_step" VALUE=134622480 /adding to *cold-foreign-symbol-table*: NAME="generations" VALUE=134794496 /adding to *cold-foreign-symbol-table*: NAME="dynamic_space_size" VALUE=134710188 /adding to *cold-foreign-symbol-table*: NAME="block_blockable_signals" VALUE=134579968 /adding to *cold-foreign-symbol-table*: NAME="search_for_core" VALUE=134610128 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__truncate" VALUE=134655136 /adding to *cold-foreign-symbol-table*: NAME="parse_token" VALUE=134595360 /adding to *cold-foreign-symbol-table*: NAME="unblock_signals" VALUE=134577120 /adding to *cold-foreign-symbol-table*: NAME="bind_variable" VALUE=134558928 /adding to *cold-foreign-symbol-table*: NAME="check_gc_signals_unblocked_or_lose" VALUE=134579360 /adding to *cold-foreign-symbol-table*: NAME="lower_thread_control_stack_guard_page" VALUE=134588416 /adding to *cold-foreign-symbol-table*: NAME="page_table_pages" VALUE=134794880 /adding to *cold-foreign-symbol-table*: NAME="gc_logfile" VALUE=134712460 /adding to *cold-foreign-symbol-table*: NAME="merge_core_pages" VALUE=134710112 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__fchown" VALUE=134654112 /adding to *cold-foreign-symbol-table*: NAME="small_generation_limit" VALUE=134711248 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__setitimer" VALUE=134654960 /adding to *cold-foreign-symbol-table*: NAME="wake_thread" VALUE=134616656 /adding to *cold-foreign-symbol-table*: NAME="protect_binding_stack_return_guard_page" VALUE=134618368 /adding to *cold-foreign-symbol-table*: NAME="call_into_lisp_first_time" VALUE=134652528 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__opendir" VALUE=134654752 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__ioctl" VALUE=134654512 /adding to *cold-foreign-symbol-table*: NAME="voidacc_acc" VALUE=134617280 /adding to *cold-foreign-symbol-table*: NAME="general_alloc" VALUE=134650256 /adding to *cold-foreign-symbol-table*: NAME="current_control_stack_pointer" VALUE=134728068 /adding to *cold-foreign-symbol-table*: NAME="local_ldt_copy" VALUE=134728896 /adding to *cold-foreign-symbol-table*: NAME="gencgc_apply_code_fixups" VALUE=134639184 /adding to *cold-foreign-symbol-table*: NAME="all_signals_blocked_p" VALUE=134577248 /adding to *cold-foreign-symbol-table*: NAME="sb_realpath" VALUE=134620096 /adding to *cold-foreign-symbol-table*: NAME="copy_large_unboxed_object" VALUE=134637280 /adding to *cold-foreign-symbol-table*: NAME="stat_largefile" VALUE=134592048 /adding to *cold-foreign-symbol-table*: NAME="interrupt_internal_error" VALUE=134585408 /adding to *cold-foreign-symbol-table*: NAME="lstat_wrapper" VALUE=134620416 /adding to *cold-foreign-symbol-table*: NAME="arrange_return_to_c_function" VALUE=134587808 /adding to *cold-foreign-symbol-table*: NAME="sb_getrusage" VALUE=134621664 /adding to *cold-foreign-symbol-table*: NAME="arrange_return_to_lisp_function" VALUE=134588352 /adding to *cold-foreign-symbol-table*: NAME="__libc_csu_init" VALUE=134656064 /adding to *cold-foreign-symbol-table*: NAME="stdin@@GLIBC_2.0" VALUE=134711392 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__getpagesize" VALUE=134655424 /adding to *cold-foreign-symbol-table*: NAME="more_p" VALUE=134595296 /adding to *cold-foreign-symbol-table*: NAME="gc_free_heap" VALUE=134647520 /adding to *cold-foreign-symbol-table*: NAME="reset_thread_control_stack_guard_page" VALUE=134588480 /adding to *cold-foreign-symbol-table*: NAME="arch_write_linkage_table_jmp" VALUE=134622944 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__lseek" VALUE=134654624 /adding to *cold-foreign-symbol-table*: NAME="fun_end_breakpoint_guts" VALUE=134652736 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__select" VALUE=134654928 /adding to *cold-foreign-symbol-table*: NAME="arch_clear_pseudo_atomic_interrupted" VALUE=134622304 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__chmod" VALUE=134653920 /adding to *cold-foreign-symbol-table*: NAME="boxed_region" VALUE=134794884 /adding to *cold-foreign-symbol-table*: NAME="voidacc_give_away_result" VALUE=134617760 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__send" VALUE=134654944 /adding to *cold-foreign-symbol-table*: NAME="block_deferrable_signals" VALUE=134579840 /adding to *cold-foreign-symbol-table*: NAME="gencgc_enable_verify_zero_fill" VALUE=134712492 /adding to *cold-foreign-symbol-table*: NAME="last_free_page" VALUE=134794904 /adding to *cold-foreign-symbol-table*: NAME="alloc_8_to_edx" VALUE=134652928 /adding to *cold-foreign-symbol-table*: NAME="alloc" VALUE=134651200 /adding to *cold-foreign-symbol-table*: NAME="set_pty" VALUE=134608256 /adding to *cold-foreign-symbol-table*: NAME="weak_hash_tables" VALUE=134711412 /adding to *cold-foreign-symbol-table*: NAME="layout_classoid_name" VALUE=134573024 /adding to *cold-foreign-symbol-table*: NAME="protect_binding_stack_hard_guard_page" VALUE=134618240 /adding to *cold-foreign-symbol-table*: NAME="_end" VALUE=134794928 /adding to *cold-foreign-symbol-table*: NAME="copy_code_object" VALUE=134564688 /adding to *cold-foreign-symbol-table*: NAME="os_context_sigmask_addr" VALUE=134624784 /adding to *cold-foreign-symbol-table*: NAME="describe_internal_error" VALUE=134574096 /adding to *cold-foreign-symbol-table*: NAME="readdir_largefile" VALUE=134592144 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__getrusage" VALUE=134654432 /adding to *cold-foreign-symbol-table*: NAME="_start" VALUE=134551939 /adding to *cold-foreign-symbol-table*: NAME="alloc_to_ecx" VALUE=134652832 /adding to *cold-foreign-symbol-table*: NAME="scav_vector" VALUE=134566304 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__link" VALUE=134654576 /adding to *cold-foreign-symbol-table*: NAME="_fp_hw" VALUE=134656384 /adding to *cold-foreign-symbol-table*: NAME="os_map" VALUE=134623824 /adding to *cold-foreign-symbol-table*: NAME="os_get_runtime_executable_path" VALUE=134624128 /adding to *cold-foreign-symbol-table*: NAME="os_dlopen" VALUE=134595024 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__tanh" VALUE=134655120 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__gettimeofday" VALUE=134654464 /adding to *cold-foreign-symbol-table*: NAME="funcall2" VALUE=134559216 /adding to *cold-foreign-symbol-table*: NAME="purify" VALUE=134608128 /adding to *cold-foreign-symbol-table*: NAME="update_dynamic_space_free_pointer" VALUE=134641184 /adding to *cold-foreign-symbol-table*: NAME="funcall0" VALUE=134559104 /adding to *cold-foreign-symbol-table*: NAME="scavtab" VALUE=134725952 /adding to *cold-foreign-symbol-table*: NAME="unblock_gc_signals" VALUE=134580784 /adding to *cold-foreign-symbol-table*: NAME="var_name" VALUE=134619872 /adding to *cold-foreign-symbol-table*: NAME="copy_large_object" VALUE=134637264 /adding to *cold-foreign-symbol-table*: NAME="s_issock" VALUE=134621632 /adding to *cold-foreign-symbol-table*: NAME="validate" VALUE=134617824 /adding to *cold-foreign-symbol-table*: NAME="search_read_only_space" VALUE=134639648 /adding to *cold-foreign-symbol-table*: NAME="do_pending_interrupt" VALUE=134652768 /adding to *cold-foreign-symbol-table*: NAME="get_timezone" VALUE=134616848 /adding to *cold-foreign-symbol-table*: NAME="call_into_lisp" VALUE=134652544 /adding to *cold-foreign-symbol-table*: NAME="sigtrap_handler" VALUE=134621808 /adding to *cold-foreign-symbol-table*: NAME="sb_utimes" VALUE=134621760 /adding to *cold-foreign-symbol-table*: NAME="protect_control_stack_guard_page" VALUE=134618112 /adding to *cold-foreign-symbol-table*: NAME="alloc_overflow_ebx" VALUE=134653376 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__getenv" VALUE=134654272 /adding to *cold-foreign-symbol-table*: NAME="setup_locale" VALUE=134611408 /adding to *cold-foreign-symbol-table*: NAME="bytes_consed_between_gcs" VALUE=134710180 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__symlink" VALUE=134655088 /adding to *cold-foreign-symbol-table*: NAME="parse_size_arg" VALUE=134610848 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__memcmp" VALUE=134654672 /adding to *cold-foreign-symbol-table*: NAME="uid_homedir" VALUE=134621152 /adding to *cold-foreign-symbol-table*: NAME="os_protect" VALUE=134623904 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__utimes" VALUE=134655200 /adding to *cold-foreign-symbol-table*: NAME="alloc_16_to_eax" VALUE=134652816 /adding to *cold-foreign-symbol-table*: NAME="sigabrt_handler" VALUE=134575040 /adding to *cold-foreign-symbol-table*: NAME="arch_scrub_control_stack" VALUE=134653680 /adding to *cold-foreign-symbol-table*: NAME="arch_os_thread_cleanup" VALUE=134624432 /adding to *cold-foreign-symbol-table*: NAME="unhandled_sigmemoryfault" VALUE=134651984 /adding to *cold-foreign-symbol-table*: NAME="stdout@@GLIBC_2.0" VALUE=134711396 /adding to *cold-foreign-symbol-table*: NAME="unblock_signals_in_context_and_maybe_warn" VALUE=134580912 /adding to *cold-foreign-symbol-table*: NAME="__bss_start" VALUE=134711300 /adding to *cold-foreign-symbol-table*: NAME="debug_function_from_pc" VALUE=134554528 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__creat" VALUE=134654016 /adding to *cold-foreign-symbol-table*: NAME="gc_initialize_pointers" VALUE=134649888 /adding to *cold-foreign-symbol-table*: NAME="pre_verify_gen_0" VALUE=134712512 /adding to *cold-foreign-symbol-table*: NAME="os_invalidate" VALUE=134623776 /adding to *cold-foreign-symbol-table*: NAME="main" VALUE=134549872 /adding to *cold-foreign-symbol-table*: NAME="handle_trap" VALUE=134591376 /adding to *cold-foreign-symbol-table*: NAME="gc_alloc_update_page_tables" VALUE=134631408 /adding to *cold-foreign-symbol-table*: NAME="fast_bzero" VALUE=134653488 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__stat" VALUE=134655040 /adding to *cold-foreign-symbol-table*: NAME="block_signals" VALUE=134576992 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__asin" VALUE=134653856 /adding to *cold-foreign-symbol-table*: NAME="lisp_memory_fault_error" VALUE=134590608 /adding to *cold-foreign-symbol-table*: NAME="truncate_largefile" VALUE=134592000 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__fstat" VALUE=134654176 /adding to *cold-foreign-symbol-table*: NAME="internal_error_descriptions" VALUE=134710208 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__rename" VALUE=134654896 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub___exit" VALUE=134653776 /adding to *cold-foreign-symbol-table*: NAME="saved_runtime_path" VALUE=134712096 /adding to *cold-foreign-symbol-table*: NAME="wexitstatus" VALUE=134621344 /adding to *cold-foreign-symbol-table*: NAME="page_table" VALUE=134794908 /adding to *cold-foreign-symbol-table*: NAME="spawn" VALUE=134608480 /adding to *cold-foreign-symbol-table*: NAME="classoid_name" VALUE=134572912 /adding to *cold-foreign-symbol-table*: NAME="sb_nanosleep" VALUE=134621696 /adding to *cold-foreign-symbol-table*: NAME="check_interrupt_context_or_lose" VALUE=134581920 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__realpath" VALUE=134654864 /adding to *cold-foreign-symbol-table*: NAME="do_wipe_p" VALUE=134711264 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__write" VALUE=134655248 /adding to *cold-foreign-symbol-table*: NAME="fpu_restore" VALUE=134652678 /adding to *cold-foreign-symbol-table*: NAME="alloc_to_edi" VALUE=134653184 /adding to *cold-foreign-symbol-table*: NAME="alloc_8_to_eax" VALUE=134652800 /adding to *cold-foreign-symbol-table*: NAME="maybe_save_gc_mask_and_block_deferrables" VALUE=134581616 /adding to *cold-foreign-symbol-table*: NAME="check_runtime_build_id" VALUE=134614224 /adding to *cold-foreign-symbol-table*: NAME="gencgc_zero_check" VALUE=134712496 /adding to *cold-foreign-symbol-table*: NAME="lookup_by_obj" VALUE=134619104 /adding to *cold-foreign-symbol-table*: NAME="load_core_file" VALUE=134557568 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__strlen" VALUE=134655072 /adding to *cold-foreign-symbol-table*: NAME="save_runtime_to_filehandle" VALUE=134614832 /adding to *cold-foreign-symbol-table*: NAME="log_generation_stats" VALUE=134630176 /adding to *cold-foreign-symbol-table*: NAME="sb_select" VALUE=134621712 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__rmdir" VALUE=134654912 /adding to *cold-foreign-symbol-table*: NAME="gc_alloc_with_region" VALUE=134637056 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__malloc" VALUE=134654656 /adding to *cold-foreign-symbol-table*: NAME="protect_alien_stack_guard_page" VALUE=134618496 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__sigsetmask" VALUE=134655392 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__wait3" VALUE=134655216 /adding to *cold-foreign-symbol-table*: NAME="wifexited" VALUE=134621328 /adding to *cold-foreign-symbol-table*: NAME="alloc_16_to_edx" VALUE=134652960 /adding to *cold-foreign-symbol-table*: NAME="brief_print" VALUE=134608032 /adding to *cold-foreign-symbol-table*: NAME="in_dontmove_dwordindex_p" VALUE=134639872 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__cfsetospeed" VALUE=134655488 /adding to *cold-foreign-symbol-table*: NAME="fake_foreign_function_call" VALUE=134585040 /adding to *cold-foreign-symbol-table*: NAME="os_init" VALUE=134623104 /adding to *cold-foreign-symbol-table*: NAME="breakpoint_do_displaced_inst" VALUE=134555872 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__dladdr" VALUE=134655376 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__getsockname" VALUE=134654448 /adding to *cold-foreign-symbol-table*: NAME="arch_os_thread_init" VALUE=134624288 /adding to *cold-foreign-symbol-table*: NAME="arch_get_bad_addr" VALUE=134622016 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__dlopen" VALUE=134655344 /adding to *cold-foreign-symbol-table*: NAME="gencgc_verbose" VALUE=134712516 /adding to *cold-foreign-symbol-table*: NAME="get_h_errno" VALUE=134621312 /adding to *cold-foreign-symbol-table*: NAME="undefined_tramp" VALUE=134652692 /adding to *cold-foreign-symbol-table*: NAME="looks_like_valid_lisp_pointer_p" VALUE=134571712 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__killpg" VALUE=134654560 /adding to *cold-foreign-symbol-table*: NAME="interrupt_handle_now" VALUE=134575824 /adding to *cold-foreign-symbol-table*: NAME="continue_after_memoryfault_on_unprotected_pages" VALUE=134712448 /adding to *cold-foreign-symbol-table*: NAME="user_homedir" VALUE=134621008 /adding to *cold-foreign-symbol-table*: NAME="__tzname@@GLIBC_2.0" VALUE=134711400 /adding to *cold-foreign-symbol-table*: NAME="copy_unboxed_object" VALUE=134638592 /adding to *cold-foreign-symbol-table*: NAME="alloc_8_to_esi" VALUE=134653120 /adding to *cold-foreign-symbol-table*: NAME="find_page_index" VALUE=134628768 /adding to *cold-foreign-symbol-table*: NAME="passwd_homedir" VALUE=134620864 /adding to *cold-foreign-symbol-table*: NAME="reset_control_stack_guard_page" VALUE=134588576 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__getdtablesize" VALUE=134654240 /adding to *cold-foreign-symbol-table*: NAME="backtrace_from_fp" VALUE=134555056 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__tzname" VALUE=134655168 /adding to *cold-foreign-symbol-table*: NAME="siginfo_code" VALUE=134590592 /adding to *cold-foreign-symbol-table*: NAME="max_new_areas" VALUE=134794912 /adding to *cold-foreign-symbol-table*: NAME="safely_show_lstring" VALUE=134573376 /adding to *cold-foreign-symbol-table*: NAME="weak_pointers" VALUE=134726976 /adding to *cold-foreign-symbol-table*: NAME="lisp_register_names" VALUE=134711200 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__getcwd" VALUE=134654224 /adding to *cold-foreign-symbol-table*: NAME="sb_gettimeofday" VALUE=134621680 /adding to *cold-foreign-symbol-table*: NAME="alloc_8_to_edi" VALUE=134653216 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__log1p" VALUE=134654608 /adding to *cold-foreign-symbol-table*: NAME="print_help" VALUE=134610032 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__pipe" VALUE=134654768 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__grantpt" VALUE=134655280 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__connect" VALUE=134653984 /adding to *cold-foreign-symbol-table*: NAME="interrupt_handler_pending_p" VALUE=134586000 /adding to *cold-foreign-symbol-table*: NAME="generation_average_age" VALUE=134628816 /adding to *cold-foreign-symbol-table*: NAME="copied_realpath" VALUE=134609712 /adding to *cold-foreign-symbol-table*: NAME="uid_username" VALUE=134620816 /adding to *cold-foreign-symbol-table*: NAME="gencgc_zero_check_during_free_heap" VALUE=134712488 /adding to *cold-foreign-symbol-table*: NAME="verify_after_free_heap" VALUE=134712508 /adding to *cold-foreign-symbol-table*: NAME="print_banner" VALUE=134610096 /adding to *cold-foreign-symbol-table*: NAME="gencgc_alloc_granularity" VALUE=134712464 /adding to *cold-foreign-symbol-table*: NAME="foreign_function_call_active" VALUE=134728072 /adding to *cold-foreign-symbol-table*: NAME="get_current_sigmask" VALUE=134576960 /adding to *cold-foreign-symbol-table*: NAME="arch_internal_error_arguments" VALUE=134622208 /adding to *cold-foreign-symbol-table*: NAME="tzname@@GLIBC_2.0" VALUE=134711400 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__ttyname" VALUE=134655152 /adding to *cold-foreign-symbol-table*: NAME="fast_bzero_pointer" VALUE=134711296 /adding to *cold-foreign-symbol-table*: NAME="wstopsig" VALUE=134621424 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__lstat" VALUE=134654640 /adding to *cold-foreign-symbol-table*: NAME="debug_print" VALUE=134574832 /adding to *cold-foreign-symbol-table*: NAME="block_gc_signals" VALUE=134580096 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__tcsetattr" VALUE=134655584 /adding to *cold-foreign-symbol-table*: NAME="fast_bzero_detect" VALUE=134653504 /adding to *cold-foreign-symbol-table*: NAME="new_space" VALUE=134794916 /adding to *cold-foreign-symbol-table*: NAME="undo_fake_foreign_function_call" VALUE=134585344 /adding to *cold-foreign-symbol-table*: NAME="install_handler" VALUE=134589968 /adding to *cold-foreign-symbol-table*: NAME="gc_signals_blocked_p" VALUE=134579136 /adding to *cold-foreign-symbol-table*: NAME="page_table_dontmove_dwords" VALUE=134794920 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__getegid" VALUE=134654256 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__nl_langinfo" VALUE=134655408 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__acosh" VALUE=134653840 /adding to *cold-foreign-symbol-table*: NAME="parse_number" VALUE=134595488 /adding to *cold-foreign-symbol-table*: NAME="handle_guard_page_triggered" VALUE=134588768 /adding to *cold-foreign-symbol-table*: NAME="arch_set_pseudo_atomic_interrupted" VALUE=134622256 /adding to *cold-foreign-symbol-table*: NAME="environ@@GLIBC_2.0" VALUE=134711360 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__cosh" VALUE=134654000 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__acos" VALUE=134653824 /adding to *cold-foreign-symbol-table*: NAME="alloc_16_to_ecx" VALUE=134652880 /adding to *cold-foreign-symbol-table*: NAME="arch_install_breakpoint" VALUE=134622352 /adding to *cold-foreign-symbol-table*: NAME="enable_page_protection" VALUE=134711280 /adding to *cold-foreign-symbol-table*: NAME="sigaddset_blockable" VALUE=134577696 /adding to *cold-foreign-symbol-table*: NAME="interrupt_init" VALUE=134590288 /adding to *cold-foreign-symbol-table*: NAME="alloc_overflow_edi" VALUE=134653440 /adding to *cold-foreign-symbol-table*: NAME="lisp_backtrace" VALUE=134555760 /adding to *cold-foreign-symbol-table*: NAME="wipe_with" VALUE=134682160 /adding to *cold-foreign-symbol-table*: NAME="verify_gens" VALUE=134711272 /adding to *cold-foreign-symbol-table*: NAME="wrapped_readlink" VALUE=134619968 /adding to *cold-foreign-symbol-table*: NAME="gc_alloc_large" VALUE=134633424 /adding to *cold-foreign-symbol-table*: NAME="s_isfifo" VALUE=134621568 /adding to *cold-foreign-symbol-table*: NAME="from_space" VALUE=134794924 /adding to *cold-foreign-symbol-table*: NAME="lseek_largefile" VALUE=134591984 /adding to *cold-foreign-symbol-table*: NAME="report_heap_exhaustion" VALUE=134630320 /adding to *cold-foreign-symbol-table*: NAME="_init" VALUE=134546276 /adding to *cold-foreign-symbol-table*: NAME="arch_pseudo_atomic_atomic" VALUE=134622240 /adding to *cold-foreign-symbol-table*: NAME="save_to_filehandle" VALUE=134613248 /adding to *cold-foreign-symbol-table*: NAME="gc_search_space" VALUE=134571568 /adding to *cold-foreign-symbol-table*: NAME="large_allocation" VALUE=134712520 /adding to *cold-foreign-symbol-table*: NAME="var_setclock" VALUE=134619952 /adding to *cold-foreign-symbol-table*: NAME="set_noecho" VALUE=134608144 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__listen" VALUE=134654592 /adding to *cold-foreign-symbol-table*: NAME="current_control_frame_pointer" VALUE=134728076 /adding to *cold-foreign-symbol-table*: NAME="zero_pages_with_mmap" VALUE=134630752 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__gethostname" VALUE=134654336 /adding to *cold-foreign-symbol-table*: NAME="unblock_blockable_signals" VALUE=134580656 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__execve" VALUE=134654064 /adding to *cold-foreign-symbol-table*: NAME="alloc_8_to_ecx" VALUE=134652848 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__unlockpt" VALUE=134655296 /adding to *cold-foreign-symbol-table*: NAME="inflate_core_bytes" VALUE=134557104 /adding to *cold-foreign-symbol-table*: NAME="ignore_memoryfaults_on_unprotected_pages" VALUE=134712452 /adding to *cold-foreign-symbol-table*: NAME="protect_alien_stack_return_guard_page" VALUE=134618560 /adding to *cold-foreign-symbol-table*: NAME="build_id" VALUE=134710144 /adding to *cold-foreign-symbol-table*: NAME="os_validate" VALUE=134623648 /adding to *cold-foreign-symbol-table*: NAME="check_deferrables_blocked_or_lose" VALUE=134578192 /adding to *cold-foreign-symbol-table*: NAME="lose_on_corruption_p" VALUE=134711416 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__tcgetattr" VALUE=134655552 /adding to *cold-foreign-symbol-table*: NAME="sizetab" VALUE=134727040 /adding to *cold-foreign-symbol-table*: NAME="all_threads" VALUE=134728848 /adding to *cold-foreign-symbol-table*: NAME="scrub_control_stack" VALUE=134572752 /adding to *cold-foreign-symbol-table*: NAME="ldso_stub__setsid" VALUE=134654992 obj/from-xc/src/code/early-source-location.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/show.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/early-constants.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/backq.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/globals.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/defsetfs.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/cold-init-helper-macros.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/uncross.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/primordial-type.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/early-defbangmethod.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/defbangtype.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/defbangmacro.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/defbangconstant.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/primordial-extensions.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/function-names.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/generic/parms.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/x86/parms.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/generic/early-vm.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/generic/early-objdef.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/early-array.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/early-extensions.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/parse-body.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/parse-defmacro.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/deftype.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/defconstant.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/early-alieneval.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/specializable-array.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/early-cl.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/early-fasl.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/debug-var-io.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/early-thread.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/target-defbangmethod.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/early-print.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/early-pprint.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/early-impl.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/target-extensions.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/early-package.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/early-defstructs.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/early-raw-slots.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/defbangstruct.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/unportable-float.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/funutils.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/type-class.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/ansi-stream.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/sysmacs.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/target-error.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/early-backend.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/output/stuff-groveled-from-headers.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/kernel.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/toplevel.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/cold-error.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/info-vector.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/fdefinition.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/target-type.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/pred.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/target-alieneval.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/target-c-call.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/target-allocate.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/misc-aliens.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/typedefs.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/generic/vm-array.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/array.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/early-float.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/target-sxhash.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/list.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/seq.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/coerce.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/string.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/mipsstrops.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/early-time.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/unix.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/common-os.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/linux-os.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/sc-offset.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/x86-vm.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/target-signal.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/symbol.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/bignum.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/numbers.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/float-trap.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/float.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/irrat.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/char.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/huffman.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/target-char.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/target-unicode.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/target-misc.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/misc.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/room.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/stream.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/print.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/pprint.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/early-format.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/target-format.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/defpackage.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/error-error.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/deadline.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/serve-event.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/fd-stream.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/module.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/interr.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/query.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/sort.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/time.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/timer.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/weak.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/final.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/setf-funs.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/stubs.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/exhaust.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/early-c.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/policy.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/policies.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/macros.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/generic/vm-macs.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/generic/objdef.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/sset.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/node.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/vop.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/backend.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/vmdef.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/x86/backend-parms.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/globaldb.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/info-functions.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/force-delayed-defbangconstants.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/defmacro.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/force-delayed-defbangmacros.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/late-macros.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/meta-vmdef.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/x86/vm.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/xset.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/early-type.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/class.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/condition.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/generic/primtype.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/parse-lambda-list.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/host-alieneval.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/host-c-call.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/compiler-deftype.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/late-type.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/deftypes-for-target.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/knownfun.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/constantp.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/fun-info-funs.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/generic/vm-type.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/proclaim.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/class-init.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/defstruct.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/target-defstruct.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/alien-type.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/force-delayed-defbangstructs.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/early-full-eval.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/typep.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/compiler-error.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/late-deftypes-for-target.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/type-init.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/fixup-type.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/package.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/random.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/hash-table.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/readtable.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/pathname.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/host-pprint.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/lexenv.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/fndb.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/generic/vm-fndb.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/generic/late-objdef.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/generic/interr.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/bit-util.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/early-assem.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/barrier.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/generic/core.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/thread.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/load.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/linkage-table.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/foreign-load.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/unix-foreign-load.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/foreign.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/fop.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/ctype.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/disassem.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/assem.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/debug-info.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/dump.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/main.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/xref.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/source-location.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/target-main.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/ir1tran.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/ir1tran-lambda.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/ir1-translators.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/ir1util.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/ir1report.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/ir1opt.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/loop.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/ir1final.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/array-tran.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/seqtran.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/typetran.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/generic/vm-typetran.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/float-tran.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/saptran.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/srctran.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/bitops-derive-type.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/generic/vm-tran.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/locall.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/dfo.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/checkgen.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/constraint.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/physenvanal.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/tn.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/life.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/debug-dump.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/generic/utils.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/fopcompile.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/assembly/assemfile.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/late-vmdef.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/fixup.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/x86/insts.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/x86/macros.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/generic/early-type-vops.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/assembly/x86/support.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/x86/move.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/x86/float.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/x86/sap.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/x86/system.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/x86/char.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/x86/memory.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/x86/static-fn.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/x86/arith.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/x86/type-vops.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/x86/subprim.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/x86/debug.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/early-aliencomp.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/x86/c-call.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/x86/cell.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/x86/values.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/x86/alloc.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/x86/call.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/x86/nlx.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/generic/late-nlx.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/x86/show.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/x86/array.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/generic/type-error.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/x86/pred.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/generic/late-type-vops.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/assembly/x86/assem-rtns.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/assembly/x86/array.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/assembly/x86/arith.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/assembly/x86/alloc.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/assembly/x86/assem-rtns.assem-obj /in RECORD-COLD-ASSEMBLER-ROUTINE NAME=SB!C:UNWIND ADDRESS=10000E6 /in RECORD-COLD-ASSEMBLER-ROUTINE NAME=THROW ADDRESS=10000CC /in RECORD-COLD-ASSEMBLER-ROUTINE NAME=SB!C:TAIL-CALL-VARIABLE ADDRESS=1000087 /in RECORD-COLD-ASSEMBLER-ROUTINE NAME=SB!C:RETURN-MULTIPLE ADDRESS=1000010 /THROWing FASL-GROUP-END obj/from-xc/src/assembly/x86/array.assem-obj /THROWing FASL-GROUP-END obj/from-xc/src/assembly/x86/arith.assem-obj /in RECORD-COLD-ASSEMBLER-ROUTINE NAME=SB!VM::RANDOM-MT19937-UPDATE ADDRESS=100040F /in RECORD-COLD-ASSEMBLER-ROUTINE NAME=SB!VM::GENERIC-= ADDRESS=10003DE /in RECORD-COLD-ASSEMBLER-ROUTINE NAME=SB!VM::GENERIC-EQL ADDRESS=10003A9 /in RECORD-COLD-ASSEMBLER-ROUTINE NAME=SB!VM::GENERIC-> ADDRESS=1000379 /in RECORD-COLD-ASSEMBLER-ROUTINE NAME=SB!VM::GENERIC-< ADDRESS=1000348 /in RECORD-COLD-ASSEMBLER-ROUTINE NAME=SB!VM::GENERIC-NEGATE ADDRESS=10002E1 /in RECORD-COLD-ASSEMBLER-ROUTINE NAME=SB!VM::GENERIC-* ADDRESS=1000215 /in RECORD-COLD-ASSEMBLER-ROUTINE NAME=SB!VM::GENERIC-- ADDRESS=10001A6 /in RECORD-COLD-ASSEMBLER-ROUTINE NAME=SB!VM::GENERIC-+ ADDRESS=1000138 /THROWing FASL-GROUP-END obj/from-xc/src/assembly/x86/alloc.assem-obj /in RECORD-COLD-ASSEMBLER-ROUTINE NAME=SB!VM::ALLOCATE-CONS-TO-EAX ADDRESS=1000A7D /in RECORD-COLD-ASSEMBLER-ROUTINE NAME=SB!VM::ALLOCATE-CONS-TO-ECX ADDRESS=1000A46 /in RECORD-COLD-ASSEMBLER-ROUTINE NAME=SB!VM::ALLOCATE-CONS-TO-EDX ADDRESS=1000A0F /in RECORD-COLD-ASSEMBLER-ROUTINE NAME=SB!VM::ALLOCATE-CONS-TO-EBX ADDRESS=10009D8 /in RECORD-COLD-ASSEMBLER-ROUTINE NAME=SB!VM::ALLOCATE-CONS-TO-ESI ADDRESS=10009A1 /in RECORD-COLD-ASSEMBLER-ROUTINE NAME=SB!VM::ALLOCATE-CONS-TO-EDI ADDRESS=100096A /in RECORD-COLD-ASSEMBLER-ROUTINE NAME=SB!VM::ALLOC-UNSIGNED-BIGNUM-IN-ESI ADDRESS=10008E5 /in RECORD-COLD-ASSEMBLER-ROUTINE NAME=SB!VM::ALLOC-UNSIGNED-BIGNUM-IN-EDI ADDRESS=1000860 /in RECORD-COLD-ASSEMBLER-ROUTINE NAME=SB!VM::ALLOC-UNSIGNED-BIGNUM-IN-EDX ADDRESS=10007DB /in RECORD-COLD-ASSEMBLER-ROUTINE NAME=SB!VM::ALLOC-UNSIGNED-BIGNUM-IN-ECX ADDRESS=1000756 /in RECORD-COLD-ASSEMBLER-ROUTINE NAME=SB!VM::ALLOC-UNSIGNED-BIGNUM-IN-EBX ADDRESS=10006D1 /in RECORD-COLD-ASSEMBLER-ROUTINE NAME=SB!VM::ALLOC-UNSIGNED-BIGNUM-IN-EAX ADDRESS=100064C /in RECORD-COLD-ASSEMBLER-ROUTINE NAME=SB!VM::ALLOC-SIGNED-BIGNUM-IN-ESI ADDRESS=100060A /in RECORD-COLD-ASSEMBLER-ROUTINE NAME=SB!VM::ALLOC-SIGNED-BIGNUM-IN-EDI ADDRESS=10005C8 /in RECORD-COLD-ASSEMBLER-ROUTINE NAME=SB!VM::ALLOC-SIGNED-BIGNUM-IN-EDX ADDRESS=1000586 /in RECORD-COLD-ASSEMBLER-ROUTINE NAME=SB!VM::ALLOC-SIGNED-BIGNUM-IN-ECX ADDRESS=1000544 /in RECORD-COLD-ASSEMBLER-ROUTINE NAME=SB!VM::ALLOC-SIGNED-BIGNUM-IN-EBX ADDRESS=1000502 /in RECORD-COLD-ASSEMBLER-ROUTINE NAME=SB!VM::ALLOC-SIGNED-BIGNUM-IN-EAX ADDRESS=10004C0 /THROWing FASL-GROUP-END obj/from-xc/src/compiler/pseudo-vops.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/aliencomp.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/ltv.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/gtn.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/ltn.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/stack.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/control.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/entry.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/ir2tran.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/generic/vm-ir2tran.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/copyprop.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/represent.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/ir2opt.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/pack.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/pack-iterative.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/codegen.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/debug.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/format-time.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/error.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/macroexpand.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/late-extensions.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/generic/target-core.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/eval.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/target-sap.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/target-package.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/target-random.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/bignum-random.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/target-hash-table.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/reader.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/target-stream.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/target-pathname.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/unix-pathname.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/filesys.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/save.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/sharpm.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/alloc.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/early-step.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/target-thread.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/gc.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/purify.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/debug-int.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/target-disassem.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/x86/target-insts.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/debug.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/octets.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/external-formats/enc-basic.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/external-formats/enc-ebcdic.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/external-formats/enc-cyr.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/external-formats/enc-dos.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/external-formats/enc-iso.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/external-formats/enc-win.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/external-formats/enc-mac.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/external-formats/mb-util.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/external-formats/enc-cn-tbl.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/external-formats/enc-cn.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/external-formats/enc-jpn-tbl.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/external-formats/enc-jpn.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/external-formats/enc-ucs.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/external-formats/enc-utf.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/parse-defmacro-errors.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/full-eval.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/bit-bash.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/target-load.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/target-dump.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/cold-init.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/cl-specials.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/compiler/late-proclaim.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/defboot.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/destructuring-bind.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/early-setf.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/macros.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/loop.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/late-setf.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/cas.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/late-cas.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/late-format.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/sxhash.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/signal.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/code/late-defbangmethod.lisp-obj /THROWing FASL-GROUP-END obj/from-xc/src/pcl/walk.lisp-obj /THROWing FASL-GROUP-END /back from FINISH-SYMBOLS /done setting free pointers [building initial core file in "output/cold-sbcl.core": /BUILD-ID="elrond-portage-2015-03-18-12-51-12" (LENGTH BUILD-ID)=34 writing 4096 bytes [1 page] from # writing 4096 bytes [1 page] from # writing 35414016 bytes [8646 pages] from # /(DESCRIPTOR-BITS INITIAL-FUN)=#XAF5A4D5 done] /leaving WRITE-INITIAL-CORE-FILE * //testing for consistency of first and second GENESIS passes //header files match between first and second GENESIS -- good + set -e + echo //entering make-target-2.sh //entering make-target-2.sh + LANG=C + LC_ALL=C + export LANG LC_ALL + . output/build-config ++ DEVNULL=/dev/null ++ export DEVNULL ++ GNUMAKE=make ++ export GNUMAKE ++ SBCL_XC_HOST='sh /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-binary/run-sbcl.sh --no-sysinit --no-userinit' ++ export SBCL_XC_HOST ++ legacy_xc_spec='sh /var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-binary/run-sbcl.sh --no-sysinit --no-userinit' ++ export legacy_xc_spec + '[' -n '' ']' + '[' '' '!=' --load ']' + echo //doing warm init - compilation phase //doing warm init - compilation phase + ./src/runtime/sbcl --core output/cold-sbcl.core --lose-on-corruption --no-sysinit --no-userinit This is SBCL 1.2.9, 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. /can't /SHOW:Test of CANNOT-/SHOW [don't worry - this is expected] /entering !COLD-INIT COLD-INIT... THREAD-INIT-OR-REINIT /Entering INIT-INITIAL-THREAD /Entering INIT-JOB-CONTROL /Exiting INIT-JOB-CONTROL !PACKAGE-COLD-INIT /about to MAKUNBOUND *!INITIAL-SYMBOLS* !PRINTER-COLD-INIT (PACKAGE = "COMMON-LISP") !RANDOM-COLD-INIT /entering !RANDOM-COLD-INIT /returning from !RANDOM-COLD-INIT !HAIRY-DATA-VECTOR-REFFER-INIT !CHARACTER-DATABASE-COLD-INIT !CHARACTER-NAME-DATABASE-COLD-INIT !UNICODE-PROPERTIES-COLD-INIT /about to SHOW-AND-CALL !GLOBALDB-COLD-INIT !GLOBALDB-COLD-INIT /early in globaldb.lisp cold init /done setting *INFO-ENVIRONMENT* /beginning *INFO-TYPES* initialization /done with *INFO-TYPES* initialization !TYPE-CLASS-COLD-INIT !TYPEDEFS-COLD-INIT !WORLD-LOCK-COLD-INIT !CLASSES-COLD-INIT /processing *!INITIAL-LAYOUTS* /entering MAKE-RANDOM-STATE /copying *RANDOM-STATE* /done processing *!INITIAL-LAYOUTS* /at head of loop over *!BUILT-IN-CLASSES* /at head of loop over *!BUILT-IN-CLASSES* /at head of loop over *!BUILT-IN-CLASSES* /at head of loop over *!BUILT-IN-CLASSES* /at head of loop over *!BUILT-IN-CLASSES* /at head of loop over *!BUILT-IN-CLASSES* /at head of loop over *!BUILT-IN-CLASSES* /at head of loop over *!BUILT-IN-CLASSES* /at head of loop over *!BUILT-IN-CLASSES* /at head of loop over *!BUILT-IN-CLASSES* /at head of loop over *!BUILT-IN-CLASSES* /at head of loop over *!BUILT-IN-CLASSES* /at head of loop over *!BUILT-IN-CLASSES* /at head of loop over *!BUILT-IN-CLASSES* /at head of loop over *!BUILT-IN-CLASSES* /at head of loop over *!BUILT-IN-CLASSES* /at head of loop over *!BUILT-IN-CLASSES* /at head of loop over *!BUILT-IN-CLASSES* /at head of loop over *!BUILT-IN-CLASSES* /at head of loop over *!BUILT-IN-CLASSES* /at head of loop over *!BUILT-IN-CLASSES* /at head of loop over *!BUILT-IN-CLASSES* /at head of loop over *!BUILT-IN-CLASSES* /at head of loop over *!BUILT-IN-CLASSES* /at head of loop over *!BUILT-IN-CLASSES* /at head of loop over *!BUILT-IN-CLASSES* /at head of loop over *!BUILT-IN-CLASSES* /at head of loop over *!BUILT-IN-CLASSES* /at head of loop over *!BUILT-IN-CLASSES* /at head of loop over *!BUILT-IN-CLASSES* /at head of loop over *!BUILT-IN-CLASSES* /at head of loop over *!BUILT-IN-CLASSES* /at head of loop over *!BUILT-IN-CLASSES* /at head of loop over *!BUILT-IN-CLASSES* /at head of loop over *!BUILT-IN-CLASSES* /at head of loop over *!BUILT-IN-CLASSES* /at head of loop over *!BUILT-IN-CLASSES* /at head of loop over *!BUILT-IN-CLASSES* /at head of loop over *!BUILT-IN-CLASSES* /at head of loop over *!BUILT-IN-CLASSES* /at head of loop over *!BUILT-IN-CLASSES* /at head of loop over *!BUILT-IN-CLASSES* /at head of loop over *!BUILT-IN-CLASSES* /at head of loop over *!BUILT-IN-CLASSES* /at head of loop over *!BUILT-IN-CLASSES* /at head of loop over *!BUILT-IN-CLASSES* /at head of loop over *!BUILT-IN-CLASSES* /at head of loop over *!BUILT-IN-CLASSES* /at head of loop over *!BUILT-IN-CLASSES* /at head of loop over *!BUILT-IN-CLASSES* /at head of loop over *!BUILT-IN-CLASSES* /at head of loop over *!BUILT-IN-CLASSES* /at head of loop over *!BUILT-IN-CLASSES* /at head of loop over *!BUILT-IN-CLASSES* /at head of loop over *!BUILT-IN-CLASSES* /at head of loop over *!BUILT-IN-CLASSES* /at head of loop over *!BUILT-IN-CLASSES* /at head of loop over *!BUILT-IN-CLASSES* /at head of loop over *!BUILT-IN-CLASSES* /at head of loop over *!BUILT-IN-CLASSES* /at head of loop over *!BUILT-IN-CLASSES* /done with loop over *!BUILT-IN-CLASSES* /about to define temporary STANDARD-CLASSes /defining temporary STANDARD-CLASS /INHERITS=.. 0x0befac07 /done defining temporary STANDARD-CLASSes /about to set *BUILT-IN-CLASS-CODES* /done setting *BUILT-IN-CLASS-CODES* !EARLY-TYPE-COLD-INIT !LATE-TYPE-COLD-INIT !LATE-TYPE-COLD-INIT2 !ALIEN-TYPE-COLD-INIT !TARGET-TYPE-COLD-INIT !VM-TYPE-COLD-INIT !POLICY-COLD-INIT-OR-RESANIFY /back from !POLICY-COLD-INIT-OR-RESANIFY !CONSTANTP-COLD-INIT !SET-UP-STRUCTURE-OBJECT-CLASS /doing cold toplevel forms and fixups /(LISTP *!REVERSED-COLD-TOPLEVELS*)=.. 0x0af597af ("Length(TLFs)= " 24955) /INDEX-IN-COLD-TOPLEVELS=.. 0x00000000 /entering PROCLAIM, RAW-FORM=.. 0x0bf00d7b /returning from PROCLAIM /done with show.lisp /entering backq.lisp /entering PROCLAIM, RAW-FORM=.. 0x090153eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09015ba3 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x090162b3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09017203 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x090178f3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09017d23 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf0375b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf039eb /returning from PROCLAIM /backq.lisp 50 /backq.lisp 64 /backq.lisp 83 /entering PROCLAIM, RAW-FORM=.. 0x09019163 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09019293 /returning from PROCLAIM /backq.lisp 139 /done with backq.lisp /entering PROCLAIM, RAW-FORM=.. 0x0901ebf3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0901ee3b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0901f433 /returning from PROCLAIM /entering defsetfs.lisp /leaving defsetfs.lisp /entering PROCLAIM, RAW-FORM=.. 0x0bf0535b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0903cf1b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf05acb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf05d63 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf06003 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf0629b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf06533 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf067cb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf06a63 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf06cfb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf06f93 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0903ea33 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09042efb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0904367b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf07a93 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf07d2b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf081ab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf08583 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf087fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf09633 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf098ab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf09c6b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf09ee3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf0b153 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf0b3e3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf0b68b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf0be4b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09064cf3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09068d13 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09069173 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0906929b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf0ccdb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf0cf53 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0906e39b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0906e78b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0906ec03 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0906f13b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0906f6bb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x090762ab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09076d83 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09078303 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0907a0a3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0907cf63 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0908b0c3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf0f0eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0908f63b /returning from PROCLAIM /entering parse-body.lisp /leaving parse-body.lisp /entering PROCLAIM, RAW-FORM=.. 0x0bf0f6f3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0909215b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf0fb8b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x090923b3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf1002b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0909260b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf104c3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf1073b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf109b3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09092b23 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf110fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf11373 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf115eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf11863 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf11adb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf11d53 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x090a14a3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x090a2c6b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf124eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf12763 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf129db /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf12c53 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x090a3b5b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf13143 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x090a3de3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf137cb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x090a40ab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf1440b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf14a8b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x090a4523 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf14f63 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf151fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x090a499b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf156ab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x090a4c2b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf15b43 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf15edb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf16153 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x090a89d3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf165f3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf1692b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf16ba3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x090b0ee3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x090b1bab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf1781b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf17a93 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf17d23 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf17fb3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf182ab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x090b66db /returning from PROCLAIM /entering early-defstructs.lisp /entering PROCLAIM, RAW-FORM=.. 0x0bf1934b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x090ba10b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /done with early-defstructs.lisp /entering PROCLAIM, RAW-FORM=.. 0x090bd97b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x090be903 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf1c0d3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x090bfd63 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf1c923 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf1cddb /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x090c823b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x090c837b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf1d703 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf1d99b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf1f413 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x090cfb4b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x090d19d3 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0bf22a5b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf22cd3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf22f4b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf23663 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf238fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf23b73 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x090e4c33 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x090e644b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x090e739b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x090e7493 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf26013 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf2628b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x090ef20b /returning from PROCLAIM /INDEX-IN-COLD-TOPLEVELS=.. 0x00001000 /entering PROCLAIM, RAW-FORM=.. 0x090f98e3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf27eeb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf28163 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf283db /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0910192b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf288eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf28b83 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf28dfb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf29073 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf29303 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf295f3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf2986b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09103433 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf29d03 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf29f93 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf2a26b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf2a533 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf2a7c3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf2aa53 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf2ad13 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf2afa3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf2b233 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf2b4fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf2b78b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf2ba1b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf2bce3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf2bf73 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf2c21b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf2c4ab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0911b69b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0911be53 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0911c56b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf2d303 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0911ffa3 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0912165b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09121c23 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09121d6b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09121ebb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0912b763 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x091329f3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x091337eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09133eab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0913957b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09139e43 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf2f65b /returning from PROCLAIM /fdefinition.lisp 22 /entering PROCLAIM, RAW-FORM=.. 0x0913db0b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0913dfab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0913e99b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0913fb13 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09141753 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0bf307cb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09146efb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0914772b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09147f6b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf31133 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0914834b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0914865b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0914a2cb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0914d8e3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0915a103 /returning from PROCLAIM /about to do test cases in pred.lisp /done with test cases in pred.lisp /target-alieneval.lisp 15 /entering PROCLAIM, RAW-FORM=.. 0x09163723 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09163af3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0916659b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09166c7b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x091672b3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf34b4b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf3503b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09176fd3 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0bf358fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf35dcb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf3610b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf3639b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0918268b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09182d13 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x091834fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0918362b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x091841ab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf39243 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x091881db /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x091885c3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0918943b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09189553 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x091899f3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09189b13 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0918cf9b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0bf3bc03 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf3beab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf3c0db /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf3c4b3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf3c743 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09190643 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf3d40b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09199893 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf3d8c3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf3dbbb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf3deb3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf3e1b3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x091b3dab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x091b4373 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x091bb15b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x091bbc4b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x091c3dbb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x091d7893 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x091d798b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x091d7ffb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x091d87bb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x091d9a13 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x091d9b5b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x091de4ab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x091e3173 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf41783 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0921dab3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0921e05b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0921e5c3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0921eb0b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf42923 /returning from PROCLAIM /INDEX-IN-COLD-TOPLEVELS=.. 0x00002000 /entering PROCLAIM, RAW-FORM=.. 0x0923b5cb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf43553 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0929ae9b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0929afcb /returning from PROCLAIM /unix.lisp 21 /unix.lisp 74 /entering PROCLAIM, RAW-FORM=.. 0x092be93b /returning from PROCLAIM /unix.lisp 220 /unix.lisp 304 /unix.lisp 391 /entering PROCLAIM, RAW-FORM=.. 0x092c448b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x092c8b7b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x092c907b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x092cdc83 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf451d3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x092d110b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x092d2683 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x092d4b2b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x092d677b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x092daf4b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x092ddc13 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x092de3b3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x092e0963 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x092e169b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x092e2073 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x092e29a3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf4713b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x092e3a2b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf479ab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x092ebcc3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x092ed5e3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x092ed73b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x092ee073 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x092ee853 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x092ee96b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x092ef1eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x092f065b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf48e43 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf490bb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf49333 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf495ab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf49823 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf49a9b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf49d13 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf49f8b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf4a20b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf4a483 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf4a6fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf4a973 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x092f591b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x092f5a5b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x092f617b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x092f627b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x092f698b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x092f6aa3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x092f71c3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x092f804b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x092fcff3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x092fd9eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x092ff133 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09301bf3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09301ceb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09302403 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf4ce2b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09308273 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf4d2db /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09308c03 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0930b8bb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0930d403 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0930f4eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0930f94b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0930ffc3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09313413 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0931396b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09314553 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0931666b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf4ee53 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0931c37b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09322773 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf4f543 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09326783 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09326eeb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x093276cb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0933b7b3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf506a3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf5095b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf50c03 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf50e7b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf511d3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0935f16b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x093617c3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09362be3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0936347b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x093655eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09367363 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x093711fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x093718fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09371f5b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x093725a3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09372b0b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0937315b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x093736c3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09373cb3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0937421b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09374873 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09375733 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf53e2b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0939f2f3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0939f6eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0939fbfb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x093a0593 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf54cf3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x093a92a3 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0bf556c3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x093ab56b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x093aeea3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x093aef9b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf56303 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x093af893 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf567f3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x093b02ab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf56cab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x093b0583 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf5716b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x093b082b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf57623 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x093b0af3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf57adb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x093b0da3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf57f93 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x093b103b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf5844b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x093b130b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf58903 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x093b15d3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf58dbb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x093b1863 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf59273 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x093b1b13 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf5972b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x093b1dc3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf59be3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x093b207b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf5a09b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x093b2333 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf5a553 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09595513 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09595aa3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09595fc3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0959943b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0959b20b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0959b753 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf5b66b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf5b8e3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf5bb5b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf5bdf3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf5c093 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf5c813 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf5cf73 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf5d433 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf5eb33 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf5edab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf5fa3b /returning from PROCLAIM /INDEX-IN-COLD-TOPLEVELS=.. 0x00003000 /entering PROCLAIM, RAW-FORM=.. 0x0bf5fecb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf6014b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x095f8a1b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf605e3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf608bb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf60b4b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf60de3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf61073 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf612eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf6157b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf6180b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf61a9b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf61d13 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf61f8b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf62223 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf6427b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0961e61b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0bf64c23 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x096210eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09621c33 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x096238fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09623a3b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x096244eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf65beb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf65e63 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf660f3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf66383 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf66613 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf668a3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf66b33 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf66dc3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09634963 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09635163 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x096360eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0963738b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0963b37b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0963d1d3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0963d303 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0963e563 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0963f27b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0963fd6b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09640e7b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x096416f3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x096428b3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0964531b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09645d13 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09649a43 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0964e51b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0964eb8b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0965450b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x09654bc3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0965a403 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x096615eb /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x09661c5b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0966814b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x096689fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0966ed4b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0966f493 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf7500b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09677353 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x09677d73 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0967c1cb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x096809d3 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x09681173 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0968837b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x09688b2b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0968eb5b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf7c263 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf7c4f3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf7c783 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf7ca13 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf7cca3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf7cf33 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf7d1cb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf7d45b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf7d6eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf7d97b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf7dc0b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf7de9b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf7e12b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf7e3bb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf7e64b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf7e8db /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf7ebcb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf7ee93 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf7f10b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf7f383 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf7f5fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf7f873 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf7faeb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x096a6063 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf800f3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x096a70fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf8058b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf8081b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x096e05f3 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x096e1293 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x096e664b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x096ee043 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x096f07db /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x096f3f73 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x096f657b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x096f9333 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0bf8558b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf85803 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09707fd3 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0bf8604b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf86323 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf865b3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf86a33 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf86eb3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf87133 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf873ab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf87623 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0973f3a3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf87abb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf87d33 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf87fab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf88223 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf8849b /returning from PROCLAIM /INDEX-IN-COLD-TOPLEVELS=.. 0x00004000 /entering PROCLAIM, RAW-FORM=.. 0x0bf88943 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf88bbb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf88e33 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf890b3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf8932b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf895a3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf8981b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0977a2f3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf89d13 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf89fa3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09781e83 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf8a43b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf8a6b3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09782283 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09783b8b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09786ce3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0978a653 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0bf8ba13 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0978c933 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0bf8c09b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09793213 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf8c60b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09793573 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf8cac3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0979a5cb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf8d2ab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0979c263 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0bf8d9eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf8dc8b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0979e3fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x097ab35b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x097b17db /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf8fab3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf900d3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x097c626b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0bf90dbb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf9104b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf916db /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf91953 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf91bcb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf91e43 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf920bb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf92353 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf925eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf9287b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf92af3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf92d6b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf92fe3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf9326b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf934e3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf9375b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf939d3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09809633 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0980dc33 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0980e7db /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0980edeb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf9489b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf94b13 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0981c95b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0981efe3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09823263 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf957b3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09827ad3 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0bf95f7b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0982c71b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0bf96783 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf96c2b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09836c8b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf97163 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf9740b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0983a6fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0983abb3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0983afd3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0983b3db /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0983b7fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0983bc1b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0983c023 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0983c413 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0983c833 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0983cc53 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0983d05b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0983d47b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0983d89b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0983dca3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0983e093 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0983e483 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0983e8a3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0983ecc3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0983f0cb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0983f4eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0983f90b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0983fd13 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09840103 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09840523 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09840943 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09840d4b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0984116b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0984158b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09841993 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09841d83 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09842173 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0984265b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09842ac3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09842fab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09843473 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0984389b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09843d6b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0984415b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0984457b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09844abb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09844fb3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09845433 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x098458f3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09845ce3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x098461d3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x098467e3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09846bd3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0984702b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0984746b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09847913 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09847de3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09848203 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09848693 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09849f0b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf9fd1b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf9ff93 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfa020b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfa0483 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfa08a3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfa0b1b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0984b9e3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfa0fb3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfa1233 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0984bd9b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfa16cb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0984bff3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfa1b63 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfa1ddb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfa2053 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfa22cb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfa2543 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfa27bb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfa2a33 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfa2cab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfa2f23 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfa319b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfa3413 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfa368b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfa3903 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfa3b7b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfa3df3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfa4073 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfa42eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfa4563 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfa47db /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfa4a53 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfa4ccb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfa4f43 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfa51bb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfa5433 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfa56ab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfa5923 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfa5b9b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfa5e13 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfa6093 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfa630b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfa6583 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfa67fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfa6a73 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfa6ceb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfa6f63 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfa71f3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0984fcf3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfa770b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfa7983 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09850363 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09850c1b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfaa22b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09851c4b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0bfaa6f3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfaa96b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfaabe3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfaae5b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfab0d3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfab423 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfab9a3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09857a6b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0bfac02b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfac2a3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09858dbb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfac73b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x098639b3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09867093 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0986718b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0987932b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0bfae643 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0987a313 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0987a773 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0987ab0b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0987aebb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0987b47b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0987b82b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0987c7fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfaf833 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0987d033 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0987dc13 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0987e1bb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfb02fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfb2233 /returning from PROCLAIM /INDEX-IN-COLD-TOPLEVELS=.. 0x00005000 /entering PROCLAIM, RAW-FORM=.. 0x09885edb /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0bfb422b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0988986b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0bfb49fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfb4c73 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfb5373 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09891063 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0bfb5d7b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfb63eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfb6a5b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfb6f43 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09894843 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0bfbbdf3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfbc073 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfbc2f3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfbc573 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfbc7eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfbca63 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x098ac583 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x098adb3b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x098ae27b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x098aed83 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x098af54b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x098afb93 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x098b01b3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x098b0743 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x098b0afb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x098b0feb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x098b1e5b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfc2283 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x098b496b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0bfc427b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x098b8b8b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0bfca5ab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfcc27b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x098c9823 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x098cb3fb /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x098d468b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x098d7673 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x098da08b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0bfd749b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x098dcb1b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0bfd9243 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x098dff43 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0bfdb263 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0bfdd453 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x098ea02b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0bfdfa73 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0bfe2453 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x098f3783 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0bfe5743 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x098fae2b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0bfe826b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0990507b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0bfeb48b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09915c5b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0bfee23b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09925133 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0bff125b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0992afc3 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0bff1953 /returning from PROCLAIM /INDEX-IN-COLD-TOPLEVELS=.. 0x00006000 /entering PROCLAIM, RAW-FORM=.. 0x0bff3223 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0993683b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0993f07b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0bff8253 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x099452fb /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0bffa24b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0994bca3 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0995a573 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0996180b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x09965cb3 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c00626b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0996b9c3 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c0082cb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09973a73 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x09979bfb /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x09980433 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0998414b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x09985193 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x099859a3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0998a90b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x099927eb /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0999517b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0999b5eb /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0999fb13 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x099a4a6b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x099a7f3b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x099aab53 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c014cb3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x099af67b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x099b4ea3 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x099b912b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c01b273 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c01d4bb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x099c96b3 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c020283 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x099ce05b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c02248b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x099d3bbb /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x099dad13 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /INDEX-IN-COLD-TOPLEVELS=.. 0x00007000 /entering PROCLAIM, RAW-FORM=.. 0x099e4563 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x099e64d3 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x099ea143 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c027923 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x099eb083 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c027dbb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x099eb333 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c028353 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x099eb5fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0287eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x099eb85b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c028e73 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x099ebb03 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c029503 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x099ebda3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c029b8b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x099ec04b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c02a02b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x099ec2bb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c02a4c3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x099ec523 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c02ab4b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x099ec7c3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c02b1d3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c02b44b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x099ecb93 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x099ecc93 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c02bb03 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x099ecf1b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c02bf9b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c02c213 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x099f0e8b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c02cc0b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x099f2bb3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x099f5473 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c02d3c3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x099f83c3 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x099f8c9b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x099f9d63 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x099fb79b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c030533 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09a00753 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09a10033 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c030efb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c031293 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0317ab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09a2b09b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c03424b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09a324d3 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c034be3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c034f5b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0352d3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c03554b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c035bdb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c035e9b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c03615b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0363fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0367f3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c036bdb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c036fc3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0373bb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c03765b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0378eb /returning from PROCLAIM /in DEFINE-STORAGE-BASE /not :NON-PACKED, i.e. hairy case /doing second SETF /doing third SETF /doing fourth SETF /finished with DEFINE-STORAGE-BASE expansion /in DEFINE-STORAGE-BASE /not :NON-PACKED, i.e. hairy case /doing second SETF /doing third SETF /doing fourth SETF /finished with DEFINE-STORAGE-BASE expansion /in DEFINE-STORAGE-BASE /not :NON-PACKED, i.e. hairy case /doing second SETF /doing third SETF /doing fourth SETF /finished with DEFINE-STORAGE-BASE expansion /in DEFINE-STORAGE-BASE /finished with DEFINE-STORAGE-BASE expansion /in DEFINE-STORAGE-BASE /finished with DEFINE-STORAGE-BASE expansion /in DEFINE-STORAGE-BASE /not :NON-PACKED, i.e. hairy case /doing second SETF /doing third SETF /doing fourth SETF /finished with DEFINE-STORAGE-BASE expansion /entering PROCLAIM, RAW-FORM=.. 0x0c042073 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0422eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c042563 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0427db /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c042a53 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c042d33 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c04305b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c04333b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c04361b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0438fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c043bdb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c043ebb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c04419b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c04447b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c04475b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c044a3b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c044d1b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c045003 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0452e3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0455c3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0458a3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c045b83 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c045e63 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c046143 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c046423 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c046703 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0469e3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c046cc3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c046fa3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c047283 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c047563 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c047843 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c047b23 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c047e03 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0480e3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0483c3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0486a3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0489ab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09a7293b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09a72d13 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09a74a23 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09a75d0b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x09a79d93 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09a7b90b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x09a7d373 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x09a7ff13 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x09a8651b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x09a874ab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c04c32b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09a87bab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09a87edb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c04cca3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09a8c97b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x09a8d3c3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c04d623 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09a8f99b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x09a9192b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c04e50b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09a94e0b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c04eed3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c04f16b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c04f403 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c04f69b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c04f933 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c04fbcb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c04fe63 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0500fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09a96b33 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09a96c43 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09a9a6d3 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c050dab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c05104b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0512e3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09a9e14b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c051c0b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09aa1f2b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c0524eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c052783 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c052a1b /returning from PROCLAIM /INDEX-IN-COLD-TOPLEVELS=.. 0x00008000 /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x09aa801b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x09aa9ccb /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x09aabbfb /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c054eb3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0551bb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09aae10b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09aae43b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c05748b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c057beb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c057e63 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c05a263 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09abd133 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x09abe7e3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09abe913 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c05c26b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09abf6f3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09abfefb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09ac0643 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09ac1463 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09ac1bd3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c05d40b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09ac938b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c05f28b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09acd7cb /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c06123b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09ad1f93 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c06325b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09ad4d33 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x09ad5ca3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c06500b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c066523 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09ae0543 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c06825b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09ae4a83 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c068a9b /returning from PROCLAIM /condition.lisp 20 /condition.lisp 24 /entering PROCLAIM, RAW-FORM=.. 0x0c06a26b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09af4273 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /condition.lisp 49 /entering PROCLAIM, RAW-FORM=.. 0x09af5c83 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09af64cb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09afae63 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /condition.lisp 103 /condition.lisp 103 /entering PROCLAIM, RAW-FORM=.. 0x0c06bd5b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09b01ad3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c06c22b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c06c503 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c06c733 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c06cf1b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c06d14b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c06d983 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c06dbb3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c06e1d3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c06e403 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c06eca3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c06eed3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c06f50b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c06f73b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c07006b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c07029b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c070bfb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c070e2b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0714db /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c07170b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c071dcb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c072003 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c072963 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c072b93 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09b0a00b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0737db /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c073a0b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c074093 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0742c3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c07494b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c074b7b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c07526b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c07549b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c075b3b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c075d6b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c07668b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0768bb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c077243 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c077473 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c077b4b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c077d7b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c07846b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c07869b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c078d43 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c078f73 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c079873 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c079aa3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c07a1b3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c07a3e3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c07afb3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c07b1eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c07b8ab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c07badb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c07c663 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c07c893 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c07cfdb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c07d20b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c07d953 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c07db83 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c07e2db /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c07e50b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c07ec8b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c07eebb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c07f55b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c07f78b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0800eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c08031b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c08122b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c08145b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c081e03 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c082033 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0829ab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c082bdb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c08342b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c08365b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c083c8b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c083f0b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c084143 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c084b83 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c084db3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0857ab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0859db /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c086253 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c086483 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c086bf3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c086e23 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c08750b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c08773b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c087e73 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0880ab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c088903 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c088b33 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c089cd3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c089f03 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c08a6bb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c08a8eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c08b143 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c08b373 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c08bbcb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c08bdfb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c08c893 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c08cac3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c08d31b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c08d54b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c08dbdb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c08de0b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c08eabb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c08eceb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c08f60b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c08f83b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c08fedb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c09010b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c09097b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c090bab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c09168b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0918bb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0925db /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c09280b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0933b3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0935e3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c093f63 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c094193 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c09489b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c094acb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c095413 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c095643 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c095dcb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c096003 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c099ba3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c099dd3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c09a5ab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c09a7db /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c09b8f3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c09bb23 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c09c373 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c09c5a3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c09cd3b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c09cf6b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c09d7b3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c09d9e3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c09e2d3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c09e503 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c09ec3b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c09ee6b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c09f65b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c09f88b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0a0503 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0a0733 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0a10cb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0a12fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0a1ca3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0a1ed3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0a2693 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0a28c3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0a3063 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0a3293 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0a392b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0a3b5b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0a4573 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0a47a3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0a4eab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0a50db /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0a59cb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0a5bfb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0a6283 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0a64b3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0a6d7b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0a6fab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0a765b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0a788b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0a81bb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0a83eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0a8a73 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0a8d73 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0a8fa3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0a98b3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0a9ae3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0aa42b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0aa65b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0ab00b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0ab23b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0ab9fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0abc2b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0ac48b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0ac6bb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0acf2b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0ad15b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0ad8b3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0adae3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0ae273 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0ae4a3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0aee5b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0af08b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0af88b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0afabb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0b03eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0b061b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0b0d43 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0b0f73 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0b166b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0b189b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0b226b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0b249b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0b2c4b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0b2e7b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0b3a53 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0b3c83 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0b434b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0b457b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0b4ee3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0b5113 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0b5bab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0b5ddb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0b6553 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0b6783 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0b723b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0b746b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0b7e23 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0b8053 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0b8733 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0b8963 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0b936b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0b959b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0b9d2b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0b9f5b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0ba6eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0ba91b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0bb10b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0bb33b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0bbc33 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0bbe63 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0bc473 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0bc6a3 /returning from PROCLAIM /condition.lisp end of file /primtype.lisp 17 /doing !DEF-PRIMITIVE-TYPE, NAME=.. T /done with !DEF-PRIMITIVE-TYPE /primtype.lisp 20 /primtype.lisp 24 /doing !DEF-PRIMITIVE-TYPE, NAME=.. POSITIVE-FIXNUM /done with !DEF-PRIMITIVE-TYPE /primtype.lisp 27 /doing !DEF-PRIMITIVE-TYPE, NAME=.. UNSIGNED-BYTE-31 /done with !DEF-PRIMITIVE-TYPE /primtype.lisp 31 /doing !DEF-PRIMITIVE-TYPE, NAME=.. UNSIGNED-BYTE-32 /done with !DEF-PRIMITIVE-TYPE /primtype.lisp 35 /doing !DEF-PRIMITIVE-TYPE, NAME=.. FIXNUM /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. SIGNED-BYTE-32 /done with !DEF-PRIMITIVE-TYPE /entering PROCLAIM, RAW-FORM=.. 0x0c0bcee3 /returning from PROCLAIM /primtype.lisp 53 /primtype.lisp 68 /doing !DEF-PRIMITIVE-TYPE, NAME=.. CHARACTER /done with !DEF-PRIMITIVE-TYPE /primtype.lisp 73 /doing !DEF-PRIMITIVE-TYPE, NAME=.. FUNCTION /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. LIST /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. INSTANCE /done with !DEF-PRIMITIVE-TYPE /primtype.lisp 77 /doing !DEF-PRIMITIVE-TYPE, NAME=.. FUNCALLABLE-INSTANCE /done with !DEF-PRIMITIVE-TYPE /primtype.lisp 81 /doing !DEF-PRIMITIVE-TYPE, NAME=.. BIGNUM /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. RATIO /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. COMPLEX /done with !DEF-PRIMITIVE-TYPE /about to !DEF-PRIMITIVE-TYPE SINGLE-FLOAT /doing !DEF-PRIMITIVE-TYPE, NAME=.. SINGLE-FLOAT /done with !DEF-PRIMITIVE-TYPE /about to !DEF-PRIMITIVE-TYPE DOUBLE-FLOAT /doing !DEF-PRIMITIVE-TYPE, NAME=.. DOUBLE-FLOAT /done with !DEF-PRIMITIVE-TYPE /about to !DEF-PRIMITIVE-TYPE COMPLEX-SINGLE-FLOAT /doing !DEF-PRIMITIVE-TYPE, NAME=.. COMPLEX-SINGLE-FLOAT /done with !DEF-PRIMITIVE-TYPE /about to !DEF-PRIMITIVE-TYPE COMPLEX-DOUBLE-FLOAT /doing !DEF-PRIMITIVE-TYPE, NAME=.. COMPLEX-DOUBLE-FLOAT /done with !DEF-PRIMITIVE-TYPE /primtype.lisp 96 /doing !DEF-PRIMITIVE-TYPE, NAME=.. SIMPLE-ARRAY-NIL /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. SIMPLE-BASE-STRING /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. SIMPLE-CHARACTER-STRING /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. SIMPLE-ARRAY-SINGLE-FLOAT /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. SIMPLE-ARRAY-DOUBLE-FLOAT /INDEX-IN-COLD-TOPLEVELS=.. 0x00009000 /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. SIMPLE-BIT-VECTOR /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. SIMPLE-ARRAY-UNSIGNED-BYTE-2 /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. SIMPLE-ARRAY-UNSIGNED-BYTE-4 /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. SIMPLE-ARRAY-UNSIGNED-BYTE-7 /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. SIMPLE-ARRAY-UNSIGNED-BYTE-8 /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. SIMPLE-ARRAY-UNSIGNED-BYTE-15 /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. SIMPLE-ARRAY-UNSIGNED-BYTE-16 /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. SIMPLE-ARRAY-UNSIGNED-FIXNUM /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. SIMPLE-ARRAY-UNSIGNED-BYTE-31 /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. SIMPLE-ARRAY-UNSIGNED-BYTE-32 /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. SIMPLE-ARRAY-SIGNED-BYTE-8 /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. SIMPLE-ARRAY-SIGNED-BYTE-16 /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. SIMPLE-ARRAY-FIXNUM /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. SIMPLE-ARRAY-SIGNED-BYTE-32 /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. SIMPLE-VECTOR /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. SYSTEM-AREA-POINTER /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. WEAK-POINTER /done with !DEF-PRIMITIVE-TYPE /doing !DEF-PRIMITIVE-TYPE, NAME=.. CATCH-BLOCK /done with !DEF-PRIMITIVE-TYPE /primtype.lisp 147 /primtype.lisp 188 /primtype.lisp 191 /entering PROCLAIM, RAW-FORM=.. 0x0c0bddc3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09b5193b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09b51c5b /returning from PROCLAIM /primtype.lisp end of file /parse-lambda-list.lisp 12 /entering PROCLAIM, RAW-FORM=.. 0x09b55e3b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09b55fbb /returning from PROCLAIM /parse-lambda-list.lisp end of file /host-alieneval.lisp 15 /entering PROCLAIM, RAW-FORM=.. 0x09b5f60b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c0bf513 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0c1243 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09b6c09b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c0c3423 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09b6ec0b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c0c546b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09b72f7b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c0c724b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09b7614b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c0ca27b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09b801db /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c0cc483 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09b85dfb /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c0ce27b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09b8bd83 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c0d0233 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09b92ddb /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c0d2473 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09b9700b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c0d4283 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09b9a81b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c0d6493 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09b9e203 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c0d8253 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09ba26c3 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c0da493 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09ba66fb /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c0dc22b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09bab57b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c0de223 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09baf2eb /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c0dea1b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0e022b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09bb82cb /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c0e226b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09bbcb93 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c0e4283 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09bc01b3 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /host-alieneval.lisp end of file /host-c-call.lisp 12 /entering PROCLAIM, RAW-FORM=.. 0x0c0e646b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09bc56ab /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x09bc83eb /returning from PROCLAIM /host-c-call.lisp end of file /compiler-deftype.lisp 14 /compiler-deftype.lisp end of file /late-type.lisp 19 /entering PROCLAIM, RAW-FORM=.. 0x0c0e6ebb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0e70eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09bce5bb /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c0e7c8b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0e7f03 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09bd49bb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09bd6213 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0ea013 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09bd8d5b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09bd907b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0ea72b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09bdcf3b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09bdd25b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0eae43 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09bde82b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09bdeb5b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0eb55b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09be05eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09be090b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0ebc73 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09be24e3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09be27f3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0ec38b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09be4713 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09be4a23 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0ecaa3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09be68db /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09be6bf3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0ed1c3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09be88ab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09be8bcb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0ed8db /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09beaa7b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09bead9b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0edff3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09bebf3b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09bec25b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09bed37b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0ee92b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09bef11b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09bef43b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0ef043 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09bf136b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09bf1683 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0ef753 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0ef9eb /returning from PROCLAIM /INDEX-IN-COLD-TOPLEVELS=.. 0x0000a000 /entering PROCLAIM, RAW-FORM=.. 0x09bfe70b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0f02fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09c07733 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09c29293 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09c2c6e3 /returning from PROCLAIM /late-type.lisp end of file /deftypes-for-target.lisp 14 /deftypes-for-target.lisp end of file /knownfun.lisp 17 /entering PROCLAIM, RAW-FORM=.. 0x0c0f27e3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0f2dfb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09c523e3 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x09c55ceb /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x09c56bdb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09c579f3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09c588bb /returning from PROCLAIM /knownfun.lisp end of file /entering PROCLAIM, RAW-FORM=.. 0x0c0f454b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09c5d563 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0f4a03 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09c5fc7b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09c6040b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09c60a2b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09c71d2b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09c720bb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0f6883 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09c7762b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09c7777b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09c77c8b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09c78753 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09c78ebb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09c795fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09c79d43 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09c7a3eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0f7c0b /returning from PROCLAIM /beginning class-init.lisp /doing class with NAME=.. T /in TRANS-P case /doing class with NAME=.. CHARACTER /in TRANS-P case /doing class with NAME=.. SYMBOL /doing class with NAME=.. SYSTEM-AREA-POINTER /doing class with NAME=.. WEAK-POINTER /doing class with NAME=.. CODE-COMPONENT /doing class with NAME=.. LRA /doing class with NAME=.. FDEFN /doing class with NAME=.. RANDOM-CLASS /doing class with NAME=.. FUNCTION /doing class with NAME=.. NUMBER /in TRANS-P case /doing class with NAME=.. COMPLEX /in TRANS-P case /doing class with NAME=.. COMPLEX-SINGLE-FLOAT /in TRANS-P case /doing class with NAME=.. COMPLEX-DOUBLE-FLOAT /in TRANS-P case /doing class with NAME=.. REAL /in TRANS-P case /doing class with NAME=.. FLOAT /in TRANS-P case /doing class with NAME=.. SINGLE-FLOAT /in TRANS-P case /doing class with NAME=.. DOUBLE-FLOAT /in TRANS-P case /doing class with NAME=.. RATIONAL /in TRANS-P case /doing class with NAME=.. RATIO /in TRANS-P case /doing class with NAME=.. INTEGER /in TRANS-P case /doing class with NAME=.. FIXNUM /in TRANS-P case /doing class with NAME=.. BIGNUM /in TRANS-P case /doing class with NAME=.. ARRAY /in TRANS-P case /doing class with NAME=.. SIMPLE-ARRAY /in TRANS-P case /doing class with NAME=.. SEQUENCE /in TRANS-P case /doing class with NAME=.. VECTOR /in TRANS-P case /doing class with NAME=.. SIMPLE-VECTOR /in TRANS-P case /doing class with NAME=.. BIT-VECTOR /in TRANS-P case /doing class with NAME=.. SIMPLE-BIT-VECTOR /in TRANS-P case /doing class with NAME=.. SIMPLE-ARRAY-UNSIGNED-BYTE-2 /in TRANS-P case /doing class with NAME=.. SIMPLE-ARRAY-UNSIGNED-BYTE-4 /in TRANS-P case /doing class with NAME=.. SIMPLE-ARRAY-UNSIGNED-BYTE-7 /in TRANS-P case /doing class with NAME=.. SIMPLE-ARRAY-UNSIGNED-BYTE-8 /in TRANS-P case /doing class with NAME=.. SIMPLE-ARRAY-UNSIGNED-BYTE-15 /in TRANS-P case /doing class with NAME=.. SIMPLE-ARRAY-UNSIGNED-BYTE-16 /in TRANS-P case /doing class with NAME=.. SIMPLE-ARRAY-UNSIGNED-FIXNUM /in TRANS-P case /doing class with NAME=.. SIMPLE-ARRAY-UNSIGNED-BYTE-31 /in TRANS-P case /doing class with NAME=.. SIMPLE-ARRAY-UNSIGNED-BYTE-32 /in TRANS-P case /doing class with NAME=.. SIMPLE-ARRAY-SIGNED-BYTE-8 /in TRANS-P case /doing class with NAME=.. SIMPLE-ARRAY-SIGNED-BYTE-16 /in TRANS-P case /doing class with NAME=.. SIMPLE-ARRAY-FIXNUM /in TRANS-P case /doing class with NAME=.. SIMPLE-ARRAY-SIGNED-BYTE-32 /in TRANS-P case /doing class with NAME=.. SIMPLE-ARRAY-SINGLE-FLOAT /in TRANS-P case /doing class with NAME=.. SIMPLE-ARRAY-DOUBLE-FLOAT /in TRANS-P case /doing class with NAME=.. SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT /in TRANS-P case /doing class with NAME=.. SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT /in TRANS-P case /doing class with NAME=.. STRING /in TRANS-P case /doing class with NAME=.. SIMPLE-STRING /in TRANS-P case /doing class with NAME=.. VECTOR-NIL /in TRANS-P case /doing class with NAME=.. SIMPLE-ARRAY-NIL /in TRANS-P case /doing class with NAME=.. BASE-STRING /in TRANS-P case /doing class with NAME=.. SIMPLE-BASE-STRING /in TRANS-P case /doing class with NAME=.. CHARACTER-STRING /in TRANS-P case /doing class with NAME=.. SIMPLE-CHARACTER-STRING /in TRANS-P case /doing class with NAME=.. LIST /in TRANS-P case /doing class with NAME=.. CONS /in TRANS-P case /doing class with NAME=.. NULL /in TRANS-P case /doing class with NAME=.. STREAM /doing class with NAME=.. FILE-STREAM /doing class with NAME=.. STRING-STREAM /done with class-init.lisp /code/defstruct.lisp 15 /entering PROCLAIM, RAW-FORM=.. 0x09c822a3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c10ce2b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09c8ace3 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x09c8b64b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09c8ef23 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x09c8ff53 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09ca3a3b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09ca3ebb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09caf14b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c111e9b /returning from PROCLAIM /code/defstruct.lisp end of file /target-defstruct.lisp 12 /entering PROCLAIM, RAW-FORM=.. 0x0c112263 /returning from PROCLAIM /target-defstruct.lisp end of file /code/alien-type.lisp 16 /entering PROCLAIM, RAW-FORM=.. 0x09cbdecb /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /code/alien-type.lisp end of file /entering PROCLAIM, RAW-FORM=.. 0x0c112adb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c112d53 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09cc1b53 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09cc3173 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09cc4ddb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09cca40b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c115233 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1154ab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1156db /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09ccad13 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1161cb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1163fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c116ae3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c116d13 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c11762b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c11785b /returning from PROCLAIM /precomputing numeric types /precomputing built-in symbol type specifiers /done with type-init.lisp /entering PROCLAIM, RAW-FORM=.. 0x09cd26eb /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c12027b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09cd8b33 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x09cdb7e3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09cdf3f3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09cdfad3 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c121b4b /returning from PROCLAIM /INDEX-IN-COLD-TOPLEVELS=.. 0x0000b000 /entering PROCLAIM, RAW-FORM=.. 0x09ce5c8b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x09cecb93 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x09ced1e3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c12522b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c127483 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09cf8123 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c12925b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09cfbbd3 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c129a83 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09cff70b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c12a62b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09d03083 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x09d0602b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x09d06f03 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c12e263 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09d0b233 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09d0b60b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /INDEX-IN-COLD-TOPLEVELS=.. 0x0000c000 /entering PROCLAIM, RAW-FORM=.. 0x09d4ebab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1ae70b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09d54cb3 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x09d57693 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1b1283 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09d5bdb3 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c1b3483 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09d5e0f3 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x09d5f1ab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1b527b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09d60bd3 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x09d618bb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09d6207b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09d6d3db /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09d6f7bb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1b682b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09d71623 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09d7174b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1b6f23 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09d7306b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09d7319b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1b768b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1b78bb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1b7fe3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1b8223 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1b9413 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1b9643 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1b9ddb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1ba00b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1ba7db /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1baa0b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1bb183 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09d7e7ab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09d7eb9b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09d7f1c3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1bbcfb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1bbf83 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1bc253 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1bc4cb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1bc953 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09d8448b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x09d8a2db /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09d8b00b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09d8b5bb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09d8bd4b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09d8e85b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1be2eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09d8eb43 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09d90cdb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1be9db /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1bec53 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1bef8b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09d9ceb3 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x09d9d633 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1c1763 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09dad37b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09dbd1d3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1c2303 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1c257b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1c27f3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1c2a6b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1c2ce3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09dbd9eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09dbe463 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09dc120b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09dc182b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09dc2673 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09dc518b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x09dc7983 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x09dc84d3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09dc965b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09dcaf4b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09dcb5fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1c577b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09dd74db /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1c5c13 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1c5e8b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09dd78b3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1c632b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09dd7b3b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1c67c3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09dd7db3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1c6c5b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09dd805b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1c710b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09dda383 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c1c7a2b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09ddb12b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09ddb45b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09de5ecb /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x09de800b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x09de8a63 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09dea15b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c1c9dc3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09dec65b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c1ca87b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1caaf3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1cad6b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09df111b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09df1bfb /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x09df4383 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x09df5d2b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x09df8ab3 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c1ccb8b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1cce03 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09e0eb33 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x09e1c683 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09e1c81b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09e268f3 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c1cecfb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09e29bd3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1cf3d3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09e29e73 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1cf86b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09e2a0e3 /returning from PROCLAIM /INDEX-IN-COLD-TOPLEVELS=.. 0x0000d000 /entering PROCLAIM, RAW-FORM=.. 0x09e3205b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x09e341d3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1d0fab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09e3b1cb /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x09e45fe3 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x09e48f4b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x09e4b283 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x09e4da2b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x09e4fcbb /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c1df693 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1df96b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1e002b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1e222b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c1e4483 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09e6b88b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c1e627b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09e71073 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c1e8273 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09e73a93 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c1ea46b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09e7623b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c1eaa43 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09e7c153 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x09e7ffb3 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c1ebd23 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1ebf9b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1ec213 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09e826d3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09e8c613 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09e9a683 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1eceb3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1ed133 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1ed3ab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1ed623 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1ed8a3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1edb1b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09e9b033 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1edfb3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09e9b283 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1ee45b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09e9b4db /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1ee8fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1eeb73 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1eee0b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1ef0ab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1ef33b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1ef5d3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09e9bfa3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1efa8b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1efd0b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1eff83 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1f02ab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09e9d51b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1f0743 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1f09bb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1f0c33 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1f0eab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1f1123 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1f15db /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1f18b3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1f1b33 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1f1e13 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1f20c3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1f235b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1f25d3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1f284b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1f2ae3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09eaf083 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x09eb332b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c1f67d3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1f6a4b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1f6cc3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09ed89ab /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x09edf6fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09edf833 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1f99d3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09edfa93 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1f9e73 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09edfceb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09ee1013 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1fa56b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09ee1233 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1faa13 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1fac93 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1faf23 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1fb19b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09ee1dbb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09ee330b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09ee3ddb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09ee466b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09ee6523 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09ee7c1b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09ee93ab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09ef1053 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09ef3a6b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1fc7f3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09ef6833 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1fcc8b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f006d3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f01213 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f01893 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f15c7b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f169bb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f18763 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f19ac3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f1b783 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f1ce23 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f1df9b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f2079b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f22a1b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f2491b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f25dd3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f27cf3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f29ab3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f2a9d3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f2d2c3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f2f6b3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f300a3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f315cb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f331ab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f33e53 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f34fd3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f36583 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f38b43 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f39b7b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f3ace3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f3ccd3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f3db13 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f3ecb3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f3fc73 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f40af3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f41bc3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f433eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f445e3 /returning from PROCLAIM /INDEX-IN-COLD-TOPLEVELS=.. 0x0000e000 /entering PROCLAIM, RAW-FORM=.. 0x09f47303 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f476d3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f4810b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f48c6b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f4e35b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f4e773 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f4eb93 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f4ef73 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f4f373 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f5482b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f54d23 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f5526b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f5562b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f559f3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f56243 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f566c3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f56a93 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f58cc3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f590f3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f594e3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f59913 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f59cc3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f5a12b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f5e26b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f5f5eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f5f9fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c209a8b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f6f013 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f6f463 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c20a143 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f72c6b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f7677b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f76ccb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f770db /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f7758b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f7a773 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c20b0cb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f7aae3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f7e3bb /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x09f7f4eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c20bfe3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c20c4b3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c20c78b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c20ca03 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f83e33 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c20ce9b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c20d113 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f8419b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f8429b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c20d7cb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f844d3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c20dc63 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c20de93 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c20e49b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c20e6cb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c20f403 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c20f633 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f8b98b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f8c043 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c2103e3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c210663 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c2108e3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c210b63 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c210de3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c211063 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c2112e3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f8fd03 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f901f3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f90bdb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f92e0b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f93e33 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f941a3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c212313 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f9d84b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09fa3e53 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c219feb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c229d63 /returning from PROCLAIM /INDEX-IN-COLD-TOPLEVELS=.. 0x0000f000 /about to set CxR source transforms /done setting CxR source transforms /entering PROCLAIM, RAW-FORM=.. 0x0c253cc3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c253f3b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a0e8763 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0a0e96d3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c2550c3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a1581cb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a15d7fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a15dddb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a15e70b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a160f43 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a17dda3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a17e16b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a1b800b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a1b86ab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a1b8fbb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c26cb3b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a1c1003 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a1c131b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c26d25b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c26d983 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a1cbc73 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c26de3b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a1ce9b3 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0a1cf203 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c26ed63 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a1d0cc3 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0a1d1c03 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a1d95bb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a1d9e4b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a1db173 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a1dd6e3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a1de0cb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a1dfb53 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a1e86a3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c2707db /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c270a53 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c270d53 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c270feb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c27126b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c2716b3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a2177fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a219933 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0a21a5cb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c272433 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a21c02b /returning from PROCLAIM /INDEX-IN-COLD-TOPLEVELS=.. 0x00010000 /entering PROCLAIM, RAW-FORM=.. 0x0c272ae3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c272dbb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c273033 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c2732b3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a238373 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0a23f903 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0a241673 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c274873 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c274af3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c274e43 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c2750bb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c275333 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c2755ab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c275823 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c275a9b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c275d13 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c275f8b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c27620b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c276483 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c2766fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c276973 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c276beb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c276e63 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c2770db /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c277353 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c2775cb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c27788b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c277b03 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c277d7b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a24dccb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a24e17b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a2535cb /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c282d13 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c282fa3 /returning from PROCLAIM /INDEX-IN-COLD-TOPLEVELS=.. 0x00011000 /INDEX-IN-COLD-TOPLEVELS=.. 0x00012000 /entering PROCLAIM, RAW-FORM=.. 0x0a5781b3 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0a57a983 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /INDEX-IN-COLD-TOPLEVELS=.. 0x00013000 /entering PROCLAIM, RAW-FORM=.. 0x0c45e2db /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a78dab3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a7955a3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c48cc33 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a79ea73 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c48d0eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a79ed8b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c48d5bb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c48d853 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a7b2c73 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a7c93e3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c48e08b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a7d4c8b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c48f23b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c48f4b3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c48f72b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a7f7ce3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a7fa5c3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a7fc053 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c490073 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4902eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c490563 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a7fd99b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a7fec53 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c490c8b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c490f03 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a8024cb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a803933 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4915bb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c491833 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c491aab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c491d23 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c491f9b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a814c6b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c492453 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4926eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a81a8a3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a81ce4b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a8205a3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a820cbb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c49332b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a823643 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4937c3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a8238eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4940c3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a8284e3 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c496253 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a82deb3 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0a82e7ab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c498263 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a83102b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /INDEX-IN-COLD-TOPLEVELS=.. 0x00014000 /entering PROCLAIM, RAW-FORM=.. 0x0c498afb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c498d73 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c498ff3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c499273 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4994eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c49976b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4999eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c499c6b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c499ee3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c49a15b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c49a62b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a8407fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c49aac3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a841a3b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a841b63 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c49b193 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c49b40b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a8425bb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a842a4b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a846e3b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a848003 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a85065b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c49c12b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c49c3a3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a850993 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c49c83b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a85110b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c49ccd3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c49cf4b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a85142b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c49d3eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a851bbb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c49d883 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c49dafb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a851edb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c49df93 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a852e93 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c49e61b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c49e893 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c49eb0b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c49ed83 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c49f003 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c49f27b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c49f4f3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c49f76b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c49f99b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4a1933 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4a1b63 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4a2d73 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4a2fa3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4a38cb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4a3afb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4a431b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4a454b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4a4d03 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4a4f33 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4a591b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4a5b4b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4a631b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4a654b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4a6d3b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4a6f6b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4a775b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4a798b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4a8063 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4a8293 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4a8bdb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4a8e0b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4a9533 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4a9763 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4aa17b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4aa3ab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4aadc3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4aaff3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4ab783 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4ab9b3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4ac143 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4ac373 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4ac9fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4acc2b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4ad30b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4ad53b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4adbc3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4addf3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4ae4fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4ae72b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4aed83 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4aefb3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4af923 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4afb53 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4b02eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4b051b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4b0c43 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a871913 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0a880afb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4b19a3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4b1c1b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4b1e93 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4b210b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4b2383 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4b25b3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4b2c33 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4b2eab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a892643 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4b33ab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4b3623 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4b3903 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4b3bcb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4b3dfb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a8a1d3b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4b47ab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4b49db /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4b5203 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4b5643 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a8c47f3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a8c4c4b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a8c518b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a8c52e3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a8c5a93 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a8c62cb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a8c7a2b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a8c8253 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a8c877b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a8c8d5b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a8c9a3b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a8cb97b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a8cbdf3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a8cc3a3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a8ccb4b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4b7c1b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a8d4813 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a8d5583 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a8d708b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a8d9ecb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a8dd383 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a8e0f63 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4b8df3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a8e2c0b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4b9293 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a8e2e33 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4b9743 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a8e3b5b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a8e6b53 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a8e6cbb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a8e6e23 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a8e6f53 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a8e8643 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4baa23 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a8e92cb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a8f37bb /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0a8f3df3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a8f410b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4bd233 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a8f436b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4bd6cb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a8f487b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a8f560b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4bde53 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a8f745b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4be413 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4be6a3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a9000bb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4beb53 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a902383 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a90247b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a91393b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a91a38b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a91eaab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4bf9d3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4bfe9b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4c0123 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4c0483 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4c228b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a94fa53 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c4c2c53 /returning from PROCLAIM /filesys.lisp 300 /filesys.lisp 406 /filesys.lisp 160 /filesys.lisp 200 /filesys.lisp 700 /filesys.lisp 1000 /entering PROCLAIM, RAW-FORM=.. 0x0a971213 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a97230b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4c3373 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4c360b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4c383b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4c3ecb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4c4103 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4c4b03 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4c4d33 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a97947b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4c598b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a97deeb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4c5e23 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4c60fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a9840e3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4c65e3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4c685b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4c6c8b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4c6ebb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4c756b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4c779b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4c81e3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4c8413 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4c8b6b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4c8d9b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4c95a3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4c97d3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4c9f33 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4ca16b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4ca8e3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4cab6b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4cade3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a98eff3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a98f39b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4cb56b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4cb7e3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a991b53 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a99219b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a9926fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4cc1b3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a9974fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4cc8fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a9988f3 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0a9991a3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a99aa4b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4cd4f3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a99d35b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0a99dd53 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a99f063 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0a99f6b3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a99fb3b /returning from PROCLAIM /INDEX-IN-COLD-TOPLEVELS=.. 0x00015000 /entering PROCLAIM, RAW-FORM=.. 0x0a99ff9b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4cef1b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a9a5f8b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c4cf59b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a9b15eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a9b34e3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a9b387b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a9b56db /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4d0223 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a9b5bcb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4d06bb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a9b6303 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a9b78fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4d0e2b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a9b7e23 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4d12c3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a9bb0d3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a9bbe23 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a9bef9b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4d1d23 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4d1f53 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4d25db /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4d280b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4d30e3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4d3313 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4d39fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4d3c2b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4d436b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4d459b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4d4cbb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4d4eeb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4d5613 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4d5843 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4d5efb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4d612b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4d67fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4d6a2b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4d738b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4d75bb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4d7d13 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4d7f43 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4d8643 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4d8873 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4d8feb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4d9223 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0a9cb58b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0a9d2293 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0a9d82cb /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c4dc7bb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a9db4c3 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0a9de10b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0a9e085b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0a9e4e7b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0a9ebf3b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a9ec91b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0a9ee793 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a9eef9b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a9ef0e3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a9ef753 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a9ef893 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a9eff03 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a9f0b23 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a9f103b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a9f1973 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4e11c3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4e14bb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0aa16fcb /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c4e1ef3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0aa1c9a3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0aa1cfa3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0aa1d653 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4e29c3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4e2c3b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4e2edb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0aa279b3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0aa2aca3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0aa2cfab /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0aa31103 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c4e44ab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0aa41973 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0aa479f3 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0aa4a0eb /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0aa4bc8b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c4e5b1b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4e5dcb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4e6043 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4e62bb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4e6533 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0aa5bfb3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4e6a33 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4e6cc3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4e6f53 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4e71e3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4e745b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4e76d3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4e794b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4e7bc3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4e7e3b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4e80cb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0aa6661b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4e85cb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0aa668fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4e8a7b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4e8d23 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4e8feb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4e9283 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4e9513 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4e978b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4e9a03 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0aa76d83 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4e9ebb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4ea133 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4ea3c3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4ea63b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4ea8cb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0aa84e73 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4ead7b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4ebee3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4ec113 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4ec9fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4ecc2b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4ed5cb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4ed7fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4ee2db /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4ee50b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4eedf3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4ef02b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4ef913 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4efb43 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4f044b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4f067b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4f0f63 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4f1193 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0aa9f353 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0aa9fab3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0aaa191b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0aaa20e3 /returning from PROCLAIM /INDEX-IN-COLD-TOPLEVELS=.. 0x00016000 /entering PROCLAIM, RAW-FORM=.. 0x0aaa315b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0aaa371b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4f2c2b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4f2eb3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0aaa6e43 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0aaa72f3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0aaaf6ab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0aab797b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0aabdf8b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0aabe5f3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0aac9c0b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0aad394b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0aadd3bb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0aae66a3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0aaefd93 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0aaf955b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0ab025b3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0ab0b60b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0ab14913 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0ab1df6b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0ab27293 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0ab3074b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0ab39ca3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0ab43633 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0ab4d0d3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0ab56883 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0ab60053 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0ab69be3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0ab7392b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0ab7d19b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0ab865a3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0ab8f653 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0ab98603 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0aba197b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0abaac73 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0abb3f2b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0abbcfeb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0abc60b3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0abcf683 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0abd8d93 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0abe254b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0abec273 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0abf5e3b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0abff25b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0ac0864b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0ac11a63 /returning from PROCLAIM /INDEX-IN-COLD-TOPLEVELS=.. 0x00017000 /entering PROCLAIM, RAW-FORM=.. 0x0ac1adcb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0ac241db /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0ac2d5db /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0ac369eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0ac40163 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0ac4d913 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c500b53 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c500df3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0ad508c3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c52d35b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c52d58b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c52de73 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c52e0ab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c52e993 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c52ebc3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0ad520c3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0ad548ab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0ad551e3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c54a003 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c54a2a3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c54a543 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c54a7e3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0ae67a3b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c54ad43 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c54af73 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c579863 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c579a93 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c57a3bb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c57a5eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0ae6938b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0ae6c1db /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0ae6cb03 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0ae7745b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c57ba4b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c57bc7b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c57c563 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c57c793 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c57ec5b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c57ee8b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0ae78c0b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0ae7b153 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0ae7b7c3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0ae85ca3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0ae87bbb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0ae884a3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0ae98b43 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0ae9909b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0aea93b3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0aea9a53 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0aeaa70b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0aec2663 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0aec2da3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c58223b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c58246b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c582bfb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c582e2b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c583873 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c583aa3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c5842c3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c5844f3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c584c9b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c584f3b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c5851e3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c58548b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c585703 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c585933 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c5861bb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c5863eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c58720b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0aee1cb3 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0aee306b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0aee35c3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c5881bb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c5883eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c588b2b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0aefb2d3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c589003 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c589233 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c590503 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c590733 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0af0663b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0af06cfb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0af11563 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0af11a9b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0af11f83 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0af1246b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0af12903 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0af12d53 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0af131db /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0af1d8db /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0af27e43 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0af3247b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0af3c9b3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0af46283 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c5a13d3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0af4b5fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c5a1883 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c5a1b13 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c5a1ddb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c5a200b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c5a2763 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0af5800b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0af584bb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c5a2e1b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c5a3093 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0af5c60b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0af5f043 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0af5f173 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0af5f2d3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0af5f3d3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0af5f4d3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0af5f5f3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0af5f713 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0af5f83b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0af5f95b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0af5fa5b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0af5fb5b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0af5fc5b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0af5fd8b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0af5feb3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0af5ffb3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0af600eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0af601eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0af6031b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0af6cf33 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0af787a3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0af793cb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c5a7f33 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c5a816b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0af984eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0af9e793 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c5a97a3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0afa4a2b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c5aa25b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c5aa4eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c5aa7c3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c5aaa3b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c5aacb3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c5aaf2b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c5ab1a3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c5ab41b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c5ab693 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c5ab90b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c5abb83 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c5abdfb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c5ac073 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c5ac2eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c5ac563 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c5ac7db /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c5aca53 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c5acccb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c5acf43 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c5ad1bb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c5ad433 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c5ad6ab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c5ad923 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c5adb9b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c5ade13 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c5ae08b /returning from PROCLAIM /INDEX-IN-COLD-TOPLEVELS=.. 0x00018000 /entering PROCLAIM, RAW-FORM=.. 0x0afbaf8b /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0afc58c3 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c5b0533 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c5b0e43 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c5b1073 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c5b453b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0afe29b3 /returning from PROCLAIM /entering %TARGET-DEFSTRUCT /leaving %TARGET-DEFSTRUCT /entering PROCLAIM, RAW-FORM=.. 0x0c5b5153 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c5b9ae3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c5b9d5b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c5b9fd3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c5ba24b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c5ba6a3 /returning from PROCLAIM /walk.lisp 108 /entering PROCLAIM, RAW-FORM=.. 0x0c5bb57b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c5bb8db /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c5bbf1b /returning from PROCLAIM /done with loop over cold toplevel forms and fixups !POLICY-COLD-INIT-OR-RESANIFY !FIXUP-TYPE-COLD-INIT !LATE-PROCLAIM-COLD-INIT /entering PROCLAIM, RAW-FORM=.. 0x0afe29b3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c5b453b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c5b1073 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c5b0e43 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0afc58c3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0afbaf8b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0afa4a2b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0af9e793 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0af984eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c5a816b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c5a7f33 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0af793cb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0af787a3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0af6031b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0af601eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0af600eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0af5ffb3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0af5feb3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0af5fd8b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0af5fc5b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0af5fb5b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0af5fa5b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0af5f95b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0af5f83b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0af5f713 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0af5f5f3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0af5f4d3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0af5f3d3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0af5f2d3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0af5f173 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0af5c60b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0af584bb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0af5800b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c5a200b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c5a1ddb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0af4b5fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c590733 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c590503 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c589233 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c589003 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c5883eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c5881bb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0aee1cb3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c58720b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c5863eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c5861bb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c585933 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c585703 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c5844f3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c5842c3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c583aa3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c583873 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c582e2b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c582bfb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c58246b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c58223b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c57ee8b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c57ec5b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c57c793 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c57c563 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c57bc7b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c57ba4b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c57a5eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c57a3bb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c579a93 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c579863 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c54af73 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c54ad43 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c52ebc3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c52e993 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c52e0ab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c52de73 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c52d58b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c52d35b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4f1193 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4f0f63 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4f067b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4f044b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4efb43 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4ef913 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4ef02b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4eedf3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4ee50b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4ee2db /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4ed7fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4ed5cb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4ecc2b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4ec9fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4ec113 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4ebee3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0aa84e73 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0aa668fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0aa6661b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0aa4bc8b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0aa4a0eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0aa479f3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0aa31103 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0aa2cfab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0aa1d653 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0aa1cfa3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0aa1c9a3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0aa16fcb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a9ef893 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a9ef0e3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a9ec91b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a9ebf3b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a9e4e7b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a9e085b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a9de10b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a9db4c3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a9d82cb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a9d2293 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a9cb58b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4d9223 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4d8feb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4d8873 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4d8643 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4d7f43 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4d7d13 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4d75bb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4d738b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4d6a2b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4d67fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4d612b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4d5efb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4d5843 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4d5613 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4d4eeb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4d4cbb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4d459b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4d436b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4d3c2b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4d39fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4d3313 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4d30e3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4d280b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4d25db /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4d1f53 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4d1d23 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a9bef9b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a9bb0d3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a9b7e23 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a9b6303 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a9b5bcb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a9b56db /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a9b15eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a9a5f8b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4cef1b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a99f063 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a99d35b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4cd4f3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a9988f3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4cc8fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a99219b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a991b53 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4ca16b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4c9f33 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4c97d3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4c95a3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4c8d9b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4c8b6b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4c8413 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4c81e3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4c779b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4c756b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4c6ebb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4c6c8b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a97deeb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4c4d33 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4c4b03 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4c4103 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4c3ecb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4c383b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4c360b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a97230b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a971213 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a94fa53 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4c228b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a91393b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a902383 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a9000bb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a8f745b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a8f436b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a8f410b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a8f37bb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a8e8643 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a8e3b5b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a8e2e33 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a8e2c0b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a8c5a93 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a8c52e3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4b49db /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4b47ab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4b3dfb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4b3bcb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a892643 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4b25b3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4b2383 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a880afb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a871913 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4b051b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4b02eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4afb53 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4af923 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4aefb3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4aed83 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4ae72b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4ae4fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4addf3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4adbc3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4ad53b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4ad30b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4acc2b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4ac9fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4ac373 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4ac143 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4ab9b3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4ab783 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4aaff3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4aadc3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4aa3ab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4aa17b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4a9763 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4a9533 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4a8e0b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4a8bdb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4a8293 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4a8063 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4a798b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4a775b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4a6f6b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4a6d3b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4a654b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4a631b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4a5b4b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4a591b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4a4f33 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4a4d03 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4a454b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4a431b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4a3afb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4a38cb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4a2fa3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4a2d73 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4a1b63 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4a1933 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c49f99b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c49f76b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a852e93 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a851edb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a851bbb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a85142b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a85110b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a850993 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a85065b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a848003 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a846e3b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a842a4b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a8425bb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a841b63 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a841a3b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a8407fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a83102b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c498263 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a82deb3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c496253 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a8284e3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c4940c3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a8238eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a823643 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a814c6b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a803933 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a8024cb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a7fc053 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a7d4c8b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a7c93e3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a7b2c73 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a79ed8b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a79ea73 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a78dab3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a57a983 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a5781b3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a2535cb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a241673 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a23f903 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a238373 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a21c02b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a219933 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a2177fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a1e86a3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a1d0cc3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c26ed63 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a1ce9b3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a1cbc73 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a1c1003 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a1b8fbb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a1b86ab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a1b800b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a160f43 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a15e70b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a15dddb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a15d7fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a1581cb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0a0e8763 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09fa3e53 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f9d84b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f90bdb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f8fd03 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f8c043 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f8b98b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c20f633 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c20f403 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c20e6cb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c20e49b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c20de93 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c20dc63 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f844d3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f8429b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f8419b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f83e33 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f7f4eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f7e3bb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f7aae3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f7758b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f770db /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f76ccb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f7677b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f72c6b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f6f463 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f6f013 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f5f9fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f5f5eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f5e26b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f59913 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f594e3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f56a93 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f566c3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f56243 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f559f3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f5562b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f5526b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f4eb93 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f4e773 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f48c6b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f4810b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f476d3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f47303 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f445e3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f433eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f41bc3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f40af3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f3fc73 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f3ecb3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f3db13 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f3ccd3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f3ace3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f39b7b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f38b43 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f36583 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f34fd3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f33e53 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f331ab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f315cb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f300a3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f2f6b3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f2d2c3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f2a9d3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f29ab3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f27cf3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f25dd3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f2491b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f22a1b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f2079b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f1df9b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f1ce23 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f1b783 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f19ac3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f18763 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f169bb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f15c7b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f01893 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f01213 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09f006d3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09ef6833 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09ef3a6b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09ef1053 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09ee93ab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09ee466b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09ee3ddb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09ee330b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09ee1233 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09ee1013 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09edfa93 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09edf833 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09ed89ab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09eb332b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09eaf083 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09e9d51b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09e9bfa3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09e9b4db /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09e9b283 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09e9b033 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09e8c613 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09e826d3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09e7ffb3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09e7c153 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09e7623b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1ea46b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09e73a93 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1e8273 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09e71073 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1e627b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09e6b88b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1e4483 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1e222b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09e4fcbb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09e4da2b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09e4b283 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09e48f4b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09e45fe3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09e3b1cb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09e3205b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09e2a0e3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09e29e73 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09e29bd3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09e268f3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09e0eb33 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09df8ab3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09df5d2b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09df4383 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09df1bfb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09df111b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09dec65b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09dea15b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09de8a63 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09de800b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09de5ecb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09ddb12b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09dda383 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09dd805b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09dd7db3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09dd7b3b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09dd78b3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09dd74db /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09dcb5fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09dcaf4b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09dc965b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09dc84d3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09dc7983 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09dc518b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09dc2673 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09dc182b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09dc120b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09dbd9eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09dbd1d3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09dad37b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09d9ceb3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09d8eb43 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09d8e85b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09d8bd4b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09d8b5bb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09d8b00b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09d8a2db /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09d8448b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1bc953 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09d7f1c3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09d7eb9b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1baa0b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1ba7db /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1ba00b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1b9ddb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1b9643 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1b9413 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1b8223 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1b7fe3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1b78bb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1b768b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09d7306b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09d71623 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09d60bd3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1b527b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09d5e0f3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1b3483 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09d5bdb3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1b1283 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09d54cb3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09d0b60b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09d0b233 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c12e263 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09d0602b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09d03083 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c12a62b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09cff70b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c129a83 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09cfbbd3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c12925b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09cf8123 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c127483 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c12522b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09cecb93 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09ce5c8b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c121b4b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09cdfad3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09cdf3f3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09cd8b33 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c12027b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09cd26eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c11785b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c11762b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c116d13 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c116ae3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1163fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1161cb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09ccad13 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1156db /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c1154ab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09cca40b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09cbdecb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c111e9b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09ca3ebb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09c8ef23 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09c8ace3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c10ce2b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09c822a3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09c7a3eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09c79d43 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09c795fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09c78ebb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09c78753 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09c77c8b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09c7777b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09c7762b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09c720bb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09c71d2b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09c5d563 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09c588bb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09c579f3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09c56bdb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09c55ceb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09c523e3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0f2dfb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09bf136b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09bef11b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09bed37b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09bebf3b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09beaa7b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09be88ab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09be68db /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09be4713 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09be24e3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09be05eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09bde82b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09bdcf3b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09bd8d5b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09bd49bb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09bce5bb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0e70eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0e6ebb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09bc83eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09bc56ab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0e646b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09bc01b3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0e4283 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09bbcb93 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0e226b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09bb82cb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0e022b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09baf2eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0de223 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09bab57b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0dc22b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09ba66fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0da493 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09ba26c3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0d8253 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09b9e203 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0d6493 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09b9a81b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0d4283 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09b9700b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0d2473 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09b92ddb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0d0233 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09b8bd83 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0ce27b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09b85dfb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0cc483 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09b801db /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0ca27b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09b7614b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0c724b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09b72f7b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0c546b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09b6ec0b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0c3423 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09b6c09b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0c1243 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09b5f60b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09b55fbb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09b55e3b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09b5193b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0bc6a3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0bc473 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0bbe63 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0bbc33 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0bb33b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0bb10b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0ba91b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0ba6eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0b9f5b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0b9d2b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0b959b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0b936b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0b8963 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0b8733 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0b8053 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0b7e23 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0b746b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0b723b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0b6783 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0b6553 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0b5ddb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0b5bab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0b5113 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0b4ee3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0b457b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0b434b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0b3c83 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0b3a53 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0b2e7b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0b2c4b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0b249b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0b226b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0b189b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0b166b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0b0f73 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0b0d43 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0b061b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0b03eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0afabb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0af88b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0af08b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0aee5b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0ae4a3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0ae273 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0adae3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0ad8b3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0ad15b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0acf2b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0ac6bb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0ac48b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0abc2b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0ab9fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0ab23b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0ab00b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0aa65b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0aa42b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0a9ae3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0a98b3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0a8fa3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0a8d73 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0a83eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0a81bb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0a788b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0a765b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0a6fab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0a6d7b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0a64b3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0a6283 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0a5bfb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0a59cb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0a50db /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0a4eab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0a47a3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0a4573 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0a3b5b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0a392b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0a3293 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0a3063 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0a28c3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0a2693 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0a1ed3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0a1ca3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0a12fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0a10cb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0a0733 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0a0503 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c09f88b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c09f65b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c09ee6b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c09ec3b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c09e503 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c09e2d3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c09d9e3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c09d7b3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c09cf6b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c09cd3b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c09c5a3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c09c373 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c09bb23 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c09b8f3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c09a7db /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c09a5ab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c099dd3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c099ba3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c096003 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c095dcb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c095643 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c095413 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c094acb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c09489b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c094193 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c093f63 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0935e3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0933b3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c09280b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0925db /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0918bb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c09168b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c090bab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c09097b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c09010b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c08fedb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c08f83b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c08f60b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c08eceb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c08eabb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c08de0b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c08dbdb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c08d54b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c08d31b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c08cac3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c08c893 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c08bdfb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c08bbcb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c08b373 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c08b143 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c08a8eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c08a6bb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c089f03 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c089cd3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c088b33 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c088903 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0880ab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c087e73 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c08773b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c08750b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c086e23 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c086bf3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c086483 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c086253 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0859db /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0857ab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c084db3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c084b83 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c084143 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c083f0b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c08365b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c08342b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c082bdb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0829ab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c082033 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c081e03 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c08145b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c08122b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c08031b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0800eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c07f78b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c07f55b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c07eebb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c07ec8b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c07e50b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c07e2db /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c07db83 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c07d953 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c07d20b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c07cfdb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c07c893 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c07c663 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c07badb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c07b8ab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c07b1eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c07afb3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c07a3e3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c07a1b3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c079aa3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c079873 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c078f73 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c078d43 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c07869b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c07846b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c077d7b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c077b4b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c077473 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c077243 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0768bb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c07668b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c075d6b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c075b3b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c07549b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c07526b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c074b7b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c07494b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0742c3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c074093 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c073a0b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0737db /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09b0a00b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c072b93 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c072963 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c072003 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c071dcb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c07170b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0714db /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c070e2b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c070bfb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c07029b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c07006b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c06f73b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c06f50b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c06eed3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c06eca3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c06e403 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c06e1d3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c06dbb3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c06d983 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c06d14b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c06cf1b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c06c733 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c06c503 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09afae63 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09af4273 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c06a26b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09ae4a83 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c06825b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09ae0543 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c066523 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09ad4d33 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c06325b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09ad1f93 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c06123b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09acd7cb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c05f28b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09ac938b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c05d40b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09ac1bd3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09ac1463 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09ac0643 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09abfefb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09abf6f3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09abd133 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c05a263 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c05748b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09aae10b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09aabbfb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09aa9ccb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09aa801b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09aa1f2b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09a9e14b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09a9a6d3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09a96c43 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09a96b33 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09a94e0b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09a9192b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09a8f99b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09a8d3c3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09a8c97b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c04cca3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09a87bab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09a8651b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09a7ff13 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09a7d373 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09a7b90b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09a75d0b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09a324d3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c03424b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09a2b09b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0317ab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09a10033 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x099fb79b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x099f9d63 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x099f83c3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x099f5473 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x099f0e8b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x099ecf1b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x099ecc93 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x099ecb93 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x099ec7c3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x099ec523 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x099ec2bb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x099ec04b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x099ebda3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x099ebb03 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x099eb85b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x099eb5fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x099eb333 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x099eb083 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x099ea143 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x099e64d3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x099e4563 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x099dad13 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x099d3bbb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c02248b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x099ce05b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c020283 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x099c96b3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c01d4bb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c01b273 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x099b912b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x099b4ea3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x099af67b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c014cb3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x099aab53 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x099a7f3b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x099a4a6b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0999fb13 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0999b5eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0999517b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x099927eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0998a90b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09985193 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0998414b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09980433 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09979bfb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09973a73 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c0082cb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0996b9c3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0c00626b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09965cb3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0996180b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0995a573 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0994bca3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bffa24b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x099452fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bff8253 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0993f07b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0993683b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bff3223 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0992afc3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bff125b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09925133 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfee23b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09915c5b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfeb48b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0990507b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfe826b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x098fae2b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfe5743 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x098f3783 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfe2453 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfdfa73 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x098ea02b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfdd453 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfdb263 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x098dff43 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfd9243 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x098dcb1b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfd749b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x098da08b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x098d7673 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x098d468b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x098cb3fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x098c9823 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfcc27b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x098b8b8b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfc427b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x098b496b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfc2283 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x098b1e5b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x098b0feb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x098b0afb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x098b0743 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x098b01b3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x098afb93 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x098af54b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x098aed83 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x098ac583 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09894843 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfb6f43 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09891063 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfb5373 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0988986b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfb422b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09885edb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfb2233 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0987dc13 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0987d033 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0987c7fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0987b82b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0987b47b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0987aebb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0987ab0b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0987a773 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0987a313 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0987932b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09867093 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09858dbb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09857a6b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfab9a3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09851c4b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bfaa22b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09850c1b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09850363 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0984fcf3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0984bff3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0984bd9b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0984b9e3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09849f0b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0982c71b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf95f7b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09827ad3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf957b3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0981c95b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x097c626b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf900d3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x097ab35b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0979c263 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf8d2ab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09793573 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09793213 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0978c933 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf8ba13 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0978a653 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09781e83 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0977a2f3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0973f3a3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09707fd3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x096f9333 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x096f657b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x096f3f73 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x096f07db /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x096ee043 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x096e664b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x096e05f3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x096a70fb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x096a6063 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0968837b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x096809d3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09677353 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0966ed4b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0966814b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x096615eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0965a403 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0965450b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0964e51b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09623a3b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x096210eb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0961e61b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf6427b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x095f8a1b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09595fc3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09595aa3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x093b2333 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x093b207b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x093b1dc3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x093b1b13 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x093b1863 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x093b15d3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x093b130b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x093b103b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x093b0da3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x093b0af3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x093b082b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x093b0583 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x093b02ab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x093ab56b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf556c3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x093a92a3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf54cf3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09375733 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0931c37b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09313413 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09308c03 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09308273 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09301bf3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x092fcff3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x092f804b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x092f71c3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x092f6aa3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x092f627b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x092f5a5b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x092f065b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x092ee96b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x092ed73b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x092e3a2b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x092daf4b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x092c907b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x092c8b7b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x092be93b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0921eb0b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0921e5c3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0921e05b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0921dab3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x091d9b5b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x091d9a13 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x091d7893 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x091c3dbb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x091b4373 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x091b3dab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09199893 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf3beab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0918cf9b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09189b13 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09189553 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf39243 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x091841ab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0918362b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09182d13 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0918268b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09176fd3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf3503b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x091672b3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0914834b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09147f6b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09141753 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0913e99b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0913dfab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09139e43 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09133eab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09121ebb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09121d6b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0911ffa3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf2d303 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09103433 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x090ef20b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x090e644b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x090cfb4b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf1f413 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x090c837b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x090c823b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x090bfd63 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x090bd97b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x090ba10b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0bf1934b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x090b66db /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x090a89d3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x090a4c2b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x090a499b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x090a4523 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x090a40ab /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x090a3de3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x090a3b5b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09092b23 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0909260b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x090923b3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0909215b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0908b0c3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0907cf63 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09078303 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09076d83 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0906f6bb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0906f13b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0906ec03 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0906e78b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0906e39b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0906929b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09064cf3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0904367b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09042efb /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0903ea33 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0901f433 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x0901ee3b /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09019163 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09017d23 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x09015ba3 /returning from PROCLAIM /entering PROCLAIM, RAW-FORM=.. 0x090153eb /returning from PROCLAIM OS-COLD-INIT-OR-REINIT /entering OS-COLD-INIT-OR-REINIT /setting *CORE-STRING* /cold-printing defaulted external-format: ANSI_X3.4-1968 /matching to known aliases /matched //default external format ok /setting *POSIX-ARGV* /setting *DEFAULT-PATHNAME-DEFAULTS* /setting *CORE-PATHNAME* /setting *RUNTIME-PATHNAME* /leaving OS-COLD-INIT-OR-REINIT !PATHNAME-COLD-INIT !DEBUG-INFO-COLD-INIT CORRUPTION WARNING in SBCL pid 8300: Memory fault at (nil) (pc=0x8062490, sp=0xb39bed48) The integrity of this image is possibly compromised. Exiting. Welcome to LDB, a low-level debugger for the Lisp runtime environment. ldb> Backtrace: 0: Foreign function ldb_monitor, fp = 0xb3c02a38, ra = 0x805bfca ldb> Really quit? [y] * ERROR: dev-lisp/sbcl-1.2.9::grozin failed (compile phase): * make failed * * Call stack: * ebuild.sh, line 93: Called src_compile * environment, line 2356: Called die * The specific snippet of code: * env - HOME="${T}" PATH="${PATH}" CC="$(tc-getCC)" AS="$(tc-getAS)" LD="$(tc-getLD)" CPPFLAGS="${CPPFLAGS}" CFLAGS="${CFLAGS}" ASFLAGS="${ASFLAGS}" LDFLAGS="${LDFLAGS}" GNUMAKE=make ./make.sh "sh ${bindir}/run-sbcl.sh --no-sysinit --no-userinit" || die "make failed"; * * If you need support, post the output of `emerge --info '=dev-lisp/sbcl-1.2.9::grozin'`, * the complete build log and the output of `emerge -pqv '=dev-lisp/sbcl-1.2.9::grozin'`. * The complete build log is located at '/var/log/portage/dev-lisp:sbcl-1.2.9:20150318-064645.log'. * For convenience, a symlink to the build log is located at '/var/tmp/portage/dev-lisp/sbcl-1.2.9/temp/build.log'. * The ebuild environment file is located at '/var/tmp/portage/dev-lisp/sbcl-1.2.9/temp/environment'. * Working directory: '/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9' * S: '/var/tmp/portage/dev-lisp/sbcl-1.2.9/work/sbcl-1.2.9'